sub Loot()
VAR i,Exit
DIM Loot[37]
Loot[0]=0x0EED ; gp
Loot[1]=0x0F7B ; BM
Loot[2]=0x0F7A ; BP
Loot[3]=0x0F84 ; GA
Loot[4]=0x0F85 ; GI
Loot[5]=0x0F86 ; MR
Loot[6]=0x0F88 ; NS
Loot[7]=0x0F8C ; SA
Loot[8]=0x0F8D ; SS
Loot[9]=0x1BEF ; Ingi
Loot[10]=0x143E ; Aleba
Loot[11]=0x1406 ; War Mace
Loot[12]=0x1BDD ; Logi
Loot[13]=0x1F4C ; Recalls
Loot[14]=0x0F0E : Shrink
Loot[15]=0x0F87 : Newts
Loot[16]=0x0F78 ; batw
Loot[17]=0x1086 ; Mana Braslet
Loot[18]=0x13B1 ; Bows
Loot[19]=0x13FC ; Crowsbow
Loot[20]=0x0F0E ; Total Manka
Loot[21]=0x0F0E ; Bottle
Loot[22]=0x0F0E ; Great Heal
Loot[23]=0x0E34 ; Blank Scrols
Loot[24]=0x1F5F ; Flame Scrools
Loot[25]=0x0F0E ; Invisibility
Loot[26]=0x1414 ; Armor
Loot[27]=0x1413 ; Armor
Loot[28]=0x1412 ; Armor
Loot[29]=0x1411 ; Armor
Loot[30]=0x1415 ; Armor
Loot[31]=0x1B76 ; Heater Shield
Loot[32]=0x1410 ; Armor
Loot[33]=0x1F52 ; Paralize Scrool
Loot[34]=0x0F3F ; Arrows
Loot[35]=0x0F7D ; Naitmer blood
Loot[36]=0x0F0E ; Total Refresh
Loot[37]=0x0E76 ; Bags
UO.SetReceivingContainer('0x400FE578') ;ID backpacka
For i=0 to 37
Exit=0
repeat
UO.FindType(Loot[i],-1,'lastcontainer')
if UO.GetQuantity('finditem') then
UO.Grab('lastcontainer','finditem')
wait(100)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("loot")
Next
UO.UnSetReceivingContainer()
end sub
