707 lines
11 KiB
Plaintext
707 lines
11 KiB
Plaintext
MessagerDialog::init:
|
|
link $3
|
|
pushi $94 ; 148, init
|
|
push0
|
|
super FancyDialog, $4
|
|
bnot
|
|
lap param[$1]
|
|
aTop pMessager
|
|
pushi $17d ; 381, addItem
|
|
pushi $5 ; scaleY
|
|
class TextItem
|
|
push
|
|
pushi $23 ; 35, '#', text
|
|
lsp param[$2]
|
|
pushi $25 ; 37, '%', fore
|
|
dup
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
self $e
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $249 ; 585, posnItem
|
|
pushi $3 ; z
|
|
push
|
|
pushi $fd ; 253, strip
|
|
pToa margin
|
|
add
|
|
push
|
|
pushi $fd ; 253, strip
|
|
pToa margin
|
|
add
|
|
push
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
self $e
|
|
bnot
|
|
pushi $17d ; 381, addItem
|
|
pushi $5 ; scaleY
|
|
lsg global[$9]
|
|
pushi $23 ; 35, '#', text
|
|
lofsa string_0076 ; "Okay"
|
|
push
|
|
pushi $25 ; 37, '%', fore
|
|
lsg global[$61]
|
|
self $e
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $249 ; 585, posnItem
|
|
pushi $3 ; z
|
|
push
|
|
pushi $fd ; 253, strip
|
|
pToa margin
|
|
add
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $5 ; scaleY
|
|
add
|
|
push
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
pushi $e3 ; 227, expand
|
|
push2
|
|
pTos margin
|
|
pTos margin
|
|
self $16
|
|
bnot
|
|
lap param[$3]
|
|
bnt code_0148
|
|
lap param[$4]
|
|
bnt code_0148
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
lsp param[$3]
|
|
lsp param[$4]
|
|
pToa plane
|
|
send $8
|
|
bnot
|
|
jmp code_0159
|
|
|
|
code_0148: pushi $de ; 222, centerIn
|
|
push1
|
|
push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
code_0159: pushi $248 ; 584, open
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
MessagerDialog::handleEvent:
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_0170
|
|
ldi $0
|
|
ret
|
|
|
|
jmp code_01cf
|
|
|
|
code_0170: pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0180
|
|
ldi $0
|
|
ret
|
|
|
|
jmp code_01cf
|
|
|
|
code_0180: pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
and
|
|
not
|
|
bnt code_019d
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
ret
|
|
|
|
jmp code_01cf
|
|
|
|
code_019d: pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
and
|
|
bnt code_01c3
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $282 ; 642, killed
|
|
push1
|
|
push1
|
|
pToa pMessager
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
ret
|
|
|
|
jmp code_01cf
|
|
|
|
code_01c3: pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
ret
|
|
|
|
code_01cf: ret
|
|
|
|
MessagerDialog::process:
|
|
link $1
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_01e6
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_01e6: lat temp[$0]
|
|
ret
|
|
|
|
MessagerDialog::dispose:
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
pToa pMessager
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super FancyDialog, $4
|
|
bnot
|
|
ret
|
|
|
|
Messager::getSeqSize:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0201: pushi $6 ; maxScale
|
|
push0
|
|
lsp param[$4]
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
+at temp[$0]
|
|
push
|
|
callk kernel_72, $c
|
|
bnot
|
|
bnt code_0217
|
|
jmp code_0201
|
|
|
|
code_0217: -at temp[$0]
|
|
ret
|
|
|
|
Messager::dispose:
|
|
ldi $0
|
|
aTop pLastSequence
|
|
pToa caller
|
|
bnt code_0253
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $cb ; 203, cuee
|
|
push1
|
|
push
|
|
pushi $cc ; 204, cuer
|
|
push1
|
|
pushSelf
|
|
pushi $c2 ; 194, register
|
|
push1
|
|
pTos killed
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Cue
|
|
send $4
|
|
bnot
|
|
send $16
|
|
bnot
|
|
push
|
|
pushi $ca ; 202, pCuees
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_0253: pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Messager::cue:
|
|
lap param[$0]
|
|
bnt code_0268
|
|
lap param[$1]
|
|
bnt code_0268
|
|
ldi $1
|
|
aTop killed
|
|
code_0268: pToa oneOnly
|
|
bt code_026e
|
|
pToa killed
|
|
code_026e: bnt code_0279
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0280
|
|
|
|
code_0279: pushi $288 ; 648, nextMsg
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0280: ret
|
|
|
|
Messager::say:
|
|
link $6
|
|
ldi $0
|
|
sat temp[$5]
|
|
sat temp[$4]
|
|
sat temp[$3]
|
|
aTop caller
|
|
aTop pCurSequence
|
|
sat temp[$2]
|
|
sat temp[$1]
|
|
sat temp[$0]
|
|
ldi $0
|
|
aTop killed
|
|
aTop oneOnly
|
|
lapi param[$1]
|
|
sat temp[$0]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_02ac
|
|
ldi $1
|
|
lapi param[$1]
|
|
sat temp[$1]
|
|
code_02ac: lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_02b9
|
|
ldi $2
|
|
lapi param[$1]
|
|
sat temp[$2]
|
|
code_02b9: lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_02d2
|
|
ldi $3 ; z
|
|
lapi param[$1]
|
|
bnt code_02d2
|
|
ldi $1
|
|
aTop oneOnly
|
|
ldi $3 ; z
|
|
lapi param[$1]
|
|
aTop pCurSequence
|
|
jmp code_02d6
|
|
|
|
code_02d2: ldi $1
|
|
aTop pCurSequence
|
|
code_02d6: lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_02e3
|
|
ldi $4 ; scaleX
|
|
lapi param[$1]
|
|
aTop caller
|
|
code_02e3: lsp param[$0]
|
|
ldi $5 ; scaleY
|
|
gt?
|
|
bnt code_02f2
|
|
ldi $5 ; scaleY
|
|
lapi param[$1]
|
|
sat temp[$3]
|
|
jmp code_02f6
|
|
|
|
code_02f2: lag global[$34]
|
|
sat temp[$3]
|
|
code_02f6: lsp param[$0]
|
|
ldi $6 ; maxScale
|
|
gt?
|
|
bnt code_0326
|
|
ldi $1
|
|
aTop oneOnly
|
|
lsp param[$0]
|
|
ldi $7 ; priority
|
|
gt?
|
|
bnt code_030c
|
|
ldi $0
|
|
aTop oneOnly
|
|
code_030c: push2
|
|
push1
|
|
pushi $419 ; 1049, getSeqSize
|
|
pushi $4 ; scaleX
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
lst temp[$3]
|
|
self $c
|
|
bnot
|
|
push
|
|
callk kernel_60, $4
|
|
bnot
|
|
aTop pCurSequence
|
|
code_0326: pushi $6 ; maxScale
|
|
push0
|
|
lst temp[$3]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
pTos pCurSequence
|
|
callk kernel_72, $c
|
|
bnot
|
|
not
|
|
bnt code_0366
|
|
pushi $6 ; maxScale
|
|
lofsa string_008a ; "<Messager>\n"
|
|
push
|
|
lst temp[$3]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
pTos pCurSequence
|
|
calle export60029_1, $c
|
|
bnot
|
|
ldi $ea74 ; -5516
|
|
sat temp[$3]
|
|
ldi $c ; 12, inBottom
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$2]
|
|
sat temp[$1]
|
|
ldi $1
|
|
aTop pCurSequence
|
|
jmp code_0379
|
|
|
|
code_0366: pushi $288 ; 648, nextMsg
|
|
pushi $5 ; scaleY
|
|
lst temp[$3]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
pTos pCurSequence
|
|
self $e
|
|
bnot
|
|
code_0379: ret
|
|
|
|
Messager::sayRange:
|
|
link $4
|
|
ldi $0
|
|
sat temp[$3]
|
|
aTop caller
|
|
aTop pCurSequence
|
|
sat temp[$2]
|
|
sat temp[$1]
|
|
sat temp[$0]
|
|
ldi $0
|
|
aTop killed
|
|
aTop oneOnly
|
|
lapi param[$1]
|
|
sat temp[$0]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_03a1
|
|
ldi $1
|
|
lapi param[$1]
|
|
sat temp[$1]
|
|
code_03a1: lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_03ae
|
|
ldi $2
|
|
lapi param[$1]
|
|
sat temp[$2]
|
|
code_03ae: ldi $1
|
|
aTop oneOnly
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_03c7
|
|
ldi $3 ; z
|
|
lapi param[$1]
|
|
bnt code_03c7
|
|
ldi $3 ; z
|
|
lapi param[$1]
|
|
aTop pCurSequence
|
|
jmp code_03cb
|
|
|
|
code_03c7: ldi $1
|
|
aTop pCurSequence
|
|
code_03cb: lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_03e4
|
|
ldi $4 ; scaleX
|
|
lapi param[$1]
|
|
bnt code_03e4
|
|
ldi $0
|
|
aTop oneOnly
|
|
ldi $4 ; scaleX
|
|
lapi param[$1]
|
|
aTop pLastSequence
|
|
jmp code_03e8
|
|
|
|
code_03e4: pToa pCurSequence
|
|
aTop pLastSequence
|
|
code_03e8: lsp param[$0]
|
|
ldi $5 ; scaleY
|
|
gt?
|
|
bnt code_03f5
|
|
ldi $5 ; scaleY
|
|
lapi param[$1]
|
|
aTop caller
|
|
code_03f5: lsp param[$0]
|
|
ldi $6 ; maxScale
|
|
gt?
|
|
bnt code_0404
|
|
ldi $6 ; maxScale
|
|
lapi param[$1]
|
|
sat temp[$3]
|
|
jmp code_0408
|
|
|
|
code_0404: lag global[$34]
|
|
sat temp[$3]
|
|
code_0408: pushi $6 ; maxScale
|
|
push0
|
|
lst temp[$3]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
pTos pCurSequence
|
|
callk kernel_72, $c
|
|
bnot
|
|
not
|
|
bnt code_0448
|
|
pushi $6 ; maxScale
|
|
lofsa string_008a ; "<Messager>\n"
|
|
push
|
|
lst temp[$3]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
pTos pCurSequence
|
|
calle export60029_1, $c
|
|
bnot
|
|
ldi $ea74 ; -5516
|
|
sat temp[$3]
|
|
ldi $c ; 12, inBottom
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$2]
|
|
sat temp[$1]
|
|
ldi $1
|
|
aTop pCurSequence
|
|
jmp code_045b
|
|
|
|
code_0448: pushi $288 ; 648, nextMsg
|
|
pushi $5 ; scaleY
|
|
lst temp[$3]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
pTos pCurSequence
|
|
self $e
|
|
bnot
|
|
code_045b: ret
|
|
|
|
Messager::sayNext:
|
|
ldi $0
|
|
aTop killed
|
|
aTop oneOnly
|
|
aTop caller
|
|
lap param[$0]
|
|
bnt code_046c
|
|
lap param[$1]
|
|
aTop caller
|
|
code_046c: pushi $288 ; 648, nextMsg
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
Messager::sayFormat:
|
|
link $2
|
|
lap param[$6]
|
|
aTop caller
|
|
ldi $1
|
|
aTop oneOnly
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $7 ; priority
|
|
push0
|
|
lsp param[$5]
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
lsp param[$4]
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_72, $e
|
|
bnot
|
|
pushi $f5 ; 245, format
|
|
push1
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
&rest $7 ; priority
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
lap param[$6]
|
|
bnt code_04d1
|
|
pushi $6 ; maxScale
|
|
lst temp[$0]
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
pushi $93 ; 147, pLine
|
|
push
|
|
pushi $c7 ; 199, cue
|
|
calle export60029_0, $c
|
|
bnot
|
|
jmp code_04e0
|
|
|
|
code_04d1: pushi $3 ; z
|
|
lst temp[$0]
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
calle export60029_0, $6
|
|
bnot
|
|
code_04e0: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Messager::nextMsg:
|
|
link $5
|
|
pushi $d1 ; 209, newWith
|
|
push2
|
|
pushi $190 ; 400, createPoly
|
|
lofsa string_00c8 ; ""
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
lap param[$0]
|
|
bnt code_0520
|
|
pushi $7 ; priority
|
|
push0
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
lsp param[$4]
|
|
lsp param[$5]
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_72, $e
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0531
|
|
|
|
code_0520: push2
|
|
push1
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_72, $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_0531: lat temp[$0]
|
|
bnt code_055b
|
|
pToa pLastSequence
|
|
not
|
|
bt code_0541
|
|
pToa pLastSequence
|
|
bnt code_055b
|
|
pTos pCurSequence
|
|
le?
|
|
code_0541: bnt code_055b
|
|
pushi $94 ; 148, init
|
|
push2
|
|
pushSelf
|
|
lst temp[$1]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class MessagerDialog
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
send $8
|
|
bnot
|
|
jmp code_056b
|
|
|
|
code_055b: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_056b: ret
|
|
|