Alchemy Sorter

Warning

This script is for advanced scripters. It contains various functions and references so I expect you to understand all the scripts and the functions if you read this article. Otherwise you should read scripting tutorials for beginners:

My Second Script is a perfect scripting tutorial for beginners.

IntroductionEdit

This tutorial is going to explain you how to create an alchemy sorter. (I searched this article on the Wiki but I couldn’t find it so I made it myself because it’s a very useful script.) Before I start explaining you should know this script is for advanced scripters. It contains various functions and references so I expect you to understand all the scripts and the functions if you read this article, take your time reading it. I’ll occasionally explain some parts of the scripts to make sure understanding these scripts won’t be that hard.

You might have noticed not all mods use the same kind of alchemy sorter script, but don’t worry, I’ll try to explain as many features of the alchemy sorter script as possible.

For those who visited this page to find some mods about alchemy sorters or those who need some working versions the alchemy script, here are some good mods:

Tools used in this tutorial

Required

Construction Set

Optional

OBSE

Name	Download Links
Common Oblivion (Cobl)	PES /Tesnexus
Trystan's Alchemical Sorter	Tesnexus
Mountain Tower	PES /Tesnexus
Portable Alchemical Sorter	PES
Armory Lab	Tesnexus /Elricm

Alchemy SorterEdit

What is an alchemy sorter, you ask? This is an activator capable of sorting all your ingredients into (one or more) containers so you can deposit and retrieve all your ingredients fast and efficiently, The alchemy sorter is used to reduce the time necessary to create potions and poisons. It will transfer ingredients between the player and (one or more) containers. So if this activator is combined with the Static Alchemy activator, it will reduce the time necessary to create potions and poisons significantly. There is only one “minor” problem with the script: there are more than 100 ingredients in TES4 Oblivion (Shivering Isles Ingredients not included) (this is what makes this script so hard to create), so the script is going to be very long. We'll have to divide it into smaller (quest)scripts because of the maximum script size.

Before we start with the script we have to prepare everything else first: (Everything will be named in the scripts as the examples enlisted below, so if you changed those names don't forget to change those names in the scripts too.)

A container (for each ingredient if you want, but this could take some time, so in this tutorial we only need one.)
Reference Editor ID: ContainerRef

Name: (doesn't matter) (eg. Alchemy Sorter)
6 Quests: Create one for each feature of the alchemy sorter: (eg. Deposit All) (Deposit by Effect, Deposit by Category, Deposit All, Retrieve by Effect, Deposit by Category, Deposit All.)
Editor ID: (eg. 000DepositAllQuest)
7 Scripts: (the script type of the last 6 scripts is Quest Script and the first is Object.) (eg. Retrieve All)
Name: (eg. 000RetrieveAll)

We need to create a container for every ingredient and give the containers a unique reference editor ID, (in this case I’ll use the original name of each ingredient as the reference editor ID (+ ContainerRef).) (This needs to be done after the scripts are made!) Now we need to add the (quest)scripts to the quests. (eg. add the 000RetrieveAll script to the 000RetrieveAllQuest quest)

Script 1: The alchemy Menu

This is the script we’ll use for the activator.

Part 1

this is the first part of the first script (no quest script) to use the alchemy sorter features.

Part 2

this is the second part of the first script (no quest script) to view all Ingredients in the container.

Script 2: Depositing Ingredients by Effect

A quest script to deposit Ingredients by effect in the container.

Script 3: Depositing Ingredients by Category

A quest script to deposit Ingredients by category in the container.

Script 4: Depositing All Ingredients

A quest script to deposit all your Ingredients directly in the container.

Script 5: Retrieving Ingredients by Effect

A quest script to retrieve Ingredients by effect in the container.

Script 6: Retrieving Ingredients by Category

A quest script to retrieve Ingredients by category in the container.

Script 7: Retrieving All ingredients

A quest script to retrieve all the ingredients currently in the container.

Tip

This probably sounds like a lot of work, and believe me, it is. So be carefull not to make any mistakes, work decently, read your script frequently to be sure everything is correct.

Tip

If you don't want the annoying message spam if you use your alchemy sorter you should replace the AddItem & RemoveItem functions. OBSE v0015 now provides spam free versions of functions that don't generate messages:

Script 1: The alchemy MenuEdit

The first script consists of two parts: The first part:Messagebox and the second part:Viewing All Ingredients

Part 1: MessageBoxEdit

This part is essential because it contains the menu to operate the alchemy sorter. All functions are listed in this menu. look at the table if the ’’’Choosing’’’ values are confusing you.

Tip

The messagebox function is used frequently in the first script so it’s good to read some tutorials about them.

Choosing - Value	Menu
-1/1	Main Menu: The Alchemy Menu
-10/10	Sub Menu: Deposit Ingredients
-11/11	Deposit by Effect
-12/12	Deposit by Category
-13/13	Deposit All
-20/20	Sub Menu: Retrieve Ingredients
-21/21	Retrieve by Effect
-22/22	Retrieve by Category
-23/23	Retrieve All
-30/30	View All Ingredients

Warning: Unfinished

Scn AlchemyMenu

;Ref ContainerRef

Short Choosing
Short Choice
Short DepositChoice
Short RetrieveChoice

begin OnActivate
	if Choosing == 0
		set Choosing to -1
	endif
end

begin Gamemode
     If (Choosing == -1)
          MessageBox "What do you want to do?", "Deposit Ingredients", "Retrieve Ingredients", "View all Ingredients", "Done"
          set Choosing to 1
          set Choice to GetButtonPressed
     elseif (Choosing == 1)
		if (Choice == -1)
			set Choice to GetButtonPressed
		elseif (Choice == 0)
			set Choosing to -10
		elseif (Choice == 1)
			set Choosing to -20
		elseif (Choice == 2)
			set Choosing to -30
		elseif (Choice == 3)
			set Choosing to 0
		endif
	Endif

;==========Sub Menu: Deposit Ingredients==========

     If (Choosing == -10)
          "What do you want to do?", "Deposit by Effect", "Deposit by Category", "Deposit All", "Back"
          set Choosing to 10
          set DepositChoice to GetButtonPressed
     elseif (Choosing == 10)
		if (DepositChoice == -1)
			set DepositChoice to GetButtonPressed
		elseif (DepositChoice == 0)
			set Choosing to -11
		elseif (DepositChoice == 1)
			set Choosing to -12
		elseif (DepositChoice == 2)
			set Choosing to -13
		elseif (DepositChoice == 3)
			set Choosing to -1
		endif
	Endif

;==========Sub Menu: Retrieve Ingredients==========

     If (Choosing == -20)
          "What do you want to do?", "Retrieve by Effect", "Retrieve by Category", "Retrieve All", "Back"
          set Choosing to 20
          set RetrieveChoice to GetButtonPressed
     elseif (Choosing == 20)
		if (RetrieveChoice == -1)
			set DepositChoice to GetButtonPressed
		elseif (RetrieveChoice == 0)
			set Choosing to -21
		elseif (RetrieveChoice == 1)
			set Choosing to -22
		elseif (RetrieveChoice == 2)
			set Choosing to -23
		elseif (RetrieveChoice == 3)
			set Choosing to -1
		endif
	Endif

;==========Start Quest Scripts==========

     If Choosing == -11
          StartQuest 000DepositEffectQuest
          set Choosing to 0
     Endif

     If Choosing == -12
          StartQuest 000DepositCategoryQuest
          set Choosing to 0
     Endif

     If Choosing == -13
          StartQuest 000DepositAllQuest
          set Choosing to 0
     Endif

     If Choosing == -21
          StartQuest 000DepositEffectQuest
          set Choosing to 0
     Endif

     If Choosing == -22
          StartQuest 000DepositCategoryQuest
          set Choosing to 0
     Endif

     If Choosing == -23
          StartQuest 000DepositAllQuest
          set Choosing to 0
     Endif
...

Part 2: Viewing all IngredientsEdit

Warning: Unfinished

This feature is used to view all the ingredients you have sorted in one container, it’s useful if you need some ingredients quickly if you have few to none ingredients stocked in your alchemy sorter. Here’s how it works: Every ingredient will be in one container when the player opens the chest, this feature can be used if you have few to none ingredients stocked in your alchemy sorter.

...
     If Choosing == -30
          ContainerRef.Activate Player 0
          set Choosing to 0
     Endif
End

Script 2: Depositing Ingredients by EffectEdit

Warning: Unfinished

Scn 000DepositEffect

;Ref ContainerRef
Short ItemCount

Begin GameMode
	If ( Player.GetItemCount AlkanetFlower > 0 ) 
		Set ItemCount to Player.GetItemCount AlkanetFlower
		Player.RemoveItem AlkanetFlower ItemCount
		ContainerRef.AddItem AlkanetFlower ItemCount
	EndIf
	If ( Player.GetItemCount AloeVeraLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount AloeVeraLeaves
		Player.RemoveItem AloeVeraLeaves ItemCount
		ContainerRef.AddItem AloeVeraLeaves ItemCount
	EndIf
	If ( Player.GetItemCount Ambrosia > 0 ) 
		Set ItemCount to Player.GetItemCount Ambrosia
		Player.RemoveItem Ambrosia ItemCount
		ContainerRef.AddItem Ambrosia ItemCount
	EndIf
	If ( Player.GetItemCount Apple > 0 ) 
		Set ItemCount to Player.GetItemCount Apple
		Player.RemoveItem Apple ItemCount
		ContainerRef.AddItem Apple ItemCount
	EndIf
	If ( Player.GetItemCount Arrowroot > 0 ) 
		Set ItemCount to Player.GetItemCount Arrowroot
		Player.RemoveItem Arrowroot ItemCount
		ContainerRef.AddItem Arrowroot ItemCount
	EndIf
	If ( Player.GetItemCount Beef > 0 ) 
		Set ItemCount to Player.GetItemCount Beef
		Player.RemoveItem Beef ItemCount
		ContainerRef.AddItem Beef ItemCount
	EndIf
	If ( Player.GetItemCount BergamotSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount BergamotSeeds
		Player.RemoveItem BergamotSeeds ItemCount
		ContainerRef.AddItem BergamotSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Blackberry > 0 ) 
		Set ItemCount to Player.GetItemCount Blackberry
		Player.RemoveItem Blackberry ItemCount
		ContainerRef.AddItem Blackberry ItemCount
	EndIf
	If ( Player.GetItemCount Bloodgrass > 0 ) 
		Set ItemCount to Player.GetItemCount Bloodgrass
		Player.RemoveItem Bloodgrass ItemCount
		ContainerRef.AddItem Bloodgrass ItemCount
	EndIf
	If ( Player.GetItemCount BoarMeat > 0 ) 
		Set ItemCount to Player.GetItemCount BoarMeat
		Player.RemoveItem BoarMeat ItemCount
		ContainerRef.AddItem BoarMeat ItemCount
	EndIf
	If ( Player.GetItemCount BogBeaconAscoCap01 > 0 ) 
		Set ItemCount to Player.GetItemCount BogBeaconAscoCap01
		Player.RemoveItem BogBeaconAscoCap01 ItemCount
		ContainerRef.AddItem BogBeaconAscoCap01 ItemCount
	EndIf
	If ( Player.GetItemCount Bonemeal > 0 ) 
		Set ItemCount to Player.GetItemCount Bonemeal
		Player.RemoveItem Bonemeal ItemCount
		ContainerRef.AddItem Bonemeal ItemCount
	EndIf
	If ( Player.GetItemCount BreadLoaf > 0 ) 
		Set ItemCount to Player.GetItemCount BreadLoaf
		Player.RemoveItem BreadLoaf ItemCount
		ContainerRef.AddItem BreadLoaf ItemCount
	EndIf
	If ( Player.GetItemCount CairnBoleteCap > 0 ) 
		Set ItemCount to Player.GetItemCount CairnBoleteCap
		Player.RemoveItem CairnBoleteCap ItemCount
		ContainerRef.AddItem CairnBoleteCap ItemCount
	EndIf
	If ( Player.GetItemCount Carrot > 0 ) 
		Set ItemCount to Player.GetItemCount Carrot
		Player.RemoveItem Carrot ItemCount
		ContainerRef.AddItem Carrot ItemCount
	EndIf
	If ( Player.GetItemCount CheeseWedge > 0 ) 
		Set ItemCount to Player.GetItemCount CheeseWedge
		Player.RemoveItem CheeseWedge ItemCount
		ContainerRef.AddItem CheeseWedge ItemCount
	EndIf
	If ( Player.GetItemCount CheeseWheel > 0 ) 
		Set ItemCount to Player.GetItemCount CheeseWheel
		Player.RemoveItem CheeseWheel ItemCount
		ContainerRef.AddItem CheeseWheel ItemCount
	EndIf
	If ( Player.GetItemCount CinnabarPolyporeCap02 > 0 ) 
		Set ItemCount to Player.GetItemCount CinnabarPolyporeCap02
		Player.RemoveItem CinnabarPolyporeCap02 ItemCount
		ContainerRef.AddItem CinnabarPolyporeCap02 ItemCount
	EndIf
	If ( Player.GetItemCount CinnabarPolyporeCap01 > 0 ) 
		Set ItemCount to Player.GetItemCount CinnabarPolyporeCap01
		Player.RemoveItem CinnabarPolyporeCap01 ItemCount
		ContainerRef.AddItem CinnabarPolyporeCap01 ItemCount
	EndIf
	If ( Player.GetItemCount ClannfearClaws > 0 ) 
		Set ItemCount to Player.GetItemCount ClannfearClaws
		Player.RemoveItem ClannfearClaws ItemCount
		ContainerRef.AddItem ClannfearClaws ItemCount
	EndIf
	If ( Player.GetItemCount CloudedFunnelCap > 0 ) 
		Set ItemCount to Player.GetItemCount CloudedFunnelCap
		Player.RemoveItem CloudedFunnelCap ItemCount
		ContainerRef.AddItem CloudedFunnelCap ItemCount
	EndIf
	If ( Player.GetItemCount ColumbineRootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount ColumbineRootPulp
		Player.RemoveItem ColumbineRootPulp ItemCount
		ContainerRef.AddItem ColumbineRootPulp ItemCount
	EndIf
	If ( Player.GetItemCount Corn > 0 ) 
		Set ItemCount to Player.GetItemCount Corn
		Player.RemoveItem Corn ItemCount
		ContainerRef.AddItem Corn ItemCount
	EndIf
	If ( Player.GetItemCount CrabMeat > 0 ) 
		Set ItemCount to Player.GetItemCount CrabMeat
		Player.RemoveItem CrabMeat ItemCount
		ContainerRef.AddItem CrabMeat ItemCount
	EndIf
	If ( Player.GetItemCount DaedraHeart > 0 ) 
		Set ItemCount to Player.GetItemCount DaedraHeart
		Player.RemoveItem DaedraHeart ItemCount
		ContainerRef.AddItem DaedraHeart ItemCount
	EndIf
	If ( Player.GetItemCount DaedraSilk > 0 ) 
		Set ItemCount to Player.GetItemCount DaedraSilk
		Player.RemoveItem DaedraSilk ItemCount
		ContainerRef.AddItem DaedraSilk ItemCount
	EndIf
	If ( Player.GetItemCount DaedraVenin > 0 ) 
		Set ItemCount to Player.GetItemCount DaedraVenin
		Player.RemoveItem DaedraVenin ItemCount
		ContainerRef.AddItem DaedraVenin ItemCount
	EndIf
	If ( Player.GetItemCount DaedrothTeeth > 0 ) 
		Set ItemCount to Player.GetItemCount DaedrothTeeth
		Player.RemoveItem DaedrothTeeth ItemCount
		ContainerRef.AddItem DaedrothTeeth ItemCount
	EndIf
	If ( Player.GetItemCount DragonsTongue > 0 ) 
		Set ItemCount to Player.GetItemCount DragonsTongue
		Player.RemoveItem DragonsTongue ItemCount
		ContainerRef.AddItem DragonsTongue ItemCount
	EndIf
	If ( Player.GetItemCount DreughWax > 0 ) 
		Set ItemCount to Player.GetItemCount DreughWax
		Player.RemoveItem DreughWax ItemCount
		ContainerRef.AddItem DreughWax ItemCount
	EndIf
	If ( Player.GetItemCount DryadSaddlePolyporeCap > 0 ) 
		Set ItemCount to Player.GetItemCount DryadSaddlePolyporeCap
		Player.RemoveItem DryadSaddlePolyporeCap ItemCount
		ContainerRef.AddItem DryadSaddlePolyporeCap ItemCount
	EndIf
	If ( Player.GetItemCount Ectoplasm > 0 ) 
		Set ItemCount to Player.GetItemCount Ectoplasm
		Player.RemoveItem Ectoplasm ItemCount
		ContainerRef.AddItem Ectoplasm ItemCount
	EndIf
	If ( Player.GetItemCount ElfCupCap > 0 ) 
		Set ItemCount to Player.GetItemCount ElfCupCap
		Player.RemoveItem ElfCupCap ItemCount
		ContainerRef.AddItem ElfCupCap ItemCount
	EndIf
	If ( Player.GetItemCount EmeticRussulaCap > 0 ) 
		Set ItemCount to Player.GetItemCount EmeticRussulaCap
		Player.RemoveItem EmeticRussulaCap ItemCount
		ContainerRef.AddItem EmeticRussulaCap ItemCount
	EndIf
	If ( Player.GetItemCount FennelSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount FennelSeeds
		Player.RemoveItem FennelSeeds ItemCount
		ContainerRef.AddItem FennelSeeds ItemCount
	EndIf
	If ( Player.GetItemCount FireSalts > 0 ) 
		Set ItemCount to Player.GetItemCount FireSalts
		Player.RemoveItem FireSalts ItemCount
		ContainerRef.AddItem FireSalts ItemCount
	EndIf
	If ( Player.GetItemCount FlaxSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount FlaxSeeds
		Player.RemoveItem FlaxSeeds ItemCount
		ContainerRef.AddItem FlaxSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Flour > 0 ) 
		Set ItemCount to Player.GetItemCount Flour
		Player.RemoveItem Flour ItemCount
		ContainerRef.AddItem Flour ItemCount
	EndIf
	If ( Player.GetItemCount FlyAmanitaCap > 0 ) 
		Set ItemCount to Player.GetItemCount FlyAmanitaCap
		Player.RemoveItem FlyAmanitaCap ItemCount
		ContainerRef.AddItem FlyAmanitaCap ItemCount
	EndIf
	If ( Player.GetItemCount FoxgloveNectar > 0 ) 
		Set ItemCount to Player.GetItemCount FoxgloveNectar
		Player.RemoveItem FoxgloveNectar ItemCount
		ContainerRef.AddItem FoxgloveNectar ItemCount
	EndIf
	If ( Player.GetItemCount FrostSalts > 0 ) 
		Set ItemCount to Player.GetItemCount FrostSalts
		Player.RemoveItem FrostSalts ItemCount
		ContainerRef.AddItem FrostSalts ItemCount
	EndIf
	If ( Player.GetItemCount Garlic > 0 ) 
		Set ItemCount to Player.GetItemCount Garlic
		Player.RemoveItem Garlic ItemCount
		ContainerRef.AddItem Garlic ItemCount
	EndIf
	If ( Player.GetItemCount GinkgoLeaf > 0 ) 
		Set ItemCount to Player.GetItemCount GinkgoLeaf
		Player.RemoveItem GinkgoLeaf ItemCount
		ContainerRef.AddItem GinkgoLeaf ItemCount
	EndIf
	If ( Player.GetItemCount Ginseng > 0 ) 
		Set ItemCount to Player.GetItemCount Ginseng
		Player.RemoveItem Ginseng ItemCount
		ContainerRef.AddItem Ginseng ItemCount
	EndIf
	If ( Player.GetItemCount GlowDust > 0 ) 
		Set ItemCount to Player.GetItemCount GlowDust
		Player.RemoveItem GlowDust ItemCount
		ContainerRef.AddItem GlowDust ItemCount
	EndIf
	If ( Player.GetItemCount Grapes > 0 ) 
		Set ItemCount to Player.GetItemCount Grapes
		Player.RemoveItem Grapes ItemCount
		ContainerRef.AddItem Grapes ItemCount
	EndIf
	If ( Player.GetItemCount GreenStainCupCap > 0 ) 
		Set ItemCount to Player.GetItemCount GreenStainCupCap
		Player.RemoveItem GreenStainCupCap ItemCount
		ContainerRef.AddItem GreenStainCupCap ItemCount
	EndIf
	If ( Player.GetItemCount GreenStainShelfCap > 0 ) 
		Set ItemCount to Player.GetItemCount GreenStainShelfCap
		Player.RemoveItem GreenStainShelfCap ItemCount
		ContainerRef.AddItem GreenStainShelfCap ItemCount
	EndIf
	If ( Player.GetItemCount Ham > 0 ) 
		Set ItemCount to Player.GetItemCount Ham
		Player.RemoveItem Ham ItemCount
		ContainerRef.AddItem Ham ItemCount
	EndIf
	If ( Player.GetItemCount Harrada > 0 ) 
		Set ItemCount to Player.GetItemCount Harrada
		Player.RemoveItem Harrada ItemCount
		ContainerRef.AddItem Harrada ItemCount
	EndIf
	If ( Player.GetItemCount HumanHeart > 0 ) 
		Set ItemCount to Player.GetItemCount HumanHeart
		Player.RemoveItem HumanHeart ItemCount
		ContainerRef.AddItem HumanHeart ItemCount
	EndIf
	If ( Player.GetItemCount DarkHumanSkin > 0 ) 
		Set ItemCount to Player.GetItemCount DarkHumanSkin
		Player.RemoveItem DarkHumanSkin ItemCount
		ContainerRef.AddItem DarkHumanSkin ItemCount
	EndIf
	If ( Player.GetItemCount ImpGall > 0 ) 
		Set ItemCount to Player.GetItemCount ImpGall
		Player.RemoveItem ImpGall ItemCount
		ContainerRef.AddItem ImpGall ItemCount
	EndIf
	If ( Player.GetItemCount IronwoodNut > 0 ) 
		Set ItemCount to Player.GetItemCount IronwoodNut
		Player.RemoveItem IronwoodNut ItemCount
		ContainerRef.AddItem IronwoodNut ItemCount
	EndIf
	If ( Player.GetItemCount SQ01Potato > 0 )
		Set ItemCount to Player.GetItemCount SQ01Potato
		Player.RemoveItem SQ01Potato ItemCount
		ContainerRef.AddItem SQ01Potato ItemCount
	EndIf
	If ( Player.GetItemCount LadysMantleLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount LadysMantleLeaves
		Player.RemoveItem LadysMantleLeaves ItemCount
		ContainerRef.AddItem LadysMantleLeaves ItemCount
	EndIf
	If ( Player.GetItemCount LadysSmockLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount LadysSmockLeaves
		Player.RemoveItem LadysSmockLeaves ItemCount
		ContainerRef.AddItem LadysSmockLeaves ItemCount
	EndIf
	If ( Player.GetItemCount LavEnderSprig > 0 ) 
		Set ItemCount to Player.GetItemCount LavEnderSprig
		Player.RemoveItem LavEnderSprig ItemCount
		ContainerRef.AddItem LavEnderSprig ItemCount
	EndIf
	If ( Player.GetItemCount Leek > 0 ) 
		Set ItemCount to Player.GetItemCount Leek
		Player.RemoveItem Leek ItemCount
		ContainerRef.AddItem Leek ItemCount
	EndIf
	If ( Player.GetItemCount Lettuce > 0 ) 
		Set ItemCount to Player.GetItemCount Lettuce
		Player.RemoveItem Lettuce ItemCount
		ContainerRef.AddItem Lettuce ItemCount
	EndIf
	If ( Player.GetItemCount Lichor > 0 ) 
		Set ItemCount to Player.GetItemCount Lichor
		Player.RemoveItem Lichor ItemCount
		ContainerRef.AddItem Lichor ItemCount
	EndIf
	If ( Player.GetItemCount MandrakeRoot > 0 ) 
		Set ItemCount to Player.GetItemCount MandrakeRoot
		Player.RemoveItem MandrakeRoot ItemCount
		ContainerRef.AddItem MandrakeRoot ItemCount
	EndIf
	If ( Player.GetItemCount MilkThistleSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount MilkThistleSeeds
		Player.RemoveItem MilkThistleSeeds ItemCount
		ContainerRef.AddItem MilkThistleSeeds ItemCount
	EndIf
	If ( Player.GetItemCount MinotaurHorn > 0 ) 
		Set ItemCount to Player.GetItemCount MinotaurHorn
		Player.RemoveItem MinotaurHorn ItemCount
		ContainerRef.AddItem MinotaurHorn ItemCount
	EndIf
	If ( Player.GetItemCount MonkshoodRootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount MonkshoodRootPulp
		Player.RemoveItem MonkshoodRootPulp ItemCount
		ContainerRef.AddItem MonkshoodRootPulp ItemCount
	EndIf
	If ( Player.GetItemCount MorningGloryRootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount MorningGloryRootPulp
		Player.RemoveItem MorningGloryRootPulp ItemCount
		ContainerRef.AddItem MorningGloryRootPulp ItemCount
	EndIf
	If ( Player.GetItemCount MortFlesh > 0 ) 
		Set ItemCount to Player.GetItemCount MortFlesh
		Player.RemoveItem MortFlesh ItemCount
		ContainerRef.AddItem MortFlesh ItemCount
	EndIf
	If ( Player.GetItemCount MotherwortSprig > 0 ) 
		Set ItemCount to Player.GetItemCount MotherwortSprig
		Player.RemoveItem MotherwortSprig ItemCount
		ContainerRef.AddItem MotherwortSprig ItemCount
	EndIf
	If ( Player.GetItemCount MugwortSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount MugwortSeeds
		Player.RemoveItem MugwortSeeds ItemCount
		ContainerRef.AddItem MugwortSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Mutton > 0 ) 
		Set ItemCount to Player.GetItemCount Mutton
		Player.RemoveItem Mutton ItemCount
		ContainerRef.AddItem Mutton ItemCount
	EndIf
	If ( Player.GetItemCount Nightshade > 0 ) 
		Set ItemCount to Player.GetItemCount Nightshade
		Player.RemoveItem Nightshade ItemCount
		ContainerRef.AddItem Nightshade ItemCount
	EndIf
	If ( Player.GetItemCount MS39Nirnroot > 0 ) 
		Set ItemCount to Player.GetItemCount MS39Nirnroot
		Player.RemoveItem MS39Nirnroot ItemCount
		ContainerRef.AddItem MS39Nirnroot ItemCount
	EndIf
	If ( Player.GetItemCount OgresTeeth > 0 ) 
		Set ItemCount to Player.GetItemCount OgresTeeth
		Player.RemoveItem OgresTeeth ItemCount
		ContainerRef.AddItem OgresTeeth ItemCount
	EndIf
	If ( Player.GetItemCount Onion > 0 ) 
		Set ItemCount to Player.GetItemCount Onion
		Player.RemoveItem Onion ItemCount
		ContainerRef.AddItem Onion ItemCount
	EndIf
	If ( Player.GetItemCount Orange > 0 ) 
		Set ItemCount to Player.GetItemCount Orange
		Player.RemoveItem Orange ItemCount
		ContainerRef.AddItem Orange ItemCount
	EndIf
	If ( Player.GetItemCount PaintedTrollFat > 0 ) 
		Set ItemCount to Player.GetItemCount PaintedTrollFat
		Player.RemoveItem PaintedTrollFat ItemCount
		ContainerRef.AddItem PaintedTrollFat ItemCount
	EndIf
	If ( Player.GetItemCount Pear > 0 ) 
		Set ItemCount to Player.GetItemCount Pear
		Player.RemoveItem Pear ItemCount
		ContainerRef.AddItem Pear ItemCount
	EndIf
	If ( Player.GetItemCount PeonySeeds > 0 ) 
		Set ItemCount to Player.GetItemCount PeonySeeds
		Player.RemoveItem PeonySeeds ItemCount
		ContainerRef.AddItem PeonySeeds ItemCount
	EndIf
	If ( Player.GetItemCount Dark10Apple > 0 ) 
		Set ItemCount to Player.GetItemCount Dark10Apple
		Player.RemoveItem Dark10Apple ItemCount
		ContainerRef.AddItem Dark10Apple ItemCount
	EndIf
	If ( Player.GetItemCount Potato > 0 ) 
		Set ItemCount to Player.GetItemCount Potato
		Player.RemoveItem Potato ItemCount
		ContainerRef.AddItem Potato ItemCount
	EndIf
	If ( Player.GetItemCount PrimroseLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount PrimroseLeaves
		Player.RemoveItem PrimroseLeaves ItemCount
		ContainerRef.AddItem PrimroseLeaves ItemCount
	EndIf
	If ( Player.GetItemCount Pumpkin > 0 ) 
		Set ItemCount to Player.GetItemCount Pumpkin
		Player.RemoveItem Pumpkin ItemCount
		ContainerRef.AddItem Pumpkin ItemCount
	EndIf
	If ( Player.GetItemCount Radish > 0 ) 
		Set ItemCount to Player.GetItemCount Radish
		Player.RemoveItem Radish ItemCount
		ContainerRef.AddItem Radish ItemCount
	EndIf
	If ( Player.GetItemCount RatMeat > 0 ) 
		Set ItemCount to Player.GetItemCount RatMeat
		Player.RemoveItem RatMeat ItemCount
		ContainerRef.AddItem RatMeat ItemCount
	EndIf
	If ( Player.GetItemCount RedwortFlower > 0 ) 
		Set ItemCount to Player.GetItemCount RedwortFlower
		Player.RemoveItem RedwortFlower ItemCount
		ContainerRef.AddItem RedwortFlower ItemCount
	EndIf
	If ( Player.GetItemCount Rice > 0 ) 
		Set ItemCount to Player.GetItemCount Rice
		Player.RemoveItem Rice ItemCount
		ContainerRef.AddItem Rice ItemCount
	EndIf
	If ( Player.GetItemCount RootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount RootPulp
		Player.RemoveItem RootPulp ItemCount
		ContainerRef.AddItem RootPulp ItemCount
	EndIf
	If ( Player.GetItemCount SQ09SlaughterfishScales > 0 ) 
		Set ItemCount to Player.GetItemCount SQ09SlaughterfishScales
		Player.RemoveItem SQ09SlaughterfishScales ItemCount
		ContainerRef.AddItem SQ09SlaughterfishScales ItemCount
	EndIf
	If ( Player.GetItemCount SacredLotusSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount SacredLotusSeeds
		Player.RemoveItem SacredLotusSeeds ItemCount
		ContainerRef.AddItem SacredLotusSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Scales > 0 ) 
		Set ItemCount to Player.GetItemCount Scales
		Player.RemoveItem Scales ItemCount
		ContainerRef.AddItem Scales ItemCount
	EndIf
	If ( Player.GetItemCount ScampSkin > 0 ) 
		Set ItemCount to Player.GetItemCount ScampSkin
		Player.RemoveItem ScampSkin ItemCount
		ContainerRef.AddItem ScampSkin ItemCount
	EndIf
	If ( Player.GetItemCount HouseServantPie > 0 ) 
		Set ItemCount to Player.GetItemCount HouseServantPie
		Player.RemoveItem HouseServantPie ItemCount
		ContainerRef.AddItem HouseServantPie ItemCount
	EndIf
	If ( Player.GetItemCount SQ01PotatoBreadLoaf > 0 )
		Set ItemCount to Player.GetItemCount SQ01PotatoBreadLoaf
		Player.RemoveItem SQ01PotatoBreadLoaf ItemCount
		ContainerRef.AddItem SQ01PotatoBreadLoaf ItemCount
	EndIf
	If ( Player.GetItemCount SomnaliusFrond > 0 ) 
		Set ItemCount to Player.GetItemCount SomnaliusFrond
		Player.RemoveItem SomnaliusFrond ItemCount
		ContainerRef.AddItem SomnaliusFrond ItemCount
	EndIf
	If ( Player.GetItemCount SpiddalStick > 0 ) 
		Set ItemCount to Player.GetItemCount SpiddalStick
		Player.RemoveItem SpiddalStick ItemCount
		ContainerRef.AddItem SpiddalStick ItemCount
	EndIf
	If ( Player.GetItemCount StJohnsWortNectar > 0 ) 
		Set ItemCount to Player.GetItemCount StJohnsWortNectar
		Player.RemoveItem StJohnsWortNectar ItemCount
		ContainerRef.AddItem StJohnsWortNectar ItemCount
	EndIf
	If ( Player.GetItemCount SteelBlueEntolomaCap > 0 ) 
		Set ItemCount to Player.GetItemCount SteelBlueEntolomaCap
		Player.RemoveItem SteelBlueEntolomaCap ItemCount
		ContainerRef.AddItem SteelBlueEntolomaCap ItemCount
	EndIf
	If ( Player.GetItemCount StinkhornCap > 0 ) 
		Set ItemCount to Player.GetItemCount StinkhornCap
		Player.RemoveItem StinkhornCap ItemCount
		ContainerRef.AddItem StinkhornCap ItemCount
	EndIf
	If ( Player.GetItemCount Strawberry > 0 ) 
		Set ItemCount to Player.GetItemCount Strawberry
		Player.RemoveItem Strawberry ItemCount
		ContainerRef.AddItem Strawberry ItemCount
	EndIf
	If ( Player.GetItemCount SummerBoleteCap > 0 ) 
		Set ItemCount to Player.GetItemCount SummerBoleteCap
		Player.RemoveItem SummerBoleteCap ItemCount
		ContainerRef.AddItem SummerBoleteCap ItemCount
	EndIf
	If ( Player.GetItemCount Sweetcake > 0 ) 
		Set ItemCount to Player.GetItemCount Sweetcake
		Player.RemoveItem Sweetcake ItemCount
		ContainerRef.AddItem Sweetcake ItemCount
	EndIf
	If ( Player.GetItemCount Sweetroll > 0 ) 
		Set ItemCount to Player.GetItemCount Sweetroll
		Player.RemoveItem Sweetroll ItemCount
		ContainerRef.AddItem Sweetroll ItemCount
	EndIf
	If ( Player.GetItemCount Taproot > 0 ) 
		Set ItemCount to Player.GetItemCount Taproot
		Player.RemoveItem Taproot ItemCount
		ContainerRef.AddItem Taproot ItemCount
	EndIf
	If ( Player.GetItemCount TigerLilyNectar > 0 ) 
		Set ItemCount to Player.GetItemCount TigerLilyNectar
		Player.RemoveItem TigerLilyNectar ItemCount
		ContainerRef.AddItem TigerLilyNectar ItemCount
	EndIf
	If ( Player.GetItemCount TinderPolyporeCap > 0 ) 
		Set ItemCount to Player.GetItemCount TinderPolyporeCap
		Player.RemoveItem TinderPolyporeCap ItemCount
		ContainerRef.AddItem TinderPolyporeCap ItemCount
	EndIf
	If ( Player.GetItemCount Tobacco > 0 ) 
		Set ItemCount to Player.GetItemCount Tobacco
		Player.RemoveItem Tobacco ItemCount
		ContainerRef.AddItem Tobacco ItemCount
	EndIf
	If ( Player.GetItemCount Tomato > 0 ) 
		Set ItemCount to Player.GetItemCount Tomato
		Player.RemoveItem Tomato ItemCount
		ContainerRef.AddItem Tomato ItemCount
	EndIf
	If ( Player.GetItemCount TrollFat > 0 ) 
		Set ItemCount to Player.GetItemCount TrollFat
		Player.RemoveItem TrollFat ItemCount
		ContainerRef.AddItem TrollFat ItemCount
	EndIf
	If ( Player.GetItemCount VampireDust > 0 ) 
		Set ItemCount to Player.GetItemCount VampireDust
		Player.RemoveItem VampireDust ItemCount
		ContainerRef.AddItem VampireDust ItemCount
	EndIf
	If ( Player.GetItemCount Venison > 0 ) 
		Set ItemCount to Player.GetItemCount Venison
		Player.RemoveItem Venison ItemCount
		ContainerRef.AddItem Venison ItemCount
	EndIf
	If ( Player.GetItemCount VipersBuglossLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount VipersBuglossLeaves
		Player.RemoveItem VipersBuglossLeaves ItemCount
		ContainerRef.AddItem VipersBuglossLeaves ItemCount
	EndIf
	If ( Player.GetItemCount VoidSalts > 0 ) 
		Set ItemCount to Player.GetItemCount VoidSalts
		Player.RemoveItem VoidSalts ItemCount
		ContainerRef.AddItem VoidSalts ItemCount
	EndIf
	If ( Player.GetItemCount WaterHyacinthNectar > 0 ) 
		Set ItemCount to Player.GetItemCount WaterHyacinthNectar
		Player.RemoveItem WaterHyacinthNectar ItemCount
		ContainerRef.AddItem WaterHyacinthNectar ItemCount
	EndIf
	If ( Player.GetItemCount Watermelon > 0 ) 
		Set ItemCount to Player.GetItemCount Watermelon
		Player.RemoveItem Watermelon ItemCount
		ContainerRef.AddItem Watermelon ItemCount
	EndIf
	If ( Player.GetItemCount WheatGrain > 0 ) 
		Set ItemCount to Player.GetItemCount WheatGrain
		Player.RemoveItem WheatGrain ItemCount
		ContainerRef.AddItem WheatGrain ItemCount
	EndIf
	If ( Player.GetItemCount GoldenRodSeedPod > 0 ) 
		Set ItemCount to Player.GetItemCount GoldenRodSeedPod
		Player.RemoveItem GoldenRodSeedPod ItemCount
		ContainerRef.AddItem GoldenRodSeedPod ItemCount
	EndIf
	If ( Player.GetItemCount WispStalkCaps > 0 ) 
		Set ItemCount to Player.GetItemCount WispStalkCaps
		Player.RemoveItem WispStalkCaps ItemCount
		ContainerRef.AddItem WispStalkCaps ItemCount
	EndIf
	If ( Player.GetItemCount WormwoodLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount WormwoodLeaves
		Player.RemoveItem WormwoodLeaves ItemCount
		ContainerRef.AddItem WormwoodLeaves ItemCount
	EndIf
	
End

Script 3: Depositing Ingredients by CategoryEdit

Warning: Unfinished

Scn 000DepositCategory

;Flowers
;Fungi
;Oblivion
;Food
;Creature Parts
;Quest Related

Script 4: Depositing All IngredientsEdit

Warning: Unfinished

Scn 000DepositAll

;Ref ContainerRef
Short ItemCount
Float fQuestDelayTime

Begin GameMode
	Set fQuestDelayTime to 0.01

	If ( Player.GetItemCount AlkanetFlower > 0 ) 
		Set ItemCount to Player.GetItemCount AlkanetFlower
		Player.RemoveItem AlkanetFlower ItemCount
		ContainerRef.AddItem AlkanetFlower ItemCount
	EndIf
	If ( Player.GetItemCount AloeVeraLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount AloeVeraLeaves
		Player.RemoveItem AloeVeraLeaves ItemCount
		ContainerRef.AddItem AloeVeraLeaves ItemCount
	EndIf
	If ( Player.GetItemCount Ambrosia > 0 ) 
		Set ItemCount to Player.GetItemCount Ambrosia
		Player.RemoveItem Ambrosia ItemCount
		ContainerRef.AddItem Ambrosia ItemCount
	EndIf
	If ( Player.GetItemCount Apple > 0 ) 
		Set ItemCount to Player.GetItemCount Apple
		Player.RemoveItem Apple ItemCount
		ContainerRef.AddItem Apple ItemCount
	EndIf
	If ( Player.GetItemCount Arrowroot > 0 ) 
		Set ItemCount to Player.GetItemCount Arrowroot
		Player.RemoveItem Arrowroot ItemCount
		ContainerRef.AddItem Arrowroot ItemCount
	EndIf
	If ( Player.GetItemCount Beef > 0 ) 
		Set ItemCount to Player.GetItemCount Beef
		Player.RemoveItem Beef ItemCount
		ContainerRef.AddItem Beef ItemCount
	EndIf
	If ( Player.GetItemCount BergamotSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount BergamotSeeds
		Player.RemoveItem BergamotSeeds ItemCount
		ContainerRef.AddItem BergamotSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Blackberry > 0 ) 
		Set ItemCount to Player.GetItemCount Blackberry
		Player.RemoveItem Blackberry ItemCount
		ContainerRef.AddItem Blackberry ItemCount
	EndIf
	If ( Player.GetItemCount Bloodgrass > 0 ) 
		Set ItemCount to Player.GetItemCount Bloodgrass
		Player.RemoveItem Bloodgrass ItemCount
		ContainerRef.AddItem Bloodgrass ItemCount
	EndIf
	If ( Player.GetItemCount BoarMeat > 0 ) 
		Set ItemCount to Player.GetItemCount BoarMeat
		Player.RemoveItem BoarMeat ItemCount
		ContainerRef.AddItem BoarMeat ItemCount
	EndIf
	If ( Player.GetItemCount BogBeaconAscoCap01 > 0 ) 
		Set ItemCount to Player.GetItemCount BogBeaconAscoCap01
		Player.RemoveItem BogBeaconAscoCap01 ItemCount
		ContainerRef.AddItem BogBeaconAscoCap01 ItemCount
	EndIf
	If ( Player.GetItemCount Bonemeal > 0 ) 
		Set ItemCount to Player.GetItemCount Bonemeal
		Player.RemoveItem Bonemeal ItemCount
		ContainerRef.AddItem Bonemeal ItemCount
	EndIf
	If ( Player.GetItemCount BreadLoaf > 0 ) 
		Set ItemCount to Player.GetItemCount BreadLoaf
		Player.RemoveItem BreadLoaf ItemCount
		ContainerRef.AddItem BreadLoaf ItemCount
	EndIf
	If ( Player.GetItemCount CairnBoleteCap > 0 ) 
		Set ItemCount to Player.GetItemCount CairnBoleteCap
		Player.RemoveItem CairnBoleteCap ItemCount
		ContainerRef.AddItem CairnBoleteCap ItemCount
	EndIf
	If ( Player.GetItemCount Carrot > 0 ) 
		Set ItemCount to Player.GetItemCount Carrot
		Player.RemoveItem Carrot ItemCount
		ContainerRef.AddItem Carrot ItemCount
	EndIf
	If ( Player.GetItemCount CheeseWedge > 0 ) 
		Set ItemCount to Player.GetItemCount CheeseWedge
		Player.RemoveItem CheeseWedge ItemCount
		ContainerRef.AddItem CheeseWedge ItemCount
	EndIf
	If ( Player.GetItemCount CheeseWheel > 0 ) 
		Set ItemCount to Player.GetItemCount CheeseWheel
		Player.RemoveItem CheeseWheel ItemCount
		ContainerRef.AddItem CheeseWheel ItemCount
	EndIf
	If ( Player.GetItemCount CinnabarPolyporeCap02 > 0 ) 
		Set ItemCount to Player.GetItemCount CinnabarPolyporeCap02
		Player.RemoveItem CinnabarPolyporeCap02 ItemCount
		ContainerRef.AddItem CinnabarPolyporeCap02 ItemCount
	EndIf
	If ( Player.GetItemCount CinnabarPolyporeCap01 > 0 ) 
		Set ItemCount to Player.GetItemCount CinnabarPolyporeCap01
		Player.RemoveItem CinnabarPolyporeCap01 ItemCount
		ContainerRef.AddItem CinnabarPolyporeCap01 ItemCount
	EndIf
	If ( Player.GetItemCount ClannfearClaws > 0 ) 
		Set ItemCount to Player.GetItemCount ClannfearClaws
		Player.RemoveItem ClannfearClaws ItemCount
		ContainerRef.AddItem ClannfearClaws ItemCount
	EndIf
	If ( Player.GetItemCount CloudedFunnelCap > 0 ) 
		Set ItemCount to Player.GetItemCount CloudedFunnelCap
		Player.RemoveItem CloudedFunnelCap ItemCount
		ContainerRef.AddItem CloudedFunnelCap ItemCount
	EndIf
	If ( Player.GetItemCount ColumbineRootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount ColumbineRootPulp
		Player.RemoveItem ColumbineRootPulp ItemCount
		ContainerRef.AddItem ColumbineRootPulp ItemCount
	EndIf
	If ( Player.GetItemCount Corn > 0 ) 
		Set ItemCount to Player.GetItemCount Corn
		Player.RemoveItem Corn ItemCount
		ContainerRef.AddItem Corn ItemCount
	EndIf
	If ( Player.GetItemCount CrabMeat > 0 ) 
		Set ItemCount to Player.GetItemCount CrabMeat
		Player.RemoveItem CrabMeat ItemCount
		ContainerRef.AddItem CrabMeat ItemCount
	EndIf
	If ( Player.GetItemCount DaedraHeart > 0 ) 
		Set ItemCount to Player.GetItemCount DaedraHeart
		Player.RemoveItem DaedraHeart ItemCount
		ContainerRef.AddItem DaedraHeart ItemCount
	EndIf
	If ( Player.GetItemCount DaedraSilk > 0 ) 
		Set ItemCount to Player.GetItemCount DaedraSilk
		Player.RemoveItem DaedraSilk ItemCount
		ContainerRef.AddItem DaedraSilk ItemCount
	EndIf
	If ( Player.GetItemCount DaedraVenin > 0 ) 
		Set ItemCount to Player.GetItemCount DaedraVenin
		Player.RemoveItem DaedraVenin ItemCount
		ContainerRef.AddItem DaedraVenin ItemCount
	EndIf
	If ( Player.GetItemCount DaedrothTeeth > 0 ) 
		Set ItemCount to Player.GetItemCount DaedrothTeeth
		Player.RemoveItem DaedrothTeeth ItemCount
		ContainerRef.AddItem DaedrothTeeth ItemCount
	EndIf
	If ( Player.GetItemCount DragonsTongue > 0 ) 
		Set ItemCount to Player.GetItemCount DragonsTongue
		Player.RemoveItem DragonsTongue ItemCount
		ContainerRef.AddItem DragonsTongue ItemCount
	EndIf
	If ( Player.GetItemCount DreughWax > 0 ) 
		Set ItemCount to Player.GetItemCount DreughWax
		Player.RemoveItem DreughWax ItemCount
		ContainerRef.AddItem DreughWax ItemCount
	EndIf
	If ( Player.GetItemCount DryadSaddlePolyporeCap > 0 ) 
		Set ItemCount to Player.GetItemCount DryadSaddlePolyporeCap
		Player.RemoveItem DryadSaddlePolyporeCap ItemCount
		ContainerRef.AddItem DryadSaddlePolyporeCap ItemCount
	EndIf
	If ( Player.GetItemCount Ectoplasm > 0 ) 
		Set ItemCount to Player.GetItemCount Ectoplasm
		Player.RemoveItem Ectoplasm ItemCount
		ContainerRef.AddItem Ectoplasm ItemCount
	EndIf
	If ( Player.GetItemCount ElfCupCap > 0 ) 
		Set ItemCount to Player.GetItemCount ElfCupCap
		Player.RemoveItem ElfCupCap ItemCount
		ContainerRef.AddItem ElfCupCap ItemCount
	EndIf
	If ( Player.GetItemCount EmeticRussulaCap > 0 ) 
		Set ItemCount to Player.GetItemCount EmeticRussulaCap
		Player.RemoveItem EmeticRussulaCap ItemCount
		ContainerRef.AddItem EmeticRussulaCap ItemCount
	EndIf
	If ( Player.GetItemCount FennelSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount FennelSeeds
		Player.RemoveItem FennelSeeds ItemCount
		ContainerRef.AddItem FennelSeeds ItemCount
	EndIf
	If ( Player.GetItemCount FireSalts > 0 ) 
		Set ItemCount to Player.GetItemCount FireSalts
		Player.RemoveItem FireSalts ItemCount
		ContainerRef.AddItem FireSalts ItemCount
	EndIf
	If ( Player.GetItemCount FlaxSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount FlaxSeeds
		Player.RemoveItem FlaxSeeds ItemCount
		ContainerRef.AddItem FlaxSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Flour > 0 ) 
		Set ItemCount to Player.GetItemCount Flour
		Player.RemoveItem Flour ItemCount
		ContainerRef.AddItem Flour ItemCount
	EndIf
	If ( Player.GetItemCount FlyAmanitaCap > 0 ) 
		Set ItemCount to Player.GetItemCount FlyAmanitaCap
		Player.RemoveItem FlyAmanitaCap ItemCount
		ContainerRef.AddItem FlyAmanitaCap ItemCount
	EndIf
	If ( Player.GetItemCount FoxgloveNectar > 0 ) 
		Set ItemCount to Player.GetItemCount FoxgloveNectar
		Player.RemoveItem FoxgloveNectar ItemCount
		ContainerRef.AddItem FoxgloveNectar ItemCount
	EndIf
	If ( Player.GetItemCount FrostSalts > 0 ) 
		Set ItemCount to Player.GetItemCount FrostSalts
		Player.RemoveItem FrostSalts ItemCount
		ContainerRef.AddItem FrostSalts ItemCount
	EndIf
	If ( Player.GetItemCount Garlic > 0 ) 
		Set ItemCount to Player.GetItemCount Garlic
		Player.RemoveItem Garlic ItemCount
		ContainerRef.AddItem Garlic ItemCount
	EndIf
	If ( Player.GetItemCount GinkgoLeaf > 0 ) 
		Set ItemCount to Player.GetItemCount GinkgoLeaf
		Player.RemoveItem GinkgoLeaf ItemCount
		ContainerRef.AddItem GinkgoLeaf ItemCount
	EndIf
	If ( Player.GetItemCount Ginseng > 0 ) 
		Set ItemCount to Player.GetItemCount Ginseng
		Player.RemoveItem Ginseng ItemCount
		ContainerRef.AddItem Ginseng ItemCount
	EndIf
	If ( Player.GetItemCount GlowDust > 0 ) 
		Set ItemCount to Player.GetItemCount GlowDust
		Player.RemoveItem GlowDust ItemCount
		ContainerRef.AddItem GlowDust ItemCount
	EndIf
	If ( Player.GetItemCount Grapes > 0 ) 
		Set ItemCount to Player.GetItemCount Grapes
		Player.RemoveItem Grapes ItemCount
		ContainerRef.AddItem Grapes ItemCount
	EndIf
	If ( Player.GetItemCount GreenStainCupCap > 0 ) 
		Set ItemCount to Player.GetItemCount GreenStainCupCap
		Player.RemoveItem GreenStainCupCap ItemCount
		ContainerRef.AddItem GreenStainCupCap ItemCount
	EndIf
	If ( Player.GetItemCount GreenStainShelfCap > 0 ) 
		Set ItemCount to Player.GetItemCount GreenStainShelfCap
		Player.RemoveItem GreenStainShelfCap ItemCount
		ContainerRef.AddItem GreenStainShelfCap ItemCount
	EndIf
	If ( Player.GetItemCount Ham > 0 ) 
		Set ItemCount to Player.GetItemCount Ham
		Player.RemoveItem Ham ItemCount
		ContainerRef.AddItem Ham ItemCount
	EndIf
	If ( Player.GetItemCount Harrada > 0 ) 
		Set ItemCount to Player.GetItemCount Harrada
		Player.RemoveItem Harrada ItemCount
		ContainerRef.AddItem Harrada ItemCount
	EndIf
	If ( Player.GetItemCount HumanHeart > 0 ) 
		Set ItemCount to Player.GetItemCount HumanHeart
		Player.RemoveItem HumanHeart ItemCount
		ContainerRef.AddItem HumanHeart ItemCount
	EndIf
	If ( Player.GetItemCount DarkHumanSkin > 0 ) 
		Set ItemCount to Player.GetItemCount DarkHumanSkin
		Player.RemoveItem DarkHumanSkin ItemCount
		ContainerRef.AddItem DarkHumanSkin ItemCount
	EndIf
	If ( Player.GetItemCount ImpGall > 0 ) 
		Set ItemCount to Player.GetItemCount ImpGall
		Player.RemoveItem ImpGall ItemCount
		ContainerRef.AddItem ImpGall ItemCount
	EndIf
	If ( Player.GetItemCount IronwoodNut > 0 ) 
		Set ItemCount to Player.GetItemCount IronwoodNut
		Player.RemoveItem IronwoodNut ItemCount
		ContainerRef.AddItem IronwoodNut ItemCount
	EndIf
	If ( Player.GetItemCount SQ01Potato > 0 )
		Set ItemCount to Player.GetItemCount SQ01Potato
		Player.RemoveItem SQ01Potato ItemCount
		ContainerRef.AddItem SQ01Potato ItemCount
	EndIf
	If ( Player.GetItemCount LadysMantleLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount LadysMantleLeaves
		Player.RemoveItem LadysMantleLeaves ItemCount
		ContainerRef.AddItem LadysMantleLeaves ItemCount
	EndIf
	If ( Player.GetItemCount LadysSmockLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount LadysSmockLeaves
		Player.RemoveItem LadysSmockLeaves ItemCount
		ContainerRef.AddItem LadysSmockLeaves ItemCount
	EndIf
	If ( Player.GetItemCount LavEnderSprig > 0 ) 
		Set ItemCount to Player.GetItemCount LavEnderSprig
		Player.RemoveItem LavEnderSprig ItemCount
		ContainerRef.AddItem LavEnderSprig ItemCount
	EndIf
	If ( Player.GetItemCount Leek > 0 ) 
		Set ItemCount to Player.GetItemCount Leek
		Player.RemoveItem Leek ItemCount
		ContainerRef.AddItem Leek ItemCount
	EndIf
	If ( Player.GetItemCount Lettuce > 0 ) 
		Set ItemCount to Player.GetItemCount Lettuce
		Player.RemoveItem Lettuce ItemCount
		ContainerRef.AddItem Lettuce ItemCount
	EndIf
	If ( Player.GetItemCount Lichor > 0 ) 
		Set ItemCount to Player.GetItemCount Lichor
		Player.RemoveItem Lichor ItemCount
		ContainerRef.AddItem Lichor ItemCount
	EndIf
	If ( Player.GetItemCount MandrakeRoot > 0 ) 
		Set ItemCount to Player.GetItemCount MandrakeRoot
		Player.RemoveItem MandrakeRoot ItemCount
		ContainerRef.AddItem MandrakeRoot ItemCount
	EndIf
	If ( Player.GetItemCount MilkThistleSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount MilkThistleSeeds
		Player.RemoveItem MilkThistleSeeds ItemCount
		ContainerRef.AddItem MilkThistleSeeds ItemCount
	EndIf
	If ( Player.GetItemCount MinotaurHorn > 0 ) 
		Set ItemCount to Player.GetItemCount MinotaurHorn
		Player.RemoveItem MinotaurHorn ItemCount
		ContainerRef.AddItem MinotaurHorn ItemCount
	EndIf
	If ( Player.GetItemCount MonkshoodRootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount MonkshoodRootPulp
		Player.RemoveItem MonkshoodRootPulp ItemCount
		ContainerRef.AddItem MonkshoodRootPulp ItemCount
	EndIf
	If ( Player.GetItemCount MorningGloryRootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount MorningGloryRootPulp
		Player.RemoveItem MorningGloryRootPulp ItemCount
		ContainerRef.AddItem MorningGloryRootPulp ItemCount
	EndIf
	If ( Player.GetItemCount MortFlesh > 0 ) 
		Set ItemCount to Player.GetItemCount MortFlesh
		Player.RemoveItem MortFlesh ItemCount
		ContainerRef.AddItem MortFlesh ItemCount
	EndIf
	If ( Player.GetItemCount MotherwortSprig > 0 ) 
		Set ItemCount to Player.GetItemCount MotherwortSprig
		Player.RemoveItem MotherwortSprig ItemCount
		ContainerRef.AddItem MotherwortSprig ItemCount
	EndIf
	If ( Player.GetItemCount MugwortSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount MugwortSeeds
		Player.RemoveItem MugwortSeeds ItemCount
		ContainerRef.AddItem MugwortSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Mutton > 0 ) 
		Set ItemCount to Player.GetItemCount Mutton
		Player.RemoveItem Mutton ItemCount
		ContainerRef.AddItem Mutton ItemCount
	EndIf
	If ( Player.GetItemCount Nightshade > 0 ) 
		Set ItemCount to Player.GetItemCount Nightshade
		Player.RemoveItem Nightshade ItemCount
		ContainerRef.AddItem Nightshade ItemCount
	EndIf
	If ( Player.GetItemCount MS39Nirnroot > 0 ) 
		Set ItemCount to Player.GetItemCount MS39Nirnroot
		Player.RemoveItem MS39Nirnroot ItemCount
		ContainerRef.AddItem MS39Nirnroot ItemCount
	EndIf
	If ( Player.GetItemCount OgresTeeth > 0 ) 
		Set ItemCount to Player.GetItemCount OgresTeeth
		Player.RemoveItem OgresTeeth ItemCount
		ContainerRef.AddItem OgresTeeth ItemCount
	EndIf
	If ( Player.GetItemCount Onion > 0 ) 
		Set ItemCount to Player.GetItemCount Onion
		Player.RemoveItem Onion ItemCount
		ContainerRef.AddItem Onion ItemCount
	EndIf
	If ( Player.GetItemCount Orange > 0 ) 
		Set ItemCount to Player.GetItemCount Orange
		Player.RemoveItem Orange ItemCount
		ContainerRef.AddItem Orange ItemCount
	EndIf
	If ( Player.GetItemCount PaintedTrollFat > 0 ) 
		Set ItemCount to Player.GetItemCount PaintedTrollFat
		Player.RemoveItem PaintedTrollFat ItemCount
		ContainerRef.AddItem PaintedTrollFat ItemCount
	EndIf
	If ( Player.GetItemCount Pear > 0 ) 
		Set ItemCount to Player.GetItemCount Pear
		Player.RemoveItem Pear ItemCount
		ContainerRef.AddItem Pear ItemCount
	EndIf
	If ( Player.GetItemCount PeonySeeds > 0 ) 
		Set ItemCount to Player.GetItemCount PeonySeeds
		Player.RemoveItem PeonySeeds ItemCount
		ContainerRef.AddItem PeonySeeds ItemCount
	EndIf
	If ( Player.GetItemCount Dark10Apple > 0 ) 
		Set ItemCount to Player.GetItemCount Dark10Apple
		Player.RemoveItem Dark10Apple ItemCount
		ContainerRef.AddItem Dark10Apple ItemCount
	EndIf
	If ( Player.GetItemCount Potato > 0 ) 
		Set ItemCount to Player.GetItemCount Potato
		Player.RemoveItem Potato ItemCount
		ContainerRef.AddItem Potato ItemCount
	EndIf
	If ( Player.GetItemCount PrimroseLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount PrimroseLeaves
		Player.RemoveItem PrimroseLeaves ItemCount
		ContainerRef.AddItem PrimroseLeaves ItemCount
	EndIf
	If ( Player.GetItemCount Pumpkin > 0 ) 
		Set ItemCount to Player.GetItemCount Pumpkin
		Player.RemoveItem Pumpkin ItemCount
		ContainerRef.AddItem Pumpkin ItemCount
	EndIf
	If ( Player.GetItemCount Radish > 0 ) 
		Set ItemCount to Player.GetItemCount Radish
		Player.RemoveItem Radish ItemCount
		ContainerRef.AddItem Radish ItemCount
	EndIf
	If ( Player.GetItemCount RatMeat > 0 ) 
		Set ItemCount to Player.GetItemCount RatMeat
		Player.RemoveItem RatMeat ItemCount
		ContainerRef.AddItem RatMeat ItemCount
	EndIf
	If ( Player.GetItemCount RedwortFlower > 0 ) 
		Set ItemCount to Player.GetItemCount RedwortFlower
		Player.RemoveItem RedwortFlower ItemCount
		ContainerRef.AddItem RedwortFlower ItemCount
	EndIf
	If ( Player.GetItemCount Rice > 0 ) 
		Set ItemCount to Player.GetItemCount Rice
		Player.RemoveItem Rice ItemCount
		ContainerRef.AddItem Rice ItemCount
	EndIf
	If ( Player.GetItemCount RootPulp > 0 ) 
		Set ItemCount to Player.GetItemCount RootPulp
		Player.RemoveItem RootPulp ItemCount
		ContainerRef.AddItem RootPulp ItemCount
	EndIf
	If ( Player.GetItemCount SQ09SlaughterfishScales > 0 ) 
		Set ItemCount to Player.GetItemCount SQ09SlaughterfishScales
		Player.RemoveItem SQ09SlaughterfishScales ItemCount
		ContainerRef.AddItem SQ09SlaughterfishScales ItemCount
	EndIf
	If ( Player.GetItemCount SacredLotusSeeds > 0 ) 
		Set ItemCount to Player.GetItemCount SacredLotusSeeds
		Player.RemoveItem SacredLotusSeeds ItemCount
		ContainerRef.AddItem SacredLotusSeeds ItemCount
	EndIf
	If ( Player.GetItemCount Scales > 0 ) 
		Set ItemCount to Player.GetItemCount Scales
		Player.RemoveItem Scales ItemCount
		ContainerRef.AddItem Scales ItemCount
	EndIf
	If ( Player.GetItemCount ScampSkin > 0 ) 
		Set ItemCount to Player.GetItemCount ScampSkin
		Player.RemoveItem ScampSkin ItemCount
		ContainerRef.AddItem ScampSkin ItemCount
	EndIf
	If ( Player.GetItemCount HouseServantPie > 0 ) 
		Set ItemCount to Player.GetItemCount HouseServantPie
		Player.RemoveItem HouseServantPie ItemCount
		ContainerRef.AddItem HouseServantPie ItemCount
	EndIf
	If ( Player.GetItemCount SQ01PotatoBreadLoaf > 0 )
		Set ItemCount to Player.GetItemCount SQ01PotatoBreadLoaf
		Player.RemoveItem SQ01PotatoBreadLoaf ItemCount
		ContainerRef.AddItem SQ01PotatoBreadLoaf ItemCount
	EndIf
	If ( Player.GetItemCount SomnaliusFrond > 0 ) 
		Set ItemCount to Player.GetItemCount SomnaliusFrond
		Player.RemoveItem SomnaliusFrond ItemCount
		ContainerRef.AddItem SomnaliusFrond ItemCount
	EndIf
	If ( Player.GetItemCount SpiddalStick > 0 ) 
		Set ItemCount to Player.GetItemCount SpiddalStick
		Player.RemoveItem SpiddalStick ItemCount
		ContainerRef.AddItem SpiddalStick ItemCount
	EndIf
	If ( Player.GetItemCount StJohnsWortNectar > 0 ) 
		Set ItemCount to Player.GetItemCount StJohnsWortNectar
		Player.RemoveItem StJohnsWortNectar ItemCount
		ContainerRef.AddItem StJohnsWortNectar ItemCount
	EndIf
	If ( Player.GetItemCount SteelBlueEntolomaCap > 0 ) 
		Set ItemCount to Player.GetItemCount SteelBlueEntolomaCap
		Player.RemoveItem SteelBlueEntolomaCap ItemCount
		ContainerRef.AddItem SteelBlueEntolomaCap ItemCount
	EndIf
	If ( Player.GetItemCount StinkhornCap > 0 ) 
		Set ItemCount to Player.GetItemCount StinkhornCap
		Player.RemoveItem StinkhornCap ItemCount
		ContainerRef.AddItem StinkhornCap ItemCount
	EndIf
	If ( Player.GetItemCount Strawberry > 0 ) 
		Set ItemCount to Player.GetItemCount Strawberry
		Player.RemoveItem Strawberry ItemCount
		ContainerRef.AddItem Strawberry ItemCount
	EndIf
	If ( Player.GetItemCount SummerBoleteCap > 0 ) 
		Set ItemCount to Player.GetItemCount SummerBoleteCap
		Player.RemoveItem SummerBoleteCap ItemCount
		ContainerRef.AddItem SummerBoleteCap ItemCount
	EndIf
	If ( Player.GetItemCount Sweetcake > 0 ) 
		Set ItemCount to Player.GetItemCount Sweetcake
		Player.RemoveItem Sweetcake ItemCount
		ContainerRef.AddItem Sweetcake ItemCount
	EndIf
	If ( Player.GetItemCount Sweetroll > 0 ) 
		Set ItemCount to Player.GetItemCount Sweetroll
		Player.RemoveItem Sweetroll ItemCount
		ContainerRef.AddItem Sweetroll ItemCount
	EndIf
	If ( Player.GetItemCount Taproot > 0 ) 
		Set ItemCount to Player.GetItemCount Taproot
		Player.RemoveItem Taproot ItemCount
		ContainerRef.AddItem Taproot ItemCount
	EndIf
	If ( Player.GetItemCount TigerLilyNectar > 0 ) 
		Set ItemCount to Player.GetItemCount TigerLilyNectar
		Player.RemoveItem TigerLilyNectar ItemCount
		ContainerRef.AddItem TigerLilyNectar ItemCount
	EndIf
	If ( Player.GetItemCount TinderPolyporeCap > 0 ) 
		Set ItemCount to Player.GetItemCount TinderPolyporeCap
		Player.RemoveItem TinderPolyporeCap ItemCount
		ContainerRef.AddItem TinderPolyporeCap ItemCount
	EndIf
	If ( Player.GetItemCount Tobacco > 0 ) 
		Set ItemCount to Player.GetItemCount Tobacco
		Player.RemoveItem Tobacco ItemCount
		ContainerRef.AddItem Tobacco ItemCount
	EndIf
	If ( Player.GetItemCount Tomato > 0 ) 
		Set ItemCount to Player.GetItemCount Tomato
		Player.RemoveItem Tomato ItemCount
		ContainerRef.AddItem Tomato ItemCount
	EndIf
	If ( Player.GetItemCount TrollFat > 0 ) 
		Set ItemCount to Player.GetItemCount TrollFat
		Player.RemoveItem TrollFat ItemCount
		ContainerRef.AddItem TrollFat ItemCount
	EndIf
	If ( Player.GetItemCount VampireDust > 0 ) 
		Set ItemCount to Player.GetItemCount VampireDust
		Player.RemoveItem VampireDust ItemCount
		ContainerRef.AddItem VampireDust ItemCount
	EndIf
	If ( Player.GetItemCount Venison > 0 ) 
		Set ItemCount to Player.GetItemCount Venison
		Player.RemoveItem Venison ItemCount
		ContainerRef.AddItem Venison ItemCount
	EndIf
	If ( Player.GetItemCount VipersBuglossLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount VipersBuglossLeaves
		Player.RemoveItem VipersBuglossLeaves ItemCount
		ContainerRef.AddItem VipersBuglossLeaves ItemCount
	EndIf
	If ( Player.GetItemCount VoidSalts > 0 ) 
		Set ItemCount to Player.GetItemCount VoidSalts
		Player.RemoveItem VoidSalts ItemCount
		ContainerRef.AddItem VoidSalts ItemCount
	EndIf
	If ( Player.GetItemCount WaterHyacinthNectar > 0 ) 
		Set ItemCount to Player.GetItemCount WaterHyacinthNectar
		Player.RemoveItem WaterHyacinthNectar ItemCount
		ContainerRef.AddItem WaterHyacinthNectar ItemCount
	EndIf
	If ( Player.GetItemCount Watermelon > 0 ) 
		Set ItemCount to Player.GetItemCount Watermelon
		Player.RemoveItem Watermelon ItemCount
		ContainerRef.AddItem Watermelon ItemCount
	EndIf
	If ( Player.GetItemCount WheatGrain > 0 ) 
		Set ItemCount to Player.GetItemCount WheatGrain
		Player.RemoveItem WheatGrain ItemCount
		ContainerRef.AddItem WheatGrain ItemCount
	EndIf
	If ( Player.GetItemCount GoldenRodSeedPod > 0 ) 
		Set ItemCount to Player.GetItemCount GoldenRodSeedPod
		Player.RemoveItem GoldenRodSeedPod ItemCount
		ContainerRef.AddItem GoldenRodSeedPod ItemCount
	EndIf
	If ( Player.GetItemCount WispStalkCaps > 0 ) 
		Set ItemCount to Player.GetItemCount WispStalkCaps
		Player.RemoveItem WispStalkCaps ItemCount
		ContainerRef.AddItem WispStalkCaps ItemCount
	EndIf
	If ( Player.GetItemCount WormwoodLeaves > 0 ) 
		Set ItemCount to Player.GetItemCount WormwoodLeaves
		Player.RemoveItem WormwoodLeaves ItemCount
		ContainerRef.AddItem WormwoodLeaves ItemCount
	EndIf
	StopQuest 000DepositAllQuest
End

Script 5: Retrieving Ingredients by EffectEdit

Warning: Unfinished

Scn 000RetrieveEffect

Short DoOnce
Short Choosing
Short Choice1
Short Choice2
Short Choice3
Short Choice4
Short Choice5
Short Choice6
Short Choice7
Short Choice8
Short AlchemySkill
Float fQuestDelayTime

begin Gamemode
	If DoOnce == 0
		Set Choosing to -1
		Set DoOnce to 1
	Endif
	
	Set fQuestDelayTime to 0.01
	Set AlchemySkill to Player.GetBaseActorValue Alchemy
	If (Choosing == -1)
		"Select the ingredient effect:", "Burden", "Chameleon", "Cure Disease", "Cure Paralysis", "Cure Poison", "Damage  Agility", "Damage Endurance", "Damage Fatigue", "Cancel", "Next"
		set Choosing to 1
		set Choice1 to GetButtonPressed
	Elseif (Choosing == 1)
		if (Choice1 == -1)
			set Choice1 to GetButtonPressed
		elseif (Choice1 == 0)
			set Choosing to 100
		elseif (Choice1 == 1)
 			set Choosing to 101
		elseif (Choice1 == 2)
			set Choosing to 102
		elseif (Choice1 == 3)
			set Choosing to 103
		elseif (Choice1 == 4)
			set Choosing to 104
		elseif (Choice1 == 5)
 			set Choosing to 105
		elseif (Choice1 == 6)
			set Choosing to 106
		elseif (Choice1 == 7)
			set Choosing to 107
		elseif (Choice1 == 8)
			set Choosing to 1000
		elseif (Choice1 == 9)
			set Choosing to -2
		endif
	Endif
	If (Choosing == -2)
		"Select the ingredient effect:", "Damage Health", "Damage Intelligence", "Damage Luck", "Damage Magicka", "Damage  Personality", "Damage Speed", "Damage Strength", "Damage Willpower", "Previous", "Next"
		set Choosing to 2
		set Choice2 to GetButtonPressed
	Elseif (Choosing == 2)
		if (Choice2 == -1)
			set Choice2 to GetButtonPressed
		elseif (Choice2 == 0)
			set Choosing to 108
		elseif (Choice2 == 1)
 			set Choosing to 109
		elseif (Choice2 == 2)
			set Choosing to 110
		elseif (Choice2 == 3)
			set Choosing to 111
		elseif (Choice2 == 4)
			set Choosing to 112
		elseif (Choice2 == 5)
 			set Choosing to 113
		elseif (Choice2 == 6)
			set Choosing to 114
		elseif (Choice2 == 7)
			set Choosing to 115
		elseif (Choice2 == 8)
			set Choosing to -1
		elseif (Choice2 == 9)
			set Choosing to -3
		endif
	Endif
	If (Choosing == -3)
		"Select the ingredient effect:", "Detect LIfe", "Dispel", "Feather", "Fire Damage", "Fire Shield", "FortIfy  Agility", "FortIfy Endurance", "FortIfy Fatigue", "Previous", "Next"
		set Choosing to 3
		set Choice3 to GetButtonPressed
	Elseif (Choosing == 3)
		if (Choice3 == -1)
			set Choice3 to GetButtonPressed
		elseif (Choice3 == 0)
			set Choosing to 116
		elseif (Choice3 == 1)
 			set Choosing to 117
		elseif (Choice3 == 2)
			set Choosing to 118
		elseif (Choice3 == 3)
			set Choosing to 119
		elseif (Choice3 == 4)
			set Choosing to 120
		elseif (Choice3 == 5)
 			set Choosing to 121
		elseif (Choice3 == 6)
			set Choosing to 122
		elseif (Choice3 == 7)
			set Choosing to 123
		elseif (Choice3 == 8)
			set Choosing to -2
		elseif (Choice3 == 9)
			set Choosing to -4
		endif
	Endif
	If (Choosing == -4)
		"Select the ingredient effect:", "FortIfy Health", "FortIfy Intelligence", "FortIfy Luck", "FortIfy Magicka",  "FortIfy Personality", "FortIfy Speed", "FortIfy Strength", "FortIfy Willpower", "Previous", "Next"
		set Choosing to 4
		set Choice4 to GetButtonPressed
	Elseif (Choosing == 4)
		if (Choice4 == -1)
			set Choice4 to GetButtonPressed
		elseif (Choice4 == 0)
			set Choosing to 124
		elseif (Choice4 == 1)
 			set Choosing to 125
		elseif (Choice4 == 2)
			set Choosing to 126
		elseif (Choice4 == 3)
			set Choosing to 127
		elseif (Choice4 == 4)
			set Choosing to 128
		elseif (Choice4 == 5)
 			set Choosing to 129
		elseif (Choice4 == 6)
			set Choosing to 130
		elseif (Choice4 == 7)
			set Choosing to 131
		elseif (Choice4 == 8)
			set Choosing to -3
		elseif (Choice4 == 9)
			set Choosing to -5
		endif
	Endif
	If (Choosing == -5)
		"Select the ingredient effect:" , "Frost Damage", "Frost Shield", "Invisibility", "Light", "Night-Eye", "Paralyze",  "Reflect Damage", "Reflect Spell", "Previous", "Next"
		set Choosing to 5
		set Choice5 to GetButtonPressed
	Elseif (Choosing == 5)
		if (Choice5 == -1)
			set Choice5 to GetButtonPressed
		elseif (Choice5 == 0)
			set Choosing to 132
		elseif (Choice5 == 1)
 			set Choosing to 133
		elseif (Choice5 == 2)
			set Choosing to 134
		elseif (Choice5 == 3)
			set Choosing to 135
		elseif (Choice5 == 4)
			set Choosing to 136
		elseif (Choice5 == 5)
 			set Choosing to 137
		elseif (Choice5 == 6)
			set Choosing to 138
		elseif (Choice5 == 7)
			set Choosing to 139
		elseif (Choice5 == 8)
			set Choosing to -4
		elseif (Choice5 == 9)
			set Choosing to -6
		endif
	Endif
	If (Choosing == -6)
		"Select the ingredient effect:", "Resist Disease", "Resist Fire", "Resist Frost", "Resist Paralysis", "Resist  Poison", "Resist Shock", "Restore Agility", "Restore Endurance", "Previous", "Next"
		set Choosing to 6
		set Choice6 to GetButtonPressed
	Elseif (Choosing == 6)
		if (Choice6 == -1)
			set Choice6 to GetButtonPressed
		elseif (Choice6 == 0)
			set Choosing to 140
		elseif (Choice6 == 1)
 			set Choosing to 141
		elseif (Choice6 == 2)
			set Choosing to 142
		elseif (Choice6 == 3)
			set Choosing to 143
		elseif (Choice6 == 4)
			set Choosing to 144
		elseif (Choice6 == 5)
 			set Choosing to 145
		elseif (Choice6 == 6)
			set Choosing to 146
		elseif (Choice6 == 7)
			set Choosing to 147
		elseif (Choice6 == 8)
			set Choosing to -5
		elseif (Choice6 == 9)
			set Choosing to -7
		endif
	Endif
	If (Choosing == -7)
		"Select the ingredient effect:", "Restore Fatigue", "Restore Health", "Restore Intelligence", "Restore Luck",  "Restore Magicka", "Restore Personality", "Restore Speed", "Restore Strength", "Previous", "Next"
		set Choosing to 7
		set Choice7 to GetButtonPressed
	Elseif (Choosing == 7)
		if (Choice7 == -1)
			set Choice7 to GetButtonPressed
		elseif (Choice7 == 0)
			set Choosing to 148
		elseif (Choice7 == 1)
 			set Choosing to 149
		elseif (Choice7 == 2)
			set Choosing to 150
		elseif (Choice7 == 3)
			set Choosing to 151
		elseif (Choice7 == 4)
			set Choosing to 152
		elseif (Choice7 == 5)
 			set Choosing to 153
		elseif (Choice7 == 6)
			set Choosing to 154
		elseif (Choice7 == 7)
			set Choosing to 155
		elseif (Choice7 == 8)
			set Choosing to -6
		elseif (Choice7 == 9)
			set Choosing to -8
		endif
	Endif
	If (Choosing == -8)
		"Select the ingredient effect:", "Restore Willpower", "Shield", "Shock Damage", "Shock Shield", "Silence", "Water  Breathing", "Water Walking", "Others", "Previous", "Cancel"
		set Choosing to 8
		set Choice8 to GetButtonPressed
	Elseif (Choosing == 8)
		if (Choice8 == -1)
			set Choice8 to GetButtonPressed
		elseif (Choice8 == 0)
			set Choosing to 156
		elseif (Choice8 == 1)
 			set Choosing to 157
		elseif (Choice8 == 2)
			set Choosing to 158
		elseif (Choice8 == 3)
			set Choosing to 159
		elseif (Choice8 == 4)
			set Choosing to 160
		elseif (Choice8 == 5)
 			set Choosing to 161
		elseif (Choice8 == 6)
			set Choosing to 162
		elseif (Choice8 == 7)
			set Choosing to 163
		elseif (Choice8 == 8)
			set Choosing to -7
		elseif (Choice8 == 9)
			set Choosing to 1000
		endif
	Endif

	If ( Choosing == 100 )
		DaedraSilkContRef.RemoveAllItems Player
		MorningGloryRootPulpContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			NightshadeContRef.RemoveAllItems Player
			FlyAmanitaCapContRef.RemoveAllItems Player
			MinotaurHornContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			GinsengContRef.RemoveAllItems Player
			OrangeContRef.RemoveAllItems Player
			TomatoContRef.RemoveAllItems Player
			DaedrothTeethContRef.RemoveAllItems Player
			WatermelonContRef.RemoveAllItems Player
			VipersBuglossLeavesContRef.RemoveAllItems Player
			BloodgrassContRef.RemoveAllItems Player
			PotatoContRef.RemoveAllItems Player
			SQ01PotatoContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			RadishContRef.RemoveAllItems Player
			MonkshoodRootPulpContRef.RemoveAllItems Player
			BoarMeatContRef.RemoveAllItems Player
			ArrowrootContRef.RemoveAllItems Player
			SteelBlueEntolomaCapContRef.RemoveAllItems Player
			SweetcakeContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf
		
	If ( Choosing == 101 )
		BloodgrassContRef.RemoveAllItems Player
		If ( AlchemySkill >= 50 )
			RadishContRef.RemoveAllItems Player
			DaedraSilkContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			StJohnsWortNectarContRef.RemoveAllItems Player
			VenisonContRef.RemoveAllItems Player
			ColumbineRootPulpContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 102 )
		ClannfearClawsContRef.RemoveAllItems Player
		RootPulpContRef.RemoveAllItems Player
		HouseServantPieContRef.RemoveAllItems Player
		MandrakeRootContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			ElfCupCapContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 103 )
		If ( AlchemySkill >= 50 )
			MilkThistleSeedsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			VipersBuglossLeavesContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 104 )
		If ( AlchemySkill >= 25 )
			GinsengContRef.RemoveAllItems Player
			RedwortFlowerContRef.RemoveAllItems Player
			StrawberryContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			StJohnsWortNectarContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 105 )
		TrollFatContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			PumpkinContRef.RemoveAllItems Player
			GarlicContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			BreadLoafContRef.RemoveAllItems Player
			SQ01PotatoBreafLoafContRef.RemoveAllItems Player
			MandrakeRootContRef.RemoveAllItems Player
			CornContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			CheeseWedgeContRef.RemoveAllItems Player
			RiceContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 106 )
		If ( AlchemySkill >= 25 )
			RadishContRef.RemoveAllItems Player
			SomnaliusFrondContRef.RemoveAllItems Player
			LadysMantleLeavesContRef.RemoveAllItems Player
			TaprootContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			CloudedFunnelCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			DaedraSilkContRef.RemoveAllItems Player
			CinnabarPolyporeCap02ContRef.RemoveAllItems Player
			EmeticRussulaCapContRef.RemoveAllItems Player
			SummerBoleteCapContRef.RemoveAllItems Player
			BogBeaconAscoCap01ContRef.RemoveAllItems Player
			CarrotContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 107 )
			DreughWaxContRef.RemoveAllItems Player
			BonemealContRef.RemoveAllItems Player
			RatMeatContRef.RemoveAllItems Player
			MortFleshContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			MuttonContRef.RemoveAllItems Player
			WaterHyacinthNectarContRef.RemoveAllItems Player
			MotherwortSprigContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			CrabMeatContRef.RemoveAllItems Player
			IronwoodNutContRef.RemoveAllItems Player
			LadysSmockLeavesContRef.RemoveAllItems Player
			GreenStainShelfCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			AlkanetFlowerContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 108 )
		NightshadeContRef.RemoveAllItems Player
		WispStalkCapsContRef.RemoveAllItems Player
		StinkhornCapContRef.RemoveAllItems Player
		HarradaContRef.RemoveAllItems Player
		SpiddalStickContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			StJohnsWortNectarContRef.RemoveAllItems Player
			SacredLotusSeedsContRef.RemoveAllItems Player
			VoidSaltsContRef.RemoveAllItems Player
			DragonsTongueContRef.RemoveAllItems Player
			PeonySeedsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			VenisonContRef.RemoveAllItems Player
			WormwoodLeavesContRef.RemoveAllItems Player
			ImpGallContRef.RemoveAllItems Player
			RedwortFlowerContRef.RemoveAllItems Player
			StrawberryContRef.RemoveAllItems Player
			DaedraVeninContRef.RemoveAllItems Player
			ScalesContRef.RemoveAllItems Player
			SQ09SlaughterfishScalesContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			WatermelonContRef.RemoveAllItems Player
			TrollFatContRef.RemoveAllItems Player
			OnionContRef.RemoveAllItems Player
			GrapesContRef.RemoveAllItems Player
			EctoplasmContRef.RemoveAllItems Player
			PearContRef.RemoveAllItems Player
			AppleContRef.RemoveAllItems Player
			ClannfearClawsContRef.RemoveAllItems Player
			GreenStainCupCapContRef.RemoveAllItems Player
			DarkHumanSkinContRef.RemoveAllItems Player
			ScampSkinContRef.RemoveAllItems Player
			GlowDustContRef.RemoveAllItems Player
			FlaxSeedsContRef.RemoveAllItems Player
			DreughWaxContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 109 )
		OgresTeethContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			MonkshoodRootPulpContRef.RemoveAllItems Player
			FennelSeedsContRef.RemoveAllItems Player
			CairnBoleteCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			WispStalkCapsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			ElfCupCapContRef.RemoveAllItems Player
			RootPulpContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 110 )
		GinsengContRef.RemoveAllItems Player
		WaterHyacinthNectarContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			ArrowrootContRef.RemoveAllItems Player
			AppleContRef.RemoveAllItems Player
			MortFleshContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			NightshadeContRef.RemoveAllItems Player
			CheeseWheelContRef.RemoveAllItems Player
			GingkoLeafContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			HamContRef.RemoveAllItems Player
			LavEnderSprigContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 111 )
		DarkHumanSkinContRef.RemoveAllItems Player
		ScampSkinContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			WheatGrainContRef.RemoveAllItems Player
			HarradaContRef.RemoveAllItems Player
			SpiddalStickContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			HamContRef.RemoveAllItems Player
			TobaccoContRef.RemoveAllItems Player
			AloeVeraLeavesContRef.RemoveAllItems Player
			FennelSeedsContRef.RemoveAllItems Player
			RatMeatContRef.RemoveAllItems Player
			BergamotSeedsContRef.RemoveAllItems Player
			DaedraHeartContRef.RemoveAllItems Player
			HumanHeartContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			CloudedFunnelCapContRef.RemoveAllItems Player
			WormwoodLeavesContRef.RemoveAllItems Player
			MuttonContRef.RemoveAllItems Player
			MorningGloryRootPulpContRef.RemoveAllItems Player
			TinderPolyporeCapContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 112 )
		If ( AlchemySkill >= 25 )
			FlourContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			CinnabarPolyporeCap02ContRef.RemoveAllItems Player
			EmeticRussulaCapContRef.RemoveAllItems Player
			SummerBoleteCapContRef.RemoveAllItems Player
			BogBeaconAscoCap01ContRef.RemoveAllItems Player
			LeekContRef.RemoveAllItems Player
			PumpkinContRef.RemoveAllItems Player
			SweetrollContRef.RemoveAllItems Player
			CinnabarPolyporeCap01ContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			LettuceContRef.RemoveAllItems Player
			WheatGrainContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 113 )
		If ( AlchemySkill >= 25 )
			BoarMeatContRef.RemoveAllItems Player
			PearContRef.RemoveAllItems Player
			GreenStainCupCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			DryadSaddlePolyporeCapContRef.RemoveAllItems Player
			PeonySeedsContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 114 )
		If ( AlchemySkill >= 25 )
			TigerLilyNectarContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			BreadLoafContRef.RemoveAllItems Player
			LeekContRef.RemoveAllItems Player
			PrimroseLeavesContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 115 )
		ElfCupCapContRef.RemoveAllItems Player
		ScalesContRef.RemoveAllItems Player
		SQ09SlaughterfishScalesContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			RootPulpContRef.RemoveAllItems Player
			MorningGloryRootPulpContRef.RemoveAllItems Player
			WispStalkCapsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			TrollFatContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			TigerLilyNectarContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 116 )
		If ( AlchemySkill >= 25 )
			BreadLoafContRef.RemoveAllItems Player
			SQ01PotatoBreafLoafContRef.RemoveAllItems Player
			OrangeContRef.RemoveAllItems Player
			TomatoContRef.RemoveAllItems Player
			RatMeatContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			OnionContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			PumpkinContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 117 )
		If ( AlchemySkill >= 25 )
			EctoplasmContRef.RemoveAllItems Player
			BergamotSeedsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			GrapesContRef.RemoveAllItems Player
			MuttonContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			TobaccoContRef.RemoveAllItems Player
			SacredLotusSeedsContRef.RemoveAllItems Player
			HouseServantPieContRef.RemoveAllItems Player
			BeefContRef.RemoveAllItems Player
			VoidSaltsContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 118 )
		If ( AlchemySkill >= 25 )
			SweetcakeContRef.RemoveAllItems Player
			VenisonContRef.RemoveAllItems Player
			FlaxSeedsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			SacredLotusSeedsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			SomnaliusFrondContRef.RemoveAllItems Player
			LadysMantleLeavesContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 119 )
		FireSaltsContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			SteelBlueEntolomaCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			SpiddalStickContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			ImpGallContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 120 )
		If ( AlchemySkill >= 50 )
			CheeseWedgeContRef.RemoveAllItems Player
			LettuceContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			CrabMeatContRef.RemoveAllItems Player
			DragonsTongueContRef.RemoveAllItems Player
			FireSaltsContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 121 )
		If ( AlchemySkill >= 25 )
			LeekContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			HouseServantPieContRef.RemoveAllItems Player
			BeefContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 122 )
		If ( AlchemySkill >= 25 )
			CinnabarPolyporeCap01ContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			MonkshoodRootPulpContRef.RemoveAllItems Player
			MinotaurHornContRef.RemoveAllItems Player
			BlackberryContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 123 )
		WormwoodLeavesContRef.RemoveAllItems Player
		If ( AlchemySkill >= 50 )
			FlourContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 124 )
		MuttonContRef.RemoveAllItems Player
		If ( AlchemySkill >= 50 )
			BoarMeatContRef.RemoveAllItems Player
			WheatGrainContRef.RemoveAllItems Player
			SomnaliusFrondContRef.RemoveAllItems Player
			PaintedTrollFatContRef.RemoveAllItems Player
			MortFleshContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			BloodgrassContRef.RemoveAllItems Player
			IronwoodNutContRef.RemoveAllItems Player
			LadysSmockLeavesContRef.RemoveAllItems Player
			SweetrollContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 125 )
		If ( AlchemySkill >= 25 )
			CloudedFunnelCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			CarrotContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 126 )
		If ( AlchemySkill >= 25 )
			GreenStainShelfCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			PrimroseLeavesContRef.RemoveAllItems Player
			BonemealContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 127 )
		PaintedTrollFatContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			GingkoLeafContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			ColumbineRootPulpContRef.RemoveAllItems Player
			EctoplasmContRef.RemoveAllItems Player
			VoidSaltsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			GinsengContRef.RemoveAllItems Player
			NightshadeContRef.RemoveAllItems Player
			WaterHyacinthNectarContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 128 )
		ImpGallContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			TrollFatContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 129 )
		If ( AlchemySkill >= 50 )
			PearContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			WispStalkCapsContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 130 )
		If ( AlchemySkill >= 50 )
			ArrowrootContRef.RemoveAllItems Player
			ElfCupCapContRef.RemoveAllItems Player
			RootPulpContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			GarlicContRef.RemoveAllItems Player
			OgresTeethContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 131 )
		If ( AlchemySkill >= 25 )
			LavEnderSprigContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			AppleContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			MandrakeRootContRef.RemoveAllItems Player
			CheeseWheelContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 132 )
		FrostSaltsContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			MilkThistleSeedsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			VampireDustContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			DryadSaddlePolyporeCapContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 133 )
		If ( AlchemySkill >= 25 )
			DaedrothTeethContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			MorningGloryRootPulpContRef.RemoveAllItems Player
			GarlicContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			PotatoContRef.RemoveAllItems Player
			SQ01PotatoContRef.RemoveAllItems Player
			FrostSaltsContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 134 )
		If ( AlchemySkill >= 25 )
			WormwoodLeavesContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			TinderPolyporeCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			RedwortFlowerContRef.RemoveAllItems Player
			AloeVeraLeavesContRef.RemoveAllItems Player
			VampireDustContRef.RemoveAllItems Player
			MotherwortSprigContRef.RemoveAllItems Player
			StinkhornCapContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 135 )
		MilkThistleSeedsContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			WatermelonContRef.RemoveAllItems Player
			GlowDustContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			AlkanetFlowerContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			DaedrothTeethContRef.RemoveAllItems Player
			GoldenRodSeedPodContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 136 )
		DaedrothTeethContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			VipersBuglossLeavesContRef.RemoveAllItems Player
			DaedraSilkContRef.RemoveAllItems Player
			CarrotContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			LadysMantleLeavesContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			BonemealContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 137 )
		DaedraVeninContRef.RemoveAllItems Player
		If ( AlchemySkill >= 50 )
			ClannfearClawsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			MilkThistleSeedsContRef.RemoveAllItems Player
			FennelSeedsContRef.RemoveAllItems Player
			HarradaContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 138 )
		If ( AlchemySkill >= 50 )
			GreenStainCupCapContRef.RemoveAllItems Player
			DarkHumanSkinContRef.RemoveAllItems Player
			ScampSkinContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			StrawberryContRef.RemoveAllItems Player
			DaedraVeninContRef.RemoveAllItems Player
			FlourContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 139 )
		If ( AlchemySkill >= 50 )
			GlowDustContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			CinnabarPolyporeCap01ContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 140 )
		GarlicContRef.RemoveAllItems Player
		BergamotSeedsContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			ClannfearClawsContRef.RemoveAllItems Player
			TinderPolyporeCapContRef.RemoveAllItems Player
			SweetrollContRef.RemoveAllItems Player
			VampireDustContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			FoxgloveNectarContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 141 )
		DragonsTongueContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			CheeseWedgeContRef.RemoveAllItems Player
			IronwoodNutContRef.RemoveAllItems Player
			LadysSmockLeavesContRef.RemoveAllItems Player
			FrostSaltsContRef.RemoveAllItems Player
			BonemealContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 142)
		SacredLotusSeedsContRef.RemoveAllItems Player
		RedwortFlowerContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			ColumbineRootPulpContRef.RemoveAllItems Player
			FireSaltsContRef.RemoveAllItems Player
			DryadSaddlePolyporeCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			SteelBlueEntolomaCapContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 143 )
		VipersBuglossLeavesContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			TobaccoContRef.RemoveAllItems Player
			BloodgrassContRef.RemoveAllItems Player
			OgresTeethContRef.RemoveAllItems Player
			CheeseWheelContRef.RemoveAllItems Player
			FoxgloveNectarContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			CairnBoleteCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			MinotaurHornContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 144 )
		MotherwortSprigContRef.RemoveAllItems Player
		FoxgloveNectarContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			AlkanetFlowerContRef.RemoveAllItems Player
			DreughWaxContRef.RemoveAllItems Player
			MandrakeRootContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			TaprootContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 145 )
		StJohnsWortNectarContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			DarkHumanSkinContRef.RemoveAllItems Player
			ScampSkinContRef.RemoveAllItems Player
			CrabMeatContRef.RemoveAllItems Player
			BlackberryContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 146 )
		ArrowrootContRef.RemoveAllItems Player
		CinnabarPolyporeCap02ContRef.RemoveAllItems Player
		EmeticRussulaCapContRef.RemoveAllItems Player
		SummerBoleteCapContRef.RemoveAllItems Player
		FlyAmanitaCapContRef.RemoveAllItems Player
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 147 )
		TigerLilyNectarContRef.RemoveAllItems Player
		CrabMeatContRef.RemoveAllItems Player
		CinnabarPolyporeCap01ContRef.RemoveAllItems Player
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 148 )
		RadishContRef.RemoveAllItems Player
		SweetcakeContRef.RemoveAllItems Player
		CheeseWedgeContRef.RemoveAllItems Player
		RiceContRef.RemoveAllItems Player
		CarrotContRef.RemoveAllItems Player
		WatermelonContRef.RemoveAllItems Player
		OnionContRef.RemoveAllItems Player
		GrapesContRef.RemoveAllItems Player
		PearContRef.RemoveAllItems Player
		AppleContRef.RemoveAllItems Player
		GreenStainCupCapContRef.RemoveAllItems Player
		HamContRef.RemoveAllItems Player
		LettuceContRef.RemoveAllItems Player
		WheatGrainContRef.RemoveAllItems Player
		BreadLoafContRef.RemoveAllItems Player
		SQ01PotatoBreafLoafContRef.RemoveAllItems Player
		LeekContRef.RemoveAllItems Player
		PumpkinContRef.RemoveAllItems Player
		TobaccoContRef.RemoveAllItems Player
		BeefContRef.RemoveAllItems Player
		SweetrollContRef.RemoveAllItems Player
		CheeseWheelContRef.RemoveAllItems Player
		PotatoContRef.RemoveAllItems Player
		SQ01PotatoContRef.RemoveAllItems Player
		AloeVeraLeavesContRef.RemoveAllItems Player
		FennelSeedsContRef.RemoveAllItems Player
		StrawberryContRef.RemoveAllItems Player
		FlourContRef.RemoveAllItems Player
		BlackberryContRef.RemoveAllItems Player
		OrangeContRef.RemoveAllItems Player
		TomatoContRef.RemoveAllItems Player
		CornContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			DaedraVeninContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			PeonySeedsContRef.RemoveAllItems Player
			SpiddalStickContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 149 )
		BoarMeatContRef.RemoveAllItems Player
		VenisonContRef.RemoveAllItems Player
		LadysMantleLeavesContRef.RemoveAllItems Player
		CairnBoleteCapContRef.RemoveAllItems Player
		DaedraHeartContRef.RemoveAllItems Player
		HumanHeartContRef.RemoveAllItems Player
		AmbrosiaContRef.RemoveAllItems Player
		MugwortSeedsContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			HamContRef.RemoveAllItems Player
			AloeVeraLeavesContRef.RemoveAllItems Player
			PaintedTrollFatContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			SweetcakeContRef.RemoveAllItems Player
			LavEnderSprigContRef.RemoveAllItems Player
			DragonsTongueContRef.RemoveAllItems Player
			FlyAmanitaCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			GreenStainShelfCapContRef.RemoveAllItems Player
			SQ01PotatoBreafLoafContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 150 )
		AlkanetFlowerContRef.RemoveAllItems Player
		CloudedFunnelCapContRef.RemoveAllItems Player
		IronwoodNutContRef.RemoveAllItems Player
		LadysSmockLeavesContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			CornContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 151 )
		DryadSaddlePolyporeCapContRef.RemoveAllItems Player
		GreenStainShelfCapContRef.RemoveAllItems Player
		TaprootContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			LettuceContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			FoxgloveNectarContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 152 )
		SteelBlueEntolomaCapContRef.RemoveAllItems Player
		BogBeaconAscoCap01ContRef.RemoveAllItems Player
		FlaxSeedsContRef.RemoveAllItems Player
		VoidSaltsContRef.RemoveAllItems Player
		LichorContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			StinkhornCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			FireSaltsContRef.RemoveAllItems Player
			WaterHyacinthNectarContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			BlackberryContRef.RemoveAllItems Player
			PaintedTrollFatContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 153 )
		ColumbineRootPulpContRef.RemoveAllItems Player
		LavEnderSprigContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			PrimroseLeavesContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 154 )
		GlowDustContRef.RemoveAllItems Player
		SomnaliusFrondContRef.RemoveAllItems Player
		GingkoLeafContRef.RemoveAllItems Player
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 155 )
		MonkshoodRootPulpContRef.RemoveAllItems Player
		GoldenRodSeedPodContRef.RemoveAllItems Player
		PeonySeedsContRef.RemoveAllItems Player
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 156 )
		TinderPolyporeCapContRef.RemoveAllItems Player
		PrimroseLeavesContRef.RemoveAllItems Player
		MinotaurHornContRef.RemoveAllItems Player
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 157 )
		If ( AlchemySkill >= 25 )
			CinnabarPolyporeCap02ContRef.RemoveAllItems Player
			EmeticRussulaCapContRef.RemoveAllItems Player
			SummerBoleteCapContRef.RemoveAllItems Player
			BogBeaconAscoCap01ContRef.RemoveAllItems Player
			HouseServantPieContRef.RemoveAllItems Player
			BeefContRef.RemoveAllItems Player
			PotatoContRef.RemoveAllItems Player
			SQ01PotatoContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			FlaxSeedsContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			OrangeContRef.RemoveAllItems Player
			TomatoContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 158 )
		EctoplasmContRef.RemoveAllItems Player
		If ( AlchemySkill >= 50 )
			OgresTeethContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			GingkoLeafContRef.RemoveAllItems Player
			CairnBoleteCapContRef.RemoveAllItems Player
			FlyAmanitaCapContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 159 )
		If ( AlchemySkill >= 25 )
			DaedraHeartContRef.RemoveAllItems Player
			HumanHeartContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			RiceContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			CornContRef.RemoveAllItems Player
			TaprootContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 160 )
		VampireDustContRef.RemoveAllItems Player
		If ( AlchemySkill >= 25 )
			RiceContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			FrostSaltsContRef.RemoveAllItems Player
			MotherwortSprigContRef.RemoveAllItems Player
			GoldenRodSeedPodContRef.RemoveAllItems Player
			HarradaContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			RatMeatContRef.RemoveAllItems Player
			BergamotSeedsContRef.RemoveAllItems Player
			DaedraHeartContRef.RemoveAllItems Player
			HumanHeartContRef.RemoveAllItems Player
			MortFleshContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 161 )
		If ( AlchemySkill >= 25 )
			OnionContRef.RemoveAllItems Player
			GoldenRodSeedPodContRef.RemoveAllItems Player
			ScalesContRef.RemoveAllItems Player
			SQ09SlaughterfishScalesContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			DreughWaxContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 162 )
		If ( AlchemySkill >= 25 )
			GrapesContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 50 )
			TigerLilyNectarContRef.RemoveAllItems Player
			StinkhornCapContRef.RemoveAllItems Player
		EndIf
		If ( AlchemySkill >= 75 )
			ScalesContRef.RemoveAllItems Player
			SQ09SlaughterfishScalesContRef.RemoveAllItems Player
		EndIf
		Set Choosing to 1000
		Return
	EndIf

	If ( Choosing == 163 )
		Set Choosing to 0
		Return
	EndIf

	If ( Choosing == 1000 )
		Set Choosing to 0
		StopQuest 000RetrieveEffectQuest
	EndIf
End

Script 6: Retrieving Ingredients by CategoryEdit

Warning: Unfinished

Scn RetrieveCategory

Script 7: Retrieving All IngredientsEdit

This feature is used to retrieve all your ingredients. Every ingredient will be transferred directly to the player.

Warning: Unfinished

Scn 000RetrieveAll

;Ref ContainerRef

Begin GameMode
	ContainerRef.RemoveAllItems Player
End

Optional FeaturesEdit

Warning: Unfinished

NotesEdit

Remember: This is just one way to create an alchemy sorter, there are many ways to create an alchemy sorter and this is just one possibility. Now you should be able to create your own alchemy sorter with the functions and possibilities you like, good luck!

If you have questions or comments, please put them on the talk page and not on this page.