Dark Paradise

Napsal: **20.03.2007 22:45:10**

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

Napsal: **21.03.2007 13:22:37**

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'")

Napsal: **21.03.2007 13:24:41**

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

Napsal: **21.03.2007 13:25:47**

ale vono to nefunguje strejdo

Napsal: **21.03.2007 13:27:23**

aha

ja sem ve skoel tak sem nemohl testit..

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

Napsal: **21.03.2007 13:27:58**

Erik Nighelt píše: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

Napsal: **21.03.2007 15:15:20**

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

Napsal: **21.03.2007 22:52:06**

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

Napsal: **22.03.2007 09:51:51**

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

,info jsi nezkoušel?

Napsal: **22.03.2007 10:35:33**

Aldeigjuborg píše:
Erik Nighelt píše: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

Napsal: **22.03.2007 14:16:07**

Carda píše: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

Napsal: **22.03.2007 14:20:34**

Carda píše:

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ě

Napsal: **22.03.2007 16:11:46**

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

Napsal: **22.03.2007 16:31:32**

Carda píše: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

Napsal: **22.03.2007 16:44:22**

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

Napsal: **22.03.2007 17:02:16**

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

Napsal: **24.03.2007 21:25:23**

a mohl by se nekdo pokusit to pro me udelat?

Napsal: **25.03.2007 11:13:39**

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

Napsal: **05.04.2007 15:43:19**

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

Napsal: **05.04.2007 17:14:18**

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.

Dark Paradise

Kovani zbrani

Kovani zbrani