Помогите со скриптиком (из инж в стелс)

[riwers]

Помогите переделать его под стелс .......все мои попытки закончились провалом
Заранее Благодарю

Code: Select all

sub WarTraining() #снимает и кидает вар мод, если хп менше заданого (своего или напарника; кол. ХП указываем; таргет на ПРОТИВНИКА )  
uo.addObject('opponent')
while uo.targeting()
wait(200)
wend

uo.warmode(true)
uo.attack('opponent')
repeat

if uo.getHP() < uo.getMaxHP()/1.9 then                                      #Указываем со скольки ХП(мах)/x СВОЕГО мы будем снимать вар (x переменная)
  uo.warmode(false)
 repeat
     wait(350)
   until uo.getHP() == uo.getMaxHP()
   uo.warmode(true)
   uo.attack('opponent')
endif

if uo.getHP('opponent') < uo.getMaxHP('opponent')/1.9 then    #Указываем со скольки ХП(мах)/x НАПАРНИКА мы будем снимать вар(x переменная)
  uo.warmode(false)
   repeat
   wait(350)
  until uo.getHP('opponent') == uo.getMaxHP('opponent')
  uo.warmode(true)
  uo.attack('opponent')
endif
wait(700)
until uo.dead()
endsub

[riwers]

Получился скрипт, но я его чуть каряво написал , прошу вашей помощи
- при дисконе скрипт вырубаеться
- не кушает или кушает но плохо
- хотелось еще сюда добавить хилинг


а воть сам скрипт на вар мод

Code: Select all

Program War;

var t : Integer;
i:Boolean;
enemy : Cardinal;

{$Include 'all.inc'}
Begin
checksave;
Enemy := $00545437;
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
Begin
checksave;
enemy:=$0052F4F7;
attack(enemy);

if GetHP(enemy)*100/GetMaxHP(enemy) < 60  THEN
Begin
SetWarMode(false)
repeat
wait(350);
until GetHP(enemy)=GetMaxHP(enemy) 
attack(enemy);
end;
end;
Begin
If HP<80 then
Begin
SetWarMode(false)
repeat
wait(350);
until HP=MaxHP
attack(enemy);
end;
end;
end;
end.

А вот на хилинг

Code: Select all

Program Healing;

var t : Integer;
enemy : Cardinal;
bandages:cardinal;

{$Include 'all.inc'}

Begin

bandages:=FindType($0E21,ground);
enemy:=$0052F4F7;
while not Dead do 
if GetHP(enemy)*100/GetMaxHP(enemy) < 80 THEN
Begin
UseObject(bandages);
WaitTargetObject(enemy);
wait(1000);
end;
end.

[riwers]

up