Tinkering

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 #

tinkcleaver.sc #

sub Main()
La:
UO.Exec("waittargettype 0x1bf2") 
UO.UseType(0x1ebc)
UO.Exec("waitmenu 'What would you like to make?' 'Deadly Tools' 'What would you like to make?' 'Cleaver'")
wait(8000)
GOTO La
end sub

sub Sex()
Boobs:
UO.Lclick(58,86)
Wait(8000)
GOTO Boobs
end sub

tinkering.sc #

sub main()
	var logsType = 0x1BDD
	var tinkerToolsType = 0x1EBC

	Repeat		
		UO.WaitMenu('What', 'Paper', 'What', 'Scroll')
		UO.WaitTargetType(logsType)
		UO.UseType(tinkerToolsType)
		
		journalWait("destroy|create|make", 10000)
	Until False
end sub

sub journalWait(journalPattern, timeOut)
	var time = 0
		
	UO.DeleteJournal()
	
	Repeat
		time = time + 200
		Wait(200)
	Until UO.InJournal(journalPattern) || time > timeOut
end sub

tinkering spellbooks for money.sc #

sub main()
	var logsType = 0x1BDD
	var tinkerToolsType = 0x1EBC
	
	userSelect("Book Container")
	UO.SetCatchBag("Book Container")
	
	While UO.Count("Book Container") > 140
		Wait(200)
	Wend
	
	Repeat		
		UO.WaitMenu('What', 'Paper', 'What', 'spell')
		UO.WaitTargetType(logsType)
		UO.UseType(tinkerToolsType)
		
		journalWait("destroy|create|make", 10000)
	Until False
end sub

sub journalWait(journalPattern, timeOut)
	var time = 0
		
	UO.DeleteJournal()
	
	Repeat
		time = time + 200
		Wait(200)
	Until UO.InJournal(journalPattern) || time > timeOut
end sub

sub userSelect(objectName)
	UO.AddObject(objectName)
	
	While UO.Targeting()
		Wait(200)
	Wend
	
	return UO.GetSerial(objectName)
end sub

tinkering hax.sc #

sub main()
	var time
	Repeat
		pickupScrolls()
		Wait(500)
		dropScrolls()
		
		UO.DeleteJournal()
		UO.WaitTargetType(0x1BDD)
		UO.WaitMenu('What', 'Paper', 'What', 'scroll')
		UO.OnGump('anygump', '1')
		UO.UseType(0x1EBC)
		time = 0
		Repeat
			wait(200)
			time = time + 200
		Until UO.InJournal("destroy|create") || time > 10000
	Until FALSE
end sub

sub dropScrolls()
	UO.FindType(0x0E34, -1, 'my')
	While UO.FindCount() > 0
		UO.MoveItem('finditem','0','ground')
		Wait(100)
		UO.FindType(0x0E34, -1, 'my')
	Wend
end sub

sub pickupScrolls()
	UO.FindType(0x0E34, -1, 'ground')
	While UO.FindCount() > 0
		UO.Grab(0, 'finditem')
		Wait(100)
		UO.FindType(0x0E34, -1, 'ground')
	Wend
end sub

tink.sc #

sub main() 
uo.say(".autoloop 1")
start:

UO.Exec("waitmenu 'What' 'Tools' 'What' 'Moulding'")
UO.Exec('waittargettype ingots')
UO.Exec('usetype tinktool') 
wait(8000)
UO.LClick(60,82)
wait(2000)

GOTO start 
end sub 

makelockpick.sc #

sub main() 
uo.say(".autoloop 1")
start:

UO.Exec("waitmenu 'What' 'Tools' 'What' 'Lockpicks'")
UO.Exec('waittargettype iron')
UO.Exec('usetype tinktools') 
wait(8000)
UO.LClick(60,82)
wait(2000)

GOTO start 
end sub 

Powered by BetterDocs