[TAMBIK]

0x49 (Say2) пакет

49 40 04 40 04 40 04 40 04 40 04 40 04 40 04 40 04 00 00 02 00 00 00 54 00 70 00 4F 00 54 00 00 00

Tип: 0x49 (Say2)
Pазмер: 33+2
Время прихода: 22:46:31:703
0002 s Text: рррррррр
0020 d Type: 2 (0x00000002)
0024 s Target: TpOT

вроде так
поправьте пожалуста нубу

// переделан из скрипта Анекдоты без бана автор by VORON
// скрипт за РЕК Анекдот автор TAMBIK
// опробован на ХБ
var
 temp: array [1..20] of string;
 Name: String;
 i,x: integer;

procedure Init; //Вызывается при включении скрипта
begin
temp[1]:='Пиво без водки деньги на ветер ';
temp[2]:='Кто некурит и непьет тот до 100 лет живет';
temp[3]:='Учиться.Учиться.Учиться= говорил дед Ленин';
temp[4]:='0.5л - personal edition ';
temp[5]:='0.7л - professional edition ';
temp[6]:='1.0л - network edition ';
temp[7]:='1.75л - enterprise ';
temp[8]:='3л - for small business ';
temp[9]:='5л - corporate edition ';
temp[10]:='Бутыль самогона - home edition ';
temp[11]:='"На посошок" - Service pack ';
temp[12]:='Рассол с утра - Recovery tool ';
temp[13]:='Закуска - plugins ';
temp[14]:='Пиво - patch ';
temp[15]:='Coca-cola, Fanta, 7 UP - trojan viruses';
temp[16]:='';
x:=1;
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin
end;
procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
 if FromServer and (pck[1]=#$62)and (pck[2]=#$3F) then begin 
   i:=14;
   Name:=ReadS(i);
 if temp[x] <> '' then 
   buf := #$49;
   WriteS(temp[x]);
   WriteD(2);
   WriteS(Name);  
   SendToServer;
  x:=x+1;
 if x>= 19 then x:=19; 
 end;
end.