1294 lines
19 KiB
Plaintext
1294 lines
19 KiB
Plaintext
CueSet::add:
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
super Set, $6
|
|
bnot
|
|
pushi $ce ; 206, pList
|
|
push1
|
|
pushSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
lag global[$65]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
CueSet::delete:
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
lag global[$65]
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
super Set, $6
|
|
bnot
|
|
pushi $ce ; 206, pList
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::init:
|
|
ldi $1
|
|
aTop pInitted
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::dispose:
|
|
link $4
|
|
pToa pCuees
|
|
bnt code_01b4
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
send $6
|
|
bnot
|
|
code_01b4: pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $c9 ; 201, setScript
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
pToa pDemons
|
|
bnt code_01d6
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pDemons
|
|
code_01d6: pToa pCast
|
|
bnt code_01e5
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pCast
|
|
code_01e5: pToa pFeatures
|
|
bnt code_01f4
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pFeatures
|
|
code_01f4: pToa pSounds
|
|
bnt code_0203
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pSounds
|
|
code_0203: pToa pTimers
|
|
bnt code_0212
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pTimers
|
|
code_0212: pToa pTalkers
|
|
bnt code_0221
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pTalkers
|
|
code_0221: pToa pScreen
|
|
bnt code_0230
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pScreen
|
|
code_0230: pToa pCuees
|
|
bnt code_024a
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pCuees
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pCuees
|
|
code_024a: pToa plane
|
|
bnt code_0259
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop plane
|
|
code_0259: pToa obstacles
|
|
bnt code_02de
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_026a: lst temp[$3]
|
|
lat temp[$1]
|
|
lt?
|
|
bnt code_02cd
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$3]
|
|
pToa obstacles
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_02a6
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Polygon
|
|
push
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_02a6
|
|
pushi $16f ; 367, pDispose
|
|
push1
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $a
|
|
bnot
|
|
jmp code_02c9
|
|
|
|
code_02a6: push2
|
|
lofsa string_00f7 ; "Found a non-polygon in the obstacles list. (%s)"
|
|
push
|
|
push1
|
|
lst temp[$2]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_02c1
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
jmp code_02c4
|
|
|
|
code_02c1: lofsa string_0127 ; "<bad object>"
|
|
code_02c4: push
|
|
callk kernel_132, $4
|
|
bnot
|
|
code_02c9: +at temp[$3]
|
|
jmp code_026a
|
|
|
|
code_02cd: pushi $a6 ; 166, release
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa obstacles
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
aTop obstacles
|
|
code_02de: pToa scaler
|
|
bnt code_02ed
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scaler
|
|
code_02ed: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$30]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pInitted
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_030b
|
|
push
|
|
selfID
|
|
ne?
|
|
bnt code_030b
|
|
code_030b: ret
|
|
|
|
ManagedRoom::doit:
|
|
link $1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pSounds
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_0326
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $24a ; 586, check
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0326: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTimers
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_033d
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_033d: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pCast
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_0351
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_0351: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pCuees
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_0368
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0368: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pDemons
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_037f
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_037f: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTimers
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_0396
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $58 ; 88, 'X', delete
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0396: pToa script
|
|
sat temp[$0]
|
|
bnt code_03a2
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_03a2: ret
|
|
|
|
ManagedRoom::setScript:
|
|
pToa script
|
|
bnt code_03ae
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_03ae: lap param[$1]
|
|
aTop script
|
|
bnt code_03be
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
code_03be: ret
|
|
|
|
ManagedRoom::handleEvent:
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_03cd
|
|
ldi $1
|
|
jmp code_0400
|
|
|
|
code_03cd: pToa script
|
|
bnt code_03e0
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_03e0
|
|
ldi $1
|
|
jmp code_0400
|
|
|
|
code_03e0: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
pToa pCast
|
|
send $6
|
|
bnot
|
|
bnt code_03f1
|
|
ldi $1
|
|
jmp code_0400
|
|
|
|
code_03f1: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
pToa pScreen
|
|
send $6
|
|
bnot
|
|
bnt code_0400
|
|
ldi $1
|
|
code_0400: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::newRoom:
|
|
pushi $272 ; 626, newRoom
|
|
push0
|
|
&rest $1
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::show:
|
|
pToa pVisible
|
|
not
|
|
bnt code_0427
|
|
pushi $7 ; priority
|
|
push1
|
|
push1
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pVisible
|
|
code_0427: pToa picture
|
|
bnt code_0433
|
|
pushi $1bb ; 443, drawPic
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
code_0433: pushi $75 ; 117, 'u', show
|
|
push0
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa pScreen
|
|
send $8
|
|
bnot
|
|
push1
|
|
pTos plane
|
|
callk kernel_42, $2
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::hide:
|
|
pToa pVisible
|
|
bnt code_0458
|
|
pushi $7 ; priority
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pVisible
|
|
code_0458: pushi $69 ; 105, 'i', hide
|
|
push0
|
|
pToa pScreen
|
|
send $4
|
|
bnot
|
|
push1
|
|
pTos plane
|
|
callk kernel_42, $2
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::virtualize:
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_0134 ; "RoomCast"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Cast
|
|
send $4
|
|
bnot
|
|
aTop pCast
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_013d ; "RoomFeatures"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class EventHandler
|
|
send $4
|
|
bnot
|
|
aTop pFeatures
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_014a ; "RoomSounds"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class EventHandler
|
|
send $4
|
|
bnot
|
|
aTop pSounds
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_0155 ; "RoomTimers"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop pTimers
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_0160 ; "RoomDemons"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop pDemons
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_016b ; "RoomTalkers"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class EventHandler
|
|
send $4
|
|
bnot
|
|
aTop pTalkers
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_0177 ; "RoomCuees"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class CueSet
|
|
send $4
|
|
bnot
|
|
aTop pCuees
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_0181 ; "RoomPlane"
|
|
push
|
|
pushi $6d ; 109, 'm', picture
|
|
push1
|
|
pushi $fe ; 254, strIndex
|
|
pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
push0
|
|
push0
|
|
pushi $27f ; 639, rename
|
|
pushi $1df ; 479, validKey
|
|
pushi $28 ; 40, '(', style
|
|
push1
|
|
pTos style
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Plane
|
|
send $4
|
|
bnot
|
|
aTop plane
|
|
send $24
|
|
bnot
|
|
pushi $7 ; priority
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
not
|
|
bt code_0545
|
|
pushi $7 ; priority
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
code_0545: bnt code_0550
|
|
pushi $7 ; priority
|
|
push1
|
|
push1
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
code_0550: pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_018b ; "RoomScreen"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class screen
|
|
send $4
|
|
bnot
|
|
aTop pScreen
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
push0
|
|
push0
|
|
pToa pScreen
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push0
|
|
push1
|
|
pTos plane
|
|
pushi $248 ; 584, open
|
|
push0
|
|
pToa pScreen
|
|
send $a
|
|
bnot
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::drawPic:
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_05a8
|
|
lap param[$3]
|
|
bnt code_05a8
|
|
lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_059d
|
|
lap param[$1]
|
|
aTop picture
|
|
code_059d: lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_05a8
|
|
lap param[$2]
|
|
aTop style
|
|
code_05a8: pTos style
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_05c5
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_05c1
|
|
lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_05c1
|
|
lap param[$2]
|
|
jmp code_05c7
|
|
|
|
code_05c1: ldi $0
|
|
jmp code_05c7
|
|
|
|
code_05c5: pToa style
|
|
code_05c7: sap param[$2]
|
|
pushi $1bb ; 443, drawPic
|
|
push2
|
|
lsp param[$1]
|
|
push
|
|
pToa plane
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::addPolygon:
|
|
link $7
|
|
pToa obstacles
|
|
not
|
|
bnt code_05e8
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop obstacles
|
|
code_05e8: ldi $0
|
|
sat temp[$2]
|
|
code_05ec: lst temp[$2]
|
|
lap param[$0]
|
|
lt?
|
|
bnt code_06a6
|
|
lat temp[$2]
|
|
lapi param[$1]
|
|
sat temp[$3]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa obstacles
|
|
send $4
|
|
bnot
|
|
bnt code_0696
|
|
pushi $5b ; 91, '[', points
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push2
|
|
lst temp[$3]
|
|
pTos obstacles
|
|
callk kernel_102, $4
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_06a1
|
|
pushi $2b ; 43, '+', type
|
|
push1
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Polygon
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
send $6
|
|
bnot
|
|
push2
|
|
pushi $4 ; scaleX
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
pushi $5b ; 91, '[', points
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
pushi $71 ; 113, 'q', data
|
|
push1
|
|
lst temp[$0]
|
|
pushi $5b ; 91, '[', points
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$6]
|
|
pToa obstacles
|
|
send $6
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push1
|
|
pushi $d8 ; 216, callKernel
|
|
push2
|
|
push1
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
pushi $5b ; 91, '[', points
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $5b ; 91, '[', points
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
push
|
|
ldi $2
|
|
div
|
|
push
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
jmp code_06a1
|
|
|
|
code_0696: pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$3]
|
|
pToa obstacles
|
|
send $6
|
|
bnot
|
|
code_06a1: +at temp[$2]
|
|
jmp code_05ec
|
|
|
|
code_06a6: ret
|
|
|
|
ManagedRoom::deletePolygon:
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
pToa obstacles
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
ManagedRoom::setScale:
|
|
link $1
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_06c1
|
|
lap param[$3]
|
|
sat temp[$0]
|
|
jmp code_06eb
|
|
|
|
code_06c1: pushi $14b ; 331, frontY
|
|
push1
|
|
lsp param[$3]
|
|
pushi $14c ; 332, backY
|
|
push1
|
|
lsp param[$4]
|
|
pushi $145 ; 325, frontSize
|
|
push1
|
|
lsp param[$1]
|
|
pushi $14d ; 333, backSize
|
|
push1
|
|
lsp param[$2]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Scaler
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $18
|
|
bnot
|
|
lap param[$1]
|
|
aTop frontSize
|
|
code_06eb: lat temp[$0]
|
|
aTop scaler
|
|
ret
|
|
|
|
ManagedRoom::isMatch:
|
|
ldi $0
|
|
ret
|
|
|
|
ManagedRoom::setInfo:
|
|
ret
|
|
|
|
StaticRoom::dispose:
|
|
link $1
|
|
pToa modNum
|
|
sat temp[$0]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super ManagedRoom, $4
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_0710
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$69]
|
|
send $6
|
|
bnot
|
|
code_0710: ret
|
|
|
|
StaticRoom::setInfo:
|
|
lap param[$1]
|
|
aTop modNum
|
|
ret
|
|
|
|
RoomMgr::init:
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop pRoomList
|
|
lag global[$40]
|
|
sal local[$1]
|
|
ldi $5 ; scaleY
|
|
sal local[$0]
|
|
ret
|
|
|
|
RoomMgr::dispose:
|
|
pToa pRoomList
|
|
bnt code_0739
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pRoomList
|
|
code_0739: ldi $0
|
|
aTop pFocusedRoom
|
|
ret
|
|
|
|
RoomMgr::doit:
|
|
link $5
|
|
pToa pRestart
|
|
bnt code_0761
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
pToa pRoomList
|
|
send $6
|
|
bnot
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
pToa pRoomList
|
|
send $4
|
|
bnot
|
|
pToa pRestart
|
|
sag global[$36]
|
|
ldi $0
|
|
aTop pRestart
|
|
code_0761: pToa pNextRoom
|
|
bnt code_0771
|
|
pushi $2c7 ; 711, spawnRoom
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
ldi $0
|
|
aTop pNextRoom
|
|
code_0771: lsl local[$0]
|
|
push1
|
|
lsg global[$40]
|
|
lal local[$1]
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
sub
|
|
sal local[$0]
|
|
lag global[$40]
|
|
sal local[$1]
|
|
lsl local[$0]
|
|
ldi $0
|
|
le?
|
|
bnt code_07e4
|
|
ldi $5 ; scaleY
|
|
sal local[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pRoomList
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
class SoundMgr
|
|
send $4
|
|
bnot
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
aTop scratch
|
|
lat temp[$2]
|
|
sat temp[$4]
|
|
code_07ae: lst temp[$2]
|
|
ldi $0
|
|
gt?
|
|
bnt code_07dd
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
ldi $1
|
|
sub
|
|
push
|
|
pToa pRoomList
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
lag global[$3]
|
|
sat temp[$3]
|
|
lat temp[$0]
|
|
sag global[$3]
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
lat temp[$3]
|
|
sag global[$3]
|
|
-at temp[$2]
|
|
jmp code_07ae
|
|
|
|
code_07dd: push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
jmp code_07e9
|
|
|
|
code_07e4: push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
code_07e9: pToa pFocusedRoom
|
|
bnt code_0820
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0820
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class ManagedRoom
|
|
push
|
|
pToa pFocusedRoom
|
|
send $6
|
|
bnot
|
|
bnt code_0820
|
|
pToa pFocusedRoom
|
|
sag global[$3]
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
lag global[$6a]
|
|
bnt code_081c
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_081c: pToa pFocusedRoom
|
|
sag global[$3]
|
|
code_0820: ret
|
|
|
|
RoomMgr::handleEvent:
|
|
pToa pFocusedRoom
|
|
bnt code_0831
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
code_0831: ldi $0
|
|
ret
|
|
|
|
RoomMgr::newRoom:
|
|
link $1
|
|
pushi $2c6 ; 710, findRoom
|
|
push0
|
|
&rest $1
|
|
self $4
|
|
bnot
|
|
sat temp[$0]
|
|
lag global[$34]
|
|
sag global[$35]
|
|
lst temp[$0]
|
|
ldi $0
|
|
eq?
|
|
bnt code_0857
|
|
pushi $2c5 ; 709, createRoom
|
|
push0
|
|
&rest $1
|
|
self $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_0857: pushi $2c7 ; 711, spawnRoom
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
RoomMgr::createRoom:
|
|
link $1
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_089b
|
|
pToa pVirtualType
|
|
bnt code_088d
|
|
pushi $8d ; 141, new
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $2c0 ; 704, setInfo
|
|
push0
|
|
&rest $1
|
|
send $4
|
|
bnot
|
|
pushi $2bc ; 700, virtualize
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_08b7
|
|
|
|
code_088d: push1
|
|
lofsa string_01ad ; "RoomManager::createRoom (pVirtualType is undefined)"
|
|
push
|
|
calle export60029_0, $2
|
|
bnot
|
|
jmp code_08b7
|
|
|
|
code_089b: push2
|
|
lsp param[$1]
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $2c0 ; 704, setInfo
|
|
push0
|
|
&rest $1
|
|
send $4
|
|
bnot
|
|
pushi $2bc ; 700, virtualize
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_08b7: pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
pToa pRoomList
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
RoomMgr::findRoom:
|
|
pushi $a0 ; 160, firstTrue
|
|
push1
|
|
pushi $2bf ; 703, isMatch
|
|
&rest $1
|
|
pToa pRoomList
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
RoomMgr::spawnRoom:
|
|
link $4
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
lsp param[$1]
|
|
pToa pRoomList
|
|
send $6
|
|
bnot
|
|
bnt code_095d
|
|
lag global[$3]
|
|
sat temp[$2]
|
|
lap param[$1]
|
|
sag global[$3]
|
|
pToa pFocusedRoom
|
|
sat temp[$1]
|
|
bnt code_0914
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
pToa pFocusedRoom
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_090c
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pFocusedRoom
|
|
send $4
|
|
bnot
|
|
jmp code_0914
|
|
|
|
code_090c: pushi $69 ; 105, 'i', hide
|
|
push0
|
|
pToa pFocusedRoom
|
|
send $4
|
|
bnot
|
|
code_0914: lap param[$1]
|
|
aTop pFocusedRoom
|
|
pushi $23c ; 572, pInitted
|
|
push0
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_092b
|
|
pushi $94 ; 148, init
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_092b: pushi $2bb ; 699, pType
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_0953
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $180 ; 384, modNum
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0953
|
|
pushi $180 ; 384, modNum
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sag global[$34]
|
|
code_0953: pushi $75 ; 117, 'u', show
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_0969
|
|
|
|
code_095d: push1
|
|
lofsa string_01e1 ; "RoomManager::spawnRoom (aWhatRoom is not a member of pRoomList)"
|
|
push
|
|
calle export60029_0, $2
|
|
bnot
|
|
code_0969: pushi $2b ; 43, '+', type
|
|
push0
|
|
pushi $f3 ; 243, nextEvent
|
|
push1
|
|
pushi $3 ; z
|
|
lag global[$e]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
ne?
|
|
bnt code_0982
|
|
jmp code_0969
|
|
|
|
code_0982: lat temp[$2]
|
|
sag global[$3]
|
|
ret
|
|
|
|
RoomMgr::add:
|
|
pushi $9f ; 159, add
|
|
push0
|
|
&rest $1
|
|
pToa pRoomList
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
RoomMgr::delete:
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
pToa pRoomList
|
|
send $6
|
|
bnot
|
|
lsp param[$1]
|
|
pToa pFocusedRoom
|
|
eq?
|
|
bnt code_09a8
|
|
ldi $0
|
|
aTop pFocusedRoom
|
|
code_09a8: ret
|
|
|
|
doDoit::doit:
|
|
link $1
|
|
lag global[$3]
|
|
sat temp[$0]
|
|
lap param[$1]
|
|
sag global[$3]
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
lat temp[$0]
|
|
sag global[$3]
|
|
ret
|
|
|