Скриптинг для нуба

[QaK]

Алексей,

timer1.interval:={сюда пишешь величину паузы в милисекундах};

Погуглить не судьба?

AlbeNeC, остальное сам правь,если кто попросит меня еще что-то в этом скрипте исправить, не являющееся конструктивной доработкой по моему субъективному мнению - дам бан, 7 дней.

Добавлено через 2 минуты

const
Name='nick';
var timer:TTimer;
     phase:integer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=100;
timer.OnTimer:=@fireTimer;
timer.enabled:=false;//изначально таймер выключен

phase:=1;//начальная фаза
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
case phase of
1:begin
     buf:=hstr('{здесь пакет на таргет гмшопа}');
     SendToServerEx(Name);
     inc(phase);
     timer1.interval:=1000;//1 секунда
   end;
2:begin
     buf:=hstr('{здесь пакет на второй таргет гмшопа}');
     SendToServerEx(Name);
     inc(phase);
     timer1.interval:=1000;//1 секунда
   end;
3:begin
     buf:=hstr('{здесь пакет на выбор магазина}');
     SendToServerEx(Name);
     inc(phase);
     timer1.interval:=1000;//1 секунда
   end;
4:begin
     buf:=hstr('{здесь пакет на покупку нужного кол-ва итемов}');
     SendToServerEx(Name);
     inc(phase);
     timer1.interval:=1000;//1 секунда
   end;
5:begin
     buf:=hstr('{здесь пакет на таргет гк}');
     SendToServerEx(Name);
     inc(phase);
     timer1.interval:=1000;//1 секунда
   end;
6:begin
     buf:=hstr('{здесь пакет на второй таргет гк}');
     SendToServerEx(Name);
     inc(phase);
     timer1.interval:=1000;//1 секунда
   end;
7:begin
     buf:=hstr('{здесь пакет на выбор магазина}');
     SendToServerEx(Name);
     inc(phase);
     timer1.interval:=1000;//1 секунда
   end;
8:begin
     buf:=hstr('{здесь пакет на обмен}');
     SendToServerEx(Name);
     phase:=1;//вернулись к началу
     timer1.interval:=1000;//1 секунда
   end;
end;
end;
begin
if FromClient and (ConnectName=Name) and (pck = HStr('{здесь пакет на старт точки, например социальное действие}' )) then begin
timer.enabled:=true;
end;

if FromClient and (ConnectName=Name) and (pck = HStr('{здесь пакет на стоп точки, например социальное действие}' )) then begin
timer.enabled:=false;
end;

end.