Yoko

Code: Select all

sub Item()
	UO.IgnoreReset()
	UO.FindType('-1', '-1', '2')
	while UO.FindCount() <> 0
		UO.DeleteJournal()
		UO.Click('finditem')
		repeat
			wait(50)
		until UO.InJournal("You see: ") == 0
		if UO.InJournal('[Not Identified]') then
			repeat
				UO.DeleteJournal()
				if UO.ContainerOf('finditem') <> '0x400A0B96' then
					UO.MoveItem('finditem')
					wait(100)
				endif
				UO.UseSkill('Item Identification', 'finditem')
				repeat
					wait(50)
				until UO.InJournal("to identify") <> 0
				wait(6000)
			until UO.InJournal("succesfully") <> 0 || UO.InJournal("already") <> 0 || UO.InJournal("destroyed") <> 0
		endif
		UO.Ignore('finditem')
		wait(50)
		UO.FindType('-1', '-1', '2')
	wend
end sub