Need Help по одному примитивнейшему скрипту

[born in USSR]

В общем вот примитивнейший скрипт на спарринг

Code: Select all

program sparing_fear;

Const bandages : Cardinal;
enemy : Cardinal;
Catana : Cardinal;
Bow : Cardinal;

Begin

bandages := $0E21;
enemy := $0000333A;
Catana := $13FE;
Bow := $13B1;

Attack(enemy);

  While (not dead) do
  begin
   
    Attack(enemy);

    UseObject(FindType(bandages, Backpack));
    WaitTargetObject(enemy);
    Wait(17000);
   
    if (GetHP(enemy) < 60) then
    begin
      disarm;
    end;

    if ((ObjAtLayer(RhandLayer) = 0) and (GetHP(enemy) > 60)) then 
      begin 
	UseObject(Backpack);
        Equipt(RhandLayer, Catana); 
      end; 

    if (GetHP(enemy) < 30) then
      begin
        UseObject(Backpack);
        Equipt(RhandLayer, Bow);
      end;
  end;

End.

У меня с ним возникают вот какие траблы - время от времени чар , который стоит на этом скрипте , перестаёт атаковать и хилять врага... И не всегда берётся в руку Катана , хотя у врага больше 60 ХП и в руке у моего чара ничего нет...

[Alex]

GetHP не работает, по этому он у тебя зацикливаеться, используй uosay() что бы следить за ХП чара, например пусть если мало хп то воин будет сообщать об этом напарнику и тот снимает оружие, когда вылечился, будет говорить что можно продолжить