helpmepls Posted February 13, 2007 Share Posted February 13, 2007 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 More sharing options...
BALA Posted February 13, 2007 Share Posted February 13, 2007 (edited) You're missing an #include (date.au3) and have some undefined functions Edited February 13, 2007 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 More sharing options...
toothyXdip Posted February 13, 2007 Share Posted February 13, 2007 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 More sharing options...
helpmepls Posted February 13, 2007 Author Share Posted February 13, 2007 i play silkroad online but i will try to fix everything Link to comment Share on other sites More sharing options...
helpmepls Posted February 13, 2007 Author Share Posted February 13, 2007 You're missing an #include (date.au3) and have some undefined functionso and btw could u be a little more specific cuz this is my first bot and i dont know to much about this like what are the undefined thinks and where do i put #include Link to comment Share on other sites More sharing options...
skippynz Posted February 13, 2007 Share Posted February 13, 2007 o and btw could u be a little more specific cuz this is my first bot and i dont know to much about this like what are the undefined thinks and where do i put #includeyou should put the #include <date.au3> at the start of the script. Link to comment Share on other sites More sharing options...
helpmepls Posted February 13, 2007 Author Share Posted February 13, 2007 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 More sharing options...
MrCreatoR Posted February 13, 2007 Share Posted February 13, 2007 (edited) helpmeplsYou 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, $stopwith Dim it is the same.And please, put your code to [autоit][/autоit] tags. Thanx. Edited February 13, 2007 by MsCreatoR Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1 AutoIt Russian Community My Work... Spoiler Projects: 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 ProgramUDFs: 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 Examples: 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 ) * === My topics === * ================================================== ================================================== AutoIt is simple, subtle, elegant. © AutoIt Team Link to comment Share on other sites More sharing options...
helpmepls Posted February 13, 2007 Author Share Posted February 13, 2007 i put #include (date.au3) but still dosent do the skills thats the problem for now can someone help me Link to comment Share on other sites More sharing options...
helpmepls Posted February 13, 2007 Author Share Posted February 13, 2007 someone?????????????? Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted February 13, 2007 Moderators Share Posted February 13, 2007 (edited) 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=21048Where 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 usingP.S.Bumping your thread after 50 or so minutes, is rediculous. Edited February 13, 2007 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 More sharing options...
helpmepls Posted February 14, 2007 Author Share Posted February 14, 2007 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 Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted February 14, 2007 Moderators Share Posted February 14, 2007 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 understand2 issues could be:1. ControlSend in 3.2.2.0 I've heard isn't working right, might try the last beta for 3.12. 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 More sharing options...
helpmepls Posted March 12, 2007 Author Share Posted March 12, 2007 i really dont understand i cant fix it what are the func that are undefined and with what can i replace it?? Link to comment Share on other sites More sharing options...
Misha Posted March 12, 2007 Share Posted March 12, 2007 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf WEnd EndFunc holy potatoes whats up with that..that cant be right Link to comment Share on other sites More sharing options...
seandisanti Posted March 12, 2007 Share Posted March 12, 2007 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 More sharing options...
Moderators SmOke_N Posted March 13, 2007 Moderators Share Posted March 13, 2007 (edited) @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 March 13, 2007 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 More sharing options...
seandisanti Posted March 13, 2007 Share Posted March 13, 2007 And? Doesn't change what I said...no, but it answered your question...Where have you seen anyone or any script, use an "include" file with parenthesis? Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted March 13, 2007 Moderators Share Posted March 13, 2007 no, but it answered your question...Yep... trying to iterate and possibly caused some confusion to myself at the same time 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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now