MessagerDialog::init:
		link	$3
		pushi	$94		; 148, init
		push0
		super	FancyDialog, $4
		bnot
		lap	param[$1]
		aTop	pMessager
		pushi	$17d		; 381, addItem
		pushi	$5		; scaleY
		class	TextItem
		push
		pushi	$23		; 35, '#', text
		lsp	param[$2]
		pushi	$25		; 37, '%', fore
		dup
		push0
		pToa	plane
		send	$4
		bnot
		push
		self	$e
		bnot
		sat	temp[$0]
		pushi	$249		; 585, posnItem
		pushi	$3		; z
		push
		pushi	$fd		; 253, strip
		pToa	margin
		add
		push
		pushi	$fd		; 253, strip
		pToa	margin
		add
		push
		pushi	$1be		; 446, setSize
		push0
		self	$e
		bnot
		pushi	$17d		; 381, addItem
		pushi	$5		; scaleY
		lsg	global[$9]
		pushi	$23		; 35, '#', text
		lofsa	string_0076	; "Okay"
		push
		pushi	$25		; 37, '%', fore
		lsg	global[$61]
		self	$e
		bnot
		sat	temp[$2]
		pushi	$249		; 585, posnItem
		pushi	$3		; z
		push
		pushi	$fd		; 253, strip
		pToa	margin
		add
		push
		pushi	$8a		; 138, bottom
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		ldi	$5		; scaleY
		add
		push
		pushi	$1be		; 446, setSize
		push0
		pushi	$e3		; 227, expand
		push2
		pTos	margin
		pTos	margin
		self	$16
		bnot
		lap	param[$3]
		bnt	code_0148
		lap	param[$4]
		bnt	code_0148
		pushi	$dc		; 220, posn
		push2
		lsp	param[$3]
		lsp	param[$4]
		pToa	plane
		send	$8
		bnot
		jmp	code_0159

code_0148:	pushi	$de		; 222, centerIn
		push1
		push0
		push0
		lag	global[$3]
		send	$4
		bnot
		push
		pToa	plane
		send	$6
		bnot
code_0159:	pushi	$248		; 584, open
		push0
		self	$4
		bnot
		ret

MessagerDialog::handleEvent:
		pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		bnt	code_0170
		ldi	$0
		ret

		jmp	code_01cf

code_0170:	pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		bnt	code_0180
		ldi	$0
		ret

		jmp	code_01cf

code_0180:	pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		not
		bnt	code_019d
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$0
		ret

		jmp	code_01cf

code_019d:	pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$3		; z
		and
		bnt	code_01c3
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$282		; 642, killed
		push1
		push1
		pToa	pMessager
		send	$6
		bnot
		ldi	$1
		ret

		jmp	code_01cf

code_01c3:	pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$1
		ret

code_01cf:	ret

MessagerDialog::process:
		link	$1
		pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_01e6
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_01e6:	lat	temp[$0]
		ret

MessagerDialog::dispose:
		pushi	$c7		; 199, cue
		push0
		pToa	pMessager
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		super	FancyDialog, $4
		bnot
		ret

Messager::getSeqSize:
		link	$1
		ldi	$0
		sat	temp[$0]
code_0201:	pushi	$6		; maxScale
		push0
		lsp	param[$4]
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		+at	temp[$0]
		push
		callk	kernel_72, $c
		bnot
		bnt	code_0217
		jmp	code_0201

code_0217:	-at	temp[$0]
		ret

Messager::dispose:
		ldi	$0
		aTop	pLastSequence
		pToa	caller
		bnt	code_0253
		pushi	$9f		; 159, add
		push1
		pushi	$cb		; 203, cuee
		push1
		push
		pushi	$cc		; 204, cuer
		push1
		pushSelf
		pushi	$c2		; 194, register
		push1
		pTos	killed
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		class	Cue
		send	$4
		bnot
		send	$16
		bnot
		push
		pushi	$ca		; 202, pCuees
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$6
		bnot
code_0253:	pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		ret

Messager::cue:
		lap	param[$0]
		bnt	code_0268
		lap	param[$1]
		bnt	code_0268
		ldi	$1
		aTop	killed
code_0268:	pToa	oneOnly
		bt	code_026e
		pToa	killed
code_026e:	bnt	code_0279
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_0280

code_0279:	pushi	$288		; 648, nextMsg
		push0
		self	$4
		bnot
code_0280:	ret

Messager::say:
		link	$6
		ldi	$0
		sat	temp[$5]
		sat	temp[$4]
		sat	temp[$3]
		aTop	caller
		aTop	pCurSequence
		sat	temp[$2]
		sat	temp[$1]
		sat	temp[$0]
		ldi	$0
		aTop	killed
		aTop	oneOnly
		lapi	param[$1]
		sat	temp[$0]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_02ac
		ldi	$1
		lapi	param[$1]
		sat	temp[$1]
code_02ac:	lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_02b9
		ldi	$2
		lapi	param[$1]
		sat	temp[$2]
code_02b9:	lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_02d2
		ldi	$3		; z
		lapi	param[$1]
		bnt	code_02d2
		ldi	$1
		aTop	oneOnly
		ldi	$3		; z
		lapi	param[$1]
		aTop	pCurSequence
		jmp	code_02d6

code_02d2:	ldi	$1
		aTop	pCurSequence
code_02d6:	lsp	param[$0]
		ldi	$4		; scaleX
		gt?
		bnt	code_02e3
		ldi	$4		; scaleX
		lapi	param[$1]
		aTop	caller
code_02e3:	lsp	param[$0]
		ldi	$5		; scaleY
		gt?
		bnt	code_02f2
		ldi	$5		; scaleY
		lapi	param[$1]
		sat	temp[$3]
		jmp	code_02f6

code_02f2:	lag	global[$34]
		sat	temp[$3]
code_02f6:	lsp	param[$0]
		ldi	$6		; maxScale
		gt?
		bnt	code_0326
		ldi	$1
		aTop	oneOnly
		lsp	param[$0]
		ldi	$7		; priority
		gt?
		bnt	code_030c
		ldi	$0
		aTop	oneOnly
code_030c:	push2
		push1
		pushi	$419		; 1049, getSeqSize
		pushi	$4		; scaleX
		lst	temp[$0]
		lst	temp[$1]
		lst	temp[$2]
		lst	temp[$3]
		self	$c
		bnot
		push
		callk	kernel_60, $4
		bnot
		aTop	pCurSequence
code_0326:	pushi	$6		; maxScale
		push0
		lst	temp[$3]
		lst	temp[$0]
		lst	temp[$1]
		lst	temp[$2]
		pTos	pCurSequence
		callk	kernel_72, $c
		bnot
		not
		bnt	code_0366
		pushi	$6		; maxScale
		lofsa	string_008a	; "<Messager>\n"
		push
		lst	temp[$3]
		lst	temp[$0]
		lst	temp[$1]
		lst	temp[$2]
		pTos	pCurSequence
		calle	export60029_1, $c
		bnot
		ldi	$ea74		; -5516
		sat	temp[$3]
		ldi	$c		; 12, inBottom
		sat	temp[$0]
		ldi	$0
		sat	temp[$2]
		sat	temp[$1]
		ldi	$1
		aTop	pCurSequence
		jmp	code_0379

code_0366:	pushi	$288		; 648, nextMsg
		pushi	$5		; scaleY
		lst	temp[$3]
		lst	temp[$0]
		lst	temp[$1]
		lst	temp[$2]
		pTos	pCurSequence
		self	$e
		bnot
code_0379:	ret

Messager::sayRange:
		link	$4
		ldi	$0
		sat	temp[$3]
		aTop	caller
		aTop	pCurSequence
		sat	temp[$2]
		sat	temp[$1]
		sat	temp[$0]
		ldi	$0
		aTop	killed
		aTop	oneOnly
		lapi	param[$1]
		sat	temp[$0]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_03a1
		ldi	$1
		lapi	param[$1]
		sat	temp[$1]
code_03a1:	lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_03ae
		ldi	$2
		lapi	param[$1]
		sat	temp[$2]
code_03ae:	ldi	$1
		aTop	oneOnly
		lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_03c7
		ldi	$3		; z
		lapi	param[$1]
		bnt	code_03c7
		ldi	$3		; z
		lapi	param[$1]
		aTop	pCurSequence
		jmp	code_03cb

code_03c7:	ldi	$1
		aTop	pCurSequence
code_03cb:	lsp	param[$0]
		ldi	$4		; scaleX
		gt?
		bnt	code_03e4
		ldi	$4		; scaleX
		lapi	param[$1]
		bnt	code_03e4
		ldi	$0
		aTop	oneOnly
		ldi	$4		; scaleX
		lapi	param[$1]
		aTop	pLastSequence
		jmp	code_03e8

code_03e4:	pToa	pCurSequence
		aTop	pLastSequence
code_03e8:	lsp	param[$0]
		ldi	$5		; scaleY
		gt?
		bnt	code_03f5
		ldi	$5		; scaleY
		lapi	param[$1]
		aTop	caller
code_03f5:	lsp	param[$0]
		ldi	$6		; maxScale
		gt?
		bnt	code_0404
		ldi	$6		; maxScale
		lapi	param[$1]
		sat	temp[$3]
		jmp	code_0408

code_0404:	lag	global[$34]
		sat	temp[$3]
code_0408:	pushi	$6		; maxScale
		push0
		lst	temp[$3]
		lst	temp[$0]
		lst	temp[$1]
		lst	temp[$2]
		pTos	pCurSequence
		callk	kernel_72, $c
		bnot
		not
		bnt	code_0448
		pushi	$6		; maxScale
		lofsa	string_008a	; "<Messager>\n"
		push
		lst	temp[$3]
		lst	temp[$0]
		lst	temp[$1]
		lst	temp[$2]
		pTos	pCurSequence
		calle	export60029_1, $c
		bnot
		ldi	$ea74		; -5516
		sat	temp[$3]
		ldi	$c		; 12, inBottom
		sat	temp[$0]
		ldi	$0
		sat	temp[$2]
		sat	temp[$1]
		ldi	$1
		aTop	pCurSequence
		jmp	code_045b

code_0448:	pushi	$288		; 648, nextMsg
		pushi	$5		; scaleY
		lst	temp[$3]
		lst	temp[$0]
		lst	temp[$1]
		lst	temp[$2]
		pTos	pCurSequence
		self	$e
		bnot
code_045b:	ret

Messager::sayNext:
		ldi	$0
		aTop	killed
		aTop	oneOnly
		aTop	caller
		lap	param[$0]
		bnt	code_046c
		lap	param[$1]
		aTop	caller
code_046c:	pushi	$288		; 648, nextMsg
		push0
		self	$4
		bnot
		ret

Messager::sayFormat:
		link	$2
		lap	param[$6]
		aTop	caller
		ldi	$1
		aTop	oneOnly
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$0]
		pushi	$7		; priority
		push0
		lsp	param[$5]
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		lsp	param[$4]
		pushi	$71		; 113, 'q', data
		push0
		send	$4
		bnot
		push
		callk	kernel_72, $e
		bnot
		pushi	$f5		; 245, format
		push1
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		&rest	$7		; priority
		lat	temp[$0]
		send	$6
		bnot
		lap	param[$6]
		bnt	code_04d1
		pushi	$6		; maxScale
		lst	temp[$0]
		pushi	$91		; 145, bitPutIndex
		push2
		pushi	$93		; 147, pLine
		push
		pushi	$c7		; 199, cue
		calle	export60029_0, $c
		bnot
		jmp	code_04e0

code_04d1:	pushi	$3		; z
		lst	temp[$0]
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $6
		bnot
code_04e0:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

Messager::nextMsg:
		link	$5
		pushi	$d1		; 209, newWith
		push2
		pushi	$190		; 400, createPoly
		lofsa	string_00c8	; ""
		push
		class	Str
		send	$8
		bnot
		sat	temp[$1]
		lap	param[$0]
		bnt	code_0520
		pushi	$7		; priority
		push0
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		lsp	param[$4]
		lsp	param[$5]
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		callk	kernel_72, $e
		bnot
		sat	temp[$0]
		jmp	code_0531

code_0520:	push2
		push1
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		callk	kernel_72, $4
		bnot
		sat	temp[$0]
code_0531:	lat	temp[$0]
		bnt	code_055b
		pToa	pLastSequence
		not
		bt	code_0541
		pToa	pLastSequence
		bnt	code_055b
		pTos	pCurSequence
		le?
code_0541:	bnt	code_055b
		pushi	$94		; 148, init
		push2
		pushSelf
		lst	temp[$1]
		pushi	$8d		; 141, new
		push0
		class	MessagerDialog
		send	$4
		bnot
		sat	temp[$3]
		send	$8
		bnot
		jmp	code_056b

code_055b:	pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_056b:	ret

