sub RaiseAlchemy()
	var counter
	UO.UseType('0x0E9B')
	wait(1000)
	While NOT UO.Dead()
		UO.DeleteJournal()
		counter = 0
		UO.LClick(273,109)
		repeat
			counter = counter + 1
			if counter == 3 then
				drinkns()
			endif
			wait(150)
		Until UO.InJournal('You put the') OR (counter>5)
		If UO.Count('0x0F8D')<200 then
			restockss()
			wait(2000)
		Endif
		If UO.Count('0x0F0E')<100 then
			restockeb()
			wait(2000)
		Endif
		If UO.Count('0x0F06')>250 then
			dropns()
		endif
		If UO.Count('0x0F06')<1 then
			checkns_pots()
		endif
	wend
endsub
sub restockss()
	UO.FindType(0x0F8D,-1,'0x40142CAC')
	if UO.FindCount()>0 then
		UO.Moveitem('finditem','200','backpack')
		wait(1000)
	else
		checkns_pots()
		wait(1000)
	endif
endsub
sub restockeb()
	UO.FindType(0x0F0E,-1, '0x40142CAC')
	UO.Moveitem('finditem','200','backpack')
	wait(1000)
endsub
sub dropns()
	UO.FindType(0x0F06,-1, 'backpack')
	UO.Moveitem('finditem','200','0x40142CAC')
	wait(1000)
endsub
sub checkns_pots()
	if UO.Count('0x0F06')<50 then
		UO.FindType(0x0F06,-1,'0x40142CAC')
		UO.Moveitem('finditem','200','backpack')
		wait(1000)
	endif
endsub
sub drinkns()
	uo.usetype('0x0F06')
	if UO.Count('0x0F0E') > 250 then
		dropeb()
	endif
endsub
sub dropeb()
	UO.FindType(0x0F0E,-1, 'backpack')
	UO.Moveitem('finditem','200','0x40142CAC')
	wait(1000)
endsub