Proč funguej a jinde ne?
Napsal: 08.03.2009 16:18:37
JEden kraft sháněl makro na vyrobu zbrojí.. tak sem něco převytvořil a zjistil sem že po zadání cesty UO.WaitMenu je ten řetěz k brnku tak dlouhý že to yoko nesežere a nekove.. tak sem pátral a vypátral jsem příkaz uo.Automenu a s tím to jde a item m ito vykove.. a teď k problému mě to funguje ale nikoumu jinému kdo to zkoušel to nejede háže to parse erory a pod.. kde je chyba? proč to mě jde a jim ne? a je vubec možné kovat zbroje pomocí skriptu když je ten řetězec k výrobku tak dlouhý?
toto je ono:
toto je ono:
Kód: Vybrat vše
sub zbrojeseriovavyroba()
VAR fizz = 0, pocet = 0, kolik = 20 ###nastavis kolik vyrobku chces vyrobit jen u toho kolik
VAR material1 = '0x1BEF,0x0665' # zadas TYPE,BARVU ingotu
VAR vyrobek = '0x1B73,0x0665' # zadas TYPE, BARVU vyrobku
UO.AddObject('bedna_s_materialem') # nastavis bednu ze ktere bere matros
while UO.Targeting()
wait(200)
wEnd
UO.AddObject('bedna_na_vyrobky') # nastavis bednu do ktere das hotove veci
while UO.Targeting()
wait(200)
wEnd
UO.Set('quiet', 1)
while NOT UO.Dead() AND NOT pocet == kolik
if UO.Count(material1) < 20 then
repeat
UO.FindType(vyrobek,'-1','backpack')
UO.MoveItem('finditem','-1','bedna_na_vyrobky')
wait(500)
until NOT UO.FindCount()
UO.FindType(material1,'-1','bedna_s_materialem')
if NOT UO.FindCount() then
UO.FindType(material1,'-1','backpack')
if UO.FindCount() then
UO.MoveItem('finditem','-1','bedna_s_materialem')
wait(500)
endIf
UO.Set('quiet', 0)
UO.Print("===== Vyrobeno : "+str(pocet)+" =====")
UO.Print("===== Pocet fizzu : "+str(fizz)+" =====")
UO.Print("===== DOSEL MATERIAL =====")
return
endIf
UO.MoveItem('finditem','100','backpack')
wait(500)
endIf
uo.Automenu('Blacksmithing','Armors & Shields')#nastav cestu 1,2
uo.Automenu('Armors & Shields','Armors & Shields')#nastav cestu 2,2
uo.Automenu('Armors & Shields','Rose Armor') #nastav cestu 2,3
uo.Automenu('Rose Armor','Rose Armor')#nastav cestu 3,3
uo.Automenu('Rose Armor','Rose Shields')#nastav cestu 3,4
uo.Automenu('Rose Shields','Rose Buckler') #nastav cestu 4,5
UO.Usetype('0x13E3') # TYPE TVEHO NARADI co pouzivas:)
UO.Deletejournal()
repeat
wait(200)
until UO.Injournal("You put|You have failed|Targeting Cancelled")
if UO.InJournal("You put the") then
pocet = pocet + 1
endIf
if UO.InJournal("You have failed") then
fizz = fizz + 1
endIf
wEnd
repeat
UO.FindType(vyrobek,'-1','backpack')
UO.MoveItem('finditem','-1','bedna_na_vyrobky')
wait(500)
until NOT UO.FindCount()
UO.FindType(material1,'-1','backpack')
if UO.FindCount() then
UO.MoveItem('finditem','-1','bedna_s_materialem')
wait(500) #crafted by Erik Nighelt:)
endIf
UO.Set('quiet', 0)
UO.Print("===== Vyrobeno : "+str(pocet)+" =====")
UO.Print("===== Pocet fizzu : "+str(fizz)+" =====")
UO.Print("===== KONEC VYROBY =====")
end sub