Code: Select all
sub unload() ;
VAR r, t=1000, horse = '0x0002663C', sunduk='0x40380CCF'
var endlist=25
Dim Nado[25]
Nado[1] = '0x1BD1' ;feather
Nado[2] = '0x0EED' ;gold
Nado[3] = '0x0EED'
Nado[4] = '0x0F86' ; mandrake root
Nado[5] = '0x0F88' ; night shade
Nado[6] = '0x0F8C' ; sulphorous ash
Nado[7] = '0x0F8D' ; spiders silk
Nado[8] = '0x0F7A' ; pearls, black pearls
Nado[9] = '0x0F7B' ; bood moss
Nado[10] = '0x0F84' ; garlic
Nado[11] = '0x0F85' ; ginseng
Nado[12] = '0x0F7D' ;Daemoon blood
Nado[13] = '0x0F78' ;Batwing
Nado[14] = '0x0F8F' ;Grave dust
Nado[15] = '0x0F8E' ;Nox crystal
Nado[16] = '0x0F8A' ;Pig iron
Nado[17] = '0x0F13' ;Ruby
Nado[18] = '0x0F15' ;Citrine
Nado[19] = '0x0F19' ;Sapfire
Nado[20] = '0x0F26' ;diamond
Nado[21] = '0x0F25' ;Amber
Nado[22] = '0x0F10' ;Emerald
Nado[23] = '0x0F2D' ;Turmaline
Nado[24] = '0x0F21' ;Star sapfire
Nado[25] = '0x0F16' ;Ametist
UO.UseObject('self')
wait (t)
uo.sayu( 'BANK ALL FOLLOW ME' )
For r = 1 to 25
uo.findtype( Nado[r] , -1 ,'my')
if uo.count( Nado[r] )> 0 then
uo.moveitem('finditem', -1, sunduk )
wait(t)
endif
next
wait (t)
For r = 1 to 25
uo.findtype( Nado[r] , -1, horse)
if uo.count( Nado[r] )> 0 then
uo.moveitem('finditem', -1, sunduk )
wait(t)
endif
next
if uo.getdistance(horse)<2 then
UO.UseObject(horse)
wait (t)
endif
end sub