Код:
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.