Delphi Код:
begin
if FromClient and (pck[1]=#$56) then pck:=HStr('1A 05 EF 20 48') then
begin
if FromClient and (ConnectName='3aDpoT') and (pck=#$1A) then
begin
pck:=#$55;
SendToServerEx('Adakema');
pck:='';
end;
end;
end.
Скрипт сам по себе неправильний напишы что он должен делать по шагово.