fay12


Usuario
Instrucciones
1.- Tener el Angel Processor actual  
2.- Tener el Injector
3.- Introducir el script en el Angel Processor
4.- Disfrutar del Auto Bot


Esto es el mismo post de ANGELITA  lo  unico que se  iso aqui  fue corregir algunos errores de codigo espero haber ayudado  Asi q  los credito no sabria  a quien dar solo ayudo al foro espero q  lo disfruten....

eclado:
1.- Ctrl -----> Attack
2.- Z ------> pick Up
3.- Jump ------> Alt

Como evitar ser Baneados o Desconectados
1.- No Usar el GND -----> Auto Ban  ----> Desconecta
2.- No Usar el Iten Pet vac ------> Desconecta
3.- Solo levear en los mapas recomendados

Al momento de copiar....
haganlo bien !!! desde inicio a fin... !! LEER BIEN TODO ! SI FUNKAA !!


Código:
program FullAFKBot;
var
Way:Boolean;
x: Integer;


procedure WaitMap(mapID : integer);
begin
While Character.MapID <> mapID Do
Begin
Sleep(200);
end;
end;


begin
Way:=true;
while 1=1 do
begin

If (Character.Level > 9) and (Character.level < 16) and (Character.MapID > 310010400) then
begin
mapleprint('Rushing to Edelstein till lv 16');
Activatecommand('m edelstein');
WaitMap(310000000);
Sleep(2000);
end;
If (Character.Level > 9) and (Character.level < 16) and (Character.MapID < 310010400) then
begin
mapleprint('Rushing to Edelstein till lv 16');
Activatecommand('m edelstein');
WaitMap(310000000);
Sleep(2000);

end;

If (Character.MapID = 310000000) then
begin
Character.Rush(310010010);
Sleep(800);
WaitMap(310010010);
Sleep(800);
end;

If (Character.MapID = 310010010) then
begin
Character.Teleport(-396,60);
Sleep(2500);
SendKey('{UP}');
Sleep(1500);
SendPacket('81 00 05 01 03 00 00 00');
WaitMap(310010400);
Sleep(5000);
end;

If (Character.MapID = 310010400) then
begin
Hunter.HuntMove(-509);
Sleep(600);
Hunter.HuntMove(-426);
Sleep(600);
end;

If (Character.Level > 15) And (Character.Level < 30) And (Character.MapID > 101040310) then
begin
mapleprint('Rushing to Ellinia till lv 30');
Activatecommand('m ellinia');
WaitMap(101000000);
Sleep(2000);
end;

If (Character.Level > 15) And (Character.Level < 30) And (Character.MapID < 101040310) then
begin
mapleprint('Rushing to Ellinia till lv 30');
Activatecommand('m ellinia');
WaitMap(101000000);
Sleep(2000);
end;


If (Character.MapID = 101000000) then
begin
Character.Rush(101040310);
Sleep(1000);
WaitMap(101040310);
Sleep(1000);
end;

If (Character.MapID = 101040310) and (Character.LeveL < 35) then
begin
Hunter.huntMove(187);
Hunter.huntMove(366)
end;

If (Character.Level > 34) and (Character.MapID < 222000000) and (Character.Level < 56) then
begin
mapleprint('Rushing to KoreanFolkTown Till lv 55');
Activatecommand('m koreanfolktown');
WaitMap(222000000);
Sleep(1500);
end;

If (Character.Level > 34) and (Character.MapID > 222010100) and (Character.Level < 56) then
begin
mapleprint('Rushing to KoreanFolkTown Till lv 55');
Activatecommand('m koreanfolktown');
WaitMap(222000000);
Sleep(1500);
end;

If (Character.MapID = 222000000) and (Character.Level > 34) and (Character.Level < 56) then
begin
Character.Rush(222010100);
WaitMap(222010100);
Sleep(1500);
end;

If (Character.MapID = 222010100) and (Character.Level < 56) then
begin
Hunter.huntMove(-1263);
Sleep(1000);
Hunter.huntMove(-1163);
Sleep(1000);
Hunter.huntMove(-1263);
Hunter.Jump(0);
Hunter.huntMove(-1263);
Sleep(1000);
Hunter.huntMove(-1163);
Sleep(1000);
Hunter.huntMove(-1263);
Sleep(1000);
Hunter.JumpDown;
end;

If (Character.Level > 55) and (Character.Level < 69) and (Character.MapID < 26100000) then
begin
mapleprint('Rushing to Magatia TILL LVL 90!');
Activatecommand('m magatia');
WaitMap(261000000);
Sleep(1000);
end;

If (Character.Level > 55) and (Character.Level < 69) and (Character.MapID > 261010101) then
begin
mapleprint('Rushing to Magatia TILL LVL 90!');
Activatecommand('m magatia');
WaitMap(261000000);
Sleep(1000);
end;

If (Character.MapID = 261000000) and (Character.Level < 69) then
begin
Character.Rush(261010003);
WaitMap(261010003);
Sleep(1000);
end;

If (Character.MapID = 261010003) and (Character.Level < 69) then // 55 ~ 68
begin
Hunter.huntMove(-546);
Sleep(2000);
Hunter.huntMove(-239);
Sleep(2000);
end;

If (Character.Level > 68) and (Character.Level < 91) And (Character.MapID < 261010101) then //lvl 68 ~ 90
begin
Character.Rush(261010101);
WaitMap(261010101);
Sleep(1000);
end;

If (Character.Level > 68) and (Character.Level < 91) And (Character.MapID > 261010101) then //lvl 68 ~ 90
begin
Character.Rush(261010101);
WaitMap(261010101);
Sleep(1000);
end;

If (Character.MapID = 261010101) then
begin
Hunter.HuntMove(-111);
Sleep(200);
Hunter.HuntMove(-400);
Sleep(200);
end;

//HerbTownRed-Nose Pirate Den 2 (Final, DC)
If (Character.Level > 90) And (Character.Level < 101) And (Character.MapID > 251010402) then //lvl 90 ~ 100
begin
mapleprint('Rushing to Herb Town till lv 110');
Activatecommand('m herbtown');
WaitMap(251000000);
Sleep(2000);
end;

If (Character.Level > 90) And (Character.Level < 101) And (Character.MapID < 251010402) then //lvl 90 ~ 100
begin
mapleprint('Rushing to Herb Town till lv 110');
Activatecommand('m herbtown');
WaitMap(251000000);
Sleep(2000);
end;


If (Character.MapID = 251000000) then
begin
Character.Rush(251010402);
Sleep(1000);
WaitMap(251010402);
Sleep(1000);
end;

If (Character.MapID = 251010402) then
begin
if (Character.Y>-94)then
Begin
Hunter.HuntMove(-600);
while(Character.Y>-94)do
begin
Hunter.HuntMove(-183);
Hunter.HuntMove(-83);
sleep(500);
if(Character.X>=-103)AND(Character.X<=-63)then
begin
Hunter.Jump(0);
Hunter.Rope(-94);
end;
end;
end
else if (Character.Y<=-94)AND(Character.Y>-235)then
Begin
while(Character.Y>-235)do
begin
Hunter.HuntMove(-65);
Hunter.HuntMove(35);
sleep(500);
if(Character.X>=15)AND(Character.X<=55)then
begin
Hunter.Jump(0);
Hunter.Rope(-235);
end;
end;
Hunter.Move(-73);
Hunter.HuntMove(940);
end
else if(Character.Y=-235)then
begin
Hunter.HuntMove(-600);
end
else
begin
Hunter.HuntMove(-874);
end;
end;

If (Character.Level > 100) And (Character.Level < 111) And (Character.MapID > 220070201) then //lvl 100 ~ 110
begin
mapleprint('Rushing to Ludibrium till lv 110');
Activatecommand('m ludibrium');
WaitMap(220000000);
Sleep(2000);
end;

If (Character.Level > 100) And (Character.Level < 111) And (Character.MapID < 220000000) then //lvl 100 ~ 110
begin
mapleprint('Rushing to Ludibrium till lv 110');
Activatecommand('m ludibrium');
WaitMap(220000000);
Sleep(2000);
end;


If (Character.MapID = 220000000) then
begin
Character.Rush(220070201);
Sleep(1000);
WaitMap(220070201);
Sleep(1000);
end;

If (Character.MapID = 220070201) then
begin
if(Character.Y=120)then
begin
if(Way=true)then
begin
Hunter.HuntMove(586);
end
else
begin
Hunter.HuntMove(-167);
end;
end
else if(Character.Y>=317)AND(Character.Y<=342)AND(Character.X>191)then
begin
Hunter.HuntMove(12);
Way:=True;
end
else if(Character.Y>=317)AND(Character.Y<=342)AND(Character.X<=191)then
begin
Way:=False;
while(Character.Y>=317)AND(Character.Y<=342)AND(Character.X<=191)do
begin
Hunter.HuntMove(-67);
Hunter.HuntMove(-167);
sleep(500);
if(Character.X>=-187)AND(Character.X<=-147)then
begin
Hunter.Jump(0);
Hunter.Rope(-90);
end;
while(Character.Y<=-90)AND(Character.X>-560)do
begin
Hunter.Jump(-1);
end;
end;
end
else if(Character.Y>=-115)AND(Character.Y<=-90)then
begin
Hunter.HuntMove(300);
Way:=False;
end
else if(Character.Y=704)then
begin
Hunter.HuntMove(-347);
end
else if(Character.Y>704)AND(Character.Y<=1288)AND(Character.X>-500)then
begin
Hunter.HuntMove(-600);
while(Character.X>-900)AND(Character.Y>=704)AND(Character.Y<=1288)do
begin
Hunter.Jump(-1);
end;
end
else if(Character.Y>704)AND(Character.Y<=1288)AND(Character.X<=-500)then
begin
Hunter.HuntMove(-1380);
end
else if(Character.Y=1695)then
begin
Hunter.HuntMove(600);
while(Character.Y=1695)do
begin
Hunter.HuntMove(303);
Hunter.HuntMove(203);
Sleep(500);
SendKey('{UP}');
sleep(500);
end;
if(Way=True)then
begin
Way:=False;
end
else
begin
Way:=True;
end;
end
else if(Character.Y=880)OR(Character.Y=-443)OR(Character.Y=-468)then
begin
Hunter.HuntMove(907);
end;
end;

//Leafre: Battle Field Between Water and Darkness (Final)
If (Character.Level > 110) And (Character.Level < 121) And (Character.MapID > 240020300) then //lvl 110 ~ 120
begin
mapleprint('Rushing to Leafre till lv 120');
Activatecommand('m leafre');
WaitMap(240000000);
Sleep(2000);
end;

If (Character.Level > 110) And (Character.Level < 121) And (Character.MapID < 240020300) then //lvl 110 ~ 120
begin
mapleprint('Rushing to Leafre till lv 120');
Activatecommand('m leafre');
WaitMap(240000000);
Sleep(2000);
end;


If (Character.MapID = 240000000) then
begin
Character.Rush(240020300);
Sleep(1000);
WaitMap(240020300);
Sleep(1000);
end;

If (Character.MapID = 240020300) then
begin
if(Character.Y<=-118)AND(Character.Y>=-238)AND(Character.X<=60)then
begin
Hunter.HuntMove(545);
end
else if(Character.Y<=-118)AND(Character.Y>=-238)AND(Character.X>=380)then
begin
Hunter.HuntMove(-185);
end
else if(Character.Y<=422)AND(Character.Y>=362)AND(Character.X<220)then
begin
Hunter.HuntMove(-185);
while(Character.Y<>362)AND(Character.X>-451)do
begin
Hunter.Jump(-1);
end;
while(Character.Y>118)do
begin
Hunter.HuntMove(-751);
Hunter.HuntMove(-851);
sleep(500);
if(Character.X>=-871)AND(Character.X<=-831)then
begin
Hunter.Jump(0);
Hunter.Rope(-118);
end;
end;
end
else if(Character.Y<=422)AND(Character.Y>=362)AND(Character.X>=220)then
begin
Hunter.HuntMove(545);
while(Character.Y<>362)AND(Character.X<720)do
begin
Hunter.Jump(1);
end;
while(Character.Y>118)do
begin
Hunter.HuntMove(1020);
Hunter.HuntMove(1120);
sleep(500);
if(Character.X>=1100)AND(Character.X<=1140)then
begin
Hunter.Jump(0);
Hunter.Rope(-118);
end;
end;
end
else if(Character.X=-185)AND(Character.Y=422)then
begin
while(Character.Y<>362)AND(Character.X>-451)do
begin
Hunter.Jump(-1);
end;
end
else if(Character.X=545)AND(Character.Y=422)then
begin
while(Character.Y<>362)AND(Character.X<720)do
begin
Hunter.Jump(1);
end;
end
else
begin
Hunter.HuntMove(-185);
if(Character.Y<=-118)then
begin
Hunter.HuntMove(-280);
end;
end;
end;

//Entrance to Dragon Forest (Final, DC)
If (Character.Level > 120) And (Character.Level < 131) And (Character.MapID > 240030000) then //lvl 120 ~ 130
begin
mapleprint('Rushing to Leafre till lv 130');
Activatecommand('m leafre');
WaitMap(240000000);
Sleep(2000);
end;

If (Character.Level > 120) And (Character.Level < 131) And (Character.MapID < 240030000) then //lvl 120 ~ 130
begin
mapleprint('Rushing to Leafre till lv 130');
Activatecommand('m leafre');
WaitMap(240000000);
Sleep(2000);
end;


If (Character.MapID = 240000000) then
begin
Character.Rush(240030000);
Sleep(1000);
WaitMap(240030000);
Sleep(1000);
end;

If (Character.MapID = 240030000) then
begin
if(Character.Y>=-379)then
begin
Hunter.HuntMove(945);
Hunter.HuntMove(1045);
sleep(500);
if(Character.X>=1025)AND(Character.X<=1065)then
begin
Hunter.Jump(0);
Hunter.Rope(-838);
end;
end
else if(Character.X>=553)and(Character.Y<=-778)and(Character.X>-1078)then
begin
Hunter.HuntMove(596);
Hunter.Jump(-1);
Hunter.Rope(-1078);
sleep(300);
end
else if(Character.Y=-1078)then
begin
Hunter.Move(-200);
Hunter.HuntMove(-1370);
end
else
begin
http://Hunter.HuntMove(1455);
Hunter.HuntMove(945);
end;
end;

//Dragon Forest III (Final, DC)
If (Character.Level > 130) And (Character.Level < 141) And (Character.MapID > 240030300) then //lvl 130 ~ 140
begin
mapleprint('Rushing to Leafre till lv 140');
Activatecommand('m leafre');
WaitMap(240000000);
Sleep(2000);
end;

If (Character.Level > 130) And (Character.Level < 141) And (Character.MapID < 240030300) then //lvl 130 ~ 140
begin
mapleprint('Rushing to Leafre till lv 140');
Activatecommand('m leafre');
WaitMap(240000000);
Sleep(2000);
end;


If (Character.MapID = 240000000) then
begin
Character.Rush(240030300);
Sleep(1000);
WaitMap(240030300);
Sleep(1000);
end;
If(Character.MapID=240030300)then
begin
if(Character.Y>-598)then
begin
Hunter.HuntMove(1200);
while(Character.Y>-838)do
begin
Hunter.HuntMove(824);
Hunter.HuntMove(724);
sleep(500);
if(Character.X>=704)AND(Character.X<=744)then
begin
Hunter.Jump(0);
Hunter.Rope(-838);
end;
end;
Hunter.Move(1000);
end
else if(Character.Y<=-838)AND(Character.Y>-1138)AND(Character.X>=650)then
begin

Hunter.HuntMove(1200);
Hunter.HuntMove(200);
end
else if(Character.Y<=-598)and(Character.Y>-1138)and(Character.X>=30)AND(Character.X<535)then
begin
Hunter.HuntMove(-30);
Hunter.Rope(-1138);
Hunter.Move(-500);
Hunter.HuntMove(-1000);
end
else if(Character.Y<=-838)and(Character.Y>-1138)and(Character.X<-100)then
begin
Hunter.HuntMove(-1100);
while(Character.Y<=-838)and(Character.Y>-1138)do
begin
Hunter.HuntMove(-1012);
Hunter.HuntMove(-912);
sleep(500);
Hunter.Rope(-298);
end;
end
else if(Character.Y=-1138)then
begin
Hunter.HuntMove(-1100);
end;
end;

//Singapore Suburban Area 2 (Final, DC)
If (Character.Level > 140) And (Character.Level < 151) And (Character.MapID > 540020100) then //lvl 140 ~ 150
begin
mapleprint('Rushing to Singapore till lv 150');
Activatecommand('m singapore');
WaitMap(540000000);
Sleep(2000);
end;

If (Character.Level > 140) And (Character.Level < 151) And (Character.MapID < 540020100) then //lvl 140 ~ 150
begin
mapleprint('Rushing to Singapore till lv 150');
Activatecommand('m singapore');
WaitMap(540000000);
Sleep(2000);
end;


If (Character.MapID = 540000000) then
begin
Character.Rush(540020100);
Sleep(1000);
WaitMap(540020100);
Sleep(1000);
end;
If (Character.MapID = 540020100) then
Begin
if (Character.Y<=-613) then
Begin
Hunter.HuntMove(-1520);
end
else if ((Character.Y>-613) and (Character.Y<=-253)) then
Begin
while(Character.Y>-613)do
begin
Hunter.HuntMove(-80);
Hunter.HuntMove(20);
sleep(500);
Hunter.Jump(0);
Hunter.Rope(-613);
end;
Hunter.Move(-280);
end
else if (Character.Y>=-253) then
Begin
Hunter.HuntMove(300);
while(Character.Y>-253)do
begin
Hunter.HuntMove(-1262);
Hunter.HuntMove(-1362);
Hunter.Rope(-253);
end;
Hunter.Move(-1000);
end;
end;


//Mysterious Path 3 (Final, DC)
If (Character.Level > 150) And (Character.MapID > 541000300) then //lvl 150 ~ 160
begin
mapleprint('Rushing to Singapore till lv 150');
Activatecommand('m singapore');
WaitMap(540000000);
Sleep(2000);
end;

If (Character.Level > 150) And (Character.MapID < 541000300) then //lvl 150 ~ 160
begin
mapleprint('Rushing to Singapore till lv 150');
Activatecommand('m singapore');
WaitMap(540000000);
Sleep(2000);
end;


If (Character.MapID = 540000000) then
begin
Character.Rush(541000300);
Sleep(1000);
WaitMap(541000300);
Sleep(1000);
end;

If (Character.MapID=541000300)then
begin
if(Character.Y<=214)AND(Character.Y>-193)AND(Character.X>-130)AND(Character.X<1374)then
begin
Hunter.HuntMove(1000);
while(Character.Y>-193)do
begin
Hunter.HuntMove(117);
Hunter.HuntMove(17);
sleep(500);
if(Character.X>=-3)AND(Character.X<=37)then
begin
Hunter.Jump(0);
Hunter.Rope(-193);
end;
end;
end
else if(Character.Y<=-193)AND(Character.Y>-553)AND(Character.X>-270)AND(Character.X<531)then
begin
Hunter.HuntMove(279);
Hunter.HuntMove(379);
sleep(500);
if(Character.X>=359)AND(Character.X<=399)then
begin
Hunter.Jump(0);
Hunter.Rope(-553);
end;
end
else if(Character.Y<=-553)AND(Character.X>80)AND(Character.X<1075)then
begin
Hunter.HuntMove(1182);
end
else if(Character.Y<=-253)AND(Character.Y>-553)AND(Character.X>802)AND(Character.X<1346)then
begin
Hunter.Move(712);
end
else if(Character.X>1000)and(Character.Y>214)then
begin
Hunter.Move(963);
sleep(500);
Hunter.Jump(0);
end
else
begin
Hunter.HuntMove(1000);
end;
end;

//Evo Lab Link 3 (Final)
If (Character.MapID = 957012000) then
Begin
Repeat
if(Mobs.Count>2)then
begin
x:=Character.X;
if(x>Mobs.X)OR(x=-129)OR(x=1050)then
begin
Hunter.Move(x-1);
end
else
begin
Hunter.Move(x+1);
end;
sleep(200);
end;
Until(Character.MapID<>957012000);
end;
end;
end.

YA EH  encontrado el error   cuando se sube  el archivo se agrega el http:  en la fila 517 por lo tanto eso se debe de borrar  aqui les muestro en imagenes  

ASI SALE CON EL ERROR

 

SE DEBE DE BORRAR  Y ASI DEBE QUEDAR...

 

y  por  ULTIMO LES DEJO  UN VIDEITOO !! DE COMO INYECTAR !!
Y QUE SI FUNKAA !! xd !


TODO HACK TIENE RIESGO DE  BANN  ASI Q  SI  LO USAN ES  BAJO SU  PROPIA RESPONSABILIDAD !!! Flu
Mar 17 Dic - 15:37     editar
           

156myasss759


Usuario
a probarlo :D
Mar 17 Dic - 17:05     editar
           

156myasss759


Usuario
sale el mismo error que el anterior :(
Mar 17 Dic - 17:23     editar
           

fay12


Usuario
@156myasss759 escribió:sale el mismo error que el anterior :(

Ya no da el mismo error.... !! yo mismo e boteado.... !! y corre normal... Grin 
Mar 17 Dic - 19:30     editar
           

krizlost


Usuario
mismo error .
Mar 17 Dic - 19:36     editar
           

fay12


Usuario
@krizlost escribió:mismo error .
No da error miren les subireee un video para que sepan como acerlo.... Valee Fury 
Mar 17 Dic - 19:38     editar
           

krizlost


Usuario
yo creo que metiste el script de angelita , verifica si es el script que arreglaste .
Mar 17 Dic - 19:42     editar
           

VANESA451


Usuario
Lo Provare Si Funka.
Mar 17 Dic - 19:50     editar
           

killernoobs


Usuario
igual me genera error y me cierra todo
Mar 17 Dic - 20:12     editar
           

Maplerito1


Usuario
Deberían de arreglar bien todo antes de postear -_-
Miér 18 Dic - 5:40     editar