Endless Online Haxs (((( PM Matthew If You Need Any Help ))))
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Share | 
 

 Requests for Dragons Script

Go down 
AuthorMessage
Mike
Hax0r
Hax0r


Male Number of posts: : 107
Age : 22
Location : NONE
Guild Tag : NONE
Guild Name : NONE
Join date : 2010-03-20

PostSubject: 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.
Back to top Go down
View user profile
andy1550
Starter
Starter
avatar

Number of posts: : 29
Age : 23
Location : Dominican Republic, DR
Join date : 2010-03-28

PostSubject: Re: Requests for Dragons Script   Tue Mar 30, 2010 3:48 pm

I take a look , and u copy lots of [Nest auto hs] you just deleted the herbs section make your owned good for me since herbs arent that easy :p
Back to top Go down
View user profile
Mike
Hax0r
Hax0r


Male Number of posts: : 107
Age : 22
Location : NONE
Guild Tag : NONE
Guild Name : NONE
Join date : 2010-03-20

PostSubject: Re: Requests for Dragons Script   Tue Mar 30, 2010 6:44 pm

Whos nest?
Back to top Go down
View user profile
andy1550
Starter
Starter
avatar

Number of posts: : 29
Age : 23
Location : Dominican Republic, DR
Join date : 2010-03-28

PostSubject: Re: Requests for Dragons Script   Tue Mar 30, 2010 7:43 pm

It's Dragon/Vines auto hs


Last edited by andy1550 on Wed Mar 31, 2010 7:18 am; edited 1 time in total (Reason for editing : my bad put I'm and it was It's Sorry :P)
Back to top Go down
View user profile
Admin
Admin


Number of posts: : 1
Guild Tag : NONE
Guild Name : NONE
Join date : 2009-12-21

PostSubject: Re: Requests for Dragons Script   Wed Mar 31, 2010 5:38 am

O so your nest then

Mike, NO more coppying scripts then change the credits to your name Mad
Back to top Go down
View user profile http://endless-online-haxs.darkbb.com
Sponsored content




PostSubject: Re: Requests for Dragons Script   

Back to top Go down
 
Requests for Dragons Script
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Endless Online Hacks :: SCAR 3.1.3 :: Scripts-
Jump to: