Page 1 of 1
auto heal
Posted: 2006-04-12 22:38:36
by 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 ?!?!?
Posted: 2006-04-12 23:29:03
by 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
Posted: 2006-04-15 09:09:52
by 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
Posted: 2006-04-15 13:48:19
by Scripts Writer
BigMouseI wrote: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
Потрясающе
Posted: 2006-04-15 20:43:58
by BigMouseI
You Must Die wrote:
Потрясающе
Меня тоже радует...
Posted: 2006-04-16 00:28:18
by 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