Alchemy

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 #

Alchemy.sc #

sub main()
	var regType = 0x0F88
	var potionType = 0x0F0A
	var time
	
	Repeat
		UO.WaitTargetType(regType)
		UO.WaitMenu("Select", "Deadly")
		UO.DeleteJournal()
		UO.UseType(0x0E9B)
		time = 0
		Repeat
			Wait(200)
			time = time + 200
		Until UO.InJournal("stop griding") || time > 10000
		kegPotions(potionType)
	Until UO.SkillVal("Alchemy") > 1050
end sub

sub kegPotions(type)
	UO.FindType(type, -1, 'my')
	While UO.FindCount() > 0
		UO.OnGump('anygump', '0')
		UO.WaitTargetType(type)
		UO.UseType(0x1940)
		Wait(1000)
		UO.FindType(type, -1, 'my')
	Wend
end sub

Alchemy for others.sc #

sub main()
	var regType = 0x0F88     #Nightshade
	var potionType = 0x0F0A  #Poison Potions
	var choice = "Greater"    #Menu Choice
	var time
	
	Repeat
		UO.WaitTargetType(regType)
		UO.WaitMenu("Select", choice)
		UO.DeleteJournal()
		UO.UseType(0x0E9B)
		time = 0
		Repeat
			Wait(200)
			time = time + 200
		Until UO.InJournal("stop griding") || time > 10000
		kegPotions(potionType)
	Until FALSE
end sub

sub kegPotions(type)
	UO.FindType(type, -1, 'my')
	While UO.FindCount() > 0
		UO.OnGump('anygump', '0')
		UO.WaitTargetType(type)
		UO.UseType(0x1940)
		Wait(1000)
		UO.FindType(type, -1, 'my')
	Wend
end sub

alchy-gex.sc #

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

UO.Exec("waitmenu 'Select' 'Greater'")
UO.Exec('waittargettype sa')
UO.Exec('usetype mortar') 
wait(11000)

#UO.Exec('waittargettype dp')
#UO.Exec('usetype keg') 
#wait(2000)
#UO.RClick(118,87)
#wait(2000)

GOTO start 
end sub 

alchy-simple.sc #

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

UO.Exec("waitmenu 'Select' 'Refresh_Full'")
UO.Exec('waittargettype reag')
UO.Exec('usetype mortar') 
wait(8000)


GOTO start 
end sub 

Alchemy greater explosion.sc #

sub main()
	var regType = 0x0F8C
	var potionType = 0x0F0A
	var time
	
	Repeat
		UO.WaitTargetType(regType)
		UO.WaitMenu("Select", "Greater")
		UO.DeleteJournal()
		UO.UseType(0x0E9B)
		time = 0
		Repeat
			Wait(200)
			time = time + 200
		Until UO.InJournal("stop griding") || time > 10000
		kegPotions(potionType)
	Until FALSE
end sub

sub kegPotions(type)
	UO.FindType(type, -1, 'my')
	While UO.FindCount() > 0
		UO.OnGump('anygump', '0')
		UO.WaitTargetType(type)
		UO.UseType(0x1940)
		Wait(1000)
		UO.FindType(type, -1, 'my')
	Wend
end sub