Stealth Client Forum

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;