Sub AppendCode(SourceItem As ItemObj, CodeSection As Integer)
'Appends the script code that is in CodeSection of the item object SourceItem
' to the item's own code.
'
'CodeSection is an integer that determines which code section to append:
' Shared Code = 0
' Use Item = 1
' Rest = 2
' Equip Item = 3
' Unequip Item = 4
' Weapon Ability = 5
' Armor Ability = 6
' Contents Change = 7
' Condition Effect = 8
' Attack Bonus Calculation = 9