[semiromid]

const
name = 'Санар;  
begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00');            //Создаем пакет "принять пати"
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

вот полный скрипт .
И не компилируеться(