Запуск скрипта в N время

[PandaTrader]

Здравствуйте,у меня такой вопрос,что нужно добавить скрипт,чтоб процесс начинал работу только в N время по времени твоего ПК?
Хотел реализовать фаст скупку семян манора.Спасибо за скрипт Алеку.

Спойлер

uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
begin
while 1<>2 do begin // бесконечный цикл
delay(15000); //время задержки
begin
Engine.SetTarget('Управляющий Владениями'); // Выбрать в таргет НПС с таким то ником
Engine.MoveToTarget(-20); // Подойти к НПС
Engine.DlgOpen; // Начинаем диалог с НПС
Delay(1200); // Пауза
Engine.DlgSel(1); // Выбираем диалог по списку
Delay(1800); // Пауза
Engine.NPCTrade(false,[6742,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6743,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6744,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6745,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6746,1300]); // Купить нов син коба
Engine.NPCTrade(false,[8233,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6768,1300]); // Купить син коба
Engine.NPCTrade(false,[6770,1300]); // Купить син коба
Engine.NPCTrade(false,[6771,1300]); // Купить син коба
Engine.NPCTrade(false,[6772,1300]); // Купить син коба
Engine.NPCTrade(false,[8226,1300]); // Купить син коба
Engine.NPCTrade(false,[10200,1300]); // Купить нов син кода
Engine.NPCTrade(false,[8258,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5678,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5658,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5653,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5019,1300]); // Купить син кода
Engine.NPCTrade(false,[5024,1300]); // Купить син кода
Engine.NPCTrade(false,[5044,1300]); // Купить син кода
Engine.NPCTrade(false,[8240,1300]); // Купить син кода
Engine.NPCTrade(false,[10176,1300]); // Купить син кода
Delay(500); // Пауза
end;
end;
end.

Буду благодарен за помощь.

 

[rsd]

procedure GetSystemTime(var lpSystemTime: TSystemTime); stdcall; external 'kernel32.dll';

type
TSystemTime = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;

 

[savant]

@rsd, лучше получать через GetLocalTime (т.к. getSystem получает время в UTC). Хотя тут кому как удобнее
@PandaTrader, пример:

type
TSystemTime = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;
procedure GetLocalTime(var lpSystemTime: TSystemTime); stdcall; external 'kernel32.dll';

var st:TSystemTime;
begin
GetLocalTime(st);
  Print(st.wHour);
  Print(st.wMinute);
end.

 

[PandaTrader]

@savant,
вместо ворд вписывать свои тайминги?

 

[savant]

@PandaTrader, вот более наглядный пример (там время сдачи манора в 15:10 XD ). Сдачу манора нужно описать в функции "Manor", либо в самом цикле скрипта. Время корректируешь под свое (там числа 15 и 10).

type
TSystemTime = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;
procedure GetLocalTime(var lpSystemTime: TSystemTime); stdcall; external 'kernel32.dll';

var st:TSystemTime;
begin 
  while engine.status=lsonline do
  begin
    GetLocalTime(st);
    if (st.wHour>=15) and(st.wMinute>=10) then
    begin
        Manor; //здесь описываем алгоритм сдачи манора
        Break;
    end;
    delay(500);
  end;
end.

 

[Алеку]

type
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
procedure GetLocalTime(var lpSystemTime: TSystemTime); stdcall; external 'kernel32.dll';
var st:TSystemTime;
begin
while engine.status=lsonline do
begin
GetLocalTime(st);
if (st.wHour>=13) and(st.wMinute>=34) then
begin

begin
// бесконечный циклdelay(5000); //время задержки
begin
Engine.SetTarget('Управляющий Владениями'); // Выбрать в таргет НПС с таким то ником
Engine.MoveToTarget(-20); // Подойти к НПС
Engine.DlgOpen; // Начинаем диалог с НПС
Delay(1200); // Пауза
Engine.DlgSel(1); // Выбираем диалог по списку
Delay(1800); // Пауза
Engine.NPCTrade(false,[6742,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6743,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6744,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6745,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6746,1300]); // Купить нов син коба
Engine.NPCTrade(false,[8233,1300]); // Купить нов син коба
Engine.NPCTrade(false,[6768,1300]); // Купить син коба
Engine.NPCTrade(false,[6770,1300]); // Купить син коба
Engine.NPCTrade(false,[6771,1300]); // Купить син коба
Engine.NPCTrade(false,[6772,1300]); // Купить син коба
Engine.NPCTrade(false,[8226,1300]); // Купить син коба
Engine.NPCTrade(false,[10200,1300]); // Купить нов син кода
Engine.NPCTrade(false,[8258,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5678,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5658,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5653,1300]); // Купить нов син кода
Engine.NPCTrade(false,[5019,1300]); // Купить син кода
Engine.NPCTrade(false,[5024,1300]); // Купить син кода
Engine.NPCTrade(false,[5044,1300]); // Купить син кода
Engine.NPCTrade(false,[8240,1300]); // Купить син кода
Engine.NPCTrade(false,[10176,1300]); // Купить син кода
Delay(500); // Пауза
end;
end;
Break;
end;
delay(500);
end;
end.

ну вроде пашет

 

[PandaTrader]

Как всегда оба хороши.Спасибо за помощь)

 

[vir20z]

короч пробовал скрипт манор видит но не покупает в чем трабла

 

[savant]

@vir20z, диалоговое окно на покупку открывает?

 

[vir20z]

да открывает не скупает тупо
т.е в окне трейда есть семена он их не покупает
id проверил все норм хз в чем трабла

 

[Plegas]

@PandaTrader, Воткни в топ рабочую версию)

 

[Dantello]

@Plegas, все три скрипта работают, сам только что 2 проверил
схоронил, мб когда-то пригодятся