Code: Select all
sub autobandage()
repeat
if (UO.Str-UO.Life)>15 then
;UO.UseType(0x0F0C); хелки
UO.exec("waittargetself")
UO.UseType(0x0E21)
wait(5000)
end if
if UO.Count(0x0E21)<500 then
UO.WaitTargetObject(0x4019EA82); Water Trough мыть бинты
UO.UseType(0x0E20)
wait(1000)
end if
wait(500)
while UO.Dead()
wait(5000)
wend
until false
end sub
sub EquipWeapon()
var Weapon1='0x13E3' , Weapon2='0x13B1' , victim='0x000009F0' shield='0x1B76' <<<< тут ругается
repeat
if UO.GetHP(victim)>40 AND NOT UO.GetGraphic(UO.ObjAtLayer('Rhand'))==Weapon1 then
UO.equipt('Rhand',Weapon1)
wait(1000)
UO.equipt('Lhand',Shield)
UO.Print('Mochilovka!')
UO.Print(UO.GetGraphic(UO.ObjAtLayer('Rhand')))
wait(2000)
end if
if UO.GetHP(victim)<20 AND not UO.GetGraphic(UO.ObjAtLayer('Rhand'))==Weapon2 then
UO.equipt('Rhand',Weapon2)
UO.Print('STOP!!!')
wait(500)
UO.Print(STR(UO.GetHP(victim)))
wait(2000)
end if
if UO.GetHP(victim)==0 then
UO.Exec("playwav C:\GAMES\injection\Script\alarm1")
wait(10000)
UO.WaitTargetObject('lastcorpse')
UO.UseType(0x0F51)
end if
wait(3000)
until False
end sub
Помогите плз ошибка указана в скрипте
выдает ошибку пауз эррор =0(
заранее благодарю
Code: Select all
Code: Select all