Jump to content

i need someone to check my scripts


 Share

Recommended Posts

i play a game wich is about attacking monster and leveling up so im trying to make a bot and its fine but it dosent attack and i dont know why so ill put my scripts here so someone check them out just look for SendSkills thats the problem for now ty

Global $Walkback

Global $FinalX

Global $FinalY

Global $SavedX

Global $SavedY

Global $East

Global $West

Global $North

Global $South

Global $len

Global $Paused

Global $stop

Dim $attackkey = "1"

Dim $imbuekey = "2"

HotKeySet("{Pause}", "Pause")

HotKeySet( "{Home}", "Start")

Hotkeyset("{F11}","SaveCoords")

Hotkeyset("{END}","Stop")

MsgBox(64, "cRaZyBoT", "Set autoattack to 1 and your imbue to 2, to start press the Home key and to stop Press the End Key")

Func Start()

WinActivate ( "SRO_Client" )

setPerspective()

While 1

CheckZerk()

checkDead()

Search()

SendSkill()

SaveCoords()

checkCoords()

WEnd

$stop = NOT $stop

While $stop

Wend

EndFunc

Func Search()

While 1

ToolTip("searching for monster")

;------------Light search-----------------------------------------------------------------

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

;-------------Dark Search-------------------------------------------------------------------

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

Else

$coord = PixelSearch(360,230,736,530,0xFF00FF, 25, 2)

If Not @error Then

MouseClick("left",$coord[0],$coord[1],1,0)

$fight = pixelsearch(437, 44,439,46,0xFFC6C6,10) ; Check Monster HP

If Not @error Then

Attack()

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

WEnd

EndFunc

Func Fight()

ToolTip("fighting")

While PixelGetColor(572,432) = 0xFF3131

Send($attackkey)

Sleep(500)

Send($imbuekey)

Sleep(300)

WEnd

Pickup()

EndFunc

Func Pickup()

ToolTip("Pickup")

Send("gg")

sleep(100)

Send("gg")

sleep(100)

Send("gg")

sleep(100)

Send("gg")

sleep(100)

EndFunc

Func stop()

Exit

EndFunc

While 1

Sleep(50)

WEnd

func checkDead()

if PixelGetColor(572,432) = 16767315 And PixelGetColor(83,37) = 1053712 Then

MouseClick("left",478,493,1,0)

sleep(3000)

send("{esc}")

sleep(300)

mousemove (500,450,0)

sleep (250)

mouseclick ("left",500,450,2)

msgbox(48,"NOTICE","You died at " & _NowTime())

Exit

EndIf

EndFunc

func setPerspective()

send("{f9}")

MouseWheel("up",20)

MouseWheel("down",13)

EndFunc

Func SaveCoords()

$SavedX = _NCR(923, 34, 950, 45)

$SavedY = _NCR(982, 34, 1009, 45)

$Coordsystem = 1

$walkback = InputBox("cRaZyBoT", "Walkback, set how far before walkback starts", "", "")

MsgBox(64,"cRaZyBoT", "Coords Saved", 3)

EndFunc

Func CheckCoords()

sleep(1500)

$CoordX = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$FinalX = $SavedX - $CoordX

If $FinalX < -$walkback Then

ToolTip("cRaZyBoT: you have wondered off East", 2, 0)

$east = 1

EndIf

If $FinalX > $walkback Then

ToolTip("cRaZyBoT: you have wondered off West", 2, 0)

$west = 1

EndIf

$CoordY = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$FinalY = $SavedY - $CoordY

If $FinalY < -$walkback Then

ToolTip("cRaZyBoT: you have wondered off North", 2, 0)

$north = 1

EndIf

If $FinalY > $walkback Then

ToolTip("cRaZyBoT: you have wondered off South", 2, 0)

$south = 1

EndIf

Direction()

EndFunc

Func Stuck()

$CurrentCoord = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

if $walkCoord = $CurrentCoord Or $walkcoord1 = $CurrentCoord Or $walkcoord2 = $CurrentCoord Then

ToolTip("cRaZyBoT: Shit im stuck ", 2, 0)

MouseClick( "left", 227,97)

Sleep(1000)

MouseClick( "left", 847,93)

Sleep(1000)

MouseClick( "left", 80,512)

Sleep(1000)

MouseClick( "left", 958,532)

Sleep(1000)

Direction()

EndIf

EndFunc

Func WalkStuck()

$CurrentCoord = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

if $walkCoord = $CurrentCoord Or $walkcoord1 = $CurrentCoord Or $walkcoord2 = $CurrentCoord Then

ToolTip("cRaZyBoT: Shit im stuck ", 2, 0)

MouseClick( "left", 227,97)

Sleep(1000)

MouseClick( "left", 847,93)

Sleep(1000)

MouseClick( "left", 80,512)

Sleep(1000)

MouseClick( "left", 958,532)

Sleep(1000)

WalkToDirection()

EndIf

EndFunc

Func Direction()

$Timer1 = TimerInit()

If $North = 1 and $east = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT walking South West ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking South West ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking South West ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$North = 0

$east = 0

EndIf

If $North = 1 and $west = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking South East ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking South East ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking Soutg East ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$North = 0

$west = 0

EndIf

If $South = 1 and $west = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT walking North East ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North East ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North East ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$South = 0

$west = 0

EndIf

If $South = 1 and $east = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking North East ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North West ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North West ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$South = 0

$west = 0

EndIf

If $east = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking West ", 2, 0)

$walkCoord = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord = $walkCoord - $SavedX

If $TempCoord > 10 Then

ToolTip("cRaZyBoT: Keep on walking West ", 2, 0)

Endif

If $TempCoord < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

Wend

EndIf

$east = 0

If $west = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",350,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking East ", 2, 0)

$walkCoord = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord = $walkCoord - $SavedX

If $TempCoord < -10 Then

ToolTip("cRaZyBoT: Keep on walking East ", 2, 0)

Endif

If $TempCoord > 10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

Wend

EndIf

$west = 0

If $north = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",570,230)

Sleep(1500)

ToolTip("cRaZyBoT: walking South ", 2, 0)

$walkCoord = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord = $walkCoord - $SavedY

If $TempCoord > 10 Then

ToolTip("cRaZyBoT: Keep on walking South ", 2, 0)

Endif

If $TempCoord < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

Wend

EndIf

$north = 0

If $south = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

Stuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",570,555)

Sleep(1500)

ToolTip("cRaZyBoT: walking North ", 2, 0)

$walkCoord = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord = $walkCoord - $SavedY

If $TempCoord < -10 Then

ToolTip(": Keep on walking North ", 2, 0)

Endif

If $TempCoord > 10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

Wend

EndIf

$south = 0

EndFunc

Func WalkTo()

$walktoSystem = 1

$Coordsystem = 0

MsgBox(64,"cRaZyBoT Walker", "The Walker is still in develpment and is buggy")

$WalkToX = InputBox("cRaZyBoT Walker", "Enter the X coord you wish to walk to", "", "")

$walkToY = InputBox("cRaZyBoT Walker", "Enter the Y coord you wish to walk to", "", "")

$CoordX = _NCR(923, 34, 950, 45)

$Destination = $WalkToX - $CoordX

If $DestinationX < -$walkback Then

$east = 1

EndIf

If $DestinationX > $walkback Then

$west = 1

EndIf

$CoordY = _NCR(982, 34, 1009, 45)

$DestinationY = $WalkToY - $CoordY

If $DestinationY < -$walkback Then

$north = 1

EndIf

If $DestinationY > $walkback Then

$south = 1

EndIf

WalkToDirection()

EndFunc

Func WalkToDirection()

$Timer1 = TimerStart()

If $North = 1 and $east = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

WalkStuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking South West ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking South West ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking South West ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$North = 0

$east = 0

EndIf

If $North = 1 and $west = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

WalkStuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking South East ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking South East ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking Soutg East ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$North = 0

$west = 0

EndIf

If $South = 1 and $west = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

WalkStuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking North East ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North East ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North East ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$South = 0

$west = 0

EndIf

If $South = 1 and $east = 1 Then

While 1

if timerdiff($timer1) > 20 * 1000 then

WalkStuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1500)

ToolTip("cRaZyBoT: walking North East ", 2, 0)

$walkCoord1 = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$walkCoord2 = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord1 = $walkCoord1 - $SavedX

$TempCoord2 = $walkCoord2 - $SavedX

If $TempCoord1 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North West ", 2, 0)

Endif

If $TempCoord2 > 10 Then

ToolTip("cRaZyBoT: Keep on walking North West ", 2, 0)

Endif

If $TempCoord1 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

If $TempCoord2 < -10 Then

ToolTip("cRaZyBoT: OK, back to training ", 2, 0)

ExitLoop

EndIf

EndIf

Wend

$South = 0

$west = 0

EndIf

If $east = 1 Then

While 1

if timerdiff($timer1) > 45 * 1000 then

WalkStuck()

$Timer1 = TimerInit()

EndIf

MouseClick("left",680,425)

Sleep(1000)

ToolTip("cRaZyBoT: walking West ", 2, 0)

$walkCoord = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord = $walkCoord - $WalkToX

If $TempCoord > 10 Then

ToolTip("cRaZyBoT: Keep on walking West ", 2, 0)

Endif

If $TempCoord < -10 Then

ExitLoop

EndIf

Wend

EndIf

$east = 0

If $west = 1 Then

While 1

if timerdiff($timer1) > 45 * 1000 then

WalkStuck()

EndIf

MouseClick("left",350,425)

Sleep(1000)

ToolTip("cRaZyBoT: walking East ", 2, 0)

$walkCoord = _NCR(923, 34, 950, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord = $walkCoord - $WalkToX

If $TempCoord < -10 Then

ToolTip("cRaZyBoT: Keep on walking East ", 2, 0)

Endif

If $TempCoord > 10 Then

ExitLoop

EndIf

Wend

EndIf

$west = 0

If $north = 1 Then

While 1

if timerdiff($timer1) > 45 * 1000 then

WalkStuck()

EndIf

MouseClick("left",570,230)

Sleep(1000)

ToolTip("cRaZyBoT: walking South ", 2, 0)

$walkCoord = _NCR(982, 34, 1009, 45)

$TempCoord = $walkCoord - $WalkToY

If $len <> 4 Then

Return

EndIf

If $TempCoord > 10 Then

ToolTip("cRaZyBoT: Keep on walking South ", 2, 0)

Endif

If $TempCoord < -10 Then

ExitLoop

EndIf

Wend

EndIf

$north = 0

If $south = 1 Then

While 1

if timerdiff($timer1) > 45 * 1000 then

WalkStuck()

EndIf

MouseClick("left",570,555)

Sleep(1000)

ToolTip("cRaZyBoT: walking North ", 2, 0)

$walkCoord = _NCR(982, 34, 1009, 45)

If $len <> 4 Then

Return

EndIf

$TempCoord = $walkCoord - $WalkToY

If $TempCoord < -10 Then

ToolTip("cRaZyBoT: Keep on walking North ", 2, 0)

Endif

If $TempCoord > 10 Then

ExitLoop

EndIf

Wend

EndIf

$south = 0

EndFunc

Func _NCR($Ax, $Ay, $Dx, $Dy)

$width = $Dx - $Ax

$length = $Dy - $Ay

Dim $char[$width][$length]

For $xwidth = 0 To $width - 1

For $xlength = 0 To $length - 1

$char[$xwidth][$xlength] = Hex(PixelGetColor($Ax, $Ay), 6)

$Ay = $Ay + 1

Next

$Ax = $Ax + 1

$Ay = $Ay - $length

Next

;scans entire area

$p = 1

Dim $row[$width]

For $xwidth = 0 To $width - 1

For $xlength = 0 To $length - 1

If $char[$xwidth][$xlength] = "FFFFFF" Then

If $p = 1 Then

$div = $xwidth

$p += 2

EndIf

$x = $xwidth - $div

$row[$x] +=1

EndIf

Next

Next

;seriales the array

Dim $result

For $xwidth = 0 To $width - 1

If $row[$xwidth+0] = 7 And $row[$xwidth+1] = 2 And $row[$xwidth+2] = 2 And $row[$xwidth+3] = 2 And $row[$xwidth+4] = 7 Then

$result &= "0"

EndIf

If $row[$xwidth+0] = 1 And $row[$xwidth+1] = 1 And $row[$xwidth+2] = 9 Then

$result &= "1"

EndIf

If $row[$xwidth+0] = 2 And $row[$xwidth+1] = 3 And $row[$xwidth+2] = 3 And $row[$xwidth+3] = 4 And $row[$xwidth+4] = 4 Then

$result &= "2"

EndIf

If $row[$xwidth+0] = 2 And $row[$xwidth+1] = 2 And $row[$xwidth+2] = 3 And $row[$xwidth+3] = 3 And $row[$xwidth+4] = 6 Then

$result &= "3"

EndIf

If $row[$xwidth+0] = 2 And $row[$xwidth+1] = 3 And $row[$xwidth+2] = 3 And $row[$xwidth+3] = 9 And $row[$xwidth+4] = 1 Then

$result &= "4"

EndIf

If $row[$xwidth+0] = 4 And $row[$xwidth+1] = 4 And $row[$xwidth+2] = 3 And $row[$xwidth+3] = 3 And $row[$xwidth+4] = 5 Then

$result &= "5"

EndIf

If $row[$xwidth+0] = 7 And $row[$xwidth+1] = 3 And $row[$xwidth+2] = 3 And $row[$xwidth+3] = 3 And $row[$xwidth+4] = 5 Then

$result &= "6"

EndIf

If $row[$xwidth+0] = 1 And $row[$xwidth+1] = 4 And $row[$xwidth+2] = 4 And $row[$xwidth+3] = 3 And $row[$xwidth+4] = 1 Then

$result &= "7"

EndIf

If $row[$xwidth+0] = 6 And $row[$xwidth+1] = 3 And $row[$xwidth+2] = 3 And $row[$xwidth+3] = 3 And $row[$xwidth+4] = 6 Then

$result &= "8"

EndIf

If $row[$xwidth+0] = 5 And $row[$xwidth+1] = 3 And $row[$xwidth+2] = 3 And $row[$xwidth+3] = 3 And $row[$xwidth+4] = 7 Then

$result &= "9"

EndIf

Next

$len = StringLen($result)

Return $result

EndFunc

Func SendSkill()

While PixelGetColor(429, 46) = (16724273) and PixelGetColor(411, 20) <> (16248774)

ControlSend("SRO_Client", "", "", "{F1}")

ControlSend("SRO_Client", "", "", "1")

Sleep(2000)

ControlSend("SRO_Client", "", "", "2")

Sleep(2000)

ControlSend("SRO_Client", "", "", "3")

Sleep(2000)

ControlSend("SRO_Client", "", "", "4")

Sleep(2000)

ControlSend("SRO_Client", "", "", "5")

Sleep(2000)

ControlSend("SRO_Client", "", "", "6")

Sleep(2000)

Wend

EndFunc ;==>SendSkill

Func CheckZerk()

If PixelGetColor(14, 22) <> (0) Then

Send("{TAB}")

EndIf

EndFunc

Func Pause()

$Paused = Not $Paused

While $Paused

Sleep(400)

WEnd

EndFunc

Link to comment
Share on other sites

You're missing an #include (date.au3) and have some undefined functions

Edited by BALA
[font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
Link to comment
Share on other sites

why dont you just make a program that sends the attack butten/pick up (cause i think you play MS im not sure)

and all the other stuff you need

---╔╦═╗╔╗'''╔╗╔═╦═╗╔╦═╗---╝╠═╣╝║'''║╝╝''''''╝╝║'''......''''''''''''''''''''''''''''''---╔╩═╩═╩═╩═══╩═╦═╩═╩══╦══════╗''''╔╩════════════╩══╗╔══╩══╗╔══╝ ''''''''''''''''''''''''''''''''''''''''''''''''''''║║'''''''''''''''║║ ''''''''''''''''''''''''''''''''''''''''''''''╔══╝╚══╗''''''║║''''''''''''''''''''''''''''''''''''''''''''''╚══════╝''''''╚╝
Link to comment
Share on other sites

so it would look like this right

#include <date.au3>

Global $Walkback

Global $FinalX

Global $FinalY

Global $SavedX

Global $SavedY

Global $East

Global $West

Global $North

Global $South

Global $len

Global $Paused

Global $stop

Dim $attackkey = "1"

Dim $imbuekey = "2"

HotKeySet("{Pause}", "Pause")

HotKeySet( "{Home}", "Start")

Hotkeyset("{F11}","SaveCoords")

Hotkeyset("{END}","Stop")

MsgBox(64, "cRaZyBoT", "Set autoattack to 1 and your imbue to 2, to start press the Home key and to stop Press the End Key")

Link to comment
Share on other sites

helpmepls

You don't have to put Global on each line, you can do it in one line and seperate variables with ,

Global $Walkback, $FinalX, $FinalY, $SavedX, $SavedY, $East, $West, $North, $South, $len, $Paused, $stop

with Dim it is the same.

And please, put your code to [autоit][/autоit] tags. Thanx.

Edited by MsCreatoR

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Link to comment
Share on other sites

  • Moderators

someone??????????????

I'd suggest taking this tutorial, your questions are too basic, and you've been a member too long not to know the answers to these questions:

http://www.autoitscript.com/forum/index.php?showtopic=21048

Where have you seen anyone or any script, use an "include" file with parenthesis?

#include (anything.au3)? No

#include "anything.au3"? Yes, if the include file is in the same directory as the script you are using

#include <anything.au3>? Yes, if the include file you want is in the autoit include directory of the version you are using

P.S.

Bumping your thread after 50 or so minutes, is rediculous.

Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

  • Moderators

i created my account a long time ago but i dont get in too often and that tutorial i took it i odnt need it i just dont know whats wrogng with the func sendskills it dosent want to begin thats what i dont understand

2 issues could be:

1. ControlSend in 3.2.2.0 I've heard isn't working right, might try the last beta for 3.1

2. PixelGetColor(429, 46) = (16724273) and PixelGetColor(411, 20) <> (16248774) ... maybe those colors are never true, maybe 429 / 46 is <> 16724273 and maybe 411/20 = 16248774 or ... maybe 1 or the other is off.

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

  • 4 weeks later...

i created my account a long time ago but i dont get in too often and that tutorial i took it i odnt need it i just dont know whats wrogng with the func sendskills it dosent want to begin thats what i dont understand

no, seriously, you DO need it.

i really dont understand i cant fix it what are the func that are undefined and with what can i replace it??

before anything else, you really should go through that tutorial. I'm not saying that to be mean or put you down, we all started at the same place, and everyone here who's worth their weight in waffles knows that. The thing is, you've got a lot of code, and even with someone being patient enough to point out every thing that could be wrong with the code, it won't help you very much unless they fix the issues too, which won't help you at all.

@smoke as far as using the parentheses in the include; BALA, who first suggested adding the include put date.au3 in parentheses ( i think as an aside to say which file needed to be included, not necessarily as a "paste this into scite", and the OP tried to use it as is....(even though they had posted code with it between <> )

@OP please just go through the tutorial, and then begin stepping through your code. we're happy to help with specific issues, but if you're not able to apply the suggestions, it's going to be harder on everyone, including you when people start losing their patience.

Link to comment
Share on other sites

  • Moderators

@smoke as far as using the parentheses in the include; BALA, who first suggested adding the include put date.au3 in parentheses ( i think as an aside to say which file needed to be included, not necessarily as a "paste this into scite", and the OP tried to use it as is....(even though they had posted code with it between <> )

And? Doesn't change what I said... Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

  • Moderators

no, but it answered your question...

Yep... trying to iterate and possibly caused some confusion to myself at the same time :whistle:

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...