auto heal

[kaulins1122]

sub heal ()
while NOT UO.Dead()
wait(1500)
If UO.Life<UO.Str Then
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
uo.print("Лечимся")
Endif
wend
end sub


vot etat script vso normalnoi TOKO KAK ZDELAT STOB >> stop aut_heal ?!?!?

[Scripts Writer]

Code: Select all

sub healll () 
while NOT UO.Dead() 
wait(1500) 
If UO.Life<UO.Str Then 
UO.SetArm('CWeapon') 
UO.Exec("bandageself") 
wait(500) 
UO.Arm('CWeapon') 
uo.print("Лечимся") 
Endif 
wend 
end sub 

Code: Select all

sub stop()
 uo.Say(',terminate healll')
end sub

[BigMouseI]

Code: Select all

sub heal ()
while NOT UO.Dead()
wait(1500)
If UO.Life<UO.Str Then
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
uo.print("Лечимся")
Endif
wend
end sub 

Code: Select all

sub stop()
UO.Exec('terminate heal')
UO.Print('Вырубаем')
end sub

[Scripts Writer]

Code: Select all

sub heal ()
while NOT UO.Dead()
wait(1500)
If UO.Life<UO.Str Then
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
uo.print("Лечимся")
Endif
wend
end sub 

Code: Select all

sub stop()
UO.Exec('terminate heal')
UO.Print('Вырубаем')
end sub

Потрясающе

[BigMouseI]

Потрясающе

Меня тоже радует...

[flake]

Зачем же тратить 2 клавиши, когда хватает одной?

Code: Select all

sub heal () 
  if uo.GetGlobal( 'heal' ) == '1' then
    uo.SetGlobal( 'heal', '0' )  
    return
  else
    uo.SetGlobal( 'heal', '1' )
  endif
while NOT UO.Dead() AND (uo.GetGlobal( 'heal' ) == '1')
wait(1500) 
If UO.Life<UO.Str Then 
UO.SetArm('CWeapon') 
UO.Exec("bandageself") 
wait(500) 
UO.Arm('CWeapon') 
uo.print("Лечимся") 
Endif 
wend 
end sub