Verite zbraně (na otravu)

[Lara Craft]

Dýky:

Kód: Vybrat vše

#---------------------------------------------------------------
sub veritedyky()
#---------------------------------------------------------------
UO.DeleteJournal()
var minpauza=3500
uo.print("Kam chces davat dyky?")
uo.addObject('bedynka')
    While UO.Targeting()
        wait(100)
    wend
uo.SetCatchBag('bedynka')
uo.findtype("0x0F51","0x08A1","bedynka")
var dyky=UO.FindCount()
while not uo.dead() AND dyky<100
	UO.waitmenu('Blacksmithing','Verite Weapons','Verite Weapons','Verite Swords & Blades','Verite Swords & Blades','Verite Dagger')
	UO.Usetype("0x1BEF,0x0000") 
	wait(minpauza)
	repeat
		wait(500)
	until UO.InJournal('You put the Verite Dagger|failed')
	if uo.Injournal("You put") then
		uo.findtype("0x0F51","0x08A1","bedynka")
		dyky=UO.FindCount()
		UO.Print("Mas uz "+STR(dyky)+" dyk")
	endif
	UO.DeleteJournal()
wend
if UO.Count("0x1BEF","0x07D1") < 5 then
UO.Print("Konec, dosly ingoty")
endif
UO.Print("Konec vyroby, v bedynce je "+STR(dyky)+" dyk")
uo.UnsetCatchBag()
end sub

Sekáčky:

Kód: Vybrat vše

#---------------------------------------------------------------
sub veritesekacky()
#---------------------------------------------------------------
UO.DeleteJournal()
var minpauza=3500
uo.print("Kam chces davat dyky?")
uo.addObject('bedynka')
    While UO.Targeting()
        wait(100)
    wend
uo.SetCatchBag('bedynka')
uo.findtype("0x0EC2","0x08A1","bedynka")
var sekacky=UO.FindCount()
while not uo.dead() AND sekacky<100
	UO.waitmenu('Blacksmithing','Verite Weapons','Verite Weapons','Verite Swords & Blades','Verite Swords & Blades','Verite Cleaver')
	UO.Usetype("0x1BEF,0x0000") 
	wait(minpauza)
	repeat
		wait(500)
	until UO.InJournal('You put the Verite Cleaver|failed')
	if uo.Injournal("You put") then
		uo.findtype("0x0EC2","0x08A1","bedynka")
		sekacky=UO.FindCount()
		UO.Print("Mas uz "+STR(sekacky)+" sekacku.")
	endif
	UO.DeleteJournal()
	if UO.Count("0x1BEF","0x07D1") < 5 then
		UO.Print("Konec, dosly ingoty")
	endif
wend
UO.Print("Konec vyroby, v bedynce je "+STR(sekacky)+" sekacku.")
uo.UnsetCatchBag()
    end sub