Yoko

Code: Select all

sub bs()
	VAR Exit=0, LastTimer, Forge='0x400D22C9', Cont='0x400F7BC7'
	while Exit<>1
		ToHide()
		UO.DeleteJournal()
		LastTimer=UO.Timer()
		UO.WaitMenu('Blacksmithing','Weapons','Weapons','Fences','Spears','dagger')
		UO.UseType(0x1BEF) ; iron ings

		while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
				wait(500)
		wend

		If UO.InJournal("You have failed") then
			repeat
				wait(100)
			until UO.Timer()>=LastTimer+100 ;time to make a dagger
		EndIf

		UO.FindType('0x0F51',-1,'backpack')
		wait(500)

		If UO.GetQuantity('finditem') then
			UO.WaitTargetObject('finditem')
			UO.UseObject(Forge) ;forge
		Endif

		UO.FindType('0x1BEF',-1,'backpack')
		If UO.GetQuantity('finditem')<10 then
			UO.FindType('0x1BEF','0x0000',Cont)
			wait(1000)
			UO.Grab('200','finditem')
		Endif
		wait(1000)
	wend	
	gong(2)
end sub