| boris241 | Дата: Среда, 26.09.2012, 11:55 | Сообщение # 1 |
 Взломщик серверов
Группа: Пользователи
Сообщений: 365
Награды: 1
Репутация: 0
Статус: Offline
|
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;
procedure message(msg:string;chatID:byte);
begin
buf:=HStr('16 00 54 D5 FF 00 00 E3 10 37 00 ');
writec(chatID,6);
WriteS('PHX');
WriteS(msg);
SendToClient;
end;
begin
if FromClient then
case pck[1] of
#$9f:
begin
if blick_start then blick(0);
if mouse_start then mouse(0);
end;
#$b2:
case reads(7) of
'.go1': blick(1);
'.go2': blick(2);
'.go3': blick(3);
'.m1': mouse(1);
'.m2': mouse(2);
end;
end;
end.
|
| |
| |
