fataly 0 Posted March 8, 2008 I have writed some days baal bot. now i need scirpter to do killing script for me. i have used mine own: opt("PixelCoordMode", 2) opt("MouseCoordMode", 2) #include <Math.au3> opt("ColorMode", 1) While 1 WinActivate("Diablo II") HotKeySet("p","lol") Sleep(100) Send("{NUMPAD1}") Sleep(500) Send("r") Sleep(100) Send("n") Sleep(100) MouseClick("right",179,466,1,1) $Stp = 2 $X = 398 $Y = 260 $Size = 4 do Send("y") Send ("{e down}") For $R = 360 to 0 step -$Stp $Rad = _Radian ($R) $X = Sin($Rad)*$Size + $X $Y= Cos($Rad)*$Size + $Y MouseDown("left") MouseMove($X,$Y,1) Next Until wawe() = 1 or baal() = 1 if not PixelSearch(5,15,750,550,16720037,0,5) Then Mouseup("left") Send ("{e up}") $coord = PixelSearch(5,15,750,550,7565799,0,5) If Not @error Then Send("r") Sleep(500) $pos = MouseGetPos() MouseMove($coord[0],$coord[1],1) Sleep(500) MouseClick("right",$coord[0],$coord[1],1) Sleep(1500) MouseClick("left",438,315,1,1) MouseClick("left",438,315,3,1) Sleep(1500) If @error Then EndIf EndIf Send("{tab}") Exit(1) else Mouseup("left") Send ("{e up}") Do killall() Until _alldead() = 1 Sleep(100) Send("y") EndIf WEnd Exit(1) Func wawe() PixelSearch(5,15,750,550,14573857,0,5) If not @Error Then Return 1 Else Return 0 EndIf EndFunc Func baal() PixelSearch(5,15,750,550,16720037,0,5) If not @Error Then Return 1 Else Return 0 EndIf EndFunc Func lol() Exit EndFunc Func killall() ;do tele() Sleep(200) Send ("y") Sleep(100) Send ("{e down}") Sleep(50) MouseClick( "Left", 700,400,1,0 ) Sleep(500) MouseClick( "Left", 700,400,1,0 ) Sleep(500) MouseClick( "Left", 700,400,1,0 ) Sleep(500) Send ("{e up}") EndFunc Func tele() Sleep(100) Send("r") Sleep(300) $coord = PixelSearch(5,15,750,550,14573857,0,5) If Not @error Then $pos = MouseGetPos() MouseMove($coord[0],$coord[1],1) MouseClick("right",$coord[0],$coord[1],1,1) Sleep(550) EndIf EndFunc Func _alldead() PixelSearch(5,15,750,550,14573857,0,5) If @Error Then Return 1 Else Return 0 EndIf EndFunc This script miss baal color midle of waves and leave, thats why its not perfect. If some 1 make it better i can give my bot for him. Share this post Link to post Share on other sites
Tomb 3 Posted March 8, 2008 I have writed some days baal bot. now i need scirpter to do killing script for me. i have used mine own: opt("PixelCoordMode", 2) opt("MouseCoordMode", 2) #include <Math.au3> opt("ColorMode", 1) While 1 WinActivate("Diablo II") HotKeySet("p","lol") Sleep(100) Send("{NUMPAD1}") Sleep(500) Send("r") Sleep(100) Send("n") Sleep(100) MouseClick("right",179,466,1,1) $Stp = 2 $X = 398 $Y = 260 $Size = 4 do Send("y") Send ("{e down}") For $R = 360 to 0 step -$Stp $Rad = _Radian ($R) $X = Sin($Rad)*$Size + $X $Y= Cos($Rad)*$Size + $Y MouseDown("left") MouseMove($X,$Y,1) Next Until wawe() = 1 or baal() = 1 if not PixelSearch(5,15,750,550,16720037,0,5) Then Mouseup("left") Send ("{e up}") $coord = PixelSearch(5,15,750,550,7565799,0,5) If Not @error Then Send("r") Sleep(500) $pos = MouseGetPos() MouseMove($coord[0],$coord[1],1) Sleep(500) MouseClick("right",$coord[0],$coord[1],1) Sleep(1500) MouseClick("left",438,315,1,1) MouseClick("left",438,315,3,1) Sleep(1500) If @error Then EndIf EndIf Send("{tab}") Exit(1) else Mouseup("left") Send ("{e up}") Do killall() Until _alldead() = 1 Sleep(100) Send("y") EndIf WEnd Exit(1) Func wawe() PixelSearch(5,15,750,550,14573857,0,5) If not @Error Then Return 1 Else Return 0 EndIf EndFunc Func baal() PixelSearch(5,15,750,550,16720037,0,5) If not @Error Then Return 1 Else Return 0 EndIf EndFunc Func lol() Exit EndFunc Func killall() ;do tele() Sleep(200) Send ("y") Sleep(100) Send ("{e down}") Sleep(50) MouseClick( "Left", 700,400,1,0 ) Sleep(500) MouseClick( "Left", 700,400,1,0 ) Sleep(500) MouseClick( "Left", 700,400,1,0 ) Sleep(500) Send ("{e up}") EndFunc Func tele() Sleep(100) Send("r") Sleep(300) $coord = PixelSearch(5,15,750,550,14573857,0,5) If Not @error Then $pos = MouseGetPos() MouseMove($coord[0],$coord[1],1) MouseClick("right",$coord[0],$coord[1],1,1) Sleep(550) EndIf EndFunc Func _alldead() PixelSearch(5,15,750,550,14573857,0,5) If @Error Then Return 1 Else Return 0 EndIf EndFunc This script miss baal color midle of waves and leave, thats why its not perfect. If some 1 make it better i can give my bot for him. does checking pixels really give consistent enough results to use for a game bot? i see pixel search not work for a simple bmp image in a gui. people will often say that it will turn up different results alot. and your talking about using it for a continuously changing video game diablo II. Share this post Link to post Share on other sites
fataly 0 Posted March 8, 2008 its work nice, but some games its see color but its retun 1 and leave, Why? i use modde tiles so baal is only red block and its is pure red all time, and its not have animation. Share this post Link to post Share on other sites
