API tools faq
paste
Guest User

Untitled

a guest
Dec 26th, 2017
147
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.60 KB | None | 0 0
raw download clone embed print report
  1. { AutoArcher - Scripted by Joeyroyden, Assisted by Console }
  2. { Unlike any script on EoBots, I've designed this one with mass compatibility in mind }
  3. { PLEASE CHANGE YOUR WINDOWS SYSTEM COLOR DEPTH TO 16-BIT }
  4. { Script tested in Windows Vista and Windows XP }
  5. // Fire on F2, heal on F1, set healtype in setting box (hint, click set_variables over there) ===>
  6. { EoBots Auto Client 28.5 is required }
  7.  
  8. {Built in hotkeys}
  9. // F1 + F3
  10. // Point your cursor at any item you want to buy alot of and press f1+d3
  11. // together to buy until your full. Hold F2 and F4 to stop buying
  12.  
  13.  
  14. program EoBots_AutoArcher;
  15. var hitcount, x, y, MonsterMelee, facing, targetdir, hitcountreset, ks0, ks1, ks2, ks3,
  16. ksx, ksy, kscolor, ksm, ksm1, ksm2, ksm3, ksm4, reloglock, sharecolor, okbutton, junk,
  17. ww,www, pty, monster_on_screen, antimurder_speed, Antimurder_default ,char,damagecolor,
  18. hpx, hpy, ptx, pty, ptts, squareonpots, HpColor, smallpot, healtype, drops, auto_junk,
  19. attackside0,attackside1,attackside2,attackside3, healing, x7, y7, buypotsX, buypotsY,
  20. focus:integer; //Notes for Console, erase when releasing
  21.  
  22. var mode, version:string;
  23.  
  24. var KsZone:Tbox;
  25. const
  26. //- RELOGING FEATURES - DO NOT TOUCH IF YOU DO NOT WISH TO USE THIS -\\
  27.  
  28. user='';
  29. pass='';
  30. character=1;
  31.  
  32.  
  33. //- FOR HEAVENS SAKE REPLACE YOUR INFO WITH 'no relog' WHEN SHARING SCRIPT -\\
  34. //- EoBots-online.com, Joeyroyden nor any of our team -\\
  35.  
  36.  
  37.  
  38. Procedure ReadString(str: String);{by rena: START}
  39. var
  40. i,strLength :Integer;
  41. goer: Boolean;
  42.  
  43. begin
  44. i:=1
  45. strLength:=Length(str)
  46. goer:=False
  47. while(i<strLength+1) do
  48. begin
  49. if(GetKeyCode(StrGet(str,i))=191)then
  50. begin
  51. KeyDown(16)
  52. goer:=True
  53. i:=i+1
  54. end;
  55. KeyDown(GetKeyCode(StrGet(str,i)))
  56. wait(50)
  57. KeyUp(GetKeyCode(StrGet(str,i)))
  58. wait(100)
  59. KeyUp(GetKeyCode(StrGet(str,i)))
  60. wait(50)
  61. i:=i+1
  62. if(goer=True)then
  63. begin
  64. KeyUp(16)
  65. wait(600)
  66. end;
  67. end;
  68. wait(300)
  69. end;{by rena: END}
  70.  
  71.  
  72.  
  73. procedure w2(ww:integer);
  74. begin
  75. www:=ww*100
  76. repeat
  77. www:=www-100
  78. cleardebug
  79. writeln('Waitting: '+ inttostr(www/100))
  80. wait(100)
  81. until www=0
  82. end;
  83.  
  84.  
  85.  
  86. procedure StayAlive;
  87. begin
  88.  
  89. If findcolorspiral(hpx, hpy, hpcolor, 149, 24, 152, 40) then begin
  90. clickmouse(78, 364, true);wait(200)
  91. if findcolorspiral(ptx, pty, SquareOnPots,114, 364, 476, 468)then begin
  92. clickmouse(ptx, pty, true)
  93. wait(8)
  94. clickmouse(ptx, pty, true)
  95. sleep (350)
  96. ptts:=ptts+1
  97. end
  98. end
  99.  
  100. end;
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107. Procedure NextArrow;
  108. begin
  109. hitcount:=hitcount-1
  110. wait(50)
  111. if hitcount<0 then begin
  112. Keyup(17);wait(50);Keyup(17);wait(200);
  113. sendarrowwait(TargetDir, 200) Facing:=TargetDir
  114. hitcount:=HitCountReset keydown(17) end
  115. end;
  116.  
  117. Procedure relog;
  118. begin
  119. char:=character
  120.  
  121. clickmouse(600, 50, true);wait(500);
  122. if findcolorspiral2(x, y, OkButton, 10, 10, 640, 350) then clickmouse(x, y, true)
  123. wait(1000)
  124. repeat
  125. clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700)
  126. until (findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)
  127. repeat clickmouse(115, 375, true);w2(20)
  128. until ((findcolorspiral(x, y, reloglock, 276, 322,575, 343)) or
  129. (findcolorspiral(x, y, OkButton, 358, 307, 449, 332)))
  130. clickmouse(414, 353, true);wait(500);
  131. if(findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)then begin;
  132. readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500)
  133. clickmouse(409, 428, true);w2(30);end
  134. if findcolorspiral(x, y, OkButton,357, 305, 444, 333) then begin
  135. clickmouse(380, 315, true);wait(500);pty:=4545 end
  136.  
  137. if ((findcolorspiral(x, y, reloglock,280, 323, 574, 343)=false)and(pty=4545)=false )
  138. then begin
  139. wait(500);clickmouse(534, (128*(char)), true);wait(500);
  140. repeat until((findcolorspiral (x, y, reloglock,17, 359, 54, 496))OR
  141. (findcolorspiral(x, y, reloglock,280, 323, 574, 343))) end
  142. pty:=0 ;wait(500);
  143. clickmouse(608, 446, true)
  144. wait(500)
  145. if (findcolorspiral(x, y,sharecolor,465, 455, 469, 459)=false) then begin
  146. clickmouse(567, 461, true);wait(200)
  147. end
  148. monster_on_screen:=antimurder_default
  149. end; //
  150. Procedure login;
  151. begin
  152. char:=character
  153. repeat
  154. clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700)
  155. until (findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)
  156. repeat clickmouse(115, 375, true);w2(20)
  157. until ((findcolorspiral(x, y, reloglock, 276, 322,575, 343)) or
  158. (findcolorspiral(x, y, OkButton, 358, 307, 449, 332)))
  159. clickmouse(414, 353, true);wait(500);
  160. if(findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)then begin;
  161. readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500)
  162. clickmouse(409, 428, true);w2(30);end
  163. if findcolorspiral(x, y, OkButton,357, 305, 444, 333) then begin
  164. clickmouse(380, 315, true);wait(500);pty:=4545 end
  165.  
  166. if ((findcolorspiral(x, y, reloglock,280, 323, 574, 343)=false)and(pty=4545)=false )
  167. then begin
  168. wait(500);clickmouse(534, (128*(char)), true);wait(500);
  169. repeat until((findcolorspiral (x, y, reloglock,17, 359, 54, 496))OR
  170. (findcolorspiral(x, y, reloglock,280, 323, 574, 343))) end
  171. pty:=0 ;wait(500);
  172. clickmouse(608, 446, true)
  173. wait(500)
  174. if (findcolorspiral(x, y,sharecolor,465, 455, 469, 459)=false) then begin
  175. clickmouse(567, 461, true);wait(200)
  176. end
  177.  
  178. monster_on_screen:=antimurder_default
  179.  
  180. end; //
  181.  
  182. procedure ScriptStatus;
  183. begin
  184. cleardebug;
  185. writeln(mode)
  186. writeln('Arrow:'+ inttostr(hitcount)+' - Facing:'+inttostr(facing)+' - Target:'+
  187. inttostr(TargetDir))
  188. writeln('KsControls - Up: '+Inttostr(Ks0)+' Down: '+Inttostr(Ks2)+' Right: '+
  189. Inttostr(Ks1)+' Left: '+Inttostr(Ks3))
  190. writeln('Antimuder Relog: '+inttostr(monster_on_screen))
  191.  
  192.  
  193. If findcolorspiral(x7, y7, reloglock, 14, 358, 58, 499)=false then relog; {Detect Not in game}
  194.  
  195. If findcolorspiral2(x7, y7, okbutton, 353, 212, 441, 229) then begin {Detect D/c}
  196. clickmouse(x7, y7, true);wait(500)
  197. end
  198.  
  199. if (isfkeydown(1) and isfkeydown(3))then begin
  200. getmousepos(buypotsX, buypotsY);wait(200);keydown(52);wait(100)
  201. repeat
  202. clickmouse(buypotsX, buypotsY, true);wait(50); {Auto Buy Hotkeys}
  203. clickmouse(322, 230, true);wait(50);clickmouse(322, 230, true);wait(50);
  204. until ((isfkeydown(2) and isfkeydown(4))or
  205. (findcolorspiral(x, y, OkButton, 385, 211, 440, 236)))
  206. keyup(52);wait(100);
  207. end
  208. if findcolorspiral2(x, y, OkButton, 385, 211, 440, 236)then begin
  209. clickmouse(x, y, true);wait(1000)
  210. end
  211.  
  212. if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
  213. else begin
  214. if ((findwindowtitlepart('endless online', false)=false)) then begin
  215. keydown(91);wait(100);keydown(82);wait(5); {Detect if eo is running}
  216. keyup(91);wait(100);keyup(82);wait(1000);// Brings up run prompt
  217. keydown(13);wait(100);keyup(13);w2(50);cleardebug;
  218. findwindowtitlepart('endless online', false);activateclient;w2(30)
  219. login;
  220. end
  221. end
  222.  
  223. end;
  224.  
  225. procedure welcome; begin
  226. cleardebug;
  227. writeln('AutoArcher v0.0.1');
  228. writeln('Script by Joeyroyden and Console - Eobots-online.com. ');
  229.  
  230. if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
  231. else begin
  232. if ((findwindowtitlepart('endless online', false)=false)) then begin
  233. keydown(91);wait(100);keydown(82);wait(5);
  234. keyup(91);wait(100);keyup(82);wait(1000);// Brings up run prompt
  235. keydown(13);wait(100);keyup(13);w2(50);cleardebug;
  236. findwindowtitlepart('endless online', false);activateclient;w2(30)
  237.  
  238. login;
  239. end
  240. end
  241. findwindowtitlepart('endless online', false);activateclient;w2(30)
  242. getclientdimensions(x, y)
  243. Writeln ('Client size: x'+ inttostr(x) +' y'+ Inttostr(y))
  244. end;
  245.  
  246. procedure antimurder;
  247. begin
  248. Monster_on_screen:= Monster_on_screen-1
  249. if Monster_on_screen<1 then begin
  250. if (not(user='no relog')) then relog
  251. monster_on_screen:=Antimurder_default
  252. end
  253. end;
  254.  
  255. procedure Archer0; begin
  256. wait(100) mode:=(VERSION+'NOW IN -ARCHER UP- MODE');
  257. if (((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)) or
  258. (findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72))) and (ks0=0)) then begin
  259. TargetDir:=0
  260. If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
  261. keydown(17)
  262. Repeat //0
  263. NextArrow;scriptstatus;antimurder;StayAlive
  264. if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks0:=1 keydown(113);wait(50);keyup(113)
  265. Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
  266.  
  267. until(((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)=false) and
  268. (findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72)=false))or (ks0=1))
  269. Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
  270. end
  271. end;
  272.  
  273.  
  274.  
  275. procedure Archer1; begin
  276. wait(100) mode:=(VERSION+'NOW IN -ARCHER RIGHT- MODE');
  277. if (((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)) or
  278. (findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273))) and (ks1=0)) then begin
  279. TargetDir:=1
  280. If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
  281. keydown(17)
  282. Repeat //1
  283. NextArrow;scriptstatus;antimurder;StayAlive
  284. if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks1:=1 keydown(113);wait(50);keyup(113)
  285. Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
  286.  
  287. until(((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)=false) and
  288. (findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)=false))or (Ks1=1))
  289.  
  290. Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
  291. end
  292. end;
  293.  
  294.  
  295.  
  296.  
  297. procedure Archer2; begin
  298. wait(100) mode:=(VERSION+'NOW IN -ARCHER DOWN- MODE');
  299. if (((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)) or
  300. (findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)))and (ks2=0)) then begin
  301. TargetDir:=2
  302. If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
  303. keydown(17)
  304. Repeat //2
  305. NextArrow;scriptstatus;antimurder;StayAlive
  306. if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks2:=1 keydown(113);wait(50);keyup(113)
  307. Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
  308. until(((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)=false) and
  309. (findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)=false))or (ks2=1))
  310. Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
  311. end
  312. end;
  313.  
  314.  
  315.  
  316.  
  317.  
  318. procedure Archer3; begin
  319. wait(100) mode:=(VERSION+'NOW IN -ARCHER LEFT- MODE');
  320. if (((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)) or
  321. (findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)))and(ks3=0)) then begin
  322. TargetDir:=3
  323. If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
  324. keydown(17)
  325. Repeat //3
  326. NextArrow;scriptstatus;antimurder;StayAlive
  327. if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks3:=1 keydown(113);wait(50);keyup(113)
  328. Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
  329. until(((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)=false) and
  330. (findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)=false))or(ks3=1))
  331. Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
  332. end
  333. end;
  334.  
  335. procedure ReleaseKs;
  336. begin
  337. if ((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)=false) and
  338. (findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72)=false)) then
  339. begin ks0:=0 end
  340.  
  341. if ((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)=false) and
  342. (findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)=false)) then
  343. begin ks1:=0 end
  344.  
  345. if ((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)=false) and
  346. (findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)=false)) then
  347. begin ks2:=0 end
  348.  
  349. if ((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)=false) and
  350. (findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)=false))then
  351. begin ks3:=0 end
  352.  
  353. if findcolorspiral(x, y, MonsterMelee, ksm1, ksm2, ksm3, ksm4)=false then ksZone:=inttobox(0, 0, 1, 1)
  354.  
  355. if (not(findcolorspiral (x, y, MonsterMelee, 13, 61, 630, 332))) then Monster_on_screen:=Antimurder_default
  356.  
  357. if findcolorspiral( x, y,DamageColor, 304, 90,336, 110) then begin
  358. ks0:=0
  359. ks1:=0
  360. ks2:=0
  361. ks3:=0
  362. end
  363. end;
  364. procedure mage; begin
  365. //Auto mage
  366. begin
  367. Focus:=1
  368. mode:=(VERSION+'NOW IN -MAGE- MODE');
  369. keydown(113);wait(50)
  370. repeat
  371.  
  372. if(FindColorSkipBox(x, y, MonsterMelee, 13, 61, 630, 332, KsZone))then
  373. begin
  374. if ((x>588) and (y<61)) then begin x:=588 y:=61 end
  375. clickmouse(x, y, true)
  376. wait(900)
  377. if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin
  378. KsM:=1
  379. ksm1:=x-95
  380. ksm2:=y-95
  381. ksm3:=x+95
  382. ksm4:=y+95
  383. KsZone:=inttobox(ksm1, ksm2, ksm3, ksm4)
  384. end
  385. end
  386.  
  387. if (
  388. ((attackside3=0) or
  389. (findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)=false) and //3
  390. (findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)=false))) then Focus:=0
  391.  
  392. if ( ((attackside2=0) or
  393. (findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)=false) and //2
  394. (findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)=false))) then Focus:=0
  395.  
  396. if ( ((attackside1=0) or
  397. (findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)=false) and //1
  398. (findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)=false))) then Focus:=0
  399. if ( ((attackside0=0) or
  400. (findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)=false) and //0
  401. (findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72)=false))) then Focus:=0
  402. scriptstatus
  403. until Focus=0
  404. end
  405. end;
  406.  
  407. {Eobots online strongly recommends not touching anything ABOVE this line}
  408.  
  409.  
  410. {Blank procedure.} procedure set_variables; begin end; //You can change script setting below.
  411.  
  412. begin
  413.  
  414. //colors (designed for 16-bit color depth)
  415. MonsterMelee:=1638350 //You may change this to suit your video card
  416. KsColor:=3219522 //You may change this to suit your video card
  417. RelogLock:=255 //You may change this to suit your video card
  418. OkButton:=10276608 //You may change this to suit your video card
  419. sharecolor:=13552590 //You may change this to suit your video card
  420. DamageColor:=9175295 //You may change this to suit your video card
  421. SquareOnPots:=33412 //You may change this to suit your video card
  422. HpColor:=16236180 //You may change this to suit your video card
  423. smallpot:=14067381 //You may change this to suit your video card
  424. drops:=8716032 //You may change this to suit your video card
  425. junk:=14606335 //You may change this to suit your video card
  426.  
  427. //customization settings
  428. HealType:=1 // Self heal/Group heal is Type 1, Small-Medium-Large heal is Type 2
  429. Antimurder_speed:=400 // How much time to remove from antimurder timer when hitting ks protected monster
  430. Antimurder_default:=45 // When this the overall antimurder timer, if it hits 0, you relog if features are on
  431. HitCountReset:=10 // How long before the scripts corrects its direction, too short may cause walking/moving
  432. auto_junk:=0 // Trash all non-valuable items, turn off if farming/collecting item drops
  433. attackside0:=1 {up arrow} // Avoid attacking this side, great on a bridge or corner
  434. attackside1:=1 {right arrow} // Avoid attacking this side, great on a bridge or corner
  435. attackside2:=1 {down arrow} // Avoid attacking this side, great on a bridge or corner
  436. attackside3:=1 {left arrow} // Avoid attacking this side, great on a bridge or corner
  437.  
  438.  
  439. {Eobots online strongly recommends not touching anything BELOW this line}
  440.  
  441.  
  442.  
  443. targetdir:=5 //dont change, may cause undesired results if you do
  444. Facing:=5 //dont change, may cause undesired results if you do
  445. Monster_on_screen:=Antimurder_default //dont change, may cause undesired results if you do
  446. ptts:=0 //dont change, may cause undesired results if you do
  447. version:=('AMA 0.0.4 - ')
  448. welcome
  449.  
  450. repeat
  451.  
  452. if attackside0=1 then begin archer0;wait(50) end //archer 0
  453. if attackside1=1 then begin archer1;wait(50) end //archer 1
  454. if attackside2=1 then begin archer2;wait(50) end // archer 2
  455. if attackside3=1 then begin archer3;wait(50) end // archer 3
  456.  
  457. StayAlive
  458. releaseks
  459. scriptstatus
  460.  
  461.  
  462.  
  463. if(not(((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)) or //3
  464. (findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)))
  465. or
  466. ((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)) or //2
  467. (findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)))
  468. or
  469. ((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)) or //1
  470. (findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)))
  471. or
  472. ((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)) or //0
  473. (findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72))))) then mage
  474.  
  475. //no monsters section
  476. if (not(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332))) then begin//////////////
  477.  
  478.  
  479. //get drops
  480. WRITELN(VERSION+'NOW GETTING DROPS');
  481. if(FindColorSpiral(x, y,drops,244, 149, 398, 224))then
  482. begin
  483. keyup(113);wait(50);keyup(112);wait(50)
  484. FindColorSpiral2(x, y,drops, 244, 149, 398, 224)
  485. wait(140);keydown(119);wait(20);keyup(119);wait(20);keyup(119);wait(200);
  486. movemousesmooth(x, y);wait(200);clickmouse(x, y, true);wait(500)
  487.  
  488.  
  489. clickmouse(78, 364, true);wait(300)
  490. if auto_junk=1 then begin
  491. WRITELN(VERSION+'CHECKING FOR JUNK');
  492. if findcolorspiral(x, y, junk, 112, 365, 477, 471) then begin
  493. clickmouse(x, y-3, true);wait(100); movemousespline(551, 447,1, 1);wait(100);
  494. clickmouse(551, 447, true);wait(250);
  495.  
  496. WRITELN(VERSION+'CHECKING FOR DISCONECTION NOTICE');
  497. if findcolorspiral(x, y, okbutton, 20, 20, 600, 300) then
  498. begin
  499. clickmouse(x, y, true);wait(100)
  500. holdmouse(222, 201, true);wait(100)
  501. movemousespline(329, 201,0,0);wait(150)
  502. releasemouse(329, 201, true);wait(100)
  503. clickmouse(295, 238, true);
  504. end
  505. end
  506. end
  507. clickmouse(80, 450, true);wait(200)
  508.  
  509. end
  510.  
  511. //Auto Heal
  512. repeat
  513. if findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40) then begin
  514. WRITELN(VERSION+'NOW IN -MAGE HEALING- MODE');
  515.  
  516. keydown(112);wait(450);
  517. if healing=0 then begin healing:=1 clickmouse(80,369,true);wait(200) end
  518. if findcolorspiral(x, y, smallpot, 112, 365, 478, 471) then begin
  519. clickmouse(x, y, true);wait(20);clickmouse(x, y, true) end else begin
  520. if Healtype=2 then clickmouse(318, 137, true);keyup(112);if healtype=2 then w2(13)
  521. end
  522. end
  523. until( (not(findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40))) or
  524. (findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332)))
  525. if healing=1 then begin
  526. clickmouse(80, 450, true) keyup(112) wait(1000);
  527. healing:=0
  528. end
  529.  
  530. //no drops, no heal, no monster, enter focus mode
  531. if (
  532. (not(findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40))) and
  533. (not(FindColorSpiral(x, y,drops,244, 149, 398, 224))) and
  534. (not(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332)))
  535.  
  536. ) then begin
  537. Focus:=1
  538. mode:=(VERSION+'NOW IN FOCUS MODE');
  539. keydown(113);wait(50)
  540. repeat
  541.  
  542. if(FindColorSkipBox(x, y, MonsterMelee, 13, 61, 630, 332, KsZone))then
  543. begin
  544.  
  545. if ((x>588) and (y<61)) then begin x:=588 y:=61 end
  546. clickmouse(x, y, true)
  547. wait(1400)
  548. end
  549. scriptstatus
  550.  
  551. until (((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)) or //3
  552. (findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)))
  553. or
  554. ((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)) or //2
  555. (findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)))
  556. or
  557. ((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)) or //1
  558. (findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)))
  559. or
  560. ((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)) or //0
  561. (findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72))))
  562.  
  563. keyup(113);wait(50);keyup(113);wait(50)
  564. end
  565.  
  566. end //////////////////////
  567.  
  568. until facing=8
  569. end.
  570.  
  571. {DID YOU REMEMBER TO REPLACE YOUR USERNAME AND PASSWORD WITH 'no relog' ?
  572. THIS IS THE LAST THING YOU SEE BEFORE YOU SHARE A SCRIPT...
  573. DONT SAY WE DIDNT WARN YOU.}
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!