Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- 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;//relog procedure/////////////////////
- begin
- if (not(user='no relog')) then
- begin
- writeln('wat?')
- w2(2)
- keyup(50)
- wait(20)
- clickmouse(600,50,true)
- wait(200)
- clickmouse(323,224,true)
- wait(1500)
- begin
- clicker:=0;
- keydown(120)
- wait(50)
- keyup(120)
- wait(100)
- keyup(120)
- wait(100)
- check_clock
- wait(200)
- findwindowtitlepart('endless online', false);
- activateclient
- wait(500)
- repeat
- clickmouse(110,369,true)
- w2(2)
- clickmouse(434, 235,true)
- until(FindColorspiral2(x,y,255,370, 335,370, 355))
- or
- (findcolorspiral(x,y,10276608,435,317,435,317))
- end
- begin
- if(findcolorspiral(x,y,10276608,435,317,435,317))then
- clickmouse(435,317,true)
- wait(500)
- end
- if(findcolorspiral(x,y,255,18,382,19,382)=false)
- then
- repeat
- clickmouse(110,369,true)
- w2(2)
- until(FindColorspiral2(x,y,255,370, 335,370, 355)) or
- (findcolorspiral(x,y,10276608,435,317,435,317))
- begin if(findcolorspiral(x,y,10276608,435,317,435,317))then
- clickmouse(435,317,true)
- wait(500)
- clickmouse(110,369,true)
- w2(2)
- end
- begin
- repeat
- w2(2)
- clickmouse(184,370,true)
- clickmouse(413,351,true)
- wait(20)
- ReadString(user)
- wait(1500)
- clickmouse(430,391,true)
- w2(2)
- wait(1500);
- ReadString(pass)
- clickmouse(408,435,true)
- wait(300)
- clickmouse(371,318,true)
- wait(500)
- until(findcolorspiral(x,y,people,402,143,402,143))
- end
- begin
- repeat
- clickmouse(408,435,true)
- w2(2)
- until(findcolorspiral(x,y,people,402,143,402,143))
- end
- repeat
- w2(5)
- until(findcolorspiral(x,y,people,402,143,402,143))
- clickmouse(540,130,true)
- w2(5)
- keyup(17)
- Ice_cold:=Icyhawt
- monsters:=monstercount+1
- end
- end;
- //end relog procedure////////////////////////////////////
- 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
- keydown(49)
- wait(50)
- keyup(49)
- Wait(50)
- 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 "1"}
- {Hotkey #2 should be +Whatever and set on "2"}
- {Hotkey #3 should be +5.27 and set on "f7"}
- {----------------------------------------------------------------}
- //Personal settings
- HitCountReset:=14
- Monstercount:=20 //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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement