Guest User

Untitled

a guest
Sep 14th, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.53 KB | None | 0 0
  1. Program AMMF;//By Sorokya
  2. var z,monster1,p,h,c,x,y,ht:integer;
  3. const
  4. user='no relog';//Don't touch if you dont want to relog
  5. pass='no relog';
  6. const
  7. people=55031;
  8.  
  9.  
  10. Procedure Heal;
  11. begin
  12. if(findcolorspiral(x,y,16235924,0,0,173,27))then
  13. begin
  14. repeat
  15. keydown(112); wait(500) keyup(112)
  16. wait(1000);
  17. movemousesmooth(319,168);
  18. clickmouse(319,168,true);
  19. wait(500);
  20. until(findcolorspiral(x,y,44345,0,0,199,26));
  21. end;
  22. end;
  23.  
  24.  
  25.  
  26. Procedure ReadString(str: String);{by rena: START}
  27. var
  28. i,strLength :Integer;
  29. goer: Boolean;
  30.  
  31. begin
  32. i:=1
  33. strLength:=Length(str)
  34. goer:=False
  35. while(i<strLength+1) do
  36. begin
  37. if(GetKeyCode(StrGet(str,i))=191)then
  38. begin
  39. KeyDown(16)
  40. goer:=True
  41. i:=i+1
  42. end;
  43. KeyDown(GetKeyCode(StrGet(str,i)))
  44. wait(50)
  45. KeyUp(GetKeyCode(StrGet(str,i)))
  46. wait(100)
  47. KeyUp(GetKeyCode(StrGet(str,i)))
  48. wait(50)
  49. i:=i+1
  50. if(goer=True)then
  51. begin
  52. KeyUp(16)
  53. wait(600)
  54. end;
  55. end;
  56. wait(300)
  57. end;{by rena: END}
  58.  
  59.  
  60. procedure relog;
  61. begin
  62. writeln('Auto Melee Mage walk by Sorokya!');
  63. if (findwindowtitlepart('endless online', false)=false) then
  64. keydown(91);wait(100);keydown(82);wait(300);
  65. keyup(91);wait(100);keyup(82);wait(300);
  66. keydown(13);wait(350);keyup(13);
  67. wait(1000);
  68. if(findwindowtitlepart('Endless Online',false))then
  69. activateclient;
  70. wait(1000);
  71. if(findcolorspiral (x, y, 255,17, 359, 54, 496)=false)and
  72. ((user='no relog')=false)then
  73. repeat
  74. clickmouse(115,362,true);
  75. if(findcolorspiral(x,y,10079232,0,0,380,314))then
  76. clickmouse(380,314,true);
  77. wait(500);
  78. clickmouse(115,362,true);
  79. wait(500);
  80. readstring(user);
  81. wait(500);
  82. keydown(9);
  83. wait(350);
  84. keyup(9);
  85. wait(1000);
  86. readstring(pass);
  87. keydown(13);
  88. wait(350);
  89. keyup(13);
  90. clickmouse(401,312,true);
  91. until(findcolorspiral(x,y,55031,0,0,726,299));
  92. wait(2000);
  93. keydown(49);
  94. wait(350);
  95. keyup(49);
  96. end;
  97.  
  98. procedure u (upc:Integer);//done
  99. begin; c:=upc
  100. repeat; if ((findcolorspiral(x, y, people, 333, 157,361, 173)=false)
  101. and (findcolorspiral(x, y, 1638350, 333, 157,361, 173)=false)
  102. and (findcolorspiral(x, y, people, 369, 141,394, 158)=false)
  103. and (findcolorspiral(x, y, 1638350, 369, 141,394, 158)=false)) then
  104. begin sendarrowwait(0, 350);wait(400);
  105. c:=c-1;
  106. end else begin
  107. if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
  108. sendarrowwait(0, 350) end
  109. keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
  110. if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
  111. until (c<1);wait(400);h:=0;end;
  112.  
  113. procedure l (lpc:Integer); //
  114. begin; c:=lpc
  115. repeat; if ((findcolorspiral(x, y, people, 274, 158, 304, 174)=false)
  116. and (findcolorspiral(x, y, 1638350, 274, 158, 304, 174)=false)
  117. and (findcolorspiral(x, y, people, 242, 140, 269, 157)=false)
  118. and (findcolorspiral(x, y, 1638350, 242, 140, 269, 157)=false)) then
  119. begin sendarrowwait(3, 350);wait(400);
  120. c:=c-1;
  121. end else begin
  122. if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
  123. sendarrowwait(3, 350) end
  124. keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
  125. if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
  126. until (c<1);wait(400);h:=0;end;
  127.  
  128. procedure r (rpc:Integer); //done
  129. begin; c:=rpc
  130. repeat; if ((findcolorspiral(x, y, people, 335, 185, 367, 209)=false)
  131. and (findcolorspiral(x, y, 1638350, 335, 185, 367, 209)=false)
  132. and (findcolorspiral(x, y, people, 366, 202, 395, 222)=false)
  133. and (findcolorspiral(x, y, 1638350, 366, 202, 395, 222)=false)) then
  134. begin sendarrowwait(1, 350);wait(400);
  135. c:=c-1;
  136. end else begin
  137. if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
  138. sendarrowwait(1, 350) end
  139. keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
  140. if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
  141. until (c<1);wait(400);h:=0;end;
  142.  
  143. procedure d (dpc:Integer);
  144. begin; c:=dpc
  145. repeat; if ((findcolorspiral(x, y, people, 271, 187, 305, 202)=false)
  146. and (findcolorspiral(x, y, 1638350, 271, 187, 305, 202)=false)
  147. and (findcolorspiral(x, y, people, 241, 205, 268, 221)=false)
  148. and (findcolorspiral(x, y, 1638350, 241, 205, 268, 221)=false)) then
  149. begin sendarrowwait(2, 350);wait(400);
  150. c:=c-1;
  151. end else begin
  152. if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
  153. sendarrowwait(2, 350) end
  154. keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
  155. if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
  156. until (c<1);wait(400);h:=0;end;
  157.  
  158. procedure SC;
  159. begin wait(3000)end;
  160.  
  161. procedure Mage;
  162. begin
  163. monster1:=1638350;
  164. z:=0;
  165. findwindowtitlepart('endless online',false);
  166. activateclient;
  167. wait(500);
  168. repeaT
  169. if(FindColorSpiral(x, y, monster1, 13, 61, 630, 332))then
  170. begin
  171. keydown(113);
  172. wait(20)
  173. keyup(113);
  174. clickmouse(x, y, true)
  175. wait(850)
  176. END
  177. until(findcolorspiral(x,y,8686724,0,0,203,132));
  178. end;
  179.  
  180. procedure path;
  181. begin
  182. cleardebug;
  183. 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)
  184. end;
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194. begin
  195. repeat
  196. relog;
  197. mage;
  198. heal;
  199. path;
  200. relog;
  201. until(false);
  202. end.
  203.  
  204. end.
Add Comment
Please, Sign In to add comment