Luxátor - PvM Loot od Sarreny

15.12.2012 12:36

#################################################################
# Skript pro looceni pri PvM s moznosti prepinani.              #
# Vlakno pro: Looceni             - Luxator                     #
#             Prepinani modu      - prepinacvmlootu             #
#             Nastaveni lootbaglu - setobjectlootbagl           #
#                                                               #
#  - Skript looti mrtvoly 3 policka daleko                      #
#  - Mody: 1)Pouze z tel                                        #
#          2)I z tel, i ze zeme                                 #
#################################################################

sub prepinacpvmlootu()
if not uo.getglobal("prepinacpvmlootu")=="1" and not uo.getglobal("prepinacpvmlootu")=="2" then
 uo.setglobal("prepinacpvmlootu","1")
 endif
 if uo.getglobal("prepinacpvmlootu")=="1" then
  uo.charprint(0x0058,"Sbiram jen z tel!")
  uo.setglobal("sbirani","0")
  uo.setglobal("prepinacpvmlootu","2")
  uo.exec("terminate prepinacpvmlootu")
 end if
 if uo.getglobal("prepinacpvmlootu")=="2" then
  uo.charprint(0x005D,"Sbiram i ze zeme!")
  uo.setglobal("sbirani","1")
  uo.setglobal("prepinacpvmlootu","1")
  uo.exec("terminate prepinacpvmlootu")
end if
end sub


sub luxator()
var idtela, setlootbagl, n


if not uo.getglobal("pvmloot") == "1" then
 uo.setglobal("pvmloot","1")
 uo.charprint(0x0044,"Zapinam luxator")

DIM Loot[44]
 Loot[0]=0x0E76  #Item
 Loot[1]=0x0EED  #Penize
 Loot[2]=0x0F7B  #Blood Moss
 Loot[3]=0x0F7A  #blackpearls-BP
 Loot[4]=0x0F84  #garlic-GA
 Loot[5]=0x0F85  #Ginseng-GI
 Loot[6]=0x0F86  #mandrake root-MR
 Loot[7]=0x0F88  #Nightshade-NS
 Loot[8]=0x0F8C  #sulforous ash-SA
 Loot[9]=0x0F8D  #Spiders Silk-SS
 Loot[10]=0x0F78 #batwings
 Loot[11]=0x0F87 #Eyes of newt
 Loot[12]=0x14EB #Treassure Map
 Loot[13]=0x1BFB #Bolts - šipky
 Loot[14]=0x0E34 #Blanc Scroll
 Loot[15]=0x0E21 #bandage
 Loot[16]=0x1078 #Hides
 Loot[17]=0x0F25 #Pieces of Amber
 Loot[18]=0x0F16 #Ametyst
 Loot[19]=0x0F20 #Tourmaline
 Loot[20]=0x0F26 #Diamond
 Loot[21]=0x0F8B #Pumice
 Loot[22]=0x0F8E #Serpent Scales
 Loot[23]=0x19B9 #ore
 Loot[24]=0x0f89 #Obsidian
 Loot[25]=0x0F8A #Pig iron
 Loot[26]=0x0F91 #wyrms heart
 Loot[27]=0x0F82 #Dragon Blood
 Loot[28]=0x0F80 #Demon bones
 Loot[29]=0x0F8F #Grave dust
 Loot[30]=0x0F13 #Ruby
 Loot[31]=0x0F0F #Star sapphire
 Loot[32]=0x0F18 #Tourmaline
 Loot[33]=0x0f7d #vial of blood
 Loot[34]=0x0F15 #Citrine
 Loot[35]=0x1BDD #Logs
 Loot[36]=0x0f81 #Fertile Dirt
 Loot[37]=0x0F11 #sapphire
 Loot[38]=0x0F83 #Execution's Cap
 Loot[39]=0x38D8 #Zubatky
 Loot[40]=0x0F87 #Eyes of Newt
 Loot[41]=0x0F7E #Bones
 Loot[42]=0x0F90 #Dead wood
 Loot[43]=0x0F10 #Emerald

 uo.set("finddistance","3")
 while not uo.dead()
  uo.findtype("0x2006","-1","ground")
  if uo.findcount() > 0 then
   idtela = uo.getserial("finditem")
   uo.addobject("telo", idtela)
   FOR n = 0 to 43
    uo.findtype(loot[n],"-1","telo")
    if uo.findcount() > 0 then
     uo.moveitem("finditem","-1","lootbagl")
     cekej(500)
     n = n - 1
    endif
   NEXT
   uo.ignore("telo")
  else
   wait(100)
   if uo.getglobal("sbirani")=="1" then
    FOR n = 0 to 43
     uo.findtype(loot[n],"-1","ground")
     if uo.findcount() > 0 then
      uo.moveitem("finditem","-1","lootbagl")
      cekej(500)
      n = n - 1
     endif
    NEXT
   endif
  endif
 wend
 else 
  uo.setglobal("pvmloot","0")
  uo.charprint(0x0026,"Vypinam luxator")
  uo.exec("terminate luxator")
endif
end sub

sub setobjectlootbagl()
uo.print("Do jakeho batohu budes lootit?")
uo.addobject("lootbagl")
while uo.targeting()
 wait(100)
wend
end sub

sub cekej(cas)
var perioda = 200
While cas > perioda
 Wait(perioda)
 if uo.injournal("Ne tak rychle") then
  while uo.injournal("Ne tak rychle")
   uo.setjournalline(uo.injournal("Ne tak rychle")-1," ")
  wend
  wait(600)
 endif
 cas = cas - perioda
wend
Wait(cas)
end sub