Kód: Vybrat vše
sub Zbrane()
var zbran2h = "0x13B1" #Zde zadejte type dvourucni zbrane
var zbran1h = "0x1400" #Zde zadejte type jednorucni zbrane
var stit = "0x1B78" # zde zadejte type stitu
UO.findtype(zbran2h,'0x0000', -1, "backpack")
if (Uo.count(zbran2h,'0x0000') - Uo.findcount()) == 1 then
Uo.UseType(stit)
wait(100)
Uo.UseType(zbran1h)
else
Uo.UseType(zbran2h,'0x0000')
endif
endsub
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')
Uo.DeleteJournal()
wait(1000)
#psani
While NOT Uo.InJournal('You put') AND Uo.Count('0x14EB') == 1
UO.Deletejournal()
UO.WaitMenu('What sort','Regional Map') # TYP zapisovaných map
UO.Usetype('0x14EB') #blank mapa
repeat
wait(250)
until UO.InJournal('You put|trembling')
WEnd
wait(1000)
#recyklace
While Uo.Count('0x14EB') > 0
UO.DeleteJournal()
UO.WaitTargetType('0x14EB') #mapa
UO.Usetype('0x0FBE','0x0B98') #atlas
repeat
wait(250)
until UO.InJournal('Zrecykloval|Uschoval')
wait(1000)
WEnd
WEnd
end sub
Kód: Vybrat vše
sub Lockpiking()
var Klicek = '0x403554CA'
UO.AddObject("Odemikaci_Truhla")
While UO.Targeting()
Wait(100)
Wend
Wait(1000)
UO.AddObject("Odkud_Locky")
While UO.Targeting()
Wait(100)
Wend
While NOT Uo.Dead()
If Uo.Count('0x14FB') >= 1 THEN
Uo.DeleteJournal()
Uo.WaitTargetObject('Odemikaci_Truhla')
Uo.UseType('0x14FB')
repeat
Wait(500)
until Uo.InJournal('fail to unlock|attempt to unlock|cannot be lockpicked')
Wait(500)
If Uo.InJournal('cannot be lockpicked') THEN
Uo.WaitTargetObject('Odemikaci_Truhla')
Uo.UseObject(Klicek)
repeat
Wait(500)
until Uo.InJournal('You lock the')
EndIf
Wait(500)
Else
UO.FindType("0x14FB","0x0000","Odkud_Locky")
UO.MoveItem("finditem", 100, "backpack")
EndIf
Wait(500)
WEnd
endsub
Kód: Vybrat vše
sub lumber_2()
var f
var n
var x = 0
var sekera = 0x0F43
var u, o
uo.addobject("box1x")
while uo.targeting()
wait(500)
wend
uo.addobject("box2x")
while uo.targeting()
wait(500)
wend
uo.addobject("box",0x4013BE9F) ;na tohle nesahat
While NOT Uo.Dead()
uo.deletejournal()
uo.usetype(sekera)
repeat
wait(200)
until uo.injournal('You put the logs|There are no logs|You hack at|far away to chop.') AND Uo.InJournal('akce skoncila')
x = str(uo.count('0x1bdd','0x0000'))
If Uo.InJournal('You found something special') Then
dim color[5];
color[0] = 0x0522 ; Ebon
color[1] = 0x06D3 ; Fir
color[2] = 0x0979 ; Plum
color[3] = 0x0972 ; Lime
color[4] = 0x05A6 ; Oak
FOR f=0 TO 4
Uo.FindType('0x1BDD','color[f]','ground')
If UO.FindCount() > 0 Then
Uo.MoveItem('finditem','0','backpack')
Wait(500); pouza je nutna aby jste nebyli zavreny
end if
Next
UO.setJournalline(uo.injournal("You found something special")-1," ")
Wait(1000)
EndIf
uo.print(x)
if uo.injournal('There are no logs') then
uo.print('Vytezeno')
endif
wait(500)
while not uo.injournal('test|There are no logs|far away to chop.')
uo.deletejournal()
uo.waittargettile('lasttile')
uo.usetype(sekera)
repeat
wait(200)
#until uo.injournal('akce')
until uo.injournal('You put the logs|There are no logs|You hack at|far away to chop.') AND Uo.InJournal('akce skoncila')
x = str(uo.count('0x1bdd','0x0000'))
If Uo.InJournal('You found something special') Then
dim color2[5];
color2[0] = 0x0522 ; Ebon
color2[1] = 0x06D3 ; Fir
color2[2] = 0x0979 ; Plum
color2[3] = 0x0972 ; Lime
color2[4] = 0x05A6 ; Oak
FOR f=0 TO 4
Uo.FindType('0x1BDD','color2[f]','ground')
If UO.FindCount() > 0 Then
Uo.MoveItem('finditem','0','backpack')
Wait(1000); pouza je nutna aby jste nebyli zavreny
end if
Next
UO.setJournalline(uo.injournal("You found something special")-1," ")
Wait(1000)
EndIf
uo.print(x)
if uo.injournal('There are no logs') then
Uo.FindType('0x1BDD','0x0000','backpack')
If UO.FindCount() > 0 THEN
Uo.MoveItem('finditem', -1,'objekt')
Wait(100)
EndIf
uo.print('Vytezeno jdi na novy strom')
endif
wait(500)
wend
repeat
n = 0
u = UO.GetX()
o = UO.GetY()
Tahani_Dreva()
Wait(500)
While (u == UO.GetX() && o == UO.GetY()) AND n < 30
Wait(100)
n = n + 1
Wend
Until n == 30
WEnd
end sub
sub Tahani_Dreva()
var box1 = uo.getserial("box1x")
var box2 = uo.getserial("box2x")
var tempbox
var timerpresunu
var PocetHromadek
UO.Set('finddistance',4)
if uo.getserial("box") == "0x4013BE9F" then ;na tohle nesahat
uo.addobject("box",box1)
end if
uo.moveitem("box",-1,"ground")
PauzaPohybu1()
if uo.getserial("box") == box1 then
tempbox = box2
else
tempbox = box1
end if
uo.findtype("0x1bdd","0x0000",tempbox)
PocetHromadek = 20
while (uo.findcount()>0) and (PocetHromadek>0)
uo.moveitem("finditem",650,"box")
PauzaPohybu1()
save()
wait(100)
uo.findtype("0x1bdd","0x0000",tempbox)
PocetHromadek = PocetHromadek - 1
wend
uo.findtype("0x1bdd","0x0000","ground")
PocetHromadek = 3
while (uo.findcount()>0) and (PocetHromadek>0)
uo.moveitem("finditem",650,"box")
PauzaPohybu1()
save()
uo.findtype("0x1bdd","0x0000","ground")
PocetHromadek = PocetHromadek - 1
wend
uo.findtype("0x1bdd","0x0000","backpack")
while uo.findcount()
uo.moveitem("finditem",650,"box")
PauzaPohybu1()
save()
uo.findtype("0x1bdd","0x0000","backpack")
wend
uo.addobject("box",tempbox)
uo.moveitem("box",-1,"backpack")
UO.Set('finddistance',25)
Wait(200)
end sub
Kód: Vybrat vše
sub SipkaJa()
var n
While Uo.Count('0x0F7A') > 1 And Uo.Count('0x0F88') > 1
If Uo.Mana > 4 AND Uo.Life > 20 Then
UO.DeleteJournal()
UO.Cast("Magic Arrow","self")
Repeat
Wait(100)
Until UO.InJournal("The spell fizzles|In Por Ylem")
Wait(1750)
If Uo.InJournal('World save') THEN
Uo.DeleteJournal()
Wait(20000)
EndIf
Else
While UO.GetHP("self") < UO.GetMaxHP("self")
UO.DeleteJournal()
UO.BandageSelf()
Repeat
Wait(100)
Until UO.InJournal("You apply|You put the|Chces vytvorit mumii")
Wend
Wait(500)
While Uo.Mana < Uo.Int
If (Uo.Int - Uo.Mana) > 59 THEN
n = 0
uo.UseType('0x1843','0x0003') # keg
uo.WaitTargetType('0x0f0e')
wait(500)
Uo.Usetype('0x0F09','0x0003')
Wait(500)
repeat
Uo.UseSkill('Meditation')
n = n + 1
Wait(3000)
until n > 10 Or Uo.Mana == Uo.Int
else
Uo.UseSkill('Meditation')
Wait(3000)
Endif
WEnd
EndIf
WEnd
endsub
Kód: Vybrat vše
sub Muzician()
UO.AddObject("Nastroj")
While UO.Targeting()
Wait(100)
Wend
While NOT Uo.Dead()
Uo.UseObject('Nastroj')
Wait(7000)
WEnd
endsub
Kód: Vybrat vše
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 NbMortar = uo.count("0x0E9B", "0x0B87")
var MagicKey = uo.count("0x1012", "0x0000")
If 0 < NbRuna THEN
UO.FindType("0x1F14", "0x0B1D", "backpack")
If UO.FindCount() Then
UO.MoveItem("finditem", 1, "backpack", 10, 10, 0)
Wait(500)
EndIf
EndIf
If 0 < SpellBook THEN
UO.FindType("0x0EFA", "backpack")
If UO.FindCount() Then
UO.MoveItem("finditem", 1, "backpack", 30, 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", 50, 20, 0)
Wait(500)
EndIf
EndIf
If 0 < RuneBook THEN
UO.FindType("0x0FF0", "0x08A5", "backpack")
If UO.FindCount() Then
UO.MoveItem("finditem", 1, "backpack", 70, 20, 0)
Wait(500)
EndIf
EndIf
If 0 < TravelBook THEN
UO.FindType("0x0FEF", "0x0482", "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", 110, 20, 0)
Wait(500)
EndIf
EndIf
If 0 < DrawKnife THEN
UO.FindType("0x10E4", "0x0B80", "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", 170, 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", 190, 10, 0)
Wait(500)
EndIf
x = x + 1
wEnd
UO.print("*Narovnano*")
endsub
Kód: Vybrat vše
sub Training_Heal() ; Leci pocet nastavenych cilu
var HP,MHP,DMG,MIN,OBJ,TIME
var n=2 ; pocet lecenych
for var X=1 to n
UO.AddObject("OBJ"+str(X))
While UO.Targeting()
Wait(300)
Wend
next
Repeat
DMG=0
for X=1 to n
If UO.GetDistance("OBJ"+str(X))<=6 Then
MHP=UO.GetMaxHP("OBJ"+str(X))
HP=UO.GetHP("OBJ"+str(X))
If HP<MHP and (HP<MIN or NOT DMG) Then
OBJ="OBJ"+str(X)
MIN=HP
DMG=1
Endif
Endif
WAIT(50)
next
If DMG Then
UO.Print("Lecim "+UO.GetName(OBJ))
X=UO.Count("0x0e21")
Time=UO.Timer()
UO.WaitTargetObject(OBJ)
UO.UseType(0x0e21)
Repeat
Wait(100)
Until X>UO.Count("0x0e21") or (UO.Timer()-Time)>40
If (UO.Timer()-Time) < 5 Then
UO.WarMode(0)
Wait(500)
UO.WarMode(1)
Wait(500)
Endif
Endif
Wait(500)
Until UO.Dead() or UO.Count("0x0e21")<2
If NOT UO.Dead() THEN
for X=1 to 3
UO.Msg("Od sebe, dosly bandy!!")
Wait(2000)
next
Endif
end sub
Sub WaitForJournal(text)
repeat
wait(200)
until uo.inJournal(text)
wait(500)
end sub
sub Sparing() ; Mlati protivnika, kdyz ma nekdo malo HP leci
UO.AddObject('buchna')
While UO.Targeting()
Wait(300)
Wend
While NOT Uo.Dead() AND NOT Uo.GetHP('buchna') == 0
Uo.DeleteJournal()
If Uo.GetHP('self') > 50 AND Uo.GetHP('buchna') > 50 THEN
Uo.Attack('buchna')
Wait(5000)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Else
If Uo.GetHP('self') < Uo.GetHP('buchna') THEN
Uo.Print('Bod healu sebe')
While Uo.GetHP('self') < Uo.GetMaxHP('self')
Uo.WaitTargetSelf()
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
Wait(500)
While Uo.GetHP('buchna') < Uo.GetMaxHP('buchna')
Uo.WaitTargetObject('buchna')
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
Else
Uo.Print('Bod healu buchny')
While Uo.GetHP('buchna') < Uo.GetMaxHP('buchna')
Uo.WaitTargetObject('buchna')
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
Wait(500)
While Uo.GetHP('self') < Uo.GetMaxHP('self')
Uo.WaitTargetSelf()
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
EndIf
EndIf
WEnd
EndSub
sub Bouchani() ; Jen mlati cil
UO.AddObject('buchna')
While UO.Targeting()
Wait(300)
Wend
While NOT Uo.Dead() AND NOT Uo.GetHP('buchna') == 0
Uo.Attack('buchna')
Wait(10000)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
WEnd
EndSub
sub Sparing_Chuze() ; Mlati cil, kdyz ma nekdo malo HP udela krok od protivnika a leci
var p
UO.AddObject('buchna')
While UO.Targeting()
Wait(300)
Wend
While NOT Uo.Dead() AND NOT Uo.GetHP('buchna') == 0
Uo.DeleteJournal()
p=0
If Uo.GetHP('self') > 50 AND Uo.GetHP('buchna') > 50 THEN
Uo.Attack('buchna')
repeat
Wait(500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
p=p+1
until Uo.GetHP('self') < 51 Or Uo.GetHP('buchna') < 51 Or p > 9
Else
if UO.GetX("self") < UO.GetX("buchna") and UO.GetY("self") == UO.GetY("buchna") then
repeat
UO.Press(36,1,50)
Wait(500)
until uo.getdistance('buchna')==3
endif
if UO.GetX("self") > UO.GetX("buchna") and UO.GetY("self") == UO.GetY("buchna") then
repeat
UO.Press(34,1,50)
Wait(500)
until uo.getdistance('buchna')==3
endif
if UO.GetX("self") == UO.GetX("buchna") and UO.GetY("self") < UO.GetY("buchna") then
repeat
UO.Press(33,1,50)
Wait(500)
until uo.getdistance('buchna')==3
endif
if UO.GetX("self") == UO.GetX("buchna") and UO.GetY("self") > UO.GetY("buchna") then
repeat
UO.Press(35,1,50)
Wait(500)
until uo.getdistance('buchna')==3
endif
repeat
If Uo.GetHP('self') < Uo.GetHP('buchna') THEN
Uo.Print('Bod healu sebe')
While Uo.GetHP('self') < Uo.GetMaxHP('self')
Uo.WaitTargetSelf()
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
Wait(500)
While Uo.GetHP('buchna') < Uo.GetMaxHP('buchna')
Uo.WaitTargetObject('buchna')
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
Else
Uo.Print('Bod healu buchny')
While Uo.GetHP('buchna') < Uo.GetMaxHP('buchna')
Uo.WaitTargetObject('buchna')
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
Wait(500)
While Uo.GetHP('self') < Uo.GetMaxHP('self')
Uo.WaitTargetSelf()
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
WEnd
EndIf
if UO.GetX("self") < UO.GetX("buchna") and UO.GetY("self") == UO.GetY("buchna") then
repeat
UO.Press(34,1,100)
Wait(500)
until uo.getdistance('buchna')==1
endif
if UO.GetX("self") > UO.GetX("buchna") and UO.GetY("self") == UO.GetY("buchna") then
repeat
UO.Press(36,1,100)
Wait(500)
until uo.getdistance('buchna')==1
endif
if UO.GetX("self") == UO.GetX("buchna") and UO.GetY("self") < UO.GetY("buchna") then
repeat
UO.Press(35,1,100)
Wait(500)
until uo.getdistance('buchna')==1
endif
if UO.GetX("self") == UO.GetX("buchna") and UO.GetY("self") > UO.GetY("buchna") then
repeat
UO.Press(33,1,100)
Wait(500)
until uo.getdistance('buchna')==1
endif
EndIf
WEnd
EndSub
sub Archery() ; Stríli na cil kdyz ma nekdo malo HP nanda stit a leci
UO.AddObject('buchna')
While UO.Targeting()
Wait(300)
Wend
Uo.UseType("0x13B1","0x0000")
Wait(500)
While NOT Uo.Dead() AND NOT Uo.GetHP('buchna') == 0
Uo.DeleteJournal()
If Uo.GetHP('self') > 50 AND Uo.GetHP('buchna') > 50 THEN
Uo.Attack('buchna')
Wait(5000)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
If Uo.Count("0x0F3F") < 1 THEN
Uo.UseType("0x1EA0","0x0747")
Wait(500)
EndIf
Else
Uo.Usetype("0x1B78")
Wait(500)
repeat
Uo.DeleteJournal()
If Uo.GetHP('self') < 50 OR Uo.GetHP('buchna') == Uo.GetMaxHP('buchna') THEN
Uo.WaitTargetSelf()
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
Else
Uo.WaitTargetObject('buchna')
Uo.UseType('0x0E21')
Repeat
Wait(2500)
If Uo.InJournal('World save') THEN
Wait(20000)
EndIf
Until Uo.InJournal('You apply') OR Uo.InJournal('You put') Or ('Chces vytvorit')
EndIf
Wait(500)
Until Uo.GetHP('self') == Uo.GetMaxHP('self') AND Uo.GetHP('buchna') == Uo.GetMaxHP('buchna')
Uo.UseType("0x13B1","0x0000")
Wait(500)
EndIf
WEnd
EndSub
Kód: Vybrat vše
sub veterinary()
var jmeno1
var jmeno2
uo.print("Zvol 1. zviratko pro leceni")
uo.exec("addobject zviratko1")
While uo.targeting()
Wait(100)
Wend
jmeno1 = UO.GetName("zviratko1")
uo.print("Zvol 2. zviratko pro leceni")
uo.exec("addobject zviratko2")
While uo.targeting()
Wait(100)
Wend
jmeno2 = UO.GetName("zviratko2")
uo.exec("exec command")
var H= uo.GetMaxHP("zviratko1")*0.8
var P= uo.GetMaxHP("zviratko2")*0.8
While Uo.Count("0x0E21")>=1
While uo.GetHP("zviratko1") < H Or uo.GetHP("zviratko2") < P
uo.Say("all stop")
if uo.GetHP("zviratko1") < uo.GetMaxHP("zviratko1") And uo.GetHP("zviratko1") >= 1 then
uo.deletejournal()
uo.waittargetobject("zviratko1")
uo.usetype("0x0E21")
repeat
wait(300)
until uo.injournal("You put|barely help|mumii")
wait(500)
endif
if uo.GetHP("zviratko2") < uo.GetMaxHP("zviratko2") And uo.GetHP("zviratko2") >= 1 then
uo.deletejournal()
uo.waittargetobject("zviratko2")
uo.usetype("0x0E21")
repeat
wait(300)
until uo.injournal("You put|barely help|mumii")
wait(500)
endif
If uo.GetHP("zviratko2") < 1 Or uo.GetHP("zviratko1") < 1 THen
Uo.Say("All Stop")
goto nakonec
EndIf
WEnd
While uo.GetHP("zviratko1") > H And uo.GetHP("zviratko2") > P
uo.waittargetobject("zviratko1")
uo.Say(jmeno2 + " kill")
wait(500)
if uo.GetHP("zviratko1") < uo.GetMaxHP("zviratko1") then
uo.deletejournal()
uo.waittargetobject("zviratko1")
uo.usetype("0x0E21")
repeat
wait(300)
until uo.injournal("You put|barely help|mumii")
wait(500)
endif
uo.waittargetobject("zviratko2")
uo.Say(jmeno1 + " kill")
wait(500)
if uo.GetHP("zviratko2") < uo.GetMaxHP("zviratko2") then
uo.deletejournal()
uo.waittargetobject("zviratko2")
uo.usetype("0x0E21")
repeat
wait(300)
until uo.injournal("You put|barely help|mumii")
endif
wait(500)
WEnd
wait(500)
wend
nakonec:
wait(50)
Uo.Say("All Stop")
end sub
sub command()
var J= uo.GetMaxHP('zviratko1')*0.5
var K= uo.GetMaxHP('zviratko2')*0.5
while Not Uo.Dead()
If uo.GetHP('zviratko1') < J Or uo.GetHP('zviratko2') < K Then
Uo.Say('All Stop')
wait(3000)
If uo.GetHP('zviratko2') < 1 Or uo.GetHP('zviratko1') < 1 THen
Uo.Say('All Stop')
goto konec+
EndIf
If Not Uo.InJournal('What do you want to use') Then
If UO.GetMaxHP("zviratko1") - UO.GetHP("zviratko1") < UO.GetMaxHP("zviratko2") - UO.GetHP("zviratko2") Then
UO.Print(UO.GetMaxHP("zviratko1") - UO.GetHP("zviratko1"))
UO.WaitTargetObject("zviratko1")
UO.UseType("0x0e21")
repeat
wait(500)
until UO.InJournal("Chces vytvorit mumii?|You put the bloody bandagess in your pack.|You apply the bandages, but they barely help.")
Else
UO.Print(UO.GetMaxHP("zviratko2") - UO.GetHP("zviratko2"))
UO.WaitTargetObject("zviratko2")
UO.UseType("0x0e21")
repeat
wait(500)
until UO.InJournal("Chces vytvorit mumii?|You put the bloody bandagess in your pack.|You apply the bandages, but they barely help.")
EndIf
Uo.DeleteJournal()
EndIf
EndIf
wait(1500)
WEnd
konec1:
EndSub
