1. Заходим в Сарфан и идем в Камар, над Камаром летает 2 корабля один асмовский, другой элийский.
2. Если играете за Элийцев смотрите где асмо-корабль, он справа от элийского, теперь юзаем скрипт на ТП тоесть вводим в чат .m1 и стоим на месте, кликаем по асмо-кораблю пока нас туда не ТПшнет, если не ТПшнет побегайте чуть смените свое расположение и опять пробуйте туда ТПшнутся.
3. Когда попадаем на асмо-корабль подходим к военному судну юзаем его и выбираем ТП в Пандемониум, Грац вы в Пандемониуме.
Для асмов тоже самое но тыкаем в элийский корабль.
Работает только там где есть локация Сарфан и на сервере работает скрипт на ТП.
var
coordinat:array[0..1,0..3] of integer;
xyzh,pak: array[0..3] of integer;
packet,blick_mode,mouse_mode:byte;
blick_start,mouse_start:boolean;
procedure init ;
begin
packet:=0;
end;
procedure blick(mode:integer);
var
i:integer;
begin
if blick_start=true then
begin
xyzh[0]:=readD(6);
xyzh[1]:=readD(10);
xyzh[2]:=readD(14);
xyzh[3]:=readc(18);
if packet=0 then
begin
for i:=0 to 3 do coordinat[0,i]:=xyzh[i];
packet:=1;
end
else
begin
for i:=0 to 3 do coordinat[1,i]:=xyzh[i];
packet:=0;
case blick_mode of
1:
begin
pak[0]:=coordinat[1,0]+((coordinat[1,0]-coordinat[0,0])*10);
pak[1]:=coordinat[1,1]+((coordinat[1,1]-coordinat[0,1])*10);
pak[2]:=coordinat[1,2]+((coordinat[1,2]-coordinat[0,2])*10)+50000;
pak[3]:=coordinat[1,3];
end;
2:
begin
pak[0]:=coordinat[1,0]-((coordinat[1,0]-coordinat[0,0])*10);
pak[1]:=coordinat[1,1]-((coordinat[1,1]-coordinat[0,1])*10);
pak[2]:=coordinat[1,2]-((coordinat[1,2]-coordinat[0,2])*10)+50000;
pak[3]:=coordinat[1,3];
end;
3:
begin
pak[0]:=coordinat[1,0]+((coordinat[1,0]-coordinat[0,0]));
pak[1]:=coordinat[1,1]+((coordinat[1,1]-coordinat[0,1]));
pak[2]:=coordinat[1,2]+((coordinat[1,2]-coordinat[0,2]))+1000000;
pak[3]:=coordinat[1,3];
end;
end;
buf:=hstr('C2 00 57 61 FF 05');
for i:=0 to 2 do writed(pak[i]);
writec(xyzh[3]);
sendtoserver;
buf:='';
blick_start:=false;
blick_mode:=0;
end;
end
else
begin
blick_start:=true;
blick_mode:=mode;
end;
end;
procedure mouse(mode:integer);
var
i:integer;
begin
if mouse_start then
begin
if Length(pck)=31 then
begin
xyzh[0]:=readD(20);
xyzh[1]:=readD(24);
xyzh[2]:=readD(28);
xyzh[3]:=readc(32);
pck:='';
buf:=hstr('C2 00 57 61 FF');
case mouse_mode of
1: writec(4);
2: writec(5);
end;
for i:=0 to 2 do writed(xyzh[i]);
writec(0);
sendtoserver;
buf:='';
mouse_start:=false;
mouse_mode:=0;
end
else
begin
message('Wrong point',8);
mouse_mode:=0;
end;
end
else
begin
mouse_start:=true;
mouse_mode:=mode;
end;
end;
Я не оказываю услуги гаранта!
База данных кидал: blacklist.rf-cheats.ru
Обязательно проверяйте человека через чёрный список прежде чем совершать с ним сделку.