Code: Select all
Program Magery;
var
i : Integer;
t: Integer;
regs : Array[1..3] of word;
stime :TDateTime;
{$Include 'all.inc'}
procedure checkregs;
begin
If Connected then begin
for i:= 1 to 3 do
begin
FindDistance:=1;
Findtype (regs[i],backpack);
If (FindCount=0) then begin
Findtype(regs[i],ground);
If (FindCount>0) then begin Grab(finditem,30);end
else AddToSystemJournal('__');
end
end
end
end;
procedure casting;
begin
If (Mana>=95) then begin
Cast('Resurrection');
wait(200);
WaitTargetObject($429D784A);
Cast('Resurrection');
wait(200);
WaitTargetObject($429D784A);
end
end;
Begin
ClearJournal;
SetARStatus(true);
regs[1]:=$0F7B;
regs[2]:=$0F84;
regs[3]:=$0F85;
FindDistance:=1;
While not Dead do
begin
If Connected then begin
For t:= 1 to 5 do begin
checkregs;
wait(100);
casting;
begin
If (Mana<=30) then begin
wait(100);
While (Mana<Int) do begin
Useskill('Meditation');
repeat
InJournalBetweenTimes('You stop med|You lose|You cant focus');
end
If (InJournalBetweenTimes('Your mana is full')>=0) then
casting;
end
else
begin
casting;
end
end
end
end
end
End.