begin
  if FromClient and ((pck[1]=#$0A) or (pck[1]=#$04)) then //Если атакуем, то:
begin
buf:=pck;
SendToServer;          //Отправил пакет дальше  
delay(100);
buf:=#$73;             //Открыть продажу
SendToServer;   
buf:=#$76;             //Закрыть продажу     
SendToServer;
pck:='';                
end;         
if fromserver and (pck[1]=#$9a) then pck:='';  
end.