Item Identification

Details #

All scripts have been collected over the years and if available will still contain the creators details, these scripts may run well or not.

Scripts #

ItemID.sc #

Note: This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

sub Main()
while TRUE
  Repeat
	UO.Press(120)
	UO.Waittargettype("0x14f0")
	Wait(1000)
	UO.Exec("useskill 'Item Identification'")
	Wait(1000)
	UO.Exec("waitmenu 'Choose' 'South'")
	Wait(1000)
	UO.Usetype("0x14f0")
	Wait(1000)
	UO.Press(117)
	Wait(1000)
	UO.LClick(120,84)
	UO.LClick(120,84)
	UO.LClick(120,84)
	Wait(4000)
  Until FALSE
WEND 
end sub

itemid2.sc #

Note: This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

sub main()
  aaa:
	UO.Exec("useskill 'Item Identification'")
		wait(3000)
	UO.Exec("waittargettype chairdeed")
	    wait(4000)
	UO.Exec("useobject chairdeed")
		wait(4000)
	UO.LClick(338,253)
		wait(4000)
		UO.LDblClick(152,72)
		wait(4000)
	UO.LClick(114,84)
		wait(1000)
  goto aaa
end sub

itemid3.sc #

Note: This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

sub main()
start:
#only have 1 empty bottle in your pack#
 UO.Exec("waittargettype pot")
 UO.Exec("usetype keg")
 wait(3000)
 UO.LClick(115,85)
 wait(3000)
 UO.Exec("waittargettype bottle")
 UO.Exec("usetype keg")
 wait(3000)
 UO.Exec("waittargettype pot")
 UO.Useskill("Item Identification")
 wait(7000)

goto start    
end sub

itemid-chair.sc #

Note: This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

sub main()
  aaa:
	
	UO.Exec("waittargettype chairdeed")
	UO.Exec("useskill 'Item Identification'")
		wait(1100)
	UO.Exec("usetype chairdeed")
		wait(1000)
	UO.LClick(382,233)
		wait(2000)		
	UO.LClick(114,86)
		wait(7000)
  goto aaa
end sub

item id.sc #

#Simple Item ID Script written by Pigeon :D Have fun maxing it!

#Set the wait times where indicated to compensate for lag (or lack thereof)
#The type variable (listed below) will change depending on which furniture
#you use. I recomend furniture that takes up only 1 tile. Crates and small 
#tables work well. The ID for crates is 0x09A9.

sub main()
	Repeat
		placeItem()
		Wait(2000)
		
		Repeat
			UO.WaitTargetType(0x14F0)
			UO.UseSkill("Item Identification")
			Wait(1000)
		Until UO.InJournal("normal item")
	Until False
end sub

sub placeItem()
	UO.WaitTargetLast()
	UO.WaitMenu('Choose', 'South')
	UO.OnGump('anygump', '1')
	UO.UseType(0x14F0) #standard deed graphic
end sub

sub redeedItem(gfx)
	var time
	UO.WaitTargetGround(gfx)
	UO.Say(".redeed")
	time = 0
	Repeat
		Wait(200)
		time = time + 200
	Until UO.InJournal("You place") OR time > 5000
end sub

sub idItem(gfx)
	UO.DeleteJournal()
	UO.WaitTargetGround(gfx)
	UO.UseSkill("Item Identification")
end sub

id wand.sc #

sub main()
	Repeat
		UO.WaitTargetType(0x0DF2)
		UO.UseSkill("Item Identification")
		Wait(11000)
	Until FALSE
end sub

id loop.sc #

sub main()
	Repeat
		UO.UseSkill("Item Identification")
		Wait(1000)
	Until FALSE
end sub

ID Bag of Items.sc #

sub main()
	UO.IgnoreReset()
		
	var itemBag = userSelect('Select bag of items.')
	
	UO.IgnoreReset()

	UO.FindType(-1, -1, itemBag)
	
	var itemCount = UO.FindCount()
	dim items[Val(Str(itemCount))]
	var i
	
	For i = 0 To itemCount - 1
		UO.FindType(-1, -1, itemBag)	
		items[i] = UO.GetSerial('finditem')
		UO.Ignore('finditem')
	Next
	
	UO.IgnoreReset()
	
	For i = 0 To itemCount - 1
		UO.DeleteJournal()
		
		While Not UO.InJournal('It appears to be a|This is a normal item.')
			UO.WaitTargetObject(items[i])
			UO.UseSkill('Item Identification')
			Wait(10500)
		Wend
		
		UO.Say(UO.LastMessage())
	Next
	
	UO.Say("Finished!")
end sub

sub userSelect(prompt)
	UO.Set('quiet', 0)
	UO.Print(prompt)
	
	UO.Set('quiet', 1)
	UO.AddObject('Object')
	
	While UO.Targeting()
		Wait(200)
	Wend
	
	return UO.GetSerial('Object')
end sub

ID Bag of Items 130.sc #

sub main()
	UO.IgnoreReset()
		
	var itemBag = userSelect('Select bag of items.')
	
	UO.IgnoreReset()

	UO.FindType(-1, -1, itemBag)
	
	var itemCount = UO.FindCount()
	dim items[Val(Str(itemCount))]
	var i
	
	For i = 0 To itemCount - 1
		UO.FindType(-1, -1, itemBag)	
		items[i] = UO.GetSerial('finditem')
		UO.Ignore('finditem')
	Next
	
	UO.IgnoreReset()
	
	var time
	var firstTime = True
	
	For i = 0 To itemCount - 1
		UO.DeleteJournal()
		
		UO.WaitTargetObject(items[i])
		#UO.UseSkill('Item Identification')

		time = 0			
		While Not UO.InJournal('It appears to be a|This is a normal item.')
			
			
			If time > 3000 || firstTime == True Then
				UO.UseSkill('Item Identification')
				firstTime = False
			End If
			
			time = time + 200
			Wait(200)
		Wend
		
		#UO.Say(UO.LastMessage())
	Next
	
	UO.Say("Finished!")
end sub

sub userSelect(prompt)
	UO.Set('quiet', 0)
	UO.Print(prompt)
	
	UO.Set('quiet', 1)
	UO.AddObject('Object')
	
	While UO.Targeting()
		Wait(200)
	Wend
	
	return UO.GetSerial('Object')
end sub

Powered by BetterDocs