fataly Posted March 8, 2008 Share 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. Link to comment Share on other sites More sharing options...
Tomb Posted March 8, 2008 Share 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. Link to comment Share on other sites More sharing options...
fataly Posted March 8, 2008 Author Share 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. 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