sub fastloot2() 
   VAR WaitTime=500 
   VAR Exit=0, i 
   uo.exec("set finddistance 3") 
dim fastloot[94] 
fastloot[0]=0x13B9 ;перья
fastloot[1]=0x1087 ;серьги
fastloot[2]=0x13FE ;катана
fastloot[3]=0x1078 ;бел+жел драконы(кожа)
fastloot[4]=0x0EED ;money 
fastloot[5]=0x19B7 ;dragon ore 
fastloot[6]=0x0E34 ;blank scroll 
fastloot[7]=0x0E75 ;symka kvadrat 
fastloot[8]=0x0F80 ;daemon bones 
fastloot[9]=0x0F4E 
fastloot[10]=0x1440 
fastloot[11]=0x1441 
fastloot[12]=0x0F60 
fastloot[13]=0x0F61 
fastloot[14]=0x0F5E 
fastloot[15]=0x0F5F 
fastloot[16]=0x13B7 
fastloot[17]=0x13B8 
fastloot[18]=0x13FA 
fastloot[19]=0x13FB 
fastloot[20]=0x0F45 
fastloot[21]=0x0F46 
fastloot[22]=0x0F4B 
fastloot[23]=0x0F4C 
fastloot[24]=0x13AF 
fastloot[25]=0x13B0 
fastloot[26]=0x0F49 
fastloot[27]=0x0F4A 
fastloot[28]=0x0F62 
fastloot[29]=0x0F63 
fastloot[30]=0x1402 
fastloot[31]=0x1403 
fastloot[32]=0x1400 
fastloot[33]=0x1401 
fastloot[34]=0x0F51 
fastloot[35]=0x0F52 
fastloot[36]=0x1406 
fastloot[37]=0x1407 
fastloot[38]=0x1438 
fastloot[39]=0x1439 
fastloot[40]=0x0F5C 
fastloot[41]=0x0F5D 
fastloot[42]=0x143A 
fastloot[43]=0x143B 
fastloot[44]=0x143C 
fastloot[45]=0x143D 
fastloot[46]=0x1B76 
fastloot[47]=0x1B77 
fastloot[48]=0x1B7B 
fastloot[49]=0x1B7A 
fastloot[50]=0x1B72 
fastloot[51]=0x1B73 
fastloot[52]=0x1B74 
fastloot[53]=0x1B75 
fastloot[54]=0x1B79 
fastloot[55]=0x1B78 
fastloot[56]=0x1416 
fastloot[57]=0x1415 
fastloot[58]=0x13BF 
fastloot[59]=0x13C4 
fastloot[60]=0x1411 
fastloot[61]=0x141A 
fastloot[62]=0x13BE 
fastloot[63]=0x1410 
fastloot[64]=0x1417 
fastloot[65]=0x1412 
fastloot[66]=0x1419 
fastloot[67]=0x140C 
fastloot[68]=0x140D 
fastloot[69]=0x140A 
fastloot[70]=0x140B 
fastloot[71]=0x1408 
fastloot[72]=0x1409 
fastloot[73]=0x140E 
fastloot[74]=0x140F 
fastloot[75]=0x13BB 
fastloot[76]=0x13C0 
fastloot[77]=0x1414 
fastloot[78]=0x1418 
fastloot[79]=0x1413 
fastloot[80]=0x1086 
fastloot[81]=0x13B1 
fastloot[82]=0x13B2 
fastloot[83]=0x0F4F 
fastloot[84]=0x0F50 
fastloot[85]=0x13FC 
fastloot[86]=0x13FD 
fastloot[87]=0x0F0E 
fastloot[88]=0x1F4A 
fastloot[89]=0x1F5F 
fastloot[90]=0x0E76 ;symka mewok
fastloot[91]=0x1BD1 
fastloot[92]=0x0E79 
fastloot[93]=0x09B0 


   UO.UseObject('lastcorpse') 

   if UO.GetQuantity('lastcorpse') then 
      UO.SetArm('temp') 
      UO.WaitTargetObject('lastcorpse') 
      UO.UseType('0x0F51') ;dagger 
      wait(1000) 
      UO.Arm('temp') 
      wait(1000) 
   endif 

   for i=0 to 93 
    repeat 
     uo.findtype(fastloot[i],'-1','lastcorpse') 
     if uo.findcount()>0 then 
      CheckLag() 
      uo.waittargetObject('finditem') 
      uo.grab() 
      wait(550) 
     endif 
    until uo.findcount()==0 

   next 
   uo.print('===================================') 
   uo.print('!!!!!!!LOOTING COMPLETED!!!!!!!!!') 
   uo.print('===================================') 

    uo.exec("set finddistance 14") 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(500) 
until uo.InJournal('backpack') 
end sub