Подскажите как написать скрипт

[Nickers]

Если

//...
if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Перотехник' then            //проверяем от кого
      begin
         buf:=hstr('49 01 00 00 00');  //Формирование 1го пакета
         SendToServer;                   //Посылка 1го
         buf:=hstr('43 01 00 00 00')   //Формирование 2го пакета
      end;
    else
//... 
 

Не сработает (Не успеет обработать 2 пакета подряд), то нужно будет реализовывать через таймер.

Добавлено через 4 минуты
(Или через делей, который не очень)