Script For Making Farming Bot

10/23/2012 11:10 marvin442#1
use Autoit to compile and to run



ProgressOn("unknown hack", "LOADING SCRIPT", "0 percent")
For $i = 0 To 100 Step 1
Sleep(70)
ProgressSet($i, $i & " percent")
Next
ProgressSet(100, "Done", "Complete")
Sleep(500)
ProgressOff()
$xTop = 496
$yTop = 110
$xBot = 1271
$yBot = 579

$mobcolor = "0xD1DB0A"

$xMyHp = 849
$yMyHp = 45
$myHpColor = "0xFF1C13"

$xMobHp = 905
$yMobHp = 50
$MobHpColor = "0xE19D00"
sleep(5000)
while 1

$coord = PixelSearch($xTop,$yTop,$xBot,$yBot,$mobcolor,5)
$n = @error
If NOT @error Then
while $n = 0
$x = $coord[0]
$y = $coord[1] + 60
MouseClick("left", $x, $y, 1)
$alive = PixelGetColor ( $xMobHp, $yMobHp);

If $alive = $MobHpColor Then
ExitLoop
EndIf

; $coord = PixelSearch($xTop,$yTop,$xBot,$yBot,$yellowmob,5)
; $n = @error
wend


If $alive = $MobHpColor then
while $alive = $MobHpColor
Send("1")
Sleep(1000)
$getHp = PixelGetColor ( $xMyHp, $yMyHp);

if $getHp <> $myHpColor then
Sleep(200)
Send("0")
Sleep(100)
EndIf

$alive = PixelGetColor ( $xMobHp, $yMobHp);

Send("{Space}")
Sleep(200)
Send("{Space}")
Sleep(200)
wend
EndIf

else
$buff = Random(2, 9, 1)
Send($buff)
Endif
Wend
10/23/2012 14:26 xXHackerBeenBannedXx#2
can use in cabal sea