Yoko

sub Loot()
     
VAR WaitTime=600
     VAR Exit=0, i
     DIM Loot[29]
     
      Loot[0] = 0x1B78 ; gnom shield 
      Loot[1] = 0x13FA ; axe
      Loot[2] = 0x1402 ; elf pika 
      Loot[3] = 0x1B74 ; dragon shield
      Loot[4] = 0x1B78 ; titan shield
      Loot[5] = 0x143A ; first
      Loot[6] = 0x14EF ; dids
      Loot[7] = 0x0EED ; gp
      Loot[8] = 0x1088 ; amuls
      Loot[9] = 0x1B76 ; shields
     Loot[10] = 0x13FC ; arbalet
     Loot[11] = 0x0EED ; ???? ????
     Loot[12] = 0x1B74 ; ????
     Loot[13] = 0x13C9 ; ???? ????
     Loot[14] = 0x13C5 ; ???? ????
     Loot[15] = 0x13C6 ; ???? ??????
     Loot[16] = 0x13C7 ; ???? ??????
     Loot[17] = 0x1DB9 ; ???? ?????
     Loot[18] = 0x1411 ; legs
     Loot[19] = 0x0E25 ; alebardi
     Loot[20] = 0x13B5 ; swords
     Loot[21] = 0x1ECD ; hummers
     Loot[22] = 0x1404 ; forks
     Loot[23] = 0x13B9 ; blade
     Loot[24] = 0x13FE ; katana
     Loot[25] = 0x0A3E ; ??????
     Loot[26] = 0x0E75 ; ??????
     Loot[27] = 0x0E76 ; ???
     Loot[28] = 0x09B0 ; ???? ?1
     Loot[29] = 0x0E79 ; ???? ?2
     
     
     
     
     UO.UseObject('lastcorpse')


     
     ;UO.SetReceivingContainer('0x40005077') ; loot store bag

     For i=0 to 29
          UO.FindType(Loot[i],-1,'lastcorpse')
          if UO.GetQuantity('finditem') then 
               UO.Grab(STR(0),'finditem')
               wait(WaitTime)
          endif
    



          if UO.GetQuantity('lastcorpse') then
               UO.FindType(Loot[i],-1,'lastcorpse')
               if UO.GetQuantity('finditem') then 
                    if Loot[i]==0x1078 then
                         UO.WaitTargetObject('finditem')
                         UO.UseType('0x0F9E')
                    else
                         UO.Grab(STR(0),'finditem')
                    endif                    
                    wait(WaitTime)
               endif
          endif
     
     next


     ;UO.UnSetReceivingContainer()
end sub

sub Loot()

VAR WaitTime=600
     VAR Exit=0, i
     DIM Loot[29]
     
      Loot[0] = 0x1B78 ; gnom shield
      Loot[1] = 0x13FA ; axe
      Loot[2] = 0x1402 ; elf pika
      Loot[3] = 0x1B74 ; dragon shield
      Loot[4] = 0x1B78 ; titan shield
      Loot[5] = 0x143A ; first
      Loot[6] = 0x14EF ; dids
      Loot[7] = 0x0EED ; gp
      Loot[8] = 0x1088 ; amuls
      Loot[9] = 0x1B76 ; shields
     Loot[10] = 0x13FC ; arbalet
     Loot[11] = 0x0EED ; ???? ????
     Loot[12] = 0x1B74 ; ????
     Loot[13] = 0x13C9 ; ???? ????
     Loot[14] = 0x13C5 ; ???? ????
     Loot[15] = 0x13C6 ; ???? ??????
     Loot[16] = 0x13C7 ; ???? ??????
     Loot[17] = 0x1DB9 ; ???? ?????
     Loot[18] = 0x1411 ; legs
     Loot[19] = 0x0E25 ; alebardi
     Loot[20] = 0x13B5 ; swords
     Loot[21] = 0x1ECD ; hummers
     Loot[22] = 0x1404 ; forks
     Loot[23] = 0x13B9 ; blade
     Loot[24] = 0x13FE ; katana
     Loot[25] = 0x0A3E ; ??????
     Loot[26] = 0x0E75 ; ??????
     Loot[27] = 0x0E76 ; ???
     Loot[28] = 0x09B0 ; ???? ?1
     Loot[29] = 0x0E79 ; ???? ?2
     
     
     
     while 1==1
     UO.UseObject('lastcorpse')


     
     ;UO.SetReceivingContainer('0x40005077') ; loot store bag

     For i=0 to 29
          UO.FindType(Loot[i],-1,'lastcorpse')
          if UO.GetQuantity('finditem') then
               UO.Grab(STR(0),'finditem')
               wait(WaitTime)
          endif
   



          if UO.GetQuantity('lastcorpse') then
               UO.FindType(Loot[i],-1,'lastcorpse')
               if UO.GetQuantity('finditem') then
                    if Loot[i]==0x1078 then
                         UO.WaitTargetObject('finditem')
                         UO.UseType('0x0F9E')
                    else
                         UO.Grab(STR(0),'finditem')
                    endif                   
                    wait(WaitTime)
               endif
          endif
     
     next


     ;UO.UnSetReceivingContainer()
wait (1000)
wend
end sub