Rodovy scripty

Skripty pro Yoko Injection
Odpovědět
Uživatelský avatar
Rod Sacketts II
Paper Elemental
Paper Elemental
Příspěvky: 387
Registrován: 04 dub 2009 22:02
Kontaktovat uživatele:

Rodovy scripty

Příspěvek od Rod Sacketts II »

Prohazování zbraní:

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
Cartogrfy:

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
Lockpiking:

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
Lumber co tahá velké množství dřeva v pytliku:

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
Magery prez sipku na sebe:

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
Muzician:

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
Uspořádání Nb předmětů:

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
Trening Sparingu:

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
Veterinary:

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
Edit - Magery přez šipku
Naposledy upravil(a) Rod Sacketts II dne 14 úno 2015 18:39, celkem upraveno 2 x.
Uživatelský avatar
Rod Sacketts II
Paper Elemental
Paper Elemental
Příspěvky: 387
Registrován: 04 dub 2009 22:02
Kontaktovat uživatele:

Re: Rodovy scripty

Příspěvek od Rod Sacketts II »

Mining s ukládánim Ore do pytliku:

Kód: Vybrat vše

sub zadani_pytlu()
  Uo.Print('Ukaz postupne na oba pytle')
for var X=1 to 2
    UO.AddObject("pytlik"+str(X))
    While UO.Targeting()
        Wait(300)
    Wend
next
endsub

sub mining_S()
  Uo.Exec("exec mining_SW")
  return 0
endsub

sub mining_N()
  Uo.Exec("exec mining_NE")
  return 0
endsub


Sub mining_NE()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")+1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")-1)
            while not go(uo.getx("self")-1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")+1)
            wend
        wend
        while go2(uo.getx("self")+1,uo.gety("self"))
           pytliky()
        wend
        Uo.Exec("exec mining_NW")
        return 0
    endif
wend
end sub

Sub mining_NW()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")-1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")-1)
            while not go(uo.getx("self")+1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")+1)
            wend
        wend
        while go2(uo.getx("self")-1,uo.gety("self"))
           pytliky()
        wend
        Uo.Exec("exec mining_NE")
        return 0
    endif
wend
end sub

Sub mining_SW()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")-1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")+1)
            while not go(uo.getx("self")+1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")-1)
            wend
        wend
        while go2(uo.getx("self")-1,uo.gety("self"))
             pytliky()
        wend
        Uo.Exec("exec mining_SE")
        return 0
    endif
wend
end sub

Sub mining_SE()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")+1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")+1)
            while not go(uo.getx("self")-1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")-1)
            wend
        wend
        while go2(uo.getx("self")+1,uo.gety("self"))
           pytliky()
        wend
        Uo.Exec("exec mining_SW")
        return 0
    endif
wend
end sub


Sub go(x,y)
    var xx,yy
    repeat
        if uo.getx("self") < x then    ; x + 1 === E
            if uo.getdir("self")<>2 then
                uo.press(34,1,500)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(34,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
          pytliky()
           Wait(500)
        endif
       
   
        if uo.getx("self") > x then      ; x - 1 === W
            if uo.getdir("self")<>6 then
                uo.press(36,1,0)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(36,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
          pytliky()
           Wait(500)
        endif
       
   
        if uo.gety("self") < y then     ;  y + 1 === S
            if uo.getdir("self")<>4 then
                uo.press(35,1,0)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(35,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
          pytliky()
           Wait(500)
        endif
       
   
        if uo.gety("self") > y then      ;  y - 1 === N
            if uo.getdir("self")<>0 then
                uo.press(33,1,500)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(33,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
          pytliky()
           Wait(500)
        endif

   
    until uo.getx("self")==x and uo.gety("self")==y
    return 1
end sub

Sub go2(x,y)
    var xx,yy
    repeat
        if uo.getx("self") < x then    ; x + 1 === E
            if uo.getdir("self")<>2 then
                uo.press(34,1,500)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(34,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
        endif
       
   
        if uo.getx("self") > x then      ; x - 1 === W
            if uo.getdir("self")<>6 then
                uo.press(36,1,0)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(36,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
        endif
       
   
        if uo.gety("self") < y then     ;  y + 1 === S
            if uo.getdir("self")<>4 then
                uo.press(35,1,0)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(35,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
        endif
       
   
        if uo.gety("self") > y then      ;  y - 1 === N
            if uo.getdir("self")<>0 then
                uo.press(33,1,500)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(33,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
        endif

   
    until uo.getx("self")==x and uo.gety("self")==y
    return 1
end sub

Sub wait_for_move(x,y)
    var oldtime=uo.timer()
    repeat
        wait(100)
        if uo.timer()-oldtime>30 then
            return 0
        endif
    until uo.GetX("self") <> X or uo.GetY("self") <> Y
    return 1
end sub


Sub vyhaz2(returnik)
var d,i,y,p,kopecek
var pytlik
dim vyhazovat[18]
dim nechavat[18]
dim color[18]
#############################################################
#                                             
# Tady dopln co chces vyhazovat 0=nevyhazovat 1=v pytliku 2=vykopat a položit na zem 3=Nekopat   
#                                             
############################                         
vyhazovat[0]=3 #Iron                             
vyhazovat[1]=3 #Copper                             
vyhazovat[2]=1 #Bronze                             
vyhazovat[3]=1 #Silver                             
vyhazovat[4]=1 #Shadow                             
vyhazovat[5]=1 #Rose                             
vyhazovat[6]=1 #Golden                             
vyhazovat[7]=1 #Verite                             
vyhazovat[8]=1 #Valorite                           
vyhazovat[9]=1 #Blood Rock                           
vyhazovat[10]=0 #Black Rock                           
vyhazovat[11]=0 #Mytheril                           
vyhazovat[12]=0 #Star Sapphire                       
vyhazovat[13]=1 #Emerald                         
vyhazovat[14]=0 #Citrine                           
vyhazovat[15]=0 #Amethyst                           
vyhazovat[16]=1 #Ruby                             
vyhazovat[17]=0 #Diamond                           
#############################
color[0]=0x0000 #Iron
color[1]=0x0289 #Copper
color[2]=0x01BF #Bronze
color[3]=0x0482 #Silver
color[4]=0x0322 #Shadow
color[5]=0x0665 #Rose
color[6]=0x0160 #Golden
color[7]=0x01CB #Verite
color[8]=0x0253 #Valorite
color[9]=0x04C2 #Blood Rock
color[10]=0x0455 #Black Rock
color[11]=0x052D #Mytheril
color[12]=0x0006 #Star Sapphire
color[13]=0x0041 #Emerald
color[14]=0x002C #Citrine
color[15]=0x0015 #Amethyst
color[16]=0x0027 #Ruby
color[17]=0x03E9 #Diamond
dim typ_ore[4]
typ_ore[0]="0x19B7" # 1
typ_ore[1]="0x19BA" # 2
typ_ore[2]="0x19B8" # 3
typ_ore[3]="0x19B9" # 4


  If Uo.Count(Uo.GetGraphic('pytlik1'), UO.GetColor('pytlik1')) == 1 THEN
    Uo.AddObject("pytlik","pytlik2")
  Else
    Uo.AddObject("pytlik","pytlik1")
  EndIf
   for d=0 to 17
    If Uo.InJournal('World save') THEN
      Uo.DeleteJournal()
       Wait(20000)
    EndIf
    if vyhazovat[d]==1 then
        for i=0 to 3
            uo.findtype(typ_ore[i],color[d],"backpack")
            while uo.findcount()
                If Uo.InJournal('World save') THEN
                   Wait(20000)
                EndIf
                uo.moveitem("finditem",-1,"pytlik")
                wait(500)
                uo.findtype(typ_ore[i],color[d],"backpack")
                If Uo.InJournal('World save') THEN
                  Uo.DeleteJournal()
                   Wait(20000)
                EndIf
            wend
        next
    endif
    if vyhazovat[d]==2 AND Uo.InJournal("There is no|Try mining") then
        for i=0 to 3
            uo.findtype(typ_ore[i],color[d],"backpack")
            while uo.findcount()
                If Uo.InJournal('World save') THEN
                   Wait(20000)
                EndIf
                uo.moveitem("finditem",-1,"ground")
                wait(500)
                uo.findtype(typ_ore[i],color[d],"backpack")
                if returnik==2 then
                    return 2
                endif
                If Uo.InJournal('World save') THEN
                  Uo.DeleteJournal()
                   Wait(20000)
                EndIf
            wend
        next
    endif
    if vyhazovat[d]==3 then
        for i=0 to 3
            uo.findtype(typ_ore[i],color[d],"backpack")
            while uo.findcount()
                If Uo.InJournal('World save') THEN
                   Wait(20000)
                EndIf
                uo.moveitem("finditem",-1,"ground")         ######### ground = zem, pytlik = vzit sebou
                wait(500)
                uo.findtype(typ_ore[i],color[d],"backpack")
                if returnik==1 then
                    return 1
                endif
            wend
            If Uo.InJournal('World save') THEN
              Uo.DeleteJournal()
               Wait(20000)
            EndIf
        next
    endif
   next

return 0
end sub

Sub WaitForJournal(text)
   repeat
      wait(200)
   until uo.inJournal(text)
   wait(500)
end sub

sub pytliky()
var boxz, boxdo

   Wait(500)
  If Uo.Count(Uo.GetGraphic('pytlik1'), UO.GetColor('pytlik1')) == 1   THEN
  
    Uo.AddObject("boxz","pytlik2")
    Uo.AddObject("boxdo","pytlik1") 
  
    UO.MoveItem("pytlik1", -1, "ground")
     Wait(500)
      prendani() 
    UO.MoveItem("pytlik2", -1, "backpack") 
  Else
    If Uo.Count(Uo.GetGraphic('pytlik2'), UO.GetColor('pytlik2')) == 1  THEN
    
    Uo.AddObject("boxz","pytlik1")
    Uo.AddObject("boxdo","pytlik2") 
    
      UO.MoveItem("pytlik2", -1, "ground")
       Wait(500)
      prendani()     
      UO.MoveItem("pytlik1", -1, "backpack")
    Else
      Uo.Print('Chyba  pytliku')
    EndIf
  EndIf
   Wait(500)
EndSub


Sub prendani()
var c, t, h

Uo.UseObject('boxz')
  Wait(250)

wait(100)
  dim color[18]
  color[0]=0x0000 #Iron
  color[1]=0x0289 #Copper
  color[2]=0x01BF #Bronze
  color[3]=0x0482 #Silver
  color[4]=0x0322 #Shadow
  color[5]=0x0665 #Rose
  color[6]=0x0160 #Golden
  color[7]=0x01CB #Verite
  color[8]=0x0253 #Valorite
  color[9]=0x04C2 #Blood Rock
  color[10]=0x0455 #Black Rock
  color[11]=0x052D #Mytheril
  color[12]=0x0006 #Star Sapphire
  color[13]=0x0041 #Emerald
  color[14]=0x002C #Citrine
  color[15]=0x0015 #Amethyst
  color[16]=0x0027 #Ruby
  color[17]=0x03E9 #Diamond
  dim typ_ore[4]
  typ_ore[0]="0x19B7" # 1
  typ_ore[1]="0x19BA" # 2
  typ_ore[2]="0x19B8" # 3
  typ_ore[3]="0x19B9" # 4
  
    for t=0 to 3
        for c=0 to 17
            uo.findtype(typ_ore[t],color[c],'boxz')
              while uo.findcount()
                If Uo.InJournal('World save') THEN
                   Wait(20000)
                EndIf
                uo.moveitem("finditem",100,"boxdo")
                 wait(450)
                uo.findtype(typ_ore[t],color[c],"boxz")
                 Wait(50)
              wend
               Wait(50)
              If Uo.InJournal('World save') THEN
                Uo.DeleteJournal()
                 Wait(20000)
              EndIf
        next
    next
   Wait(500)
EndSub
Crafting:

Kód: Vybrat vše

sub Hinge()						; 1 iron ingot
  While Uo.Count('0x1BEF','0x0000') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Parts','Parts','Hinge')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub Springs()						; 1 iron ingot
  While Uo.Count('0x1BEF','0x0000') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Parts','Parts','Springs')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub Nails()						; 1 iron ingot
  While Uo.Count('0x1BEF','0x0000') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Parts','Parts','Nails')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub Board()          ; 2 Logs
  While Uo.Count('0x1BDD','0x0000') > 1
     Uo.DeleteJournal()
     UO.WaitMenu('Carpentry','Miscellaneous','Miscellaneous','Boards')
     UO.UseType("0x1035","0x0000")
       Wait(1000)
     repeat
        Wait(200)
     until UO.InJournal('You put') OR UO.InJournal('fail')
     EndIf
      Wait(500)
    EndIf
  WEnd
end sub

sub Barel_Lid() # 2 Logy/ 2 Board
  UO.Print('Ukaz na Bednu s materialem')
  UO.AddObject('Bedna_Materialu')
  While UO.Targeting()
     Wait(500)
  Wend
   Wait(100)
  Uo.UseObject("Bedna_Materialu")
  While NOT Uo.Dead()
  
    UO.FindType("0x1BD7",-1,"Bedna_Materialu")
    If Uo.FindCount()  THEN
      UO.MoveItem("finditem", 2,"backpack")
       Wait(500)
    Else 
     UO.FindType("0x1BDD",-1,"Bedna_Materialu")
     If Uo.FindCount()  THEN
       UO.MoveItem("finditem", 2,"backpack")
        Wait(500)
     EndIf
     Uo.DeleteJournal()
     UO.WaitMenu('Carpentry','Miscellaneous','Miscellaneous','Boards')
     UO.UseType("0x1035","0x0000")
       Wait(1000)
     repeat
        Wait(200)
     until UO.InJournal('You put') OR UO.InJournal('fail')
     EndIf
      Wait(500)
    EndIf
    If Uo.Count('0x1BDD') < 2 THEN
      UO.FindType("0x1BDD",-1,"Bedna_Materialu")
      If Uo.FindCount()  THEN
        UO.MoveItem("finditem", 2,"backpack")
         Wait(500)
      EndIf
    EndIf
    While Uo.Count('0x1BD7') >= 2
      Uo.DeleteJournal()
      UO.WaitMenu('Carpentry','Containers & Cont. parts','Containers & Cont. parts','Barrel Lid')
      UO.UseType("0x1035","0x0000")
       Wait(1000)
      repeat
         Wait(200)
      until UO.InJournal('You put') OR UO.InJournal('fail')
       Wait(500)
    WEnd
    UO.FindType("0x1DB8",-1,"backpack")
    If Uo.FindCount()  THEN
      UO.MoveItem("finditem", -1,"Bedna_Materialu")
       Wait(500)
    EndIf
    
  WEnd
end sub

sub Barel_Staves() # 3 Logy
  UO.Print('Ukaz na Bednu s materialem')
  UO.AddObject('Bedna_Materialu')
  While UO.Targeting()
     Wait(500)
  Wend
   Wait(100)
  Uo.UseObject("Bedna_Materialu")
  While NOT Uo.Dead()
  
    UO.FindType("0x1BDD",-1,"Bedna_Materialu")
    If Uo.FindCount()  THEN
      UO.MoveItem("finditem", 3,"backpack")
       Wait(500)
      While Uo.Count('0x1BDD') >= 3
        Uo.DeleteJournal()
        UO.WaitMenu('Carpentry','Containers & Cont. parts','Containers & Cont. parts','Barrel Staves')
        UO.UseType("0x1035","0x0000")
         Wait(1000)
        repeat
           Wait(300)
        until UO.InJournal('You put') OR UO.InJournal('fail')
         Wait(500)
      WEnd
      UO.FindType("0x1EB1",-1,"backpack")
      If Uo.FindCount()  THEN
        UO.MoveItem("finditem", -1,"Bedna_Materialu")
         Wait(500)
      Else
         Wait(3500)
      EndIf
    EndIf
  WEnd
end sub

sub Bedna_Hrebiku()
uo.print('Ukaz na Bednu s materialem')
uo.AddObject('Bedna_Materialu')
While uo.targeting()
   Wait(100)
Wend
  Wait(500)
UO.UseObject('Bedna_Materialu')
uo.print('Ukaz na Bednu na Lode')
uo.AddObject('Bedna_odkladani')
While uo.targeting()
   Wait(100)
Wend
  Wait(500)
UO.UseObject('Bedna_odkladani')

  While NOT Uo.Dead()
      UO.FindType("0x1BDD",-1,"Bedna_Materialu")
      If Uo.FindCount()  THEN
        UO.MoveItem("finditem", 20, "backpack")
         Wait(500)
      EndIf
      UO.FindType("0x1BEF",-1,"Bedna_Materialu")
      If Uo.FindCount()  THEN
        UO.MoveItem("finditem", 250, "backpack")
         Wait(500)
      EndIf
      Uo.DeleteJournal()
      UO.WaitMenu('Carpentry','Containers & Cont. parts','Containers & Cont. parts','Bedna hrebiku')
      UO.UseType('0x1035','0x0000')
       Wait(1000)
      repeat
         Wait(200)
      until UO.InJournal('You put') OR UO.InJournal('fail')
       Wait(500)
      UO.FindType("0x0E3E",-1,"backpack")
      If Uo.FindCount()  THEN
        UO.MoveItem("finditem", -1, "Bedna_odkladani")
         Wait(500)
      EndIf
  Wend
end sub

sub Iron_Wire()						; 1 iron ingot
  While Uo.Count('0x1BEF','0x0000') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Wires','Wires','Iron Wire')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub Copper_Wire()						; 1 copper ingot
  While Uo.Count('0x1BE3','0x0000') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Wires','Wires','Copper Wire')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub Silver_Wire()						; 1 iron ingot
  While Uo.Count('0x1BF5','0x0000') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Wires','Wires','Silver Wire')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub Gold_Wire()						; 1 iron ingot
  While Uo.Count('0x1BEF','0x0000') > 0 AND Uo.Count('0x1BE9','0x0000')
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Wires','Wires','Gold Wire')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub String()						; 1 iron ingot
  While Uo.Count('0x1BEF','0x0000') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Wires','Wires','Iron Wire')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
     Wait(1000)
    If Uo.Count('0x1876','0x0000') > 0 Then
      Uo.DeleteJournal()
      Uo.WaitMenu('Tinkering','Wires','Wires','Iron String')
      Uo.UseType("0x1EBC")
      repeat
         Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
       Wait(1000)
      If Uo.Count('0x1420','0x0000')>24 AND Uo.Count('0x1BEF','0x0000')>0 Then
        Uo.DeleteJournal()
        Uo.WaitMenu('Blacksmith','Tools','Tools','Spulka dratu')
        Uo.UseType('0x13E3','0x0B87')
        Uo.WaitTargetType('0x1BEF','0x0000')
        repeat
           Wait(100)
        until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
         Wait(1000)
      EndIf
    EndIf
  WEnd
endsub

sub Wooden_Box() ; 3 Iron ingot a 4 Logs
  While Uo.Count('0x1BEF') > 2 AND Uo.Count('0x1BDD') > 3
    Repeat
      If Uo.Count('0x1BEF') < 1 THEN
        Return 0
      EndIf
      Uo.DeleteJournal()
      Uo.WaitMenu('Tinkering','Parts','Parts','Hinge')
      Uo.UseType("0x1EBC")
      repeat
         Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
     Wait(500)
    Until Uo.Count('0x1055') == 2
    Repeat
      If Uo.Count('0x1BEF') < 1 THEN
        Return 0
      EndIf
      Uo.DeleteJournal()
      Uo.WaitMenu('Tinkering','Parts','Parts','Nails')
      Uo.UseType("0x1EBC")
      repeat
         Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
     Wait(500)
    Until Uo.Count('0x102E') == 1
    Uo.DeleteJournal()
    UO.WaitMenu('Carpentry','Containers & Cont. parts','Containers & Cont. parts','Wooden Box')
    UO.UseType('0x1035','0x0000')
     Wait(1000)
    repeat
       Wait(200)
    until UO.InJournal('You put') OR UO.InJournal('fail')
     Wait(500)
  WEnd
endsub

sub RechargeAmethist()						; 1 Amethist, 1 Gold Ingot
  While Uo.Count('0x0F16') > 0 AND Uo.Count('0x1BE9') > 0
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Special Items','Special Items','Recharge Crystal +1')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub RechargeCitrine()						; 3 Citrine, 3 Gold Ingot
  While Uo.Count('0x0F15') > 2 AND Uo.Count('0x1BE9') > 2
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Special Items','Special Items','Recharge Crystal +3')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub RechargeDiamont()						; 5 Diamont, 5 Gold Ingot
  While Uo.Count('0x0F26') > 4 AND Uo.Count('0x1BE9') > 4
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Special Items','Special Items','Recharge Crystal +5')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub CB()          ; 5 gold ingot + 5 Silver ingots/wire
  while UO.Count('0x1BE9','0x0000')>4 And (UO.Count('0x1BF5','0x0000')>4 OR UO.Count('0x1877','0x0000')>4)
    If Uo.Count('0x1877','0x0000') < 5 THEN
      If Uo.Count('0x1BE9','0x0000') >4 THEN
        repeat
          UO.WaitMenu('Tinkering','Wires','Wires','Silver Wire')
          UO.Usetype('0x1EBC')
          UO.DeleteJournal()
           Wait(1000)
          repeat
             Wait(100)
          until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
           Wait(500)
        Until Uo.Count('0x1877') == 5
      EndIf
    Else
      UO.WaitMenu('Tinkering','Special Items','Special Items','Crystal Ball (1 charge)')
      UO.Usetype('0x1EBC')
      UO.DeleteJournal()
       Wait(1000)
      repeat
         Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
       Wait(500)
    EndIf
  WEnd   
end sub

sub MB()          ; 1 gold ingot + 5 cooper ingot + 2 iron ingot + 3 Star saphiri + 1 amber
  while UO.Count('0x1BE9')>0 And UO.Count('0x1BE3')>4 And UO.Count('0x1BEF')>1 And UO.Count('0x0F0F')>2 And UO.Count('0x0F25')>0
    While UO.Count('0x1BE3')>0 And UO.Count('0x1879')<6
      UO.WaitMenu('Tinkering','Wires','Wires','Copper Wire')
      UO.Usetype("0x1EBC")
      UO.DeleteJournal()
       Wait(1000)
        repeat
       Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
    WEnd
    While UO.Count('0x1BEF')>0 And UO.Count('0x105D')<3
      UO.WaitMenu('Tinkering','Parts','Parts','Springs')
      UO.Usetype('0x1EBC')
      UO.DeleteJournal()
       Wait(1000)
        repeat
       Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
    WEnd

    UO.WaitMenu('Tinkering','Special Items','Special Items','Magic Ball')
    UO.Usetype('0x1EBC')
         UO.DeleteJournal()
         Wait(1000)
           repeat
         Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
  WEnd   
end sub

sub Vlasce()           ;2 iron ingoty + 4 thread
  While UO.Count('0x1BEF')>1 And UO.Count('0x0FA0')>3
    IF UO.Count('0x1BEF')>0 THEN
      UO.WaitMenu('Tinkering','Wires','Wires','Iron Wire')
      UO.Usetype('0x1EBC')
      UO.DeleteJournal()
       Wait(1000)
        repeat
       Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
      If UO.Count('0x1876')>0 THEN
        UO.WaitMenu('Tinkering','Wires','Wires','Iron String')
        UO.Usetype('0x1EBC')
        UO.DeleteJournal()
         Wait(1000)
          repeat
         Wait(100)
        until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
      End If
    End If
    If UO.Count('0x1420')>1 And UO.Count('0x0FA0')>3 THEN
      UO.WaitMenu('Tinkering','Wires','Wires','Vlasec')
      UO.Usetype('0x1EBC')
      UO.DeleteJournal()
       Wait(1000)
        repeat
       Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
    End If
  WEnd
end sub

sub UOAB()            ; 5 Gold Ingotu + 10 Furs + 15 Logu
  While Not UO.Dead()
  
    ####### UAB ######
    If UO.Count('0x09A8') >= 1 Then
      If UO.Count('0x1BDD') > 4 And UO.Count('0x11FA') > 4 Then
        UO.WaitMenu('Tinkering','Containers','Containers','Animal Box')
        UO.Usetype('0x1EBC')
        UO.DeleteJournal()
         Wait(1000)
        repeat
             Wait(100)
        until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
         Wait(1000)
      End If
       Wait(1000)
    End If
     Wait(1000)

    ######## AB #######
    If UO.Count('0x09A8') >= 1 Then
      If UO.Count('0x1BDD') > 4 And UO.Count('0x11FA') > 4 Then
        UO.WaitMenu('Tinkering','Containers','Containers','Animal Box')
        UO.Usetype('0x1EBC')
        UO.DeleteJournal()
         Wait(1000)
        repeat
             Wait(100)
        until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
         Wait(1000)
      End If
       Wait(1000)
    End If
     Wait(1000)
    
    ####### Golden Box ###########
    If UO.Count('0x1BE9')>4 And UO.Count('0x1BDD')>4 THEN
      UO.WaitMenu('Tinkering','Containers','Containers','Golden Box (N)')
      UO.Usetype("0x1EBC")
      UO.DeleteJournal()
       Wait(1000)
      repeat
          Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
      Wait(1000)
    End If
     Wait(1000)

  WEnd
endsub

sub Armor_Renamer()               ; 4 logs, 8 iron ingot, 4 thread, 4 cloth
  While UO.Count('0x1BDD')>3 And UO.Count('0x1BEF')>7 And UO.Count('0x0FA0')>3 And UO.Count('0x175D')>3
    While UO.Count('0x1420')<5
      If UO.Count('0x1BEF')>4 THEN
        UO.WaitMenu('Tinkering','Wires','Wires','Iron Wire')
        UO.Usetype("0x1EBC")
        UO.DeleteJournal()
         Wait(1000)
        repeat
           Wait(100)
        until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
        If UO.Count('0x1876')>=1 THEN
          UO.WaitMenu('Tinkering','Wires','Wires','String')
          UO.Usetype('0x1EBC')
          UO.DeleteJournal()
           Wait(1000)
          repeat
             Wait(100)
          until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
        EndIf
      EndIf
    WEnd
    UO.WaitMenu('Tinkering','Deed to modify Armors & Weapons name')
    UO.Usetype('0x1EBC')
    UO.DeleteJournal()
     Wait(1000)
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
  WEnd
Endsub

sub Container_Renamer()               ; 4 logs, 8 iron ingot, 4 thread, 4 cloth
  While UO.Count('0x1BDD')>3 And UO.Count('0x1BEF')>7 And UO.Count('0x0FA0')>3 And UO.Count('0x175D')>3
    While UO.Count('0x1420')<5
      If UO.Count('0x1BEF')>4 THEN
        UO.WaitMenu('Tinkering','Wires','Wires','Iron Wire')
        UO.Usetype("0x1EBC")
        UO.DeleteJournal()
         Wait(1000)
        repeat
           Wait(100)
        until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
        If UO.Count('0x1876')>=1 THEN
          UO.WaitMenu('Tinkering','Wires','Wires','String')
          UO.Usetype('0x1EBC')
          UO.DeleteJournal()
           Wait(1000)
          repeat
             Wait(100)
          until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
        EndIf
      EndIf
    WEnd
    UO.WaitMenu('Tinkering','Containers renamer')
    UO.Usetype('0x1EBC')
    UO.DeleteJournal()
     Wait(1000)
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
  WEnd
Endsub


sub Locky50()						; 50 Bronze ingotu
  While Uo.Count('0x1BEF','0x06D6') > 49
    Uo.DeleteJournal()
    Uo.WaitMenu('Tinkering','Tools','Tools','50x Lockpick')
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
   Wait(500)
  WEnd
endsub

sub Tamburiny()						; 1 Iron Ingot, 3 Logs
  While Uo.Count("0x1BDD","0x0000") > 2 AND Uo.Count("0x1BEF","0x0000") >= 1
    Uo.DeleteJournal()
    Uo.WaitMenu("Tinkering","Instruments","Instruments","Tambourine with Tassle")
    Uo.UseType("0x1EBC")
    repeat
       Wait(100)
    until UO.InJournal("You put") OR UO.InJournal("Tinkering failed")
   Wait(500)
  WEnd
endsub

sub Lode()
uo.print('Ukaz na Bednu s materialem')
uo.AddObject('Bedna_Materialu')
While uo.targeting()
   Wait(100)
Wend
  Wait(500)
UO.UseObject('Bedna_Materialu')
uo.print('Ukaz na Bednu na Lode')
uo.AddObject('Bedna_lodi')
While uo.targeting()
   Wait(100)
Wend
  Wait(500)
UO.UseObject('Bedna_lodi')


  While NOT Uo.Dead()
    IF Uo.Count("0x1BD7")<250 THEN                     #######   Prkna
      UO.FindType("0x1BD7",-1,"Bedna_Materialu")
      If Uo.FindCount() AND Uo.Count("0x1BD7") == 0 THEN
        UO.MoveItem("finditem", 250, "backpack")
         Wait(500)
      Else
          repeat
            UO.FindType("0x1BDD","0x0000","Bedna_Materialu")
            IF Uo.FindCount() THEN
              UO.MoveItem("finditem", 2, "backpack")
               Wait(500)
            Else
              Return 0
            EndIf
            Uo.DeleteJournal()
             Wait(250)
            UO.WaitMenu('Carpentry','Miscellaneous','Miscellaneous','Boards')
            UO.UseType('0x1035','0x0000')
             Wait(1000)
            repeat
               Wait(200)
            until UO.InJournal('You put') OR UO.InJournal('fail')
             Wait(1500)
          Until Uo.Count('0x1BD7') > 249
      EndIf
    EndIf
    If Uo.Count('0x1BDD') < 30 THEN                  ####### Drevo
      UO.FindType("0x1BDD",-1,"Bedna_Materialu")
      If Uo.FindCount() THEN
        UO.MoveItem("finditem", 30, "backpack")
         Wait(500)
      EndIf
    EndIf
    If Uo.Count('0x175D') < 20 THEN                   ####### latky
      UO.FindType("0x175D",-1,"Bedna_Materialu")
      If Uo.FindCount() THEN
        UO.MoveItem("finditem", 20, "backpack")
         Wait(500)
      EndIf
    EndIf
    If Uo.Count('0x1055') < 20 THEN                   ####### hinge
      UO.FindType("0x1055",-1,"Bedna_Materialu")
      If Uo.FindCount() THEN
        UO.MoveItem("finditem", 20, "backpack")
         Wait(500)
      Else
        UO.FindType("0x1BEF",-1,"Bedna_Materialu")
        If Uo.FindCount() THEN
          UO.MoveItem("finditem", 20, "backpack")
           Wait(500)
        EndIf
        Repeat
          Uo.DeleteJournal()
          Uo.WaitMenu('Tinkering','Parts','Parts','Hinge')
          Uo.UseType("0x1EBC")
          repeat
             Wait(100)
          until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
           Wait(500)
        Until Uo.Count('0x1055') > 19
      EndIf
    EndIf
    If Uo.Count('0x102E') < 35 THEN                   ####### Nails
      UO.FindType("0x09A9",-1,"Bedna_Materialu")
      If Uo.FindCount() THEN
        Repeat
          While Uo.Count('0x102E') < 35
            UO.FindType("0x09A9",-1,"Bedna_Materialu")
            If Uo.FindCount() THEN
              Uo.Moveitem('finditem', -1, 'backpack')
               Wait(10)
              Uo.UseObject('finditem')
               Wait(750)
            EndIf 
          WEnd
        Until Uo.Count('0x102E') > 34
      Else
        UO.FindType("0x1BEF",-1,"Bedna_Materialu")
        If Uo.FindCount() THEN
          UO.MoveItem("finditem", 35, "backpack")
           Wait(500)
          repeat
            Uo.DeleteJournal()
            Uo.WaitMenu('Tinkering','Parts','Parts','Nails')
            Uo.UseType("0x1EBC")
            repeat
               Wait(100)
            until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
             Wait(500)
          Until Uo.Count('0x102E') == 35
        EndIf
      EndIf 
    EndIf
    Uo.DeleteJournal()
     Wait(250)
    UO.WaitMenu('Carpentry','Deeds to Ships','Deeds to Ships','Deed to a small ship')
    UO.UseType('0x1035','0x0000')
     Wait(1000)
    repeat
       Wait(200)
    until UO.InJournal('You put') OR UO.InJournal('fail')
     Wait(1500)
    If Uo.Count('0x14F1') >= 1 THEN
      UO.FindType('0x14F1',-1,'backpack')
      If UO.FindCount() Then
        UO.MoveItem('finditem','1','Bedna_lodi')
      EndIf
       Wait(250)
    EndIf
  Wend
end sub

sub krabice_kadi()                       ; Logy, Ore, Bronz, Steeves,Lid/Board/Logs

var forma = '0x0E7F'    ; color = 0x0909
var bednaforem = '0x0FAE'     ; color =0x0909 
var kad = '0x1843'
var krabicekadi = '0x185E'    ;   color = 0x07E0
var lid = '0x1DB8'
var steeves = '0x1EB1'
var prkna = '0x1BD7'
var log = '0x1BDD'

 uo.print('Ukaz na Bednu s materialem')
 uo.AddObject('Bedna_Materialu')
 While uo.targeting()
   Wait(100)
 Wend
  Wait(500)
 UO.UseObject('Bedna_Materialu')
 
 uo.print('Ukaz na Bednu kam s výsledkem')
 uo.AddObject('Bedna_Na_Kade')
 While uo.targeting()
   Wait(100)
 Wend
  Wait(500)
 UO.UseObject('Bedna_Na_Kade')

  While NOT Uo.Dead()
    If Uo.Count(kad) <= 19 THEN
      If Uo.Count(forma) == 0 THEN
        If Uo.Count(log) == 0 THEN
          UO.FindType(log,-1,'Bedna_Materialu')
          If UO.FindCount() Then
            UO.MoveItem('finditem','2','backpack')
             Wait(250)
          EndIf
        EndIf
        If Uo.Count(steeves) >= 2 AND Uo.Count(lid) >= 2 THEN
          Uo.DeleteJournal()
          UO.WaitMenu('Carpentry','Containers & Cont. parts','Containers & Cont. parts','Forma na lahve')
          UO.UseType('0x1035','0x0000')
           Wait(1000)
          repeat
             Wait(200)
          until UO.InJournal('You put') OR UO.InJournal('fail')
           Wait(500)
        Else
          If Uo.Count(steeves) <= 1 THEN
            UO.FindType(steeves,-1,'Bedna_Materialu')
            If UO.FindCount() Then
              UO.MoveItem('finditem','2','backpack')
               Wait(250)
            Else
              repeat
                UO.FindType(log,-1,'Bedna_Materialu')
                If UO.FindCount() Then
                  UO.MoveItem('finditem','3','backpack')
                   Wait(250)
                EndIf
                If Uo.Count(log) >= 3 THEN
                  Uo.DeleteJournal()
                  UO.WaitMenu('Carpentry','Containers & Cont. parts','Containers & Cont. parts','Barrel Staves')
                  UO.UseType('0x1035','0x0000')
                     Wait(1000)
                  repeat
                     Wait(200)
                  until UO.InJournal('You put') OR UO.InJournal('fail')
                   Wait(500) 
                EndIf
              Until Uo.Count(Steeves) == 2
            EndIf
          EndIf
          If Uo.Count(lid) <= 1 THEN
            UO.FindType(lid,-1,'Bedna_Materialu')
            If UO.FindCount() Then
              UO.MoveItem('finditem','2','backpack')
               Wait(250)
            Else
              repeat
                If Uo.Count(prkna) < 2 THEn
                  UO.FindType(prkna,-1,'Bedna_Materialu')
                  If UO.FindCount() Then
                    UO.MoveItem('finditem','2','backpack')
                     Wait(250)
                  Else
                    repeat
                      UO.FindType(log,-1,'Bedna_Materialu')
                      If UO.FindCount() Then
                        UO.MoveItem('finditem','2','backpack')
                         Wait(250)
                      EndIf
                      If Uo.Count(log) >=2 THEN
                        Uo.DeleteJournal()
                        UO.WaitMenu('Carpentry','Miscellaneous','Miscellaneous','Boards')
                        UO.UseType('0x1035','0x0000')
                         Wait(1000)
                        repeat
                           Wait(200)
                        until UO.InJournal('You put') OR UO.InJournal('fail')
                         Wait(500)  
                      EndIf
                    Until Uo.Count(prkna) >= 2
                  EndIf
                EndIf
                If Uo.Count(prkna) >= 2 THEN
                  Uo.DeleteJournal()
                  UO.WaitMenu('Carpentry','Containers & Cont. parts','Containers & Cont. parts','Barrel Lid')
                  UO.UseType('0x1035','0x0000')
                     Wait(1000)
                  repeat
                     Wait(200)
                  until UO.InJournal('You put') OR UO.InJournal('fail')
                   Wait(500) 
                EndIf
              Until Uo.Count(lid) == 2
            EndIf
          EndIf
        EndIf
      Else
        If Uo.Count(log) >= 2 And Uo.Count('0x1BEF','0x06D6') >= 1 AND (Uo.Count('0x19BA') >= 2 OR Uo.Count('0x19B9') >= 2) THEN
          Uo.DeleteJournal()
          UO.WaitMenu('Tinkering','Containers','Containers','Kad na potiony')
          UO.UseType('0x1EBC','0x0000')
           Wait(1000)
          repeat
             Wait(200)
          until UO.InJournal('You put') OR UO.InJournal('fail')
           Wait(500)
        Else
          Uo.Print('refujem')
          If Uo.Count('0x1BDD') <= 1 THEN
            UO.FindType('0x1BDD',-1,'Bedna_Materialu')
            If UO.FindCount() Then
              UO.MoveItem('finditem','2','backpack')
               Wait(5)
            EndIf
             Wait(250)
          EndIf
          If Uo.Count('0x19B9') <= 1 THEN
            UO.FindType('0x19B9',-1,'Bedna_Materialu')
            If UO.FindCount() Then
              UO.MoveItem('finditem','2','backpack')
               Wait(5)
            EndIf
             Wait(250)
          EndIf
          If Uo.Count('0x1BEF','0x06D6') == 0 THEN
            UO.FindType('0x1BEF',-1,'Bedna_Materialu')
            If UO.FindCount() Then
              UO.MoveItem('finditem','2','backpack')
               Wait(5)
            EndIf
             Wait(250)
          EndIf
        EndIf
      EndIf
    Else
      If Uo.Count(log) == 0 THEn
        UO.FindType(log,-1,'Bedna_Materialu')
        If UO.FindCount() Then
          UO.MoveItem('finditem','2','backpack')
        EndIf
         Wait(250)
      EndIf
      If Uo.Count(kad) >= 20 AND Uo.Count(log) >= 1 THEN
        Uo.DeleteJournal()
        UO.WaitMenu('Carpentry','Miscellaneous','Miscellaneous','Krabice kadi')
        UO.UseType('0x1035','0x0000')
         Wait(1000)
        repeat
           Wait(100)
        until UO.InJournal('You put') OR UO.InJournal('fail')
         Wait(500)
      EndIf
    EndIf
    If Uo.Count(krabicekadi) >=1 THEN
      UO.FindType(krabicekadi,-1,'backpack')
      If UO.FindCount() Then
        UO.MoveItem('finditem','1','Bedna_Na_Kade')
      EndIf
    EndIf
  WEnd
 
EndSub

sub Krumpace()
  While Uo.Count('0x1BEF') > 3 AND Uo.Count('0x1BDD') >= 1
    Uo.DeleteJournal()
    Uo.WaitMenu('Blacksmith','Tools','Tools','Pick axe')
    Uo.UseType('0x13E3')
    Uo.WaitTargetType('0x1BEF','0x0000')
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
     Wait(1000)
  WEnd
endsub

sub Sekery()
  While Uo.Count('0x1BEF') > 3 AND Uo.Count('0x1BDD') >= 1
    Uo.DeleteJournal()
    Uo.WaitMenu('Blacksmith','Tools','Tools','Hatchet')
    Uo.UseType('0x13E3')
    Uo.WaitTargetType('0x1BEF','0x0000')
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
     Wait(1000)
  WEnd
endsub

sub Botky()
  While Uo.Count('0x1067') > 19 AND Uo.Count('0x0FA0') > 9
    Uo.DeleteJournal()
    Uo.WaitMenu('Leather','Footwear','Footwear','Thigh Boots of Invulnerability')
    Uo.UseType('0x0F9D')
    Uo.WaitTargetType('0x1067','0x0000')
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tailoring failed')
     Wait(3000)
  WEnd
endsub

sub Leather_pouch() ; 2 Hides a 1 thread
  While Uo.Count('0x1067') > 1 AND Uo.Count('0x0FA0') >= 1
    Uo.DeleteJournal()
    Uo.WaitMenu('Leather','Packs','Packs','Leather Pouch')
    Uo.UseType('0x0F9D')
    Uo.WaitTargetType('0x1067','0x0000')
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tailoring failed')
     Wait(3000)
  WEnd
endsub

sub Backpack() ; 6 Hides a 3 thread
  While Uo.Count('0x1067') > 5 AND Uo.Count('0x0FA0') > 2
    Uo.DeleteJournal()
    Uo.WaitMenu('Leather','Packs','Packs','Backpack')
    Uo.UseType('0x0F9D')
    Uo.WaitTargetType('0x1067','0x0000')
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tailoring failed')
     Wait(3000)
  WEnd
endsub

sub Zastera() ; 6 cloth a 1 thread
  While Uo.Count('0x175D') > 5 AND Uo.Count('0x0FA0') >= 1
    Uo.DeleteJournal()
    Uo.WaitMenu('Cloth','Miscellaneous','Miscellaneous','Half Apron')
    Uo.UseType('0x0F9D')
    Uo.WaitTargetType('0x175D','0x0000')
    repeat
       Wait(100)
    until UO.InJournal('You put') OR UO.InJournal('Tailoring failed')
     Wait(3000)
  WEnd
endsub

sub kudly_verite()
  While Uo.Count("0x1BEF","0x07D1") >= 1
    Uo.DeleteJournal()
    Uo.UseType('0x13E3')
    Uo.WaitTargetType('0x1BEF','0x07D1')
     Wait("250")
    UO.AutoMenu("Blacksmithing","Verite Weapons")
     Wait("250")
    UO.AutoMenu("Verite Weapons","Verite Swords & Blades")
     Wait("250")
    UO.AutoMenu("Verite Swords & Blades","Verite Dager")
     Wait("500")
    Uo.Cancelmenu()
    repeat
       Wait("100")
    until UO.InJournal('You put') OR UO.InJournal('failed')
     Wait(1500)
  Wend
endsub

sub Formy_Kamenovek()
  While Uo.Count('0x0EED','0x0B81') > 499 AND Uo.Count('0x1BF5','0x0000') > 9 AND (Uo.Count('0x1BE9','0x0000') > 9 OR Uo.Count('0x1878','0x0000') > 9)
    If Uo.Count('0x1878','0x0000') > 9 THEN
      Uo.DeleteJournal()
      Uo.WaitMenu('Tinkering','Special Items','Special Items','Star Stone Weapon Form')
      Uo.UseType("0x1EBC")
      repeat
         Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
     Wait(500)
    Else
      Uo.DeleteJournal()
      Uo.WaitMenu('Tinkering','Wires','Wires','Gold Wire')
      Uo.UseType("0x1EBC")
      repeat
         Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
     Wait(500)
    EndIf
  WEnd
endsub

sub Dying_Tub()
  While Uo.Count("0x1BDD","0x0000") > 7 AND Uo.Count("0x1BE3","0x0000") >= 1
    If Uo.Count("0x1EB1","0x0000") < 2 THEN
      Repeat
        Uo.DeleteJournal()
        UO.WaitMenu("Carpentry","Containers & Cont. parts","Containers & Cont. parts","Barrel Staves")
        UO.UseType("0x1035","0x0000")
         Wait(1000)
        repeat
           Wait(300)
        until UO.InJournal("You put") OR UO.InJournal("fail")
         Wait(500)
      Until Uo.Count("0x1EB1","0x0000") == 2
    EndIf
    If Uo.Count("0x1DB8","0x0000") < 1 THEN
      Repeat
        If Uo.Count("0x1BD7","0x0000") > 1 THEN
          Uo.DeleteJournal()
          UO.WaitMenu("Carpentry","Containers & Cont. parts","Containers & Cont. parts","Barrel Lid")
          UO.UseType("0x1035","0x0000")
           Wait(1000)
          repeat
             Wait(200)
          until UO.InJournal("You put") OR UO.InJournal("fail")
           Wait(500)
        Else
          Uo.DeleteJournal()
          UO.WaitMenu("Carpentry","Miscellaneous","Miscellaneous","Boards")
          UO.UseType("0x1035","0x0000")
           Wait(1000)
          repeat
             Wait(200)
          until UO.InJournal("You put") OR UO.InJournal("fail")
           Wait(500)
        EndIf
      Until Uo.Count("0x1DB8","0x0000") == 1
    EndIf
    If Uo.Count("0x10E1","0x0000") < 1 THEN
      Repeat
        Uo.DeleteJournal()
        Uo.WaitMenu("Tinkering","Parts","Parts","Barrel Hoops")
        Uo.UseType("0x1EBC")
        repeat
           Wait(100)
        until UO.InJournal("You put") OR UO.InJournal("Tinkering failed")
         Wait(500)
      Until Uo.Count("0x10E1","0x0000") == 1
    EndIf
    Uo.DeleteJournal()
    UO.WaitMenu("Carpentry","Containers & Cont. parts","Containers & Cont. parts","Dying Tub")
    UO.UseType("0x1035","0x0000")
     Wait(1000)
    repeat
       Wait(200)
    until UO.InJournal("You put") OR UO.InJournal("fail")
     Wait(500)
  WEnd
endsub

sub Bottle_bedna()
  UO.AddObject("odkud")
  While UO.Targeting()
    Wait(100)
  Wend

  While NOT Uo.Dead()
    Uo.UseObject('odkud')
     Wait(100)
    If Uo.Count("0x1BDD") >= 1 And Uo.Count("0x19B9") > 4 THEN
      Uo.DeleteJournal()
      Uo.WaitMenu('Tinkering','Containers','Containers','Bottle')
      Uo.UseType("0x1EBC")
      repeat
         Wait(100)
      until UO.InJournal('You put') OR UO.InJournal('Tinkering failed')
    Else
      If Uo.Count("0x1BDD")<1 Then
        UO.FindType("0x1BDD","0x0000","odkud")
        UO.MoveItem("finditem", 10, "backpack")
         Wait(500)
      EndIf
       Wait(500)
      If Uo.Count("0x19B9")<5 Then
        UO.FindType("0x19B9","0x0000","odkud")   ### Iron
;        UO.FindType("0x19B9","0x0289","odkud")   ### Copper
        UO.MoveItem("finditem", 50, "backpack")
         Wait(500)
      EndIf
       Wait(500)
      UO.FindType("0x0F0E","backpack")
      UO.MoveItem("finditem", -1, "odkud")
       Wait(500)
    EndIf
  WEnd
endsub

sub Vareni()
  UO.AddObject("Kotlik")
  While UO.Targeting()
    Wait(100)
  Wend

  While NOT Uo.Dead()
    Uo.UseObject('Kotlik')
      Wait(5500)
  WEnd
endsub

sub Presun() ;Presune itemy
  UO.AddType('predmet')
  While UO.Targeting()
     Wait(500)
  Wend
  UO.AddObject('cil')
  While UO.Targeting()
     Wait(500)
  Wend
   Wait(100)
               # 11 radek
  Uo.FindType('predmet', 'backpack')
  While Uo.FindCount()
    Uo.MoveItem('finditem', -1, 'cil')
     Wait(1000)
    Uo.FindType('predmet', 'backpack')
  WEnd
endsub
Edit12: mining
Uživatelský avatar
Paryzek
Slime Flourisher
Slime Flourisher
Příspěvky: 19
Registrován: 04 úno 2015 21:41
Bydliště: Východní Čechy

Re: Rodovy scripty

Příspěvek od Paryzek »

Zdar, zkoušel jsem to makro na magerku přes šipku na sebe s dohealováním a meditkou. Nevím ale zdá se mi že to jede celý nějak rychle (radši jsem to po chvilce vypnul) jsou tam ty pauzy v pořádku?
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: Rodovy scripty

Příspěvek od Xan »

ok pauzu poznáš při savu, jestli to po ukončení savu zalaguje a zaspamuje journal a nebo ti to napíš hlášku, aby sis opravil makra:) když ne, je to ok
Uživatelský avatar
Rod Sacketts II
Paper Elemental
Paper Elemental
Příspěvky: 387
Registrován: 04 dub 2009 22:02
Kontaktovat uživatele:

Re: Rodovy scripty

Příspěvek od Rod Sacketts II »

No pauza tam je 1750 po hození šipky.... Ta šipka může fíznout / nebo tě zasáhnout a to už se snad ani nedá ověřit kdy fízla proto tam je ta pauza na tvrdo.... Kůli Xanovi tam hodim Word Save hlídání.
Jestli se ti ta pauza zdá krátká změň ji z 1750 na 2500

Jak to budu mít pod rukou na tréning zkusim ještě vypozorovat všechny možnosti. Ale myslim že jsem to tak napsal kůli tomu že to líp nešlo ( ošetřit na hlášky )
Paryzek píše:Zdar, zkoušel jsem to makro na magerku přes šipku na sebe s dohealováním a meditkou. Nevím ale zdá se mi že to jede celý nějak rychle (radši jsem to po chvilce vypnul) jsou tam ty pauzy v pořádku?
Pauza má bejt 500, mam tam 1750 s tim že ta šipka chvíli trvá vykouzlit...
Svarog
Misspelling Chicken
Misspelling Chicken
Příspěvky: 1
Registrován: 29 čer 2015 10:58

Re: Rodovy scripty

Příspěvek od Svarog »

nemel by si neco na treneni bs
po 10 letech uz mi stare scripty nejedou
Uživatelský avatar
Rod Sacketts II
Paper Elemental
Paper Elemental
Příspěvky: 387
Registrován: 04 dub 2009 22:02
Kontaktovat uživatele:

Re: Rodovy scripty

Příspěvek od Rod Sacketts II »

Mining bez pytlu

Kód: Vybrat vše

sub mining_S()
  Uo.Exec("exec mining_SW")
  return 0
endsub

sub mining_N()
  Uo.Exec("exec mining_NE")
  return 0
endsub


Sub mining_NE()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")+1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")-1)
            while not go(uo.getx("self")-1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")+1)
            wend
        wend
        while go(uo.getx("self")+1,uo.gety("self"))
		  Wait(500)
          If go(uo.getx("self"),uo.gety("self")+1) then
            Wait(500)
            Uo.Exec("exec mining_NE")
            return 0
          endif
        wend
        Uo.Exec("exec mining_NW")
        return 0
    endif
wend
end sub

Sub mining_NW()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")-1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")-1)
            while not go(uo.getx("self")+1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")+1)
            wend
        wend
        while go(uo.getx("self")-1,uo.gety("self"))
           Wait(500)
          If go(uo.getx("self"),uo.gety("self")+1) then
            Wait(500)
            Uo.Exec("exec mining_NW")
            return 0
          endif
        wend
        Uo.Exec("exec mining_NE")
        return 0
    endif
wend
end sub

Sub mining_SW()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")-1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")+1)
            while not go(uo.getx("self")+1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")-1)
            wend
        wend
        while go(uo.getx("self")-1,uo.gety("self"))
          Wait(500)
          If go(uo.getx("self"),uo.gety("self")-1) then
            Uo.Exec("exec mining_SW")
            return 0
          endif
        wend
        Uo.Exec("exec mining_SE")
        return 0
    endif
wend
end sub

Sub mining_SE()
var mx,my,mz

while not uo.dead()
    uo.deletejournal()
    mx = UO.GetX("self")
    my = UO.GetY("self")
    mz = UO.GetZ("self")
    vyhaz2(0)
    repeat
        uo.deletejournal()
        uo.waittargettile("0",mx,my,mz)
        UO.usetype("0x0E85")
        repeat
            wait(100)
        until uo.injournal("There is no|You put|You loosen|Try mining|You destroy") AND Uo.InJournal('...akce skoncila')
        wait(2000)
    until uo.injournal("There is no") or uo.injournal("Try mining") or vyhaz2(1)
    wait(2000)
    vyhaz2(0)
    uo.print("Neni ruda")
    if not go(uo.getx("self")+1,uo.gety("self")) then
        while not go(uo.getx("self"),uo.gety("self")+1)
            while not go(uo.getx("self")-1,uo.gety("self"))
              go(uo.getx("self"),uo.gety("self")-1)
            wend
        wend
        while go(uo.getx("self")+1,uo.gety("self"))
           Wait(500)
          If go(uo.getx("self"),uo.gety("self")-1) then
            Wait(500)
            Uo.Exec("exec mining_SE")
            return 0
          endif
        wend
        Uo.Exec("exec mining_SW")
        return 0
    endif
wend
end sub


Sub go(x,y)
    var xx,yy
    repeat
        if uo.getx("self") < x then    ; x + 1 === E
            if uo.getdir("self")<>2 then
                uo.press(34,1,500)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(34,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
           Wait(500)
        endif
       
   
        if uo.getx("self") > x then      ; x - 1 === W
            if uo.getdir("self")<>6 then
                uo.press(36,1,0)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(36,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
           Wait(500)
        endif
       
   
        if uo.gety("self") < y then     ;  y + 1 === S
            if uo.getdir("self")<>4 then
                uo.press(35,1,0)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(35,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
           Wait(500)
        endif
       
   
        if uo.gety("self") > y then      ;  y - 1 === N
            if uo.getdir("self")<>0 then
                uo.press(33,1,500)
            endif
            xx=uo.getx("self")
            yy=uo.gety("self")
            uo.press(33,1,100)
            if not wait_for_move(xx,yy) then
                return 0
            endif
           Wait(500)
        endif

   
    until uo.getx("self")==x and uo.gety("self")==y
    return 1
end sub

Sub wait_for_move(x,y)
    var oldtime=uo.timer()
    repeat
        wait(100)
        if uo.timer()-oldtime>30 then
            return 0
        endif
    until uo.GetX("self") <> X or uo.GetY("self") <> Y
    return 1
end sub


Sub vyhaz2(returnik)
var d,i,y,p,kopecek
var pytlik
dim vyhazovat[18]
dim nechavat[18]
dim color[18]
#############################################################
#                                             
# Tady dopln co chces vyhazovat 0=nevyhazovat 1=vykopat a položit na zem 2=Nekopat   
#                                             
############################                         
vyhazovat[0]=2 #Iron                             
vyhazovat[1]=2 #Copper                             
vyhazovat[2]=0 #Bronze                             
vyhazovat[3]=2 #Silver                             
vyhazovat[4]=2 #Shadow                             
vyhazovat[5]=2 #Rose                             
vyhazovat[6]=2 #Golden                             
vyhazovat[7]=2 #Verite                             
vyhazovat[8]=2 #Valorite                           
vyhazovat[9]=2 #Blood Rock                           
vyhazovat[10]=0 #Black Rock                           
vyhazovat[11]=0 #Mytheril                           
vyhazovat[12]=0 #Star Sapphire                       
vyhazovat[13]=1 #Emerald                         
vyhazovat[14]=0 #Citrine                           
vyhazovat[15]=0 #Amethyst                           
vyhazovat[16]=1 #Ruby                             
vyhazovat[17]=0 #Diamond                           
#############################
color[0]=0x0000 #Iron
color[1]=0x0289 #Copper
color[2]=0x01BF #Bronze
color[3]=0x0482 #Silver
color[4]=0x0322 #Shadow
color[5]=0x0665 #Rose
color[6]=0x0160 #Golden
color[7]=0x01CB #Verite
color[8]=0x0253 #Valorite
color[9]=0x04C2 #Blood Rock
color[10]=0x0455 #Black Rock
color[11]=0x052D #Mytheril
color[12]=0x0006 #Star Sapphire
color[13]=0x0041 #Emerald
color[14]=0x002C #Citrine
color[15]=0x0015 #Amethyst
color[16]=0x0027 #Ruby
color[17]=0x03E9 #Diamond
dim typ_ore[4]
typ_ore[0]="0x19B7" # 1
typ_ore[1]="0x19BA" # 2
typ_ore[2]="0x19B8" # 3
typ_ore[3]="0x19B9" # 4


  If Uo.Count(Uo.GetGraphic('pytlik1'), UO.GetColor('pytlik1')) == 1 THEN
    Uo.AddObject("pytlik","pytlik2")
  Else
    Uo.AddObject("pytlik","pytlik1")
  EndIf
   for d=0 to 17
    If Uo.InJournal('World save') THEN
      Uo.DeleteJournal()
       Wait(20000)
    EndIf
    endif
    if vyhazovat[d]==1 AND Uo.InJournal("There is no|Try mining") then
        for i=0 to 3
            uo.findtype(typ_ore[i],color[d],"backpack")
            while uo.findcount()
                If Uo.InJournal('World save') THEN
                   Wait(20000)
                EndIf
                uo.moveitem("finditem",-1,"ground")
                wait(500)
                uo.findtype(typ_ore[i],color[d],"backpack")
                if returnik==2 then
                    return 2
                endif
                If Uo.InJournal('World save') THEN
                  Uo.DeleteJournal()
                   Wait(20000)
                EndIf
            wend
        next
    endif
    if vyhazovat[d]==2 then
        for i=0 to 3
            uo.findtype(typ_ore[i],color[d],"backpack")
            while uo.findcount()
                If Uo.InJournal('World save') THEN
                   Wait(20000)
                EndIf
                uo.moveitem("finditem",-1,"ground") 
                wait(500)
                uo.findtype(typ_ore[i],color[d],"backpack")
                if returnik==1 then
                    return 1
                endif
            wend
            If Uo.InJournal('World save') THEN
              Uo.DeleteJournal()
               Wait(20000)
            EndIf
        next
    endif
   next

return 0
end sub

Sub WaitForJournal(text)
   repeat
      wait(200)
   until uo.inJournal(text)
   wait(500)
end sub
Uživatelský avatar
Jesse James
Orc Writer
Orc Writer
Příspěvky: 51
Registrován: 28 zář 2006 17:19
Kontaktovat uživatele:

Re: Rodovy scripty

Příspěvek od Jesse James »

Zdar, ten Lockpick ti nejede, pouzije jeden pokus na odemceni ale neopakuje.
*cenzurováno* --- Nevim sice kdo mi to smaznul, ale co na tom bylo spatnyho?
Odpovědět