 Autoing script help
How would i take mage out of this script?
program EoBots_AutoArcher;
var hitcount, x, y, MonsterMelee, facing, targetdir, hitcountreset, ks0, ks1, ks2, ks3,
ksx, ksy, kscolor, ksm, ksm1, ksm2, ksm3, ksm4, reloglock, sharecolor, okbutton, junk,
ww,www, pty, monster_on_screen, antimurder_speed, Antimurder_default ,char,damagecolor,
hpx, hpy, ptx, pty, ptts, squareonpots, HpColor, smallpot, healtype, drops, auto_junk,
attackside0,attackside1,attackside2,attackside3, healing, x7, y7, buypotsX, buypotsY,
focus:integer; //Notes for Console, erase
when releasing
var mode, version:string;
var KsZone:Tbox;
const
//- RELOGING FEATURES - DO NOT TOUCH IF YOU DO NOT WISH TO USE THIS -\\
user='no relog';
pass='no relog';
character=1;
//- FOR HEAVENS SAKE REPLACE YOUR INFO WITH 'no relog' WHEN SHARING SCRIPT -\\
//- EoBots-online.com, Joeyroyden nor any of our team -\\
Procedure Pressk(Cnumber, Cwait: Integer);
Begin
KeyDown(Cnumber);
Sleep(Cwait);
Keyup(Cnumber);
End;
Procedure ReadString(word: String);
var
i,a:integer;
shift:boolean;
Begin
shift:=False
a:=Length(word);
i:=1;
while(i<a+1) do
Begin
Pressk(GetKeyCode(StrGet(word,i)),16);
Wait(20);
i:=i+1;
Wait(12);
End;
Wait(600);
End;
procedure w2(ww:integer);
begin
www:=ww*100
repeat
www:=www-100
cleardebug
writeln('Waitting: '+ inttostr(www/100))
wait(100)
until www=0
end;
procedure StayAlive;
begin
If findcolorspiral(hpx, hpy, hpcolor, 149, 24, 152, 40) then begin
clickmouse(78, 364, true);wait(200)
if findcolorspiral(ptx, pty, SquareOnPots,114, 364, 476, 468)then begin
clickmouse(ptx, pty, true)
wait(8)
clickmouse(ptx, pty, true)
sleep (350)
ptts:=ptts+1
end;
end;
end;
Procedure NextArrow;
begin
hitcount:=hitcount-1
wait(50)
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 relog;
begin
char:=character
clickmouse(600, 50, true);wait(500);
if findcolorspiral2(x, y, OkButton, 10, 10, 640, 350) then clickmouse(x, y, true);
wait(1000)
repeat
clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700)
until (findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)
repeat clickmouse(115, 375, true);w2(20)
until ((findcolorspiral(x, y, reloglock, 276, 322,575, 343)) or
(findcolorspiral(x, y, OkButton, 358, 307, 449, 332)))
clickmouse(414, 353, true);wait(500);
if(findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)then begin;
readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500);
clickmouse(409, 428, true);w2(30);end;
if findcolorspiral(x, y, OkButton,357, 305, 444, 333) then begin
clickmouse(380, 315, true);wait(500);pty:=4545 end;
if ((findcolorspiral(x, y, reloglock,280, 323, 574, 343)=false)and(pty=4545)=false )
then begin
wait(500);clickmouse(534, (128*(char)), true);wait(500);
repeat until((findcolorspiral (x, y, reloglock,17, 359, 54, 496))OR
(findcolorspiral(x, y, reloglock,280, 323, 574, 343))) end;
pty:=0 ;wait(500);
clickmouse(608, 446, true)
wait(500)
if (findcolorspiral(x, y,sharecolor,465, 455, 469, 459)=false) then begin
clickmouse(567, 461, true);wait(200)
end;
monster_on_screen:=antimurder_default;
end; //
Procedure login;
begin
char:=character
repeat
clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700)
until (findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)
repeat clickmouse(115, 375, true);w2(20)
until ((findcolorspiral(x, y, reloglock, 276, 322,575, 343)) or
(findcolorspiral(x, y, OkButton, 358, 307, 449, 332)))
clickmouse(414, 353, true);wait(500);
if(findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)then begin;
readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500)
clickmouse(409, 428, true);w2(30);end;
if findcolorspiral(x, y, OkButton,357, 305, 444, 333) then begin
clickmouse(380, 315, true);wait(500);pty:=4545 end;
if ((findcolorspiral(x, y, reloglock,280, 323, 574, 343)=false)and(pty=4545)=false )
then begin
wait(500);clickmouse(534, (128*(char)), true);wait(500);
repeat until((findcolorspiral (x, y, reloglock,17, 359, 54, 496))OR
(findcolorspiral(x, y, reloglock,280, 323, 574, 343))) end;
pty:=0 ;wait(500);
clickmouse(608, 446, true)
wait(500)
if (findcolorspiral(x, y,sharecolor,465, 455, 469, 459)=false) then begin
clickmouse(567, 461, true);wait(200)
end;
monster_on_screen:=antimurder_default;
end; //
procedure ScriptStatus;
begin
cleardebug;
writeln(mode)
writeln('Arrow:'+ inttostr(hitcount)+' - Facing:'+inttostr(facing)+' - Target:'+
inttostr(TargetDir))
writeln('KsControls - Up: '+Inttostr(Ks0)+' Down: '+Inttostr(Ks2)+' Right: '+
Inttostr(Ks1)+' Left: '+Inttostr(Ks3))
writeln('Antimuder Relog: '+inttostr(monster_on_screen))
If findcolorspiral(x7, y7, reloglock, 14, 358, 58, 499)=false then relog; {Detect Not in game}
If findcolorspiral2(x7, y7, okbutton, 353, 212, 441, 229) then begin {Detect D/c}
clickmouse(x7, y7, true);wait(500)
end;
if (isfkeydown(1) and isfkeydown(3))then begin
getmousepos(buypotsX, buypotsY);wait(200);keydown(52);wait(100)
repeat
clickmouse(buypotsX, buypotsY, true);wait(50); {Auto Buy Hotkeys}
clickmouse(322, 230, true);wait(50);clickmouse(322, 230, true);wait(50);
until ((isfkeydown(2) and isfkeydown(4))or
(findcolorspiral(x, y, OkButton, 385, 211, 440, 236)))
keyup(52);wait(100);
end;
if findcolorspiral2(x, y, OkButton, 385, 211, 440, 236)then begin
clickmouse(x, y, true);wait(1000)
end;
if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
else begin
if ((findwindowtitlepart('endless online', false)=false)) then begin
keydown(91);wait(100);keydown(82);wait(5); {Detect if eo is running}
keyup(91);wait(100);keyup(82);wait(1000);// Brings up run prompt
keydown(13);wait(100);keyup(13);w2(50);cleardebug;
findwindowtitlepart('endless online', false);activateclient;w2(30)
login;
end;
end;
end;
procedure welcome; begin
cleardebug;
writeln('AutoArcher v0.0.1');
writeln('Script by Joeyroyden and Console - Eobots-online.com. ');
writeln('Edited By Digitx For The Use of Melle');
if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
else begin
if ((findwindowtitlepart('endless online', false)=false)) then begin
keydown(91);wait(100);keydown(82);wait(5);
keyup(91);wait(100);keyup(82);wait(1000);// Brings up run prompt
keydown(13);wait(100);keyup(13);w2(50);cleardebug;
findwindowtitlepart('endless online', false);activateclient;w2(30)
login;
end;
end;
findwindowtitlepart('endless online', false);activateclient;w2(30)
getclientdimensions(x, y)
Writeln ('Client size: x'+ inttostr(x) +' y'+ Inttostr(y))
end;
procedure antimurder;
begin
Monster_on_screen:= Monster_on_screen-1
if Monster_on_screen<1 then begin
if (not(user='no relog')) then relog;
monster_on_screen:=Antimurder_default
end;
end;
procedure Archer0; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE UP- MODE');
if ((findcolor(x, y, MonsterMelee, 345, 156, 355, 163))
and (ks0=0)) then begin
TargetDir:=0
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//0
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks0:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False)
or (ks0=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure Archer1; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE RIGHT- MODE');
if (findcolor(x, y, MonsterMelee, 345, 187, 358, 193))and (ks1=0) then begin
TargetDir:=1
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//1
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks1:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False)
Or (Ks1=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure Archer2; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE DOWN- MODE');
if ((findcolor(x, y, MonsterMelee, 279, 185, 296, 191))and (ks2=0)) then begin
TargetDir:=2
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//2
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks2:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False)or (ks2=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure Archer3; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE LEFT- MODE');
if ((findcolor(x, y, MonsterMelee, 284, 153, 294, 163))and(ks3=0)) then begin
TargetDir:=3
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//3
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks3:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False)or(ks3=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure ReleaseKs;
begin
if (findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False) then
begin ks0:=0 end;
if (findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False) then
begin ks1:=0 end;
if (findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False) then
begin ks2:=0 end;
if (findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False)then
begin ks3:=0 end;
if findcolorspiral(x, y, MonsterMelee, ksm1, ksm2, ksm3, ksm4)=false then ksZone:=inttobox(0, 0, 1, 1);
if (not(findcolorspiral (x, y, MonsterMelee, 13, 61, 630, 332))) then
if findcolorspiral( x, y,DamageColor, 304, 90,336, 110) then begin
ks0:=0
ks1:=0
ks2:=0
ks3:=0
end;
end;
procedure mage; begin
//Auto mage
begin
Focus:=1
mode:=(VERSION+'NOW IN -MAGE- MODE');
keydown(113);wait(50)
repeat
Monster_on_screen:=Monster_on_screen-1;
Antimurder;
if(FindColorSkipBox(x, y, MonsterMelee, 13, 61, 630, 332, KsZone))then
begin
if ((x>588) and (y<61)) then begin x:=588 y:=61 end;
If(GetColor(x,y)=MonsterMelee)Then
Begin
clickmouse(x, y, true)
wait(950)
End
Else
Begin
Wait(950);
End;
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin
KsM:=1
ksm1:=x-95
ksm2:=y-95
ksm3:=x+95
ksm4:=y+95
KsZone:=inttobox(ksm1, ksm2, ksm3, ksm4)
end;
end;
if (
((attackside3=0) or
(findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False))) then Focus:=0;
if ( ((attackside2=0) or
(findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False))) then Focus:=0;
if ( ((attackside1=0) or
(findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False))) then Focus:=0;
if ( ((attackside0=0) or
(findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False))) then Focus:=0;
scriptstatus
until Focus=0
end;
end;
{Eobots online strongly recommend;s not touching anything ABOVE this line}
{Blank procedure.} procedure set_variables; begin end; //You can change script setting below.
begin
//colors (designed for 16-bit color depth)
MonsterMelee:=1638350 //You may change this to suit your video card
KsColor:=0 //You may change this to suit your video card
RelogLock:=255 //You may change this to suit your video card
OkButton:=10079232 //You may change this to suit your video card
sharecolor:=13158600 //You may change this to suit your video card
DamageColor:=9175295 //You may change this to suit your video card
SquareOnPots:=32896 //You may change this to suit your video card
HpColor:=16235924 //You may change this to suit your video card
smallpot:=14067381 //You may change this to suit your video card
drops:=8716032 //You may change this to suit your video card
junk:=5394616 //You may change this to suit your video card
//customization settings
HealType:=2 // Self heal/Group heal is Type 1, Small-Medium-Large heal is Type 2
Antimurder_speed:=10 // How much time to remove from antimurder timer when hitting ks protected monster
Antimurder_default:=500 // When this the overall antimurder timer, if it hits 0, you relog if features are on
HitCountReset:=10 // How long before the scripts corrects its direction, too short may cause walking/moving
auto_junk:=1 // Trash all non-valuable items, turn off if farming/collecting item drops
attackside0:=1 {up arrow} // Avoid attacking this side, great on a bridge or corner
attackside1:=1 {right arrow} // Avoid attacking this side, great on a bridge or corner
attackside2:=1 {down arrow} // Avoid attacking this side, great on a bridge or corner
attackside3:=1 {left arrow} // Avoid attacking this side, great on a bridge or corner
{Eobots online strongly recommends not touching anything BELOW this line}
targetdir:=5 //dont change, may cause undesired results if you do
Facing:=5 //dont change, may cause undesired results if you do
Monster_on_screen:=Antimurder_default //dont change, may cause undesired results if you do
ptts:=0 //dont change, may cause undesired results if you do
version:=('AMA 0.0.4 (Melle Edition) - ')
disguise(version);
welcome
repeat
if attackside0=1 then begin archer0;wait(50) end; //archer 0
if attackside1=1 then begin archer1;wait(50) end; //archer 1
if attackside2=1 then begin archer2;wait(50) end; // archer 2
if attackside3=1 then begin archer3;wait(50) end; // archer 3
StayAlive
releaseks
scriptstatus
if(findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False)or
(findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False)or
(findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False)or
(findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False) then mage;
//no monsters section
if (not(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332))) then begin//////////////
monster_on_screen:=monster_on_screen-1;
antimurder;
//get drops
WRITELN(VERSION+'NOW GETTING DROPS');
if(FindColorSpiral(x, y,drops,244, 149, 398, 224))then
begin
keyup(113);wait(50);keyup(112);wait(50)
FindColorSpiral2(x, y,drops, 244, 149, 398, 224)
wait(140);keydown(119);wait(20);keyup(119);wait(20);keyup(119);wait(200);
movemousesmooth(x, y);wait(200);clickmouse(x, y, true);wait(500)
clickmouse(78, 364, true);wait(300)
if auto_junk=1 then begin
WRITELN(VERSION+'CHECKING FOR JUNK');
if findcolorspiral(x, y, junk, 112, 365, 477, 471) then begin
clickmouse(x, y-3, true);wait(100); movemousespline(551, 447,1, 1);wait(100);
clickmouse(551, 447, true);wait(250);
WRITELN(VERSION+'CHECKING FOR DISCONECTION NOTICE');
if findcolorspiral(x, y, okbutton, 20, 20, 600, 300) then
begin
clickmouse(x, y, true);wait(100)
holdmouse(222, 201, true);wait(100)
movemousespline(329, 201,0,0);wait(150)
releasemouse(329, 201, true);wait(100)
clickmouse(295, 238, true);
end;
end;
end;
clickmouse(80, 450, true);wait(200)
end;
//Auto Heal
repeat
if findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40) then begin
WRITELN(VERSION+'NOW IN -MAGE HEALING- MODE');
keydown(112);wait(450);
if healing=0 then begin healing:=1 clickmouse(80,369,true);wait(200) end;
if findcolorspiral(x, y, smallpot, 112, 365, 478, 471) then begin
clickmouse(x, y, true);wait(20);clickmouse(x, y, true) end else begin
if Healtype=2 then clickmouse(322, 185, true);keyup(112);if healtype=2 then w2(13)
end;
end;
until( (not(findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40))) or
(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332)));
if healing=1 then begin
clickmouse(80, 450, true) keyup(112) wait(1000);
healing:=0
end;
//no drops, no heal, no monster, enter focus mode
if (
(not(findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40))) and
(not(FindColorSpiral(x, y,drops,244, 149, 398, 224))) and
(not(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332)))
) then begin
Focus:=1
mode:=(VERSION+'NOW IN FOCUS MODE');
keydown(113);wait(50)
repeat
monster_on_screen:=monster_on_screen-1;
antimurder;
if(FindColorSkipBox(x, y, MonsterMelee, 13, 61, 630, 332, KsZone))then
begin
if ((x>588) and (y<61)) then begin x:=588 y:=61 end;
clickmouse(x, y, true)
wait(1400)
end;
scriptstatus
until(findcolor(x, y, MonsterMelee, 345, 156, 355, 163))or
(findcolor(x, y, MonsterMelee, 345, 187, 358, 193))or
(findcolor(x, y, MonsterMelee, 279, 185, 296, 191))or
(findcolor(x, y, MonsterMelee, 284, 153, 294, 163));
keyup(113);wait(50);keyup(113);wait(50)
end;
end; //////////////////////
until false
end.
{DID YOU REMEMBER TO REPLACE YOUR USERNAME AND PASSWORD WITH 'no relog' ?
THIS IS THE LAST THING YOU SEE BEFORE YOU SHARE A SCRIPT...
DONT SAY WE DIDNT WARN YOU.}
14 years, 15 weeks ago
|
Nerrevar
Joined: 14th Mar 2009
Posts: 780
Re: Autoing script help
I was too lazy to remove everything related to the mage procedure in the script.
Instead i simply added a boolean to choose whether or not you want it to mage.
True to mage. False to prevent mage.
program EoBots_AutoArcher;
var hitcount, x, y, MonsterMelee, facing, targetdir, hitcountreset, ks0, ks1, ks2, ks3,
ksx, ksy, kscolor, ksm, ksm1, ksm2, ksm3, ksm4, reloglock, sharecolor, okbutton, junk,
ww,www, pty, monster_on_screen, antimurder_speed, Antimurder_default ,char,damagecolor,
hpx, hpy, ptx, pty, ptts, squareonpots, HpColor, smallpot, healtype, drops, auto_junk,
attackside0,attackside1,attackside2,attackside3, healing, x7, y7, buypotsX, buypotsY,
focus:integer; //Notes for Console, erase
when releasing
var mode, version:string;
var KsZone:Tbox;
const
//- RELOGING FEATURES - DO NOT TOUCH IF YOU DO NOT WISH TO USE THIS -\\
user='no relog';
pass='no relog';
character=1;
usemage=true;
//- FOR HEAVENS SAKE REPLACE YOUR INFO WITH 'no relog' WHEN SHARING SCRIPT -\\
//- EoBots-online.com, Joeyroyden nor any of our team -\\
Procedure Pressk(Cnumber, Cwait: Integer);
Begin
KeyDown(Cnumber);
Sleep(Cwait);
Keyup(Cnumber);
End;
Procedure ReadString(word: String);
var
i,a:integer;
shift:boolean;
Begin
shift:=False
a:=Length(word);
i:=1;
while(i<a+1) do
Begin
Pressk(GetKeyCode(StrGet(word,i)),16);
Wait(20);
i:=i+1;
Wait(12);
End;
Wait(600);
End;
procedure w2(ww:integer);
begin
www:=ww*100
repeat
www:=www-100
cleardebug
writeln('Waitting: '+ inttostr(www/100))
wait(100)
until www=0
end;
procedure StayAlive;
begin
If findcolorspiral(hpx, hpy, hpcolor, 149, 24, 152, 40) then begin
clickmouse(78, 364, true);wait(200)
if findcolorspiral(ptx, pty, SquareOnPots,114, 364, 476, 468)then begin
clickmouse(ptx, pty, true)
wait(8)
clickmouse(ptx, pty, true)
sleep (350)
ptts:=ptts+1
end;
end;
end;
Procedure NextArrow;
begin
hitcount:=hitcount-1
wait(50)
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 relog;
begin
char:=character
clickmouse(600, 50, true);wait(500);
if findcolorspiral2(x, y, OkButton, 10, 10, 640, 350) then clickmouse(x, y, true);
wait(1000)
repeat
clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700)
until (findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)
repeat clickmouse(115, 375, true);w2(20)
until ((findcolorspiral(x, y, reloglock, 276, 322,575, 343)) or
(findcolorspiral(x, y, OkButton, 358, 307, 449, 332)))
clickmouse(414, 353, true);wait(500);
if(findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)then begin;
readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500);
clickmouse(409, 428, true);w2(30);end;
if findcolorspiral(x, y, OkButton,357, 305, 444, 333) then begin
clickmouse(380, 315, true);wait(500);pty:=4545 end;
if ((findcolorspiral(x, y, reloglock,280, 323, 574, 343)=false)and(pty=4545)=false )
then begin
wait(500);clickmouse(534, (128*(char)), true);wait(500);
repeat until((findcolorspiral (x, y, reloglock,17, 359, 54, 496))OR
(findcolorspiral(x, y, reloglock,280, 323, 574, 343))) end;
pty:=0 ;wait(500);
clickmouse(608, 446, true)
wait(500)
if (findcolorspiral(x, y,sharecolor,465, 455, 469, 459)=false) then begin
clickmouse(567, 461, true);wait(200)
end;
monster_on_screen:=antimurder_default;
end; //
Procedure login;
begin
char:=character
repeat
clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700)
until (findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)
repeat clickmouse(115, 375, true);w2(20)
until ((findcolorspiral(x, y, reloglock, 276, 322,575, 343)) or
(findcolorspiral(x, y, OkButton, 358, 307, 449, 332)))
clickmouse(414, 353, true);wait(500);
if(findcolorspiral (x, y, reloglock,17, 359, 54, 496)=false)then begin;
readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500)
clickmouse(409, 428, true);w2(30);end;
if findcolorspiral(x, y, OkButton,357, 305, 444, 333) then begin
clickmouse(380, 315, true);wait(500);pty:=4545 end;
if ((findcolorspiral(x, y, reloglock,280, 323, 574, 343)=false)and(pty=4545)=false )
then begin
wait(500);clickmouse(534, (128*(char)), true);wait(500);
repeat until((findcolorspiral (x, y, reloglock,17, 359, 54, 496))OR
(findcolorspiral(x, y, reloglock,280, 323, 574, 343))) end;
pty:=0 ;wait(500);
clickmouse(608, 446, true)
wait(500)
if (findcolorspiral(x, y,sharecolor,465, 455, 469, 459)=false) then begin
clickmouse(567, 461, true);wait(200)
end;
monster_on_screen:=antimurder_default;
end; //
procedure ScriptStatus;
begin
cleardebug;
writeln(mode)
writeln('Arrow:'+ inttostr(hitcount)+' - Facing:'+inttostr(facing)+' - Target:'+
inttostr(TargetDir))
writeln('KsControls - Up: '+Inttostr(Ks0)+' Down: '+Inttostr(Ks2)+' Right: '+
Inttostr(Ks1)+' Left: '+Inttostr(Ks3))
writeln('Antimuder Relog: '+inttostr(monster_on_screen))
If findcolorspiral(x7, y7, reloglock, 14, 358, 58, 499)=false then relog; {Detect Not in game}
If findcolorspiral2(x7, y7, okbutton, 353, 212, 441, 229) then begin {Detect D/c}
clickmouse(x7, y7, true);wait(500)
end;
if (isfkeydown(1) and isfkeydown(3))then begin
getmousepos(buypotsX, buypotsY);wait(200);keydown(52);wait(100)
repeat
clickmouse(buypotsX, buypotsY, true);wait(50); {Auto Buy Hotkeys}
clickmouse(322, 230, true);wait(50);clickmouse(322, 230, true);wait(50);
until ((isfkeydown(2) and isfkeydown(4))or
(findcolorspiral(x, y, OkButton, 385, 211, 440, 236)))
keyup(52);wait(100);
end;
if findcolorspiral2(x, y, OkButton, 385, 211, 440, 236)then begin
clickmouse(x, y, true);wait(1000)
end;
if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
else begin
if ((findwindowtitlepart('endless online', false)=false)) then begin
keydown(91);wait(100);keydown(82);wait(5); {Detect if eo is running}
keyup(91);wait(100);keyup(82);wait(1000);// Brings up run prompt
keydown(13);wait(100);keyup(13);w2(50);cleardebug;
findwindowtitlepart('endless online', false);activateclient;w2(30)
login;
end;
end;
end;
procedure welcome; begin
cleardebug;
writeln('AutoArcher v0.0.1');
writeln('Script by Joeyroyden and Console - Eobots-online.com. ');
writeln('Edited By Digitx For The Use of Melle');
if findwindowtitlepart ('endless online', false)then begin activateclient;wait(500)end
else begin
if ((findwindowtitlepart('endless online', false)=false)) then begin
keydown(91);wait(100);keydown(82);wait(5);
keyup(91);wait(100);keyup(82);wait(1000);// Brings up run prompt
keydown(13);wait(100);keyup(13);w2(50);cleardebug;
findwindowtitlepart('endless online', false);activateclient;w2(30)
login;
end;
end;
findwindowtitlepart('endless online', false);activateclient;w2(30)
getclientdimensions(x, y)
Writeln ('Client size: x'+ inttostr(x) +' y'+ Inttostr(y))
end;
procedure antimurder;
begin
Monster_on_screen:= Monster_on_screen-1
if Monster_on_screen<1 then begin
if (not(user='no relog')) then relog;
monster_on_screen:=Antimurder_default
end;
end;
procedure Archer0; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE UP- MODE');
if ((findcolor(x, y, MonsterMelee, 345, 156, 355, 163))
and (ks0=0)) then begin
TargetDir:=0
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//0
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks0:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False)
or (ks0=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure Archer1; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE RIGHT- MODE');
if (findcolor(x, y, MonsterMelee, 345, 187, 358, 193))and (ks1=0) then begin
TargetDir:=1
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//1
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks1:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False)
Or (Ks1=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure Archer2; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE DOWN- MODE');
if ((findcolor(x, y, MonsterMelee, 279, 185, 296, 191))and (ks2=0)) then begin
TargetDir:=2
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//2
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks2:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False)or (ks2=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure Archer3; begin
wait(100) mode:=(VERSION+'NOW IN -MELLE LEFT- MODE');
if ((findcolor(x, y, MonsterMelee, 284, 153, 294, 163))and(ks3=0)) then begin
TargetDir:=3
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end;
keydown(17)
Repeat
If(Monster_on_screen=20)Then
Begin
KeyDown(17);
End;
//3
NextArrow;scriptstatus;antimurder;StayAlive
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin Ks3:=1 keydown(113);wait(50);keyup(113)
Monster_on_screen:=Monster_on_screen-Antimurder_speed end;
until((findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False)or(ks3=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(300);
end;
end;
procedure ReleaseKs;
begin
if (findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False) then
begin ks0:=0 end;
if (findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False) then
begin ks1:=0 end;
if (findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False) then
begin ks2:=0 end;
if (findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False)then
begin ks3:=0 end;
if findcolorspiral(x, y, MonsterMelee, ksm1, ksm2, ksm3, ksm4)=false then ksZone:=inttobox(0, 0, 1, 1);
if (not(findcolorspiral (x, y, MonsterMelee, 13, 61, 630, 332))) then
if findcolorspiral( x, y,DamageColor, 304, 90,336, 110) then begin
ks0:=0
ks1:=0
ks2:=0
ks3:=0
end;
end;
procedure mage; begin
//Auto mage
if (usemage = true) then
begin
Focus:=1
mode:=(VERSION+'NOW IN -MAGE- MODE');
keydown(113);wait(50)
repeat
Monster_on_screen:=Monster_on_screen-1;
Antimurder;
if(FindColorSkipBox(x, y, MonsterMelee, 13, 61, 630, 332, KsZone))then
begin
if ((x>588) and (y<61)) then begin x:=588 y:=61 end;
If(GetColor(x,y)=MonsterMelee)Then
Begin
clickmouse(x, y, true)
wait(950)
End
Else
Begin
Wait(950);
End;
if findcolorspiral(KsX, KsY, KsColor, 311, 490, 315, 494) then begin
KsM:=1
ksm1:=x-95
ksm2:=y-95
ksm3:=x+95
ksm4:=y+95
KsZone:=inttobox(ksm1, ksm2, ksm3, ksm4)
end;
end;
if (
((attackside3=0) or
(findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False))) then Focus:=0;
if ( ((attackside2=0) or
(findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False))) then Focus:=0;
if ( ((attackside1=0) or
(findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False))) then Focus:=0;
if ( ((attackside0=0) or
(findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False))) then Focus:=0;
scriptstatus
until Focus=0
end;
end;
{Eobots online strongly recommend;s not touching anything ABOVE this line}
{Blank procedure.} procedure set_variables; begin end; //You can change script setting below.
begin
//colors (designed for 16-bit color depth)
MonsterMelee:=1638350 //You may change this to suit your video card
KsColor:=0 //You may change this to suit your video card
RelogLock:=255 //You may change this to suit your video card
OkButton:=10079232 //You may change this to suit your video card
sharecolor:=13158600 //You may change this to suit your video card
DamageColor:=9175295 //You may change this to suit your video card
SquareOnPots:=32896 //You may change this to suit your video card
HpColor:=16235924 //You may change this to suit your video card
smallpot:=14067381 //You may change this to suit your video card
drops:=8716032 //You may change this to suit your video card
junk:=5394616 //You may change this to suit your video card
//customization settings
HealType:=2 // Self heal/Group heal is Type 1, Small-Medium-Large heal is Type 2
Antimurder_speed:=10 // How much time to remove from antimurder timer when hitting ks protected monster
Antimurder_default:=500 // When this the overall antimurder timer, if it hits 0, you relog if features are on
HitCountReset:=10 // How long before the scripts corrects its direction, too short may cause walking/moving
auto_junk:=1 // Trash all non-valuable items, turn off if farming/collecting item drops
attackside0:=1 {up arrow} // Avoid attacking this side, great on a bridge or corner
attackside1:=1 {right arrow} // Avoid attacking this side, great on a bridge or corner
attackside2:=1 {down arrow} // Avoid attacking this side, great on a bridge or corner
attackside3:=1 {left arrow} // Avoid attacking this side, great on a bridge or corner
{Eobots online strongly recommends not touching anything BELOW this line}
targetdir:=5 //dont change, may cause undesired results if you do
Facing:=5 //dont change, may cause undesired results if you do
Monster_on_screen:=Antimurder_default //dont change, may cause undesired results if you do
ptts:=0 //dont change, may cause undesired results if you do
version:=('AMA 0.0.4 (Melle Edition) - ')
disguise(version);
welcome
repeat
if attackside0=1 then begin archer0;wait(50) end; //archer 0
if attackside1=1 then begin archer1;wait(50) end; //archer 1
if attackside2=1 then begin archer2;wait(50) end; // archer 2
if attackside3=1 then begin archer3;wait(50) end; // archer 3
StayAlive
releaseks
scriptstatus
if(findcolor(x, y, MonsterMelee, 345, 156, 355, 163)=False)or
(findcolor(x, y, MonsterMelee, 345, 187, 358, 193)=False)or
(findcolor(x, y, MonsterMelee, 279, 185, 296, 191)=False)or
(findcolor(x, y, MonsterMelee, 284, 153, 294, 163)=False) then mage;
//no monsters section
if (not(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332))) then begin//////////////
monster_on_screen:=monster_on_screen-1;
antimurder;
//get drops
WRITELN(VERSION+'NOW GETTING DROPS');
if(FindColorSpiral(x, y,drops,244, 149, 398, 224))then
begin
keyup(113);wait(50);keyup(112);wait(50)
FindColorSpiral2(x, y,drops, 244, 149, 398, 224)
wait(140);keydown(119);wait(20);keyup(119);wait(20);keyup(119);wait(200);
movemousesmooth(x, y);wait(200);clickmouse(x, y, true);wait(500)
clickmouse(78, 364, true);wait(300)
if auto_junk=1 then begin
WRITELN(VERSION+'CHECKING FOR JUNK');
if findcolorspiral(x, y, junk, 112, 365, 477, 471) then begin
clickmouse(x, y-3, true);wait(100); movemousespline(551, 447,1, 1);wait(100);
clickmouse(551, 447, true);wait(250);
WRITELN(VERSION+'CHECKING FOR DISCONECTION NOTICE');
if findcolorspiral(x, y, okbutton, 20, 20, 600, 300) then
begin
clickmouse(x, y, true);wait(100)
holdmouse(222, 201, true);wait(100)
movemousespline(329, 201,0,0);wait(150)
releasemouse(329, 201, true);wait(100)
clickmouse(295, 238, true);
end;
end;
end;
clickmouse(80, 450, true);wait(200)
end;
//Auto Heal
repeat
if findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40) then begin
WRITELN(VERSION+'NOW IN -MAGE HEALING- MODE');
keydown(112);wait(450);
if healing=0 then begin healing:=1 clickmouse(80,369,true);wait(200) end;
if findcolorspiral(x, y, smallpot, 112, 365, 478, 471) then begin
clickmouse(x, y, true);wait(20);clickmouse(x, y, true) end else begin
if Healtype=2 then clickmouse(322, 185, true);keyup(112);if healtype=2 then w2(13)
end;
end;
until( (not(findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40))) or
(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332)));
if healing=1 then begin
clickmouse(80, 450, true) keyup(112) wait(1000);
healing:=0
end;
//no drops, no heal, no monster, enter focus mode
if (
(not(findcolorspiral(hpx, hpy, hpcolor, 153, 27, 205, 40))) and
(not(FindColorSpiral(x, y,drops,244, 149, 398, 224))) and
(not(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332)))
) then begin
Focus:=1
mode:=(VERSION+'NOW IN FOCUS MODE');
keydown(113);wait(50)
repeat
monster_on_screen:=monster_on_screen-1;
antimurder;
if(FindColorSkipBox(x, y, MonsterMelee, 13, 61, 630, 332, KsZone))then
begin
if ((x>588) and (y<61)) then begin x:=588 y:=61 end;
clickmouse(x, y, true)
wait(1400)
end;
scriptstatus
until(findcolor(x, y, MonsterMelee, 345, 156, 355, 163))or
(findcolor(x, y, MonsterMelee, 345, 187, 358, 193))or
(findcolor(x, y, MonsterMelee, 279, 185, 296, 191))or
(findcolor(x, y, MonsterMelee, 284, 153, 294, 163));
keyup(113);wait(50);keyup(113);wait(50)
end;
end; //////////////////////
until false
end.
{DID YOU REMEMBER TO REPLACE YOUR USERNAME AND PASSWORD WITH 'no relog' ?
THIS IS THE LAST THING YOU SEE BEFORE YOU SHARE A SCRIPT...
DONT SAY WE DIDNT WARN YOU.}
14 years, 15 weeks ago
|
Re: Autoing script help
Thanks =D
Edit. It dont attack but it still heals with mage. Could you make it stop that to?
Thanks Swampy
14 years, 15 weeks ago
| | | |
