нужна помощь pvp-alfa

[zach]

тут кто-то выкладывал скрипт для pvp-alfa на затарку у столба армором.
я его чуть переделал под себя вот -
sub Dress_alfa_man()
While NOT UO.Dead()
var n
Dim Select[3]
Select[1]='1' ; Бинты
Select[2]='12' ; Химия 2
Select[3]='3' ; Реги

Dim Item[3]
Item[1]='0x0E21'
Item[2]='0x09B0'
Item[3]='0x0E76'
If UO.GetGlobal('DressMan')<>'yes' Then
UO.Set('norbcalc','1')
UO.SetGlobal('DressMan','yes')
EndIf
If UO.GetGlobal('DressManCheck')<>'on' Then
UO.SetGlobal('DressManCheck','on')
If UO.CountGround('0x0ED4','0x08BB') or UO.CountGround('0x0ED4','0x079B') Then
If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
UO.UseObject('backpack')
Wait(1000)
EndIf
If NOT UO.ObjAtLayer('Torso') Then ; кристал армор без щита
UO.Recall('0x4001361C','11')
REPEAT
Wait(400)
Until UO.ObjAtLayer('Torso')
EndIf
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x40013766','8') ; лама
REPEAT
Wait(300)
Until UO.ObjAtLayer('Horse')
EndIf
If NOT UO.ObjAtLayer('Arm') Then ; щит композит
UO.Recall('0x4001361C','23')
REPEAT
Wait(300)
Until UO.ObjAtLayer('Bpack')
EndIf
For n = 1 TO 3
If UO.Count(Item[n])==0 Then
UO.Recall('0x40013766',Select[n])
UO.DeleteJournal()
REPEAT
Wait(300)
Until UO.InJournal("You put")
EndIf
Next
UO.Print('Done!')
Else
UO.Print("I don't see equipment stone!")
EndIf
UO.SetGlobal('DressManCheck','off')
Else
UO.Print("Wait")
EndIf
end sub
только вот у меня 1 проблема
не могу сделать так чтоб скрипт тарился оружеем ! подскажите как плз!!!