[TAMBIK]

Сообщение от alexteam

KreeDoZz, допустим: ProceduraSkidivayushayaS4et4ikV0iTemSamimZacikliva yushayaSkript;

TAMBIK, бакслеши (ремарки) и ":" во втором скрипте отсутствуют.. в жизни не запустит..

это было найдено мной на сайте
я просто как пример показал

Добавлено через 35 минут
вот так наверно
ЖМЕМ СПАСИБО
и ДОБАВЛЯЕМ ОТЗЫВ

// запуск соцдействие ДА
//остонов соцдействие НЕТ
const
Name='nick'; // пишем имя чара
 var 
 Timer01: TTimer;
 phase:integer;
//-----------------------------------------
procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=1000; //<<== время между отправкой
phase:=1;//начальная фаза
end;
procedure Free;
begin
Timer01.Free;
end;
//-----------------------------------------
procedure SendMsg2(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(Name);
end;
//------------------------------------------
procedure fireTimer(Sender: TObject);
begin
case phase of
1:begin
     buf:=hstr('  пакет ');// вместо  : пакет -->>пишем свой пакет на отправку
     SendToServerEx(Name);
     inc(phase);
 SendMsg2( ' 1 пакет ' ); // сообщение об отправки
   end;
2:begin
     buf:=hstr('  пакет');
     SendToServerEx(Name);
     inc(phase);
SendMsg2( ' 2 пакет ' ); // сообщение об отправки
   end;
3:begin
     buf:=hstr('  пакет ');
     SendToServerEx(Name);
     inc(phase);
SendMsg2( ' 3 пакет ' ); // сообщение об отправки
     end;
4:begin
     buf:=hstr('   пакет ');
     SendToServerEx(Name);
    phase:=1;//вернулись к началу
SendMsg2( ' 4 пакет ' ); // сообщение об отправки
   end;
end;
end;
//-------------------------------------------
begin
if FromClient and (pck[1]=#$34) then
 case ReadD(2) of
    6:begin
   Timer01.enabled:=true;
  SendMsg2( ' П О Е Х А Л И ! ! !' );
      pck:='';
      exit;
      end;
   5:begin
    Timer01.enabled:=false;
  phase:=1;//начальная фаза
  SendMsg2( '   С Т О П  ! ! !' );
     pck:='';
   exit;
end;
end;
end.