sub main ()
sub L() 
   VAR WaitTime=600 
   VAR Exit=0, i 
   DIM Loot[71] 
   

Loot[0]=0x1B76 ; ùèò
Loot[1]=0x1411 ; íîãè
Loot[2]=0x1415 ; òîðñ
Loot[3]=0x1414 ; ðóêè
Loot[4]=0x1410 ; íàïëå÷íèêè
Loot[5]=0x1413 ; øåÿ
Loot[6]=0x1412 ; ãîëîâà
Loot[7]=0x1B77 ; ùèò
Loot[8]=0x141A ; íîãè
Loot[9]=0x1416 ; òîðñ
Loot[10]=0x1418 ; ðóêè
Loot[11]=0x1419 ; ãîëîâà
Loot[12]=0x1086 ; áðàñ
Loot[13]=0x1086 ; áðàñ
Loot[14]=0x13BF ; êîëü÷óãà âåðõ
Loot[15]=0x13BE ; êîëü÷óãà íîãè
Loot[16]=0x13BB ; êîëü÷óãà ðóêè
Loot[17]=0x13B9 ; âèêèíã
Loot[18]=0x0F4D ; áàðäûø
Loot[19]=0x143E ; àëåáà
Loot[20]=0x0F62 ; ïèêà
Loot[21]=0x0E87 ; âèëëà
Loot[22]=0x13B5 ; ñêèìèòîð
Loot[23]=0x13FA ; äåñïàéñ òîïîð
Loot[24]=0x1438 ; War Hammer
Loot[25]=0x1406 ; War Mace
Loot[27]=0x143A ; Maul
Loot[28]=0x13B1 ; ëóê
Loot[29]=0x0F4F ; àðáàëü÷èê
Loot[30]=0x13FC ; àðáàëåò
Loot[31]=0x0F0E ; áîòë
Loot[32]=0x0F0E ; áîòë
Loot[33]=0x0F0E ; áîòë
Loot[34]=0x0F0E ; áîòë
Loot[35]=0x0EFA ; ðóíáóê
Loot[36]=0x1BFB ; áîëòû
Loot[37]=0x0F3F ; ñòðåëû
Loot[38]=0x0E79 ; ñóìêà
Loot[39]=0x0E76 ; ñóìêà
Loot[40]=0x03B6 ; ïàëêà
Loot[41]=0x13F8 ; ïàëêà òàìèíãà
Loot[42]=0x100D ; ñåíî
Loot[43]=0x1F52 ; ïàðàë
Loot[44]=0x1F52 ; ïàðàë   
Loot[45]=0x1F5F ; ôñ
Loot[46]=0x1F50 ; çåðêàëüöå
Loot[47]=0x0F03 ; àíòèôðèç
Loot[48]=0x0F03 ; àíòè
Loot[49]=0x0F03 ; àíòè
Loot[50]=0x0F03 ; àíòè
Loot[51]=0x1BEF ; èíãè
Loot[52]=0x1BEF ; èíãè
Loot[53]=0x0EED ; ãï
Loot[54]=0x20D6 ; äðàêîí
Loot[55]=0x0E21 ; áèíòû
Loot[56]=0x0E20 ; êðîâàâûå áèíòû
Loot[57]=0x0F7B ; áì
Loot[58]=0x0F7A ; áï
Loot[59]=0x0F84 ; ãà
Loot[61]=0x0F85 ; ãè
Loot[62]=0x0F86 ; ìð
Loot[63]=0x0F88 ; íñ
Loot[64]=0x0F8C ; ñà
Loot[65]=0x0F8D ; ññ
Loot[66]=0x0F87 ; åí
Loot[67]=0x0F7E ; êîñòè ñêåëåòîâ
Loot[68]=0x0F78 ; áàòâà
Loot[69]=0x0F10 ; åìåðàëüä
Loot[70]=0x1B7A ; ùèò äåðåâî
Loot[71]=0x1515 ; êëîêà
    
UO.UseObject('lastcorpse') 

   if UO.GetQuantity('lastcorpse') then 
      UO.SetArm('temp') 
      UO.WaitTargetObject('lastcorpse') 
      UO.UseType('0x0F52') ;dagger 
      wait(1000) 
      UO.Arm('temp') 
      wait(1000) 
   endif 
    
;   UO.SetReceivingContainer('0x400935D4') ; loot store bag 

   For i=0 to 71 
      UO.FindType(Loot[i],-1,'ground') 
      if UO.GetQuantity('finditem') then 
         UO.Grab(STR(0),'finditem') 
         wait(WaitTime) 
      [color=red]endif[/color] 

      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