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
вроде так
поправьте пожалуста нубу
delphi Код:
// переделан из скрипта Анекдоты без бана автор 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.