Уважаемые ! если кто знает.. подскажите пожалуйста..
задумка такова: если в журнале появилось сообщение - то чар кастует на себя Heal.
по форуму смотрел,в спарингах.. не смог понять как извлечь оттуда нужное мне действие..
Code: Select all
Program CastMani;
{$Include 'timer.inc'}
begin
While not Dead do
begin
if InJournalBetweenTimes('Mani', time, Now) > 0 then begin
WaitTargetSelf;
wait(500);
Cast('Heal');
wait(2000;
WaitTargetSelf;
resetTimer(time); (тут, после того как кастанул, надо почистить журнал, либо сбить таймер.. но как это сделать не понял..)
end;
end;
end.
###############
'timer.inc'
type
TTimer = record
timer : TDateTime;
expireTime : TDateTime;
end;
function setTimer(expireTime : cardinal) : TTimer;
begin
result.expireTime := double(expireTime) / 86400000;
result.timer := now + result.expireTime;
end;
procedure resetTimer(var timer : TTimer);
begin
timer.timer := now + timer.expireTime;
end;
function isTimerExpire(timer : TTimer) : boolean;
begin
result := now > timer.timer;
end;
