Carpentry

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 #

carp.sc #


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

UO.Exec("waitmenu 'What' 'Staff' 'What' 'Black'")
UO.Exec('waittargettype logs')
UO.Exec('usetype carptool') 
wait(8000)
UO.LClick(60,82)
wait(2000)

GOTO start 
end sub 

carpentry.sc #

sub main()
	var currentBag, bagType, i
	
	UO.UnsetReceivingContainer()
	UO.Set("quiet", "0")
	
	#Select Bag of bags
	UO.AddObject('Bags')
	While UO.Targeting()
		Wait(500)
	Wend
	
	bagType = UO.GetGraphic('Bags')
	
	UO.Set("quiet", "1")
	
	Repeat
		#grab one bag from bag and set it as the receiving container
		UO.FindType("bagType", -1, 'Bags')
		If UO.FindCount() Then
			currentBag = UO.GetSerial('finditem')
		Else
			armsLore()
		End If
		
		UO.SetReceivingContainer(currentBag)
		UO.MoveItem(currentBag,'0','ground')

		#Make carpet
		i = 0
		Repeat
			UO.DeleteJournal()
			UO.WaitTargetType(0x1BDD)
			UO.WaitMenu('What', 'Staff', 'What', 'Quarter')
			#UO.OnGump('anygump', '1')
			UO.UseType(0x1035)
			Repeat
				wait(200)
			Until UO.InJournal("destroy|make|create|moved|full|place")
			If UO.InJournal("create|make|place") Then
				i = i + 1
				grabItem()
			End If
			UO.FindType("0x0E8A", -1, currentBag)
		Until UO.FindCount() > 147 || UO.SkillVal("Carpentry") > (89.9 * 10)
	Until FALSE
end sub

sub grabItem()
	var count = UO.Count(0x0E8A)
	var i
	For i = 1 To count
		UO.FindType("0x0E8A", -1, 'my')
		UO.Grab(0, 'finditem')
		UO.Ignore('finditem')
	Next
	UO.IgnoreReset()
end sub

sub armsLore()
	Repeat
		UO.WaitTargetType(0x13E3)
		UO.UseSkill("Arms Lore")
		Wait(5000)
	Until FALSE
end sub

carpentry3.sc #

sub main()
	var currentBag, bagType, i
	var woodType = 0x1BDD
	var sawType = 0x1028
	
	UO.UnsetCatchBag()
	UO.Set("quiet", "0")
	
	#Select Bag of bags
	userSelectObject('Bags')
	bagType = UO.GetGraphic('Bags')
	
	#UO.Set("quiet", "1")
	
	Repeat
		UO.FindType(bagType, -1, 'Bags')
		If UO.FindCount() Then
			currentBag = UO.GetSerial('finditem')
		Else
			armsLore()
		End If
		
		UO.SetCatchBag(currentBag)
		UO.MoveItem(currentBag, 0, 'ground')

		Repeat
			UO.DeleteJournal()
			UO.WaitTargetType(woodType)
			UO.WaitMenu('What', 'Staff', 'What', 'Black')
			
			UO.UseType(sawType)
			journalWait("destroy|make|create|moved|full|place", 10000)
			
			UO.FindType(-1, -1, currentBag)
		Until UO.FindCount() > 147
	Until FALSE
end sub

sub userSelectObject(objcetLabel)
	UO.AddObject(objcetLabel)
	
	While UO.Targeting()
		Wait(500)
	Wend
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 armsLore()
	Repeat
		UO.WaitTargetType(0x13E3)		
		UO.UseSkill("Arms Lore")
		
		Wait(5000)
	Until FALSE
end sub

carpentry4.sc #

sub main()
	var i = 0
	Repeat
		UO.DeleteJournal()
		UO.WaitTargetType(0x1BDD)
		UO.WaitMenu('What', 'Staff', 'What', 'Black')
		UO.OnGump('anygump', '1')
		UO.UseType(0x1035)
		Repeat
			wait(200)
		Until UO.InJournal("destroy|pack")
		If UO.InJournal("pack") Then
			i = i + 1
			UO.Print(STR(i) + " items made")
		End If
	Until i > 130
end sub

Powered by BetterDocs