Хилинг ( боевые )

[Sorme.it]

Добрый день , возникла необходимость в прокачке боевых .
написал вот такое творение ( спасибо огромное драбадану с форума за стойкость духа с моими нуби вопросами )

Code: Select all

program healingWAR ;         // берет щит в руки
const 

shield  =  $13B3;


begin
if FindType(shield,backpack) > 0 then
begin
  UseObject(FindItem);
end
else
AddToSystemJournal('в бекпаке нет щитов');
wait (10000)
end.










procedure healing ;     // автохил
const 

bandage =  $0E21;



begin

if (HP < MaxHP) then
begin
  UseObject(bandage);  
  WaitTargetSelf;
wait(3500);
end
else
AddToSystemJournal('максимальные хп');
wait (10000)
end.



procedure DrinkGH ;      //припив гх банок
const 

gh  =  $13B3;


begin
if (HP < 70) then
begin
  UseObject(gh);
end
else
AddToSystemJournal('нет гх банок или много здоровья');
wait (10000)
end.





procedure DrinkTotal ;    //припив тотлов 
const 

total  =  $13B3;


begin
if (HP < 30) then
begin
  UseObject(total);
end
else
AddToSystemJournal('нет  банок или много здоровья');
wait (10000)
end.

Как прикрутить чтобы скрипт все время висел в запущенных ? пробовал

Code: Select all

begin
 while Dead = false do //выполнять пока не умер

но так и не смог прикрутить ко всему скрипту


есть идея прикрутить begin
while Dead = false do к каждой процедуре

[drabadan]

Форматирование - вырвиглаз...
http://stealth.od.ua/forum/viewtopic.php?f=2&t=1123 - прочитай, потрать 10 - 15 минут своего времени и все будет понятно!