Dark Paradise

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