c-lavr
14.03.2012, 03:06
Все знают лаг со входом и выходом с Арены Хаоса. Через некоторое время приходят знаки.
Решил этот процесс автоматизировать:
Скрипт:
//Script by CLAVR
var
i:integer;
name:string;
Timer:TTimer;
procedure Init;
begin
buf:=HStr('27 01 57 C4 FE 1C 00 00 00 64 01 ');
SendToServer;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.interval:=200;
Timer.enabled:=false;
end;
procedure OnTimer(Sender: TObject);
begin
buf:=HStr('9F 00 57 5C FF 02 9A 4F 44 2E E4 69 44 D2 1B 3A 43'); // ТП в заданную тчку в текущей локации
SendToServerEx(name);;
buf:=HStr('C2 00 57 61 FF 04');
SendToServerEx(name);
timer.enabled:=false;
end;
procedure Free;
begin
Timer.enabled:=false;
end;
begin
if FromServer and (ReadC(1)=$62) then
begin
buf:=HStr('C5 00 57 62 FF');
SendToServer;
buf:=HStr('27 01 57 C4 FE 1C 00 00 00 64 01 ');
SendToServer;
end;
if FromClient and (ReadC(1)=$68) then
begin
name:=ConnectName;
timer.enabled:=true;
end;
end.
Управление:
Скрипт запускается сразу же после выставления "галки" на скрипте
Так же в скрипте меняете точку выхода из Арены (ТП) - чтобы не политься на стандартном выходе из Арены. Для это просто заменяете пакет 9F на свой
Решил этот процесс автоматизировать:
Скрипт:
//Script by CLAVR
var
i:integer;
name:string;
Timer:TTimer;
procedure Init;
begin
buf:=HStr('27 01 57 C4 FE 1C 00 00 00 64 01 ');
SendToServer;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.interval:=200;
Timer.enabled:=false;
end;
procedure OnTimer(Sender: TObject);
begin
buf:=HStr('9F 00 57 5C FF 02 9A 4F 44 2E E4 69 44 D2 1B 3A 43'); // ТП в заданную тчку в текущей локации
SendToServerEx(name);;
buf:=HStr('C2 00 57 61 FF 04');
SendToServerEx(name);
timer.enabled:=false;
end;
procedure Free;
begin
Timer.enabled:=false;
end;
begin
if FromServer and (ReadC(1)=$62) then
begin
buf:=HStr('C5 00 57 62 FF');
SendToServer;
buf:=HStr('27 01 57 C4 FE 1C 00 00 00 64 01 ');
SendToServer;
end;
if FromClient and (ReadC(1)=$68) then
begin
name:=ConnectName;
timer.enabled:=true;
end;
end.
Управление:
Скрипт запускается сразу же после выставления "галки" на скрипте
Так же в скрипте меняете точку выхода из Арены (ТП) - чтобы не политься на стандартном выходе из Арены. Для это просто заменяете пакет 9F на свой