//.start в чат для запуска //C6 - Interlude //Автор Nickers Const OID=268881419; //ОИД кого Рекаем ^^ Name='Nickers'; //Имя того КТО рекает... var timer,timer1,timer2,timer3:TTimer; procedure Init; //Вызывается при включении скрипта begin timer:=TTimer.Create(nil); //Куча таймеров у каждого своя работа)) timer.OnTimer:=@OnTimer; timer.enabled:=false; timer.interval:=5000; //Можно менять интервалы больше меньше (Там где 5сек - основные) timer1:=TTimer.Create(nil); timer1.OnTimer:=@OnTimer01; timer1.enabled:=false; timer1.interval:=100; timer2:=TTimer.Create(nil); timer2.OnTimer:=@OnTimer02; timer2.enabled:=false; timer2.interval:=100; timer3:=TTimer.Create(nil); timer3.OnTimer:=@OnTimer03; timer3.enabled:=false; timer3.interval:=5000; end; procedure Free; begin timer.Free; timer1.Free; timer2.Free; timer3.Free; end; procedure SendMsc(msc:string); //Шаблон отправки системных сообщений begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(msc); SendToClient; end; procedure OnTimer(Sender: TObject); begin buf:=#$04; WriteD(OID); WriteD(0); WriteD(0); WriteD(0); WriteD(0); WriteC(0); SendToServer; timer1.enabled:=true; timer.enabled:=false; end; procedure OnTimer01(Sender: TObject); begin buf:=#$B9; WriteD(OID); SendToServer; timer2.enabled:=true; timer1.enabled:=false; end; procedure OnTimer02(Sender: TObject); begin buf:=#$46; SendToServerEx(Name); timer3.enabled:=true; timer2.enabled:=false; end; procedure OnTimer03(Sender: TObject); begin buf:=#$0D; WriteD(0); WriteD(0); WriteD(0); WriteD(0); WriteC(0); WriteC(0); SendToServerEx(Name); timer.enabled:=true; timer3.enabled:=false; end; begin if FromClient and (pck[1]=#$38) and (ReadS(2)='.start') then timer.enabled:=true; end.