Yoko

For i=0 to 49
      exit=0 
      repeat 
      if LootingItem[i]==0x0F0E then 
         k=0x09DF 
      else 
         k=-1 
      endif 
       Uo.FindType(LootingItem[i],k,'lastcontainer') 
        if Uo.FindCount('finditem') and UO.GetGraphic('finditem')<>'0x0000' then 
         Uo.Grab('0','finditem') 
          wait(180) 
          else 
         exit=1 
        endif 
      until Exit==1 OR uo.injournal('LootingItem') 
   Next 
Uo.Print('End loot!')
end sub

Sub Lootbody() 
Var i,k,Exit 
DIM LootingItem[33] 
###################################
#######      Weapon-Fence    #######
###################################
LootingItem[0] = 0x1400  ## -> Kryss 
LootingItem[1] = 0x0F62  ## -> Spear 
LootingItem[2] = 0x1404  ## -> War Fork
LootingItem[3] = 0x1402  ## -> Short Spear
###################################
#######      Weapon-Sword   #######
################################### 
LootingItem[4] = 0x13FE  ## -> Katana
LootingItem[5] = 0x13B5  ## -> Scimitar
LootingItem[6] = 0x1440    ## -> Cutlas
LootingItem[7] = 0x13B9  ## -> Viking Sword
LootingItem[8] = 0x143E  ## -> Halberd
###################################
#######      Weapon-Mace      #######
###################################
LootingItem[9] = 0x0F5C  ## -> Mace
LootingItem[10] = 0x13AF ## -> War Axe
LootingItem[11] = 0x143C ## -> Hammer Pick
LootingItem[12] = 0x1438 ## -> War Hammer
LootingItem[13] = 0x0F49 ## -> Axe
LootingItem[14] = 0x0F4B ## -> Double Axe
LootingItem[15] = 0x13FA ## -> Large Battle Axe
LootingItem[16] = 0x1442 ## -> Two Handed Axe
###################################
#######      Shields         #######
###################################
LootingItem[17] = 0x1B7B ## -> Metal
LootingItem[18] = 0x1B76 ## -> Heater
LootingItem[19] = 0x1B78 ## -> Wooden Kite
###################################
#######      Plate Armore   #######
###################################
LootingItem[20] = 0x1415 ## -> Platemail
LootingItem[21] = 0x1411 ## -> Legs 
LootingItem[22] = 0x1410 ## -> Arms 
LootingItem[23] = 0x1414 ## -> Gloves 
LootingItem[24] = 0x1412 ## -> Helm 
LootingItem[25] = 0x1413 ## -> Gorget  
###################################
#######      Leather Armore   #######
###################################
LootingItem[26] = 0x13CC ## -> Tunic
LootingItem[27] = 0x13CB ## -> Leggings
LootingItem[28] = 0x13C5 ## -> Sleeves
LootingItem[29] = 0x13C6 ## -> Gloves
LootingItem[30] = 0x1DB9 ## -> Cap
LootingItem[31] = 0x13C7 ## -> Gorget 
LootingItem[32] = 0x170F ## -> Shoes
For i=0 to 32
      exit=0 
      repeat 
      if LootingItem[i]==0x0F0E then 
         k=0x09DF 
      else 
         k=-1 
      endif 
       Uo.FindType(LootingItem[i],k,'lastcontainer') 
        if (Uo.FindCount('finditem')>0) and (UO.GetGraphic('finditem')<>'0x0000') then 
         Uo.Grab('0','finditem') 
          wait(180) 
          else 
         exit=1 
        endif 
      until Exit==1 OR uo.injournal('LootingItem') 
   Next 
Uo.Print('End loot!') 
end sub