844 lines
12 KiB
Plaintext
844 lines
12 KiB
Plaintext
MySet::delete:
|
|
lsp param[$1]
|
|
pToa scratch
|
|
eq?
|
|
bnt code_0131
|
|
ldi $0
|
|
aTop scratch
|
|
code_0131: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super Set, $6
|
|
bnot
|
|
ret
|
|
|
|
planes::eachElementDo:
|
|
link $3
|
|
push2
|
|
pushi $3 ; z
|
|
pTos elements
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_014a: lat temp[$0]
|
|
bnt code_01b9
|
|
push2
|
|
pushi $6 ; maxScale
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
aTop nextNode
|
|
pushi $cf ; 207, casts
|
|
push0
|
|
push2
|
|
pushi $8 ; fixPriority
|
|
lst temp[$0]
|
|
callk kernel_90, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push2
|
|
pushi $3 ; z
|
|
pushi $24 ; 36, '$', elements
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_017a: lat temp[$0]
|
|
bnt code_01b3
|
|
pushi $9e ; 158, nextNode
|
|
push1
|
|
push2
|
|
pushi $6 ; maxScale
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
push2
|
|
pushi $8 ; fixPriority
|
|
lst temp[$0]
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
pushi $9e ; 158, nextNode
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_017a
|
|
|
|
code_01b3: pToa nextNode
|
|
sat temp[$0]
|
|
jmp code_014a
|
|
|
|
code_01b9: ret
|
|
|
|
Game::play:
|
|
link $1
|
|
selfID
|
|
sag global[$2]
|
|
lofsa arrowNormalCursor
|
|
sag global[$c]
|
|
lofsa arrowWaitCursor
|
|
sag global[$d]
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $1b4 ; 436, enable
|
|
push0
|
|
lag global[$c]
|
|
send $8
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
lag global[$d]
|
|
send $4
|
|
bnot
|
|
push0
|
|
callk kernel_84, $0
|
|
bnot
|
|
not
|
|
bnt code_01f0
|
|
pushi $75 ; 117, 'u', show
|
|
push1
|
|
push0
|
|
lag global[$b]
|
|
send $6
|
|
bnot
|
|
code_01f0: pushi $1b4 ; 436, enable
|
|
push0
|
|
lag global[$d]
|
|
send $4
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $1b5 ; 437, disable
|
|
push0
|
|
lag global[$d]
|
|
send $4
|
|
bnot
|
|
lsg global[$40]
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
sub
|
|
sag global[$41]
|
|
lag global[$40]
|
|
sal local[$0]
|
|
ret
|
|
|
|
Game::init:
|
|
link $1
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_022e ; "DeadModules"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class List
|
|
send $4
|
|
bnot
|
|
sag global[$69]
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_023a ; "GlobalCuees"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class List
|
|
send $4
|
|
bnot
|
|
sag global[$65]
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_01c4 ; "DeadBitmaps"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa DeadBitmaps
|
|
send $4
|
|
bnot
|
|
sag global[$66]
|
|
send $6
|
|
bnot
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_0246 ; "nullEvtHandler"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
sag global[$4d]
|
|
send $6
|
|
bnot
|
|
lsg global[$56]
|
|
lag global[$57]
|
|
eq?
|
|
bnt code_028a
|
|
pprev
|
|
lag global[$59]
|
|
eq?
|
|
bnt code_028a
|
|
pprev
|
|
ldi $0
|
|
eq?
|
|
bnt code_028a
|
|
push0
|
|
calle export60026_0, $0
|
|
bnot
|
|
code_028a: pushi $9f ; 159, add
|
|
push0
|
|
class GlobalDemons
|
|
send $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push0
|
|
class GlobalTimers
|
|
send $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push0
|
|
class WaitingTimers
|
|
send $4
|
|
bnot
|
|
class Motion
|
|
sat temp[$0]
|
|
class Sound
|
|
sat temp[$0]
|
|
pushi $9f ; 159, add
|
|
push0
|
|
lofsa planes
|
|
sag global[$25]
|
|
send $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push0
|
|
lofsa firstEventHandler
|
|
sag global[$27]
|
|
send $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push0
|
|
lofsa gameWalkHandler
|
|
sag global[$29]
|
|
send $4
|
|
bnot
|
|
lag global[$9]
|
|
not
|
|
bnt code_02da
|
|
class Button
|
|
sag global[$9]
|
|
code_02da: lag global[$8]
|
|
not
|
|
bnt code_02e3
|
|
class Window
|
|
sag global[$8]
|
|
code_02e3: lag global[$e]
|
|
not
|
|
bnt code_02ec
|
|
class User
|
|
sag global[$e]
|
|
code_02ec: pushi $94 ; 148, init
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
pushi $1b3 ; 435, setCursor
|
|
push2
|
|
lsg global[$c]
|
|
push1
|
|
self $8
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
class DialogHandler
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Game::doit:
|
|
link $5
|
|
pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
sag global[$3]
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
sag global[$1a]
|
|
lsg global[$41]
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
add
|
|
sag global[$40]
|
|
push
|
|
lal local[$0]
|
|
sub
|
|
push
|
|
ldi $2
|
|
ugt?
|
|
bnt code_0343
|
|
push1
|
|
pushi $b ; 11, inRight
|
|
callk kernel_128, $2
|
|
bnot
|
|
push1
|
|
pushi $4 ; scaleX
|
|
callk kernel_128, $2
|
|
bnot
|
|
lag global[$40]
|
|
sal local[$0]
|
|
code_0343: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
class GlobalDemons
|
|
send $4
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
class GlobalTimers
|
|
send $6
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $58 ; 88, 'X', delete
|
|
class GlobalTimers
|
|
send $6
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $63 ; 99, 'c', perform
|
|
lofsa AddToTimers
|
|
push
|
|
class WaitingTimers
|
|
send $8
|
|
bnot
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
class WaitingTimers
|
|
send $4
|
|
bnot
|
|
lag global[$30]
|
|
bnt code_0383
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0383: pToa script
|
|
bnt code_038d
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_038d: lsg global[$36]
|
|
lag global[$34]
|
|
ne?
|
|
bnt code_039d
|
|
pushi $272 ; 626, newRoom
|
|
push1
|
|
lsg global[$36]
|
|
self $6
|
|
bnot
|
|
code_039d: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lag global[$69]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_03d3
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_03ad: lst temp[$2]
|
|
lat temp[$1]
|
|
lt?
|
|
bnt code_03ca
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lag global[$69]
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
push1
|
|
push
|
|
callk kernel_3, $2
|
|
bnot
|
|
+at temp[$2]
|
|
jmp code_03ad
|
|
|
|
code_03ca: pushi $a6 ; 166, release
|
|
push0
|
|
lag global[$69]
|
|
send $4
|
|
bnot
|
|
code_03d3: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lag global[$66]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_0419
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_03e3: lst temp[$2]
|
|
lat temp[$1]
|
|
lt?
|
|
bnt code_0410
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
push2
|
|
pushi $4 ; scaleX
|
|
push
|
|
callk kernel_105, $4
|
|
bnot
|
|
push
|
|
ldi $4b ; 75, 'K', at
|
|
eq?
|
|
bnt code_040c
|
|
push2
|
|
push1
|
|
lst temp[$3]
|
|
callk kernel_35, $4
|
|
bnot
|
|
code_040c: +at temp[$2]
|
|
jmp code_03e3
|
|
|
|
code_0410: pushi $a6 ; 166, release
|
|
push0
|
|
lag global[$66]
|
|
send $4
|
|
bnot
|
|
code_0419: lag global[$32]
|
|
ret
|
|
|
|
Game::newRoom:
|
|
link $1
|
|
lag global[$30]
|
|
bnt code_042b
|
|
pushi $272 ; 626, newRoom
|
|
push0
|
|
&rest $1
|
|
send $4
|
|
bnot
|
|
code_042b: ret
|
|
|
|
Game::startRoom:
|
|
lag global[$30]
|
|
not
|
|
bnt code_043a
|
|
push1
|
|
lsp param[$1]
|
|
callk kernel_2, $2
|
|
bnot
|
|
sag global[$3]
|
|
code_043a: pushi $aa ; 170, addToFront
|
|
push1
|
|
lsg global[$3]
|
|
lag global[$1f]
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Game::replay:
|
|
ret
|
|
|
|
Game::restart:
|
|
ret
|
|
|
|
Game::restore:
|
|
ret
|
|
|
|
Game::save:
|
|
ret
|
|
|
|
Game::handleEvent:
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bt code_0481
|
|
pToa script
|
|
bnt code_046a
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
code_046a: bt code_0481
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4000 ; 16384
|
|
and
|
|
bnt code_0481
|
|
pushi $4f ; 79, 'O', pragmaFail
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0481: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Game::quitGame:
|
|
lap param[$0]
|
|
not
|
|
bt code_0491
|
|
lap param[$1]
|
|
code_0491: bnt code_0497
|
|
ldi $1
|
|
sag global[$32]
|
|
code_0497: ret
|
|
|
|
Game::masterVolume:
|
|
ret
|
|
|
|
Game::detailLevel:
|
|
lap param[$0]
|
|
bnt code_04ae
|
|
lap param[$1]
|
|
aTop _detailLevel
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $199 ; 409, checkDetail
|
|
push
|
|
lag global[$25]
|
|
send $8
|
|
bnot
|
|
code_04ae: pToa _detailLevel
|
|
ret
|
|
|
|
Game::setCursor:
|
|
link $1
|
|
lag global[$b]
|
|
sat temp[$0]
|
|
lap param[$1]
|
|
sag global[$b]
|
|
pushi $94 ; 148, init
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0506
|
|
lap param[$2]
|
|
bnt code_04d9
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
lag global[$b]
|
|
send $4
|
|
bnot
|
|
jmp code_04e1
|
|
|
|
code_04d9: pushi $69 ; 105, 'i', hide
|
|
push0
|
|
lag global[$b]
|
|
send $4
|
|
bnot
|
|
code_04e1: lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_0506
|
|
push2
|
|
lsp param[$3]
|
|
lsp param[$4]
|
|
callk kernel_85, $4
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_0506
|
|
pushi $5 ; scaleY
|
|
lsp param[$1]
|
|
push0
|
|
push0
|
|
lsp param[$5]
|
|
lsp param[$6]
|
|
callk kernel_85, $a
|
|
bnot
|
|
code_0506: lat temp[$0]
|
|
ret
|
|
|
|
Game::pragmaFail:
|
|
ret
|
|
|
|
Game::notify:
|
|
ldi $0
|
|
ret
|
|
|
|
Game::setScript:
|
|
pToa script
|
|
bnt code_0518
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0518: lap param[$1]
|
|
bnt code_0526
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
code_0526: ret
|
|
|
|
Game::cue:
|
|
pToa script
|
|
bnt code_0534
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
&rest $1
|
|
send $4
|
|
bnot
|
|
code_0534: ret
|
|
|
|
Game::handsOff:
|
|
pToa handsLevel
|
|
not
|
|
bnt code_055b
|
|
pushi $262 ; 610, canControl
|
|
push1
|
|
push0
|
|
pushi $263 ; 611, canInput
|
|
push1
|
|
push0
|
|
lag global[$e]
|
|
send $c
|
|
bnot
|
|
push2
|
|
pushi $1f ; 31, brBottom
|
|
pushi $6 ; maxScale
|
|
callk kernel_118, $4
|
|
bnot
|
|
pushi $1b4 ; 436, enable
|
|
push0
|
|
lag global[$d]
|
|
send $4
|
|
bnot
|
|
code_055b: ipToa handsLevel
|
|
ret
|
|
|
|
Game::handsOn:
|
|
pToa handsLevel
|
|
not
|
|
bnt code_0564
|
|
ret
|
|
|
|
code_0564: dpToa handsLevel
|
|
pToa handsLevel
|
|
not
|
|
bnt code_058c
|
|
pushi $262 ; 610, canControl
|
|
push1
|
|
push1
|
|
pushi $263 ; 611, canInput
|
|
push1
|
|
push1
|
|
lag global[$e]
|
|
send $c
|
|
bnot
|
|
push2
|
|
pushi $1f ; 31, brBottom
|
|
pushi $6 ; maxScale
|
|
callk kernel_118, $4
|
|
bnot
|
|
pushi $1b5 ; 437, disable
|
|
push0
|
|
lag global[$d]
|
|
send $4
|
|
bnot
|
|
code_058c: ret
|
|
|
|
Game::controlOff:
|
|
pToa handsLevel
|
|
not
|
|
bnt code_05b3
|
|
pushi $262 ; 610, canControl
|
|
push1
|
|
push0
|
|
pushi $263 ; 611, canInput
|
|
push1
|
|
push1
|
|
lag global[$e]
|
|
send $c
|
|
bnot
|
|
push2
|
|
pushi $1f ; 31, brBottom
|
|
pushi $6 ; maxScale
|
|
callk kernel_118, $4
|
|
bnot
|
|
pushi $1b4 ; 436, enable
|
|
push0
|
|
lag global[$d]
|
|
send $4
|
|
bnot
|
|
code_05b3: ipToa handsLevel
|
|
ret
|
|
|
|
Game::controlOn:
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
DNKR::doit:
|
|
pushi $239 ; 569, keep
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_05d3
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_05d3: ret
|
|
|
|
screen::open:
|
|
ldi $0
|
|
aTop modal
|
|
aTop curItem
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
pushSelf
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
lag global[$3a]
|
|
aTop font
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
screen::dispose:
|
|
pushi $1b9 ; 441, deleteCast
|
|
push1
|
|
pushSelf
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop plane
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Dialog, $4
|
|
bnot
|
|
ret
|
|
|
|
screen::returnHandler:
|
|
ldi $0
|
|
ret
|
|
|
|
screen::handleEvent:
|
|
pushi $1f7 ; 503, input
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0622
|
|
ldi $0
|
|
ret
|
|
|
|
code_0622: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
super Dialog, $6
|
|
bnot
|
|
ret
|
|
|
|
screen::draw:
|
|
link $1
|
|
pToa curItem
|
|
not
|
|
bnt code_0652
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0652
|
|
pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $1d4 ; 468, selectItem
|
|
push2
|
|
push
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0652: pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $57 ; 87, 'W', draw
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
AddToTimers::doit:
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
class GlobalTimers
|
|
send $6
|
|
bnot
|
|
ret
|
|
|