###############################################
############  AUTOLOOT - PVP I PVM ############
###############################################

sub autolot()     # Permaloot z posledni mrtvoly
   var start
   repeat
      repeat
         wait(10)
      until uo.injournal("Body of")
      replace_journal("Body of")
      start = uo.timer()
      repeat
         wait(100)
      until uo.getdistance("lastcorpse") < 5 OR uo.timer()>start+40
      if uo.getdistance("lastcorpse") <=4 then
         ;uo.print("lootim")
         loot("lastcorpse")
         uo.ignorereset()
         ;else
         ;   uo.charprint("self",20,"Nedosahnu")
      end if
   until uo.injournal("stop loot")
end sub

sub lootni()      # Loot jednou z posledniho containeru
   loot("lastcontainer")
   uo.ignorereset()
end sub

sub loot(kde)
   var n,pauza,start
   Dim A[146]
   A[1] = 0x13F8 ;gnarledka 1
   A[2] = 0x13F9 ;gnarledka 2
   A[3] = 0x0E89 ;quarterka 1
   A[4] = 0x0E8A ;quarterka 2
   A[5] = 0x0DF1 ;black staff 1
   A[6] = 0x0DF0 ;black staff 2
   A[7] = 0x143E ;hala 1
   A[8] = 0x143F ;hala 2
   A[9] = 0x0F4D ;bardiche 1
   A[10] = 0x0F4E ;bardiche 2
   A[11] = 0x0F62 ;spear 1
   A[12] = 0x0F63 ;spear 2
   A[13] = 0x13FA ;LBA 1
   A[14] = 0x13FB ;LBA 2
   A[15] = 0x0F4B ;double axe 1
   A[16] = 0x0F4C ;double axe 2
   A[17] = 0x1442 ;two hand axe 1
   A[18] = 0x1443 ;two hand axe 2
   A[19] = 0x1438 ;war hammer 1
   A[20] = 0x1439 ;war hammer 2
   A[21] = 0x1406 ;war mace 1
   A[22] = 0x1407 ;war mace 2
   A[23] = 0x13B9 ;viking sword 1
   A[24] = 0x13BA ;viking sword 2
   A[25] = 0x13FE ;katana 1
   A[26] = 0x13FF ;katana 2
   A[27] = 0x0F60 ;long sword 1
   A[28] = 0x0F61 ;long sword 2
   A[29] = 0x1400 ;kryss 1
   A[30] = 0x1401 ;kryss 2
   A[31] = 0x1440 ;cutlass 1
   A[32] = 0x1441 ;cutlass 2
   A[33] = 0x13B5 ;scimitar 1
   A[34] = 0x13B6 ;scimitar 2
   A[35] = 0x13B1 ;luk 1
   A[36] = 0x13B2 ;luk 2
   A[37] = 0x13FC ;hxb 1
   A[38] = 0x13FD ;hxb 2
   A[39] = 0x144F ;bone hrud
   A[40] = 0x1454 ;bone hrud(flip)
   A[41] = 0x1452 ;bone nohy
   A[42] = 0x1457 ;bone nohy(flip)
   A[43] = 0x1451 ;bone helma
   A[44] = 0x1453 ;bone lokty(flip)
   A[45] = 0x144E ;bone lokty
   A[46] = 0x1450 ;bone rukavice
   A[47] = 0x1455 ;bone rukavice(flip)
   A[48] = 0x13DB ;studet hrud
   A[49] = 0x13E2 ;studet hrud(flip)
   A[50] = 0x1C02 ;studet hrud babska
   A[51] = 0x13DA ;studet nohy
   A[52] = 0x13E1 ;studet nohy(flip)
   A[53] = 0x1DB9 ;studet helma
   A[54] = 0x1DBA ;studet helma(flip)
   A[55] = 0x13D4 ;studet lokty
   A[56] = 0x13DC ;studet lokty(flip)
   A[57] = 0x13D6 ;studet krk
   A[58] = 0x13DD ;studet rukavice
   A[59] = 0x13D5 ;studet rukavice(flip)
   A[60] = 0x1B7B ;chain stit
   A[61] = 0x13C4 ;chain hrud(flip)
   A[62] = 0x13BF ;chain hrud
   A[63] = 0x13BE ;chain nohy
   A[64] = 0x13CD ;chain lokty(flip1)
   A[65] = 0x13CF ;chain lokty(flip2)
   A[66] = 0x13BB ;chain helma
   A[67] = 0x13C5 ;chain lokty
   A[68] = 0x13C7 ;chain krk
   A[69] = 0x13C6 ;chain rukavice
   A[70] = 0x13CE ;chain rukavice(flip)
   A[71] = 0x13ED ;ring hrud
   A[72] = 0x13EC ;ring hrud(flip)
   A[73] = 0x13F0 ;ring nohy
   A[74] = 0x13F1 ;ring nohy(flip)
   A[75] = 0x140A ;ring helma
   A[76] = 0x13EE ;ring lokty
   A[77] = 0x13EF ;ring lokty(flip)
   A[78] = 0x13C7 ;ring krk
   A[79] = 0x13F2 ;ring rukavice
   A[80] = 0x13EB ;ring rukavice(flip)
   A[81] = 0x1B77 ;plate stit
   A[82] = 0x1B76 ;plate stit(flip)
   A[83] = 0x1415 ;plate hrud
   A[84] = 0x1416 ;plate hrud(flip)
   A[85] = 0x141A ;plate nohy
   A[86] = 0x1411 ;plate nohy(flip)
   A[87] = 0x1412 ;plate helma
   A[88] = 0x140E ;plate nose helma
   A[89] = 0x1408 ;plate closed helma
   A[90] = 0x140C ;plate bascinet helma
   A[91] = 0x1410 ;plate lokty
   A[92] = 0x1417 ;plate lokty(flip)
   A[93] = 0x1413 ;plate krk
   A[94] = 0x1414 ;plate rukavice
   A[95] = 0x1418 ;plate rukavice(flip)
   A[96] = 0x1087 ;nausky
   A[97] = 0x1086 ;braclik
   A[98] = 0x1088 ;nahrdelnik
   A[99] = 0x108A ;prsten
   A[100] = 0x1F04 ;roba
   A[101] = 0x1F03 ;roba(flip)
   A[102] = 0x1515 ;plast
   A[103] = 0x1530 ;plast(flip)
   A[104] = 0x1718 ;klobouk
   A[105] = 0x0EFA ;book
   A[106] = 0x0E76 ; bagl1
   A[107] = 0x0E75 ; bagl2
   A[108] = 0x09B0 ; bagl3
   ;tady zacina pvm loot
   A[109] = 0x0E76 ; itemek
   A[110] = 0x0EED  ; penize
   A[111] = 0x0F8D ; regy
   A[112] = 0x0F8F ; regy
   A[113] = 0x0EFA ; regy
   A[114] = 0x0F81 ; regy
   A[115] = 0x0F8A ; regy
   A[116] = 0x0F82 ; regy
   A[117] = 0x0F90 ; regy
   A[118] = 0x0F86; regy
   A[119] = 0x0F78 ; regy
   A[120] = 0x0F83 ; regy
   A[121] = 0x0F8C ; regy
   A[122] = 0x0F87 ; regy
   A[123] = 0x0F7A ; regy
   A[124] = 0x0F7E ; regy
   A[125] = 0x0F7D ; regy
   A[126] = 0x0F91 ; regy
   A[127] = 0x0F8B ; regy
   A[128] = 0x0F88 ; regy
   A[129] = 0x0F80 ; regy
   A[130] = 0x0F8E ; regy
   A[131] = 0x0F89 ; regy
   A[132] = 0x0F85 ; regy
   A[133] = 0x0F84 ; regy
   A[134] = 0x0F7B ; regy
   A[135] = 0x1BD1 ; peri
   A[136] = 0x0F26 ; diamant
   A[137] = 0x0F18 ; sutr
   A[138] = 0x0F0F ; sutr
   A[139] = 0x0F10 ; sutr
   A[140] = 0x0F25 ; sutr
   A[141] = 0x0F15 ; sutr
   A[142] = 0x0F13 ; sutr
   A[143] = 0x0F16 ; sutr
   A[144] = 0x0F11 ; sutr
   A[145] = 0x14EB ; tajemna mapa (FLIP)
   A[146] = 0x14EC ; tajemna mapa (FLIP)

   uo.deletejournal()
   if UO.GetQuantity(kde)==400 OR UO.GetQuantity(kde)==401 then
      ;uo.print("hrac")
      pauza = 1000
      start = 1
   else
     ; uo.print("mob")
      pauza = 500
      start = 109
   end if
   ; Uo.set('quiet','1')
  ; uo.print(str(pauza))
   UO.SetReceivingContainer("loot") ; loot store bag nastavi lootovaci batoh
   FOR n=start TO 146
      uo.findtype(A[n],"-1",kde);         tohle hleda ty veci
      if uo.findcount() > 0 then
         ;UO.grab(0,"finditem");                             a tohle je sebere
         UO.moveitem("finditem",-1,"loot")         ; grab nejak nefacha v pvp
         if n==109 AND pauza==500 then
            uo.playwav("meepmeep.wav")
         end if
         n=n-1
         uo.ignore("finditem")
         Wait(pauza);                                     pauza
      end if
      if uo.injournal("You are stuck") then
         n=146
         uo.charprint("self",77,"Prestavam lootit")
      end if
   Next
   ;UO.UnSetReceivingContainer() #odnastavi lootovaci batoh
   Uo.set('quiet','0')

end sub