Dark Paradise

Napsal: **28.02.2017 19:08:45**

Johny Matovic píše:
Qvido píše:Libí se mi tohle yoko. Našel by se tu někdo kdo by zde dokázal vytvořit základní sbírku scriptů jako je třeba u Phoenixe?
Za kona urcite :p

Stačil by ti hnědej? :p

Napsal: **28.02.2017 19:59:45**

Fisik III píše:Stačil by ti hnědej? :p

Takeho pekneho cerveneho ked mi das jak dostal chalan za tie 3 obrazky (a nieco dalsie co sme zatial nevideli

) tak ti balik zakladnych skriptov kludne zlepim

Napsal: **28.02.2017 20:49:53**

a co si predstavujes pod zakladni sadou scriptu?

fena je dost rozdilna, sikovnejsi a balik scriptu se kteryma se distribuuje je dost obsahlej.

Napsal: **28.02.2017 23:37:33**

Jsme to dotáhli tak daleko, že za všechno co tu děláte pro sebe navzájem musí být odměna? Neskutečný.

Základ - cokoliv co člověk když přijde bude potřebovat pro základní hraní v PvP/PvM.

Napsal: **28.02.2017 23:43:18**

Qvido píše:Jsme to dotáhli tak daleko, že za všechno co tu děláte pro sebe navzájem musí být odměna? Neskutečný.

Základ - cokoliv co člověk když přijde bude potřebovat pro základní hraní v PvP/PvM.

Tak vies mamon treba.Ale, nie robim si srandu, bedinky su uz plne, motivujuce su pre mna ine veci.
Nech sa paci skripty, ktore mam v autoloade a teda inymi slovami zaklad pre pvm a pvp pre vacsinu povolani.
Keby bolo treba, mozem nazvy upravit tak aby boli zrozumitelnejsie pre sirsie publikum.

Kód: Vybrat vše

#Napoje + bandy

sub kad_TMR()
   uo.UseType(0x1843,0x0003)
   uo.WaitTargetType(0x0F0E)
   wait(500)
end sub

sub usinaramok()
   uo.UseType(0x1086,0x0480)
   uo.UseType(0x1087,0x0BAC)
   wait(500)
end sub

sub kad_svetlo()
   uo.UseType(0x1843,0x03c4)
   UO.WaitTargetSelf()
   wait(500)
end sub

sub pali()
   uo.UseType(0x13B4,0x0000)
   wait (500)
end sub

sub kad_GS()
   uo.UseType(0x1843,0x0481)
   uo.WaitTargetType(0x0F0E)
   wait(500)
end sub

sub kad_Gb()
   uo.UseType(0x1843,0x0025)
   uo.WaitTargetType(0x0F0E)
   wait(500)
end sub

sub kad_GH()
   uo.UseType(0x1843,0x08A7)
   uo.WaitTargetType(0x0F0E)
   wait(500)
end sub  

sub kad_TR()
   uo.UseType(0x1843,0x014D)
   uo.WaitTargetType(0x0F0E)
   wait(500)
end sub

sub krvb()
   UO.UseType(0x0E20,0x0000)
end sub

sub TMR()
   UO.UseType(0x0F09,0x0003)
end sub

sub rezacka()
   UO.UseType(0x10E4,0x000)
end sub

sub gh()
   UO.UseType(0x0F0C,0x0000)  
end sub

sub krava()
   UO.UseType(0x2103,0x0000)  
end sub

sub prasa()
   UO.UseType(0x2101,0x0000)  
end sub

sub bull()
   UO.UseType(0x20EF)  
end sub

sub gb()
   UO.UseType(0x0F0C,0x0025)  
end sub

sub tr()
   UO.UseType(0x0F0B,0x0000)  
end sub

sub gs()
   UO.UseType(0x0F09,0x0000) 
end sub

sub krvb2()
   UO.UseType(0x0E22,0x0000)
end sub

sub banda()
   UO.UseType(0x0E21,0x0000)
end sub

sub banda2()
   UO.UseType(0x0E21,0x0000)
   UO.WaitTargetLast()
end sub

sub salat()
   UO.UseType(0x09EC,0x06AB)
end sub

sub RR() 
   UO.FindType('0x108A',-1,'my') ;hleda ring v baglu - misto XXXX uvest type 
   If UO.GetQuantity('finditem')>0 then  
      UO.UseObject('finditem') 
      Wait(200) 
      UO.RemoveRing() 
   else 
      UO.Print('Nemas u sebe RR!') 
   endif  
end sub

sub GGR() 
   UO.FindType('0x108A',0x0000,'my') ;hleda ring v baglu - misto XXXX uvest type 
   If UO.GetQuantity('finditem')>0 then  
      UO.UseObject('finditem') 
      Wait(200) 
      UO.RemoveRing() 
   else 
      UO.Print('Nemas u sebe RR!') 
   endif  
end sub

#Svitky vseobecne

sub ress_z()
   UO.UseType(0x1F67,0x0000)
end sub

sub para_z()
   UO.UseType(0x1F52,0x0000)
end sub


#Kuzla na seba 

sub svetlo()
   UO.Cast("Night Sight")
   UO.WaitTargetSelf() 
end sub

sub IJS()
   UO.Cast("Magic Reflection")
   UO.WaitTargetSelf()
end sub

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

#Kuzla Vseobecne prsk

sub Port()
   UO.Cast("Teleport")
end sub


sub Pois()
   UO.Cast("Poison Field")
end sub

sub Stena()
   UO.Cast("Wall of Stone")
end sub

Sub Energy()
   UO.Cast("Energy Field")
end sub

Sub StenaSvitok()
   UO.UseType(0x1F44,0x0000)
end sub

Sub Sipka()
   UO.Cast("Magic Arrow")
   UO.WaitTargetself()
end sub

Sub vytahnuti()
   UO.Cast("Magic Arrow")
end sub

#Kuzla utocne

sub halu()
   UO.UseType(0x0E35,0x0010)
   UO.WaitTargetLast() 
end sub

sub vfp()
   UO.UseType(0x0E35,0x0070)
   UO.WaitTargetLast() 
end sub

sub Cur()
   Uo.Cast("Curse")
   UO.WaitTargetLast()
end sub

sub KVF()
   Uo.Cast("Flame Strike")
   UO.WaitTargetLast() 
end sub

sub mb()
   Uo.Cast("Mind Blast")
   UO.WaitTargetLast() 
end sub


sub KVFs()
   UO.UseType(0x1F5F,0x0000)
   UO.WaitTargetLast() 
end sub

sub Harm()
   UO.Cast("Harm")
   UO.WaitTargetLast() 
end sub

sub Blesk()
   UO.Cast("Lightning")
   UO.WaitTargetLast() 
end sub

sub fire()
   Uo.Cast("Fireball")
   Uo.WaitTargetlast()
end sub


sub Para()
   UO.Cast("Paralyze")
   UO.WaitTargetLast() 
end sub

sub Para2()
   UO.Cast("Paralyze")
end sub

sub Para3()
   UO.Cast("Paralyze Field")
end sub

Sub Mind()
   Uo.Cast("Mind Blast")
   UO.WaitTargetLast()
end sub

#Sumy

sub Earth()
   Uo.Cast("Earth Elemental")
end sub

Sub GSP()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Giant Spider')
end sub

sub GV()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Giant Viper')
end sub

sub MG()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Magic Golem')
end sub

sub GSC()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Giant Scorpion')
end sub

sub horse()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Horse')
end sub

sub Mumy()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Mummy')
end sub


sub gr()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Grizzly Bear')
end sub

sub bea()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Bear')
end sub

sub ea()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Hawk')
end sub

sub horse2()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Horse')
   UO.WaitTargetSelf()
end sub

sub D()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Magic Drake')
end sub

sub W()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Wraith')
end sub

sub Ang()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Angel Spirit')
end sub

sub Awa()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Awaken Spirit')
end sub

sub Tem()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Temple Spirit')
end sub

sub Gua()
   UO.Cast("Summ. Creature")
   UO.WaitMenu ('What do you want to summon','Guardian Spirit')
end sub


####CLERIC ONLY####

sub VUS()
   UO.Cast("Arch Protection")
end sub

sub VAN()
   UO.Cast("Arch Cure")
end sub

sub Ble()
   UO.Cast("Bless")
end sub

sub Ble2()
   UO.Cast("Bless")
   UO.WaitTargetSelf()
end sub

sub GHE()
   UO.Cast("Greater Heal")
end sub

sub GHE2()
   UO.Cast("Greater Heal")
   UO.WaitTargetSelf()
end sub

sub GHE3()
   UO.Cast("Greater Heal")
   UO.WaitTargetLast()
end sub

sub IVMs()
   UO.UseType(0x1F49,0x0000)
end sub

sub IVMs3()
   UO.UseType(0x1F49,0x0000)
   UO.WaitTargetLast()
end sub

sub IVMs2()
   UO.UseType(0x1F49,0x0000)
   UO.WaitTargetSelf()
end sub



####PALADIN ONLY####

sub Agility()
   UO.Cast("Agility")
   UO.WaitTargetSelf()
end sub

sub Heal()
   UO.Cast("Heal")
   UO.WaitTargetSelf()
end sub

sub Heal2()
   UO.Cast("Heal")
end sub

sub Heal3()
   UO.Cast("Heal")
   UO.WaitTargetLast() 
end sub

sub Strength()
   UO.Cast("Strength")
   UO.WaitTargetSelf()
end sub

sub Strength2()
   UO.Cast("Strength")
end sub

sub Reactive()
   UO.Cast("Reactive Armor")
   UO.WaitTargetSelf()
end sub

sub Reactive2()
   UO.Cast("Reactive Armor")
end sub

sub Armor()
   UO.Cast("Protection")
   UO.WaitTargetSelf()
end sub

sub Armor2()
   UO.Cast("Protection")
end sub

Napsal: **02.03.2017 20:38:26**

Hojda,

jako zaklad dobry, dovolil jsem si opravit syntaxi - uo.wait<cokoliv> se pise VZDYCKY pred akci, neb to znamena "az se nekdy objevi target, ukaz na...." to same alternativne plati i pro vyber z menu.

Kód: Vybrat vše

#Napoje + bandy

sub kad_TMR()
   uo.WaitTargetType(0x0F0E)
   uo.UseType(0x1843,0x0003)
end sub

sub kad_svetlo()
   UO.WaitTargetSelf()
   uo.UseType(0x1843,0x03c4)
end sub

sub pali()
   uo.UseType(0x13B4,0x0000)
end sub

sub kad_GS()
   uo.WaitTargetType(0x0F0E)
   uo.UseType(0x1843,0x0481)
end sub

sub kad_Gb()
   uo.UseType(0x1843,0x0025)
   uo.WaitTargetType(0x0F0E)
end sub

sub kad_GH()
   uo.WaitTargetType(0x0F0E)
   uo.UseType(0x1843,0x08A7)
end sub  

sub kad_TR()
   uo.WaitTargetType(0x0F0E)
   uo.UseType(0x1843,0x014D)
end sub

sub krvb()
   UO.UseType(0x0E20,0x0000)
end sub

sub TMR()
   UO.UseType(0x0F09,0x0003)
end sub

sub rezacka()
   UO.UseType(0x10E4,0x000)
end sub

sub gh()
   UO.UseType(0x0F0C,0x0000)  
end sub

sub krava()
   UO.UseType(0x2103,0x0000)  
end sub

sub prasa()
   UO.UseType(0x2101,0x0000)  
end sub

sub bull()
   UO.UseType(0x20EF)  
end sub

sub gb()
   UO.UseType(0x0F0C,0x0025)  
end sub

sub tr()
   UO.UseType(0x0F0B,0x0000)  
end sub

sub gs()
   UO.UseType(0x0F09,0x0000) 
end sub

sub krvb2()
   UO.UseType(0x0E22,0x0000)
end sub

sub banda()
   UO.UseType(0x0E21,0x0000)
end sub

sub banda2()
   UO.WaitTargetLast()
   UO.UseType(0x0E21,0x0000)
end sub

sub salat()
   UO.UseType(0x09EC,0x06AB)
end sub

sub RR() 
   UO.FindType('0x108A',-1,'my') ;hleda ring v baglu - misto XXXX uvest type 
   If UO.FindCount() then  
      UO.UseObject('finditem') 
      Wait(200) 
      UO.RemoveRing() 
   else 
      UO.Print('Nemas u sebe RR!') 
   endif  
end sub

sub GGR() 
   UO.FindType('0x108A',0x0000,'my') ;hleda ring v baglu - misto XXXX uvest type 
   If UO.FindCOunt() then  
      UO.UseObject('finditem') 
      Wait(200) 
      UO.RemoveRing() 
   else 
      UO.Print('Nemas u sebe RR!') 
   endif  
end sub

#Svitky vseobecne

sub ress_z()
   UO.UseType(0x1F67,0x0000)
end sub

sub para_z()
   UO.UseType(0x1F52,0x0000)
end sub


#Kuzla na seba 

sub svetlo()
   UO.WaitTargetSelf() 
   UO.Cast("Night Sight")
end sub

sub IJS()
   UO.WaitTargetSelf()
   UO.Cast("Magic Reflection")
end sub

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

#Kuzla Vseobecne prsk

sub Port()
   UO.Cast("Teleport")
end sub


sub Pois()
   UO.Cast("Poison Field")
end sub

sub Stena()
   UO.Cast("Wall of Stone")
end sub

Sub Energy()
   UO.Cast("Energy Field")
end sub

Sub StenaSvitok()
   UO.UseType(0x1F44,0x0000)
end sub

Sub Sipka()
   UO.WaitTargetself()
   UO.Cast("Magic Arrow")
end sub

Sub vytahnuti()
   UO.Cast("Magic Arrow")
end sub

#Kuzla utocne

sub halu()
   UO.WaitTargetLast() 
   UO.UseType(0x0E35,0x0010)
end sub

sub vfp()
   UO.WaitTargetLast() 
   UO.UseType(0x0E35,0x0070)
end sub

sub Cur()
   UO.WaitTargetLast()
   Uo.Cast("Curse")
end sub

sub KVF()
   UO.WaitTargetLast() 
   Uo.Cast("Flame Strike")
end sub

sub mb()
   UO.WaitTargetLast() 
   Uo.Cast("Mind Blast")
end sub


sub KVFs()
   UO.WaitTargetLast() 
   UO.UseType(0x1F5F,0x0000)
end sub

sub Harm()
   UO.WaitTargetLast() 
   UO.Cast("Harm")
end sub

sub Blesk()
   UO.WaitTargetLast() 
   UO.Cast("Lightning")
end sub

sub fire()
   Uo.WaitTargetlast()
   Uo.Cast("Fireball")
end sub


sub Para()
   UO.WaitTargetLast() 
   UO.Cast("Paralyze")
end sub

sub Para2()
   UO.Cast("Paralyze")
end sub

sub Para3()
   UO.Cast("Paralyze Field")
end sub

Sub Mind()
   UO.WaitTargetLast()
   Uo.Cast("Mind Blast")
end sub

#Sumy

sub Earth()
   Uo.Cast("Earth Elemental")
end sub

Sub GSP()
   UO.WaitMenu ('What do you want to summon','Giant Spider')
   UO.Cast("Summ. Creature")
end sub

sub GV()
   UO.WaitMenu ('What do you want to summon','Giant Viper')
   UO.Cast("Summ. Creature")
end sub

sub MG()
   UO.WaitMenu ('What do you want to summon','Magic Golem')
   UO.Cast("Summ. Creature")
end sub

sub GSC()
   UO.WaitMenu ('What do you want to summon','Giant Scorpion')
   UO.Cast("Summ. Creature")
end sub

sub horse()
   UO.WaitMenu ('What do you want to summon','Horse')
   UO.Cast("Summ. Creature")
end sub

sub Mumy()
   UO.WaitMenu ('What do you want to summon','Mummy')
   UO.Cast("Summ. Creature")
end sub


sub gr()
   UO.WaitMenu ('What do you want to summon','Grizzly Bear')
   UO.Cast("Summ. Creature")
end sub

sub bea()
   UO.WaitMenu ('What do you want to summon','Bear')
   UO.Cast("Summ. Creature")
end sub

sub ea()
   UO.WaitMenu ('What do you want to summon','Hawk')
   UO.Cast("Summ. Creature")
end sub

sub horse2()
   UO.WaitMenu ('What do you want to summon','Horse')
   UO.WaitTargetSelf()
   UO.Cast("Summ. Creature")
end sub

sub D()
   UO.WaitMenu ('What do you want to summon','Magic Drake')
   UO.Cast("Summ. Creature")
end sub

sub W()
   UO.WaitMenu ('What do you want to summon','Wraith')
   UO.Cast("Summ. Creature")
end sub

sub Ang()
   UO.WaitMenu ('What do you want to summon','Angel Spirit')
   UO.Cast("Summ. Creature")
end sub

sub Awa()
   UO.WaitMenu ('What do you want to summon','Awaken Spirit')
   UO.Cast("Summ. Creature")
end sub

sub Tem()
   UO.WaitMenu ('What do you want to summon','Temple Spirit')
   UO.Cast("Summ. Creature")
end sub

sub Gua()
   UO.WaitMenu ('What do you want to summon','Guardian Spirit')
   UO.Cast("Summ. Creature")
end sub


####CLERIC ONLY####

sub VUS()
   UO.Cast("Arch Protection")
end sub

sub VAN()
   UO.Cast("Arch Cure")
end sub

sub Ble()
   UO.Cast("Bless")
end sub

sub Ble2()
   UO.WaitTargetSelf()
   UO.Cast("Bless")
end sub

sub GHE()
   UO.Cast("Greater Heal")
end sub

sub GHE2()
   UO.WaitTargetSelf()
   UO.Cast("Greater Heal")
end sub

sub GHE3()
   UO.WaitTargetSelf()
   UO.Cast("Greater Heal")
end sub

sub IVMs()
   UO.UseType(0x1F49,0x0000)
end sub

sub IVMs3()
   UO.WaitTargetLast()
   UO.UseType(0x1F49,0x0000)
end sub

sub IVMs2()
   UO.WaitTargetSelf()
   UO.UseType(0x1F49,0x0000)
end sub



####PALADIN ONLY####

sub Agility()
   UO.WaitTargetSelf()
   UO.Cast("Agility")
end sub

sub Heal()
   UO.WaitTargetSelf()
   UO.Cast("Heal")
end sub

sub Heal2()
   UO.Cast("Heal")
end sub

sub Heal3()
   UO.WaitTargetLast() 
   UO.Cast("Heal")
end sub

sub Strength()
   UO.WaitTargetSelf()
   UO.Cast("Strength")
end sub

sub Strength2()
   UO.Cast("Strength")
end sub

sub Reactive()
   UO.WaitTargetSelf()
   UO.Cast("Reactive Armor")
end sub

sub Reactive2()
   UO.Cast("Reactive Armor")
end sub

sub Armor()
   UO.WaitTargetSelf()
   UO.Cast("Protection")
end sub

sub Armor2()
   UO.Cast("Protection")
end sub

PS: co je tohle jsem nepochopil, nevim co to je za itemy, ale vyvolavat dve akce za sebou bez cehokoliv mezi tim je podezrely:

Kód: Vybrat vše

#sub usinaramok()
#   uo.UseType(0x1086,0x0480)
#   uo.UseType(0x1087,0x0BAC)
#   wait(500)
#end sub

ja na hru pouzivam fenu, na makrovani a crafteni mam inject, takze crafti zalezitosti muzu dodat.

edit: ted me napadlo - to co jsem nepoznal - nejsou to nausnice a naramek? pak by to bylo:

Kód: Vybrat vše

sub usinaramok()
   uo.UseType(0x1086,0x0480)
   wait(500)
   uo.UseType(0x1087,0x0BAC)
end sub

chtelo by to ale info, jaky nausnice a jakej naramek

Napsal: **02.03.2017 21:05:54**

Roubicek píše: PS: co je tohle jsem nepochopil, nevim co to je za itemy, ale vyvolavat dve akce za sebou bez cehokoliv mezi tim je podezrely:
Kód: Vybrat vše
#sub usinaramok()
#   uo.UseType(0x1086,0x0480)
#   uo.UseType(0x1087,0x0BAC)
#   wait(500)
#end sub

Pouzivam po resse na Bardic Palovi.
Oblece paladinsky naramok a magicovske nausnice.

Napsal: **03.03.2017 09:36:15**

Johny Matovic píše:
Roubicek píše: PS: co je tohle jsem nepochopil, nevim co to je za itemy, ale vyvolavat dve akce za sebou bez cehokoliv mezi tim je podezrely:
Kód: Vybrat vše
#sub usinaramok()
#   uo.UseType(0x1086,0x0480)
#   uo.UseType(0x1087,0x0BAC)
#   wait(500)
#end sub
Pouzivam po resse na Bardic Palovi.
Oblece paladinsky naramok a magicovske nausnice.

Bez pauzy ne pls

Napsal: **03.03.2017 11:23:38**

tu pauzu si prehod mezi pouzitim naramku a nausnic, ne az na konci, tam to nema vubec smysl

Napsal: **03.03.2017 13:03:39**

Už mu to opravil Roubíček.

Napsal: **03.03.2017 14:25:36**

Kód: Vybrat vše

sub target()
   UO.Print("Koho zabijeme ?");
   UO.AddObject("obet");
   while UO.Targeting()
      Wait(100);
   wend
   UO.Attack("obet");
   UO.Cast("Magic Arrow","obet");
end sub

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

sub kvf()
   UO.Cast("Flame Strike","obet");
end sub

sub sipka()
   UO.Cast("Magic Arrow","obet");
end sub
#####################

sub harm()
   UO.Cast("Harm","obet");
end sub

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

sub blesk()
   UO.Cast("Lightning","obet");
end sub

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

sub ijs()
   UO.Cast("Magic Reflection","self");
end sub

sub ijs_2()
   UO.Cast("Magic Reflection","obet1");
end sub

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

sub para()
   UO.Cast("Paralyze","obet");
end sub

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

sub dispel()
   UO.Cast("Dispel","obet");
end sub

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

sub blesk_svitek()
   var svitek=0x1F4A
   if UO.Count(svitek) then
      UO.WaitTargetObject("obet");
      UO.UseType(svitek);
   else
      UO.Print("-= !! Nemas blesk svitky !! =-");
   endif
end sub

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

sub kvf_svitek()
   var svitek=0x1F5F
   if UO.Count(svitek) then
      UO.WaitTargetObject("obet");
      UO.UseType(svitek);
   else
      UO.Print("-= !! Nemas KVF svitky !! =-");
   endif
end sub

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

sub ijs_svitek()
   var svitek=0x1F50
   if UO.Count(svitek) then
      UO.WaitTargetObject("self");
      UO.UseType(svitek);
   else
      uo.print("-= !! Nemas IJS svitky !! =-");
   endif
end sub

sub ijs_svitek_2()
   var svitek=0x1F50
   if UO.Count(svitek) then
      UO.WaitTargetObject("obet1");
      UO.UseType(svitek);
   else
      uo.print("-= !! Nemas IJS svitky !! =-");
   endif
end sub

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

sub vypij_tmr()
   var napoj=0x0F09
   var farba=0x0003
   if UO.Count(napoj) then
      UO.UseType(napoj,farba);
   else
      UO.Print("-= !! Nemas TMR !! =-");
   endif
end sub
#####################

sub vypij_gs()
   var napoj=0x0F09
   var farba=0x0005
   if UO.Count(napoj) then
      UO.UseType(napoj,farba);
   else
      UO.Print("-= !! Nemas TMR !! =-");
   endif
end sub

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

sub vypij_gh()
   var napoj=0x0F0C
   if UO.Count(napoj) then
      UO.UseType(napoj);
   else
      UO.Print("-= !! Nemas GH !! =-");
   endif
end sub

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

sub vypij_gc()
   var napoj=0x0F07
   if UO.Count(napoj) then
      UO.UseType(napoj);
   else
      UO.Print("-= !! Nemas GC !! =-");
   endif
end sub

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

sub rr()
   UO.UseType("0x108A");
   Wait(1500);
   UO.RemoveRing();
end sub

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

sub vfp()
   if UO.Count('0x0E35','0x0070') then
      UO.WaitTargetObject("obet");
      UO.UseType('0x0E35','0x0070');
   else
      UO.Print("-= !! Nemas VFP svitky !! =-");
   endif
end sub

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

sub haluze()
   if UO.Count('0x0E35','0x0010') then
      UO.WaitTargetObject("obet");
      UO.UseType('0x0E35','0x0010');
   else
      UO.Print("-= !! Nemas Haluz svitky !! =-")   ;
   endif
end sub

sub weaken()
   UO.Cast("Weaken","obet");
end sub

sub mind()
   UO.Cast("Mind Blast","obet");
end sub

sub poison()
   UO.Cast("Poison Field","obet");
end sub

sub rel()
   UO.Cast("Feeblemind","self");
end sub

sub arrow()
   UO.Cast("Magic Arrow","self");
end sub

sub lor()
   UO.Cast("Night","self");
end sub

sub Rezanie1()
   uo.usetype("0x10E4")  
   UO.WaitTargetObject('lastcorpse') 
end sub

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

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

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

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

sub necrofinta()
   if UO.Count('0x0E35','0x0005') then
      UO.WaitTargetObject("self");
      UO.UseType('0x0E35','0x0005');
   else
      UO.Print("-= !! Nemas NECRO svitky !! =-")   ;
   endif
end sub

sub vypij_tr()
   var napoj=0x0F0B
   var farba=0x0000
   if UO.Count(napoj) then
      UO.UseType(napoj,farba);
   else
      UO.Print("-= !! Nemas TR !! =-");
   endif
end sub

sub poison2()
   UO.Cast("Poison","obet");
end sub

sub teleport_svitek()
   var svitek=0x1F42
   if UO.Count(svitek) then
      UO.WaitTargetObject("obet");
      UO.UseType(svitek);
   else
      UO.Print("-= !! Nemas port svitky !! =-");
   endif
end sub

sub fire()
   UO.Cast("Fire Field","obet");
end sub

sub zbran()
   UO.UseType("0x13FA");
   Wait(150);
end sub

sub zbran2()
   UO.UseType("0x0F60");
   Wait(500);
   UO.UseType("0x1B74");
end sub

sub target1()
   UO.Print("Koho protectnem?")
   UO.AddObject("obet1");
   while UO.Targeting()
      Wait(100);
   wend 
   UO.Say(UO.GetName("obet1") + " is under IJS protection!")
end sub

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

sub rr20()
   UO.Cast("Fire Field","Obet");
end sub

sub spapaj_salat()
   var napoj=0x09EC
   var farba=0x06AB
   if UO.Count(napoj) then
      UO.UseType(napoj,farba);
   else
      UO.Print("-= !! Nemas Salat  !! =-");
   endif
end sub

sub Necro()
   repeat
      if UO.Count("0x0f09")==0 then
         repeat
            uo.waittargettype(0x0f0e)
            UO.Usetype("0x1843")
            Wait(2500)
         until  UO.Count("0x0f09")==10
      endif
      if UO.Mana<15 then       
         UO.Usetype("0x0f09") 
      endif
      UO.FindType('0x0E35',-1,'my') 
      uo.waittargetobject('self')
      UO.UseObject('finditem')
      wait(4000)
   until  UO.Count("0x0E35")==0
end sub

sub Narovnani() 
   
   var x
   var NbRuna = uo.count("0x1F14", "0x0B1D") 
   var SpellBook = uo.count ("0x0EFA")
   var CestovniKniha = uo.count("0x22C5", "0x0000") 
   var RuneBook = uo.count("0x0FF0", "0x08A5") 
   var TravelBook = uo.count("0x0FEF", "0x0482") 
   var Voditko = uo.count("0x1374", "0x0B4C")
   var DrawKnife = uo.count("0x10E4", "0x0B80")
   var 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

sub target10()
   UO.Attack("obet");
end sub

sub poisonfieldself()
   UO.Cast("Poison Field","self");
end sub

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

Komplet pvp scripty na necra + dake drobnosti k sprijemneniu hrania co pouzivam keby mal dakto zaujem.

Napsal: **03.03.2017 21:22:32**

Acarus píše:Bez pauzy ne pls

Pauza tam je, ale na gumaka na konci.
Nie schvalne, skor som sa "uklikol", zvlast ked pri ostatnych usetypoch nie je vobec nic a tu je tak umne na konci. :p

Napsal: **10.03.2017 13:21:14**

Doplnene info do prveho postu pre ludi, ktori by pri chceli bez komplikacii obcas hrat na Yoku a inokedy zase na Phoenixovi.

Napsal: **01.01.2019 21:24:30**

Prosím, našli byste na svých discích archiv s touhle verzí Yoka? Odkaz z prvního postu už nefunguje. Díky.

Napsal: **25.01.2019 15:26:24**

našel jsem web s novou verzi ke stáhnutí, když původní odkaz nefunguje: https://uo.wzk.cz/injection-2015/
nicméně mám stejný problém, co koukám, že jsem tu už v minulosti psal: Failed to initialize additional communication security. A to mám jiný PC/systém/win10 oproti dřívějšku.... kdyby tu byl nějaký poslední žijící yokař a věděl, co s tím, byl bych rád...

Napsal: **25.01.2019 20:01:20**

Xan píše: 25.01.2019 15:26:24 našel jsem web s novou verzi ke stáhnutí, když původní odkaz nefunguje: https://uo.wzk.cz/injection-2015/
nicméně mám stejný problém, co koukám, že jsem tu už v minulosti psal: Failed to initialize additional communication security. A to mám jiný PC/systém/win10 oproti dřívějšku.... kdyby tu byl nějaký poslední žijící yokař a věděl, co s tím, byl bych rád...

Jestli pustíš klienta a tohle je jen u yoka, tak to bude asi něco serverovýho - povol yoko komplet v nastavení firewallu a spouštěj jako správce, v injection.ini měj
Encryption=1.26.4
RelayIP=95.140.240.20
RelayPort=2593
By mohlo pomoct..
edit: a jestli si laborovla s velikostí před spuštěnim tak se ti mohlo taky něco rozbít(vim že když jsme tenkrát testovali velké okno občas to házelo chyby.. )takže než logneš si tam nech:
GameWindowSizeX=800
GameWindowSizeY=600
ScreenFormat=1
a clienta client1264b.exe..
Pak ještě mužeš zkusit smazat injection.ini (bacha přijdeš o hotkeye) popř. desktop složky

Napsal: **25.01.2019 20:15:53**

v .ini to tak mam, pred stpustenim to yoko podle me taky dobre, tu chybu to hodi, jak jsem spal uz pred lety, az ve chvili, kdy se chci prihlasit na konkretni acc... spis je mi divny, ze pred lety, kdyz jsem to zkousel, jsem mel jiny pc, jiny Win, jiny antivir, takze timhle to asi nebude.
Jako spravce spoustim, antivir jsem zkusil vypnout, dat to do vyjimek a furt prd

s velikostí jsem nelaboroval, když jsem to jestě nespustil, to jsem radši předem ani nezkoušel.
Když si stáhnu z webu client1264b zvlast ted, tak mi to yoko ani nespusti a hodi to hlasku ,ze uo nemam spravne nainstalovanou...
DP mam nainstalovanou z toho, co je ted na webu - zabalena hotova instalace zkopirovana do slozky, pouzivam mikeeho client, na starym yoku s tim takhle v pohode hraju.
Když to zkusim s upravenymy clientem z webu rovnou na okna 1024, tak to hodi hlasku, ze nemuze najit client.exe (cestu na toho clienta mam nastavenou)

edit: když spustim starym yokem a mam uvodni obrazovku pro vlozeni prihlasovacich udaju, tak okno ma nahore v liste napis Welcome to yoko... s novym yokem to mam navic v zavocrce not connected, jeslti to o necem vypovida

Napsal: **25.01.2019 22:21:48**

Tak zkusíme přesvědčit pc že je správně nainstalovaná

stahni http://leteckaposta.cz/815111684 dej do hlavní složky s uo, spusti, pak stáhni tohohle clienta http://leteckaposta.cz/788628895 nastav cesty v yoko injectu, jdi do start - hledat - povolit aplikaci v bráně firewall - tam povol jak yoko, tak klient, oboje nastav oprávnění spouštět jako správce s nastavením .ini jak sem psal předtim.

Napsal: **25.01.2019 23:44:05**

Eriku jsi buh ! dik:D nevim co z toho pomohlo, ale facha,,,, asi ty registry. Dik, napodruhy s oknem to udelalo ten mensi ramecek ve velkym okne ale dalsi spusteni v poho. btw ten client od tebe je neci mjinej nebo je to taky origo jak z webu? jeste to zkusim pres mikeeho, ale ted uz to snad pude

edit: zkousel jsem stejnej postup na mikeeho client a nejak nic, ale chvatal jsem ,tak si s tim jeste zkusim pohrat... ale jestli ten original nebude s timhle yokem padat, tak to bude jedno:)

Napsal: **26.01.2019 22:19:49**

A nevis Eriku, pripadne kdokoliv, jak v novym yoku zapnout takovy to zobrazovani hp pri targetnuti npc/utoku na nej/vytahnuti zalozky, v levym dolnim rohu?

Dark Paradise

Nove Yoko s novymi funkciami (hratelne na 1024x768)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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