394 lines
5.7 KiB
Plaintext
394 lines
5.7 KiB
Plaintext
NetRoom::new:
|
|
link $1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
super RealmRoom, $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $559 ; 1369, pPendingActionQ
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class List
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
NetRoom::doit:
|
|
link $3
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
&rest $1
|
|
super RealmRoom, $4
|
|
bnot
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
aTop pExitScript
|
|
pToa pMakePile
|
|
bnt code_00d6
|
|
ldi $0
|
|
aTop pMakePile
|
|
code_00d6: pToa pDefunct
|
|
not
|
|
bnt code_0115
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pPendingActionQ
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_0115
|
|
ldi $0
|
|
sat temp[$1]
|
|
code_00eb: lst temp[$1]
|
|
lat temp[$0]
|
|
lt?
|
|
bnt code_010c
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$1]
|
|
pToa pPendingActionQ
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $33b ; 827, addAction
|
|
push1
|
|
push
|
|
class ActionQMgr
|
|
send $6
|
|
bnot
|
|
+at temp[$1]
|
|
jmp code_00eb
|
|
|
|
code_010c: pushi $a6 ; 166, release
|
|
push0
|
|
pToa pPendingActionQ
|
|
send $4
|
|
bnot
|
|
code_0115: lag global[$1]
|
|
bnt code_012d
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
bnt code_012d
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
class ActionQMgr
|
|
send $4
|
|
bnot
|
|
code_012d: ret
|
|
|
|
NetRoom::init:
|
|
link $1
|
|
ldi $1
|
|
aTop pMakePile
|
|
pTos pFlags
|
|
ldi $2
|
|
eq?
|
|
bnt code_0142
|
|
ldi $400 ; 1024, pEndurance
|
|
aTop style
|
|
jmp code_0146
|
|
|
|
code_0142: ldi $0
|
|
aTop style
|
|
code_0146: pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super RealmRoom, $4
|
|
bnot
|
|
pushi $55b ; 1371, generate
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lofsa RoomExitHandler
|
|
push
|
|
lag global[$27]
|
|
send $6
|
|
bnot
|
|
pushi $3c5 ; 965, addToRoom
|
|
push1
|
|
pushSelf
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pToa pShowGameBar
|
|
bnt code_0182
|
|
pushi $94 ; 148, init
|
|
push0
|
|
push2
|
|
pushi $ea3a ; -5574
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_0182: ret
|
|
|
|
NetRoom::dispose:
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
class gDialogList
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pPendingActionQ
|
|
send $4
|
|
bnot
|
|
pToa pNumber
|
|
bnt code_01a5
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pNumber
|
|
code_01a5: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super RealmRoom, $4
|
|
bnot
|
|
ret
|
|
|
|
NetRoom::show:
|
|
pToa pVisible
|
|
not
|
|
bnt code_01c2
|
|
pushi $7 ; priority
|
|
push1
|
|
push1
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pVisible
|
|
code_01c2: pToa picture
|
|
bnt code_01ce
|
|
pushi $1bb ; 443, drawPic
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
code_01ce: 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
|
|
pToa pShowGameBar
|
|
bnt code_01f4
|
|
pushi $94 ; 148, init
|
|
push0
|
|
push2
|
|
pushi $ea3a ; -5574
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_01f4: pushi $94 ; 148, init
|
|
push2
|
|
pushSelf
|
|
pTos pCast
|
|
class GPolyBitmap
|
|
send $8
|
|
bnot
|
|
pushi $491 ; 1169, updatePingText
|
|
push0
|
|
lag global[$6a]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
NetRoom::isMatch:
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0221
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
lsp param[$1]
|
|
pToa pNumber
|
|
send $6
|
|
bnot
|
|
bnt code_0221
|
|
lap param[$2]
|
|
not
|
|
code_0221: ret
|
|
|
|
NetRoom::setInfo:
|
|
lap param[$0]
|
|
bnt code_0262
|
|
lap param[$1]
|
|
aTop pNumber
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0262
|
|
lap param[$2]
|
|
aTop picture
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_0262
|
|
lap param[$3]
|
|
aTop pRoomType
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_0262
|
|
lap param[$4]
|
|
aTop pExits
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_0262
|
|
lap param[$5]
|
|
aTop pFlags
|
|
pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
pushi $9 ; inLeft
|
|
pTos pFlags
|
|
callk kernel_118, $6
|
|
bnot
|
|
code_0262: ret
|
|
|
|
NetRoom::generate:
|
|
ret
|
|
|
|
RoomExitHandler::handleEvent:
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_0300
|
|
pushi $25b ; 603, verb
|
|
push0
|
|
pushi $24f ; 591, curIcon
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
eq?
|
|
bnt code_0300
|
|
pushi $e ; 14, view
|
|
push0
|
|
lag global[$b]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $270d ; 9997
|
|
eq?
|
|
bnt code_0300
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lag global[$b]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $9 ; inLeft
|
|
ge?
|
|
bnt code_0300
|
|
push2
|
|
pushi $1f ; 31, brBottom
|
|
pushi $7 ; priority
|
|
callk kernel_118, $4
|
|
bnot
|
|
bnt code_02c8
|
|
pushi $2b ; 43, '+', type
|
|
push1
|
|
pushi $4000 ; 16384
|
|
pushi $31 ; 49, '1', message
|
|
push1
|
|
push2
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $12
|
|
bnot
|
|
ldi $0
|
|
ret
|
|
|
|
code_02c8: pushi $2b ; 43, '+', type
|
|
push1
|
|
pushi $4000 ; 16384
|
|
pushi $31 ; 49, '1', message
|
|
push1
|
|
pushi $33 ; 51, '3', play
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $12
|
|
bnot
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lag global[$b]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $11 ; 17, bitmap
|
|
eq?
|
|
bnt code_02f5
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0300
|
|
|
|
code_02f5: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_0300: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
flushView::doit:
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pushi $e ; 14, view
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_1, $4
|
|
bnot
|
|
ret
|
|
|