Macro for rogue. with auto wolf
Posted: July 22nd, 2004, 10:54 am
using this with autoit 3
For $i = 1 to 100000000
WinWaitActive("Knight OnLine Client")
$wolfTime = 120000
if Round($wolfTime, -2) >= 115000 then
Send ( "3" , 1 )
$wolfTime = 0
Sleep(2000)
endif
Do
$wolfTimer = TimerStart()
Sleep(200)
$far = PixelGetColor ( 785, 679 )
if $far = 65535 then
Send ( "z" , 1 )
endif
Do
$far = PixelGetColor ( 785, 679 )
if $far = 65535 then
Send ( "z" , 1 )
endif
$colour = PixelGetColor ( 469, 49 )
$attack = PixelGetColor ( 445, 755 )
call ("attack")
Until $colour <> 2237098
Send ( "6" , 1 )
$mana = PixelGetColor ( 210,27 )
if $mana = 0 then
Send ( "4" , 1 )
endif
$wolfTime = $wolfTime + TimerStop($wolfTimer)
Until Round($wolfTime, -2) >= 115000
if Round($wolfTime, -2) >= 120000 then
Send ( "5" , 1 )
Sleep(1000)
else
Send ( "5" , 1 )
Send ( "c" , 1 )
sleep(5000)
endif
Next
Func attack()
if $colour = 2237098 then
if $attack <> 14492160 then
$attacked = PixelGetColor ( 255, 10 )
if $attacked <> 2241518 then
Send ( "6" , 1 )
Sleep(10)
$colour = PixelGetColor ( 469, 49 )
else
Send ( "6" , 1 )
Sleep(10)
$colour = PixelGetColor ( 469, 49 )
endif
$hp = PixelGetColor ( 200, 10 )
if $hp = 0 then
Send ( "1" , 1 )
endif
endif
endif
EndFunc
For $i = 1 to 100000000
WinWaitActive("Knight OnLine Client")
$wolfTime = 120000
if Round($wolfTime, -2) >= 115000 then
Send ( "3" , 1 )
$wolfTime = 0
Sleep(2000)
endif
Do
$wolfTimer = TimerStart()
Sleep(200)
$far = PixelGetColor ( 785, 679 )
if $far = 65535 then
Send ( "z" , 1 )
endif
Do
$far = PixelGetColor ( 785, 679 )
if $far = 65535 then
Send ( "z" , 1 )
endif
$colour = PixelGetColor ( 469, 49 )
$attack = PixelGetColor ( 445, 755 )
call ("attack")
Until $colour <> 2237098
Send ( "6" , 1 )
$mana = PixelGetColor ( 210,27 )
if $mana = 0 then
Send ( "4" , 1 )
endif
$wolfTime = $wolfTime + TimerStop($wolfTimer)
Until Round($wolfTime, -2) >= 115000
if Round($wolfTime, -2) >= 120000 then
Send ( "5" , 1 )
Sleep(1000)
else
Send ( "5" , 1 )
Send ( "c" , 1 )
sleep(5000)
endif
Next
Func attack()
if $colour = 2237098 then
if $attack <> 14492160 then
$attacked = PixelGetColor ( 255, 10 )
if $attacked <> 2241518 then
Send ( "6" , 1 )
Sleep(10)
$colour = PixelGetColor ( 469, 49 )
else
Send ( "6" , 1 )
Sleep(10)
$colour = PixelGetColor ( 469, 49 )
endif
$hp = PixelGetColor ( 200, 10 )
if $hp = 0 then
Send ( "1" , 1 )
endif
endif
endif
EndFunc