Атака и подбор оружия

[Inspyre]

Проблема в скрипте после того, как ломается спира, он её не берёт, в чём тут ошибка? Что не так?

Code: Select all

program DoubleClickOnObject;

 var
 i:integer; 
 tweapon:word;

 {$Include 'all.inc'}



 procedure weaponckeck; 
 begin
 if (not dead) and (connected) then begin 
 checksave;
 if (getquantity(findtype(tweapon,backpack)) > 0) and (gettype(ObjAtLayer(RhandLayer)) <> gettype(finditem)) then begin 
 addtosystemjournal('Weapon Change, осталось '+inttostr(findcount));
 UnEquip(RHandLayer); 
 wait(600); 
 Equip(RhandLayer,finditem); 
 end; 
 Wait(600); 
 checksave; 
 end;

 end;

 Begin
 tweapon := $0F63 // Тайп Оружия

 while true do
 begin
 weaponckeck;
 attack($001B24D7); // Айди Аттакуемого
 Hungry(1,ground);
 wait(5000)
 end;
 End.

[Enkidoo]

Спира одноручная?

я одеваюсь так

Code: Select all

if ObjAtLayer(LhandLayer) = 0 then
begin
Findtype(тайп вещи,Backpack);
wait (500);
Equip(LhandLayer,finditem);
end;