sub dress_riffka()
var n
var stolb_arm
var stolb_eq
var stolb_gun
var karma
Dim Select[3]
Select[1] = '11'  ; 200 Bandages
Select[2] = '24'  ; 4 Bag of Potions
Select[3] = '13'  ; 2 Bag of Reagents

Dim Item[4]
Item[1] = '0x0E21'
Item[2] = '0x09B0'
Item[3] = '0x0E76'

If UO.GetGlobal('NorbcalcCheck')<>'yes' Then
UO.Set('norbcalc','1')
uo.set('norbcheck','1')
UO.SetGlobal('NorbcalcCheck','yes')
End If
If UO.CountGround('0x151C','0x0A59') or UO.CountGround('0x0ED4','0x079B') Then
UO.DeleteJournal()
UO.Set('finddistance','3')
uo.findtype ("0x0ED4","0x08BB","ground")
stolb_arm = UO.GetSerial('finditem')
uo.findtype ('0x0ED4','0x079B','1')
stolb_eq = UO.GetSerial("finditem")
uo.findtype ('0x0ED4','0x04B0','1')
stolb_gun = UO.GetSerial("finditem")
If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;
UO.UseObject('backpack')
Wait(50)
End If
If NOT UO.ObjAtLayer('Torso') Then
UO.Recall(stolb_arm,'15') ; Composite [F]
REPEAT
Wait(50)
Until UO.ObjAtLayer('Torso')
End If
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall(stolb_eq,'8') ; Llama
REPEAT
Wait(50)
Until UO.ObjAtLayer('Horse')
End If
For n = 1 to 3
If UO.Count(Item[n])==0 Then
UO.Recall(stolb_eq,Select[n])
UO.DeleteJournal()
REPEAT
Wait(50)
Until UO.InJournal("You put")
End If
Next
uo.usetype('0x1F06') ; Áðàñ
uo.usetype('0x1F08') ; Àìóëåò
wait(100)
uo.msg('.arm')
UO.Print('Done')
Else
UO.Print("I don't see equipment stone!")
End If
End If
uo.usefromground ('0x0ED4','0x04B0')
wait (100)
checklags()
uo.LClick (60,262)
wait (100)
checklags()
uo.LClick (215,264)
end sub