Jimmy's Autoing Help Site
program HarrysArcher;
{Credit Sampless, for helping me troubleshoot and fix the WalkOut procedure}
const
user='user';
pass='pass';
RelogType=1; //AutoHSing=1 || Normal Auto = 2
clock_checker=1;
UseMage=false; //Key=F2
UseHeal=True; //Key=F1
UsePots=True; //Used when health is critical (Uses Big&Small)
AttackType=3; //1 = Melee || 2 = Archer || 3 = HS Melee || 4 = HS Archer
UseAutoHax=false; //EOTrainer 1.5
var
x,y,Dir,Facing,Gotoo,Time,TimerTime,MonsterCount,Monsters,AntiFreeze,AntiF,Kills:integer;
procedure ActivateHacks; {By Harry}
begin
if (UseAutoHax=True) then
begin
wait(100);
findwindowbysize(380,355);
activateclient;
wait(1000);
cleardebug;
clickmouse(123,37,true);wait(20);
clickmouse(123,37,true);wait(100);
writeln('Unlimited SP: Activated');
clickmouse(122,60,true);wait(20);
clickmouse(122,60,true);wait(100);
writeln('Anti-AFK: Activated');
clickmouse(124,134,true);wait(20);
clickmouse(124,134,true);wait(100);
writeln('Status Bars: Activated');
clickmouse(308,61,true);wait(20);
clickmouse(308,61,true);wait(100);
writeln('Attack Hack: Activated');
clickmouse(122,230,true);wait(20);
clickmouse(122,230,true);wait(100);
writeln('Chat Flood: Activated');
writeln('');
writeln('Needed Hacks Activated, you have 5 seconds to select any additional hacks you want');
wait(5000);
findwindowtitlepart('endless online', false);activateclient;
end;
end; {By Harry}
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 Login;
begin
clickmouse(165,368,true);
wait(1000);
ReadString(user);
wait(1000);
clickmouse(431,390,true);
wait(100);
ReadString(pass);
clickmouse(402,429,true);
wait(2000);
if findcolorspiral(x,y,10276608,418,15,438,326) then
begin
clickmouse(x,y,true);
wait(100);
Login;
end
Else
repeat
clickmouse(535,136,true);
until findcolorspiral(x,y,2170095,397,362,399,366);
end;
procedure dc_check;
begin
if findcolorspiral(x,y,10276608,423,316,437,327) then
begin
clickmouse(x,y,true);wait(1000);
Login;
end;
end;
procedure clock_check;
begin
if (clock_checker=1) then
begin
wait(1000);
findwindowtitlepart('date and time properties',false);
wait(200);
activateclient;
if findcolorspiral(x,y,0,16,41,18,43) then
begin
clickmouse(283,238,true);
wait(1000);
ReadString('02');
wait(1000);
clickmouse(177,219,true);
wait(1000);
clickmouse(359,326,true);
wait(1000);
findwindowtitlepart('endless online',false);
wait(2000);
activateclient;
end;
end;
end;
procedure Relog;
begin
keydown(116);wait(20);
keyup(116);wait(20);
clickmouse(602,51,true);
wait(300);
clickmouse(329,225,true);
wait(300);
clock_check;
clickmouse(165,368,true);
wait(1000);
ReadString(user);
wait(1000);
clickmouse(431,390,true);
wait(100);
ReadString(pass);
clickmouse(402,429,true);
wait(2000);
if findcolorspiral(x,y,10276608,418,15,438,326) then
begin
clickmouse(x,y,true);
wait(100);
Login;
end
Else
repeat
clickmouse(535,136,true);
dc_check;
until findcolorspiral(x,y,2170095,397,362,399,366);
end;
procedure MonsterCounter;
begin
if (RelogType=1) then
begin
Monsters:=Monsters-1
if Monsters<1 then
begin
keyup(117);
keyup(117);
Relog;
Monsters:=MonsterCount;
end;
end;
end;
procedure Killcount;
begin
Kills:=Kills+1
end;
procedure AntiFreezer;
begin
wait(700);
AntiF:=AntiF-1
if AntiF<0 then
begin
keyup(117);
keyup(116);
Relog;
Monsters:=MonsterCount
AntiF:=AntiFreeze
end;
end;
procedure WalkOut; {By Shoy}{edited by Harry}
begin
If Findcolor(x,y,1638350,306,173,312,189)
then
begin
keydown(123)
wait(300)
keyup(123)
wait(200)
gotoo:=RandomRange(0,4)
sendarrowwait(Gotoo,100);
gotoo:=5
end
end; {By Shoy}
procedure Mage;
begin
if (UseMage=True) then
begin
if findcolorspiral(x,y,1638350,23,51,580,340) then
begin
keydown(113);wait(20);keyup(113);wait(20);
clickmouse(x,y,true);wait(2000);
end;
end;
end;
procedure Heal;
begin
if (UseHeal=True) then
begin
if findcolorspiral(x,y,16236180,133,34,204,37) then
begin
keydown(112);wait(20);keyup(112);wait(20);
clickmouse(318,148,true);wait(2000);
end;
end;
end;
procedure Pots;
begin
if (UsePots=True) then
begin
if findcolorspiral(x,y,16236180,126,34,132,37) then
begin
clickmouse(83,366,true);wait(100);
if findcolorspiral(x,y,33412,114,367,476,469) then
begin
clickmouse(x,y,true);wait(100);
clickmouse(x,y,true);wait(100);
end;
end;
end;
end;
procedure ScriptStatus;
begin
cleardebug;
writeln('#######################################');
writeln('####### Jimmys Auto Script ############');
writeln('#######################################');
writeln('# www.jimmyshelpsite.yolasite.com #####');
writeln('#######################################');
writeln('Monsters Left: '+inttostr(Monsters)+' || Kills: '+inttostr(Kills));
writeln('AntiFreeze: '+inttostr(AntiF)+' || Time Left: '+inttostr(Time));
end;
procedure Timer;
begin
if (RelogType=2) then
begin
wait(1000);
Time:=Time-1
ScriptStatus;
if Time<1 then
begin
Relog;
repeat
Time:=TimerTime;
until findcolorspiral(x,y,255,15,358,16,360);
end;
end;
end;
procedure Melee;
begin
if (AttackType=1) then
begin
if findcolorspiral(x,y,1638350,280,164,293,173) then begin; Dir:=3; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100); Facing:=Dir; end; repeat;keydown(17);ScriptStatus;wait(20);keyup(17);wait(20);antifreezer;until not(findcolorspiral(x,y,1638350,280,164,293,173));Keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus; end;
if findcolorspiral(x,y,1638350,354,165,357,172) then begin; Dir:=0; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100); Facing:=Dir; end; keydown(17);wait(20);repeat;ScriptStatus;antifreezer;until not(findcolorspiral(x,y,1638350,354,165,357,172));Keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus; end;
if findcolorspiral(x,y,1638350,345,196,355,203) then begin; Dir:=1; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100); Facing:=Dir; end; keydown(17);wait(20);repeat;ScriptStatus;antifreezer;until not(findcolorspiral(x,y,1638350,345,196,355,203));Keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus; end;
if findcolorspiral(x,y,1638350,281,197,292,205) then begin; Dir:=2; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100); Facing:=Dir; end; keydown(17);wait(20);repeat;ScriptStatus;antifreezer;until not(findcolorspiral(x,y,1638350,281,197,292,205));Keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus; end;
end;
end;
procedure Archer;
begin
if (AttackType=2) then
begin
if findcolortriangle(x,y,1638350,287,183,310,169,146,97) then begin; Dir:=3; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,129,70,109,86,288,162));keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end else if (Facing=Dir) then begin; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,129,70,109,86,288,162));keyup(17);wait(20);wait(1000)KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
if findcolortriangle(x,y,1638350,325,170,350,181,492,97) then begin; Dir:=0; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,327,163,349,179,508,72));keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end else if (Facing=Dir) then begin; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,327,163,349,179,508,72));keyup(17);wait(20);wait(1000)KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
if findcolortriangle(x,y,1638350,342,180,326,194,528,273) then begin; Dir:=1; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,342,180,326,194,528,273));keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end else if (Facing=Dir) then begin; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,342,180,326,194,528,273));keyup(17);wait(20);wait(1000)KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
if findcolortriangle(x,y,1638350,316,200,286,188,143,272) then begin; Dir:=2; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,109,276,125,290,295,182));keyup(17);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end else if (Facing=Dir) then begin; keydown(17);wait(100);repeat;ScriptStatus;antifreezer;until not(findcolortriangle(x,y,1638350,109,276,125,290,295,182));keyup(17);wait(20);wait(1000)KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
end;
end;
procedure HSMelee;
begin
if (AttackType=3) then
begin
if findcolorspiral(x,y,1638350,280,164,293,173) then begin; Dir:=3; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100);wait(100); Facing:=Dir; end; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolorspiral(x,y,1638350,280,164,293,173));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;wait(1000);Heal;Pots;ScriptStatus; end;
if findcolorspiral(x,y,1638350,354,165,357,172) then begin; Dir:=0; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100);wait(100); Facing:=Dir; end; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolorspiral(x,y,1638350,354,165,357,172));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;wait(1000);Heal;Pots;ScriptStatus; end;
if findcolorspiral(x,y,1638350,345,196,355,203) then begin; Dir:=1; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100);wait(100); Facing:=Dir; end; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolorspiral(x,y,1638350,345,196,355,203));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;wait(1000);Heal;Pots;ScriptStatus; end;
if findcolorspiral(x,y,1638350,281,197,292,205) then begin; Dir:=2; if not(Facing=Dir) then begin; sendarrowwait(Dir, 100);wait(100); Facing:=Dir; end; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolorspiral(x,y,1638350,281,197,292,205));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;wait(1000);Heal;Pots;ScriptStatus; end;
end;
end;
procedure HSArcher;
begin
if (AttackType=4) then
begin
if findcolortriangle(x,y,1638350,287,183,310,169,146,97) then begin; Dir:=3; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,287,183,310,169,146,97));wait(1000);wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus;end else if (Facing=Dir) then begin;keydown(17);wait(20);repeat;keydown(117);wait(2000);keyup(117);wait(20);keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,287,183,310,169,146,97));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
if findcolortriangle(x,y,1638350,325,170,350,181,492,97) then begin; Dir:=0; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,325,170,350,181,492,97));wait(1000);wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus;end else if (Facing=Dir) then begin;keydown(17);wait(20);repeat;keydown(117);wait(2000);keyup(117);wait(20);keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,325,170,350,181,492,97));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
if findcolortriangle(x,y,1638350,342,180,326,194,528,273) then begin; Dir:=1; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,342,180,326,194,528,273));wait(1000);wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus;end else if (Facing=Dir) then begin;keydown(17);wait(20);repeat;keydown(117);wait(2000);keyup(117);wait(20);keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,342,180,326,194,528,273));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
if findcolortriangle(x,y,1638350,316,200,286,188,143,272) then begin; Dir:=2; if not(Facing=Dir) then begin; sendarrowwait(Dir,100);wait(100); Facing:=Dir; keydown(17);wait(20);repeat;keydown(117);wait(2000);ScriptStatus;keyup(117);wait(20);antifreezer;keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,316,200,286,188,143,272));wait(1000);wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);wait(1000);MonsterCounter;KillCount;AntiF:=AntiFreeze;Pots;Heal;ScriptStatus;end else if (Facing=Dir) then begin;keydown(17);wait(20);repeat;keydown(117);wait(2000);keyup(117);wait(20);keydown(116);wait(20);keyup(116);wait(20);until not(findcolortriangle(x,y,1638350,316,200,286,188,143,272));wait(20);keyup(17);keydown(116);wait(20);keyup(116);wait(20);MonsterCounter;KillCount;AntiF:=AntiFreeze;Heal;Pots;ScriptStatus;end;end;
end;
end;
procedure How_To_Use; begin; end;
{You will need speed set on F5 for 1 and F6 for Speed Up.}
{If your using the ActivateHacks feature, have EOTrainer v1.5 open and UseAutoHax set to True}
{If your using normal auto, have RelogType set to 2, if your using AutoHS set it to 1}
{There are 4 melee types, Melee[Set AttackType to 1], Archer[Set to 2], HSMelee[Set to 3], HSArcher[Set to 4]}
{Everything else is pretty straighforward, except make sure you edit this to suit you | }
{That will Relog after it's killed that amount of Monsters {|}
{Make sure RelogType is set to 1 if your using that feature {|}
{Set your Color Depth to 16bit.. I made this on vista so I might have to release {|}
{an XP version} {|}
{|}
{|}
begin {|}
Dir:=5 {|}
Facing:=5 {|}
MonsterCount:=10; {<------------------------------------------------------------------|}
Monsters:=MonsterCount;
TimerTime:=1800 //30mins default, (minutes)*60 for custom.
Time:=TimerTime
AntiFreeze:=20
AntiF:=AntiFreeze
Kills:=0
activatehacks;
findwindowtitlepart('endless online',false);
wait(200);
activateclient;
repeat
timer;
Melee;
Archer;
HSMelee;
HSArcher;
Mage;
dc_check;
WalkOut;
Pots;
until(false)
end.
