Нужна ваша помощь [скрипт на релог при выполнении условий]

[iMxO]

В общем, скрипт должен проверять баф, и при условии, что время бафа более 20минут - чар автоматически переходил бы в релог, окно игры подсвечивалось и проигрывался звуковой сигнал (можно без сигнала впринципе)

// Прошу помочь в реализации //

 

[PandaTrader]

for i:=0 to 6 do begin
Engine.GameStart(i); // Заходим персонажем от 1 до 7


Engine.Restart; // релог

Теперь добавляй свои delay и всё

 

[savant]

var obj:TL2Effect;
begin
if User.Buffs.Byid(ИдБафа, Obj) and (Obj.EndTime>20*60000)
then begin
Engine.Restart;
Engine.BlinkWindow(true);
PlaySound('Sounds/msg.wav',false);
end;
end.

Не проверял. Попробуй, еслив что не так - отпишись. ИдБафа только подставь.
Если не секрет - зачем тебе такой скрипт?

 

[iMxO]

@savant, зациклил (while 1<>2 do begin) и усё работает, спасибо! =))Скрипт я задумал для ловли "кританувших" по вренеми скилов))
Единственное, хотелось бы улучшить:
-как сделать так, чтобы скрипт останавливался после успешного перехода в релог,подсвета окна и проигрыша музыки? (он ставится на паузу и если его не остановить снова тянет в релог перса, приходится в ручную останавливать ?

 

[PandaTrader]

@iMxO,
while 1<>2 do beginvar obj:TL2Effect;
begin
if User.Buffs.Byid(ИдБафа, Obj) and (Obj.EndTime>20*60000)
then begin
Engine.Restart;
Engine.BlinkWindow(true);
PlaySound('Sounds/msg.wav',false);
Delay (30000)
end;
end.

 

[iMxO]

@PandaTrader, Пандыч, я тоже цикланул while 1<>2 do begin , но оно вроди бы Пипец как грузит проц ???Delay лучше делать или что, чтоб "полегче" было системе ?

 

[savant]

@iMxO,

var obj:TL2Effect;
begin
while true do
begin
  if User.Buffs.Byid(ИдБафа, Obj) and (Obj.EndTime>20*60000)
  then begin
    Engine.Restart;
    Engine.BlinkWindow(true);
    PlaySound('Sounds/msg.wav',false);
    break;
  end;
  delay(1000);
end;
end.

 

[PandaTrader]

@iMxO, хм..Не знаю,тестил у себя.Не грузит ничего.Но да,нужен дэлей в конце

 

[iMxO]

@savant, Спасибо огромное!

@savant, и тебе, Пандыч, спасибо!))