Mike Hax0r
Number of posts: : 107 Age : 28 Location : NONE Guild Tag : NONE Guild Name : NONE Join date : 2010-03-20
| Subject: Requests for Dragons Script Mon Mar 29, 2010 3:50 pm | |
| Sup guys i made new script called Mike Script here is it Enjoi!!!!! - Code:
-
program drags; //Made by Mike
var hitcount,HitCountReset,Facing,TargetDir,people,monster,green, hpcolor,x,y,monstercount,monsters,moves,Ice_cold,Icyhawt,clicker,monsterM,dragon,biter, relogs,relogsbeforetimechange,waittime,exp,fires,fire:integer;//End of Int's. //Scroll down on the function list and click //on settings to set how many monsters to kill //per relog! And hit "Notes_and_Guide" for hotkeys. const
{ (Login Details) {} user=''; {} pass=''; {} cchar=1; //what Char to select. {} {}//cchar//Which character to login to, 1 would be top, 3 would be bottom(third character). {} {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{} {}{v-- Time properties --v} {} {}hour='9'; //Hour to set back to when change time. {} {}minute='30'; // Min to set back to. {} {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{} {} {All optional features} {} {}share=0; //Accepts party invites {}smallheal=1; //Smallheals, if person below you selfheal {}pickup=0; //Picks up items droped by NPC (Dragon) {}pots=1; //Autopots if needed {}mager=1; //Mages biters {}bitermelee=0; //Melee's biters {}timechange=1; //Changes time after so many relogs speedhealself=1; //Speed Self heals if hp below a quater.
{}//timechange// Added a better one, just open Date and Time properties(don't move it at all!). {} {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
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 keyup(17) wait(1000) clickmouse(600, 50, true) wait(100) clickmouse(330, 225, true) wait(500) clickmouse(140, 365, true) wait(2000) clickmouse(415, 353, true) wait(100) readstring(user); wait(500) clickmouse(410, 390, true) wait(100) readstring(pass); wait(300) clickmouse(400, 425, true) wait(2500) clickmouse(534, (130*(cchar)), true) wait(2000) clickmouse(78, 364, true)
relogs:=relogs-1; if findcolor(x,y,green,365,310,370,315) then begin clickmouse(365, 310, true) relog if (share=1) then begin clickmouse(607, 446, true) if findcolor(x,y,13158600,467,457,468,458) then begin clickmouse(566, 461, true) end end end end; //end relog procedure/////////////////////////////////////////////////////////// procedure timerelog; begin wait(1000) clickmouse(600, 50, true) wait(100) clickmouse(330, 225, true) wait(500) clickmouse(140, 365, true) wait(300) clickmouse(415, 353, true) wait(100) readstring(user); wait(500) clickmouse(410, 390, true) wait(100) readstring(pass); wait(300) clickmouse(400, 425, true) wait(2500) clickmouse(534, (130*(cchar)), true) wait(5000) if findcolor(x,y,green,365,310,370,315) then begin clickmouse(365, 310, true) timerelog end end; //////////////////////////////////////////////////////////////////////////////// procedure firsttimelogin; begin if findcolor(x,y,138238,299,146,300,147) then begin relog end end; //////////////////////////////////////////////////////////////////////////////// var mode:string; procedure ScriptStatus; begin cleardebug; writeln(mode) writeln('•••••••••••••••••••••••••••••••••••••••Made by nervy••••••••••••••••••••••••••••••••••••••'); writeln('Drags•••••••••••••••••••••••••••••••••••••••••••••••Script•••••••••••••••••••••••••••••••••'); writeln(''); writeln(''); writeln(''); writeln(''); writeln(''); writeln('Hits = '+ inttostr(hitcount)+' | Relogs before timechange = '+inttostr(relogs)+' | Facing = '+inttostr(facing)+' | Target = '+ inttostr(TargetDir)+' | Monsters = '+ inttostr(monsters)+' | Anti-freeze = '+ inttostr(Ice_cold)+' | Exp = '+ inttostr(exp)+' | Script by Nervy') wait(10)
if(clicker=0)and(findcolorspiral(x,y,255,41,490,41,490)) then begin wait(300) end
begin
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(97) wait(10) keyup(97) 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 anti_relog; begin Keydown(98) Wait(10) Keyup(98) wait(10) Keydown(99) Wait(10) Keyup(99) Wait(3000) end; //////////////////////////////////////////////////////////////////////////////// Procedure Antifreeze; begin Ice_cold:=Ice_cold-1 wait(50) scriptstatus if Ice_cold<0 then begin keydown(97) wait(10) keyup(97) relog monsters:=monstercount Ice_cold:=Icyhawt keydown(17) end end; //////////////////////////////////////////////////////////////////////////////// procedure autopot; begin
If findcolorspiral(x, y, 16235924, 163, 27, 165, 33) then begin if(pots=1) then begin keydown(97) wait(10) keyup(97) wait(100) clickmouse(80, 365, true) wait(200) clickmouse(464, 379, true) wait(8) clickmouse(464, 379, true) end end; end;
//////////////////////////////////////////////////////////////////////////////// procedure left; begin If FindColor(x,y,dragon,270,163,298,178) //Left then begin TargetDir:=3 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir,500) Facing:=TargetDir end keydown(17) repeat anti_relog nextarrow; scriptstatus; antifreeze; autopot; Until (Not(FindColor(x,y,dragon,270,163,298,178))) wait(10) hitcount:=hitcountreset wait(100) ice_cold:=icyhawt monstercounter keydown(97) wait(10) keyup(97) exp:=exp+1251; keyup(17) end end; //////////////////////////////////////////////////////////////////////////////// procedure right; begin If (FindColor(x,y,dragon,341,189,364,208)) //Right arrow then begin TargetDir:=1 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 500) Facing:=TargetDir end keydown(17) repeat anti_relog nextarrow; scriptstatus; antifreeze; autopot; Until (Not(FindColor(x,y,dragon,341,189,364,208))) wait(10) hitcount:=hitcountreset wait(100) ice_cold:=icyhawt monstercounter keydown(97) wait(10) keyup(97) exp:=exp+1251; keyup(17) end end; //////////////////////////////////////////////////////////////////////////////// procedure up; begin If FindColor(x,y,dragon,341,162,362,176) then begin TargetDir:=0 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 500) Facing:=TargetDir end keydown(17) repeat anti_relog nextarrow; scriptstatus; antifreeze; autopot; Until (Not(FindColor(x,y,dragon,341,162,362,176))) wait(10) hitcount:=hitcountreset wait(100) ice_cold:=icyhawt monstercounter keydown(97) wait(10) keyup(97) exp:=exp+1251; keyup(17) end end; //////////////////////////////////////////////////////////////////////////////// procedure down; begin If FindColor(x,y,dragon,285,200,299,209) then begin TargetDir:=2 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 500) Facing:=TargetDir end keydown(17) repeat anti_relog nextarrow; scriptstatus; antifreeze; autopot; Until (Not(FindColor(x,y,dragon,285,200,299,209))) wait(10) hitcount:=hitcountreset wait(100) ice_cold:=icyhawt monstercounter keydown(97) wait(10) keyup(97) exp:=exp+1251; keyup(17) end end; //////////////////////////////////////////////////////////////////////////////// procedure leftb; begin If(bitermelee=1) then begin If FindColor(x,y,biter,282,153,306,166) //Left then begin wait(300) TargetDir:=3 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir,100) Facing:=TargetDir end keydown(17) wait(10) Keyup(17);
end end end; //////////////////////////////////////////////////////////////////////////////// procedure rightb; begin If (bitermelee=1) then begin If (FindColor(x,y,biter,327,179,361,195)) //Right arrow then begin wait(300) TargetDir:=1 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end keydown(17) wait(10) Keyup(17);
end end end; //////////////////////////////////////////////////////////////////////////////// procedure upb; begin if (bitermelee=1) then begin If FindColor(x,y,biter,331,150,350,169) then begin wait(300) TargetDir:=0 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end keydown(17) wait(10) Keyup(17); end end end; //////////////////////////////////////////////////////////////////////////////// procedure downb; begin if (bitermelee=1) then begin If FindColor(x,y,8684676,272,182,283,183) then begin wait(300) TargetDir:=2 If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 266) Facing:=TargetDir end keydown(17) wait(10) Keyup(17);
end end end; //////////////////////////////////////////////////////////////////////////////// procedure onme; begin If Findcolor(x,y,dragon,306,180,308,194) then begin keydown(123) wait(10) keyup(123) wait(500) end If Findcolor(x,y,dragon,306,180,308,194) then begin keydown(38) wait(500) keyup(38) wait(500) end
If Findcolor(x,y,biter,306,180,308,194) then begin keydown(123) wait(10) keyup(123) wait(500) end If Findcolor(x,y,biter,306,180,308,194) then begin keydown(38) wait(500) keyup(38) wait(500) end
end; //////////////////////////////////////////////////////////////////////////////// procedure Mage; begin If FindColorSpiral(x,y,biter,15,65,625,332)then begin If(mager=1) then begin repeat KeyDown(113) Wait(50) KeyUp(113) Wait(10) moveMouse(x,y) clickmouse(x,y,true) autopot Wait(1500) fire:=fire-1; If fire<1 then begin relog end until(Not(FindColorSpiral(x,y,biter,15,65,625,332))) end end fire:=fires; end;
//////////////////////////////////////////////////////////////////////////////// procedure healself; begin If findcolorspiral(x, y, 16235924, 200, 26, 200, 33) then begin keyup(97) wait(10) keydown(115) wait(10) keyup(115) wait(700) keydown(115) wait(10) keyup(115) wait(10) keydown(112) wait(50) keyup(112) wait(400) end end; var Tapped:integer; procedure speedheal; begin if (speedhealself=1) then begin If findcolorspiral(x, y, 16235924, 176, 26, 180, 33) then begin If Not FindColorSpiral(x,y,Monster,15,65,625,332)then begin wait(1000) tapped:=5; repeat keydown(107) wait(10) keyup(107) tapped:=tapped-1; until(tapped<1) keydown(112) repeat wait(400) until not(findcolorspiral(x, y, 16235924, 200, 26, 200, 33)) or FindColorSpiral(x,y,Monster,15,65,625,332) keyup(112) wait(400) keydown(97) wait(10) keyup(97)
end end end end; //////////////////////////////////////////////////// procedure smallhealx; begin If findcolorspiral(x, y, 16235924, 200, 26, 200, 33) then begin if(smallheal=1) then begin if (Not(findcolor(x,y,55031,310,196,327,220))) then begin keydown(114) wait(50) keyup(114) wait(100) movemouse(319, 173) wait(10) clickmouse(319, 173, true) end end if findcolor(x,y,55031,310,196,327,220) then begin keydown(112) wait(100) keyup(112) end end end; //////////////////////////////////////////////////////////////////////////////// procedure check_dc; begin If findcolor(x, y, green, 433, 212, 435, 228) then begin clickmouse(391, 224, true) relog end end; //////////////////////////////////////////////////////////////////////////////// procedure wait45; begin
repeat cleardebug; writeln(''); writeln(''); writeln(''); writeln('Waiting '+inttostr(waittime)+' seconds before logging back in.'); wait(1000) waittime:=waittime-1; until(waittime = 0) writeln('Logging in.'); waittime:=45; end;
//////////////////////////////////////////////////////////////////////////////// procedure change_time; begin If (timechange = 1) then begin if(relogs = 0) then begin if findwindowtitlepart ('date and time properties', false) then begin activateclient; end wait(500) clickmouse(263, 238, true) wait(10) clickmouse(263, 238, true) wait(500) ReadString(hour) wait(500) clickmouse(279, 238, true) wait(10) clickmouse(279, 238, true) ReadString(minute) wait(500) clickmouse(353, 328, true) wait(500) If findwindowtitlepart ('endless online', false) then begin activateclient; end clickmouse(600, 50, true) wait(100) clickmouse(304, 223, true) wait45 relogs:=relogsbeforetimechange timerelog end end end; //////////////////////////////////////////////////////////////////////////////// procedure party_accept; begin if (share=1) then begin if findcolor(x,y,4877196,220,154,221,155) then begin clickmouse(300, 226, true) end if findcolor(x,y,6711039,533,296,534,597) then begin clickmouse(533, 296, true) end end; end; //////////////////////////////////////////////////////////////////////////////// procedure check_tnl; begin if (Not(Findcolor(x,y,dragon,27,56,624,334))) then begin if (Not(Findcolor(x,y,biter,27,56,624,334))) then begin clickmouse(525, 33, true) end end repeat wait(10) if findwindowtitlepart('endless online', false) then begin activateclient; end until(Findcolor(x,y,dragon,27,56,624,334) or (Findcolor(x,y,biter,27,56,624,334))) end;
procedure amidead; begin if findcolor(x,y,8667903,178,62,218,176) then begin wait(1000) clickmouse(601,50,true) wait(1000) clickmouse(301,223,true) wait(1000) terminatescript end end;
//////////////////////////////////////////////////////////////////////////////// procedure Picker; begin If (pickup=1) then begin //Facing right if findcolor(x,y,8716032,349,203,350,204)//gold or findcolor(x,y,6505092,350,201,351,202)//Dragon Wing or findcolor(x,y,5388634,350,201,351,202)//Dragon Claw or findcolor(x,y,8697302,350,201,351,202)//Saw Sword or findcolor(x,y,2048,350,201,351,202)//Scavbow then begin moveMouse(349,197) wait(100) ClickMouse(349,197,True) end //Facing down if findcolor(x,y,8716032,287,202,289,203)//gold or findcolor(x,y,3746048,287,202,289,202)//Dragon Wing or findcolor(x,y,5388634,287,202,289,202)//Dragon Claw or findcolor(x,y,15198191,287,202,289,202)//Saw Sword or findcolor(x,y,123,287,202,289,202)//Scavbow then begin moveMouse(287,202) wait(100) ClickMouse(287,202,True) end //Facing up if findcolor(x,y,8716032,354,171,355,171)//gold or findcolor(x,y,6505092,354,171,355,171)//Dragon Wing or findcolor(x,y,5912972,354,171,355,171)//Dragon Claw or findcolor(x,y,8688805,354,169,355,171)//Saw Sword or findcolor(x,y,7566195,354,169,355,171)//Scavbow then begin moveMouse(354,171) wait(100) ClickMouse(354,171,True) end //Facing left if findcolor(x,y,8716032,286,171,287,172)//gold or findcolor(x,y,3746048,286,171,287,172)//Dragon Wing or findcolor(x,y,2693161,286,171,287,172)//Dragon Claw or findcolor(x,y,15198191,286,171,287,172)//Saw Sword or findcolor(x,y,2048,286,171,287,172)//Scavbow then begin moveMouse(286,171) wait(100) ClickMouse(286,171,True) end end end; procedure settings; begin end;{v---Down below(settings)} begin writeln('By ufcwired, DO NOT ks ufcwired while he auto''s please.'); wait(2000) findwindowtitlepart('endless online',false) activateclient //MAKE SURE DATE/TIME PROPERTIES IS OPEN!!!!! //Hotkeys at the Very bottom!
relogsbeforetimechange:=20 //It will change the time to 9:30 after the set amount of relogs, //If 50 then it will change time to 9:30 after 50 relogs and if 70 it will relog after 70 relogs and so on.
HitCountReset:=30 //Don't touch this, just here for attacking procedures.
Monstercount:=2 //How many monsters to kill before automatically relogging
Icyhawt:=60 //Anti-freeze, enter how long you would like it to wait before reloging if you freeze.. //It will relog if attacking a monster longer then the set amount.
people:=55287;//Yellow stuff that is on people in the eobots client, or w/e
hpcolor:=16235924; //The blue HP bar stuff
monster:=1638350; //You know this.
dragon:=9880721;
biter:=5882430;
monsterM:= 1629877;
relogs:= relogsbeforetimechange; //Don't change this.
waittime:=45; //Don't change this either.
moves:= 0
green:= 10079232; //Light green on Login Refused, for procedure check_dc and relog.
fires:= 10 //How many fires on one monster before reloging.
fire:=fires; //Do not touch this
//Username/Password input can be found at top {---------------------------------------------------------------} targetdir:=5 Facing:=5 Ice_cold:=Icyhawt; monsters:=monstercount hitcount:=hitcountreset scriptstatus check_dc
repeat firsttimelogin left leftb right rightb up upb down downb autopot onme mage smallhealx check_dc scriptstatus change_time party_accept amidead picker
until(false) end. procedure Notes_and_Guide; //How To Use = By: Gang.// //Set your hotkey Num1 = 1+// //Set your hotkey Num2 = 2.29 and Num3 = 32+ //Self Heal = f4, Fire/Thunder = F2, Click heals = F3.(Not working yet)// //Open your clock and if it don't say Date and Time Properties// //You will have to set it as what it says, to do so, go to change_time in the// l //That is all, have fun with this script. | |
|