Yoko

sub Loot() 
   VAR WaitTime=400 
   VAR Exit=0, i 
   DIM Loot[53] 
    


Loot[1]=0x1086 ;áðàñëåò
Loot[2]=0x1085 ;áóñû
Loot[3]=0x1549 ; ìàñêà
Loot[4]=0x204E ; ðîáà
Loot[5]=0x1515 ; êëîêà åëüâèí
Loot[6]=0x204E ; êëîêà èíêîãíèòî
Loot[7]=0x204E ; êëîêà äþèíã
Loot[8]=0x13B5 ; âåïû
Loot[9]=0x1400 ;
Loot[10]=0x13B3 ;
Loot[11]=0x1406 ;
Loot[12]=0x0F5C ;
Loot[13]=0x13AF ;
Loot[14]=0x143A ;
Loot[15]=0x1404 ;
Loot[16]=0x13FE ;
Loot[17]=0x143C ;
Loot[18]=0x1438 ;
Loot[19]=0x1440 ;
Loot[20]=0x13B1 ;
Loot[21]=0x0F5E ;
Loot[22]=0x0F62 ;
Loot[23]=0x0F4F ;
Loot[24]=0x13B9 ;
Loot[25]=0x0F45 ;
Loot[26]=0x0F49 ;
Loot[27]=0x0F47 ;
Loot[28]=0x13FB ;
Loot[29]=0x1442 ;
Loot[30]=0x13B8 ;
Loot[31]=0x1403 ;
Loot[32]=0x0F4D ;
Loot[33]=0x143E ;
Loot[34]=0x13FC ;
Loot[35]=0x1B78 ;êàïëÿ
Loot[36]=0x1B7A ;êðóã
Loot[37]=0x1B76 ;õèòåð
Loot[38]=0x1BC3 ;õàîñ ùèò
Loot[39]=0x1415 ;àðì
Loot[40]=0x1411 ;
Loot[41]=0x1C04 ;
Loot[42]=0x1414 ;
Loot[43]=0x1412 ;
Loot[44]=0x1413 ;
Loot[45]=0x1410 ;
Loot[46]=0x13D9 ;êîæà
Loot[47]=0x13D8 ;
Loot[48]=0x13D4 ;
Loot[49]=0x13D5 ;
Loot[50]=0x13D6 ;
Loot[51]=0x1DB9 ;
Loot[52]=0x1541 ; ñàõà
Loot[53]=0x108A ;êîëüöî
UO.UseObject('lastcorpse') 

   if UO.GetQuantity('lastcorpse') then 
      UO.SetArm('temp') 
      UO.WaitTargetObject('lastcorpse') 
      UO.UseType('0x13F6') ; áó÷åð 
      wait(500) 
      UO.Arm('temp') 
      wait(500) 
   endif 
    
;   UO.SetReceivingContainer('0x4000DA0F') ; loot store bag 

   For i=0 to 53 
      UO.FindType(Loot[i],-1,'ground') 
      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

For i=0 to 53