var
ll:Integer;
njax:Integer;
procedure Init;
begin
njax:=0;
end;
procedure Log(msg:String); //Вызывается при включении скрипта
begin
buf:=HStr('17 50 D4 19 00 00 00 00 00 00 00');
WriteS(msg);
SendToClient;
end;
procedure Free;
begin
end;
begin
if fromserver and (pck[1]=#$63) then
begin
if(pck[8]<>#$00) then
begin
pck[8]:=#$00;
end;
end;
if fromserver and (pck[1]=#$1F) then
begin
ll := Pos(HStr('44 00 01'), pck);
if(ll=0) then
begin
ll:=Pos(HStr('44 00 02'),pck);
if(ll<>0) then Log('[SK-NS]> INVIZ '+ReadS(44));
end;
if (pck[ll+2]<>#$00)and (ll > 100)then
begin
pck[ll+2]:=#$00;
end;
end;
end.
RES
Код:
var
SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;
DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;
CharID:array[1..4] of integer;
TargetID:integer;
var
msgName:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='www.on-cheat.3dn.ru';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
if FromClient and (ReadC(1)=$C9{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('SK-NS',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('- Skript REZ',[TargetID]));
end;
end;
begin
if FromClient and (pck=HStr('6B 57 08 00'))
then
begin
buf:=HStr('6B 57 08 01');
SendToServer;
pck:='';
end;
end;
end.