Veterinary

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 #

veterinary.sc #

sub main()
	#Change the below to the amount that you heal at your current skill level.
	var healAmount = 46
	var time
	var timeTwo
	
	Repeat
		time = 0
		timeTwo = 0
		While UO.Life > (UO.STR - healAmount)
			Wait(300)
			time = time + 300
			timeTwo = timeTwo + 300
			UO.FindType('0x00E2', -1, 'ground')
			UO.Attack('finditem')
			If UO.InJournal("roam") || UO.InJournal("too far") || time > 180000 Then
				UO.DeleteJournal()
				tameHorse()
			End If
			If timeTwo > 30000 Then
				UO.WaitTargetObject('finditem')
				UO.UseType(0x0E21)
				timeTwo = 0
			End If
		Wend
		UO.Press(9)
		UO.Press(9)
		UO.Press(9)
		UO.BandageSelf()
		Wait(6000)
	Until FALSE
end sub

sub tameHorse()
	Repeat
		UO.FindType('0x00E2', -1, 'ground')
		UO.WaitTargetObject('finditem')
		UO.UseSkill("Animal Taming")
		If UO.InJournal("Can't see") Then
			UO.Ignore('finditem')
		End If
		Wait(13000)
	Until UO.InJournal("successfully tame the") || UO.InJournal("tamed already")
	UO.Say("All follow me")
end sub

veterinary 2.sc #

sub main()
	#Change the below to the amount that you heal at your current skill level.
	var healAmount = 46
	var time = 0
	
	Repeat
		While UO.Life < (UO.STR - healAmount)
			UO.WarMode(0)
			UO.BandageSelf()
			Wait(6500)
		Wend
				
		UO.FindType('0x2006', -1, 'ground')
		While UO.FindCount() > 0
			UO.DeleteJournal()
			UO.WaitTargetObject('finditem')
			UO.UseType(0x0E21)
			time = 0
			Repeat
				Wait(200)
				time = time + 200
			Until UO.InJournal("patient") || UO.InJournal("exist") || time > 15000
			UO.FindType('0x2006', -1, 'ground')
		Wend
		
		UO.FindType('0x00E2', -1, 'ground')
		UO.Attack('finditem')
		wait(300)
		time = time + 300
	Until FALSE
end sub

veterinary res-kill.sc #

sub main()
	Repeat
		UO.Say("All Follow me")
		
		UO.FindType(deadHorse)
		UO.WaitTargetObject('finditem')
		Repeat
			UO.UseType(0x0E21)
			Repeat
				Wait(200)
			Until UO.InJournal("patient")
		Until UO.InJournal("back To life")
	Until FALSE
end sub

veterinary 3.sc #

sub main()
  Repeat   
	UO.Waittargetlast()
	UO.Usetype("0x0e21")
	Wait(5500)
  Until UO.InJournal('exist')
end sub