sub Looting()
   var t,l,m
   m=15
   t=1820
   dim LootingItem[15] ## ?????? ?????? ??? ????
   LootingItem[1] = '0x13BA' ## ?????
   LootingItem[2] = '0x13B9' ## ?????
   LootingItem[3] = '0x143C' ## ????
   LootingItem[4] = '0x0F63' ## ????
   LootingItem[5] = '0x0F46' ## ????????
   LootingItem[6] = '0x143E' ## ?????
   LootingItem[7] = '0x1406' ## ????
   LootingItem[8] = '0x1BC3' ## ??????
   LootingItem[9] = '0x13FC' ## ??????
   LootingItem[10] = '0x1400' ## ????
   LootingItem[11] = '0x13B1' ## ??????
   LootingItem[12] = '0x1515' ## ??????
   LootingItem[13] = '0x204E' ## ??????
   LootingItem[14] = '0x13FE' ## ?????
   LootingItem[15] = '0x0B16' ## ice sword
   uo.set("finddistance",4)
   for l=1 to m
      uo.findtype(LootingItem[l],"-1","1")
      while uo.FindCount() > 0
         uo.grab("0","finditem")
         wait(t)
         uo.findtype(LootingItem[l],"-1","1")
      wend
   next
   if uo.GetSerial("lastcontainer") <> uo.GetSerial(uo.ObjAtLayer('Bpack')) then
      for l=1 to m
         uo.FindType(LootingItem[l],"-1","lastcontainer")
         while UO.FindCount() > 0
            uo.grab(0,"finditem")
            wait(t)
            uo.FindType(LootingItem[l],"-1","lastcontainer")
         wend
      next
   endif
end sub

 dim x[3]
x[0]
x[1]
x[2]

 dim x[3]
x[1]
x[2]
x[3]

 dim x[668]
x[666]
x[667]
x[668]

sub test()
var n
Dim r[888]
r[666] = '666'
r[777] = '777'
r[888] = '888'
For n = 666 To 666
   uo.print(r[n])
   wait(300)
next
For n = 777 To 777
   uo.print(r[n])
   wait(300)
next
For n = 888 To 888
   uo.print(r[n])
   wait(300)
next
end sub