Script For Auto Archer, Mage, Relog, Small Heall




{ AutoArcher - Scripted by Joeyroyden, Assisted by Console }
{ Unlike any script on EoBots, I've designed this one with mass compatibility in mind }
{ PLEASE CHANGE YOUR WINDOWS SYSTEM COLOR DEPTH TO 16-BIT }
{ Script tested in Windows Vista and Windows XP }
// Fire on F2, heal on F1, set healtype in setting box (hint, click set_variables over there) ===>
{ EoBots Auto Client 28.5 is required }

{Built in hotkeys}
// F1 + F3
// Point your cursor at any item you want to buy alot of and press f1+d3
// together to buy until your full. Hold F2 and F4 to stop buying


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='User Nmae';
       pass='Password';
       character=1;


    //- FOR HEAVENS SAKE REPLACE YOUR INFO WITH 'no relog' WHEN SHARING SCRIPT -\\
              //- EoBots-online.com, Joeyroyden nor any of our team -\\



Procedure ReadString(str: String);{by rena: START}
var
i,strLength :Integer;
goer: Boolean;

begin
i:=1
strLength:=Length(str)
goer:=False
while(i
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 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(100)
if findcolorspiral(ptx, pty, SquareOnPots,114, 364, 476, 468)then begin
clickmouse(ptx, pty, true)
wait(8)
clickmouse(ptx, pty, true)
sleep (150)
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(800)
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. ');

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 -ARCHER UP- MODE');
if (((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)) or
(findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72))) and (ks0=0)) then begin
TargetDir:=0
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
keydown(17)
Repeat                                                                                          //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(((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)=false) and
(findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72)=false))or (ks0=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(200);
end
end;



procedure Archer1; begin
wait(100) mode:=(VERSION+'NOW IN -ARCHER RIGHT- MODE');
if (((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)) or
(findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273))) and (ks1=0)) then begin
TargetDir:=1
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
keydown(17)
Repeat                                                                                         //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(((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)=false) and
(findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)=false))or (Ks1=1))

Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(200);
end
end;




procedure Archer2; begin
wait(100) mode:=(VERSION+'NOW IN -ARCHER DOWN- MODE');
if (((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)) or
(findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)))and (ks2=0)) then begin
TargetDir:=2
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
keydown(17)
Repeat                                                                                            //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(((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)=false) and
(findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)=false))or (ks2=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(200);
end
end;





procedure Archer3; begin
wait(100) mode:=(VERSION+'NOW IN -ARCHER LEFT- MODE');
if (((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)) or
(findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)))and(ks3=0)) then begin
TargetDir:=3
If not(Facing=TargetDir) then begin sendarrowwait(TargetDir, 100) Facing:=TargetDir end
keydown(17)
Repeat                                                                                            //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(((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)=false) and
(findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)=false))or(ks3=1))
Keyup(17);wait(50);Keyup(17); hitcount:=hitcountreset wait(200);
end
end;

procedure ReleaseKs;
begin
if ((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)=false) and
(findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72)=false)) then
begin ks0:=0 end

if ((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)=false) and
(findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)=false)) then
begin ks1:=0 end

if ((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)=false) and
(findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)=false)) then
begin ks2:=0 end

if ((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)=false) and
(findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)=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 Monster_on_screen:=Antimurder_default

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

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(750)
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
(findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)=false) and      //3
(findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)=false))) then Focus:=0

if ( ((attackside2=0) or
(findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)=false) and    //2
(findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)=false))) then Focus:=0

if ( ((attackside1=0) or
(findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)=false) and    //1
(findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)=false))) then Focus:=0
if ( ((attackside0=0) or
(findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)=false) and    //0
(findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72)=false)))     then Focus:=0
scriptstatus
until Focus=0
end
end;

{Eobots online strongly recommends 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:=1638350                          //You may change this to suit your video card
RelogLock:=255                            //You may change this to suit your video card
OkButton:=10276608                        //You may change this to suit your video card
sharecolor:=13552590                      //You may change this to suit your video card
DamageColor:=9175295                      //You may change this to suit your video card
SquareOnPots:=33412                       //You may change this to suit your video card
HpColor:=16236180                         //You may change this to suit your video card
smallpot:=14067381                        //You may change this to suit your video card
drops:=2345123                            //You may change this to suit your video card
junk:=14606335                            //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:=100                     // How much time to remove from antimurder timer when hitting ks protected monster
Antimurder_default:=1500                  // When this the overall antimurder timer, if it hits 0, you relog if features are on
HitCountReset:=80                        // How long before the scripts corrects its direction, too short may cause walking/moving
auto_junk:=0                              // Trash all non-valuable items,set to 1 to turn on 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 - ')
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(not(((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)) or      //3
(findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)))
or
((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)) or    //2
(findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)))
or
((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)) or    //1
(findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)))
or
((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)) or    //0
(findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72))))) then mage

//no monsters section
if (not(findcolorspiral(x, y, MonsterMelee, 13, 61, 630, 332))) then begin//////////////


//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(100);clickmouse(x, y, true);wait(300)


clickmouse(78, 364, true);wait(100)
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(100)

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(100);
if healing=0 then begin healing:=1 clickmouse(80,369,true);wait(100) 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(318, 137, 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(400);
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

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(600)
end
scriptstatus

until (((findcolortriangle(x, y, MonsterMelee, 129, 70, 109, 86, 309, 162)) or      //3
(findcolortriangle(x, y, MonsterMelee, 297, 182, 109, 86, 309, 162)))
or
((findcolortriangle(x, y, MonsterMelee, 109, 276, 125, 290, 295, 182)) or    //2
(findcolortriangle(x, y, MonsterMelee, 313, 194, 125, 290, 295, 182)))
or
((findcolortriangle(x, y, MonsterMelee, 342, 180, 326, 194, 528, 273)) or    //1
(findcolortriangle(x, y, MonsterMelee, 515, 290, 326, 194, 528, 273)))
or
((findcolortriangle(x, y, MonsterMelee, 327, 163, 349, 179, 508, 72)) or    //0
(findcolortriangle(x, y, MonsterMelee, 529, 81, 349, 179, 508, 72))))

keyup(113);wait(50);keyup(113);wait(50)
end

end //////////////////////

until facing=8
end.

{

- -  F e a t u r e s / H i s t o r y - -

-----------------------
| [+] - New             |
| [!] - Revised / Fixed |
| [&] - Removed         |
-----------------------

v0.0.1  [+] Archer
v0.0.1  [+] Mage
v0.0.1  [+] Ks Control Archer
v0.0.1  [+] Ks Control Mage
v0.0.1  [+] Auto Start Eo
v0.0.1  [+] Relog (v0.0.2 detect dc, v0.0.2 detect login screen)
v0.0.1  [+] AntiMurder
v0.0.1  [+] AutoPots
v0.0.1  [+] AutoHeal
v0.0.1  [+] Pick Up Drops
v0.0.1  [+] Auto Junk (overweight protection)
v0.0.1  [+] Basic Lag Protection

v0.0.2  [!] AntiMurder Revised
v0.0.2  [+] AutoBuy Hotkeys
v0.0.2  [!] Relog (added d/c detection and login screen detection)
v0.0.2  [+] Restart EO if turned off (requires preset in run prompt)

v0.0.3  [!] Fixed directional recovery, additions slowed the timers right down, had to compensate.
v0.0.3  [!] Fixed login screen activation, wont click out of game when you start script from login screen anymore.

v0.0.4  [+] Focused maging, script will speed mage with kscontrol until melee is available (if healed and no drops)
v0.0.4  [!] Modified Mage engine, much faster now
v0.0.4  [!] Drop Pickups engine, do not keep any spells in f8, will press f8 to clear spells and ensure item is picked up
V0.0.4  [!] Improved status window display
v0.0.4  [+] Added version to display

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.






  }
program New;
begin
end.