Angelita


Usuario
holas chicos aqui les traigo este script q se usa solamente con el angel processor

Sript:
var id, pass, pic:String;
var world, ch, numChar:integer;
var alreadyLoggedIn:boolean;

begin
While 1=1 Do
Begin
id := 'username';
pass := 'password';
pic := 'pic';
world := 3; //9 is for demethos... Scania is 0, just count up from there.
ch := 11;
numChar:= 12 //first char is the "0th" char, the 2nd char is the "1st" char

if Character.MapID = 0 then
begin
alreadyLoggedIn := False;
end
else
begin
alreadyLoggedIn := True;
end;


if (alreadyLoggedIn = False) then
begin
Login(id, pass, pic, world, ch, numChar);
alreadyLoggedIn := True;
Sleep(10000);
end;


If Character.MapID = 861000000 Then //Crash Site
Begin
Sleep(2000);
Hunter.Move(1128);
Sleep(3000);
SendKey(#32);
Sleep(1000);
SendKey('{down}');
Sleep(300);
SendKey(#32);
Sleep(2000);
SendKey(#32);
Sleep(2000);
SendKey(#32);
End;


If Character.MapID = 861000050 Then //crack
Begin
Sleep(2000);
Character.Teleport(265,159);
Sleep(200);
SendKey('{up}');
Sleep(200);
SendKey('{up}');
End;


If Character.MapID = 861000100 Then //map 111111111111111111111111111111111111111111111111111111111111111111
Begin
Sleep(200);
Hunter.HuntMove(450);
Sleep(300);
sendkey('A');
sendkey('A');
sleep(300);
Hunter.HuntMove(1450);
end
else if (Mobs.Count = 0) and (Character.MapID = 861000100) Then //used to move to next map
Begin
Character.Teleport(2162,-41);
Sleep(2000);
Sleep(200);
SendKey('{up}');
Sleep(200);
SendKey('{up}');
End;


If Character.MapID = 861000200 Then //map 222222222222222222222222222222222222222222222222222222222222222222
Begin
Hunter.Move(800);
Hunter.Move(1128);
end
else If (Mobs.Count = 1) and (Character.MapID = 861000200) Then
Begin
Character.Teleport(2142,-45);
Sleep(2000);
Sleep(200);
SendKey('{up}');
Sleep(200);
SendKey('{up}');
Sleep(2000);
End;


If Character.MapID = 861000300 Then //map 33333333333333333333333333333333333333333333333333333333333333333333
Begin
Hunter.HuntMove(Mobs.X);
end
else If (Mobs.Count = 1) and (Character.MapID = 861000300) Then
Begin
Character.Teleport(1505,-54);
Sleep(2000);
Sleep(200);
SendKey('{up}');
Sleep(200);
SendKey('{up}');
Sleep(2000);
End;


If Character.MapID = 861000400 Then //map 444444444444444444444444444444444444444444444444444444444444444444
Begin
Sleep(2000);
End;


If Character.MapID = 861000500 Then //map final
Begin
Sleep(2000);
End;


If Character.MapID = 861000001 Then //Exit&Entry lobby
Begin
Sleep(2000);
Character.Teleport(370,222);
Sleep(200);
SendKey('{up}');
Sleep(200);
SendKey('{up}');
Sleep(2000);
End;
end;
end.

CREDITOS A: GIGA502 por el script .
Sáb 14 Sep - 17:24     editar
           

carlostnt


Usuario
Causa en el cc7 en el Battle square veo gente que hace artas quet y bota artos items , y me dijieron que es el angelic procesor sabes como ?
Sáb 14 Sep - 17:27     editar
           

Angelita


Usuario
son script lo estoy buscando
Sáb 14 Sep - 17:36     editar
           

carlostnt


Usuario
Si lo pones te lo agradeciria mucho men (Y)
Sáb 14 Sep - 17:40     editar
           

cleptomano123


Usuario
que hace exactamente este script.
Sáb 14 Sep - 19:00     editar
           

mafioso243


Usuario
en donde se usa osea en que mapa o pq y que beneficios traer
Dom 15 Sep - 13:15     editar