Ultima Online Antares

;--------------------------------------------------------
; Выгрузка обычных реагентов в контейнер
;--------------------------------------------------------
; Перемещает реагенты из пака персонажа в указанный
; контейнер.
;--------------------------------------------------------

sub UnloadRegs()

dim Items[8]
Items[1] = '0x0F7A' ; Black Pearl
Items[2] = '0x0F7B' ; Blood Moss
Items[3] = '0x0F84' ; Garlick
Items[4] = '0x0F85' ; Ginseng
Items[5] = '0x0F86' ; Mandrake
Items[6] = '0x0F88' ; Nightshade
Items[7] = '0x0F8C' ; Sulphorous Ash
Items[8] = '0x0F8D' ; Spider Silk

var Count

if not Select('контейнер для выгрузки:', 'Dest') then
UO.Print('Выбор прерван!')
return
end if

for Count = 1 to 8
MoveItems(Items[Count], 'backpack', 'Dest')
next

end sub

;--------------------------------------------------------
; Перемещение всех однотипных предметов
;--------------------------------------------------------

Sub MoveItems(Type, Source, Dest)

UO.FindType(Type, '-1', Source)
while UO.FindCount() > 0
UO.MoveItem('finditem', 'All', Dest)
UO.Ignore('finditem')
UO.FindType(Type, '-1', Source)
wend
UO.IgnoreReset()

end Sub