//Script by CLAVR
var
i:integer;
quickrelog: array[1..6] of string;

begin
if FromClient then
case ReadC(1) of
$6A: quickrelog[1]:=pck;
$A4: quickrelog[2]:=pck;
$3D: quickrelog[3]:=pck;
$67: quickrelog[4]:=pck;
$35: quickrelog[5]:=pck;
$68: quickrelog[6]:=pck;
end;

if FromClient and (ReadC(1)=$B2) and (ReadS(7)='r') then // вместо 'r' вствляем любую свою команду
begin
pck:='';
for i:=1 to 6 do
begin
buf:=quickrelog[i];
SendtoServer;
end;
end;
end.