var

NPC_ID:integer;
sNPC_ID:string;

procedure Init; //Вызывается при включении скрипта
begin
NPC_ID:=$E000
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

var i:integer;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//if FromServer then

if FromClient and (ReadC(1)=$B5) then NPC_ID:=ReadD(4);

if FromClient and (ReadC(1)=$C9) and (ReadH(4)=$0B15)// and (ConnectID=820)
then
begin
pck:='';
writeD(NPC_ID);
sNPC_ID:=StrToHex(buf);
for i:=1 to 30 do
begin
buf:=Hstr('39 57 F6 '+sNPC_ID+' ');
writeC(i);
SendToServer;
end;

end;
end.