of course it will be great :D
so if i do get it right i just need to open kal blabla run botQuote:
I dont see how some of you cant get this to work, This bot is farely simple. I run vista-64bit and it runs fine for me, no expelled message. For these that get the anti chat message i sujest u get a clean version of the game becouse you must of messed with some of the files trying to use hacks/bots that you know notting about which is causeing you to have the problems you are haveing.
@PainMask when setting the health of yourself,the demons health and the demon color i have realized that u need to have the bot program on top while u are setting these. If you have clicked into the game as u are trying to set the program will not set the things u are trying to set. And yes bot works just got to know how to use it.
|
|
Const $c = @DesktopHeight
Const $a = @DesktopWidth
Const $handle = ControlGetHandle("KalOnline", "", "")
Func _suchen()
Opt("MouseClickDelay", 1)
Opt("SendKeyDownDelay", 1)
$coord = PixelSearch($a / 4, $c / 2, $a * 3 / 4, $c * 3 / 4, 0XFE01FE, 50, 2)
If Not @error Then
MouseClick($mo, $coord[0], $coord[1])
Else
$coord = PixelSearch(50, $c * 2 / 4, $a-50, $c - 50, 0XFE01FE, 50, 2)
If Not @error Then
MouseClick($mo, $coord[0], $coord[1])
Else
$coord = PixelSearch(50, $c / 2, $a / 4, $c * 3 / 4, 0XFE01FE, 50, 2)
If Not @error Then
MouseClick($mo, $coord[0], $coord[1])
Else
$coord = PixelSearch($a * 3 / 4, $c / 2, $a-50, $c * 3 / 4, 0XFE01FE, 50, 2)
If Not @error Then
MouseClick($mo, $coord[0], $coord[1])
Else
$coord = PixelSearch(50, $c * 3 / 8, $a-50, $c / 2, 0XFE01FE, 50, 2)
If Not @error Then
MouseClick($mo, $coord[0], $coord[1])
Else
$coord = PixelSearch(50, $c / 4, $a-50, $c * 3 / 8, 0XFE01FE, 50, 2)
If Not @error Then
MouseClick($mo, $coord[0], $coord[1])
Else
$coord = PixelSearch(50, $c / 8, $a-50, $c / 4, 0XFE01FE, 50, 2)
If Not @error Then
MouseClick($mo, $coord[0], $coord[1])
Else
If $b = 1 Then
Opt("SendKeyDownDelay", 1000)
ControlSend("KalOnline","",$handle, "{left}")
Else
Sleep(200)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc ;==>_suchen