Скрипт с покупкой и продажей разным nps

[QaK]

esco, как же вы достали ... нету, я искал(а), все перерыл(а) и так далее, так и скажи, ввел в поиске, ничего не выдало - типа поискал(а).
Советую почитать топ "Да будет бот", ссылка в подписи.

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);
   end;
2:begin
     buf:=hstr('{здесь пакет на второй таргет гмшопа}');
     SendToServerEx(Name);
     inc(phase);
   end;
3:begin
     buf:=hstr('{здесь пакет на выбор магазина}');
     SendToServerEx(Name);
     inc(phase);
   end;
4:begin
     buf:=hstr('{здесь пакет на покупку нужного кол-ва итемов}');
     SendToServerEx(Name);
     inc(phase);
   end;
5:begin
     buf:=hstr('{здесь пакет на таргет гк}');
     SendToServerEx(Name);
     inc(phase);
   end;
6:begin
     buf:=hstr('{здесь пакет на второй таргет гк}');
     SendToServerEx(Name);
     inc(phase);
   end;
7:begin
     buf:=hstr('{здесь пакет на выбор магазина}');
     SendToServerEx(Name);
     inc(phase);
   end;
8:begin
     buf:=hstr('{здесь пакет на обмен}');
     SendToServerEx(Name);
     phase:=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.

з.ы. писалось на коленке, на работоспособность не проверялось