Credits to HoboSlayer
Tested by Me,HoboSlayer,and some friends{Improved Fully automated script by Hoboslayerx}
{Instructions:}
//Have your main attack key on CTRL
//Change the only constant to whatever your npc chat bind is
{I am only releasing the first 70 levels of my script. Tired of leechers.}
{If you feel you give to the community then PM me and ill give you the rest.}
{If you are smart enough to continue the script, you are more than welcome.}
{You are, however, not welcome to post the script if you complete it.}
program AfkLvler;
Const
NPC = 'y'; //Npc chat bind. i recommend y. you should just use y
procedure WaitMap(mapID : integer);
Begin
While Character.MapID <> mapID Do
Begin
Sleep(200);
End;
End;
procedure zipangu();
Begin
mapleprint('Teleporting to kerning');
Activatecommand('m kerningcity');
Waitmap(103000000);
Sleep(1000);
Character.teleport(-1272, -204);
mapleprint('Going to zipangu');
Sleep(1500);
Sendkey(NPC);
Sleep(1500);
Sendkey(NPC);
Sleep(1500);
Sendkey(NPC);
Sleep(1500);
Sendkey(NPC);
Sleep(1500);
Sendkey(NPC);
Waitmap(800000000);
Sleep(2000);
end;
procedure through24();
begin
if (character.mapid < 800000000) OR (character.mapid > 801030000) then
begin
zipangu();
end;
if (character.mapid > 799999999) AND (character.mapid < 801030001) then
begin
if character.mapid = 800020000 then
begin
mapleprint('Training here till 24');
while (character.mapid = 800020000) AND (character.level < 24) do
begin
Hunter.huntmove(400);
Sleep(1000);
end;
sleep(1000);
end
else
begin
Character.rush(800020000);
end;
end;
end;
procedure through32();
begin
if (character.mapid < 800000000) OR (character.mapid > 801030000) then
begin
zipangu();
end;
if (character.mapid > 799999999) AND (character.mapid < 801030001) then
begin
if character.mapid = 800020110 then
begin
mapleprint('Training here till 32');
while (character.mapid = 800020110) AND (character.level < 32) do
begin
Hunter.huntmove(335);
Sleep(1000);
end;
sleep(1000);
end
else
begin
Character.rush(800020110);
end;
end;
end;
procedure through50();
begin
if (character.mapid < 800000000) OR (character.mapid > 801030000) then
begin
zipangu();
end;
if (character.mapid > 799999999) AND (character.mapid < 801030001) then
begin
if character.mapid = 800020120 then
begin
mapleprint('Training here till 50');
while (character.mapid = 800020120) AND (character.level < 50) do
begin
Hunter.huntmove(500);
Sleep(1000);
end;
sleep(1000);
end
else
begin
Character.rush(800020120);
end;
end;
end;
procedure through60();
begin
if (character.mapid < 260000000) OR (character.mapid > 261020500) then
begin
activatecommand('m magatia');
sleep(6000);
end;
if (character.mapid > 259999999) AND (character.mapid < 261010104) then
begin
if character.mapid = 260020600 then
begin
mapleprint('Training here till 60');
while (character.mapid = 260020600) AND (character.level < 60) do
begin
Hunter.huntmove(-120);
Sleep(1000);
end;
sleep(1000);
end
else
begin
Character.rush(260020600);
end;
end;
end;
procedure through70();
begin
if (character.mapid < 260000000) OR (character.mapid > 261020500) then
begin
activatecommand('m magatia');
sleep(6000);
end;
if (character.mapid > 259999999) AND (character.mapid < 261020501) then
begin
if character.mapid = 261010003 then
begin
mapleprint('Training here till 70');
while (character.mapid = 261010003) AND (character.level < 70) do
begin
Hunter.huntmove(-464);
Sleep(1000);
end;
sleep(1000);
end
else
begin
Character.rush(261010003);
end;
end;
end;
//MAIN
begin
While true do
begin
if Character.level < 1 then
While character.level < 1 do
sleep(5000);
if Character.level < 24 then
through24();
if (Character.level < 32) and (character.level > 23) then
through32();
if (Character.Level < 50) and (character.level > 31) then
through50();
if (Character.Level < 60) and (character.level > 49) then
through60();
if (Character.Level < 70) and (character.level > 59) then
through70();
if (Character.Level > 69) then
begin
mapleprint('You are above level 70, exiting');
activatecommand('m magatia');
exit;
end;
Sleep(2000);
end;
end.






