Nove Yoko s novymi funkciami (hratelne na 1024x768)

Vaše problémy, rady a skripty týkající se tohoto prográmku
Uživatelský avatar
Kaywerbrimmis
Inkless
Inkless
Příspěvky: 23
Registrován: 07 zář 2006 19:49
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Kaywerbrimmis »

Xane, najdeš to na záložce Display, sekce Character Stats - přepni na "auto" a pak na záložce Main ulož nastavení.

Díky za odkaz, stáhnul jsem, funguje to hezky i pod Wine 3.0 na posledním Kubuntu.


Nastavení vyššího rozlišení taky funguje, ale už ne bez chyby. Defaultní olemování herního okna zůstává v původním místě jako v rozlišení 800x600 (nyní tedy uprostřed herního okna) a při pohybu zůstávají na okrajích herního okna černé pruhy, které se načítají se zpožděním. Obdobně, když vlezu do domu nebo do portu, zmizí celá část okna mimo původní olemování a při každém kroku se postupně zase načítá.
Setkali jste se s tím taky? Podařilo se vám to nějak vyřešit?
EDIT: Potom, co jsem to celé napsal, mě napadlo - jak se ostatně v prvním postu píše - po změně nastavení rozlišení nejenom relognout, ale i restartovat klienta. Lemování je na správném místě, černé pruhy se nekonají. Ale nechám to tu celé, třeba někdo bude taky takový maňas jak já... :roll:
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

dik za top info ;) ted uz je to vono....

edit: koukam, že to sice funguej při target/taraget next, ale při útočení na cíl, to ty hp nevypisuje
Erik Nighelt
Undead Scriber
Undead Scriber
Příspěvky: 835
Registrován: 24 zář 2006 22:56
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Erik Nighelt »

Tak jasně, že to funguje.. sem starej yokař :P Hele client netušim co má nebo nemá ale v podstatě nepadal - já ho měl od nějakých rusáků a byl k tomu i nějaký changelog tušim ale netušim kde to teď najít. Já akorát upravoval gumpy nebo jak se to jmenuje, prostě verdata a tak ale to je mimo clienta.

Útočení na cíl myslíš jako fenix když vypíše +20 -35 atd nad hlavou? To yoko tušim ani neumělo, obcházeli jsme to přidáním hlášky do scriptu, přes uo.print ti to vypisovalo vlevo a přes uo.charprint postavičce v targetu nad hlavu to bylo nějak přes uo.getname + uo.gethp /getmaxhp a pak to vypisovalo nad postavičky.. ale jak přesně to bylo bych musel pohledat někde v prastarém ntb, už jsem to leta nedělal :P
Lepší lama kamarát ako skiller debil ;)
[Hated] je totiž něco jako sociální stigma.
-Posledním stupněm závisti je nenávist-

Filjins: Ty jo driv sem vypinal UO protoze proti me bylo moc lidi, tedka vypinam UO protoze neni ani hrac...
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Coz todle by bylo fajn, ale me staci jen to, ze napr u noc vidis, ze ma 256/256 hp (nastaveni DP), das mu dmg a kdyz das znova attack last, tak to ukaze, ze ma 250/256.... u hracu je to samozrejme pouzitelnejsi. Stary yoko to delalo defaultne
Uživatelský avatar
Thief
Nehraju!
Příspěvky: 1336
Registrován: 03 čer 2011 16:43
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Thief »

Tak jsem se k Vám připojil. Takže kdo je ochotnej se podělit o scripty? :wink:
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Az se dolecim a sednu k pc, nemam problem podelit se o kompletni autoload, pokud ti teda nestaci to, co tu par stran zpet uz nekdo hodil
Uživatelský avatar
Thief
Nehraju!
Příspěvky: 1336
Registrován: 03 čer 2011 16:43
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Thief »

Určitě, děkuju. Taky Vám to Yoko rozhodili všechny clienty - že když je teďka chci pustit samotné bez programu, tak mi píšou error, že nepodporují rozlišení? :)
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Jop cisty client ted nepremava :D uz nevim proc jsem to chtel, nakonec je to jedno :D mozna pomuze zalohovanej client,prepsat a pak spustit
Uživatelský avatar
Thief
Nehraju!
Příspěvky: 1336
Registrován: 03 čer 2011 16:43
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Thief »

V pořádku nejsem v tom sám. Tak a teď dávej :paranoid: :P .
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Vydrz prtka vydrz. Snad zitra v praci bude cas, plus to budu muset protridit, me se driv ve starym yoku praly scripty pri velkym poctu pro vsechny postavy, tak mam kopie pro kazdou postavu :D
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Scripty:
Wamp:

Kód: Vybrat vše

#-----------------------------------------------
sub Cartography()
#-----------------------------------------------
UO.Deletejournal()
while NOT UO.DEAD()

#vyndani
UO.WaitTargetSelf()
UO.Usetype('0x0FBE','0x0B98') #atlas
repeat
 wait(250)
until UO.InJournal('Vyjmul jsi')
 wait(1000)

#psani
repeat
UO.Deletejournal()
UO.WaitMenu('What sort','Detail Map')
UO.Usetype('0x14EB') #blank mapa
 repeat
  wait(250)
 until UO.InJournal('You put|trembling')
until NOT UO.InJournal('trembling')
wait(1000)

#recyklace
repeat 
UO.DeleteJournal()
UO.WaitTargetType('0x14EB') #mapa
UO.Usetype('0x0FBE','0x0B98') #atlas
repeat
 wait(250)
until UO.InJournal('Zrecykloval|Uschoval')
wait(1000)
until UO.Count('0x14EB','0x0000','backpack')==0
wend

end sub

sub medit()
While UO.Mana < UO.INT
 repeat
 UO.UseSkill('Meditation')
 wait(3500)
 Until UO.InJournal("You are at peace.")
wend
end sub
sub stealth()
uo.warmode(0)
startstl:
   uo.deletejournal()
   uo.useskill('Stealth')
   repeat
      wait(200)
   until uo.injournal('hidden|seem')
   wait(1000)
   goto startstl
end sub

sub kric()
Uo.say('Bodhi Heal/Bless')
end sub

sub poisoning()
  #preklik war modu
  UO.Exec("warmode 0")
  wait(500)
  UO.Exec("warmode 1")

  UO.exec('addobject cilPoisonu');
  while UO.Targeting()
    wait(100)
  wend

  if uo.getserial('cilPoisonu') <> '0x00000000' then
    Uo.WaitTargetObject('cilPoisonu')
    UO.usetype("0x1837")
  else
    uo.print("!!!")
  endif

end sub

sub urci_GoldRing() # ulozi danou osobu do objektu
    UO.exec('addobject gold')
    while UO.Targeting()
      wait(100)
    wend
end sub

sub Gold()
UO.UseObject("gold")
wait (500)
UO.RemoveRing()
end sub

#############################

sub arms_lore_s_vyberom()
    var zbran
    uo.print("Zadej predmet, ktory chces skumat.")
    uo.addObject('zbran')
    while UO.Targeting()
        wait(100)
    wend
    while NOT UO.Dead()
        UO.UseSkill('Arms Lore','zbran')
        wait(4500)
    wend
end sub

#############################

sub Naval_GP()
 UO.UseType('0x1EB8')
 wait(2000)
 UO.Print("Muzes zacit krast")
 end sub
###########################

sub jumpToGate() 
  uo.usefromground("0x373A") 
end sub


###########################

sub TBGate() 
  var gumpSerial = "0x002002e3" # zde doplnte vasi hodnotu! 
  var TBID = "0x400CF8C3"   # zde doplnte vasi hodnotu! 
  UO.OnGump(gumpSerial, "0x00000198", "2", "nochecks", "noentryes") 
  ;             serial      gumpID    buttID checkboxy    textfieldy 
  UO.Recall(TBID,"4") 
end sub

############################
sub megaloot() 
 var n
 var MaxID = 63
 var ALastContainer
 var WhereLoot
 var Pojistka
 var cas
 ALastContainer = UO.GetSerial("lastcontainer")
 DIM A[63] 
  
  A[1] = 0x1BC4 ;Order shield
  A[2] = 0x143E ;Halbert 
  A[3] = 0x143B ;Maul
  A[4] = 0x0F5C ;Mace
  A[5] = 0x13B1 ;Bow
  A[6] = 0x13B9 ;Viking Sword
  A[7] = 0x1406 ;War Mace
  A[8] = 0x1438 ;War Hammer
  A[9] = 0x0F62 ;Spear
  A[10] = 0x13B5 ;Scimitar 
  A[11] = 0x1404 ;War Fork 
  A[12] = 0x13FE ;Katana
  A[13] = 0x13FA ;Large Battle Axe
  A[14] = 0x0E87 ;Pitchfork 
  A[15] = 0x0F49 ;Axe
  A[16] = 0x1402 ;Short Spear
  A[17] = 0x1400 ;Kryss 
  A[18] = 0x0F45 ;Executioner´s Axe
  A[19] = 0x1B76 ;Heater 
  A[20] = 0x0F4B ;Double Axe
  A[21] = 0x108A ;Rexlex Ring
  A[22] = 0x1F03 ;Roby
  A[23] = 0x1413 ;Platemail Gorget 
  A[24] = 0x1410 ;Platemail Arms
  A[25] = 0x1414 ;Platemail Gauntlets
  A[26] = 0x1415 ;Platemail 
  A[27] = 0x1411 ;Platemail Legs
  A[28] = 0x13C4 ;Chainmail Tunic
  A[29] = 0x13C3 ;Chainmail Leggings
  A[30] = 0x13BB ;Chainmail Coif
  A[31] = 0x13EB ;Ringmail Gloves
  A[32] = 0x13EF ;Ringmail Sleeves
  A[33] = 0x144F ;Bone Tunic
  A[34] = 0x1450 ;Bone Gloves
  A[35] = 0x1451 ;Bone Helmet
  A[36] = 0x1452 ;Bone Leggins
  A[37] = 0x144E ;Bone Arms
  A[38] = 0x13CA ;Leather Tunic
  A[39] = 0x13C9 ;Leather Leggings
  A[40] = 0x13D4 ;Studded Sleeves
  A[41] = 0x13D5 ;Studded Gloves
  A[42] = 0x1711 ;Thigh Boots
  A[43] = 0x0E76 ;bag 
  A[44] = 0x14EB ; Treassure Map
  A[45] = 0x0eed ;gold piece
  A[46] = 0x0F86 ; MR 
  A[47] = 0x0F8D ; SS
  A[48] = 0x0F8C ; SA
  A[49] = 0x0F85 ; GI 
  A[50] = 0x0F7B ; BM 
  A[51] = 0x0F88 ; NS 
  A[52] = 0x0F84 ; GA
  A[53] = 0x0F7A ; BP
  A[54] = 0x0F87 ; Eyes of newt
  A[55] = 0x14EB ; Treassure Map
  A[56] = 0x1F5F ; KVF svitky
  A[57] = 0x108A ; reflex
  A[58] = 0x0E79 ;poklady
  A[59] = 0x1F14 ;runy
  A[60] = 0x0F09 ;Lahvicky
  A[61] = 0x0F3F ;Sipy
  A[62] = 0x1BFB ;Sipky
  A[63] = 0x1BD1 ;Peri

 UO.setCatchBag ('LootBag') ;(nepovinný definovaný objekt)
 ;wait(1000)
 UO.findType(A[1],"-1",'ground')
 WhereLoot = UO.getQuantity('finditem')
 for n=1 TO MaxID
  if WhereLoot == 0 then ;na zemi nejsou penize
   uo.findType(A[n],"-1",ALastContainer) 
   while uo.findcount()
    UO.grab(0,"finditem") 
    cas = 0
    UO.deleteJournal()
    wait(2000) ;sil break
    repeat
     cas = cas + 1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==5) 
    uo.findType(A[n],"-1",ALastContainer) 
   wend
  else
   uo.findType(A[n],"-1",'ground')
   Pojistka=uo.findCount()
   while (uo.findCount()) and (Pojistka <> 0)
    UO.grab(0,"finditem") 
    cas=0
    UO.deleteJournal()
    wait(400) ; sil break
    repeat
     cas=cas+1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==10) 
    uo.findType(A[n],"-1",'ground')
    if Pojistka == uo.findCount() then
     UO.print("Item No."+STR(n)+" NOT grab !!!")
     Pojistka=0
    endif
   wend
  endif
 Next
 UO.unSetCatchBag ('LootBag')
end sub

#############################
sub klamak()
  var pocetPokusu = 0
  repeat
    pocetPokusu = pocetPokusu+1
    uo.deleteJournal()
    UO.Exec("warmode 0")
    wait(250)
    UO.Exec("warmode 1")
    wait(250)
    UO.UseType("0x2103") 
    wait(500)
  until (not uo.injournal("You can't unshrink")) or (pocetPokusu>=2)
end sub 

#############################xx
sub loot() 
 var n
 var MaxID = 5
 var ALastContainer
 var WhereLoot
 var Pojistka
 var cas
 ALastContainer = UO.GetSerial("lastcontainer")
 DIM A[5] 
  
 A[4] = 0x0E76 ;Bag
 A[2] = 0x0E21 ;bandage 
 A[3] = 0x0F3F ;sipy
 A[1] = 0x1F13 ;skillpoint 
 A[5] = 0x0F78 ;Batwings


 UO.setCatchBag ('LootBag') ;(nepovinný definovaný objekt)
 ;wait(1000)
 UO.findType(A[1],"-1",'ground')
 WhereLoot = UO.getQuantity('finditem')
 for n=1 TO MaxID
  if WhereLoot == 0 then ;na zemi nejsou penize
   uo.findType(A[n],"-1",ALastContainer) 
   while uo.findcount()
    UO.grab(0,"finditem") 
    cas = 0
    UO.deleteJournal()
    wait(500) ;sil break
    repeat
     cas = cas + 1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==5) 
    uo.findType(A[n],"-1",ALastContainer) 
   wend
  else
   uo.findType(A[n],"-1",'ground')
   Pojistka=uo.findCount()
   while (uo.findCount()) and (Pojistka <> 0)
    UO.grab(0,"finditem") 
    cas=0
    UO.deleteJournal()
    wait(400) ; sil break
    repeat
     cas=cas+1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==10) 
    uo.findType(A[n],"-1",'ground')
    if Pojistka == uo.findCount() then
     UO.print("Item No."+STR(n)+" NOT grab !!!")
     Pojistka=0
    endif
   wend
  endif
 Next
 UO.unSetCatchBag ('LootBag')
end sub

##############################
sub hiding()
 UO.WarMode(0) 
 UO.exec("useskill 'Hiding'") 
end sub

##############################
sub detect()
	UO.useskill('Detect Hidden')
end sub
##############################
sub detect_hidden()
uo.warmode(0)
while 1
   uo.deletejournal()
   uo.useskill('Detect Hidden')
   repeat
      wait(200)
   until uo.injournal('hidden|find')
   wait(1000)
wend
end sub

####################
# Rvani hlasek
####################
Sub All_kill_enemy()
Uo.say('All Kill')
UO.WaitTargetObject('enemy')
end sub

Sub All_kill_self()
Uo.say('All Kill')
UO.WaitTargetObject('self')
end sub

Sub kill()
Uo.say('Kill')
UO.WaitTargetObject('enemy')
end sub

Sub come()
Uo.say('All Come')
end sub

Sub stay()
Uo.say('All Stay')
end sub

Sub go()
Uo.say('All Go')
end sub

####################
# MR vypiti
####################
sub MR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0005');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

###########################
sub TMR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0003');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

########################
#kouzla ze svitku
########################
sub svetlokad()
UO.UseType("0x1843","0x03C4")
UO.WaitTargetObject('self')
end sub

sub fireball()
UO.UseType("0x1F3E", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub port()
UO.UseType("0x1F42", "0x0000")
end sub

sub portenemyhlava()
UO.UseType("0x1F42", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub portlast()
UO.UseType("0x1F42", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub para_enemy()
UO.UseType("0x1F52", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub pog()
UO.UseType("0x1F4A", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub BS()
  if UO.Waiting() then
    UO.CancelTarget()
  endif
  if UO.Count('0x1F4D') then
    UO.UseType('0x1F4D')
  else
    UO.Cast('Blade Spirit')
  endif
end sub
##########################
# kouzla z hlavy
##########################

sub sipka_na_sebe()  # sipka na sebe
    UO.Cast('Arrow','self')  
end sub

sub sipka()  # sipka
    UO.Cast('Arrow')  
end sub

sub agility_na_sebe()  # agility na sebe
    UO.Cast('Agility','self')  
end sub

sub sipka_last() # hodi sipku na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Magic Arrow",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub


sub clumsy_last() # hodi feeblemind na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Clumsy",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub clumsy_last() # hodi clumsy na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Clumsy",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub port_hlava() # port + target
;  UO.DeleteJournal() 
   UO.Cast("Teleport")
end sub

sub para_last() # hodi paru na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Paralyze",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub


sub para() # hodi paru na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Paralyze")
end sub


sub exploze_last() # hodi Fireball na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Explosion",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub fireball_last() # hodi Fireball na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Fireball",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub poison_last() # hodi Poison na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Poison",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Port_last() # hodi port na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Teleport",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub


sub POG_last() # hodi POG na 'enemy'
 uo.say(",cast Lightning enemy")
end sub

sub PCW_last() # hodi PCW na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Mind Blast",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Jed_last() # hodi Jed na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Poison",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Vampire_last() # hodi Jed na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Mana Drain",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub vysati_last() # hodi Jed na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Mana Vampire",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub pog_last() # hodi Jed na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Lightning",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Rel_Wis_last() # hodi Rel Wis na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Feeblemind",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Paralyze_Field() # hodi Poison field na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Paralyze Field")
end sub

sub Poison_Field_last() # hodi Poison field na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Poison Field",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

##########################
sub resurrection()
  if UO.Waiting() then
    UO.CancelTarget()
  endif
  if UO.Count('0x1F67') then
    UO.UseType('0x1F67')
  else
    UO.Cast('Resurrection')
  endif
end sub

##########################

sub GS() ;zahajeni scriptu
uo.useobject('alchemak')
if UO.Count(0x0F09,0x0000) then 
 UO.UseType(0x0F09,0x0000)  ;Potion Greater Strenght 
 Wait(100)
uo.useobject('krk')
 wait(100)
 UO.Print(STR(UO.Count(0x0F09,0x0000))+' potion (Greater Strenght)')
else
 UO.Print('No potion (Greater Strenght)!')
endif
end sub

##########################

sub TR() ;zahajeni scriptu
UO.UseType(0x0F0B) 
 if UO.Count(0x0F0B,0x0000) then 
 UO.UseType(0x0F0B,0x0000)  ;Potion total_ref 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F0B,0x0000))+' potion (total_ref)')
else
 UO.Print('No potion (Total ref)!')
endif
end sub 

##########################

sub GC() ;zahajeni scriptu
UO.UseType('0x0F07','0x0000');pouzije lahvicku GC
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" GC.")
end sub ;ukonci script

###########################

sub Invis() ;zahajeni scriptu
UO.UseType('0x0F09','0x0B77');pouzije lahvicku Invis
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" Invis.")
end sub ;ukonci script
###########################

sub GB() ;zahajeni scriptu
UO.UseType('0x0F0C','0x0025');pouzije lahvicku Invis
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0C','0x0025"))+" GB.")
end sub ;ukonci script

############################
sub salat()
	uo.usetype('0x09EC')
end sub
############################

sub Wampkuch()
UO.usetype("0x10E4")
	while UO.Targeting()
        wait(100)
	wend
end sub

sub Smik()
UO.usetype("0x0F9E")
	while UO.Targeting()
        wait(100)
	wend
end sub

##########################

sub Prelivani()
 UO.Print("Zamer kad z ktere budeme prelivat")
 UO.AddObject("kad")
 WHILE UO.Targeting()
  wait(100)
 WEND
 
 var prazdna_flaska = "0x0F0E"
 var plna_kad = "0x1843"
 var barva = UO.GetColor("kad")
 
 ; prokliknuti war modu
 uo.warmode(1)
 uo.warmode(0)
 
 while UO.Count(prazdna_flaska) AND UO.Count(plna_kad, barva)
  UO.DeleteJournal()
  UO.WaitTargetType(prazdna_flaska)
  UO.UseType(plna_kad, barva)
  repeat
   wait(100)
  until UO.InJournal("You put")
  wait(500)
 wend
end sub


###########################

sub tracking_animals()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Animals')
end sub

sub tracking_anything()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Anything that moves')
end sub

sub tracking_players()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Players')
end sub

sub tracking_monsters()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Monsters')
end sub

##########################

sub heal() 
 uo.usetype('0x0E21')
 uo.waittargetself()
end sub

sub zerbandy()
    if uo.Count('0x0E22') >0 then
      uo.usetype('0x0E22')
     else
      uo.usetype('0x0E20')
    endif
  else
   UO.Print('nemas KRVAVE bandy nebo to nezer v cloveku!')
 endif

end sub
####################


sub DoleceniStargetem()
    UO.exec('addobject pokus');
    while UO.Targeting()
        wait(100)
    wend
    UO.DeleteJournal()
    repeat
        UO.UseType(0x0e21)
        UO.WaitTargetObject('pokus')
        wait(3000)
    until UO.injournal('Chces vytvorit mumii?')
end sub

#########################

sub Reflexring()
UO.UseObject('reflex')
wait (500)
UO.RemoveRing()
end sub

sub GReflexring()
UO.UseObject('greflex')
wait (500)
UO.RemoveRing()
end sub

#########################

sub music()
    var nastroj
    uo.print("Na co chces hrat?")
    uo.addObject('nastroj')
    While UO.Targeting()
        wait(100)
    wend
    while NOT UO.Dead()
        uo.useobject('nastroj')
        wait(5000)
    wend
end sub

###################################

sub plnenikitu()
uo.UseType(0x1837) # Označí kit
uo.WaitTargetType(0x0F0A)# Nalije jed do kitu
wait(100)
end sub

###################################

sub enemypoisn()
UO.Exec("warmode 0")
  wait(500)
  UO.Exec("warmode 1")
uo.usetype('0x1837');
;UO.WaitTargetLast() 
  UO.WaitTargetObject('enemy')
end sub

#############################
sub wampref()
 var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4014EE89"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4014EE89"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x402341B8"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x401262EF"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x402341B8"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x4002B9DA"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif

 var POLOZEK = 59
 dim typ   [59]
 dim barva [59]
 dim pocet [59]
 dim batoh [59]
 dim nazev [59]
 dim potion[59]
 dim barva2[59]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 150
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 150
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 300
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 300
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 200
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 150
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 150
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 200
 batoh[8] = batohNaRegy


 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 0
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 0
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 0
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 0
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 0
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 0
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 0
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 0
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 0
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 0
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 0
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 0
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 0
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 100
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 0
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 0
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 0
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 10
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 0
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 2
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 0
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 0
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 0
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 6
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 0
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 10
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Blood"
 typ   [45] = "0x0F0C"
 pocet [45] = 12
 batoh [45] = batohNaPoitony
 barva [45] = "0x0025"
 barva2[45] = "0x0025"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 12
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 6
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 10
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 0
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 0
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 nazev[59] = "Svitky FireBall" 
 typ  [59] = "0x1F3E"
 pocet[59] = 3
 batoh[59] = batohNaSvitky

for i = 1 to POLOZEK
    if (potion[i] == 1) then
     j = uo.count(typ[i],barva[i]) 
    else
      uo.findtype(typ[i],barva[i],'backpack')
      j = uo.getquantity('finditem')
    end if
    if (j > pocet[i]) then # do banku
      if (potion[i] == 1) then
        repeat
          Uo.FindType("0x1843",barva2[i],"ground")
          If Uo.FindCount() THEN
            Uo.AddObject("Zkad","finditem")
            Uo.FindType(typ[i],barva[i],"backpack")
            If Uo.FindCount() THEN
              UO.UseObject("Zkad")
              UO.WaitTargetObject("finditem")
            EndIf
          EndIf
           wait(pauza)
        Until Uo.Count(typ[i],barva[i]) == pocet[i]   
      else
        uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
      endif
       wait(pauza)
    else
      if (j < pocet[i]) then # z banku
        if (potion[i] == 1) then
          repeat
            Uo.FindType("0x1843",barva2[i],"ground")
            If Uo.FindCount() THEN
              Uo.AddObject("Zkad","finditem")
              Uo.FindType("0x0F0E","0x0000","ground")
              If Uo.FindCount() >= 1 THEN
                Uo.UseObject("Zkad")
                UO.WaitTargetObject("finditem")
              EndIf
            EndIf
             wait(pauza)
          until Uo.Count(typ[i],barva[i]) == pocet[i]
        else
          uo.findtype(typ[i],barva[i],batoh[i])
          if (uo.getquantity('finditem') < (pocet[i]-j)) then
            uo.print("Nedostatek "+ nazev[i])
          else
            uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
             wait(pauza)
          end if
        end if 
      end if
    end if
   next   
uo.print("Nadrz mate plnou, pane")
end sub
#############################

sub kop_NB_runa()
   var runa = 0x1F14 ;sem nadefinujte type vasi NB runy
   var barvaruny = 0x0B1D ;sem nadefinujte barvu vasi NB runy
   UO.FindType(runa, barvaruny, "my")
   UO.Set('norbcheck','1')
   UO.Set('norbcalc','1')
   UO.Recall("finditem", STR(1))
end sub

#############################

sub vendor() 
UO.exec('addobject Vendor') 
while UO.Targeting() 
wait(100) 
wend 
UO.Say(""+Uo.GetName("Vendor")+" buy") 
end sub

#############################

sub zesednuti_z_kone()
Uo.Useobject("self")
end sub

sub naskoceni_na_koneWAMP()
Uo.Useobject("jezditko") ; doplnit ID svého mazlíčka
end sub

sub urci_kun() # ulozi danou osobu do objektu
    UO.exec('addobject jezditko')
    while UO.Targeting()
      wait(100)
    wend
end sub
#############################

sub zbranWamp()
Uo.Useobject("zbran")
end sub

sub zbranWamp2()
Uo.Useobject("zbran2")
end sub


sub zbran_stitWAMP()
Uo.Useobject("stit") # stit
wait(100)
Uo.Useobject("zbranstit") # zbran
end sub
#############################

sub artefakt()
Uo.Useobject("0x403048C8")
end sub

#############################

sub attack_enemy () # provede utok zbrani na cil - 'enemy'
    uo.attack('enemy')
end sub

#############################

sub select_enemy()
  UO.exec('addobject enemy');
  while UO.Targeting()
    wait(100)
  wend
  uo.print(Uo.GetName('enemy'))
end sub


###############################

#Najde nepritele a ulozi do objektu 'enemy'
#uplne na konci se da prepnout, jestli na PK rovnou zautoci, nebo
#jestli jen vypise jeho udaje

#!!!!!!!!!!!!!!!!!!!!! Zapnete na hlavni strance Yoka Track World Items
sub TargetNext()
#v. 1.3 
#od v1.2 opraven uo.set('lasttarget'...)
#od v1.1 pridany hlasky nad sebe, getstatus
var man='0x0190'
var woman='0x0191'
var notoriety1=5 #sem dejte 4, jestli chcete targetovat criminaly
var notoriety2=5
var notoriety3=6
var nalezeno
var resetovano = 0
UO.Ignore('self') 
UO.Set('finddistance', "20")

repeat
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
if not uo.findcount() then
#nikoho jsme nenasli. Pokud nebyl reset ignoru, resetujem a hledame znova
if not resetovano then 
UO.IgnoreReset()
UO.Ignore('self')
resetovano = 1 
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
endif
endif

endif
endif

if uo.findcount() then #nekoho jsme nalezli
If (UO.GetNotoriety('finditem')==Notoriety1) or (UO.GetNotoriety('finditem')==Notoriety2) or (UO.GetNotoriety('finditem')==Notoriety3) then
#nepritel je PK, sedivak nebo O/CH nepritel
UO.AddObject('enemy', 'finditem')
nalezeno = 1
endif 
UO.Ignore('finditem')
endif

until not uo.findcount() or uo.dead() or nalezeno 

If not nalezeno then
UO.Print('Nepritel nebyl zameren')
else
# tady muzete prepinat, jestli na nepritele zautocit, nebo jen vypsat udaje o nem
; uo.attack('enemy') #muzete zakomentovat a nedozvi se ze po nem jdete
uo.set('lasttarget',uo.getserial('enemy'))
; uo.print(Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
#lze vykopirovat do jinych skriptu
uo.getstatus('enemy')
uo.charprint("0x0030",Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
endif

end sub


#########################

sub odlogCove() 
Uo.Useobject("0x401B11B3") 
end sub

##################################

sub debordelizace() 
var gp_type = "0x0EED" 
var gp_color = "0x0000" 
var x
var gb = uo.count("0x0F0C", "0x0025") 
var gs = uo.count ("0x0F09", "0x0000")
var gc = uo.count("0x0F07", "0x0000") 
var tr = uo.count("0x0F0B", "0x0000") 
var tmr = uo.count("0x0F09", "0x0003") 
var mr = uo.count("0x0F09", "0x0005") 

DIM regy[27] 
regy[0] = "0x0F7B" #BM 
regy[1] = "0x0F8C" #SA 
regy[2] = "0x0F7A" #BP 
regy[3] = "0x0F85" #GS 
regy[4] = "0x0F86" #MR 
regy[5] = "0x0F8D" #SS 
regy[6] = "0x0F84" #GL 
regy[7] = "0x0F88" #NS 
regy[8] = "0x0F87" #EON 
regy[9] = "0x0F89" #obsidian 
regy[10] = "0x0F7E" #bone 
regy[11] = "0x0F79" #blackmor 
regy[12] = "0x0F81" #feritle 
regy[13] = "0x0F78" #batwing 
regy[14] = "0x0F8F" #volcanic 
regy[15] = "0x0F8B" #pumice 
regy[16] = "0x0F80" #deamon bone 
regy[17] = "0x0F82" #dragon blood 
regy[18] = "0x0F7D" #dark blood 
regy[19] = "0x0F7C" #blodspawn 
regy[20] = "0x0F91" #wyrmheart 
regy[21] = "0x0F7D" #blood 
regy[22] = "0x0F8E" #serpent 
regy[23] = "0x0F83" #executioners 
regy[24] = "0x0F7F" #brimstone 
regy[25] = "0x0F87" #blue ocka 
regy[26] = "0x0F8A" #pig iron 
#regy[27] = "" #dead wood 
UO.Print("*Uklizim*")
For var i = 0 to 26 
UO.FindType(regy[i], -1, "backpack") 
If UO.FindCount() then 
UO.MoveItem("finditem", -1, "backpack", 110, 40, 0) 
Wait(750) 
EndIf 
Next 
UO.FindType(gp_type, gp_color, "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", -1, "backpack", 70, 40, 0) 
Wait(500) 
EndIf 
uo.print(str(gb)) 
x = 0
while x < gb 
UO.FindType("0x0F0C", "0x0025", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 90, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gs
UO.FindType("0x0F09", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 30, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gc
UO.FindType("0x0F07", "0x0000", "backpack")
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 60, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tr
UO.FindType("0x0F0B", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 120, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tmr
UO.FindType("0x0F09", "0x0003", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < mr
UO.FindType("0x0F09", "0x0005", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
UO.print("*Uklizeno*") 
endsub

####################################

sub Narovnani() 

var x
var NbRuna = uo.count("0x1F14", "0x0B1D") 
var SpellBook = uo.count ("0x0EFA")
var CestovniKniha = uo.count("0x22C5", "0x0000") 
var RuneBook = uo.count("0x0FF0", "0x08A5") 
var TravelBook = uo.count("0x0FEF", "0x0482") 
var Voditko = uo.count("0x1374", "0x0B4C")
var DrawKnife = uo.count("0x10E4", "0x0B80")
var QuestBook = uo.count("0x227A", "0x0498")
var NbMortar = uo.count("0x0E9B", "0x0B87")
var MagicScissors = uo.count("0x0F9E", "0x0B87")
var MagicKey = uo.count("0x1012", "0x0000")
var Retezy = uo.count("0x1A07", "0x0000")
var Keyring = uo.count("0x176B", "0x0000")
 
 If 0 < NbRuna  THEN
  UO.FindType("0x1F14", "0x0B1D", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 10, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < SpellBook  THEN
  UO.FindType("0x0EFA", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 25, 20, 0) 
    Wait(500)
    Uo.Print('SpellBook')
  EndIf
 EndIf

 If 0 < CestovniKniha  THEN
   UO.FindType("0x22C5", "0x0000", "backpack")
   If UO.FindCount() Then 
     UO.MoveItem("finditem", 1, "backpack", 40, 20, 0) 
      Wait(500) 
   EndIf
 EndIf

 If 0 < RuneBook  THEN
  UO.FindType("0x0FF0", "0x08A5", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 55, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < TravelBook  THEN
  UO.FindType("0x0FEF", "0x0482", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 70, 20, 0) 
     Wait(500) 
  EndIf
 EndIf


 If 0 < Retezy  THEN
  UO.FindType("0x1A07", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 90, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < Voditko  THEN
  UO.FindType("0x1374", "0x0B4C", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 105, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

  
 If 0 < DrawKnife  THEN
  UO.FindType("0x10E4", "0x0B80", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 120, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < QuestBook  THEN
  UO.FindType("0x227A", "0x0498", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 135, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < NbMortar  THEN
  UO.FindType("0x0E9B", "0x0B87", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 150, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < MagicScissors  THEN
  UO.FindType("0x0F9E", "0x0B87", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 150, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
If 0 < Keyring  THEN
  UO.FindType("0x176B", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 165, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 x = 0
 while x < MagicKey
  UO.FindType("0x1012", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 165, 10, 0) 
     Wait(500) 
  EndIf
  x = x + 1
 wEnd


UO.print("*Narovnano*") 
endsub
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Rang (druid):

Kód: Vybrat vše

sub TamingA()
UO.exec('addobject zvire');
while UO.Targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
UO.UseType(0x13F4)
UO.WaitTargetObject('zvire')
wait(9000)
until UO.injournal('byl tamnut a opet propusten')
end sub

sub Taming()

var x, pokus, cas

## target na tamovany objekt ##
  UO.Print("Zacinam tamovat")
  UO.Sound(81)
  UO.AddObject('zvire')
  while UO.Targeting()
     wait(100)
  wend

## vypnuti trackingu ##
  UO.WarMode(1)
   wait(250)
  UO.WarMode(0)

## nastaveni promenych ##
  pokus = 0
  cas = 0

  UO.DeleteJournal()

  repeat

    pokus = pokus + 1

## vypis promenych v prubehu ##
    UO.Print("TAMUJEME: "+UO.GetName('zvire'))
    UO.Print("Pokus cislo: "+ str(pokus))
    UO.Print("Trva nam to: "+ str(cas) +" sekund")

    UO.DeleteJournal()

## tamovani ##
    UO.WaitTargetObject('zvire')
    UO.UseType('0x13F4','0x096D')
    repeat


## pocitani casu ##
      if NOT UO.InJournal('Not tamable|nedokazes|tamnut|not able|Too far|Nemuzes|Animal already|nabita|Cannot learn|moc daleko|Nedokazes|shrinknuto') then
         wait(500)
        cas = cas + 1
      endif


       wait(500)
    until UO.InJournal('nezdarilo|nedokazes|failed|Not tamable|tamnut|not able|Too far|Nemuzes|Animal already|Targeting Cancelled|nabita|Cannot learn|moc daleko|Nedokazes|shrinknuto')


## sebrani shrinknuteho zviratka do batohu ##
    If UO.InJournal('byl tamnut') and NOT UO.InJournal('propusten') then
      UO.Sound(253)
      for x = 8382 to 8503
      If UO.CountGround(UO.Int2Hex(x))>0 then
        UO.Waittargetground(UO.Int2Hex(x))
        UO.Grab()
      endif
       wait(5)
      next
    endif

## samonabiti hole  ##
    If UO.InJournal('byl tamnut|shrinknuto') and NOT UO.InJournal('propusten') then

      If UO.Count('0x0F09','0x045E') > 0 then
        UO.WaitTargetType('0x0F09','0x045E')
        UO.UseType('0x13F4')
      endif

      If UO.Count('0x0F09','0x045E') == 0 and UO.Count('0x1843','0x0724') >= 1 then
        UO.WaitTargetType('0x1843','0x0724')
        UO.UseType('0x13F4')
      endif

      If UO.Count('0x0F09','0x045E') == 0 and UO.Count('0x1843','0x0724') == 0 then
        UO.Print('### Hul nebyla nabita! ###')
      endif

    endif


  until UO.InJournal('Not tamable|nedokazes|tamnut|not able|Too far|Nemuzes|Animal already|nabita|Cannot learn|moc daleko|Nedokazes|shrinknuto')


## hiddnuti po tamnuti ##
# volitelne - pro aktivaci odmazat ; pred radky
# nastaveno na hidd jen u full tamingu
;If UO.InJournal('byl tamnut') and UO.InJournal('nabita') then
; while NOT UO.Hidden()
;  UO.Print("Schovavam se")
;  UO.UseSkill('Hiding')
;  repeat
;   wait(100)
;  until UO.InJournal("You have hidden|You can't seem to hide|preoccupied")
;    If UO.InJournal("preoccupied") then
;      uo.warMode(1)
;      wait(250)
;      uo.warMode(0)
;    endIf
; wEnd
;endif

## konecny vypis promenych po skonceni tamovani ##
  If UO.InJournal('byl tamnut') then
    If UO.InJournal('propusten') then
      UO.Sound(31)
    endif
    UO.Print("ZVIRATKO TAMNUTO")
    UO.Print("Tamnuto na: "+ str(pokus) +" pokusu")
    UO.Print("Tamnuti trvalo: "+ str(cas) +" sekund")
    If UO.InJournal('advance') then
      UO.Sound(40)
    endif
  endif

end sub

###########################

sub enemypoisn()
UO.Exec("warmode 0")
  wait(500)
  UO.Exec("warmode 1")
uo.usetype('0x1837');
;UO.WaitTargetLast() 
  UO.WaitTargetObject('enemy')
end sub
#################################

sub arms_lore_s_vyberom()
    var zbran
    uo.print("Zadej predmet, ktory chces skumat.")
    uo.addObject('zbran')
    while UO.Targeting()
        wait(100)
    wend
    while NOT UO.Dead()
        UO.UseSkill('Arms Lore','zbran')
        wait(4500)
    wend
end sub

#################################

sub klamak()
  var pocetPokusu = 0
  repeat
    pocetPokusu = pocetPokusu+1
    uo.deleteJournal()
    UO.Exec("warmode 0")
    wait(250)
    UO.Exec("warmode 1")
    wait(250)
    UO.UseType("0x2103") 
    wait(500)
  until (not uo.injournal("You can't unshrink")) or (pocetPokusu>=2)
end sub 

#################################

sub TBGatePaladin() 
  var gumpSerial = "0x0016f9cb" # zde doplnte vasi hodnotu! 
  var TBID = "0x40066282"   # zde doplnte vasi hodnotu! 
  UO.OnGump(gumpSerial, "0x00000198", "2", "nochecks", "noentryes") 
  ;             serial      gumpID    buttID checkboxy    textfieldy 
  UO.Recall(TBID,"4") 
end sub

########################

sub music()
    var nastroj
    uo.print("Na co chces hrat?")
    uo.addObject('nastroj')
    While UO.Targeting()
        wait(100)
    wend
    while NOT UO.Dead()
        uo.useobject('nastroj')
        wait(5000)
    wend
end sub

#########################

sub jumpToGate() 
  uo.usefromground("0x373A") 
end sub

############################
sub megaloot() 
 uo.usefromground("0x2006,0x0000")
 wait(100)
 var n
 var MaxID = 68
 var ALastContainer
 var WhereLoot
 var Pojistka
 var cas
 ALastContainer = UO.GetSerial("lastcontainer")
 DIM A[68] 
 
  A[1] = 0x2121 ;kun0x2121
  A[2] = 0x2136 ;zost
  A[3] = 0x20F6 ;lama
  A[4] = 0x2137 ;Orn
  A[5] = 0x2135 ;Oclock
  A[6] = 0x1BC4 ;Order shield
  A[7] = 0x143E ;Halbert 
  A[8] = 0x143B ;Maul
  A[9] = 0x0F5C ;Mace
  A[10] = 0x13B1 ;Bow
  A[11] = 0x13B9 ;Viking Sword
  A[12] = 0x1406 ;War Mace
  A[13] = 0x1438 ;War Hammer
  A[14] = 0x0F62 ;Spear
  A[15] = 0x13B5 ;Scimitar 
  A[16] = 0x1404 ;War Fork 
  A[17] = 0x13FE ;Katana
  A[18] = 0x13FA ;Large Battle Axe
  A[19] = 0x0E87 ;Pitchfork 
  A[20] = 0x0F49 ;Axe
  A[21] = 0x1402 ;Short Spear
  A[22] = 0x1400 ;Kryss 
  A[23] = 0x0F45 ;Executioner´s Axe
  A[24] = 0x1B76 ;Heater 
  A[25] = 0x0F4B ;Double Axe
  A[26] = 0x108A ;Rexlex Ring
  A[27] = 0x1F03 ;Roby
  A[28] = 0x1413 ;Platemail Gorget 
  A[29] = 0x1410 ;Platemail Arms
  A[30] = 0x1414 ;Platemail Gauntlets
  A[31] = 0x1415 ;Platemail 
  A[32] = 0x1411 ;Platemail Legs
  A[33] = 0x13C4 ;Chainmail Tunic
  A[34] = 0x13C3 ;Chainmail Leggings
  A[35] = 0x13BB ;Chainmail Coif
  A[36] = 0x13EB ;Ringmail Gloves
  A[37] = 0x13EF ;Ringmail Sleeves
  A[38] = 0x144F ;Bone Tunic
  A[39] = 0x1450 ;Bone Gloves
  A[40] = 0x1451 ;Bone Helmet
  A[41] = 0x1452 ;Bone Leggins
  A[42] = 0x144E ;Bone Arms
  A[43] = 0x13CA ;Leather Tunic
  A[44] = 0x13C9 ;Leather Leggings
  A[45] = 0x13D4 ;Studded Sleeves
  A[46] = 0x13D5 ;Studded Gloves
  A[47] = 0x1711 ;Thigh Boots
  A[48] = 0x0E76 ;bag 
  A[49] = 0x14EB ; Treassure Map
  A[50] = 0x0eed ;gold piece
  A[51] = 0x0F86 ; MR 
  A[52] = 0x0F8D ; SS
  A[53] = 0x0F8C ; SA
  A[54] = 0x0F85 ; GI 
  A[55] = 0x0F7B ; BM 
  A[56] = 0x0F88 ; NS 
  A[57] = 0x0F84 ; GA
  A[58] = 0x0F7A ; BP
  A[59] = 0x0F87 ; Eyes of newt
  A[60] = 0x14EB ; Treassure Map
  A[61] = 0x1F5F ; KVF svitky
  A[62] = 0x108A ; reflex
  A[63] = 0x0E79 ;poklady
  A[64] = 0x1F14 ;runy
  A[65] = 0x0F09 ;Lahvicky
  A[66] = 0x0F3F ;Sipy
  A[67] = 0x1BFB ;Sipky
  A[68] = 0x1BD1 ;Peri

 UO.setCatchBag ('LootBag') ;(nepovinný definovaný objekt)
 ;wait(1000)
 UO.findType(A[1],"-1",'ground')
 WhereLoot = UO.getQuantity('finditem')
 for n=1 TO MaxID
  if WhereLoot == 0 then ;na zemi nejsou penize
   uo.findType(A[n],"-1",ALastContainer) 
   while uo.findcount()
    UO.grab(0,"finditem") 
    cas = 0
    UO.deleteJournal()
    wait(2000) ;sil break
    repeat
     cas = cas + 1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==5) 
    uo.findType(A[n],"-1",ALastContainer) 
   wend
  else
   uo.findType(A[n],"-1",'ground')
   Pojistka=uo.findCount()
   while (uo.findCount()) and (Pojistka <> 0)
    UO.grab(0,"finditem") 
    cas=0
    UO.deleteJournal()
    wait(400) ; sil break
    repeat
     cas=cas+1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==10) 
    uo.findType(A[n],"-1",'ground')
    if Pojistka == uo.findCount() then
     UO.print("Item No."+STR(n)+" NOT grab !!!")
     Pojistka=0
    endif
   wend
  endif
 Next
 UO.unSetCatchBag ('LootBag')
end sub

#################################


sub loot() 
 var n
 var MaxID = 5
 var ALastContainer
 var WhereLoot
 var Pojistka
 var cas
 ALastContainer = UO.GetSerial("lastcontainer")
 DIM A[5] 

 A[4] = 0x1BFB ;sipky 
 A[1] = 0x0E76 ;Bag
 A[5] = 0x0E21 ;bandage 
 A[3] = 0x0F3F ;sipy
 A[2] = 0x1F13 ;skillpoint 


 UO.setCatchBag ('LootBag') ;(nepovinný definovaný objekt)
 ;wait(1000)
 UO.findType(A[1],"-1",'ground')
 WhereLoot = UO.getQuantity('finditem')
 for n=1 TO MaxID
  if WhereLoot == 0 then ;na zemi nejsou penize
   uo.findType(A[n],"-1",ALastContainer) 
   while uo.findcount()
    UO.grab(0,"finditem") 
    cas = 0
    UO.deleteJournal()
    wait(500) ;sil break
    repeat
     cas = cas + 1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==5) 
    uo.findType(A[n],"-1",ALastContainer) 
   wend
  else
   uo.findType(A[n],"-1",'ground')
   Pojistka=uo.findCount()
   while (uo.findCount()) and (Pojistka <> 0)
    UO.grab(0,"finditem") 
    cas=0
    UO.deleteJournal()
    wait(400) ; sil break
    repeat
     cas=cas+1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==10) 
    uo.findType(A[n],"-1",'ground')
    if Pojistka == uo.findCount() then
     UO.print("Item No."+STR(n)+" NOT grab !!!")
     Pojistka=0
    endif
   wend
  endif
 Next
 UO.unSetCatchBag ('LootBag')
end sub




##############################
sub hiding()
 UO.WarMode(0) 
 UO.exec("useskill 'Hiding'") 
end sub

##############################
sub detect()
	UO.useskill('Detect Hidden')
end sub

####################
sub detect_hidden()
uo.warmode(0)
while 1
   uo.deletejournal()
   uo.useskill('Detect Hidden')
   repeat
      wait(200)
   until uo.injournal('hidden|find')
   wait(1000)
wend
end sub

####################
# Rvani hlasek
####################
Sub All_kill_enemy()
Uo.say('All Kill')
UO.WaitTargetObject('enemy')
end sub

Sub All_kill_self()
Uo.say('All Kill')
UO.WaitTargetObject('self')
end sub

Sub kill()
Uo.say('Kill')
UO.WaitTargetObject('enemy')
end sub

Sub come()
Uo.say('All Come')
end sub

Sub stay()
Uo.say('All Stay')
end sub

Sub go()
Uo.say('All Go')
end sub

Sub Rang_kill()
Uo.say('Grizzly Bear Kill')
UO.WaitTargetObject('enemy')
wait (500)
Uo.say('Brown Bear Kill')
UO.WaitTargetObject('enemy')
end sub
####################
# MR vypiti
####################
sub MR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0005');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

###########################
sub TMR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0003');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

########################
sub heal_self()
UO.UseType("0x1F31", "0x0000")
UO.WaitTargetSelf()
end sub

sub port()
UO.UseType("0x1F42", "0x0000")
end sub
##########################
# kouzla z hlavy
##########################

sub sipka_na_sebe()  # sipka na sebe
    UO.Cast('Arrow','self')  
end sub

sub sipka()  # sipka na sebe
    UO.Cast('Arrow')  
end sub

sub sipka_last() # hodi sipku na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Magic Arrow",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub port_hlava() # port + target
;  UO.DeleteJournal() 
   UO.Cast("Teleport")
end sub

sub para_last() # hodi paru na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Paralyze",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub


sub para() # para + target
;  UO.DeleteJournal() 
   UO.Cast("Paralyze")
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub harm_last() # hodi Harm na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Harm",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub POG_last() # hodi POG na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Lightning",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub
##############################
sub Chicken()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Chicken' ")
end sub

sub Grizzly()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Grizzly Bear' ")
end sub

sub BB()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Brown Bear' ")
end sub

sub Rabid()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Rabid Dog' ")
end sub

sub Horse()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Horse' ")
end sub
##########################
# kouzla svitek
##########################
sub resurrection()
  if UO.Waiting() then
    UO.CancelTarget()
  endif
  if UO.Count('0x1F67') then
    UO.UseType('0x1F67')
  else
    UO.Cast('Resurrection')
  endif
end sub

sub port()
UO.UseType("0x1F42", "0x0000")
end sub

sub para_enemy()
UO.UseType("0x1F52", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub pog()
UO.UseType("0x1F4A", "0x0000")
Uo.waittargetobject('enemy')
end sub
#############################

sub GH() ;zahajeni scriptu
UO.UseType(0x0F0C,0x0000)
Wait(500) 
if UO.Count(0x0F0C,0x0000) then 
 UO.UseType(0x0F0C,0x0000)  ;Potion Greater Heal 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F0C,0x0000))+' potion (Greater Heal)')
else
 UO.Print('No potion (Greater Heal)!')
endif
end sub
##########################

sub GS() ;zahajeni scriptu
if UO.Count(0x0F09,0x0000) then 
 UO.UseType(0x0F09,0x0000)  ;Potion Greater Strenght 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F09,0x0000))+' potion (Greater Strenght)')
else
 UO.Print('No potion (Greater Strenght)!')
endif
end sub

##########################

sub TR() ;zahajeni scriptu
UO.UseType(0x0F0B) 
 if UO.Count(0x0F0B,0x0000) then 
 UO.UseType(0x0F0B,0x0000)  ;Potion total_ref 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F0B,0x0000))+' potion (total_ref)')
else
 UO.Print('No potion (Total ref)!')
endif
end sub 

##########################

sub GC() ;zahajeni scriptu
UO.UseType('0x0F07','0x0000');pouzije lahvicku GC
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" GC.")
end sub ;ukonci script

###########################

sub Invis() ;zahajeni scriptu
UO.UseType('0x0F09','0x0B77');pouzije lahvicku Invis
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" Invis.")
end sub ;ukonci script
###########################
sub salat()
	uo.usetype('0x09EC')
end sub
############################

sub Kuch()
UO.usetype("0x0F51","0x0B80")
	while UO.Targeting()
        wait(100)
	wend
end sub

sub Kuchobyc()
UO.usetype("0x0F51","0x0000")
	while UO.Targeting()
        wait(100)
	wend
end sub


sub Smik()
UO.usetype("0x0F9E")
	while UO.Targeting()
        wait(100)
	wend
end sub

##########################

sub Prelivani()
 UO.Print("Zamer kad z ktere budeme prelivat")
 UO.AddObject("kad")
 WHILE UO.Targeting()
  wait(100)
 WEND
 
 var prazdna_flaska = "0x0F0E"
 var plna_kad = "0x1843"
 var barva = UO.GetColor("kad")
 
 ; prokliknuti war modu
 uo.warmode(1)
 uo.warmode(0)
 
 while UO.Count(prazdna_flaska) AND UO.Count(plna_kad, barva)
  UO.DeleteJournal()
  UO.WaitTargetType(prazdna_flaska)
  UO.UseType(plna_kad, barva)
  repeat
   wait(100)
  until UO.InJournal("You put")
  wait(500)
 wend
end sub


###########################

sub tracking_animals()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Animals')
end sub

sub tracking_anything()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Anything that moves')
end sub

sub tracking_players()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Players')
end sub

sub tracking_monsters()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Monsters')
end sub

sub tracking_train()
while 1
    uo.deletejournal()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Monsters')
    repeat
    wait(100)
    until UO.InJournal("You see no")
    wait(800)
wend
end sub
##########################

sub heal() 
 uo.usetype('0x0E21')
 uo.waittargetself()
end sub

####################


sub DoleceniStargetem()
    UO.exec('addobject pokus');
    while UO.Targeting()
        wait(100)
    wend
    UO.DeleteJournal()
    repeat
        UO.UseType(0x0e21)
        UO.WaitTargetObject('pokus')
        wait(3000)
    until UO.injournal('Chces vytvorit mumii?')
end sub

#########################

sub Reflexring()
UO.UseObject('reflex')
wait (100)
UO.RemoveRing()
end sub

sub GReflexring()
UO.UseObject('greflex')
wait (100)
UO.RemoveRing()
end sub

sub Srdicko()
UO.UseType('0x136C,0x0B89')
end sub

sub Bracelet()
UO.UseType('0x1086,0x0000')
end sub

sub Gold()
Uo.UseObject("gold")
wait (100)
UO.RemoveRing()
end sub

sub Titan()
UO.UseObject("titan")
wait (100)
UO.UseObject('krk')
end sub

sub Alabastr()
UO.UseObject("alabastr")
wait (100)
UO.UseObject('krk')
end sub

sub ryba()
UO.UseType('0x09CD,0x0850')
end sub
#############################
sub ref_nula()
 var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4000540C"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4022BBC8"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x4020669C"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x40119821"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x400D7C39"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x4006BFF6"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif

 var POLOZEK = 58
 dim typ   [58]
 dim barva [58]
 dim pocet [58]
 dim batoh [58]
 dim nazev [58]
 dim potion[58]
 dim barva2[58]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 0
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 0
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 0
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 0
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 0
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 0
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 0
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 0
 batoh[8] = batohNaRegy

 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 0
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 0
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 0
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 0
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 0
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 0
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 0
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 0
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 0
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 0
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 0
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 0
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 0
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 0
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 0
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 0
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 0
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 0
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 0
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 0
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 0
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 0
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 0
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 0
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 0
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 0
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Heal"
 typ   [45] = "0x0F0C"
 pocet [45] = 0
 batoh [45] = batohNaPoitony
 barva2[45] = "0x08A7"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 0
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 0
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 0
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 0
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 0
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 for i = 1 to POLOZEK
  uo.findtype(typ[i],barva[i],'backpack')
  if (potion[i] == 1) then
   j = uo.count(typ[i],barva[i]) 
  else
   j = uo.getquantity('finditem')
  end if
  if (j > pocet[i]) then # do banku
   if (potion[i] == 1) then
    for ii = (pocet[i]+1) to j
     uo.waittargettype(typ[i],barva[i])
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
   else
    uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
   endif
   wait(pauza)
  else
   if (j < pocet[i]) then # z banku
    if (potion[i] == 1) then
    for ii = j to (pocet[i]-1)
     uo.findtype("0x0F0E","0x0000",batoh[i])
     if not uo.findcount() then
      uo.print("Nedostatek Prazdne lahve")
      uo.canceltarget()
      next
     endif
     uo.waittargetobject('finditem')
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
    else
     uo.findtype(typ[i],barva[i],batoh[i])
     if (uo.getquantity('finditem') < (pocet[i]-j)) then
      uo.print("Nedostatek "+ nazev[i])
     else
      uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
      wait(pauza)
     end if
    end if 
   end if
  end if
 next
uo.print("Nadrz mate PRAZDNOU, pane")
end sub


sub kop_NB_runa()
   var runa = 0x1F14 ;sem nadefinujte type vasi NB runy
   var barvaruny = 0x0B1D ;sem nadefinujte barvu vasi NB runy
   UO.FindType(runa, barvaruny, "my")
   UO.Set('norbcheck','1')
   UO.Set('norbcalc','1')
   UO.Recall("finditem", STR(1))
end sub

#############################

sub vendor() 
UO.exec('addobject Vendor') 
while UO.Targeting() 
wait(100) 
wend 
UO.Say(""+Uo.GetName("Vendor")+" buy") 
end sub

#############################

sub zesednuti_z_kone()
Uo.Useobject("self")
end sub

sub naskoceni_na_suma()
Uo.usefromground("0x00CC", "0x0000") ; doplnit type a color svého mazlíčka
end sub

sub naskoceni_na_kone_rang()
Uo.Useobject("jezditko") ; doplnit ID svého mazlíčka
end sub

sub urci_kun() # ulozi danou osobu do objektu
    UO.exec('addobject jezditko')
    while UO.Targeting()
      wait(100)
    wend
end sub
#############################
sub artefakt()
Uo.Useobject("0x403048C8")
end sub

#############################
sub toulec()
Uo.Useobject("toulec")
end sub

sub zbranRang()
Uo.Useobject("zbran")
end sub

sub skladacka()
Uo.Useobject("skladacka")
end sub

sub zbran_stitRang()
Uo.Useobject("stit") # stit
wait(100)
Uo.Useobject("zbranstit") # zbran
end sub
#############################

sub attack_enemy () # provede utok zbrani na cil - 'enemy'
    uo.attack('enemy')
end sub

#############################

sub select_enemy()
  UO.exec('addobject enemy');
  while UO.Targeting()
    wait(100)
  wend
  uo.print(Uo.GetName('enemy'))
end sub


###############################

#Najde nepritele a ulozi do objektu 'enemy'
#uplne na konci se da prepnout, jestli na PK rovnou zautoci, nebo
#jestli jen vypise jeho udaje

#!!!!!!!!!!!!!!!!!!!!! Zapnete na hlavni strance Yoka Track World Items
sub TargetNext()
#v. 1.3 
#od v1.2 opraven uo.set('lasttarget'...)
#od v1.1 pridany hlasky nad sebe, getstatus
var man='0x0190'
var woman='0x0191'
var notoriety1=5 #sem dejte 4, jestli chcete targetovat criminaly
var notoriety2=5
var notoriety3=6
var nalezeno
var resetovano = 0
UO.Ignore('self') 
UO.Set('finddistance', "20")

repeat
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
if not uo.findcount() then
#nikoho jsme nenasli. Pokud nebyl reset ignoru, resetujem a hledame znova
if not resetovano then 
UO.IgnoreReset()
UO.Ignore('self')
resetovano = 1 
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
endif
endif

endif
endif

if uo.findcount() then #nekoho jsme nalezli
If (UO.GetNotoriety('finditem')==Notoriety1) or (UO.GetNotoriety('finditem')==Notoriety2) or (UO.GetNotoriety('finditem')==Notoriety3) then
#nepritel je PK, sedivak nebo O/CH nepritel
UO.AddObject('enemy', 'finditem')
nalezeno = 1
endif 
UO.Ignore('finditem')
endif

until not uo.findcount() or uo.dead() or nalezeno 

If not nalezeno then
UO.Print('Nepritel nebyl zameren')
else
# tady muzete prepinat, jestli na nepritele zautocit, nebo jen vypsat udaje o nem
; uo.attack('enemy') #muzete zakomentovat a nedozvi se ze po nem jdete
uo.set('lasttarget',uo.getserial('enemy'))
; uo.print(Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
#lze vykopirovat do jinych skriptu
uo.getstatus('enemy')
uo.charprint("0x0030",Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
endif

end sub


#########################

sub odlogCove() 
Uo.Useobject("0x401B11B3") 
end sub

#############################

sub rangerref()
 var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4014EE89"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4014EE89"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x402341B8"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x401262EF"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x402341B8"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x40370C96"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif
 var POLOZEK = 58
 dim typ   [58]
 dim barva [58]
 dim pocet [58]
 dim batoh [58]
 dim nazev [58]
 dim potion[58]
 dim barva2[58]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 210
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 100
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 180
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 180
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 70
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 60
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 20
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 210
 batoh[8] = batohNaRegy

 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 0
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 0
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 0
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 0
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 0
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 0
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 0
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 0
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 0
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 0
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 0
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 0
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 0
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 70
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 100
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 100
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 0
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 4
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 1
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 2
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 0
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 0
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 0
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 0
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 0
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 15
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Heal"
 typ   [45] = "0x0F0C"
 pocet [45] = 6
 batoh [45] = batohNaPoitony
 barva2[45] = "0x08A7"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 5
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 2
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 6
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 1
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 0
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 for i = 1 to POLOZEK
  uo.findtype(typ[i],barva[i],'backpack')
  if (potion[i] == 1) then
   j = uo.count(typ[i],barva[i]) 
  else
   j = uo.getquantity('finditem')
  end if
  if (j > pocet[i]) then # do banku
   if (potion[i] == 1) then
    for ii = (pocet[i]+1) to j
     uo.waittargettype(typ[i],barva[i])
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
   else
    uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
   endif
   wait(pauza)
  else
   if (j < pocet[i]) then # z banku
    if (potion[i] == 1) then
    for ii = j to (pocet[i]-1)
     uo.findtype("0x0F0E","0x0000",batoh[i])
     if not uo.findcount() then
      uo.print("Nedostatek Prazdne lahve")
      uo.canceltarget()
      next
     endif
     uo.waittargetobject('finditem')
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
    else
     uo.findtype(typ[i],barva[i],batoh[i])
     if (uo.getquantity('finditem') < (pocet[i]-j)) then
      uo.print("Nedostatek "+ nazev[i])
     else
      uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
      wait(pauza)
     end if
    end if 
   end if
  end if
 next
uo.print("Nadrz mate plnou, pane")
end sub

##################################

sub debordelizace() 
var gp_type = "0x0EED" 
var gp_color = "0x0000" 
var x
var gh = uo.count("0x0F0C", "0x0000") 
var gs = uo.count ("0x0F09", "0x0000")
var gc = uo.count("0x0F07", "0x0000") 
var tr = uo.count("0x0F0B", "0x0000") 
var tmr = uo.count("0x0F09", "0x0003") 
var mr = uo.count("0x0F09", "0x0005") 

DIM regy[27] 
regy[0] = "0x0F7B" #BM 
regy[1] = "0x0F8C" #SA 
regy[2] = "0x0F7A" #BP 
regy[3] = "0x0F85" #GS 
regy[4] = "0x0F86" #MR 
regy[5] = "0x0F8D" #SS 
regy[6] = "0x0F84" #GL 
regy[7] = "0x0F88" #NS 
regy[8] = "0x0F87" #EON 
regy[9] = "0x0F89" #obsidian 
regy[10] = "0x0F7E" #bone 
regy[11] = "0x0F79" #blackmor 
regy[12] = "0x0F81" #feritle 
regy[13] = "0x0F78" #batwing 
regy[14] = "0x0F8F" #volcanic 
regy[15] = "0x0F8B" #pumice 
regy[16] = "0x0F80" #deamon bone 
regy[17] = "0x0F82" #dragon blood 
regy[18] = "0x0F7D" #dark blood 
regy[19] = "0x0F7C" #blodspawn 
regy[20] = "0x0F91" #wyrmheart 
regy[21] = "0x0F7D" #blood 
regy[22] = "0x0F8E" #serpent 
regy[23] = "0x0F83" #executioners 
regy[24] = "0x0F7F" #brimstone 
regy[25] = "0x0F87" #blue ocka 
regy[26] = "0x0F8A" #pig iron 
#regy[27] = "" #dead wood 
UO.Print("*Uklizim*")
For var i = 0 to 26 
UO.FindType(regy[i], -1, "backpack") 
If UO.FindCount() then 
UO.MoveItem("finditem", -1, "backpack", 110, 40, 0) 
Wait(750) 
EndIf 
Next 
UO.FindType(gp_type, gp_color, "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", -1, "backpack", 70, 40, 0) 
Wait(500) 
EndIf 
uo.print(str(gh)) 
x = 0
while x < gh 
UO.FindType("0x0F0C", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 90, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gs
UO.FindType("0x0F09", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 30, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gc
UO.FindType("0x0F07", "0x0000", "backpack")
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 60, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tr
UO.FindType("0x0F0B", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 120, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tmr
UO.FindType("0x0F09", "0x0003", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < mr
UO.FindType("0x0F09", "0x0005", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
UO.print("*Uklizeno*") 
endsub

####################################

sub Narovnani() 

var x
var NbRuna = uo.count("0x1F14", "0x0B1D") 
var SpellBook = uo.count ("0x0EFA")
var CestovniKniha = uo.count("0x22C5", "0x0000") 
var RuneBook = uo.count("0x0FF0", "0x08A5") 
var TravelBook = uo.count("0x0FEF", "0x0482") 
var Voditko = uo.count("0x1374", "0x0B4C")
var DrawKnife = uo.count("0x10E4", "0x0B80")
var QuestBook = uo.count("0x227A", "0x0498")
var NbMortar = uo.count("0x0E9B", "0x0B87")
var MagicScissors = uo.count("0x0F9E", "0x0B87")
var MagicKey = uo.count("0x1012", "0x0000")
var Retezy = uo.count("0x1A07", "0x0000")
var Keyring = uo.count("0x176B", "0x0000")
 
 If 0 < NbRuna  THEN
  UO.FindType("0x1F14", "0x0B1D", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 10, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < SpellBook  THEN
  UO.FindType("0x0EFA", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 25, 20, 0) 
    Wait(500)
    Uo.Print('SpellBook')
  EndIf
 EndIf

 If 0 < CestovniKniha  THEN
   UO.FindType("0x22C5", "0x0000", "backpack")
   If UO.FindCount() Then 
     UO.MoveItem("finditem", 1, "backpack", 40, 20, 0) 
      Wait(500) 
   EndIf
 EndIf

 If 0 < RuneBook  THEN
  UO.FindType("0x0FF0", "0x08A5", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 55, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < TravelBook  THEN
  UO.FindType("0x0FEF", "0x0482", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 70, 20, 0) 
     Wait(500) 
  EndIf
 EndIf


 If 0 < Retezy  THEN
  UO.FindType("0x1A07", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 90, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < Voditko  THEN
  UO.FindType("0x1374", "0x0B4C", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 105, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

  
 If 0 < DrawKnife  THEN
  UO.FindType("0x10E4", "0x0B80", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 120, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < QuestBook  THEN
  UO.FindType("0x227A", "0x0498", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 135, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < NbMortar  THEN
  UO.FindType("0x0E9B", "0x0B87", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 150, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < MagicScissors  THEN
  UO.FindType("0x0F9E", "0x0B87", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 150, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
If 0 < Keyring  THEN
  UO.FindType("0x176B", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 165, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 x = 0
 while x < MagicKey
  UO.FindType("0x1012", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 165, 10, 0) 
     Wait(500) 
  EndIf
  x = x + 1
 wEnd


UO.print("*Narovnano*") 
endsub

Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

War (guard):

Kód: Vybrat vše

sub nabitgold()
repeat
uo.waittargetobject('gold')
uo.usetype('0x1F1C, 0x0000')
wait(500)
until uo.injournal('stop')
end sub

#################################

sub tracking() 
    repeat
        UO.UseSkill('Tracking') 
        UO.Exec("waitmenu 'Tracking' 'Monsters'") 
        wait(1500)
    until uo.injournal('prdlajz')
end sub

################################
sub urci_kun() # ulozi danou osobu do objektu
    UO.exec('addobject jezditko')
    while UO.Targeting()
      wait(100)
    wend
end sub

###########################

sub medailon()
UO.UseObject("0x402ECE5A")
end sub
###########################

sub enemypoisn()
UO.Exec("warmode 0")
  wait(500)
  UO.Exec("warmode 1")
uo.usetype('0x1837');
;UO.WaitTargetLast() 
  UO.WaitTargetObject('enemy')
end sub

###########################

sub TBGatePaladin() 
  var gumpSerial = "0x0016f9cb" # zde doplnte vasi hodnotu! 
  var TBID = "0x40066282"   # zde doplnte vasi hodnotu! 
  UO.OnGump(gumpSerial, "0x00000198", "2", "nochecks", "noentryes") 
  ;             serial      gumpID    buttID checkboxy    textfieldy 
  UO.Recall(TBID,"4")
end sub


########################

sub jumpToGate() 
  uo.usefromground("0x373A") 
end sub

############################
sub megaloot() 
 uo.usefromground("0x2006,0x0000")
 wait(100)
 var n
 var MaxID = 68
 var ALastContainer
 var WhereLoot
 var Pojistka
 var cas
 ALastContainer = UO.GetSerial("lastcontainer")
 DIM A[68] 
 
  A[1] = 0x2121 ;kun
  A[2] = 0x2136 ;zost
  A[3] = 0x20F6 ;lama
  A[4] = 0x2137 ;Orn
  A[5] = 0x2135 ;Oclock
  A[6] = 0x1BC4 ;Order shield
  A[7] = 0x143E ;Halbert 
  A[8] = 0x143B ;Maul
  A[9] = 0x0F5C ;Mace
  A[10] = 0x13B1 ;Bow
  A[11] = 0x13B9 ;Viking Sword
  A[12] = 0x1406 ;War Mace
  A[13] = 0x1438 ;War Hammer
  A[14] = 0x0F62 ;Spear
  A[15] = 0x13B5 ;Scimitar 
  A[16] = 0x1404 ;War Fork 
  A[17] = 0x13FE ;Katana
  A[18] = 0x13FA ;Large Battle Axe
  A[19] = 0x0E87 ;Pitchfork 
  A[20] = 0x0F49 ;Axe
  A[21] = 0x1402 ;Short Spear
  A[22] = 0x1400 ;Kryss 
  A[23] = 0x0F45 ;Executioner´s Axe
  A[24] = 0x1B76 ;Heater 
  A[25] = 0x0F4B ;Double Axe
  A[26] = 0x108A ;Rexlex Ring
  A[27] = 0x1F03 ;Roby
  A[28] = 0x1413 ;Platemail Gorget 
  A[29] = 0x1410 ;Platemail Arms
  A[30] = 0x1414 ;Platemail Gauntlets
  A[31] = 0x1415 ;Platemail 
  A[32] = 0x1411 ;Platemail Legs
  A[33] = 0x13C4 ;Chainmail Tunic
  A[34] = 0x13C3 ;Chainmail Leggings
  A[35] = 0x13BB ;Chainmail Coif
  A[36] = 0x13EB ;Ringmail Gloves
  A[37] = 0x13EF ;Ringmail Sleeves
  A[38] = 0x144F ;Bone Tunic
  A[39] = 0x1450 ;Bone Gloves
  A[40] = 0x1451 ;Bone Helmet
  A[41] = 0x1452 ;Bone Leggins
  A[42] = 0x144E ;Bone Arms
  A[43] = 0x13CA ;Leather Tunic
  A[44] = 0x13C9 ;Leather Leggings
  A[45] = 0x13D4 ;Studded Sleeves
  A[46] = 0x13D5 ;Studded Gloves
  A[47] = 0x1711 ;Thigh Boots
  A[48] = 0x0E76 ;bag 
  A[49] = 0x14EB ; Treassure Map
  A[50] = 0x0eed ;gold piece
  A[51] = 0x0F86 ; MR 
  A[52] = 0x0F8D ; SS
  A[53] = 0x0F8C ; SA
  A[54] = 0x0F85 ; GI 
  A[55] = 0x0F7B ; BM 
  A[56] = 0x0F88 ; NS 
  A[57] = 0x0F84 ; GA
  A[58] = 0x0F7A ; BP
  A[59] = 0x0F87 ; Eyes of newt
  A[60] = 0x14EB ; Treassure Map
  A[61] = 0x1F5F ; KVF svitky
  A[62] = 0x108A ; reflex
  A[63] = 0x0E79 ;poklady
  A[64] = 0x1F14 ;runy
  A[65] = 0x0F09 ;Lahvicky
  A[66] = 0x0F3F ;Sipy
  A[67] = 0x1BFB ;Sipky
  A[68] = 0x1BD1 ;Peri

 UO.setCatchBag ('LootBag') ;(nepovinný definovaný objekt)
 ;wait(1000)
 UO.findType(A[1],"-1",'ground')
 WhereLoot = UO.getQuantity('finditem')
 for n=1 TO MaxID
  if WhereLoot == 0 then ;na zemi nejsou penize
   uo.findType(A[n],"-1",ALastContainer) 
   while uo.findcount()
    UO.grab(0,"finditem") 
    cas = 0
    UO.deleteJournal()
    wait(2000) ;sil break
    repeat
     cas = cas + 1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==5) 
    uo.findType(A[n],"-1",ALastContainer) 
   wend
  else
   uo.findType(A[n],"-1",'ground')
   Pojistka=uo.findCount()
   while (uo.findCount()) and (Pojistka <> 0)
    UO.grab(0,"finditem") 
    cas=0
    UO.deleteJournal()
    wait(400) ; sil break
    repeat
     cas=cas+1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==10) 
    uo.findType(A[n],"-1",'ground')
    if Pojistka == uo.findCount() then
     UO.print("Item No."+STR(n)+" NOT grab !!!")
     Pojistka=0
    endif
   wend
  endif
 Next
 UO.unSetCatchBag ('LootBag')
end sub

################################

sub arms_lore_s_vyberom()
    var zbran
    uo.print("Zadej predmet, ktory chces skumat.")
    uo.addObject('zbran')
    while UO.Targeting()
        wait(100)
    wend
    while NOT UO.Dead()
        UO.UseSkill('Arms Lore','zbran')
        wait(4500)
    wend
end sub

#############################
sub klamak()
  var pocetPokusu = 0
  repeat
    pocetPokusu = pocetPokusu+1
    uo.deleteJournal()
    UO.Exec("warmode 0")
    wait(250)
    UO.Exec("warmode 1")
    wait(250)
    UO.UseType("0x2108") 
    wait(500)
  until (not uo.injournal("You can't unshrink")) or (pocetPokusu>=2)
end sub 

#############################
sub loot() 
 var n
 var MaxID = 5
 var ALastContainer
 var WhereLoot
 var Pojistka
 var cas
 ALastContainer = UO.GetSerial("lastcontainer")
 DIM A[5] 

 A[4] = 0x1BFB ;sipky 
 A[1] = 0x0E76 ;Bag
 A[5] = 0x0E21 ;bandage 
 A[3] = 0x0F3F ;sipy
 A[2] = 0x1F13 ;skillpoint 


 UO.setCatchBag ('LootBag') ;(nepovinný definovaný objekt)
 ;wait(1000)
 UO.findType(A[1],"-1",'ground')
 WhereLoot = UO.getQuantity('finditem')
 for n=1 TO MaxID
  if WhereLoot == 0 then ;na zemi nejsou penize
   uo.findType(A[n],"-1",ALastContainer) 
   while uo.findcount()
    UO.grab(0,"finditem") 
    cas = 0
    UO.deleteJournal()
    wait(500) ;sil break
    repeat
     cas = cas + 1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==5) 
    uo.findType(A[n],"-1",ALastContainer) 
   wend
  else
   uo.findType(A[n],"-1",'ground')
   Pojistka=uo.findCount()
   while (uo.findCount()) and (Pojistka <> 0)
    UO.grab(0,"finditem") 
    cas=0
    UO.deleteJournal()
    wait(400) ; sil break
    repeat
     cas=cas+1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==10) 
    uo.findType(A[n],"-1",'ground')
    if Pojistka == uo.findCount() then
     UO.print("Item No."+STR(n)+" NOT grab !!!")
     Pojistka=0
    endif
   wend
  endif
 Next
 UO.unSetCatchBag ('LootBag')
end sub


##############################
sub hiding()
 UO.WarMode(0) 
 UO.exec("useskill 'Hiding'") 
end sub

##############################
sub detect()
	UO.useskill('Detect Hidden')
end sub

####################
# Rvani hlasek
####################
Sub All_kill_enemy()
Uo.say('All Kill')
UO.WaitTargetObject('enemy')
end sub

Sub All_kill_self()
Uo.say('All Kill')
UO.WaitTargetObject('self')
end sub

Sub come()
Uo.say('All Come')
end sub

Sub stay()
Uo.say('All Stay')
end sub

Sub go()
Uo.say('All Go')
end sub

####################
# MR vypiti
####################
sub MR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0005');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

###########################
sub TMR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0003');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

########################
sub heal_self()
UO.UseType("0x1F31", "0x0000")
UO.WaitTargetSelf()
end sub

sub port()
UO.UseType("0x1F42", "0x0000")
end sub
##########################
# kouzla z hlavy
#########################
sub sipka_target()  # sipka
    UO.Cast('Arrow')  
end sub

sub sipka_na_sebe()  # sipka na sebe
    UO.Cast('Arrow','self')  
end sub

sub sipka_last() # hodi sipku na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Magic Arrow",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub


sub svetlo_svitek()
UO.UseType("0x1F33", "0x0000")
UO.WaitTargetSelf()
end sub
##########################
sub urci_osoba1 () # ulozi danou osobu do objektu
    UO.exec('addobject prvni_osoba')
    while UO.Targeting()
      wait(100)
    wend
end sub

sub urci_osoba2 ()
    UO.exec('addobject druha_osoba')
    while UO.Targeting()
      wait(100)
    wend
end sub

sub urci_osoba3 ()
    UO.exec('addobject treti_osoba')
    while UO.Targeting()
      wait(100)
    wend
end sub

sub urci_osoba4 ()
    UO.exec('addobject ctvrta_osoba')
    while UO.Targeting()
       wait(100)
    wend
end sub

sub banda_dej_osoba1() # pouziti bandage na cloveka 'osoba1'
    uo.waittargetobject ('prvni_osoba') 
    UO.UseType(0x0E21)
end sub

sub banda_dej_osoba2()
    uo.waittargetobject ('druha_osoba')
    UO.UseType(0x0E21)
end sub

sub banda_dej_osoba3 ()
    uo.waittargetobject ('treti_osoba')
    UO.UseType(0x0E21)
end sub

sub banda_dej_osoba4 ()
    uo.waittargetobject ('ctvrta_osoba')
    UO.UseType(0x0E21)
end sub


##########################

sub GH() ;zahajeni scriptu
UO.UseType(0x0F0C,0x0000)
Wait(500) 
if UO.Count(0x0F0C,0x0000) then 
 UO.UseType(0x0F0C,0x0000)  ;Potion Greater Heal 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F0C,0x0000))+' potion (Greater Heal)')
else
 UO.Print('No potion (Greater Heal)!')
endif
end sub
##########################

sub GS() ;zahajeni scriptu
if UO.Count(0x0F09,0x0000) then 
 UO.UseType(0x0F09,0x0000)  ;Potion Greater Strenght 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F09,0x0000))+' potion (Greater Strenght)')
else
 UO.Print('No potion (Greater Strenght)!')
endif
end sub

##########################

sub TR() ;zahajeni scriptu
UO.UseType(0x0F0B) 
 if UO.Count(0x0F0B,0x0000) then 
 UO.UseType(0x0F0B,0x0000)  ;Potion total_ref 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F0B,0x0000))+' potion (total_ref)')
else
 UO.Print('No potion (Total ref)!')
endif
end sub 

##########################

sub GC() ;zahajeni scriptu
UO.UseType('0x0F07','0x0000');pouzije lahvicku GC
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" GC.")
end sub ;ukonci script

###########################

sub Invis() ;zahajeni scriptu
UO.UseType('0x0F09','0x0B77');pouzije lahvicku Invis
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" Invis.")
end sub ;ukonci script
###########################
sub salat()
	uo.usetype('0x09EC')
end sub
############################

sub Kuch()
UO.usetype("0x0F51","0x0B80")
	while UO.Targeting()
        wait(100)
	wend
end sub

sub Smik()
UO.usetype("0x0F9E")
	while UO.Targeting()
        wait(100)
	wend
end sub

##########################

sub Prelivani()
 UO.Print("Zamer kad z ktere budeme prelivat")
 UO.AddObject("kad")
 WHILE UO.Targeting()
  wait(100)
 WEND
 
 var prazdna_flaska = "0x0F0E"
 var plna_kad = "0x1843"
 var barva = UO.GetColor("kad")
 
 ; prokliknuti war modu
 uo.warmode(1)
 uo.warmode(0)
 
 while UO.Count(prazdna_flaska) AND UO.Count(plna_kad, barva)
  UO.DeleteJournal()
  UO.WaitTargetType(prazdna_flaska)
  UO.UseType(plna_kad, barva)
  repeat
   wait(100)
  until UO.InJournal("You put")
  wait(500)
 wend
end sub


###########################

sub tracking_animals()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Animals')
end sub

sub tracking_anything()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Anything that moves')
end sub

sub tracking_players()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Players')
end sub

sub tracking_monsters()
    uo.useskill ('Tracking')
    UO.WaitMenu ('Tracking','Monsters')
end sub

##########################

sub heal() 
 uo.usetype('0x0E21')
 uo.waittargetself()
end sub

####################


sub DoleceniStargetem()
    UO.exec('addobject pokus');
    while UO.Targeting()
        wait(100)
    wend
    UO.DeleteJournal()
    repeat
        UO.UseType(0x0e21)
        UO.WaitTargetObject('pokus')
        wait(3000)
    until UO.injournal('Chces vytvorit mumii?')
end sub

#########################
sub Bracelet()
UO.UseObject("bracelet")
wait (500)
Uo.Useobject("0x40210F55")
wait(100)
end sub

sub Neklace()
UO.UseObject("neklace")
wait (500)
UO.RemoveNeckless()
end sub

sub Gold()
UO.UseObject("gold")
wait (500)
UO.RemoveRing()
end sub

sub Reflexring()
UO.UseObject('reflex')
wait (500)
UO.RemoveRing()
end sub

sub GReflexring()
UO.UseObject('greflex')
wait (500)
UO.RemoveRing()
end sub

#############################
sub ref_nula()
 var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4005F9CA"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4005F9CA"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x4013CAF1"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x401262EF"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x4013CAF1"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x401397E1"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif

 var POLOZEK = 59
 dim typ   [59]
 dim barva [59]
 dim pocet [59]
 dim batoh [59]
 dim nazev [59]
 dim potion[59]
 dim barva2[59]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 0
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 0
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 0
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 0
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 0
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 0
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 0
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 0
 batoh[8] = batohNaRegy

 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 0
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 0
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 0
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 0
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 0
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 0
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 0
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 0
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 0
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 0
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 0
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 0
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 0
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 0
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 0
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 0
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 1
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 0
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 0
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 0
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 0
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 0
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 0
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 0
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 0
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 0
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Heal"
 typ   [45] = "0x0F0C"
 pocet [45] = 0
 batoh [45] = batohNaPoitony
 barva2[45] = "0x08A7"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 0
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 0
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 0
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 0
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 0
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 nazev[59] = "Svetlo svitek"
 typ  [59] = "0x1F3"
 pocet[59] = 0
 batoh[59] = batohNaSvitky
 barva[59] = "0x0000"

 for i = 1 to POLOZEK
  uo.findtype(typ[i],barva[i],'backpack')
  if (potion[i] == 1) then
   j = uo.count(typ[i],barva[i]) 
  else
   j = uo.getquantity('finditem')
  end if
  if (j > pocet[i]) then # do banku
   if (potion[i] == 1) then
    for ii = (pocet[i]+1) to j
     uo.waittargettype(typ[i],barva[i])
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
   else
    uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
   endif
   wait(pauza)
  else
   if (j < pocet[i]) then # z banku
    if (potion[i] == 1) then
    for ii = j to (pocet[i]-1)
     uo.findtype("0x0F0E","0x0000",batoh[i])
     if not uo.findcount() then
      uo.print("Nedostatek Prazdne lahve")
      uo.canceltarget()
      next
     endif
     uo.waittargetobject('finditem')
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
    else
     uo.findtype(typ[i],barva[i],batoh[i])
     if (uo.getquantity('finditem') < (pocet[i]-j)) then
      uo.print("Nedostatek "+ nazev[i])
     else
      uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
      wait(pauza)
     end if
    end if 
   end if
  end if
 next
uo.print("Nadrz mate PRAZDNOU, pane")
end sub

#############################
sub War_ref()
 var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4014EE89"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4014EE89"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x402341B8"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x401262EF"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x402341B8"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x40370C96"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif


 var POLOZEK = 59
 dim typ   [59]
 dim barva [59]
 dim pocet [59]
 dim batoh [59]
 dim nazev [59]
 dim potion[59]
 dim barva2[59]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 0
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 0
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 120
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 100
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 60
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 0
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 0
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 60
 batoh[8] = batohNaRegy

 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 0
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 0
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 0
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 0
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 0
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 0
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 0
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 0
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 0
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 0
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 0
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 0
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 0
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 100
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 30
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 0
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 1
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 0
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 0
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 2
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 0
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 0
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 0
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 0
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 10
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 0
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Heal"
 typ   [45] = "0x0F0C"
 pocet [45] = 10
 batoh [45] = batohNaPoitony
 barva2[45] = "0x08A7"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 8
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 4
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 10
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 0
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 0
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 nazev[59] = "Svetlo svitek"
 typ  [59] = "0x1F33"
 pocet[59] = 5
 batoh[59] = batohNaSvitky
 barva[59] = "0x0000"


 for i = 1 to POLOZEK
  uo.findtype(typ[i],barva[i],'backpack')
  if (potion[i] == 1) then
   j = uo.count(typ[i],barva[i]) 
  else
   j = uo.getquantity('finditem')
  end if
  if (j > pocet[i]) then # do banku
   if (potion[i] == 1) then
    for ii = (pocet[i]+1) to j
     uo.waittargettype(typ[i],barva[i])
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
   else
    uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
   endif
   wait(pauza)
  else
   if (j < pocet[i]) then # z banku
    if (potion[i] == 1) then
    for ii = j to (pocet[i]-1)
     uo.findtype("0x0F0E","0x0000",batoh[i])
     if not uo.findcount() then
      uo.print("Nedostatek Prazdne lahve")
      uo.canceltarget()
      next
     endif
     uo.waittargetobject('finditem')
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
    else
     uo.findtype(typ[i],barva[i],batoh[i])
     if (uo.getquantity('finditem') < (pocet[i]-j)) then
      uo.print("Nedostatek "+ nazev[i])
     else
      uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
      wait(pauza)
     end if
    end if 
   end if
  end if
 next
uo.print("Nadrz mate plnou, pane")
end sub
#############################

sub kop_NB_runa()
   var runa = 0x1F14 ;sem nadefinujte type vasi NB runy
   var barvaruny = 0x0B1D ;sem nadefinujte barvu vasi NB runy
   UO.FindType(runa, barvaruny, "my")
   UO.Set('norbcheck','1')
   UO.Set('norbcalc','1')
   UO.Recall("finditem", STR(1))
end sub

#############################

sub vendor() 
UO.exec('addobject Vendor') 
while UO.Targeting() 
wait(100) 
wend 
UO.Say(""+Uo.GetName("Vendor")+" buy") 
end sub

#############################

sub zesednuti_z_kone()
Uo.Useobject("self")
end sub

sub naskoceni_na_koneWAR()
Uo.Useobject("jezditko") ; doplnit ID svého mazlíčka
end sub

#############################
sub naramek()
Uo.Useobject("0x40210F55")
end sub

sub zbranWar()
Uo.Useobject("zbran")
end sub

sub zbranWar2()
Uo.Useobject("zbran2")
end sub

sub zbranWar3()
Uo.Useobject("zbran3")
end sub

sub stit()
uo.useobject('stand')
Uo.useobject("supina")
UO.WaitMenu ('Vyber Bonus','Shield of Last Stand')
end sub

sub stit2()
uo.useobject('ancients')
uo.useobject('supina')
uo.waitmenu ('Vyber Bonus','Shield of Ancients')
end sub
#############################

sub attack_enemy () # provede utok zbrani na cil - 'enemy'
    uo.attack('enemy')
end sub

#############################

sub select_enemy()
  UO.exec('addobject enemy');
  while UO.Targeting()
    wait(100)
  wend
  uo.print(Uo.GetName('enemy'))
end sub


###############################

#Najde nepritele a ulozi do objektu 'enemy'
#uplne na konci se da prepnout, jestli na PK rovnou zautoci, nebo
#jestli jen vypise jeho udaje

#!!!!!!!!!!!!!!!!!!!!! Zapnete na hlavni strance Yoka Track World Items
sub TargetNext()
#v. 1.3 
#od v1.2 opraven uo.set('lasttarget'...)
#od v1.1 pridany hlasky nad sebe, getstatus
var man='0x0190'
var woman='0x0191'
var notoriety1=5 #sem dejte 4, jestli chcete targetovat criminaly
var notoriety2=5
var notoriety3=6
var nalezeno
var resetovano = 0
UO.Ignore('self') 
UO.Set('finddistance', "20")

repeat
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
if not uo.findcount() then
#nikoho jsme nenasli. Pokud nebyl reset ignoru, resetujem a hledame znova
if not resetovano then 
UO.IgnoreReset()
UO.Ignore('self')
resetovano = 1 
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
endif
endif

endif
endif

if uo.findcount() then #nekoho jsme nalezli
If (UO.GetNotoriety('finditem')==Notoriety1) or (UO.GetNotoriety('finditem')==Notoriety2) or (UO.GetNotoriety('finditem')==Notoriety3) then
#nepritel je PK, sedivak nebo O/CH nepritel
UO.AddObject('enemy', 'finditem')
nalezeno = 1
endif 
UO.Ignore('finditem')
endif

until not uo.findcount() or uo.dead() or nalezeno 

If not nalezeno then
UO.Print('Nepritel nebyl zameren')
else
# tady muzete prepinat, jestli na nepritele zautocit, nebo jen vypsat udaje o nem
; uo.attack('enemy') #muzete zakomentovat a nedozvi se ze po nem jdete
uo.set('lasttarget',uo.getserial('enemy'))
; uo.print(Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
#lze vykopirovat do jinych skriptu
uo.getstatus('enemy')
uo.charprint("0x0030",Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
endif

end sub


#########################

sub odlogCove() 
Uo.Useobject("0x401B11B3") 
end sub
##########################

sub debordelizace() 
var gp_type = "0x0EED" 
var gp_color = "0x0000" 
var x
var gh = uo.count("0x0F0C", "0x0000") 
var gs = uo.count ("0x0F09", "0x0000")
var gc = uo.count("0x0F07", "0x0000") 
var tr = uo.count("0x0F0B", "0x0000") 
var tmr = uo.count("0x0F09", "0x0003") 
var mr = uo.count("0x0F09", "0x0005") 

DIM regy[27] 
regy[0] = "0x0F7B" #BM 
regy[1] = "0x0F8C" #SA 
regy[2] = "0x0F7A" #BP 
regy[3] = "0x0F85" #GS 
regy[4] = "0x0F86" #MR 
regy[5] = "0x0F8D" #SS 
regy[6] = "0x0F84" #GL 
regy[7] = "0x0F88" #NS 
regy[8] = "0x0F87" #EON 
regy[9] = "0x0F89" #obsidian 
regy[10] = "0x0F7E" #bone 
regy[11] = "0x0F79" #blackmor 
regy[12] = "0x0F81" #feritle 
regy[13] = "0x0F78" #batwing 
regy[14] = "0x0F8F" #volcanic 
regy[15] = "0x0F8B" #pumice 
regy[16] = "0x0F80" #deamon bone 
regy[17] = "0x0F82" #dragon blood 
regy[18] = "0x0F7D" #dark blood 
regy[19] = "0x0F7C" #blodspawn 
regy[20] = "0x0F91" #wyrmheart 
regy[21] = "0x0F7D" #blood 
regy[22] = "0x0F8E" #serpent 
regy[23] = "0x0F83" #executioners 
regy[24] = "0x0F7F" #brimstone 
regy[25] = "0x0F87" #blue ocka 
regy[26] = "0x0F8A" #pig iron 
#regy[27] = "" #dead wood 
UO.Print("*Uklizim*")
For var i = 0 to 26 
UO.FindType(regy[i], -1, "backpack") 
If UO.FindCount() then 
UO.MoveItem("finditem", -1, "backpack", 110, 40, 0) 
Wait(750) 
EndIf 
Next 
UO.FindType(gp_type, gp_color, "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", -1, "backpack", 70, 40, 0) 
Wait(500) 
EndIf 
uo.print(str(gh)) 
x = 0
while x < gh 
UO.FindType("0x0F0C", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 90, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gs
UO.FindType("0x0F09", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 30, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gc
UO.FindType("0x0F07", "0x0000", "backpack")
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 60, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tr
UO.FindType("0x0F0B", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 120, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tmr
UO.FindType("0x0F09", "0x0003", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < mr
UO.FindType("0x0F09", "0x0005", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
UO.print("*Uklizeno*") 
end sub
##################################

sub Narovnani() 

var x
var NbRuna = uo.count("0x1F14", "0x0B1D") 
var SpellBook = uo.count ("0x0EFA")
var CestovniKniha = uo.count("0x22C5", "0x0000") 
var RuneBook = uo.count("0x0FF0", "0x08A5") 
var TravelBook = uo.count("0x0FEF", "0x0482") 
var Voditko = uo.count("0x1374", "0x0B4C")
var DrawKnife = uo.count("0x10E4", "0x0B80")
var QuestBook = uo.count("0x227A", "0x0498")
var NbMortar = uo.count("0x0E9B", "0x0B87")
var MagicScissors = uo.count("0x0F9E", "0x0B87")
var MagicKey = uo.count("0x1012", "0x0000")
var Retezy = uo.count("0x1A07", "0x0000")
var Keyring = uo.count("0x176B", "0x0000")
var Supina = uo.count("0x0E2A","0x0000")

 If 0 < NbRuna  THEN
  UO.FindType("0x1F14", "0x0B1D", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 10, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < SpellBook  THEN
  UO.FindType("0x0EFA", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 25, 20, 0) 
    Wait(500)
    Uo.Print('SpellBook')
  EndIf
 EndIf

 If 0 < CestovniKniha  THEN
   UO.FindType("0x22C5", "0x0000", "backpack")
   If UO.FindCount() Then 
     UO.MoveItem("finditem", 1, "backpack", 40, 20, 0) 
      Wait(500) 
   EndIf
 EndIf

 If 0 < RuneBook  THEN
  UO.FindType("0x0FF0", "0x08A5", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 55, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < TravelBook  THEN
  UO.FindType("0x0FEF", "0x0482", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 70, 20, 0) 
     Wait(500) 
  EndIf
 EndIf


 If 0 < Retezy  THEN
  UO.FindType("0x1A07", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 90, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < Voditko  THEN
  UO.FindType("0x1374", "0x0B4C", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 105, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

  
 If 0 < DrawKnife  THEN
  UO.FindType("0x10E4", "0x0B80", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 120, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

If 0 < Supina  THEN
  UO.FindType("0x0E2A", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 120, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < QuestBook  THEN
  UO.FindType("0x227A", "0x0498", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 135, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
 If 0 < NbMortar  THEN
  UO.FindType("0x0E9B", "0x0B87", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 150, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 If 0 < MagicScissors  THEN
  UO.FindType("0x0F9E", "0x0B87", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 150, 20, 0) 
     Wait(500) 
  EndIf
 EndIf
 
If 0 < Keyring  THEN
  UO.FindType("0x176B", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 165, 20, 0) 
     Wait(500) 
  EndIf
 EndIf

 x = 0
 while x < MagicKey
  UO.FindType("0x1012", "0x0000", "backpack") 
  If UO.FindCount() Then 
    UO.MoveItem("finditem", 1, "backpack", 165, 10, 0) 
     Wait(500) 
  EndIf
  x = x + 1
 wEnd


UO.print("*Narovnano*") 
endsub

##################################

sub SipkaHealMR()
    While NOT UO.Dead()
        while UO.Life>=155 and UO.Mana>=10
            UO.cast('Magic Arrow')
            UO.waittargetself()
            wait(1800)
        wend
        if UO.Life < 155 then
         repeat
            UO.UseType(0x0E21)
            UO.WaitTargetself()
                wait(3200)
         until UO.Life > 158
        endif
           if UO.Mana < 10 then
    UO.findtype('0x0F09','0x0005') 
      if UO.findcount()<>0 then 
        uo.usetype("0x0F09")
        wait(500)
      endif 
        uo.usetype("0x1843")
        uo.waittargettype("0x0F0E")
        wait(1000)
   endif
    wend
end sub
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Nekr:

Kód: Vybrat vše

sub jumpToGate() 
  uo.usefromground("0x373A") 
end sub


###########################

sub TBGate() 
  var gumpSerial = "0x002002e3" # zde doplnte vasi hodnotu! 
  var TBID = "0x400CF8C3"   # zde doplnte vasi hodnotu! 
  UO.OnGump(gumpSerial, "0x00000198", "2", "nochecks", "noentryes") 
  ;             serial      gumpID    buttID checkboxy    textfieldy 
  UO.Recall(TBID,"4") 
end sub


sub TBGateMage() 
  var gumpSerial = "0x000f4031" # zde doplnte vasi hodnotu! 
  var TBID = "0x401A3173"   # zde doplnte vasi hodnotu! 
  UO.OnGump(gumpSerial, "0x00000198", "2", "nochecks", "noentryes") 
  ;             serial      gumpID    buttID checkboxy    textfieldy 
  UO.Recall(TBID,"4") 
end sub
##############################
sub medit()
While UO.Mana < UO.INT
 repeat
 UO.UseSkill('Meditation')
 wait(3500)
 Until UO.InJournal("You are at peace.")
wend
end sub
sub stealth()
uo.warmode(0)
startstl:
   uo.deletejournal()
   uo.useskill('Stealth')
   repeat
      wait(200)
   until uo.injournal('hidden|seem')
   wait(1000)
   goto startstl
end sub

############################
sub megaloot() 
 var n
 var MaxID = 58
 var ALastContainer
 var WhereLoot
 var Pojistka
 var cas
 ALastContainer = UO.GetSerial("lastcontainer")
 DIM A[58] 
  
  A[1] = 0x143E ;Halbert 
  A[2] = 0x143B ;Maul
  A[3] = 0x0F5C ;Mace
  A[4] = 0x13B1 ;Bow
  A[5] = 0x13B9 ;Viking Sword
  A[6] = 0x1406 ;War Mace
  A[7] = 0x1438 ;War Hammer
  A[8] = 0x0F62 ;Spear
  A[9] = 0x13FC ;Heavy Crossbow
  A[10] = 0x13B5 ;Scimitar 
  A[11] = 0x1404 ;War Fork 
  A[12] = 0x13FE ;Katana
  A[13] = 0x13FA ;Large Battle Axe
  A[14] = 0x0E87 ;Pitchfork 
  A[15] = 0x0F49 ;Axe
  A[16] = 0x1402 ;Short Spear
  A[17] = 0x1400 ;Kryss 
  A[18] = 0x0F45 ;Executioner´s Axe
  A[19] = 0x1B76 ;Heater 
  A[20] = 0x0F4B ;Double Axe
  A[21] = 0x108A ;Rexlex Ring
  A[22] = 0x1F03 ;Roby
  A[23] = 0x1413 ;Platemail Gorget 
  A[24] = 0x1410 ;Platemail Arms
  A[25] = 0x1414 ;Platemail Gauntlets
  A[26] = 0x1415 ;Platemail 
  A[27] = 0x1411 ;Platemail Legs
  A[28] = 0x13C4 ;Chainmail Tunic
  A[29] = 0x13C3 ;Chainmail Leggings
  A[30] = 0x13BB ;Chainmail Coif
  A[31] = 0x13EB ;Ringmail Gloves
  A[32] = 0x13EF ;Ringmail Sleeves
  A[33] = 0x13CA ;Leather Tunic
  A[34] = 0x13C9 ;Leather Leggings
  A[35] = 0x13D4 ;Studded Sleeves
  A[36] = 0x13D5 ;Studded Gloves
  A[37] = 0x1712 ;Thigh Boots
  A[38] = 0x0E76 ;bag 
  A[39] = 0x14EB ; Treassure Map
  A[40] = 0x0eed ;gold piece
  A[41] = 0x0F86 ; MR 
  A[42] = 0x0F8D ; SS
  A[43] = 0x0F8C ; SA
  A[44] = 0x0F85 ; GI 
  A[45] = 0x0F7B ; BM 
  A[46] = 0x0F88 ; NS 
  A[47] = 0x0F84 ; GA
  A[48] = 0x0F7A ; BP
  A[49] = 0x0F87 ; Eyes of newt
  A[50] = 0x14EB ; Treassure Map
  A[51] = 0x1F5F ; KVF svitky
  A[52] = 0x108A ; reflex
  A[53] = 0x0E79 ;poklady
  A[54] = 0x1F14 ;runy
  A[55] = 0x0F09 ;Lahvicky
  A[56] = 0x0F3F ;Sipy
  A[57] = 0x1BFB ;Sipky
  A[58] = 0x1BD1 ;Peri

 UO.setCatchBag ('LootBag') ;(nepovinný definovaný objekt)
 ;wait(1000)
 UO.findType(A[1],"-1",'ground')
 WhereLoot = UO.getQuantity('finditem')
 for n=1 TO MaxID
  if WhereLoot == 0 then ;na zemi nejsou penize
   uo.findType(A[n],"-1",ALastContainer) 
   while uo.findcount()
    UO.grab(0,"finditem") 
    cas = 0
    UO.deleteJournal()
    wait(2000) ;sil break
    repeat
     cas = cas + 1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==5) 
    uo.findType(A[n],"-1",ALastContainer) 
   wend
  else
   uo.findType(A[n],"-1",'ground')
   Pojistka=uo.findCount()
   while (uo.findCount()) and (Pojistka <> 0)
    UO.grab(0,"finditem") 
    cas=0
    UO.deleteJournal()
    wait(400) ; sil break
    repeat
     cas=cas+1
     wait(100)
    until (UO.inJournal('You put the')) or (cas==10) 
    uo.findType(A[n],"-1",'ground')
    if Pojistka == uo.findCount() then
     UO.print("Item No."+STR(n)+" NOT grab !!!")
     Pojistka=0
    endif
   wend
  endif
 Next
 UO.unSetCatchBag ('LootBag')
end sub

#############################
sub klamak()
  var pocetPokusu = 0
  repeat
    pocetPokusu = pocetPokusu+1
    uo.deleteJournal()
    UO.Exec("warmode 0")
    wait(250)
    UO.Exec("warmode 1")
    wait(250)
    UO.UseType("0x2103") 
    wait(500)
  until (not uo.injournal("You can't unshrink")) or (pocetPokusu>=2)
  uo.msg("All stay, smradi")
end sub 

##############################
sub hiding()
 UO.WarMode(0) 
 UO.exec("useskill 'Hiding'") 
end sub

##############################
sub detect()
	UO.useskill('Detect Hidden')
end sub

##############################

sub Mummy()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Mummy' ")
end sub



sub Ghoul()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Ghoul' ")
end sub



sub Wraith()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Wraith' ")
end sub



sub Wort()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Death Vortex' ")
end sub



sub Skeleton()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Skeleton Warrior' ")
end sub



sub Liche()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Liche' ")
end sub


sub Dark_Oclock()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Dark Oclock' ")
  UO.waittargetself() 
end sub


sub Rat()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Rat' ")
end sub


sub Rat_s_targetem()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Rat' ")
end sub

sub Undead()
  UO.cast("Summ. Creature")
  UO.Exec("waitmenu 'What do you want to summon ?' 'Undead Corpse' ")
end sub
####################
# Rvani hlasek
####################
Sub All_kill_enemy()
Uo.say('All Kill')
UO.WaitTargetObject('enemy')
end sub


Sub kill()
Uo.say('Kill')
UO.WaitTargetObject('enemy')
end sub

Sub ab_kill()
Uo.say('A Kill')
UO.WaitTargetObject('enemy')
wait (500)
Uo.say('B Kill')
UO.WaitTargetObject('enemy')
end sub

Sub name_kill()
Uo.say('Skeleton Warrior Kill')
UO.WaitTargetObject('enemy')
wait (500)
Uo.say('Wraith Kill')
UO.WaitTargetObject('enemy')
wait (500)
Uo.say('Mummy Kill')
UO.WaitTargetObject('enemy')
end sub

Sub Wort_kill()
Uo.say('Death Vortex Kill')
UO.WaitTargetObject('enemy')

Sub come()
Uo.say('All Come')
end sub

Sub stay()
Uo.say('All Stay')
end sub

Sub go()
Uo.say('All Go')
end sub

####################
# MR vypiti
####################
sub MR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0005');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

###########################
sub TMR() ;zahajeni scriptu
UO.UseType('0x0F09','0x0003');pouzije lahvicku MR
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F09,0x0005"))+" MR.")
end sub ;ukonci script

########################
#kouzla ze svitku
########################
sub vfp()
UO.UseType("0x0E35", "0x0070")
Uo.waittargetobject('enemy')
end sub

sub anlor()
UO.UseType("0x0E35", "0x0050")
Uo.waittargetobject('enemy')
end sub

sub haluze()
UO.UseType("0x0E35", "0x0010")
Uo.waittargetobject('enemy')
end sub

sub sum_svitek() 
uo.waittargetself() 
uo.usetype('0x0E35','0x0005') 
end sub

sub sum_svitek_target() 
uo.usetype('0x0E35','0x0005') 
end sub

sub port()
UO.UseType("0x1F42", "0x0000")
end sub

sub portlast()
UO.UseType("0x1F42", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub curse()
UO.UseType("0x0E35", "0x0099")
Uo.waittargetobject('enemy')
end sub

sub clumsyself()
UO.UseType("0x0E35", "0x0079")
UO.WaitTargetSelf()
end sub

sub para_enemy()
UO.UseType("0x1F52", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub pog()
UO.UseType("0x1F4A", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub kvf()
UO.UseType("0x1F5F", "0x0000")
Uo.waittargetobject('enemy')
end sub

sub ijs()
UO.UseType("0x1F50", "0x0000")
UO.WaitTargetSelf()
end sub

sub BS()
UO.UseType("0x1F4D", "0x0000")
end sub
##########################
# kouzla z hlavy
##########################

sub sipka_na_sebe()  # sipka na sebe
    UO.Cast('Arrow','self')  
end sub

sub IJS_na_sebe()  # IJS na sebe
    UO.Cast('Magic Reflection','self')  
end sub

sub sipka_last() # hodi sipku na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Magic Arrow",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Weaken_last() # hodi Des Mani na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Weaken",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub


sub para_last() # hodi paru na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Paralyze",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub harm_last() # hodi Harm na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Harm",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub POG_last() # hodi POG na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Lightning",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub PCW_last() # hodi PCW na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Mind Blast",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Kafe_last() # hodi Kafe na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Flame Strike",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Jed_last() # hodi Jed na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Poison",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Rel_Wis_last() # hodi Rel Wis na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Feeblemind",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Fire_Field_last() # hodi Fire field na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Fire Field",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Poison_Field_last() # hodi Poison field na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Poison Field",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub

sub Dispel_last() # hodi Poison field na 'enemy'
;  UO.DeleteJournal() 
   UO.Cast("Dispel",'enemy')
;  UO.WaitTargetLast() 
;  UO.WaitTargetObject('enemy')
end sub
##########################
sub resurrection()
Uo.Deletejournal()
if UO.Count("0x1F67") < 1 then
UO.Cast("Resurrection")
Uo.Exec("terminate resurrection")
endif
UO.UseType("0x1F67")
repeat
Wait(100)
Until Uo.InJournal("Xan: An Corp") or UO.InJournal("The spell fizzles") or UO.InJournal("You can't cast this spell yet")
end if
if UO.InJournal("You can't cast this spell yet") then
Uo.Cast("Resurrection")
endif
end sub
##########################

##########################

sub GH() ;zahajeni scriptu
UO.UseType(0x0F0C,0x0000)
Wait(500) 
if UO.Count(0x0F0C,0x0000) then 
 UO.UseType(0x0F0C,0x0000)  ;Potion Greater Heal 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F0C,0x0000))+' potion (Greater Heal)')
else
 UO.Print('No potion (Greater Heal)!')
endif
end sub
##########################

sub GS() ;zahajeni scriptu
if UO.Count(0x0F09,0x0000) then 
 UO.UseType(0x0F09,0x0000)  ;Potion Greater Strenght 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F09,0x0000))+' potion (Greater Strenght)')
else
 UO.Print('No potion (Greater Strenght)!')
endif
end sub

##########################

sub TR() ;zahajeni scriptu
UO.UseType(0x0F0B) 
 if UO.Count(0x0F0B,0x0000) then 
 UO.UseType(0x0F0B,0x0000)  ;Potion total_ref 
 Wait(500)
 UO.Print(STR(UO.Count(0x0F0B,0x0000))+' potion (total_ref)')
else
 UO.Print('No potion (Total ref)!')
endif
end sub 

##########################

sub GC() ;zahajeni scriptu
UO.UseType('0x0F07','0x0000');pouzije lahvicku GC
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" GC.")
end sub ;ukonci script

###########################

sub Invis() ;zahajeni scriptu
UO.UseType('0x0F09','0x0B77');pouzije lahvicku Invis
wait (100)
UO.Print("Zbyva: "+str(UO.Count("0x0F0B,0x0000"))+" Invis.")
end sub ;ukonci script
###########################

sub salat()
	uo.usetype('0x09EC')
end sub
############################

sub Kuch()
UO.usetype("0x0F51","0x0B80")
	while UO.Targeting()
        wait(100)
	wend
end sub

sub Kuchobyc()
UO.usetype("0x0F51","0x0000")
	while UO.Targeting()
        wait(100)
	wend
end sub


sub Smik()
UO.usetype("0x0F9E")
	while UO.Targeting()
        wait(100)
	wend
end sub

##########################

sub Prelivani()
 UO.Print("Zamer kad z ktere budeme prelivat")
 UO.AddObject("kad")
 WHILE UO.Targeting()
  wait(100)
 WEND
 
 var prazdna_flaska = "0x0F0E"
 var plna_kad = "0x1843"
 var barva = UO.GetColor("kad")
 
 ; prokliknuti war modu
 uo.warmode(1)
 uo.warmode(0)
 
 while UO.Count(prazdna_flaska) AND UO.Count(plna_kad, barva)
  UO.DeleteJournal()
  UO.WaitTargetType(prazdna_flaska)
  UO.UseType(plna_kad, barva)
  repeat
   wait(100)
  until UO.InJournal("You put")
  wait(500)
 wend
end sub

#########################

sub voditko()
	UO.usetype("0x1374")
	while UO.Targeting()
        wait(100)
	wend
end sub

##########################

sub heal() 
 uo.usetype('0x0E21')
 uo.waittargetself()
end sub

####################
sub EF()
UO.Cast("Energy Field")
end sub

####################
sub EF_svitek()
Uo.Deletejournal()
UO.UseType("0x1F5E")
end sub

#########################

sub Reflexring()
UO.UseType('0x108A,0x0496')
wait (500)
UO.RemoveRing()
end sub

sub GReflexring()
UO.UseType('0x108A,0x0B21')
wait (500)
UO.RemoveRing()
end sub

sub Niin_prsten()
UO.UseType('0x1F09,0x06ED')
end sub
#########################

sub music()
    var nastroj
    uo.print("Na co chces hrat?")
    uo.addObject('nastroj')
    While UO.Targeting()
        wait(100)
    wend
    while NOT UO.Dead()
        uo.useobject('nastroj')
        wait(5000)
    wend
end sub

###################################

sub plnenikitu()
uo.UseType(0x1837) # Označí kit
uo.WaitTargetType(0x0F0A)# Nalije jed do kitu
wait(100)
end sub

###################################

sub enemypoisn()
UO.Exec("warmode 0")
  wait(500)
  UO.Exec("warmode 1")
uo.usetype('0x1837');
;UO.WaitTargetLast() 
  UO.WaitTargetObject('enemy')
end sub

################################
sub ref()
 var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4000540C"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4022BBC8"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x4020669C"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x40119821"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x400D7C39"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x4006BFF6"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif

 var POLOZEK = 58
 dim typ   [58]
 dim barva [58]
 dim pocet [58]
 dim batoh [58]
 dim nazev [58]
 dim potion[58]
 dim barva2[58]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 120
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 80
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 80
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 80
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 40
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 80
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 40
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 100
 batoh[8] = batohNaRegy

 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 5
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 5
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 5
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 25
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 25
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 5
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 20
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 5
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 15
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 23
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 5
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 10
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 5
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 40
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 0
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 0
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 0
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 2
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 0
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 2
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 6
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 2
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 4
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 2
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 0
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 13
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Heal"
 typ   [45] = "0x0F0C"
 pocet [45] = 4
 batoh [45] = batohNaPoitony
 barva2[45] = "0x08A7"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 3
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 2
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 4
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 0
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 0
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 for i = 1 to POLOZEK
  uo.findtype(typ[i],barva[i],'backpack')
  if (potion[i] == 1) then
   j = uo.count(typ[i],barva[i]) 
  else
   j = uo.getquantity('finditem')
  end if
  if (j > pocet[i]) then # do banku
   if (potion[i] == 1) then
    for ii = (pocet[i]+1) to j
     uo.waittargettype(typ[i],barva[i])
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
   else
    uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
   endif
   wait(pauza)
  else
   if (j < pocet[i]) then # z banku
    if (potion[i] == 1) then
    for ii = j to (pocet[i]-1)
     uo.findtype("0x0F0E","0x0000",batoh[i])
     if not uo.findcount() then
      uo.print("Nedostatek Prazdne lahve")
      uo.canceltarget()
      next
     endif
     uo.waittargetobject('finditem')
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
    else
     uo.findtype(typ[i],barva[i],batoh[i])
     if (uo.getquantity('finditem') < (pocet[i]-j)) then
      uo.print("Nedostatek "+ nazev[i])
     else
      uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
      wait(pauza)
     end if
    end if 
   end if
  end if
 next
uo.print("Nadrz mate plnou, pane")
end sub
#############################
sub ref_nula()
 var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4000540C"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4022BBC8"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x4020669C"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x40119821"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x400D7C39"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x4006BFF6"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif

 var POLOZEK = 58
 dim typ   [58]
 dim barva [58]
 dim pocet [58]
 dim batoh [58]
 dim nazev [58]
 dim potion[58]
 dim barva2[58]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 0
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 0
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 0
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 0
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 0
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 0
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 0
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 0
 batoh[8] = batohNaRegy

 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 0
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 0
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 0
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 0
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 0
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 0
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 0
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 0
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 0
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 0
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 0
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 0
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 0
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 0
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 0
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 0
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 0
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 0
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 0
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 0
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 0
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 0
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 0
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 0
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 0
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 0
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Heal"
 typ   [45] = "0x0F0C"
 pocet [45] = 0
 batoh [45] = batohNaPoitony
 barva2[45] = "0x08A7"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 0
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 0
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 0
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 0
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 0
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 for i = 1 to POLOZEK
  uo.findtype(typ[i],barva[i],'backpack')
  if (potion[i] == 1) then
   j = uo.count(typ[i],barva[i]) 
  else
   j = uo.getquantity('finditem')
  end if
  if (j > pocet[i]) then # do banku
   if (potion[i] == 1) then
    for ii = (pocet[i]+1) to j
     uo.waittargettype(typ[i],barva[i])
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
   else
    uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
   endif
   wait(pauza)
  else
   if (j < pocet[i]) then # z banku
    if (potion[i] == 1) then
    for ii = j to (pocet[i]-1)
     uo.findtype("0x0F0E","0x0000",batoh[i])
     if not uo.findcount() then
      uo.print("Nedostatek Prazdne lahve")
      uo.canceltarget()
      next
     endif
     uo.waittargetobject('finditem')
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
    else
     uo.findtype(typ[i],barva[i],batoh[i])
     if (uo.getquantity('finditem') < (pocet[i]-j)) then
      uo.print("Nedostatek "+ nazev[i])
     else
      uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
      wait(pauza)
     end if
    end if 
   end if
  end if
 next
uo.print("Nadrz mate PRAZDNOU, pane")
end sub

#############################

sub harvref()
  var i, ii, j, pauza = 500
 uo.msg("bank")
 wait(pauza+pauza)

 var batohNaRegy    = "0x4000540C"
 uo.findtype('-1','-1',batohNaRegy)
 if not uo.findcount() then
  uo.useObject(batohNaRegy)
  wait(pauza)
 endif

 var batohNaRegy2   = "0x4022BBC8"
 uo.findtype('-1','-1',batohNaRegy2)
 if not uo.findcount() then
  uo.useObject(batohNaRegy2)
  wait(pauza)
 endif

 var batohNaSvitky  = "0x4020669C"
 uo.findtype('-1','-1',batohNaSvitky)
 if not uo.findcount() then
  uo.useObject(batohNaSvitky)
  wait(pauza)
 endif

 var batohNaPoitony = "0x40119821"
 uo.findtype('-1','-1',batohNaPoitony)
 if not uo.findcount() then
  uo.useObject(batohNaPoitony)
  wait(pauza)
 endif

 var batohNaSpotrebak = "0x400D7C39"
 uo.findtype('-1','-1',batohNaSpotrebak)
 if not uo.findcount() then
  uo.useObject(batohNaSpotrebak)
  wait(pauza)
 endif

 var batohnaLoot      = "0x4006BFF6"
 uo.findtype('-1','-1',batohNaLoot)
 if not uo.findcount() then
  uo.useObject(batohnaLoot)
  wait(pauza)
 endif

 var POLOZEK = 58
 dim typ   [58]
 dim barva [58]
 dim pocet [58]
 dim batoh [58]
 dim nazev [58]
 dim potion[58]
 dim barva2[58]

 for i = 1 to POLOZEK
  barva [i] = "0x0000"
  barva2[i] = "0x0000"
  potion[i] = 0
 next 

 nazev[1] = "Spider Silk"
 typ  [1] = "0x0F8D"
 pocet[1] = 200
 batoh[1] = batohNaRegy 

 nazev[2] = "Sulphur Ash"
 typ  [2] = "0x0F8C"
 pocet[2] = 200
 batoh[2] = batohNaRegy 

 nazev[3] = "Black Pearl"
 typ  [3] = "0x0F7A"
 pocet[3] = 200
 batoh[3] = batohNaRegy 

 nazev[4] = "Nightshade"
 typ  [4] = "0x0F88"
 pocet[4] = 150
 batoh[4] = batohNaRegy 

 nazev[5] = "Blood Moss"
 typ  [5] = "0x0F7B"
 pocet[5] = 150
 batoh[5] = batohNaRegy 

 nazev[6] = "Garlic"
 typ  [6] = "0x0F84"
 pocet[6] = 160
 batoh[6] = batohNaRegy

 nazev[7] = "Ginseng"
 typ  [7] = "0x0F85"
 pocet[7] = 80
 batoh[7] = batohNaRegy

 nazev[8] = "Mandrake Root"
 typ  [8] = "0x0F86"
 pocet[8] = 200
 batoh[8] = batohNaRegy

 nazev[9] = "EoN"
 typ  [9] = "0x0F87"
 pocet[9] = 5
 batoh[9] = batohNaRegy

 nazev[10] = "Blue Eye"
 typ  [10] = "0x0F87"
 pocet[10] = 0
 batoh[10] = batohNaRegy
 barva[10] = "0x0005"

 nazev[11] = "Pumice"
 typ  [11] = "0x0F8B"
 pocet[11] = 10
 batoh[11] = batohNaRegy2

 nazev[12] = "Bat Wings"
 typ  [12] = "0x0F78"
 pocet[12] = 10
 batoh[12] = batohNaRegy2

 nazev[13] = "Brimstone"
 typ  [13] = "0x0F7F"
 pocet[13] = 25
 batoh[13] = batohNaRegy2

 nazev[14] = "Serpent Scales"
 typ  [14] = "0x0F8E"
 pocet[14] = 0
 batoh[14] = batohNaRegy2

 nazev[15] = "Wyrms Hearth"
 typ  [15] = "0x0F91"
 pocet[15] = 0
 batoh[15] = batohNaRegy2

 nazev[16] = "Blood Spawn"
 typ  [16] = "0x0F7C"
 pocet[16] = 25
 batoh[16] = batohNaRegy2

 nazev[17] = "Blackmoor"
 typ  [17] = "0x0F79"
 pocet[17] = 10
 batoh[17] = batohNaRegy2

 nazev[18] = "Executioners Cap"
 typ  [18] = "0x0F83"
 pocet[18] = 30
 batoh[18] = batohNaRegy2

 nazev[19] = "Obsidian"
 typ  [19] = "0x0F89"
 pocet[19] = 10
 batoh[19] = batohNaRegy2

 nazev[20] = "Vial Of Blood"
 typ  [20] = "0x0F7D"
 pocet[20] = 25
 batoh[20] = batohNaRegy2

 nazev[21] = "Bones"
 typ  [21] = "0x0F7E"
 pocet[21] = 33
 batoh[21] = batohNaRegy2

 nazev[22] = "Daemon Bones"
 typ  [22] = "0x0F80"
 pocet[22] = 10
 batoh[22] = batohNaRegy2

 nazev[23] = "Fertile Dirt"
 typ  [23] = "0x0F81"
 pocet[23] = 20
 batoh[23] = batohNaRegy2

 nazev[24] = "Volcanic Ash" 
 typ  [24] = "0x0F8F"
 pocet[24] = 10
 batoh[24] = batohNaRegy2

 nazev[25] = "Prachy"
 typ  [25] = "0x0EED"
 pocet[25] = 0
 batoh[25] = batohNaLoot

 nazev[26] = "Krvave bandy 1"
 typ  [26] = "0x0E20"
 pocet[26] = 0
 batoh[26] = batohNaSpotrebak

 nazev[27]= "Krvave bandy 2"
 typ  [27] = "0x0E22"
 pocet[27] = 0
 batoh[27] = batohNaSpotrebak

 nazev[28] = "Ciste bandy"
 typ  [28] = "0x0E21"
 pocet[28] = 50
 batoh[28] = batohNaSpotrebak

 nazev[29] = "Sipy"
 typ  [29] = "0x0F3F"
 pocet[29] = 0
 batoh[29] = batohNaSpotrebak

 nazev[30] = "Sipky"
 typ  [30] = "0x1BFB"
 pocet[30] = 0
 batoh[30] = batohNaSpotrebak

 nazev[31] = "Peri"
 typ  [31] = "0x1BD1"
 pocet[31] = 0
 batoh[31] = batohNaSpotrebak

 nazev[32] = "Salaty"
 typ  [32] = "0x09EC"
 pocet[32] = 0
 batoh[32] = batohNaSpotrebak
  
 nazev[33] = "Svitky Blesk" 
 typ  [33] = "0x1F4A"
 pocet[33] = 2
 batoh[33] = batohNaSvitky

 nazev[34] = "Svitky RESS"
 typ  [34] = "0x1F67"
 pocet[34] = 0
 batoh[34] = batohNaSvitky

 nazev[35] = "Svitky Teleport" 
 typ  [35] = "0x1F42"
 pocet[35] = 2
 batoh[35] = batohNaSvitky

 nazev[36] = "Svitky IJS"
 typ  [36] = "0x1F50"
 pocet[36] = 6
 batoh[36] = batohNaSvitky

 nazev[37] = "Svitky Energy Field"
 typ  [37] = "0x1F5E"
 pocet[37] = 2
 batoh[37] = batohNaSvitky

 nazev[38] = "Svitky Night Sight"
 typ  [38] = "0x1F33"
 pocet[38] = 0
 batoh[38] = batohNaSvitky

 nazev[39] = "Svitky Wall of Stone"
 typ  [39] = "0x1F44"
 pocet[39] = 0
 batoh[39] = batohNaSvitky

 nazev[40] = "Svitky IVM"
 typ  [40] = "0x1F49"
 pocet[40] = 0
 batoh[40] = batohNaSvitky

 nazev[41] = "Svitky KVF"
 typ  [41] = "0x1F5F"
 pocet[41] = 2
 batoh[41] = batohNaSvitky

 nazev[42] = "Svitky Para"
 typ  [42] = "0x1F52"
 pocet[42] = 2
 batoh[42] = batohNaSvitky

 nazev [43] = "Mana Reff"
 typ   [43] = "0x0F09"
 pocet [43] = 0
 batoh [43] = batohNaPoitony
 barva [43] = "0x0005"
 barva2[43] = "0x0005"
 potion[43] = 1

 nazev [44] = "TMR"
 typ   [44] = "0x0F09"
 pocet [44] = 10
 batoh [44] = batohNaPoitony
 barva [44] = "0x0003"
 barva2[44] = "0x0003"
 potion[44] = 1

 nazev [45] = "Greater Heal"
 typ   [45] = "0x0F0C"
 pocet [45] = 4
 batoh [45] = batohNaPoitony
 barva2[45] = "0x08A7"
 potion[45] = 1

 nazev [46] = "Greater Strength"
 typ   [46] = "0x0F09"
 pocet [46] = 3
 batoh [46] = batohNaPoitony
 barva2[46] = "0x0481"
 potion[46] = 1

 nazev [47] = "Greater Cure"
 typ   [47] = "0x0F07"
 pocet [47] = 2
 batoh [47] = batohNaPoitony
 barva2[47] = "0x0842"
 potion[47] = 1

 nazev [48] = "Total Stamina Reff"
 typ   [48] = "0x0F0B"
 pocet [48] = 3
 batoh [48] = batohNaPoitony
 barva2[48] = "0x014D"
 potion[48] = 1

 nazev [49] = "Invisibility"
 typ   [49] = "0x0F09"
 pocet [49] = 0
 batoh [49] = batohNaPoitony
 barva [49] = "0x0B77"
 barva2[49] = "0x0B77"
 potion[49] = 1
 
 nazev [50] = "Shrink"
 typ   [50] = "0x0F09"
 pocet [50] = 0
 batoh [50] = batohNaPoitony
 barva [50] = "0x045E"
 barva2[50] = "0x0724"
 potion[50] = 1

 nazev[51] = "Prazdne lahve"
 typ  [51] = "0x0F0E"
 pocet[51] = 0
 batoh[51] = batohNaPoitony

 nazev[52] = "Svitky Sipka"
 typ  [52] = "0x1F32"
 pocet[52] = 0
 batoh[52] = batohNaSvitky
 
 nazev[53] = "Svitky Energy Bolt"
 typ  [53] = "0x1F56"
 pocet[53] = 0
 batoh[53] = batohNaSvitky
 
 nazev[54] = "Svitky harm"
 typ  [54] = "0x1F38"
 pocet[54] = 0
 batoh[54] = batohNaSvitky

 nazev[55] = "Svitky Mind Blast"
 typ  [55] = "0x1F51"
 pocet[55] = 0
 batoh[55] = batohNaSvitky
 
 nazev[56] = "Zelena ryba"
 typ  [56] = "0x09CD"
 pocet[56] = 1
 batoh[56] = batohNaSpotrebak
 barva[56] = "0x0850"
 
 nazev[57] = "Bila ryba"
 typ  [57] = "0x09CD"
 pocet[57] = 1
 batoh[57] = batohNaSpotrebak
 barva[57] = "0x0482"
 
 nazev[58] = "Modra ryba"
 typ  [58] = "0x09CD"
 pocet[58] = 0
 batoh[58] = batohNaSpotrebak
 barva[58] = "0x084C"

 for i = 1 to POLOZEK
  uo.findtype(typ[i],barva[i],'backpack')
  if (potion[i] == 1) then
   j = uo.count(typ[i],barva[i]) 
  else
   j = uo.getquantity('finditem')
  end if
  if (j > pocet[i]) then # do banku
   if (potion[i] == 1) then
    for ii = (pocet[i]+1) to j
     uo.waittargettype(typ[i],barva[i])
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
   else
    uo.moveitem('finditem',str(j-pocet[i]),batoh[i])  
   endif
   wait(pauza)
  else
   if (j < pocet[i]) then # z banku
    if (potion[i] == 1) then
    for ii = j to (pocet[i]-1)
     uo.findtype("0x0F0E","0x0000",batoh[i])
     if not uo.findcount() then
      uo.print("Nedostatek Prazdne lahve")
      uo.canceltarget()
      next
     endif
     uo.waittargetobject('finditem')
     uo.findtype("0x1843",barva2[i],batoh[i])
     if not uo.findcount() then
      uo.canceltarget()
      next
     endif
     uo.useobject('finditem')
     wait(pauza)
    next
    else
     uo.findtype(typ[i],barva[i],batoh[i])
     if (uo.getquantity('finditem') < (pocet[i]-j)) then
      uo.print("Nedostatek "+ nazev[i])
     else
      uo.moveitem ('finditem',str(pocet[i]-j),'backpack')
      wait(pauza)
     end if
    end if 
   end if
  end if
 next
uo.print("Nadrz mate plnou, pane")
end sub

#############################

sub kop_NB_runa()
   var runa = 0x1F14 ;sem nadefinujte type vasi NB runy
   var barvaruny = 0x0B1D ;sem nadefinujte barvu vasi NB runy
   UO.FindType(runa, barvaruny, "my")
   UO.Set('norbcheck','1')
   UO.Set('norbcalc','1')
   UO.Recall("finditem", STR(1))
end sub

#############################

sub vendor() 
UO.exec('addobject Vendor') 
while UO.Targeting() 
wait(100) 
wend 
UO.Say(""+Uo.GetName("Vendor")+" buy") 
end sub

#############################

sub zesednuti_z_kone()
Uo.Useobject("self")
end sub


sub naskoceni_na_kone2()
Uo.Useobject("0x000FA3D5") ; doplnit ID svého mazlíčka
end sub

sub naskoceni_na_kone()
Uo.usefromground("0x00D2", "0x0966") ; doplnit ID svého mazlíčka
end sub
#############################

sub zbran()
Uo.Useobject("0x4012B1BF")
end sub


#############################

sub attack_enemy () # provede utok zbrani na cil - 'enemy'
    uo.attack('enemy')
end sub

#############################

sub select_enemy()
  UO.exec('addobject enemy');
  while UO.Targeting()
    wait(100)
  wend
  uo.print(Uo.GetName('enemy'))
end sub


###############################

#Najde nepritele a ulozi do objektu 'enemy'
#uplne na konci se da prepnout, jestli na PK rovnou zautoci, nebo
#jestli jen vypise jeho udaje

#!!!!!!!!!!!!!!!!!!!!! Zapnete na hlavni strance Yoka Track World Items
sub TargetNext()
#v. 1.3 
#od v1.2 opraven uo.set('lasttarget'...)
#od v1.1 pridany hlasky nad sebe, getstatus
var man='0x0190'
var woman='0x0191'
var notoriety1=5 #sem dejte 4, jestli chcete targetovat criminaly
var notoriety2=5
var notoriety3=6
var nalezeno
var resetovano = 0
UO.Ignore('self') 
UO.Set('finddistance', "20")

repeat
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
if not uo.findcount() then
#nikoho jsme nenasli. Pokud nebyl reset ignoru, resetujem a hledame znova
if not resetovano then 
UO.IgnoreReset()
UO.Ignore('self')
resetovano = 1 
uo.findtype(man, '-1', 'ground') #hledame muze
if not uo.findcount() then 
uo.findtype(woman, '-1', 'ground') #pokud nejsou muzi, hledame zeny 
endif
endif

endif
endif

if uo.findcount() then #nekoho jsme nalezli
If (UO.GetNotoriety('finditem')==Notoriety1) or (UO.GetNotoriety('finditem')==Notoriety2) or (UO.GetNotoriety('finditem')==Notoriety3) then
#nepritel je PK, sedivak nebo O/CH nepritel
UO.AddObject('enemy', 'finditem')
nalezeno = 1
endif 
UO.Ignore('finditem')
endif

until not uo.findcount() or uo.dead() or nalezeno 

If not nalezeno then
UO.Print('Nepritel nebyl zameren')
else
# tady muzete prepinat, jestli na nepritele zautocit, nebo jen vypsat udaje o nem
; uo.attack('enemy') #muzete zakomentovat a nedozvi se ze po nem jdete
uo.set('lasttarget',uo.getserial('enemy'))
; uo.print(Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
#lze vykopirovat do jinych skriptu
uo.getstatus('enemy')
uo.charprint("0x0030",Uo.GetName('enemy')+" "+str(Uo.GetHP('enemy')) + "/"+str(Uo.GetMaxHP('enemy'))) #vypsani hodnoty
endif

end sub


#########################

sub odlogCove() 
Uo.Useobject("0x401B11B3") 
end sub

#########################

sub debordelizace() 
var gp_type = "0x0EED" 
var gp_color = "0x0000" 
var x
var gh = uo.count("0x0F0C", "0x0000") 
var gs = uo.count ("0x0F09", "0x0000")
var gc = uo.count("0x0F07", "0x0000") 
var tr = uo.count("0x0F0B", "0x0000") 
var tmr = uo.count("0x0F09", "0x0003") 
var mr = uo.count("0x0F09", "0x0005") 

DIM regy[27] 
regy[0] = "0x0F7B" #BM 
regy[1] = "0x0F8C" #SA 
regy[2] = "0x0F7A" #BP 
regy[3] = "0x0F85" #GS 
regy[4] = "0x0F86" #MR 
regy[5] = "0x0F8D" #SS 
regy[6] = "0x0F84" #GL 
regy[7] = "0x0F88" #NS 
regy[8] = "0x0F87" #EON 
regy[9] = "0x0F89" #obsidian 
regy[10] = "0x0F7E" #bone 
regy[11] = "0x0F79" #blackmor 
regy[12] = "0x0F81" #feritle 
regy[13] = "0x0F78" #batwing 
regy[14] = "0x0F8F" #volcanic 
regy[15] = "0x0F8B" #pumice 
regy[16] = "0x0F80" #deamon bone 
regy[17] = "0x0F82" #dragon blood 
regy[18] = "0x0F7D" #dark blood 
regy[19] = "0x0F7C" #blodspawn 
regy[20] = "0x0F91" #wyrmheart 
regy[21] = "0x0F7D" #blood 
regy[22] = "0x0F8E" #serpent 
regy[23] = "0x0F83" #executioners 
regy[24] = "0x0F7F" #brimstone 
regy[25] = "0x0F87" #blue ocka 
regy[26] = "0x0F8A" #pig iron 
#regy[27] = "" #dead wood 
UO.Print("*Uklizim*")
For var i = 0 to 26 
UO.FindType(regy[i], -1, "backpack") 
If UO.FindCount() then 
UO.MoveItem("finditem", -1, "backpack", 110, 40, 0) 
Wait(750) 
EndIf 
Next 
UO.FindType(gp_type, gp_color, "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", -1, "backpack", 70, 40, 0) 
Wait(500) 
EndIf 
uo.print(str(gh)) 
x = 0
while x < gh 
UO.FindType("0x0F0C", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 90, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gs
UO.FindType("0x0F09", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 30, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gc
UO.FindType("0x0F07", "0x0000", "backpack")
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 60, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tr
UO.FindType("0x0F0B", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 120, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tmr
UO.FindType("0x0F09", "0x0003", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < mr
UO.FindType("0x0F09", "0x0005", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
UO.print("*Uklizeno*") 
end sub
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Jak jsem psal, autoload na xy charů dohromady mi dělal bordel, nevim proč, tak to mám vše zvlášť (x kopií yoka s autoloadama pro konkretní char). Další chary mám na exterňáku v práci, z který jsem se ulil kvůli paragrafu.... další neběžný scripty (nějakej harvest, gm mortar apod, na doptání, něco mám skladem něco na tom disku). Dost věci je společných, takže min půlka je shodná... s rozdílem id a typu apod
Erik Nighelt
Undead Scriber
Undead Scriber
Příspěvky: 835
Registrován: 24 zář 2006 22:56
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Erik Nighelt »

sub odlogCove()
Uo.Useobject("0x401B11B3")
end sub
nene :P si měl makro na sošku v tom domku dole?
Lepší lama kamarát ako skiller debil ;)
[Hated] je totiž něco jako sociální stigma.
-Posledním stupněm závisti je nenávist-

Filjins: Ty jo driv sem vypinal UO protoze proti me bylo moc lidi, tedka vypinam UO protoze neni ani hrac...
Uživatelský avatar
Xan
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1212
Registrován: 20 kvě 2007 16:04
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Xan »

Ja cekal, kdo se prvni ozve, ze si to procte :D tak rucne klikat na sochu v pidi domku vecne prozdenym, zapfkovanym a plnym pk, moc neslo :D ale nic proti pravidlum :D stejne tak jako makro na gejtu z runebooku :D vubec jsme nemohli za to, ze se pak zavedla moznost niceni gejty :D
Jooo to byly casy
Uživatelský avatar
Holy Blood Berry
Misspelling Chicken
Misspelling Chicken
Příspěvky: 7
Registrován: 28 srp 2018 02:20
Bydliště: Sheffield
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Holy Blood Berry »

Tohle je pro mě momentálně nejvíc podstatný topic na fórku.
Pročtu, něco doplnim do mojich starých skriptů a bude zase dobře.

Děkuju.

BB

Holy Blood Berry [Sharpshooter - Elder Ranger - The firstborn of Lady Blood Berry]
Carpe Noctem [Gangrel Clan - Lord Lestatte's lineage, The Guardian of Camarilla]
Uživatelský avatar
Johny Matovic
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1317
Registrován: 22 pro 2007 12:29
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Johny Matovic »

Qvido píše: 29 led 2019 21:00 Určitě, děkuju. Taky Vám to Yoko rozhodili všechny clienty - že když je teďka chci pustit samotné bez programu, tak mi píšou error, že nepodporují rozlišení? :)
Som to pisal do prveho prispevku.
Mal som to dat zrejme vacsim pismom :D
Phoenix vie pracovat aj s inym ako ofiko priecinkom.
Yoko len s povodnym.
Vyriesil som to tak, ze uo pre fenu mam inde ako uo pre yoko.
Sklb - okrasny clovek
Please, for fuck sake, no revolution.
Uživatelský avatar
Jesse James
Orc Writer
Orc Writer
Příspěvky: 51
Registrován: 28 zář 2006 17:19
Kontaktovat uživatele:

Re: Nove Yoko s novymi funkciami (hratelne na 1024x768)

Příspěvek od Jesse James »

Zdar všem. Potřebuji prosím help - to nové Yoko mi jede ale ne tak docela :D Za prvé: Mikeeho Client mi píše tu kravinu co psal někdo na straně 3 tohoto topicu, starý clienti mi ale jedou, přidal jsem Mikeeho do brany firewall a nic, poradí někdo?
Za druhé: proč když se lognu přes nové Yoko se nevidím na UO automapě? ukazuje to jako když bych se odlognul ze hry a nechal mapu zapnutou tak na těch souřadnicích se vidím. Poradí někdo jak na tyto dvě věci? Hlavně ta mapa teda.
*cenzurováno* --- Nevim sice kdo mi to smaznul, ale co na tom bylo spatnyho?
Odpovědět