Хилинг ( боевые )
Posted: 09.02.2014 19:47
Добрый день , возникла необходимость в прокачке боевых .
написал вот такое творение ( спасибо огромное драбадану с форума за стойкость духа с моими нуби вопросами )
Как прикрутить чтобы скрипт все время висел в запущенных ? пробовал
но так и не смог прикрутить ко всему скрипту
есть идея прикрутить begin
while Dead = false do к каждой процедуре
написал вот такое творение ( спасибо огромное драбадану с форума за стойкость духа с моими нуби вопросами )
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 к каждой процедуре