Tinkering vyroba_wire_string_spulka_velka spulka

Vaše problémy, rady a skripty týkající se tohoto prográmku
Odpovědět
Illidan
Book Snake
Book Snake
Příspěvky: 111
Registrován: 01 říj 2006 14:33

Tinkering vyroba_wire_string_spulka_velka spulka

Příspěvek od Illidan »

Nema prosim vas niekdo takyto script na trening ? nikde ho neviem najst a ani upravit si jestvujuce aby slapali )
Papez
Undead Scriber
Undead Scriber
Příspěvky: 813
Registrován: 19 úno 2007 12:32
Bydliště: Yew
Kontaktovat uživatele:

Re: Tinkering vyroba_wire_string_spulka_velka spulka

Příspěvek od Papez »

Takže tady jsou skripty:

Kód: Vybrat vše

#----------------------------------------------
sub ironwire()
#----------------------------------------------
while NOT UO.DEAD() AND UO.Count("0x1BEF,0x0000") > 5
	UO.DeleteJournal()
        UO.waitmenu('Tinkering','Wires','Wires','Iron Wire')
        UO.usetype('0x1EBC')
       repeat
		wait(500)
	until UO.InJournal('Tinkering failed|You put the iron wire')
	wait(500)
	uo.print(str(UO.Count('0x1876',0x0000)))  
wend
UO.Print("Konec.")
end sub

#----------------------------------------------
sub ironstring()
#----------------------------------------------
var strings=UO.Count('0x1420','0x0000')
var spulky=UO.Count('0x1420','0x08B0')
 while NOT UO.DEAD() AND UO.Count("0x1876,0x0000") > 0 AND UO.Count("0x1BEF,0x0000") > 5

	repeat
	UO.DeleteJournal()
	UO.waitmenu('Tinkering','Wires','Wires','Iron String')
        UO.UseType("0x1EBC")
		repeat
			wait(500)
		until UO.InJournal('Tinkering failed|You put the roll of string')
	strings=UO.Count('0x1420',0x0000)
	uo.print(str(strings)+'+'+str(spulky))
	until strings >= 25 OR UO.Count("0x1876,0x0000") == 0 OR UO.Count("0x1BEF,0x0000") < 5
	if strings >= 25 then
		UO.DeleteJournal()
		UO.waitmenu('Blacksmithing','Tools','Tools','Spulka dratu')
		UO.UseType('0x1BEF,0x0000')
		wait(7000)
		if UO.Count("0x1420,0x08B0") >= 10 then
			UO.DeleteJournal()
			UO.waitmenu('Blacksmithing','Tools','Tools','Velka spulka dratu')
			UO.UseType("0x1BEF")
			wait(7000)
		endif
		spulky=UO.Count('0x1420','0x08B0')
	endif
    
wend
UO.Print("Konec, dosel drat (0) nebo malo iron (>5)!")
uo.PlayWav("C:\Windows\media\ding.wav")
end sub
Papez - The Vampire.
Hodny Stistko - The Mage.
Lara Craft - The Craftswoman.
Pytlak Riha - True NB Ranger
Svaty Otec - True NB Cleric
http://www.laracraft.cz
Papez
Undead Scriber
Undead Scriber
Příspěvky: 813
Registrován: 19 úno 2007 12:32
Bydliště: Yew
Kontaktovat uživatele:

Re: Tinkering vyroba_wire_string_spulka_velka spulka

Příspěvek od Papez »

Od doby, co jsem to postnul, to vidělo mraky lidí, ale nikdo se mě neobtěžoval pochválit, přitom mi funguje bez problémů už x let :mrgreen: . Ach jo :cry:
Papez - The Vampire.
Hodny Stistko - The Mage.
Lara Craft - The Craftswoman.
Pytlak Riha - True NB Ranger
Svaty Otec - True NB Cleric
http://www.laracraft.cz
Foukus
Orc Writer
Orc Writer
Příspěvky: 75
Registrován: 22 led 2007 15:43

Re: Tinkering vyroba_wire_string_spulka_velka spulka

Příspěvek od Foukus »

Papez píše: 18 bře 2018 22:37 Od doby, co jsem to postnul, to vidělo mraky lidí, ale nikdo se mě neobtěžoval pochválit, přitom mi funguje bez problémů už x let :mrgreen: . Ach jo :cry:
Teď podle něho začínám jet. Díky, šikula :-D
*Život je jako bahno......umí v něm chodit jenom svině*

Bejvávalo:
Gobledon [Hunters] - The Paladin
Uživatelský avatar
krysakrys
Elder Letter
Elder Letter
Příspěvky: 233
Registrován: 06 srp 2016 21:12

Re: Tinkering vyroba_wire_string_spulka_velka spulka

Příspěvek od krysakrys »

Nic, psal jsem na spatne forum.
Odpovědět