Перейти к публикации
Rincewind

Спирит Спик

Рекомендованные сообщения


Program Spirit;
{$Include 'all.inc'}
var
k : integer;
n: integer;
ctime : TDateTime;
procedure bot;
begin
Cast('Dispel');
waittargetself;
wait(2000);
end;
procedure TrySpirit;
begin
repeat
UseSkill('Spirit Speak');
Wait(2000);
until (InJournal('You contact') <> -1) or (InJournal('already in contact') <> -1)
Wait(3000);
end;
procedure TryMedit;
begin
while (mana < maxmana) do
begin
useskill('meditation');
wait(2000);
end;
end;
Begin
while not Dead do
begin
Hungry(2,backpack);
ClearJournal;
if (mana < 20) then begin TryMedit; end;
TrySpirit;
bot;

end;
End.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

×
×
  • Создать...