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

[Pinko]

моно так . пример

 if FromServer and (pck[1] = #$31) and (ConnectName=Name1) then  
      case pck[18] of
      mana1:begin      //Пакет от номера 1 СверяемПакет чат инфо c ObjectID от пакета  PartySmallWindowAll  
       buf:=hstr('49 4F 04 20 00 10 04 3D 04 42 04 11 04 30 04 44 04 00 00 03 00 00 00')
      SendToServer;                              
     end;  
  
    mana2:begin  //Пакет от номера 2 СверяемПакет чат инфо с ObjectID от пакета  PartySmallWindowAll       
       buf:=hstr('49 2F 04 20 00 21 04 4D 04 34 04 40 04 38 04 3A 04 00 00 03 00 00 00')       
       SendToServer;                      
     end; 
  
   mana3:begin //Пакет от номера 3 СверяемПакет чат инфо с ObjectID от пакета  PartySmallWindowAll    
       buf:=hstr('49 2F 04 20 00 1D 04 4D 04 3B 04 4F 04 00 00 03 00 00 00') 
      SendToServer;                              
    end;