export58000_0	= Teleport

Teleport::init:
		link	$6
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	StaticRoom, $4
		bnot
		ldi	$afd4		; -20524
		sat	temp[$3]
		ldi	$0
		sat	temp[$4]
		sat	temp[$5]
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_004e	; "teleport"
		push
		pushi	$8d		; 141, new
		push0
		class	File
		send	$4
		bnot
		sat	temp[$0]
		send	$6
		bnot
		pushi	$248		; 584, open
		push1
		push1
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_0105
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$1]
		pushi	$27a		; 634, readString
		push2
		push
		pushi	$a		; 10, inTop
		lat	temp[$0]
		send	$8
		bnot
		pushi	$4b		; 75, 'K', at
		push1
		push0
		lat	temp[$1]
		send	$6
		bnot
		sat	temp[$4]
		push1
		push
		calle	export60027_0, $2
		bnot
		push
		ldi	$4e		; 78, 'N', width
		eq?
		bt	code_007c
		lag	global[$69]
code_007c:	sat	temp[$5]
		bnt	code_008b
		pushi	$4b		; 75, 'K', at
		push2
		push0
		pushi	$20		; 32, ' ', name
		lat	temp[$1]
		send	$8
		bnot
code_008b:	lst	temp[$4]
		ldi	$3f		; 63, '?', xStep
		eq?
		bnt	code_00d3
		pushi	$4b		; 75, 'K', at
		push2
		push0
		push0
		lat	temp[$1]
		send	$8
		bnot
		pushi	$d		; 13, seenRect
		lofsa	string_0057	; "Teleport to which room:"
		push
		pushi	$87		; 135, left
		lsg	global[$59]
		lsg	global[$5d]
		pushi	$76		; 118, 'v', textLeft
		lst	temp[$1]
		pushi	$6		; maxScale
		pushi	$77		; 119, 'w', textTop
		lofsa	string_006f	; "OK"
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0072	; "Cancel"
		push
		push0
		calle	export60029_0, $1a
		bnot
		bnt	code_00fc
		pushi	$ff		; 255, asInteger
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$3]
		jmp	code_00fc

code_00d3:	lat	temp[$5]
		bnt	code_00ed
		lsg	global[$35]
		ldi	$ea33		; -5581
		eq?
		bnt	code_00e6
		ldi	$ea31		; -5583
		sat	temp[$3]
		jmp	code_00fc

code_00e6:	ldi	$309		; 777, pHairColor
		sat	temp[$3]
		jmp	code_00fc

code_00ed:	pushi	$ff		; 255, asInteger
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$2]
		bnt	code_00fc
		sat	temp[$3]
code_00fc:	pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
code_0105:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		lat	temp[$3]
		sag	global[$36]
		ret

