Program AMMH;
var www,y1,x1,hitcount,z,w,HitCountReset,Facing,TargetDir,people,monster,
hpcolor,x,y,monstercount,monsters,Ice_cold,Icyhawt,exp,clicker,Facing,Tapped:integer;

const
user=''; //username
pass=''; //password
cchar=1;
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(50)
KeyUp(GetKeyCode(StrGet(str,i)))
wait(100)
KeyUp(GetKeyCode(StrGet(str,i)))
wait(50)
i:=i+1
if(goer=True)then
begin
KeyUp(16)
wait(600)
end;
end;
wait(300)
end;{by rena: END}
procedure w2(ww:integer); //1=butterflys
begin //2=nutvipers1
www:=ww*100 //3=nutvipers2
repeat
www:=www-100
cleardebug
writeln('Waiting: '+ inttostr(www/100))
wait(210)
until www=0
end;
procedure  check_clock;
begin
findwindowtitlepart('date and time properties', false);
activateclient
writeln('resetting clock')
w2(1)
keyup(17)
wait(250)
keyup(17)
writeln('now clicking *9* on clock')
clickmouse(261,239,true)
wait(50)
clickmouse(261,239,true)
wait(1500)
ReadString('9')
w2(1)
ReadString('9')
w2(5)
clickmouse(356,324,true)
wait(1000)
findwindowtitlepart('endless online',false)
activateclient
wait(1000)
keydown(17)
wait(150)
end;
procedure onme; // tells if monster is ontop of you
    begin
    If Findcolor(x,y,Monster,306,173,312,189)
    then
    begin
    keydown(123)
    wait(10)
    keyup(123)
    wait(10)
    keydown(40)
    wait(500)
    keyup(40)
    wait(500)
    end
    end;
procedure relog;
begin
keyUp(17)
wait(500)
clickmouse(600, 50, true)
wait(50)
clickmouse(330, 225, true)
wait(250)
clickmouse(140, 365, true)
wait(1000)
clickmouse(415, 353, true)
wait(50)
readstring(user);
wait(250)
clickmouse(410, 390, true)
wait(50)
readstring(pass);
wait(150)
clickmouse(400, 425, true)
wait(2000)
clickmouse(534, (130*(cchar)), true)
wait(750)
clickmouse(78, 364, true)
if findcolor(x,y,green,365,310,370,315) then begin
clickmouse(365, 310, true)
relog
end;



var mode:string;
procedure ScriptStatus2;
begin
cleardebug;
writeln(mode)
writeln('Hits:'+ inttostr(hitcount)+' - Facing:'+inttostr(facing)+' - Target:'+
inttostr(TargetDir)+' - Monsters:'+ inttostr(monsters)+' - Antifreeze:'+ inttostr(Ice_cold))
if(clicker=0)and(findcolorspiral(x,y,255,41,490,41,490))
then
begin
wait(500)
clickmouse(79,468,true)
clicker:=1
end
if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
else
end;
procedure check_dc;
begin
if(FindColorSpiral(x1, y1, 10276608, 30, 55, 619, 328))then
begin
wait(500)
clickmouse(434,235,true)
relog
keydown(120)
wait(20)
keyup(120)
wait(120)
end
end;
procedure ScriptStatus;
begin
cleardebug;
writeln(mode)
writeln('Hits:'+ inttostr(hitcount)+' - Facing:'+inttostr(facing)+' - Target:'+
inttostr(TargetDir)+' - Monsters:'+ inttostr(monsters)+' - Antifreeze:'+ inttostr(Ice_cold)
+' - Script Made By Yupe')
check_dc
if(clicker=0)and(findcolorspiral(x,y,255,41,490,41,490))
then
begin
wait(300)
end
if (user='no relog')
then
begin
writeln('Might as well terminate script, no relog available')
writeln('Terminating script, KBAI')
terminatescript
end
if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
else
end;
Procedure Monstercounter;
begin
monsters:=monsters-1
scriptstatus
if monsters<1 then begin
readstring('1')
keyup(120)
wait(200)
keyup(120)
relog
keydown(120)
wait(200)
keyup(120)
wait(200)
keyup(120)
Ice_cold:=Icyhawt
monsters:=monstercount
end
end;
Procedure NextArrow;
begin
hitcount:=hitcount-1
wait(5)
if hitcount<0 then begin
Keyup(17);wait(50);Keyup(17);wait(200);
sendarrowwait(TargetDir, 200) Facing:=TargetDir
hitcount:=HitCountReset keydown(17) end
end;
Procedure Antifreeze;
begin
Ice_cold:=Ice_cold-1
wait(50)
scriptstatus
if Ice_cold<0 then begin
keyup(50)
wait(50)
keydown(49)
wait(50)
keyup(49)
wait(199)
keyup(120)
wait(200)
keyup(120)
relog
keydown(120)
wait(200)
keyup(120)
wait(200)
keyup(120)
monsters:=monstercount
Ice_cold:=Icyhawt
monsters:=monsters+1
end
end;

procedure autopot;
begin
If findcolorspiral(x, y, hpcolor, 150, 24, 153, 40) then begin
clickmouse(78, 364, true);wait(200)
if findcolorspiral(x, y, 33412,114, 364, 476, 468)then begin
clickmouse(x, y, true)
wait(8)
clickmouse(x, y, true)
sleep (1)
end
end
end;
Procedure heal;
begin
if(findcolorspiral(x,y,hpcolor,158,35,197,35))
and(findcolorspiral(x,y,monster,240,140,406,231)=false)
then
begin
wait(1000)
repeat
keydown(114)
Wait(50)
keyup(114)
wait(50)
scriptstatus
until(findcolorspiral(x,y,hpcolor,58,35,199,35)=false)
or(findcolorspiral(x,y,monster,240,140,406,231))
end
end;

procedure left;
begin
If FindColor(x,y,Monster,288,158,292,162)
then
begin
TargetDir:=3
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir,100) Facing:=TargetDir end
keydown(17)
repeat
keydown(50)
nextarrow;
scriptstatus;
keydown(50)
antifreeze;
autopot;
Until (Not(FindColor(x,y,Monster,288,158,292,162)))
wait(10)
Keyup(17);
wait(50);
Keyup(17);
wait(50);
keyup(49);
hitcount:=hitcountreset
wait(100);
ice_cold:=icyhawt
keydown(49)
wait(10)
keyup(49)
monstercounter
end;
end;
procedure right;
begin
If (FindColor(x,y,Monster,342,188,348,194))
then
begin
TargetDir:=1
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
keydown(17)
repeat
keydown(50)
nextarrow;
scriptstatus;
keydown(50)
antifreeze;
autopot;
Until (Not(FindColor(x,y,Monster,342,188,348,194)))
Keyup(17);
wait(50);
Keyup(17);
wait(50)
keyup(50)
hitcount:=hitcountreset
wait(50);
keydown(49)
ice_cold:=icyhawt
monstercounter
keydown(49)
keyup(49)
end
end;
procedure up;
begin
If FindColor(x,y,Monster,343,158,347,162)
then
begin
TargetDir:=0
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
keydown(17)
repeat
keydown(50)
nextarrow;
scriptstatus;
keydown(50)
antifreeze;
autopot;
Until (Not(FindColor(x,y,Monster,343,158,347,162)))
Keyup(17);
wait(50);
Keyup(17);wait(50);keyup(50)
hitcount:=hitcountreset
wait(50);
keydown(49)
ice_cold:=icyhawt
monstercounter
keydown(49)
keyup(49)
end
end;
procedure down;
begin
If FindColor(x,y,Monster,288,195,292,196)
then
begin
TargetDir:=2
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
keydown(17)
repeat
keydown(50)
nextarrow;
scriptstatus;
keydown(50)
antifreeze;
autopot;
Until (Not(FindColor(x,y,Monster,288,189,292,193)))
Keyup(17);wait(50);Keyup(17);wait(50);keyup(50) hitcount:=hitcountreset wait(50);
keydown(49)
ice_cold:=icyhawt
monstercounter
keydown(49)
keyup(49)
end
end;
procedure Mage;
begin
If FindColorSpiral(x,y,Monster,15,65,625,332)then
begin
KeyUp(117)
KeyDown(113)
Wait(50)
KeyUp(113)
Wait(10)
ClickMouse(x,y,True)
Wait(10)
end
end;

procedure settings; begin end;{v---Down below(settings)}

begin
writeln(' Yupe Hs Script ')
wait(1000)
findwindowtitlepart('endless online',false)
activateclient
{MAKE SURE DATE/TIME PROPERTIES IS OPEN!!!!!}

{---Hotkeys should be
{Hotkey #1 should be +1 and set on "f5"}
{Hotkey #2 should be +Whatever and set on "f6"}
{Hotkey #3 should be +5.27 and set on "f7"}
{----------------------------------------------------------------}
//Personal settings

HitCountReset:=14
Monstercount:=15 //How many monsters to kill before automatically relogging
Icyhawt:=20 //Anti-freeze, justify how long of a wait it is,
//and enter how long you would like it to be, etc
people:=55287;//Yellow stuff that is on people in the eobots client, or w/e
hpcolor:=16236180; //The blue HP bar stuff
monster:=1638350; //You know this.

//Username/Password input can be found at top
{---------------------------------------------------------------}
{What may need editing:
Check_dc
Potions
Heal
Relog
Mabye a few other things
}
targetdir:=5
Facing:=5
Ice_cold:=Icyhawt;
monsters:=monstercount
hitcount:=hitcountreset
scriptstatus

repeat
left
right
up
down
Mage
autopot
heal
onme
scriptstatus
check_dc

until(false)
end.