export000_0	= RoomZero

HandsOffCode::doit:
		link	$1
		pushi	$4b		; 75, 'K', at
		push1
		push0
		class	MovieCmdList
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_01b1
		push2
		lofsa	string_05ee	; "You seem to be locked up with an hourglass. The currently active MovieCmd is (%s)."
		push
		pushi	$20		; 32, ' ', name
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		callk	kernel_132, $4
		bnot
code_01b1:	ldi	$0
		sag	global[$e8]
		ret

RoomZero::init:
		link	$4
		push0
		calle	export60026_0, $0
		bnot
		push0
		callk	kernel_121, $0
		bnot
		sag	global[$40]
		class	gDialogList
		sag	global[$68]
		pushi	$8d		; 141, new
		push1
		pushi	$11		; 17, bitmap
		class	Str
		send	$6
		bnot
		sag	global[$cf]
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_064e	; "login.lst"
		push
		pushi	$8d		; 141, new
		push0
		class	File
		send	$4
		bnot
		sat	temp[$3]
		send	$6
		bnot
		pushi	$248		; 584, open
		push1
		push1
		lat	temp[$3]
		send	$6
		bnot
		bnt	code_0207
		pushi	$27a		; 634, readString
		push2
		lsg	global[$cf]
		pushi	$11		; 17, bitmap
		lat	temp[$3]
		send	$8
		bnot
code_0207:	pushi	$95		; 149, dispose
		push0
		lat	temp[$3]
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sag	global[$d0]
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sag	global[$d7]
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sag	global[$de]
		class	RoomMgr
		sag	global[$30]
		pushi	$94		; 148, init
		push0
		class	LockMgr
		send	$4
		bnot
		pushi	$94		; 148, init
		push0
		class	ActionQMgr
		send	$4
		bnot
		pushi	$26		; 38, '&', back
		push1
		lsg	global[$54]
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$5c]
		ldi	$2
		add
		push
		lofsa	RealmWindow
		sag	global[$8]
		send	$c
		bnot
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$5c]
		ldi	$2
		add
		push
		lofsa	FancyWindow
		sag	global[$4e]
		send	$6
		bnot
		pushi	$26		; 38, '&', back
		push1
		pushi	$72		; 114, 'r', skip
		push0
		class	Button
		send	$4
		bnot
		push
		pushi	$1e7		; 487, normalColor
		push1
		pushi	$72		; 114, 'r', skip
		push0
		class	Button
		send	$4
		bnot
		push
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$5c]
		ldi	$1
		add
		push
		pushi	$1e8		; 488, selectColor
		push1
		lsg	global[$5c]
		ldi	$2
		add
		push
		pushi	$1e9		; 489, chosenColor
		push1
		lsg	global[$5c]
		ldi	$1
		add
		push
		pushi	$1ea		; 490, dimColor
		push1
		lsg	global[$5c]
		lofsa	RealmButton
		sag	global[$9]
		send	$24
		bnot
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$62]
		class	TitleItem
		send	$6
		bnot
		class	FancyDialog
		sag	global[$7]
		ldi	$270f		; 9999
		sag	global[$3b]
		sag	global[$3a]
		ldi	$1
		sag	global[$49]
		class	Messager
		sag	global[$14]
		ldi	$0
		sag	global[$69]
		class	NetUser
		sag	global[$e]
		pushi	$24e		; 590, handsOff
		push0
		self	$4
		bnot
		ldi	$270f		; 9999
		sag	global[$b5]
		ldi	$f		; 15, loop
		sag	global[$b7]
		lag	global[$55]
		sag	global[$b6]
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$2]
		push2
		lofsa	string_0658	; "soundVolume"
		push
		lst	temp[$2]
		callk	kernel_125, $4
		bnot
		bnt	code_030f
		pushi	$ff		; 255, asInteger
		push0
		lat	temp[$2]
		send	$4
		bnot
		sag	global[$b7]
code_030f:	pushi	$274		; 628, masterVolume
		push1
		lsg	global[$b7]
		lag	global[$2]
		send	$6
		bnot
		push1
		push0
		callk	kernel_60, $2
		bnot
		push2
		lofsa	string_0664	; "logfile"
		push
		lst	temp[$2]
		callk	kernel_125, $4
		bnot
		bnt	code_0367
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$2]
		send	$4
		bnot
		bnt	code_034e
		pushi	$20		; 32, ' ', name
		push1
		pushi	$d0		; 208, with
		push1
		lst	temp[$2]
		class	Str
		send	$6
		bnot
		push
		lofsa	Logfile
		send	$6
		bnot
		jmp	code_0371

code_034e:	pushi	$20		; 32, ' ', name
		push1
		pushi	$d0		; 208, with
		push1
		lofsa	string_0664	; "logfile"
		push
		class	Str
		send	$6
		bnot
		push
		lofsa	Logfile
		send	$6
		bnot
		jmp	code_0371

code_0367:	pushi	$20		; 32, ' ', name
		push1
		push0
		lofsa	Logfile
		send	$6
		bnot
code_0371:	pushi	$94		; 148, init
		push0
		super	Game, $4
		bnot
		pushi	$45		; 69, 'E', doit
		push0
		push2
		pushi	$9cac		; -25428
		push0
		callk	kernel_2, $4
		bnot
		send	$4
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$3ae		; 942, setColor
		push1
		pushi	$6a		; 106, 'j', scaleSignal
		pushi	$1a9		; 425, setStep
		push2
		pushi	$6		; maxScale
		pushi	$4		; scaleX
		lofsa	NEgo
		send	$12
		bnot
		lofsa	NEgo
		sag	global[$1]
		pushi	$94		; 148, init
		push0
		class	WDragger
		send	$4
		bnot
		pushi	$94		; 148, init
		push0
		class	GameServer
		send	$4
		bnot
		sag	global[$6a]
		sag	global[$2f]
		pushi	$276		; 630, handsOn
		push0
		self	$4
		bnot
		pushi	$94		; 148, init
		push0
		class	RealmIconBar
		send	$4
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	NetMsgProcessor
		send	$4
		bnot
		send	$4
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$272		; 626, newRoom
		push1
		pushi	$e290		; -7536
		lag	global[$30]
		send	$a
		bnot
		pushi	$94		; 148, init
		push0
		lofsa	GlobalKeyHandler
		send	$4
		bnot
		ret

RoomZero::dispose:
		lag	global[$d7]
		bnt	code_0407
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sag	global[$d7]
code_0407:	lag	global[$de]
		bnt	code_0416
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sag	global[$de]
code_0416:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Game, $4
		bnot
		ret

RoomZero::controlOff:
		pushi	$359		; 857, stopDragging
		push0
		class	WDragger
		send	$4
		bnot
		push1
		pushi	$21		; 33, '!', key
		callk	kernel_118, $2
		bnot
		pushi	$277		; 631, controlOff
		push0
		&rest	$1
		super	Game, $4
		bnot
		ret

RoomZero::handsOff:
		pushi	$359		; 857, stopDragging
		push0
		class	WDragger
		send	$4
		bnot
		push1
		pushi	$21		; 33, '!', key
		callk	kernel_118, $2
		bnot
		pushi	$24e		; 590, handsOff
		push0
		&rest	$1
		super	Game, $4
		bnot
		ret

RoomZero::handsOn:
		pushi	$276		; 630, handsOn
		push0
		&rest	$1
		super	Game, $4
		bnot
		pToa	handsLevel
		not
		bnt	code_0479
		lag	global[$e8]
		bnt	code_0479
		pushi	$36		; 54, '6', client
		push1
		push0
		pushi	$95		; 149, dispose
		push0
		send	$a
		bnot
		ldi	$0
		sag	global[$e8]
code_0479:	ret

RoomZero::controlOn:
		pushi	$278		; 632, controlOn
		push0
		&rest	$1
		super	Game, $4
		bnot
		pToa	handsLevel
		not
		bnt	code_049c
		lag	global[$e8]
		bnt	code_049c
		pushi	$36		; 54, '6', client
		push1
		push0
		pushi	$95		; 149, dispose
		push0
		send	$a
		bnot
		ldi	$0
		sag	global[$e8]
code_049c:	ret

RoomZero::doit:
		link	$4
		pushi	$45		; 69, 'E', doit
		push0
		&rest	$1
		super	Game, $4
		bnot
code_04a8:	pushi	$5a		; 90, 'Z', size
		push0
		class	DeadObjects
		send	$4
		bnot
		bnt	code_04dd
		pushi	$4b		; 75, 'K', at
		push1
		push0
		class	DeadObjects
		send	$6
		bnot
		sat	temp[$2]
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_04d1
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
code_04d1:	pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$2]
		class	DeadObjects
		send	$6
		bnot
		jmp	code_04a8

code_04dd:	lag	global[$1]
		bnt	code_0580
		pushi	$5a		; 90, 'Z', size
		push0
		class	gApproveGiveList
		send	$4
		bnot
		bnt	code_0580
		pushi	$4b		; 75, 'K', at
		push1
		push0
		class	gApproveGiveList
		send	$6
		bnot
		sat	temp[$2]
		bnt	code_0580
		push1
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0580
		pushi	$97		; 151, isKindOf
		push1
		class	NetRoom
		push
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0580
		pushi	$c3		; 195, script
		push0
		lag	global[$1]
		send	$4
		bnot
		not
		bnt	code_0580
		pushi	$3f8		; 1016, pMovieCmd
		push0
		lag	global[$1]
		send	$4
		bnot
		not
		bnt	code_0580
		pushi	$271		; 625, handsLevel
		push0
		lag	global[$2]
		send	$4
		bnot
		not
		bnt	code_0580
		pushi	$5a		; 90, 'Z', size
		push0
		class	gDialogList
		send	$4
		bnot
		not
		bnt	code_0580
		pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$2]
		class	gApproveGiveList
		send	$6
		bnot
		pushi	$45		; 69, 'E', doit
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		ldi	$0
		ne?
		bnt	code_0580
		pushi	$9f		; 159, add
		push1
		pushi	$45		; 69, 'E', doit
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		class	gDialogList
		send	$6
		bnot
code_0580:	lag	global[$1]
		bnt	code_05fc
		pushi	$5a		; 90, 'Z', size
		push0
		class	gTeleportList
		send	$4
		bnot
		bnt	code_05fc
		pushi	$4b		; 75, 'K', at
		push1
		push0
		class	gTeleportList
		send	$6
		bnot
		sat	temp[$2]
		bnt	code_05fc
		push1
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_05fc
		pushi	$97		; 151, isKindOf
		push1
		class	NetRoom
		push
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_05fc
		pushi	$c3		; 195, script
		push0
		lag	global[$1]
		send	$4
		bnot
		not
		bnt	code_05fc
		pushi	$3f8		; 1016, pMovieCmd
		push0
		lag	global[$1]
		send	$4
		bnot
		not
		bnt	code_05fc
		pushi	$271		; 625, handsLevel
		push0
		lag	global[$2]
		send	$4
		bnot
		not
		bnt	code_05fc
		pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$2]
		class	gTeleportList
		send	$6
		bnot
		pushi	$45		; 69, 'E', doit
		push0
		lat	temp[$2]
		send	$4
		bnot
code_05fc:	pushi	$5a		; 90, 'Z', size
		push0
		class	ActiveMovieCmdList
		send	$4
		bnot
		sat	temp[$1]
		bnt	code_0650
		ldi	$0
		sat	temp[$0]
code_060d:	lst	temp[$0]
		lat	temp[$1]
		lt?
		bnt	code_0650
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		class	ActiveMovieCmdList
		send	$6
		bnot
		sat	temp[$3]
		pushi	$434		; 1076, pDone
		push0
		send	$4
		bnot
		bnt	code_0644
		pushi	$95		; 149, dispose
		push0
		lat	temp[$3]
		send	$4
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$3]
		class	ActiveMovieCmdList
		send	$6
		bnot
		-at	temp[$1]
		-at	temp[$0]
		jmp	code_064c

code_0644:	pushi	$45		; 69, 'E', doit
		push0
		lat	temp[$3]
		send	$4
		bnot
code_064c:	+at	temp[$0]
		jmp	code_060d

code_0650:	lag	global[$32]
		ret

RoomZero::handleEvent:
		link	$2
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$4		; scaleX
		eq?
		bnt	code_075b
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$1f00		; 7936
		eq?
		bnt	code_06bf
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$0]
		pushi	$8		; fixPriority
		lofsa	string_066c	; "Save Screen to?:"
		push
		pushi	$76		; 118, 'v', textLeft
		lst	temp[$0]
		pushi	$14		; 20, nsRight
		pushi	$8		; fixPriority
		pushi	$77		; 119, 'w', textTop
		lofsa	string_067d	; "Okay"
		push
		push1
		calle	export60029_0, $10
		bnot
		push1
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		callk	kernel_136, $2
		bnot
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_075a

code_06bf:	dup
		ldi	$2600		; 9728
		eq?
		bnt	code_075a
		pushi	$20		; 32, ' ', name
		push0
		lofsa	Logfile
		send	$4
		bnot
		bnt	code_075a
		pushi	$8d		; 141, new
		push1
		pushi	$fa		; 250, lower
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		pushi	$f5		; 245, format
		push2
		lofsa	string_0682	; "Enter text to append to logfile[%s]:"
		push
		pushi	$20		; 32, ' ', name
		push0
		lofsa	Logfile
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		pushi	$b		; 11, inRight
		push
		pushi	$7f		; 127, frameOut
		lst	temp[$1]
		pushi	$c8		; 200, handleEvent
		pushi	$4		; scaleX
		pushi	$77		; 119, 'w', textTop
		lofsa	string_06a7	; "OK"
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_06aa	; "Cancel"
		push
		push0
		calle	export60029_0, $16
		bnot
		bnt	code_0748
		pushi	$248		; 584, open
		push1
		push0
		lofsa	Logfile
		send	$6
		bnot
		pushi	$27b		; 635, writeString
		pushi	$3		; z
		lofsa	string_06b1	; "\r\n"
		push
		lst	temp[$1]
		lofsa	string_06b1	; "\r\n"
		push
		lofsa	Logfile
		send	$a
		bnot
		pushi	$253		; 595, close
		push0
		lofsa	Logfile
		send	$4
		bnot
code_0748:	pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_075a:	toss
code_075b:	toss
		ret

BorderedPlane::init:
		link	$6
		pushi	$94		; 148, init
		push0
		&rest	$3		; z
		super	Plane, $4
		bnot
		lap	param[$1]
		bnt	code_09ce
		lsp	param[$2]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_09ce
		pushi	$8d		; 141, new
		push0
		class	Cast
		send	$4
		bnot
		aTop	pCast
		pushi	$3		; z
		lsp	param[$2]
		push1
		push0
		callk	kernel_28, $6
		bnot
		sat	temp[$0]
		pushi	$3		; z
		lsp	param[$2]
		push0
		push0
		callk	kernel_29, $6
		bnot
		sat	temp[$1]
		pushi	$d3		; 211, copy
		push1
		lsp	param[$1]
		pushi	$e3		; 227, expand
		push2
		lst	temp[$0]
		pushi	$3		; z
		lsp	param[$2]
		pushi	$4		; scaleX
		push0
		callk	kernel_28, $6
		bnot
		sub
		push
		lst	temp[$1]
		pushi	$3		; z
		lsp	param[$2]
		pushi	$4		; scaleX
		push0
		callk	kernel_29, $6
		bnot
		sub
		push
		pushi	$1b8		; 440, addCast
		push1
		pTos	pCast
		pushi	$6d		; 109, 'm', picture
		push1
		pushi	$fe		; 254, strIndex
		pushi	$7		; priority
		push1
		pushi	$7		; priority
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		add
		push
		self	$20
		bnot
		push1
		pushSelf
		callk	kernel_42, $2
		bnot
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		sat	temp[$2]
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		sat	temp[$3]
		pushi	$3		; z
		lsp	param[$2]
		push0
		push0
		callk	kernel_28, $6
		bnot
		sat	temp[$0]
		pushi	$3		; z
		lsp	param[$2]
		push0
		push0
		callk	kernel_29, $6
		bnot
		sat	temp[$1]
		lst	temp[$2]
		pushi	$3		; z
		lsp	param[$2]
		push1
		push0
		callk	kernel_28, $6
		bnot
		sub
		push
		ldi	$1
		add
		sat	temp[$4]
		push
		ldi	$0
		lt?
		bnt	code_082b
		lat	temp[$0]
		sat	temp[$4]
code_082b:	lat	temp[$1]
		sat	temp[$5]
		pushi	$e		; 14, view
		push1
		lsp	param[$2]
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$4a		; 74, 'J', setPri
		push1
		pTos	priority
		ldi	$1
		add
		push
		pushi	$d		; 13, seenRect
		push1
		pushi	$d0		; 208, with
		pushi	$4		; scaleX
		push0
		push0
		lst	temp[$4]
		lst	temp[$5]
		class	Rect
		send	$c
		bnot
		push
		pushi	$94		; 148, init
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$1e
		bnot
		pushi	$3		; z
		lsp	param[$2]
		push1
		push0
		callk	kernel_28, $6
		bnot
		sat	temp[$0]
		pushi	$3		; z
		lsp	param[$2]
		push1
		push0
		callk	kernel_29, $6
		bnot
		sat	temp[$1]
		lat	temp[$0]
		sat	temp[$4]
		lst	temp[$3]
		pushi	$3		; z
		lsp	param[$2]
		push2
		push0
		callk	kernel_29, $6
		bnot
		sub
		push
		ldi	$1
		add
		sat	temp[$5]
		push
		ldi	$0
		lt?
		bnt	code_08a1
		lat	temp[$1]
		sat	temp[$5]
code_08a1:	pushi	$e		; 14, view
		push1
		lsp	param[$2]
		pushi	$f		; 15, loop
		push1
		push1
		push1
		push1
		lst	temp[$2]
		pushi	$4a		; 74, 'J', setPri
		push1
		pTos	priority
		ldi	$1
		add
		push
		pushi	$d		; 13, seenRect
		push1
		pushi	$d0		; 208, with
		pushi	$4		; scaleX
		push0
		push0
		lst	temp[$4]
		lst	temp[$5]
		class	Rect
		send	$c
		bnot
		push
		pushi	$94		; 148, init
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$24
		bnot
		pushi	$3		; z
		lsp	param[$2]
		push2
		push0
		callk	kernel_28, $6
		bnot
		sat	temp[$0]
		pushi	$3		; z
		lsp	param[$2]
		push2
		push0
		callk	kernel_29, $6
		bnot
		sat	temp[$1]
		lst	temp[$0]
		lat	temp[$2]
		sub
		push
		pushi	$3		; z
		lsp	param[$2]
		pushi	$3		; z
		push0
		callk	kernel_28, $6
		bnot
		add
		push
		ldi	$2
		sub
		sat	temp[$4]
		lat	temp[$1]
		sat	temp[$5]
		pushi	$e		; 14, view
		push1
		lsp	param[$2]
		pushi	$f		; 15, loop
		push1
		push2
		push1
		push1
		lst	temp[$2]
		push2
		push1
		lst	temp[$3]
		pushi	$4a		; 74, 'J', setPri
		push1
		pTos	priority
		ldi	$1
		add
		push
		pushi	$d		; 13, seenRect
		push1
		pushi	$d0		; 208, with
		pushi	$4		; scaleX
		lst	temp[$4]
		push0
		lst	temp[$0]
		lst	temp[$5]
		class	Rect
		send	$c
		bnot
		push
		pushi	$94		; 148, init
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$2a
		bnot
		pushi	$3		; z
		lsp	param[$2]
		pushi	$3		; z
		push0
		callk	kernel_28, $6
		bnot
		sat	temp[$0]
		pushi	$3		; z
		lsp	param[$2]
		pushi	$3		; z
		push0
		callk	kernel_29, $6
		bnot
		sat	temp[$1]
		lat	temp[$0]
		sat	temp[$4]
		lst	temp[$1]
		lat	temp[$3]
		sub
		push
		pushi	$3		; z
		lsp	param[$2]
		push0
		push0
		callk	kernel_29, $6
		bnot
		add
		push
		ldi	$2
		sub
		sat	temp[$5]
		pushi	$e		; 14, view
		push1
		lsp	param[$2]
		pushi	$f		; 15, loop
		push1
		pushi	$3		; z
		push2
		push1
		lst	temp[$3]
		pushi	$4a		; 74, 'J', setPri
		push1
		pTos	priority
		ldi	$1
		add
		push
		pushi	$d		; 13, seenRect
		push1
		pushi	$d0		; 208, with
		pushi	$4		; scaleX
		push0
		lst	temp[$5]
		lst	temp[$4]
		lst	temp[$1]
		class	Rect
		send	$c
		bnot
		push
		pushi	$94		; 148, init
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$24
		bnot
		push1
		pushSelf
		callk	kernel_42, $2
		bnot
code_09ce:	ret

FancyWindow::init:
		pToa	pInitted
		bnt	code_09d4
		ret

code_09d4:	ldi	$1
		aTop	pInitted
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Window, $4
		bnot
		pTos	pBorderView
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_09ff
		pushi	$94		; 148, init
		push2
		pushSelf
		pTos	pBorderView
		pushi	$8d		; 141, new
		push0
		class	BorderedPlane
		send	$4
		bnot
		aTop	pBorderPlane
		send	$8
		bnot
code_09ff:	pushi	$8d		; 141, new
		push0
		class	Cast
		send	$4
		bnot
		aTop	pCast
		pushi	$1b8		; 440, addCast
		push1
		pTos	pCast
		self	$6
		bnot
		pTos	back
		ldi	$ec		; 236, track
		eq?
		bnt	code_0a6d
		pushi	$9f		; 159, add
		push2
		pushi	$ec		; 236, track
		pushi	$1e		; 30, brRight
		class	Remaps
		send	$8
		bnot
		pushi	$11		; 17, bitmap
		push1
		pushi	$8		; fixPriority
		push0
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		push
		push0
		pTos	back
		pTos	resX
		pTos	resY
		push1
		callk	kernel_35, $10
		bnot
		push
		pushi	$8		; fixPriority
		push1
		push1
		pushi	$7		; priority
		push1
		push0
		pushi	$94		; 148, init
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$18
		bnot
		ldi	$fe		; 254, strIndex
		aTop	picture
		+ag	global[$c9]
		jmp	code_0a71

code_0a6d:	ldi	$ff		; 255, asInteger
		aTop	picture
code_0a71:	push1
		pushSelf
		callk	kernel_42, $2
		bnot
		ret

FancyWindow::hide:
		pushi	$69		; 105, 'i', hide
		push0
		super	Window, $4
		bnot
		pToa	pBorderPlane
		bnt	code_0a89
		pushi	$69		; 105, 'i', hide
		push0
		send	$4
		bnot
code_0a89:	ret

FancyWindow::show:
		pushi	$75		; 117, 'u', show
		push0
		super	Window, $4
		bnot
		pToa	pBorderPlane
		bnt	code_0a9b
		pushi	$75		; 117, 'u', show
		push0
		send	$4
		bnot
code_0a9b:	ret

FancyWindow::erase:
		pushi	$1ba		; 442, erase
		push0
		super	Window, $4
		bnot
		pToa	pBorderPlane
		bnt	code_0aaf
		pushi	$1ba		; 442, erase
		push0
		send	$4
		bnot
code_0aaf:	ret

FancyWindow::dispose:
		pToa	pBorderPlane
		bnt	code_0abf
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pBorderPlane
code_0abf:	pTos	back
		ldi	$ec		; 236, track
		eq?
		bnt	code_0ad7
		pToa	pCast
		bnt	code_0acd
		-ag	global[$c9]
code_0acd:	pushi	$58		; 88, 'X', delete
		push1
		pTos	back
		class	Remaps
		send	$6
		bnot
code_0ad7:	pushi	$95		; 149, dispose
		push0
		super	Window, $4
		bnot
		ret

FancyWindow::posnOnScreen:
		link	$1
		pTos	left
		ldi	$0
		lt?
		bnt	code_0af3
		pushi	$db		; 219, moveTo
		push2
		push0
		pTos	top
		self	$8
		bnot
code_0af3:	pTos	top
		ldi	$0
		lt?
		bnt	code_0b04
		pushi	$db		; 219, moveTo
		push2
		pTos	left
		push0
		self	$8
		bnot
code_0b04:	push0
		push0
		lag	global[$3]
		send	$4
		bnot
		sat	temp[$0]
		pTos	right
		pushi	$88		; 136, right
		push0
		send	$4
		bnot
		gt?
		bnt	code_0b2f
		pushi	$dd		; 221, moveBy
		push2
		pushi	$88		; 136, right
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pToa	right
		sub
		push
		push0
		self	$8
		bnot
code_0b2f:	pTos	bottom
		pushi	$8a		; 138, bottom
		push0
		lat	temp[$0]
		send	$4
		bnot
		gt?
		bnt	code_0b53
		pushi	$dd		; 221, moveBy
		push2
		push0
		pushi	$8a		; 138, bottom
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pToa	bottom
		sub
		push
		self	$8
		bnot
code_0b53:	ret

RealmButton::drawText:
		link	$3
		pToa	text
		bnt	code_0c16
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$0]
		pToa	textRect
		bnt	code_0b76
		pushi	$d3		; 211, copy
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_0b8b

code_0b76:	pushi	$d3		; 211, copy
		push1
		pushSelf
		lat	temp[$0]
		send	$6
		bnot
		pushi	$db		; 219, moveTo
		push2
		push0
		push0
		lat	temp[$0]
		send	$8
		bnot
code_0b8b:	pushi	$e		; 14, view
		pushi	$4		; scaleX
		pTos	bitmap
		push2
		pushi	$9		; inLeft
		pTos	text
		callk	kernel_91, $4
		bnot
		push
		pushi	$87		; 135, left
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$88		; 136, right
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$8a		; 138, bottom
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pTos	back
		pToa	skip
		eq?
		bnt	code_0bfb
		pTos	state
		ldi	$1
		and
		not
		bnt	code_0bd6
		pToa	dimColor
		jmp	code_0bfd

code_0bd6:	pTos	state
		ldi	$4		; scaleX
		and
		bnt	code_0be1
		pToa	chosenColor
		jmp	code_0bfd

code_0be1:	pTos	state
		ldi	$20		; 32, ' ', name
		and
		bnt	code_0bec
		pToa	selectColor
		jmp	code_0bfd

code_0bec:	pTos	state
		ldi	$8		; fixPriority
		and
		bnt	code_0bf7
		pToa	chosenColor
		jmp	code_0bfd

code_0bf7:	pToa	fore
		jmp	code_0bfd

code_0bfb:	pToa	fore
code_0bfd:	push
		pTos	skip
		pTos	skip
		pTos	font
		pTos	mode
		pushi	$ff		; 255, asInteger
		push0
		callk	kernel_35, $1c
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_0c16:	ret

GlobalKeyHandler::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Script, $4
		bnot
		pushi	$9f		; 159, add
		push1
		pushSelf
		lag	global[$27]
		send	$6
		bnot
		ret

GlobalKeyHandler::dispose:
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$27]
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Script, $4
		bnot
		ret

GlobalKeyHandler::handleEvent:
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		eq?
		bnt	code_0c8a
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$3c00		; 15360
		eq?
		bnt	code_0c89
		pushi	$274		; 628, masterVolume
		push0
		lag	global[$2]
		send	$4
		bnot
		bnt	code_0c75
		pushi	$274		; 628, masterVolume
		push1
		push0
		lag	global[$2]
		send	$6
		bnot
		jmp	code_0c80

code_0c75:	pushi	$274		; 628, masterVolume
		push1
		pushi	$f		; 15, loop
		lag	global[$2]
		send	$6
		bnot
code_0c80:	pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
code_0c89:	toss
code_0c8a:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

