export40209_0	= StockObjInitter2

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_178f	; "skbShieldUseIII"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_179f	; "Using Your Shield: An Expert Discourse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c7ce		; -14386
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$53		; 83, 'S', restore
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0640
		ret

code_0640:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_17c6	; "skbShieldUseIV"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_17d5	; "Mastering the Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c7ce		; -14386
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$53		; 83, 'S', restore
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_06c8
		ret

code_06c8:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_17ea	; "skbShieldUseV"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_17f8	; "Shields: Defense by a Grand-Master"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c7ce		; -14386
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$53		; 83, 'S', restore
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0750
		ret

code_0750:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_181b	; "Spellbook"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1825	; "Book"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_07d8
		ret

code_07d8:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_182a	; "spbBlank"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1833	; "Blank Spellbook"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_085f
		ret

code_085f:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1843	; "spbHome"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_184b	; "Spellbook of Home"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_08da
		ret

code_08da:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_185d	; "spbKillStar"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1869	; "Spellbook of Killstar"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0962
		ret

code_0962:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_187f	; "spbUnlock"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1889	; "Spellbook of Unlock"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_09ea
		ret

code_09ea:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_189d	; "spbDispelMagic"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_18ac	; "Spellbook of Dispel Magic"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0a72
		ret

code_0a72:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_18c6	; "spbEngrave"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_18d1	; "Spellbook of Engrave"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0afa
		ret

code_0afa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_18e6	; "spbMultiBlade"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_18f4	; "Spellbook of Multi-Blade"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0b82
		ret

code_0b82:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_190d	; "spbGatherTheFellowship"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1924	; "Spellbook of Gather the Fellowship"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0c0a
		ret

code_0c0a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1947	; "spbCornucopia"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1955	; "Spellbook of Cornucopia"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0c92
		ret

code_0c92:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_196d	; "spbCloudOfFog"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_197b	; "Spellbook of Cloud of Fog"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0d1a
		ret

code_0d1a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1995	; "spbImproveArmor"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_19a5	; "Spellbook of Improve Armor"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0da2
		ret

code_0da2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_19c0	; "spbTeleport"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_19cc	; "Spellbook of Teleport"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0e2a
		ret

code_0e2a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_19e2	; "spbExtension"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_19ef	; "Spellbook of Extension"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0eb2
		ret

code_0eb2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1a06	; "spbSeeInvisibility"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1a19	; "Spellbook of See Invisibility"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0f3a
		ret

code_0f3a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1a37	; "spbShift"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1a40	; "Spellbook of Shift"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_0fc2
		ret

code_0fc2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1a53	; "spbInvisibility"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1a63	; "Spellbook of Invisibility"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_104a
		ret

code_104a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1a7d	; "spbCombatTeleport"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1a8f	; "Spellbook of Combat Teleport"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_10d2
		ret

code_10d2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1aac	; "spbTeleportGroup"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1abd	; "Spellbook of Teleport Group"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_115a
		ret

code_115a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1ad9	; "spbPermanency"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1ae7	; "Spellbook of Permanency"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_11e2
		ret

code_11e2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1aff	; "spbRust"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1b07	; "Spellbook of Rust"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_126a
		ret

code_126a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1b19	; "spbWraithform"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1b27	; "Spellbook of Defenselessness"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_12f2
		ret

code_12f2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1b44	; "spbImprovedInvisibility"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1b5c	; "Spellbook of Improved Invisibility"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_137a
		ret

code_137a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1b7f	; "spbEnchantItem"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1b8e	; "Spellbook of Enchant Item"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1402
		ret

code_1402:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1ba8	; "spbMassRust"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1bb4	; "Spellbook of Mass Rust"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_148a
		ret

code_148a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1bcb	; "spbElphamesJustice"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1bde	; "Spellbook of Elphame's Justice"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1512
		ret

code_1512:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1bfd	; "spbGreaterIdentify"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1c10	; "Spellbook of Greater Identify"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_159a
		ret

code_159a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1c2e	; "spbFireGrasp"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1c3b	; "Spellbook of Fire Grasp"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1622
		ret

code_1622:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1c53	; "spbFlameOrb"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1c5f	; "Spellbook of Flame Orb"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_16aa
		ret

code_16aa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1c76	; "spbArticGrasp"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1c84	; "Spellbook of Arctic Grasp"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1732
		ret

code_1732:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1c9e	; "spbIceOrb"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1ca8	; "Spellbook of Ice Orb"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_17ba
		ret

code_17ba:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1cbd	; "spbEarthSpike"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1ccb	; "Spellbook of Earth Spike"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1842
		ret

code_1842:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1ce4	; "spbIncinerate"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1cf2	; "Spellbook of Incinerate"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_18ca
		ret

code_18ca:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1d0a	; "spbGustOfWind"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1d18	; "Spellbook of Gust of Wind"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1952
		ret

code_1952:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1d32	; "spbImmolation"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1d40	; "Spellbook of Immolation"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_19da
		ret

code_19da:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1d58	; "spbDancingFlame"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1d68	; "Spellbook of Dancing Flame"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1a62
		ret

code_1a62:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1d83	; "spbFlameBlade"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1d91	; "Spellbook of Flame Blade"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1aea
		ret

code_1aea:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1daa	; "spbArticCharge"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1db9	; "Spellbook of Electric Charge"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1b72
		ret

code_1b72:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1dd6	; "spbColdSteel"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1de3	; "Spellbook of Cold Steel"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1bfa
		ret

code_1bfa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1dfb	; "spbSandstorm"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1e08	; "Spellbook of Sandstorm"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1c82
		ret

code_1c82:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1e1f	; "spbSpark"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1e28	; "Spellbook of Spark"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1d0a
		ret

code_1d0a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1e3b	; "spbIceStorm"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1e47	; "Spellbook of Ice Storm"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1d92
		ret

code_1d92:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1e5e	; "spbFreezingWind"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1e6e	; "Spellbook of Freezing Wind"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1e1a
		ret

code_1e1a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1e89	; "spbHurricane"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1e96	; "Spellbook of Hurricane"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1ea2
		ret

code_1ea2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1ead	; "spbCrawlingCharge"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1ebf	; "Spellbook of Crawling Charge"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1f2a
		ret

code_1f2a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1edc	; "spbStoning"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1ee7	; "Spellbook of Stoning"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_1fb2
		ret

code_1fb2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1efc	; "spbFireball"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1f08	; "Spellbook of Fireball"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_203a
		ret

code_203a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1f1e	; "spbLightningBolt"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1f2f	; "Spellbook of Lightning Bolt"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_20c2
		ret

code_20c2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1f4b	; "spbFreeze"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1f55	; "Spellbook of Freeze"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_214a
		ret

code_214a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1f69	; "spbCrushingBoulder"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1f7c	; "Spellbook of Crushing Boulder"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_21d2
		ret

code_21d2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1f9a	; "spbElectricFury"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1faa	; "Spellbook of Electric Fury"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_225a
		ret

code_225a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1fc5	; "spbColdSnap"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1fd1	; "Spellbook of Cold Snap"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_22e2
		ret

code_22e2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_1fe8	; "spbEarthquake"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_1ff6	; "Spellbook of Earthquake"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_236a
		ret

code_236a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_200e	; "spbDespothesWrath"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2020	; "Spellbook of Despothes' Wrath"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_23f2
		ret

code_23f2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_203e	; "spbHoldMonster"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_204d	; "Spellbook of Hold Monster"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_247a
		ret

code_247a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2067	; "spbFumble"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2071	; "Spellbook of Fumble"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2502
		ret

code_2502:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2085	; "spbPsychicOrb"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2093	; "Spellbook of Psychic Orb"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_258a
		ret

code_258a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_20ac	; "spbConfusion"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_20b9	; "Spellbook of Confusion"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2612
		ret

code_2612:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_20d0	; "spbMindShackle"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_20df	; "Spellbook of Mind Shackle"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_269a
		ret

code_269a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_20f9	; "spbIdentify"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2105	; "Spellbook of Identify"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2722
		ret

code_2722:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_211b	; "spbBerserk"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2126	; "Spellbook of Berserk"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_27aa
		ret

code_27aa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_213b	; "spbStun"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2143	; "Spellbook of Stun"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2832
		ret

code_2832:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2155	; "spbLoyaltyShift"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2165	; "Spellbook of Loyalty Shift"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_28ba
		ret

code_28ba:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2180	; "spbWarpMind"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_218c	; "Spellbook of Warp Mind"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2942
		ret

code_2942:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_21a3	; "spbEtheralize"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_21b1	; "Spellbook of Etherealize"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_29ca
		ret

code_29ca:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_21ca	; "spbSpellBlast"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_21d8	; "Spellbook of Spell Blast"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2a52
		ret

code_2a52:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_21f1	; "spbMassHold"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_21fd	; "Spellbook of Mass Hold"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2ada
		ret

code_2ada:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2214	; "spbMassFumble"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2222	; "Spellbook of Mass Fumble"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2b62
		ret

code_2b62:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_223b	; "spbFear"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2243	; "Spellbook of Fear"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2bea
		ret

code_2bea:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2255	; "spbIronChains"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2263	; "Spellbook of Iron Chains"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2c72
		ret

code_2c72:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_227c	; "spbMassBerserk"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_228b	; "Spellbook of Mass Berserk"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2cfa
		ret

code_2cfa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_22a5	; "spbMassStun"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_22b1	; "Spellbook of Mass Stun"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2d82
		ret

code_2d82:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_22c8	; "spbMassLoyaltyShift"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_22dc	; "Spellbook of Mass Loyalty Shift"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2e0a
		ret

code_2e0a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_22fc	; "spbMabonsForcedFlee"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2310	; "Spellbook of Mabon's Forced Flee"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2e92
		ret

code_2e92:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2331	; "spbForget"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_233b	; "Spellbook of Forget"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2f1a
		ret

code_2f1a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_234f	; "spbIllusionaryFoe"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2361	; "Spellbook of Illusionary Foe"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_2fa2
		ret

code_2fa2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_237e	; "spbAntiMagicAura"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_238f	; "Spellbook of Anti-Magic Aura"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_302a
		ret

code_302a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_23ac	; "spbLightDart"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_23b9	; "Spellbook of Light Dart"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_30b2
		ret

code_30b2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_23d1	; "spbNimbility"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_23de	; "Spellbook of Nimbility"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_313a
		ret

code_313a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_23f5	; "spbEmpower"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2400	; "Spellbook of Empower"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_31c2
		ret

code_31c2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2415	; "spbMissileResistance"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_242a	; "Spellbook of Missile Resistance"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_324a
		ret

code_324a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_244a	; "spbHeal"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2452	; "Spellbook of Heal"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_32d2
		ret

code_32d2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2464	; "spbSummonPixie"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2473	; "Spellbook of Summon Pixie"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_335a
		ret

code_335a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_248d	; "spbPurify"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2497	; "Spellbook of Purify"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_33e2
		ret

code_33e2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_24ab	; "spbCurePoison"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_24b9	; "Spellbook of Cure Poison"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_346a
		ret

code_346a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_24d2	; "spbGreaterHeal"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_24e1	; "Spellbook of Greater Heal"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_34f2
		ret

code_34f2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_24fb	; "spbRemoveCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_250a	; "Spellbook of Remove Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_357a
		ret

code_357a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2524	; "spbSummonFaery"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2533	; "Spellbook of Summon Faery"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3602
		ret

code_3602:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_254d	; "spbShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2557	; "Spellbook of Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_368a
		ret

code_368a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_256b	; "spbGreaterShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_257c	; "Spellbook of Greater Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3712
		ret

code_3712:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2598	; "spbWrathOfTheGods"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_25aa	; "Spellbook of Wrath of the Gods"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_379a
		ret

code_379a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_25c9	; "spbFireShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_25d7	; "Spellbook of Fire Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3822
		ret

code_3822:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_25f0	; "spbColdShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_25fe	; "Spellbook of Cold Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_38aa
		ret

code_38aa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2617	; "spbLightningShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_262a	; "Spellbook of Lightning Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3932
		ret

code_3932:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2648	; "spbPoisonShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2658	; "Spellbook of Poison Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_39ba
		ret

code_39ba:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2673	; "spbAcidShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2681	; "Spellbook of Acid Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3a42
		ret

code_3a42:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_269a	; "spbSummonNymph"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_26a9	; "Spellbook of Summon Nymph"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3aca
		ret

code_3aca:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_26c3	; "spbRegeneration"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_26d3	; "Spellbook of Regeneration"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3b52
		ret

code_3b52:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_26ed	; "spbIndestruction"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_26fe	; "Spellbook of Indestruction"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3bda
		ret

code_3bda:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2719	; "spbInvulnerability"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_272c	; "Spellbook of Invulnerability"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3c62
		ret

code_3c62:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2749	; "spbEnidsBlessing"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_275a	; "Spellbook of Enid's Blessing"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3cea
		ret

code_3cea:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2777	; "spbBanishment"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2785	; "Spellbook of Banishment"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3d72
		ret

code_3d72:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_279d	; "spbSummonFaeryQueen"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_27b1	; "Spellbook of Summon Faery Queen"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3dfa
		ret

code_3dfa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_27d1	; "spbAcidSphere"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_27df	; "Spellbook of Acid Sphere"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3e82
		ret

code_3e82:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_27f8	; "spbVenomousTouch"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2809	; "Spellbook of Venomous Touch"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3f0a
		ret

code_3f0a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2825	; "spbClumsiness"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2833	; "Spellbook of Curse of Clumsiness"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_3f92
		ret

code_3f92:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2854	; "spbPoisonBolt"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2862	; "Spellbook of Poison Bolt"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_401a
		ret

code_401a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_287b	; "spbEnfeeble"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2887	; "Spellbook of Enfeeble"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_40a2
		ret

code_40a2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_289d	; "spbDrainLife"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_28aa	; "Spellbook of Drain Life"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_412a
		ret

code_412a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_28c2	; "spbAcidCloud"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_28cf	; "Spellbook of Acid Cloud"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_41b2
		ret

code_41b2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_28e7	; "spbSummonZombie"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_28f7	; "Spellbook of Summon Zombie"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_423a
		ret

code_423a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2912	; "spbVenom"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_291b	; "Spellbook of Venom"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_42c2
		ret

code_42c2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_292e	; "spbSummonUndead"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_293e	; "Spellbook of Summon Undead"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_434a
		ret

code_434a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2959	; "spbAcidRain"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2965	; "Spellbook of Acid Rain"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_43d2
		ret

code_43d2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_297c	; "spbPoisonCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_298b	; "Spellbook of Poison Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_445a
		ret

code_445a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_29a5	; "spbAcidCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_29b2	; "Spellbook of Acid Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_44e2
		ret

code_44e2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_29ca	; "spbFireCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_29d7	; "Spellbook of Fire Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_456a
		ret

code_456a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_29ef	; "spbColdCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_29fc	; "Spellbook of Cold Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_45f2
		ret

code_45f2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2a14	; "spbElectricCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2a25	; "Spellbook of Electric Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_467a
		ret

code_467a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2a41	; "spbNightFriends"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2a51	; "Spellbook of Night Friends"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4702
		ret

code_4702:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2a6c	; "spbStealLife"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2a79	; "Spellbook of Steal Life"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_478a
		ret

code_478a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2a91	; "spbSummonDoppelganger"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2aa7	; "Spellbook of Summon Doppelganger"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4812
		ret

code_4812:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2ac8	; "spbDeathTouch"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2ad6	; "Spellbook of Death Touch"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_489a
		ret

code_489a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2aef	; "spbBanish"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2af9	; "Spellbook of Banish Undead"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4922
		ret

code_4922:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2b14	; "spbShadowWarrior"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2b25	; "Spellbook of Shadow Warrior"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_49aa
		ret

code_49aa:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2b41	; "spbSummonDaemon"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2b51	; "Spellbook of Summon Daemon"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4a33
		ret

code_4a33:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2b6c	; "spbDuachsVengeance"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2b7f	; "Spellbook of Duach's Vengeance"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4abc
		ret

code_4abc:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2b9e	; "spbDeathWish"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2bab	; "Spellbook of Death Wish"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4b45
		ret

code_4b45:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2bc3	; "spbMassDrain"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2bd0	; "Spellbook of Mass Drain"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c76a		; -14486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$42		; 66, 'B', cantBeHere
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4bce
		ret

code_4bce:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$a		; 10, inTop
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BScroll
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2be8	; "Dye"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2bec	; "Bottle of Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4c58
		ret

code_4c58:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2bfa	; "dOlive"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2c01	; "Bottle of Olive Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$30		; 48, '0', who
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4cea
		ret

code_4cea:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2c15	; "dLime"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2c1b	; "Bottle of Lime Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$31		; 49, '1', message
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4d7c
		ret

code_4d7c:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2c2e	; "dBlue"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2c34	; "Bottle of Blue Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$35		; 53, '5', nodePtr
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4e0e
		ret

code_4e0e:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2c47	; "dAzure"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2c4e	; "Bottle of Azure Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4ea0
		ret

code_4ea0:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2c62	; "dRed"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2c67	; "Bottle of Red Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4f32
		ret

code_4f32:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2c79	; "dPink"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2c7f	; "Bottle of Pink Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$3b		; 59, ';', b_i2
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_4fc4
		ret

code_4fc4:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2c92	; "dGold"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2c98	; "Bottle of Gold Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$3f		; 63, '?', xStep
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5056
		ret

code_5056:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2cab	; "dYellow"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2cb3	; "Bottle of Yellow Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$40		; 64, '@', yStep
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_50e8
		ret

code_50e8:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2cc8	; "dViolet"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2cd0	; "Bottle of Violet Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_517a
		ret

code_517a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2ce5	; "dMagenta"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2cee	; "Bottle of Magenta Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$45		; 69, 'E', doit
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_520c
		ret

code_520c:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2d04	; "dBrown"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2d0b	; "Bottle of Brown Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$49		; 73, 'I', replay
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_529e
		ret

code_529e:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2d1f	; "dTan"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2d24	; "Bottle of Tan Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$4a		; 74, 'J', setPri
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5330
		ret

code_5330:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2d36	; "dAqua"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2d3c	; "Bottle of Aqua Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$4e		; 78, 'N', width
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_53c2
		ret

code_53c2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2d4f	; "dTeal"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2d55	; "Bottle of Teal Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$4f		; 79, 'O', pragmaFail
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5454
		ret

code_5454:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2d68	; "dGreen"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2d6f	; "Bottle of Green Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$53		; 83, 'S', restore
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_54e6
		ret

code_54e6:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2d83	; "dJade"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2d89	; "Bottle of Jade Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$54		; 84, 'T', title
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5578
		ret

code_5578:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2d9c	; "dOrange"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2da4	; "Bottle of Orange Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$58		; 88, 'X', delete
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_560a
		ret

code_560a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2db9	; "dAmber"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2dc0	; "Bottle of Amber Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$59		; 89, 'Y', printLang
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_569c
		ret

code_569c:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2dd4	; "dRoyal"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2ddb	; "Bottle of Royal Purple Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$5d		; 93, ']', dataInc
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_572e
		ret

code_572e:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2df6	; "dPurple"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2dfe	; "Bottle of Purple Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$5e		; 94, '^', handle
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_57c0
		ret

code_57c0:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2e13	; "dBlack"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2e1a	; "Bottle of Black Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$62		; 98, 'b', vol
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5852
		ret

code_5852:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2e2e	; "dGray"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2e34	; "Bottle of Gray Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$63		; 99, 'c', perform
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_58e4
		ret

code_58e4:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2e47	; "dWhite"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2e4e	; "Bottle of White Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$64		; 100, 'd', moveDone
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5976
		ret

code_5976:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2e62	; "dOrangeMedium"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2e70	; "Bottle of Medium Orange Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$59		; 89, 'Y', printLang
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5a08
		ret

code_5a08:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2e8c	; "dLightOrange"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2e99	; "Bottle of Light Orange Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$5a		; 90, 'Z', size
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5a9a
		ret

code_5a9a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2eb4	; "dFlesh"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2ebb	; "Bottle of Flesh Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$6a		; 106, 'j', scaleSignal
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5b2c
		ret

code_5b2c:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2ecf	; "dLightFlesh"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2edb	; "Bottle of Light Flesh Dye"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$6b		; 107, 'k', vanishingX
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$c0		; 192, ticks
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5bbe
		ret

code_5bbe:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$631		; 1585, pHairDye
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2ef5	; "Statue"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2ef5	; "Statue"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$d5ac		; -10836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5c4d
		ret

code_5c4d:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2efc	; "ElphamesScales"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f0b	; "Elphame's Scales"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$dfa2		; -8286
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5cc7
		ret

code_5cc7:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f1c	; "Gem"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f1c	; "Gem"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5d43
		ret

code_5d43:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f20	; "Crystal"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f20	; "Crystal"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$29		; 41, ')', state
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5dbe
		ret

code_5dbe:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f28	; "RubyChip"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f31	; "Ruby Chip"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5e39
		ret

code_5e39:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f3b	; "Aquamarine"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f3b	; "Aquamarine"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$4e		; 78, 'N', width
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5eb4
		ret

code_5eb4:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f46	; "Turquoise"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f46	; "Turquoise"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5f2f
		ret

code_5f2f:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f50	; "Topaz"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f50	; "Topaz"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$40		; 64, '@', yStep
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_5faa
		ret

code_5faa:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f56	; "Emmerald"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f56	; "Emmerald"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$53		; 83, 'S', restore
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6025
		ret

code_6025:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f5f	; "Emerald"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f5f	; "Emerald"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$53		; 83, 'S', restore
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_60a0
		ret

code_60a0:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f67	; "Ruby"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f67	; "Ruby"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_611b
		ret

code_611b:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f6c	; "Jet"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f6c	; "Jet"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$62		; 98, 'b', vol
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6196
		ret

code_6196:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f70	; "Diamond"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f70	; "Diamond"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$29		; 41, ')', state
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6211
		ret

code_6211:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f78	; "TempleTrophy"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f85	; "Temple Trophy"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$dde0		; -8736
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_628c
		ret

code_628c:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$2710		; 10000
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2f93	; "MistGem"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f9b	; "Mist Talisman"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$28		; 40, '(', style
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6309
		ret

code_6309:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2fa9	; "MistGemI"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2fb2	; "Talisman of Hope"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$49		; 73, 'I', replay
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6384
		ret

code_6384:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2fc3	; "MistGemII"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2fcd	; "Talisman of Courage"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$4e		; 78, 'N', width
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_63ff
		ret

code_63ff:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2fe1	; "MistGemIII"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2fec	; "Talisman of Life"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$64		; 100, 'd', moveDone
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_647a
		ret

code_647a:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_2ffd	; "MistGemIV"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3007	; "Talisman of Luck"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$54		; 84, 'T', title
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_64f5
		ret

code_64f5:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3018	; "MistGemV"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3021	; "Talisman of Happiness"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$4f		; 79, 'O', pragmaFail
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6570
		ret

code_6570:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3037	; "MistGemVI"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3041	; "Talisman of Faith"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$3f		; 63, '?', xStep
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_65eb
		ret

code_65eb:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3053	; "MistGemVII"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_305e	; "Talisman of Honor"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$37		; 55, '7', dx
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6666
		ret

code_6666:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3070	; "MistGemVIII"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_307c	; "Talisman of Love"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$3b		; 59, ';', b_i2
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_66e1
		ret

code_66e1:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_308d	; "MistGemIX"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3097	; "Talisman of Immortality"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a2		; -14686
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$38		; 56, '8', dy
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_675c
		ret

code_675c:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_30af	; "LargeAmethyst"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_30bd	; "Amethyst"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a3		; -14685
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_67d7
		ret

code_67d7:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_30c6	; "FlawlessAmethyst"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_30d7	; "Flawless Amethyst"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a3		; -14685
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6852
		ret

code_6852:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_30e9	; "LargeDiamond"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f70	; "Diamond"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a4		; -14684
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_68cd
		ret

code_68cd:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_30f6	; "FlawlessDiamond"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3106	; "Flawless Diamond"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a4		; -14684
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6948
		ret

code_6948:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3117	; "LargeEmerald"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f5f	; "Emerald"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a5		; -14683
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_69c3
		ret

code_69c3:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3124	; "FlawlessEmerald"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3134	; "Flawless Emerald"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6a5		; -14683
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6a3e
		ret

code_6a3e:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3145	; "LargeJet"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f6c	; "Jet"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6aa		; -14678
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6ab9
		ret

code_6ab9:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_314e	; "FlawlessJet"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_315a	; "Flawless Jet"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6aa		; -14678
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6b34
		ret

code_6b34:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3167	; "LargeRuby"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f67	; "Ruby"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6ab		; -14677
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6baf
		ret

code_6baf:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3171	; "FlawlessRuby"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_317e	; "Flawless Ruby"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6ab		; -14677
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6c2a
		ret

code_6c2a:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_318c	; "LargeSapphire"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_319a	; "Sapphire"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6ac		; -14676
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6ca5
		ret

code_6ca5:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_31a3	; "FlawlessSapphire"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_31b4	; "Flawless Sapphire"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6ac		; -14676
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6d20
		ret

code_6d20:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_31c6	; "LargeTopaz"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_2f50	; "Topaz"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6ad		; -14675
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6d9b
		ret

code_6d9b:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_31d1	; "FlawlessTopaz"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_31df	; "Flawless Topaz"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c6ad		; -14675
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$36		; 54, '6', client
		pushi	$330		; 816, pColor
		push1
		pushi	$36		; 54, '6', client
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6e16
		ret

code_6e16:	pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_31ee	; "StrongBox"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_31f8	; "Strong Box"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c350		; -15536
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$4012		; 16402
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6e91
		ret

code_6e91:	pushi	$46c		; 1132, pWeightCap
		push1
		pushi	$30d4		; 12500
		pushi	$46d		; 1133, pBulkCap
		push1
		pushi	$1388		; 5000
		pushi	$387		; 903, addBase
		push1
		class	BContainer
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BOpenable
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BPassword
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3203	; "Door"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3203	; "Door"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$ea60		; -5536
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$410		; 1040, pInvisibleClut
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6f28
		ret

code_6f28:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BEntry
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BOpenable
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3208	; "PWDoor"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3203	; "Door"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$ea60		; -5536
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$4410		; 17424
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_6fa2
		ret

code_6fa2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BEntry
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BOpenable
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BPassword
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_320f	; "PlankDoor"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3219	; "Plank Door"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$ea60		; -5536
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$410		; 1040, pInvisibleClut
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7028
		ret

code_7028:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BEntry
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BOpenable
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3224	; "SimpleDoor"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3203	; "Door"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$eac4		; -5436
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$410		; 1040, pInvisibleClut
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_70a2
		ret

code_70a2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BEntry
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BOpenable
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_322f	; "Doorway"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3203	; "Door"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$eb28		; -5336
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$400		; 1024, pEndurance
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_711c
		ret

code_711c:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BEntry
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3237	; "RuinDoorA"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3203	; "Door"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$ea92		; -5486
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$410		; 1040, pInvisibleClut
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_718a
		ret

code_718a:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BEntry
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BOpenable
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3241	; "RuinDoorB"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3203	; "Door"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$eaf6		; -5386
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$410		; 1040, pInvisibleClut
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7204
		ret

code_7204:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BEntry
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BOpenable
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_324b	; "Chair"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_324b	; "Chair"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$ec54		; -5036
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push0
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$41		; 65, 'A', moveSpeed
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_727c
		ret

code_727c:	pushi	$387		; 903, addBase
		push1
		class	BSit
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3251	; "Stool"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3251	; "Stool"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$f456		; -2986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push0
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$41		; 65, 'A', moveSpeed
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_72e8
		ret

code_72e8:	pushi	$387		; 903, addBase
		push1
		class	BSit
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3257	; "Bed"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3257	; "Bed"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$f104		; -3836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push0
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7354
		ret

code_7354:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_325b	; "FirePlace"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_3265	; "Fireplace"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$eb8c		; -5236
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1e		; 30, brRight
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$20		; 32, ' ', name
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_73b5
		ret

code_73b5:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4fc		; 1276, pCycleSpeed
		push1
		pushi	$6		; maxScale
		pushi	$4fb		; 1275, pCycleType
		push1
		push0
		pushi	$45		; 69, 'E', doit
		push0
		pushi	$387		; 903, addBase
		push1
		class	BCycle
		push
		lap	param[$1]
		send	$6
		bnot
		send	$10
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7433
		ret

code_7433:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$ff		; 255, asInteger
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3274	; "wStick"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_327b	; "Polished Stick"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_74d5
		ret

code_74d5:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$ff		; 255, asInteger
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_328a	; "wBerserk"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3293	; "Wand of Berserk"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7577
		ret

code_7577:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$3a		; 58, ':', b_i1
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_32a3	; "wFireballs"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_32ae	; "Wand of Fireballs"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7619
		ret

code_7619:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$2b		; 43, '+', type
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_32c0	; "wFreezingWind"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_32ce	; "Wand of Freezing Wind"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_76bb
		ret

code_76bb:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$27		; 39, ''', mode
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_32e4	; "wLightning"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_32ef	; "Wand of Lightning"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_775d
		ret

code_775d:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$2c		; 44, ',', window
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3301	; "wNakedness"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_330c	; "Wand of Nakedness"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_77ff
		ret

code_77ff:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$87		; 135, left
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_331e	; "wPoisonBolts"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_332b	; "Wand of Poison Bolts"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_78a2
		ret

code_78a2:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$6c		; 108, 'l', vanishingY
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3340	; "wRust"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3346	; "Wand of Rust"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7944
		ret

code_7944:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$12		; 18, nsLeft
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3353	; "wStoning"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_335c	; "Wand of Stoning"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_79e6
		ret

code_79e6:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$2a		; 42, '*', font
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_336c	; "wUgly"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_326f	; "Wand"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3372	; "Wand of Ugly"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c9f4		; -13836
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push1
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$48		; 72, 'H', modifiers
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7a88
		ret

code_7a88:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$5		; scaleY
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		pushi	$500		; 1280, pVerb
		push1
		push0
		pushi	$454		; 1108, pSpell
		push1
		pushi	$88		; 136, right
		pushi	$501		; 1281, pTheurgism
		push1
		push1
		pushi	$387		; 903, addBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		send	$12
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_337f	; "MagicalArtifact"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_338f	; "Magical Artifact"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		push0
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push0
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7b20
		ret

code_7b20:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_33a0	; "MagicWand"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33aa	; "Magical Wand"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		push0
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		push0
		pushi	$330		; 816, pColor
		push1
		push0
		pushi	$415		; 1045, pBaseBitsLo
		push1
		push0
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$36
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7b7e
		ret

code_7b7e:	pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_178e	; ""
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7bea
		ret

code_7bea:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_33be	; "pWater"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_33c5	; "Potion of Purified Water"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$62		; 98, 'b', vol
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7c84
		ret

code_7c84:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_33de	; "pSwampWater"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_33ea	; "Bottle of Swamp Water"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$4f		; 79, 'O', pragmaFail
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7d1e
		ret

code_7d1e:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3400	; "pClumsiness"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_340c	; "Potion of Clumsiness"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7db8
		ret

code_7db8:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3421	; "pCurePoison"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_342d	; "Potion of Cure Poison"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7e52
		ret

code_7e52:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3443	; "pDexterity"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_344e	; "Potion of Dexterity"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7eec
		ret

code_7eec:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3462	; "pGreaterHealth"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3471	; "Potion of Greater Health"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_7f86
		ret

code_7f86:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_348a	; "pHealth"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3492	; "Potion of Health"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8020
		ret

code_8020:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_34a3	; "pInvisibility"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_34b1	; "Potion of Invisibility"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_80ba
		ret

code_80ba:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_34c8	; "pPain"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_34ce	; "Potion of Pain"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8154
		ret

code_8154:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_34dd	; "pPoison"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_34e5	; "Potion of Poison"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_81ee
		ret

code_81ee:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_34f6	; "pRegeneration"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3504	; "Potion of Regeneration"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8288
		ret

code_8288:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_351b	; "pSeeInvisibility"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_352c	; "Potion of See Invisible"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8322
		ret

code_8322:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3544	; "pStrength"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_354e	; "Potion of Strength"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_83bc
		ret

code_83bc:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3561	; "pWeakness"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_356b	; "Potion of Weakness"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8456
		ret

code_8456:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_357e	; "pAcidShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_358a	; "Potion of Acid Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_84f0
		ret

code_84f0:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_35a0	; "pColdShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_35ac	; "Potion of Cold Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_858a
		ret

code_858a:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_35c2	; "pPoisonShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_35d0	; "Potion of Poison Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8624
		ret

code_8624:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_35e8	; "pLightningShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_35f9	; "Potion of Lightning Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_86be
		ret

code_86be:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3614	; "pFireShield"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3620	; "Potion of Fire Shield"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8758
		ret

code_8758:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3636	; "pAcidCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3641	; "Potion of Acid Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_87f2
		ret

code_87f2:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3656	; "pColdCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3661	; "Potion of Cold Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_888c
		ret

code_888c:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_3676	; "pPoisonCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3683	; "Potion of Poison Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8926
		ret

code_8926:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_369a	; "pLightningCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_36aa	; "Potion of Lightning Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_89c0
		ret

code_89c0:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_36c4	; "pFireCurse"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_36cf	; "Potion of Fire Curse"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8a5a
		ret

code_8a5a:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_36e4	; "pInvulnerability"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_36f5	; "Potion of Invulnerability"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8af4
		ret

code_8af4:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

::doit:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_370f	; "pShift"
		push
		pushi	$315		; 789, pName
		push1
		lofsa	string_33b7	; "Potion"
		push
		pushi	$35e		; 862, pIDName
		push1
		lofsa	string_3716	; "Potion of Shifting"
		push
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c95e		; -13986
		pushi	$3ec		; 1004, pAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$44		; 68, 'D', mover
		pushi	$330		; 816, pColor
		push1
		pushi	$ff		; 255, asInteger
		pushi	$415		; 1045, pBaseBitsLo
		push1
		pushi	$2001		; 8193
		pushi	$416		; 1046, pBaseBitsHi
		push1
		pushi	$40		; 64, '@', yStep
		lap	param[$1]
		send	$3c
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		lag	global[$f3]
		bnt	code_8b8e
		ret

code_8b8e:	pushi	$448		; 1096, pState
		push1
		push0
		pushi	$387		; 903, addBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		send	$6
		bnot
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4c1		; 1217, pBulk
		push1
		push0
		pushi	$4c2		; 1218, pWeight
		push1
		pushi	$8		; fixPriority
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		lap	param[$1]
		send	$6
		bnot
		send	$c
		bnot
		ret

StockObjInitter2::doit:
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lofsa	
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		ret

