Скрипт собирать Рекомендации

[klizmabeqa1992]

Скрипт собирать Рекомендации.для ХБ

в башку стукнуло наверно над в туалет

СУТЬ переделать скрипты расказывающие анекдоты

на собирание РЕКов.

В титул пишу За РЕК скажу Анекдот

чел рекает и ему в пм анекдот.норм наверн будит

я туп могу ток поменять в скрипте чтото как писать незнаю неумею необучен

анекдоты два скрипта как основа для примера

 

kod:

 

//by VORON

//скрипт который рассказывает анекдоты без бана:

///////////////////////////////////////////////////////////////////////////

var

temp: array [1..20] of string;

timer1: TTimer;

x: integer;

 

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

begin

timer1:=TTimer.Create(nil);

timer1.OnTimer:=@OnTimer; //

timer1.enabled:=true; //

timer1.interval:=1000;

 

 

 

temp[1]:='" Водка в стиле IT: ';

temp[2]:='0.1л - demo ';

temp[3]:='0.25л - trial version ';

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 OnTimer(Sender: TObject);

begin

///

if temp[x] <> '' then

begin

buf:=hstr('38');

writes(temp[x]);

buf:=buf + hstr('01 00 00 00'); ///9- али // 3-пати // 01 - общий

sendtoserverex('ник');

end;

x:=x+1;

if x>= 19 then x:=19; //ЭТА СТРОКА ДЛЯ ТОГО ЧТОБ XELAT заценил глубину мысли! незнаю я синтаксиса-) и учиться лень-) там какойто АНТИЛ надо применять-) а зачем? и так все пашет.

end;

 

 

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

begin

timer1.Free;

end;

 

//основная часть скрипта

//вызывается при приходе каждого пакета если скрипт включен

begin

 

end.