Code:
#####################################################################
; AutoHeal. v.1.10b (c) Edred
;
; Автоматический подхил чара (здоровье минус 30). Автоматическое питие
; греатхил поушена при здоровье меньше 60. Автоматическое запоминание
; оружия и щита при запуске и взятие их в руки после подхилла.
;
sub AutoHeal()
VAR GreatHeal = '0x0F0C'
VAR MyFork = UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) )
VAR MyShield = UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) )
If MyFork == '0x0000' Then
MyFork = ''
Endif
If MyShield == '0x0000' Then
MyShield = ''
Endif
repeat
If UO.Life < (UO.Str - 30) Then
RestoreChar( 0 )
GetWeapon( MyFork, MyShield )
Endif
If UO.Life < 60 Then
UO.UseType( GreatHeal )
Endif
wait(2000)
until UO.Dead()
endsub
где то на форуме нашел