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

[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.

[AlbeNeC]

спасибо =)))
поправил код, теперь работает
жмакнул "спасибки"
п.с. у тебя в коде есть ошибка, найди сам

[tiranosaur]

А как сделать проверку таймера? типа if (таймер включен) then exit; else then begin (Действие)?

[alexteam]

if timer.enabled then .... else ....

[tiranosaur]

Если timer1.interval=1000 то сколько это секунд? Написано вроде 1 но если выставляешь значение 50к то получается почти 2ве минуты

[alexteam]

50к = 50 сек.

[DpblH]

прошу помоч мне

const

  name='ктоКидает';
  name2='камуКидают';




var
  timer1: TTimer;
  x: integer;


procedure OnTimer1(Sender: TObject);
begin




begin
  buf:=hstr('42');
       writeS(name2);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
      

end;






inc(x);
end;


procedure Init;
begin
  x := 0;
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer1;
  timer1.enabled:=true;
  timer1.interval:=3000;
end;

procedure Free; 
begin
timer1.free;
end;

begin
end.

суть в том чтобы сделать раздачу пати бд свс пп коту или каму угодно. чтобы бд свс бафали каждые 2 минуты с разничей в бафе в 5 секунд. и пп с котом когда угодно.
пытался скрипт на бд свс сделать неполучаеться. либо бд свс одновременно бафают либо вообще нечего хорошего. пробовал запускать с разных скриптов бд свс, окно уходило в дисконект.
помогите плиз

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

const

  name='ктоКидает';
  name2='бд';
  name3='свс';



 var
  timer1: TTimer;
  x: integer;


procedure OnTimer1(Sender: TObject);
begin



case x of
1:begin
  buf:=hstr('42');
       writeS(name2);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
         timer1.interval := 5000
        end;

2:begin
  buf:=hstr('42');
       writeS(name3);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
      
        end;



 end;
inc(x);

end;
//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
  x := 0;
  timer1:=TTimer.Create(nil);//выделяем памать и т.п.
  timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
  timer1.enabled:=true;//начальное положение true-включен/false-выключен
  timer1.interval:=125000;//интервал
end;




begin


end.

нипонимаю почему ниработает

[QaK]

UseForConnectName не прописан

[DpblH]

QaK пасиб. прописал. но скрипт всё равно работает ни как как я хочу. цыкл в нём неработает. каждые 2 минуты надо посылать два пакета

Добавлено через 4 часа 33 минуты
понял свои ошибки. подправьте если коряво. щас попробую впихнуть кота не в цикл

const

  name='ктоКидает';
  name2='бд';
  name3='свс';



 var
  timer1: TTimer;
  x: integer;

  

procedure OnTimer1(Sender: TObject);
begin



case x of
1:begin
  buf:=hstr('42');
       writeS(name2);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
          inc(x);
         timer1.interval := 5000;
        end;

2:begin
  buf:=hstr('42');
       writeS(name3);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);  
         timer1.interval := 125000;
        x:=1;
        end;




 end;


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

 
  UseForConnectName:='ктоКидает';
  timer1:=TTimer.Create(nil);//выделяем памать и т.п.
  timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
  timer1.enabled:=true;//начальное положение true-включен/false-выключен
  timer1.interval:=1000;//интервал
    x := 1; 
end;

 procedure Free; 
   begin
   timer1.free;
    end;


begin


end.

UseForConnectName(name); так правельнее будет? через постоянные

Добавлено через 20 часов 45 минут
прошу помоч со скриптом AutoBD_SVS by Ad переделать его для кота.

[QaK]

DpblH, попробуй сделать старт таймера по тексту в чате или по социальному действию.