Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program AMMF;//By Sorokya
- var z,monster1,p,h,c,x,y,ht:integer;
- const
- user='no relog';//Don't touch if you dont want to relog
- pass='no relog';
- const
- people=55031;
- Procedure Heal;
- begin
- if(findcolorspiral(x,y,16235924,0,0,173,27))then
- begin
- repeat
- keydown(112); wait(500) keyup(112)
- wait(1000);
- movemousesmooth(319,168);
- clickmouse(319,168,true);
- wait(500);
- until(findcolorspiral(x,y,44345,0,0,199,26));
- end;
- end;
- 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 relog;
- begin
- writeln('Auto Melee Mage walk by Sorokya!');
- if (findwindowtitlepart('endless online', false)=false) then
- keydown(91);wait(100);keydown(82);wait(300);
- keyup(91);wait(100);keyup(82);wait(300);
- keydown(13);wait(350);keyup(13);
- wait(1000);
- if(findwindowtitlepart('Endless Online',false))then
- activateclient;
- wait(1000);
- if(findcolorspiral (x, y, 255,17, 359, 54, 496)=false)and
- ((user='no relog')=false)then
- repeat
- clickmouse(115,362,true);
- if(findcolorspiral(x,y,10079232,0,0,380,314))then
- clickmouse(380,314,true);
- wait(500);
- clickmouse(115,362,true);
- wait(500);
- readstring(user);
- wait(500);
- keydown(9);
- wait(350);
- keyup(9);
- wait(1000);
- readstring(pass);
- keydown(13);
- wait(350);
- keyup(13);
- clickmouse(401,312,true);
- until(findcolorspiral(x,y,55031,0,0,726,299));
- wait(2000);
- keydown(49);
- wait(350);
- keyup(49);
- end;
- procedure u (upc:Integer);//done
- begin; c:=upc
- repeat; if ((findcolorspiral(x, y, people, 333, 157,361, 173)=false)
- and (findcolorspiral(x, y, 1638350, 333, 157,361, 173)=false)
- and (findcolorspiral(x, y, people, 369, 141,394, 158)=false)
- and (findcolorspiral(x, y, 1638350, 369, 141,394, 158)=false)) then
- begin sendarrowwait(0, 350);wait(400);
- c:=c-1;
- end else begin
- if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
- sendarrowwait(0, 350) end
- keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
- if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
- until (c<1);wait(400);h:=0;end;
- procedure l (lpc:Integer); //
- begin; c:=lpc
- repeat; if ((findcolorspiral(x, y, people, 274, 158, 304, 174)=false)
- and (findcolorspiral(x, y, 1638350, 274, 158, 304, 174)=false)
- and (findcolorspiral(x, y, people, 242, 140, 269, 157)=false)
- and (findcolorspiral(x, y, 1638350, 242, 140, 269, 157)=false)) then
- begin sendarrowwait(3, 350);wait(400);
- c:=c-1;
- end else begin
- if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
- sendarrowwait(3, 350) end
- keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
- if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
- until (c<1);wait(400);h:=0;end;
- procedure r (rpc:Integer); //done
- begin; c:=rpc
- repeat; if ((findcolorspiral(x, y, people, 335, 185, 367, 209)=false)
- and (findcolorspiral(x, y, 1638350, 335, 185, 367, 209)=false)
- and (findcolorspiral(x, y, people, 366, 202, 395, 222)=false)
- and (findcolorspiral(x, y, 1638350, 366, 202, 395, 222)=false)) then
- begin sendarrowwait(1, 350);wait(400);
- c:=c-1;
- end else begin
- if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
- sendarrowwait(1, 350) end
- keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
- if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
- until (c<1);wait(400);h:=0;end;
- procedure d (dpc:Integer);
- begin; c:=dpc
- repeat; if ((findcolorspiral(x, y, people, 271, 187, 305, 202)=false)
- and (findcolorspiral(x, y, 1638350, 271, 187, 305, 202)=false)
- and (findcolorspiral(x, y, people, 241, 205, 268, 221)=false)
- and (findcolorspiral(x, y, 1638350, 241, 205, 268, 221)=false)) then
- begin sendarrowwait(2, 350);wait(400);
- c:=c-1;
- end else begin
- if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
- sendarrowwait(2, 350) end
- keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
- if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
- until (c<1);wait(400);h:=0;end;
- procedure SC;
- begin wait(3000)end;
- procedure Mage;
- begin
- monster1:=1638350;
- z:=0;
- findwindowtitlepart('endless online',false);
- activateclient;
- wait(500);
- repeaT
- if(FindColorSpiral(x, y, monster1, 13, 61, 630, 332))then
- begin
- keydown(113);
- wait(20)
- keyup(113);
- clickmouse(x, y, true)
- wait(850)
- END
- until(findcolorspiral(x,y,8686724,0,0,203,132));
- end;
- procedure path;
- begin
- cleardebug;
- d(8) sc d(5) l(4) d(5) l(8) sc l(23) d(1) l(12) u(6) l(2) d(1) r(1)
- end;
- begin
- repeat
- relog;
- mage;
- heal;
- path;
- relog;
- until(false);
- end.
- end.
Add Comment
Please, Sign In to add comment