Sign in to follow this  
Followers 0
fataly

Looking for scripter

3 posts in this topic

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



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

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

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
Sign in to follow this  
Followers 0