Kovani zbrani

[Erik Nighelt]

Zdravim nemate nekdo zaklad scriptu na kovani zbrani? ze by stacilo zmenit type a color materialu a vyrobku a cestu v menu a ono by to kovalo zadany pocet kusu kdybyste nekdo tu kostru mel nebo napal byl bych rad

[Kurtis Trent]

no snazil jsem se udelat jeden script, kterej ti vyhodi target, ty kliknes na ingoty a z toho to zacne kovat, ale nejak to neslo (bylo to na heater shieldy) ale nevedel jsem jak z targetu udelat cilovy kov, mel jsem dve moznosti, pricemz jedna blbejsi jak druha:

Kód: Vybrat vše

sub stity()
UO.Exec('addobject ingoty')
UO.Print("Z ceho chces delat stity?")
While UO.Targeting()
  wait(100)
wend

var ingy
ingy=ingoty

IF ingy=0x401B094B THEN goto verite
   UO.Print('Verite nekoves')
 Wait(500)
IF ingy=0x40153540 THEN goto valorite
   UO.Print('Valorite nekoves')
 Wait(500)
IF ingy=0x401E6A35 THEN goto blood_rock
   UO.Print('Blood Rock nekoves')
 Wait(500)
IF ingy=0x401EB557 THEN goto black_rock
   UO.Print('Black Rock nekoves')
 Wait(500)
IF ingy=0x4000CD5D THEN goto mytheril
   UO.Print('Mytheril nekoves')
 Wait(500)

verite:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Colored Armor''Verite Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec

valorite:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Colored Armor''Verite Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec

blood_rock:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Colored Armor''Verite Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec

black_rock:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Black Rock Armor''Black Rock Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec
mytheril:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Mytheril Armor''Mytheril Armor''Mytheril Armor''Mytheril Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec
konec:
end sub

a

Kód: Vybrat vše

sub stity()
UO.Exec('addobject ingoty')
UO.Print("Z ceho chces delat stity?")
While UO.Targeting()
  wait(100)
wend

var ingy
ingy=ingoty

IF UO.Target('ingoty')=0x401B094B THEN goto verite
   UO.Print('Verite nekoves')
 Wait(500)
IF UO.Target('ingoty')=0x40153540 THEN goto valorite
   UO.Print('Valorite nekoves')
 Wait(500)
IF UO.Target('ingoty')=0x401E6A35 THEN goto blood_rock
   UO.Print('Blood Rock nekoves')
 Wait(500)
IF UO.Target('ingoty')=0x401EB557 THEN goto black_rock
   UO.Print('Black Rock nekoves')
 Wait(500)
IF UO.Target('ingoty')=0x4000CD5D THEN goto mytheril
   UO.Print('Mytheril nekoves')
 Wait(500)

verite:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Colored Armor''Verite Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec

valorite:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Colored Armor''Verite Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec

blood_rock:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Colored Armor''Verite Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec

black_rock:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Black Rock Armor''Black Rock Armor''Verite Armor''Verite Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec
mytheril:
UO.Exec("waitmenu 'Blacksmithing''Colored Armor''Mytheril Armor''Mytheril Armor''Mytheril Armor''Mytheril Heater Shield'")
            UO.Usetype("0x13E4")
            UO.WaitTargetType("0x1BEF,0x0000")
                wait(200)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
            goto konec
konec:
end sub

jen me prosim neukamenujte za:

Kód: Vybrat vše

UO.Exec("waitmenu 'XXX'")

[Erik Nighelt]

aa kurte si měl řict že to máš :p díky

[Kurtis Trent]

ale vono to nefunguje strejdo

[Erik Nighelt]

aha ja sem ve skoel tak sem nemohl testit..

tak stale prosim o nejake jednoduche makro..nebo i složité

[Kurtis Trent]

aha ja sem ve skoel tak sem nemohl testit..

tak stale prosim o nejake jednoduche makro..nebo i složité

a nebo prosim nejak opravit to moje

[Carda]

Kritizovat za UO.Exec jaks psal tě nigdo nebude, spíš za todle :p

Kód: Vybrat vše

IF UO.Target('ingoty')=0x401B094B THEN goto verite

To nebude fungovat, i gdyby trakače padali :-] Přítomnost UO.Target() sem nepochopil, to uid za tim taky ne a goto blabla nechápu co dělá na jednom řádku s všim tim vostatnim :-]
Základ cca takdle. Doplníš co chybí a dyž ceš kovat z něčeho jinýho něco jinýho tak to holt pozměníš.

Kód: Vybrat vše

sub kovani()
var ingy = "0x0000" #doplnit color ingu
While UO.Count("0x1BEF",ingy) > 10
	UO.DeleteJournal()
	UO.WaitMenu("tady","doplnit","to","menu")
	UO.WaitTargetType("0x1BEF", ingy)
	UO.Usetype("0x13E4")
	Repeat
		Wait(100)
	Until UO.Injournal("You fail|You put")#nevim
	Wait(nevim)#nějaká menčí pauza asi
Wend
end sub

Nic univerzálního jak se pokoušel Kurtis se mi dělat nece :p

[Erik Nighelt]

díky moc:) jen dotaz: ten type 0x1BEF - to je kladivko?nebo to mam prepsat tema ingama?

[Aldeigjuborg]

díky moc:) jen dotaz: ten type 0x1BEF - to je kladivko?nebo to mam prepsat tema ingama?

,info jsi nezkoušel?

[Dr.Kruxminor]

díky moc:) jen dotaz: ten type 0x1BEF - to je kladivko?nebo to mam prepsat tema ingama?

,info jsi nezkoušel?

na informačkách bylo zavřeno

[Kurtis Trent]

Kritizovat za UO.Exec jaks psal tě nigdo nebude, spíš za todle :p

Kód: Vybrat vše

IF UO.Target('ingoty')=0x401B094B THEN goto verite

To nebude fungovat, i gdyby trakače padali :-]

Já vím to jsem si tam psal pro sebe, že tam snad napíšu něco co půjde, ale nenašel jsem

[Kurtis Trent]

Kód: Vybrat vše

sub kovani()
var ingy = "0x0000" #doplnit color ingu
While UO.Count("0x1BEF",ingy) > 10
	UO.DeleteJournal()
	UO.WaitMenu("tady","doplnit","to","menu")
	UO.WaitTargetType("0x1BEF", ingy)
	UO.Usetype("0x13E4")
	Repeat
		Wait(100)
	Until UO.Injournal("You fail|You put")#nevim
	Wait(nevim)#nějaká menčí pauza asi
Wend
end sub

Nic univerzálního jak se pokoušel Kurtis se mi dělat nece :p

Ale tohle je snad ještě pomalejší než to kovat ručně

[Carda]

Mno, pokavaď tam nedáš tu pauzu žádnou tak to kove nejrychlejš jak je povoleno. Pokavaď si tam dal 5sec tak se nediv
Ten type 0x1BEF je type ingů. Neměnit, nechat jak je, šecky ingy to maj stejný. Jediný co měnit tak to waitmenu, a var ingy

[Kurtis Trent]

Mno, pokavaď tam nedáš tu pauzu žádnou tak to kove nejrychlejš jak je povoleno. Pokavaď si tam dal 5sec tak se nediv
Ten type 0x1BEF je type ingů. Neměnit, nechat jak je, šecky ingy to maj stejný. Jediný co měnit tak to waitmenu, a var ingy

ja myslim to, ze na kazdej kousek musis prewpisovat script

[Carda]

Nj, ale podle toho co Erik psal, přesně něco takovýhodle chtěl :p Šlo by to udělat trochu univerzálnějc ale to se mi nechce dělat :p

[Erik Nighelt]

jo je to ono-když kovu 20scimu a 20rose platu tak se to proste hodi..díky

[Kurtis Trent]

a mohl by se nekdo pokusit to pro me udelat?

[Aldaris]

Specifikuj, co PRESNE by to melo umet a uvidime, co se da delat..

[Kurtis Trent]

spustis script->vyhodi to target->zatargetis ingy->z tech ingu to zacne kovat trebas stity...

[Carda]

Kód: Vybrat vše

sub stitytrebas()
var ingy
UO.AddObject("ingoty")
While UO.Targeting()
	Wait(100)
Wend
UO.Click("ingoty")
Wait(500)
ingy = Mid(UO.GetName("ingoty"), 0, FindText(UO.GetName("ingoty"), "ingots") - 1)#nejsem si jistej tim názvem, jesi je to třeba Iron ings, Iron ingots nebo nějak podobně, a taky si nejsem jistej jesi to není blbost
While UO.GetQuantity("ingoty") >= 20
	UO.DeleteJournal()
	UO.WaitMenu("Blacksmithing","Colored Armor","Colored Armor", ingy+" Armor", ingy+" Armor", ingy+" Heater Shield")#asi ne, ale nvm :p
	UO.UseObject("ingoty")
	Repeat
		Wait(100)
	Until UO.InJournal("ok|ko")
	Wait(500)
Wend
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub FindText(text, find)
var temp, i
For i = 0 to Len(text)
	temp = Mid(text, i, Len(find))
	If temp == find Then
		Return i
	EndIf
Next
Return -1
end sub

Takdle nějak by to možná mohlo bejt, ale nvm psal sem to z hlavy.