Code: Select all
sub Dress()
If UO.Dead() Then
UO.Print("You are Dead")
Return
End If
var n
Dim Select[4]
Select[0] = 3
Select[1] = '1' ; Бинты
Select[2] = '12' ; Химия 2
Select[3] = '3' ; Реги
Dim Item[4]
Item[0] = 3
Item[1] = '0x0E21'
Item[2] = '0x09B0'
Item[3] = '0x0E76'
If UO.GetGlobal('NorbcalcCheck')<>'yes' Then
UO.Set('norbcalc','1')
UO.SetGlobal('NorbcalcCheck','yes')
End If
If UO.GetGlobal('DressCheck')<>'on' Then
UO.SetGlobal('DressCheck','on')
If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then
UO.UseObject('backpack')
Wait(500)
End If
If UO.CountGround('0x0ED4','0x08BB') and UO.CountGround('0x0ED4','0x079B') Then
If NOT UO.ObjAtLayer('Torso') Then
UO.Recall('0x4001361C','7') ; Армор(Композит)
REPEAT
Wait(100)
Until UO.ObjAtLayer('Torso')
End If
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x40013766','8') ; Лама
REPEAT
Wait(100)
Until UO.ObjAtLayer('Horse')
End If
For n = 1 TO Select[0]
If UO.Count(Item[n])==0 Then
UO.Recall('0x40013766',Select[n])
UO.DeleteJournal()
REPEAT
Wait(100)
Until UO.InJournal("You put")
End If
Next
Uo.UseType('0x1F06') ; Амулет
wait(50)
Uo.UseType('0x1F08') ; Браслет
wait(50)
Uo.UseType('0x1FFD') ; Гс маика
wait(50)
drop() ; Выбрасывает Шлем и Горгетку
wait(50)
Uo.Msg('.arm') ; Одеавет Меч и Щит
Uo.Msg('Keep The Change...')
UO.Print('Done!')
Else
UO.Print("I don't see equipment stone!")
End If
UO.SetGlobal('DressCheck','off')
Else
UO.Print("Wait")
End If
end sub
sub drop()
var i
for i = 0 to 1
UO.FindType('0x1412','0x0A4D','my') ; Одетая цветная бошка
UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem")
UO.FindType('0x1413') ; В бекпаке простая горгетка тк я уже отдел Амулет
UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem")
UO.DeleteJournal()
end sub
