прошу знатоков подкорректировать где что не так и где как лучше было сделать
Code: Select all
Program resist;
// (c) stickma
// for DRW
{$Include 'all.inc'}
var
i: integer;
ctime: TDateTime;
const
enemy=$001ED227;
begin
while Dead=false do
begin
ClearJournal;
checklag;
while Mana>=10 do
begin
WaitTargetObject(enemy);
cast('Weaken');
wait(2000);
end;
ClearJournal;
while mana<>int do
begin
ctime:=Now
i:=0
useskill('Meditation');
repeat
wait(200);
i:=i+1;
checksave;
until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300);
wait(4000);
end;
end;
end.