sub astloot()
      var t,l
      t=600
      uo.UseObject('lastcorpse')
      wait(t)
      dim astloot[101]
      uo.Print('Starting loot')
      
      astloot[0]=0x13B9
      astloot[1]=0x13BA
      astloot[2]=0x13FE
      astloot[3]=0x13FF
      astloot[4]=0x13B5
      astloot[5]=0x13B6
      astloot[6]=0x143E
      astloot[7]=0x143F
      astloot[8]=0x0F4D
      astloot[9]=0x0F4E
      astloot[10]=0x1440
      astloot[11]=0x1441
      astloot[12]=0x0F60
      astloot[13]=0x0F61
      astloot[14]=0x0F5E
      astloot[15]=0x0F5F
      astloot[16]=0x13B7
      astloot[17]=0x13B8
      astloot[18]=0x13FA
      astloot[19]=0x13FB
      astloot[20]=0x0F45
      astloot[21]=0x0F46
      astloot[22]=0x0F4B
      astloot[23]=0x0F4C
      astloot[24]=0x13AF
      astloot[25]=0x13B0
      astloot[26]=0x0F49
      astloot[27]=0x0F4A
      astloot[28]=0x0F62
      astloot[29]=0x0F63
      astloot[30]=0x1402
      astloot[31]=0x1403
      astloot[32]=0x1400
      astloot[33]=0x1401
      astloot[34]=0x0F51
      astloot[35]=0x0F52
      astloot[36]=0x1406
      astloot[37]=0x1407
      astloot[38]=0x1438
      astloot[39]=0x1439
      astloot[40]=0x0F5C
      astloot[41]=0x0F5D
      astloot[42]=0x143A
      astloot[43]=0x143B
      astloot[44]=0x143C
      astloot[45]=0x143D
      astloot[46]=0x1B76
      astloot[47]=0x1B77
      astloot[48]=0x1B7B
      astloot[49]=0x1B7A
      astloot[50]=0x1B72
      astloot[51]=0x1B73
      astloot[52]=0x1B74
      astloot[53]=0x1B75
      astloot[54]=0x1B79
      astloot[55]=0x1B78
      astloot[56]=0x1416
      astloot[57]=0x1415
      astloot[58]=0x13BF
      astloot[59]=0x13C4
      astloot[60]=0x1411
      astloot[61]=0x141A
      astloot[62]=0x13BE
      astloot[63]=0x1410
      astloot[64]=0x1417
      astloot[65]=0x1412
      astloot[66]=0x1419
      astloot[67]=0x140C
      astloot[68]=0x140D
      astloot[69]=0x140A
      astloot[70]=0x140B
      astloot[71]=0x1408
      astloot[72]=0x1409
      astloot[73]=0x140E
      astloot[74]=0x140F
      astloot[75]=0x13BB
      astloot[76]=0x13C0
      astloot[77]=0x1414
      astloot[78]=0x1418
      astloot[79]=0x1413
      astloot[80]=0x1086
      astloot[81]=0x13B1
      astloot[82]=0x13B2
      astloot[83]=0x0F4F
      astloot[84]=0x0F50
      astloot[85]=0x13FC
      astloot[86]=0x13FD
      astloot[87]=0x0F0E
      astloot[88]=0x1F4A
      astloot[89]=0x1F5F
      astloot[90]=0x0E76
      astloot[91]=0x0E75
      astloot[92]=0x0E79
      astloot[93]=0x09B0
      astloot[94]=0x0F7A #bp
      astloot[95]=0x0F88 #ns
      astloot[96]=0x1F5F #fs
      astloot[97]=0x1F52 #paral scrolls
      astloot[98]=0x0F8C #regs->Sulf Ash
      astloot[99]=0x09CF #regs->garlic
      astloot[100]=0x0E21 #bandages
      
      uo.Print('FIIIIIINESHHHHH!')
      for l=0 to 100
         uo.FindType(astloot[l],"-1","lastcorpse")
         if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=2 then
            uo.Grab(1,"finditem")
            wait(t)
         end if
      next
   end sub

uo.FindType(astloot[l],"-1","lastcorpse")
         if uo.findcount()>0 then
               CheckLag()
               UO.MoveItem('finditem',-1,'backpack')
               wait(500)