Goldenbender
Admin
Posts: 16
Join date: 2008-09-02
Age: 17
Location: Australia
 |  Subject: Simple AutoPot  Tue Oct 28, 2008 11:17 am | |
| | Code: | program New; //By Extract
var x, y:integer;
begin
findwindowtitlepart('endless online', false)
activateclient;
wait(500)
repeat
if(FindColorSpiral(x, y, 16235924, 163, 27, 165, 33))then
begin
writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (250)
end
until(isfkeydown(8))
end. |
|
|
