Code: Select all
program Mageryept;
var t:Integer;
{$Include 'all.inc'}
Begin
SetARStatus(true);
Hungry(1,backpack);
while not dead do
begin
while (mana > MaxMana - 7 ) do
begin
CheckSave;
waittargetself;
cast('Poison');
Wait(3500);
while (HP < 60) do
begin
UseObject(FindType($0E21,backpack));
WaitTargetSelf;
Wait(3500);
end;
end;
while (Mana < MaxMana) do
begin
useskill('Meditation');
wait(3000);
end;
end;
CheckSave;
End.
в Стелсе вот это выдаёт
15:28:52: Compiling
15:28:52: Compiler: [Error] (magery.txt at 20:1): Syntax error
15:28:52: Compiler: [Error] (magery.txt at 20:1): Unexpected end of file
15:28:52: Compiling failed
15:28:52: Script magery.txt stoped successfuly