RealmFiles/Script/Script60063.txt

954 lines
14 KiB
Plaintext

EditItem::init:
pToa client
bnt code_00bd
ret
code_00bd: lap param[$0]
bnt code_00c9
lap param[$1]
bnt code_00c9
lap param[$1]
jmp code_00db
code_00c9: pToa client
not
bnt code_00d9
pushi $1d0 ; 464, pScreen
push0
lag global[$3]
send $4
bnot
jmp code_00db
code_00d9: pToa client
code_00db: aTop client
pTos fore
ldi $ff ; 255, asInteger
eq?
bnt code_00e8
lag global[$54]
aTop fore
code_00e8: pToa font
not
bnt code_00f1
lag global[$3a]
aTop font
code_00f1: pTos back
pushi $26 ; 38, '&', back
push0
class EditItem
send $4
bnot
eq?
bnt code_0102
lag global[$5c]
aTop back
code_0102: push0
push0
pToa client
send $4
bnot
aTop plane
push2
push1
pushSelf
callk kernel_74, $4
bnot
aTop editID
pushi $94 ; 148, init
push0
&rest $2
super <NIL>, $4
bnot
ret
EditItem::dispose:
pToa client
bnt code_012a
pushi $58 ; 88, 'X', delete
push1
pushSelf
send $6
bnot
code_012a: ldi $0
aTop plane
pToa editID
bnt code_0139
push2
push2
push
callk kernel_74, $4
bnot
code_0139: push1
pushSelf
callk kernel_11, $2
bnot
ret
EditItem::draw:
pushi $f0 ; 240, drawSelected
push0
self $4
bnot
pToa editID
bnt code_015b
pTos signal
ldi $8 ; fixPriority
or
aTop signal
push2
pushi $3 ; z
pTos editID
callk kernel_74, $4
bnot
code_015b: ret
EditItem::hide:
pToa editID
bnt code_0170
pTos signal
ldi $f7 ; 247, cat
and
aTop signal
push2
pushi $4 ; scaleX
pTos editID
callk kernel_74, $4
bnot
code_0170: ret
EditItem::drawSelected:
pToa editID
bnt code_0196
pTos state
ldi $8 ; fixPriority
and
bnt code_018a
pushi $3 ; z
pushi $7 ; priority
pTos editID
lsg global[$59]
callk kernel_74, $6
bnot
jmp code_0196
code_018a: pushi $3 ; z
pushi $7 ; priority
pTos editID
pTos back
callk kernel_74, $6
bnot
code_0196: ret
EditItem::handleEvent:
link $4
pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
sat temp[$0]
bnt code_01a6
ret
code_01a6: pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $1
eq?
bnt code_01db
pushi $a3 ; 163, contains
push1
lsp param[$1]
self $6
bnot
bnt code_01db
pTos state
ldi $8 ; fixPriority
and
not
bnt code_01db
pushi $1d4 ; 468, selectItem
push1
pushSelf
pToa client
send $6
bnot
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
ret
code_01db: pTos state
pToa activeState
and
push
pToa activeState
eq?
bnt code_03ba
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $4 ; scaleX
eq?
bnt code_03c6
pushi $31 ; 49, '1', message
push0
lap param[$1]
send $4
bnot
sat temp[$1]
pushi $1da ; 474, advanceSelect
push0
self $4
bnot
bnt code_021b
pushi $4 ; scaleX
lst temp[$1]
pushi $9 ; inLeft
pushi $f00 ; 3840, BAD SELECTOR
pushi $1b ; 27, illegalBits
calle export60025_4, $8
bnot
code_021b: bt code_023a
lst temp[$1]
ldi $d ; 13, seenRect
eq?
bnt code_022c
pushi $1d6 ; 470, crIsChar
push0
self $4
bnot
not
code_022c: bt code_023a
pushi $48 ; 72, 'H', modifiers
push0
lap param[$1]
send $4
bnot
push
ldi $8 ; fixPriority
and
code_023a: bnt code_0241
ldi $0
jmp code_03c6
code_0241: lst temp[$1]
ldi $4800 ; 18432
eq?
bt code_024f
lst temp[$1]
ldi $5000 ; 20480
eq?
code_024f: bnt code_0256
ldi $0
jmp code_03c6
code_0256: pushi $f5 ; 245, format
pushi $3 ; z
lofsa string_0084 ; "%s%c."
push
pTos text
lst temp[$1]
class Str
send $a
bnot
sat temp[$3]
pushi $1df ; 479, validKey
push2
lst temp[$1]
push
self $8
bnot
bnt code_03af
pushi $8d ; 141, new
push0
class Rect
send $4
bnot
sat temp[$2]
pushi $e5 ; 229, sizeToStr
pushi $3 ; z
lst temp[$3]
pTos font
pushi $ff ; 255, asInteger
send $a
bnot
push1
lst temp[$1]
calle export60027_8, $2
bnot
bnt code_02ad
pushi $3 ; z
pushi $5 ; scaleY
pTos editID
lsp param[$1]
callk kernel_74, $6
bnot
jmp code_039b
code_02ad: pTos numLines
ldi $1
gt?
bnt code_0332
pushi $e5 ; 229, sizeToStr
pushi $3 ; z
lst temp[$3]
pTos font
pushi $4e ; 78, 'N', width
push0
self $4
bnot
push
ldi $3 ; z
sub
push
lat temp[$2]
send $a
bnot
pToa max
bnt code_030e
push2
push1
push2
pushi $9 ; inLeft
pTos text
callk kernel_91, $4
bnot
push
callk kernel_92, $4
bnot
push
pToa max
lt?
bnt code_039b
pushi $e1 ; 225, height
push0
lat temp[$2]
send $4
bnot
push
pushi $e1 ; 225, height
push0
self $4
bnot
lt?
bnt code_039b
pushi $3 ; z
pushi $5 ; scaleY
pTos editID
lsp param[$1]
callk kernel_74, $6
bnot
jmp code_039b
code_030e: pushi $e1 ; 225, height
push0
lat temp[$2]
send $4
bnot
push
pushi $e1 ; 225, height
push0
self $4
bnot
le?
bnt code_039b
pushi $3 ; z
pushi $5 ; scaleY
pTos editID
lsp param[$1]
callk kernel_74, $6
bnot
jmp code_039b
code_0332: pushi $e5 ; 229, sizeToStr
pushi $3 ; z
lst temp[$3]
pTos font
pushi $ff ; 255, asInteger
lat temp[$2]
send $a
bnot
pToa max
bnt code_037d
push2
push1
push2
pushi $9 ; inLeft
pTos text
callk kernel_91, $4
bnot
push
callk kernel_92, $4
bnot
push
pToa max
lt?
bnt code_039b
pushi $4e ; 78, 'N', width
push0
lat temp[$2]
send $4
bnot
push
pushi $4e ; 78, 'N', width
push0
self $4
bnot
lt?
bnt code_039b
pushi $3 ; z
pushi $5 ; scaleY
pTos editID
lsp param[$1]
callk kernel_74, $6
bnot
jmp code_039b
code_037d: pushi $4e ; 78, 'N', width
push0
lat temp[$2]
send $4
bnot
push
pushi $4e ; 78, 'N', width
push0
self $4
bnot
lt?
bnt code_039b
pushi $3 ; z
pushi $5 ; scaleY
pTos editID
lsp param[$1]
callk kernel_74, $6
bnot
code_039b: pushi $95 ; 149, dispose
push0
lat temp[$2]
send $4
bnot
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
sat temp[$0]
code_03af: pushi $95 ; 149, dispose
push0
lat temp[$3]
send $4
bnot
jmp code_03c6
code_03ba: pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
super <NIL>, $6
bnot
sat temp[$0]
code_03c6: lat temp[$0]
ret
EditItem::track:
selfID
ret
EditItem::setSize:
link $3
pToa left
sat temp[$1]
pToa top
sat temp[$2]
pToa pRightMargin
bnt code_03dc
lsp param[$1]
eq?
code_03dc: pToa editID
bnt code_0446
pushi $8d ; 141, new
push0
class IntArray
send $4
bnot
sat temp[$0]
pushi $3 ; z
pushi $6 ; maxScale
pTos editID
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_74, $6
bnot
pushi $b5 ; 181, set
pushi $4 ; scaleX
pushi $4b ; 75, 'K', at
push1
push0
lat temp[$0]
send $6
bnot
push
pushi $4b ; 75, 'K', at
push1
push1
lat temp[$0]
send $6
bnot
push
pushi $4b ; 75, 'K', at
push1
push2
lat temp[$0]
send $6
bnot
push
pushi $4b ; 75, 'K', at
push1
pushi $3 ; z
lat temp[$0]
send $6
bnot
push
self $c
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
pushi $db ; 219, moveTo
push2
pTos x
pTos y
self $8
bnot
jmp code_04ce
code_0446: pTos max
ldi $0
ne?
bnt code_04ce
pTos numLines
ldi $0
ne?
bnt code_04ce
pushi $8d ; 141, new
push0
class Rect
send $4
bnot
sat temp[$0]
pushi $e5 ; 229, sizeToStr
pushi $3 ; z
lofsa string_008a ; "M"
push
pTos font
pushi $ff ; 255, asInteger
lat temp[$0]
send $a
bnot
pushi $e1 ; 225, height
push1
pushi $e1 ; 225, height
push0
lat temp[$0]
send $4
bnot
push
pToa numLines
mul
push
lat temp[$0]
send $6
bnot
pushi $4e ; 78, 'N', width
push1
lap param[$0]
bnt code_0496
lap param[$1]
jmp code_04ab
code_0496: pToa pRightMargin
bnt code_049c
jmp code_04ab
code_049c: pushi $4e ; 78, 'N', width
push0
lat temp[$0]
send $4
bnot
push
pTos max
pToa numLines
div
mul
code_04ab: push
lat temp[$0]
send $6
bnot
pushi $e3 ; 227, expand
push2
push2
push0
lat temp[$0]
send $8
bnot
pushi $d3 ; 211, copy
push1
lst temp[$0]
self $6
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
code_04ce: pushi $db ; 219, moveTo
push2
lst temp[$1]
lst temp[$2]
self $8
bnot
ret
EditItem::clear:
link $1
pushi $2b ; 43, '+', type
push1
pushi $4 ; scaleX
pushi $31 ; 49, '1', message
push1
pushi $3 ; z
pushi $8d ; 141, new
push0
class Event
send $4
bnot
sat temp[$0]
send $c
bnot
pushi $3 ; z
pushi $5 ; scaleY
pTos editID
lst temp[$0]
callk kernel_74, $6
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
ret
EditItem::matchSelected:
link $9
pToa matchSelector
bnt code_06b7
push2
push1
push2
pushi $9 ; inLeft
pTos text
callk kernel_91, $4
bnot
push
callk kernel_92, $4
bnot
sat temp[$8]
bnt code_06b7
pushi $24 ; 36, '$', elements
push0
pToa matchSelector
send $4
bnot
sat temp[$2]
ldi $0
sat temp[$5]
sat temp[$4]
pushi $1e1 ; 481, curItem
push0
pToa matchSelector
send $4
bnot
sat temp[$7]
bnt code_05bc
pushi $ae ; 174, indexOf
push1
push
lat temp[$2]
send $6
bnot
sat temp[$4]
push2
lst temp[$8]
push2
push1
pushi $71 ; 113, 'q', data
push0
lat temp[$7]
send $4
bnot
push
callk kernel_92, $4
bnot
push
calle export60025_2, $4
bnot
sat temp[$6]
ldi $0
sat temp[$1]
code_0570: lst temp[$1]
lat temp[$6]
lt?
bnt code_05bc
push1
pushi $3 ; z
push2
pushi $71 ; 113, 'q', data
push0
lat temp[$7]
send $4
bnot
push
lst temp[$1]
callk kernel_91, $6
bnot
push
calle export60027_0, $2
bnot
push
push1
pushi $3 ; z
push2
push2
pushi $9 ; inLeft
pTos text
callk kernel_91, $4
bnot
push
lst temp[$1]
callk kernel_91, $6
bnot
push
calle export60027_0, $2
bnot
ne?
bnt code_05b6
jmp code_05bc
jmp code_05b8
code_05b6: +at temp[$5]
code_05b8: +at temp[$1]
jmp code_0570
code_05bc: ldi $0
sat temp[$0]
code_05c0: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
lat temp[$2]
send $4
bnot
lt?
bnt code_0654
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lat temp[$2]
send $6
bnot
sat temp[$3]
push2
lst temp[$8]
push2
push1
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_92, $4
bnot
push
calle export60025_2, $4
bnot
sat temp[$6]
ldi $0
sat temp[$1]
code_05f8: lst temp[$1]
lat temp[$6]
lt?
bnt code_0640
push1
pushi $3 ; z
push2
pushi $71 ; 113, 'q', data
push0
lat temp[$3]
send $4
bnot
push
lst temp[$1]
callk kernel_91, $6
bnot
push
calle export60027_0, $2
bnot
push
push1
pushi $3 ; z
push2
push2
pushi $9 ; inLeft
pTos text
callk kernel_91, $4
bnot
push
lst temp[$1]
callk kernel_91, $6
bnot
push
calle export60027_0, $2
bnot
ne?
bnt code_063c
jmp code_0640
code_063c: +at temp[$1]
jmp code_05f8
code_0640: lst temp[$1]
lat temp[$5]
gt?
bnt code_064f
lat temp[$1]
sat temp[$5]
lat temp[$0]
sat temp[$4]
code_064f: +at temp[$0]
jmp code_05c0
code_0654: lat temp[$5]
bnt code_06b7
lat temp[$7]
not
bt code_066c
lst temp[$4]
pushi $ae ; 174, indexOf
push1
lst temp[$7]
lat temp[$2]
send $6
bnot
ne?
code_066c: bnt code_06b7
pushi $bb ; 187, start
push0
pToa matchSelector
send $4
bnot
push
lat temp[$4]
le?
bnt code_06a6
pprev
pushi $bb ; 187, start
push0
pToa matchSelector
send $4
bnot
push
pushi $1e2 ; 482, itemsPerPage
push0
pToa matchSelector
send $4
bnot
add
push
ldi $1
sub
le?
bnt code_06a6
pushi $1d4 ; 468, selectItem
push1
lst temp[$4]
pToa matchSelector
send $6
bnot
jmp code_06b7
code_06a6: pushi $d7 ; 215, move
push1
lst temp[$4]
pushi $1d4 ; 468, selectItem
push1
lst temp[$4]
pToa matchSelector
send $c
bnot
code_06b7: ret
EditItem::validKey:
pushi $7c ; 124, '|', titleBack
lap param[$1]
ne?
bnt code_06c9
push1
lsp param[$1]
calle export60027_6, $2
bnot
code_06c9: bt code_06e5
pushi $3 ; z
lsp param[$1]
pushi $20 ; 32, ' ', name
pushi $8 ; fixPriority
calle export60025_4, $6
bnot
bt code_06e5
pushi $1e0 ; 480, isControl
push1
lsp param[$1]
self $6
bnot
code_06e5: ret
EditItem::isControl:
pushi $12 ; 18, nsLeft
lsp param[$1]
pushi $3 ; z
pushi $1b ; 27, illegalBits
pushi $d ; 13, seenRect
pushi $9 ; inLeft
pushi $f00 ; 3840, BAD SELECTOR
pushi $4700 ; 18176
pushi $4800 ; 18432
pushi $4900 ; 18688
pushi $4b00 ; 19200
pushi $4c00 ; 19456
pushi $4d00 ; 19712
pushi $4f00 ; 20224
pushi $5000 ; 20480
pushi $5100 ; 20736
pushi $5200 ; 20992
pushi $5300 ; 21248
pushi $8 ; fixPriority
calle export60025_4, $24
bnot
ret