Script::doit:
		link	$1
		pToa	script
		bnt	code_00d6
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_00d6:	pToa	cycles
		bnt	code_00e8
		dpToa	cycles
		not
		bnt	code_0139
		pushi	$c7		; 199, cue
		push0
		self	$4
		bnot
		jmp	code_0139

code_00e8:	pToa	seconds
		bnt	code_010b
		push1
		push1
		callk	kernel_121, $2
		bnot
		sat	temp[$0]
		pTos	lastSeconds
		ne?
		bnt	code_0139
		lat	temp[$0]
		aTop	lastSeconds
		dpToa	seconds
		not
		bnt	code_0139
		pushi	$c7		; 199, cue
		push0
		self	$4
		bnot
		jmp	code_0139

code_010b:	pToa	ticks
		bnt	code_0139
		push
		push1
		lsg	global[$40]
		pToa	lastTicks
		sub
		push
		callk	kernel_61, $2
		bnot
		sub
		aTop	ticks
		push
		ldi	$0
		le?
		bnt	code_0135
		ldi	$0
		aTop	ticks
		lag	global[$40]
		aTop	lastTicks
		pushi	$c7		; 199, cue
		push0
		self	$4
		bnot
		jmp	code_0139

code_0135:	lag	global[$40]
		aTop	lastTicks
code_0139:	ret

Script::init:
		pToa	pRoom
		not
		bnt	code_0143
		lag	global[$3]
		aTop	pRoom
code_0143:	lag	global[$40]
		aTop	lastTicks
		lsp	param[$0]
		ldi	$1
		ge?
		bnt	code_0170
		pushi	$c3		; 195, script
		push1
		pushSelf
		lap	param[$1]
		aTop	client
		send	$6
		bnot
		lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_0170
		lap	param[$2]
		aTop	caller
		lsp	param[$0]
		ldi	$3		; z
		ge?
		bnt	code_0170
		lap	param[$3]
		aTop	register
code_0170:	pushi	$c6		; 198, changeState
		push1
		pTos	start
		self	$6
		bnot
		ret

Script::dispose:
		link	$1
		pToa	script
		bnt	code_0195
		pushi	$95		; 149, dispose
		push1
		pushi	$c4		; 196, caller
		push0
		send	$4
		bnot
		push
		selfID
		eq?
		not
		push
		pToa	script
		send	$6
		bnot
code_0195:	pToa	timer
		bnt	code_01a0
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
code_01a0:	pToa	client
		bnt	code_01f6
		pushi	$c3		; 195, script
		push0
		send	$4
		bnot
		push
		selfID
		eq?
		bnt	code_01f6
		pushi	$c3		; 195, script
		push1
		pToa	next
		bnt	code_01ba
		jmp	code_01c8

code_01ba:	pToa	number
		bnt	code_01c6
		push1
		push
		callk	kernel_2, $2
		bnot
		jmp	code_01c8

code_01c6:	ldi	$0
code_01c8:	sat	temp[$0]
		push
		pToa	client
		send	$6
		bnot
		lat	temp[$0]
		not
		bnt	code_01d9
		ldi	$0
		jmp	code_01f6

code_01d9:	lsg	global[$36]
		lag	global[$34]
		eq?
		bnt	code_01ed
		pushi	$94		; 148, init
		push1
		pTos	client
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_01f6

code_01ed:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_01f6:	push1
		pTos	caller
		calle	export60000_0, $2
		bnot
		bnt	code_027b
		lsg	global[$36]
		lag	global[$34]
		eq?
		bnt	code_027b
		lap	param[$0]
		not
		bt	code_0215
		lsp	param[$1]
		ldi	$1
		eq?
code_0215:	bnt	code_027b
		pToa	pRoom
		bnt	code_0270
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0270
		push1
		pushi	$ca		; 202, pCuees
		push0
		pToa	pRoom
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0270
		pushi	$9f		; 159, add
		push1
		pushi	$c2		; 194, register
		push1
		pTos	register
		pushi	$cb		; 203, cuee
		push1
		pTos	caller
		pushi	$cc		; 204, cuer
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		lofsa	Cue
		send	$4
		bnot
		send	$16
		bnot
		push
		pushi	$ca		; 202, pCuees
		push0
		pToa	pRoom
		send	$4
		bnot
		send	$6
		bnot
		jmp	code_027b

code_0270:	pushi	$c7		; 199, cue
		push1
		pTos	register
		pToa	caller
		send	$6
		bnot
code_027b:	ldi	$0
		aTop	caller
		aTop	number
		aTop	next
		aTop	client
		aTop	timer
		aTop	script
		aTop	ticks
		aTop	cycles
		aTop	seconds
		pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		ret

Script::changeState:
		lap	param[$1]
		aTop	state
		ret

Script::cue:
		link	$1
		pToa	pRoom
		bnt	code_02f4
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_02f4
		lsg	global[$3]
		pToa	pRoom
		ne?
		bnt	code_02f4
		lag	global[$3]
		sat	temp[$0]
		pToa	pRoom
		sag	global[$3]
		pushi	$9f		; 159, add
		push1
		pushi	$c2		; 194, register
		push1
		pTos	register
		pushi	$cb		; 203, cuee
		push1
		pushSelf
		pushi	$cc		; 204, cuer
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		lofsa	Cue
		send	$4
		bnot
		send	$16
		bnot
		push
		pushi	$ca		; 202, pCuees
		push0
		pToa	pRoom
		send	$4
		bnot
		send	$6
		bnot
		lat	temp[$0]
		sag	global[$3]
		ret

code_02f4:	pToa	client
		bnt	code_030b
		lag	global[$40]
		aTop	lastTicks
		pushi	$c6		; 198, changeState
		push1
		pTos	state
		ldi	$1
		add
		push
		&rest	$1
		self	$6
		bnot
code_030b:	ret

Script::setScript:
		pToa	script
		bnt	code_0317
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
code_0317:	lap	param[$1]
		bnt	code_0325
		pushi	$94		; 148, init
		push1
		pushSelf
		&rest	$2
		send	$6
		bnot
code_0325:	ret

Script::handleEvent:
		pToa	script
		bnt	code_0333
		pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		send	$6
		bnot
code_0333:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

DemonsScript::init:
		pushi	$cd		; 205, pDemons
		push0
		lag	global[$3]
		send	$4
		bnot
		aTop	client
		pushi	$9f		; 159, add
		push1
		pushSelf
		pToa	client
		send	$6
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Script, $4
		bnot
		ret

DemonsScript::dispose:
		pToa	client
		bnt	code_0382
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0382
		pushi	$97		; 151, isKindOf
		push1
		class	List
		push
		pToa	client
		send	$6
		bnot
		bnt	code_0382
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		pToa	client
		send	$6
		bnot
code_0382:	ldi	$0
		aTop	client
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Script, $4
		bnot
		ret

Cue::dispose:
		pToa	pList
		bnt	code_039c
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		send	$6
		bnot
code_039c:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Obj, $4
		bnot
		ret

Cue::handleError:
		lsp	param[$1]
		pToa	cuee
		eq?
		bnt	code_03b5
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_03b5:	ret

Cue::doit:
		pToa	pList
		bnt	code_03ef
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		send	$6
		bnot
		push1
		pTos	cuee
		calle	export60000_0, $2
		bnot
		bnt	code_03e8
		pushi	$99		; 153, respondsTo
		push1
		pushi	$c7		; 199, cue
		pToa	cuee
		send	$6
		bnot
		bnt	code_03e8
		pushi	$c7		; 199, cue
		push2
		pTos	register
		pTos	cuer
		pToa	cuee
		send	$8
		bnot
code_03e8:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_03ef:	ret

