Sitemap

Is traines along with Alchemy

Program EvalInt;
{$Include 'all.inc'}

var
i : Integer;
n : TDateTime;

procedure EvalInt;
var
d, t: TDateTime;

begin
  d := StrToTime('0:00:11');
  if ((now - n > d) or (n = 0)) then
  begin
    t := now;
    CheckSave;
    CheckTargetError(2,2);
    UseSkill('Evaluating Intelligence');
    WaitTargetObject(self);
    WaitJournalLineSystem(t, 'mental str', 500);
    if TargetPresent then CancelTarget;
    n:=now;
  end;
end;

Begin
  SetARStatus(true);
  Hungry(1, backpack);
  while not dead do
  begin
    for i := 0 to 30 do
    begin
      CheckSave;
      CheckTargetError(2,2);
      EvalInt;
    end;
  end;
End.