program Hser;
var x, y,ptx, pty, t, tt, yourhighspeed:integer;
const
user='test';
pass='test';
share=0;
{by Joeyroyden - eobots-online.com}
Procedure ReadString(str: String);{by rena: START}
var
i,strLength :Integer;
goer: Boolean;

begin
i:=1
strLength:=Length(str)
goer:=False
while(i<strLength+1) do
begin
if(GetKeyCode(StrGet(str,i))=191)then
begin
KeyDown(16)
goer:=True
i:=i+1
end;
KeyDown(GetKeyCode(StrGet(str,i)))
wait(10)
KeyUp(GetKeyCode(StrGet(str,i)))
wait(100)
KeyUp(GetKeyCode(StrGet(str,i)))
wait(50)
i:=i+1{smoke weed everyday =) eobots-online.com}
if(goer=True)then
begin
KeyUp(16)
wait(600)
end;
end;
wait(300)
end;{by rena: END}

Procedure relog;
var char:integer;
begin  //
char:=1
keydown(118);wait(100);keyup(118);wait(100)
clickmouse(600, 50, true);wait(100);
findcolorspiral2(x, y, 10079232, 10, 10, 640, 350);clickmouse(x, y, true)
wait(1000)
repeat{by Joeyroyden - eobots-online.com}
clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700)
until (findcolorspiral (x, y, 255,17, 359, 54, 496)=false)
repeat clickmouse(115, 375, true);wait(500)
until ((findcolorspiral(x, y, 255, 276, 322,575, 343)) or
(findcolorspiral(x, y, 10079232, 358, 307, 449, 332)))
clickmouse(414, 353, true);wait(500);
if(findcolorspiral (x, y, 255,17, 359, 54, 496)=false)then begin;
readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500)
clickmouse(409, 428, true);wait(3000);end
if findcolorspiral(x, y, 10079232,357, 305, 444, 333) then begin
clickmouse(380, 315, true);wait(500);pty:=4545 end

if ((findcolorspiral(x, y, 255,280, 323, 574, 343)=false)and(pty=4545)=false )
then begin{by Joeyroyden - eobots-online.com}
wait(500);clickmouse(534, (124*(char)), true);wait(500);
repeat until((findcolorspiral (x, y, 255,17, 359, 54, 496))OR
(findcolorspiral(x, y, 255,280, 323, 574, 343))) end
pty:=0  ;wait(500);
clickmouse(608, 446, true)
wait(500)
if (findcolorspiral(x, y,13158600,465, 455, 469, 459)=false) then begin
if (not(share=1))then begin
clickmouse(567, 461, true);wait(200)
end
end
if (findcolorspiral(x, y,13158600,465, 455, 469, 459)) then begin
if (share=1)then begin
clickmouse(567, 461, true);wait(200)
end{by Joeyroyden - eobots-online.com}
wait(100);clickmouse(80,446,true);wait(100)
end
end;


begin

t:=0
tt:=50
yourhighspeed:=4

findwindowtitlepart('endless online', false)
activateclient; WAIT(500)

repeat


if(FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
clickmouse(78, 364, true)
if findcolorspiral(ptx, pty, 32896,114, 364, 476, 468)then begin
clickmouse(ptx, pty, true)
wait(8)
clickmouse(ptx, pty, true)
sleep (150)
end
end


if isfkeydown(6) then begin
keydown(119);wait(100*(yourhighspeed/2));keyup(119);wait(100)
repeat
if(FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
clickmouse(78, 364, true)
if findcolorspiral(ptx, pty, 32896,114, 364, 476, 468)then begin
clickmouse(ptx, pty, true)
wait(8*(yourhighspeed/2))
clickmouse(ptx, pty, true)
sleep (150*(yourhighspeed/2))
end
end
wait(50*(yourhighspeed/2))
t:=t+1
writeln(inttostr(t))
if t=tt then begin
t:=0
keydown(118);wait(100);keyup(118);wait(100)
keydown(119);wait(100*(yourhighspeed/2));keyup(119);wait(100)
end
if isfkeydown(4) then relog
until isfkeydown(5)
keydown(118);wait(300);keyup(118);wait(100)
keydown(118);wait(100);keyup(118);wait(100)
end
if isfkeydown(4) then relog
wait(50)
until (x=50000000)


end.