417 lines
5.7 KiB
Plaintext
417 lines
5.7 KiB
Plaintext
ShadowText::centerOn:
|
|
link $4
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bnt code_00a4
|
|
ret
|
|
|
|
code_00a4: lap param[$1]
|
|
aTop pObj
|
|
push1
|
|
pTos pObj
|
|
callk kernel_20, $2
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa pObj
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
pToa pObj
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa pObj
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $df ; 223, centerOn
|
|
push2
|
|
pushi $88 ; 136, right
|
|
push0
|
|
pToa pObj
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$0]
|
|
ldi $2
|
|
div
|
|
sub
|
|
push
|
|
lst temp[$3]
|
|
super TextItem, $8
|
|
bnot
|
|
pushi $3 ; z
|
|
pushi $2335 ; 9013
|
|
push0
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
sat temp[$3]
|
|
pTos left
|
|
ldi $0
|
|
lt?
|
|
bnt code_010c
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
push0
|
|
pTos top
|
|
self $8
|
|
bnot
|
|
code_010c: pTos top
|
|
lat temp[$3]
|
|
lt?
|
|
bnt code_011e
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pTos left
|
|
lst temp[$3]
|
|
self $8
|
|
bnot
|
|
code_011e: push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pTos right
|
|
pushi $88 ; 136, right
|
|
push0
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_0149
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa right
|
|
sub
|
|
push
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0149: pTos bottom
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_016d
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
push0
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa bottom
|
|
sub
|
|
push
|
|
self $8
|
|
bnot
|
|
code_016d: pToa left
|
|
aTop x
|
|
pToa top
|
|
aTop y
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|
|
ShadowText::follow:
|
|
pushi $df ; 223, centerOn
|
|
push1
|
|
pTos pObj
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
ShadowText::init:
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
pushi $2710 ; 10000
|
|
self $6
|
|
bnot
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
aTop text
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
self $4
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $5 ; scaleY
|
|
gt?
|
|
bnt code_01b6
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lsp param[$6]
|
|
super TextItem, $6
|
|
bnot
|
|
jmp code_01be
|
|
|
|
code_01b6: pushi $94 ; 148, init
|
|
push0
|
|
super TextItem, $4
|
|
bnot
|
|
code_01be: pushi $db ; 219, moveTo
|
|
push2
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $8
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_0200
|
|
lsp param[$4]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_01f5
|
|
pushi $104 ; 260, cueSelector
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
pushi $106 ; 262, setReal
|
|
push2
|
|
pushSelf
|
|
lsp param[$4]
|
|
class GlobalTimer
|
|
send $8
|
|
bnot
|
|
aTop pTimer
|
|
send $6
|
|
bnot
|
|
code_01f5: lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_0200
|
|
lap param[$5]
|
|
aTop caller
|
|
code_0200: ret
|
|
|
|
ShadowText::dispose:
|
|
pToa pTimer
|
|
bnt code_020c
|
|
pushi $36 ; 54, '6', client
|
|
push1
|
|
push0
|
|
send $6
|
|
bnot
|
|
code_020c: pToa caller
|
|
bnt code_021b
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
push
|
|
push1
|
|
class GlobalTimer
|
|
send $8
|
|
bnot
|
|
code_021b: push1
|
|
pTos pObj
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0251
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
pToa pObj
|
|
send $6
|
|
bnot
|
|
bnt code_0251
|
|
pushi $32f ; 815, pMsgStr
|
|
push0
|
|
pToa pObj
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
bnt code_0251
|
|
pushi $32f ; 815, pMsgStr
|
|
push1
|
|
push0
|
|
pToa pObj
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pObj
|
|
code_0251: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super TextItem, $4
|
|
bnot
|
|
ret
|
|
|
|
ShadowText::setSize:
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
&rest $1
|
|
super TextItem, $4
|
|
bnot
|
|
pushi $e0 ; 224, widen
|
|
push1
|
|
push1
|
|
pushi $e2 ; 226, heighten
|
|
push1
|
|
push1
|
|
self $c
|
|
bnot
|
|
ret
|
|
|
|
ShadowText::draw:
|
|
link $1
|
|
pToa bitmap
|
|
sat temp[$0]
|
|
bnt code_028d
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pTos bitmap
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_028d: pushi $7 ; priority
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $20 ; 32, ' ', name
|
|
add
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $20 ; 32, ' ', name
|
|
add
|
|
push
|
|
pushi $72 ; 114, 'r', skip
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $26 ; 38, '&', back
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $6e ; 110, 'n', resX
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $6f ; 111, 'o', resY
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_35, $e
|
|
bnot
|
|
aTop bitmap
|
|
pushi $f ; 15, loop
|
|
pushi $4 ; scaleX
|
|
pTos bitmap
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos text
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
push1
|
|
push1
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos pShadowColor
|
|
pTos back
|
|
pTos skip
|
|
pTos font
|
|
pTos mode
|
|
pTos borderColor
|
|
pTos dimmed
|
|
push0
|
|
callk kernel_35, $1e
|
|
bnot
|
|
pushi $f ; 15, loop
|
|
pushi $4 ; scaleX
|
|
pTos bitmap
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos text
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
push0
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos fore
|
|
pTos back
|
|
pTos skip
|
|
pTos font
|
|
pTos mode
|
|
pTos borderColor
|
|
pTos dimmed
|
|
push0
|
|
callk kernel_35, $1e
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_033f
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
code_033f: ret
|
|
|