RealmFiles/Script/Script60068.txt

2037 lines
29 KiB
Plaintext

Selector::init:
link $1
lap param[$0]
bnt code_01d0
lap param[$1]
jmp code_01e2
code_01d0: pToa client
not
bnt code_01e0
pushi $1d0 ; 464, pScreen
push0
lag global[$3]
send $4
bnot
jmp code_01e2
code_01e0: pToa client
code_01e2: aTop client
pToa font
not
bnt code_01ed
lag global[$3b]
aTop font
code_01ed: pToa selectColor
not
bnt code_01f6
lag global[$61]
aTop selectColor
code_01f6: pushi $1d0 ; 464, pScreen
push0
lag global[$3]
send $4
bnot
push
pToa client
eq?
bnt code_020f
pushi $9f ; 159, add
push1
pushSelf
pToa client
send $6
bnot
code_020f: pTos top
pToa bottom
eq?
bnt code_021d
pushi $1be ; 446, setSize
push0
self $4
bnot
code_021d: pToa elements
bnt code_024b
pushi $5a ; 90, 'Z', size
push0
send $4
bnot
bnt code_024b
pushi $97 ; 151, isKindOf
push1
class <NIL>
push
pToa elements
send $6
bnot
bnt code_024b
pushi $e1 ; 225, height
push0
pushi $4b ; 75, 'K', at
push1
push0
pToa elements
send $6
bnot
send $4
bnot
aTop itemHeight
jmp code_025e
code_024b: pTos itemHeight
push2
push0
pTos font
callk kernel_73, $4
bnot
sat temp[$0]
lt?
bnt code_025e
lat temp[$0]
aTop itemHeight
code_025e: pToa allowDoubleClick
bnt code_0269
pTos state
ldi $2
or
aTop state
code_0269: ldi $0
aTop doubleClickTime
aTop doubleClickObj
aTop curItem
aTop start
pToa scrollBox
not
bnt code_046a
pushi $4e ; 78, 'N', width
push1
pTos itemWidth
pushi $e1 ; 225, height
push1
pTos itemHeight
pToa itemsPerPage
mul
push
pushi $db ; 219, moveTo
push2
pTos left
pTos bottom
pushi $17d ; 381, addItem
push0
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class <NIL>
send $4
bnot
aTop scrollBox
send $1c
bnot
pushi $23 ; 35, '#', text
push1
pushi $d0 ; 208, with
push1
lofsa string_0166 ; "\030"
push
class Str
send $6
bnot
push
pushi $25 ; 37, '%', fore
push1
lsg global[$54]
pushi $26 ; 38, '&', back
push1
lsg global[$5c]
pushi $1e7 ; 487, normalColor
push1
lsg global[$55]
pushi $2a ; 42, '*', font
push1
pTos font
pushi $1c1 ; 449, borderSize
push1
push1
pushi $1be ; 446, setSize
push0
pushi $4e ; 78, 'N', width
push1
pushi $a ; 10, inTop
pushi $51 ; 81, 'Q', value
push1
pushi $64 ; 100, 'd', moveDone
pushi $29 ; 41, ')', state
push1
push1
pushi $1c7 ; 455, handler
push1
pushSelf
pushi $8d ; 141, new
push0
lag global[$9]
send $4
bnot
aTop upArrow
send $40
bnot
pushi $db ; 219, moveTo
push2
pushi $88 ; 136, right
push0
pToa scrollBox
send $4
bnot
push
ldi $6 ; maxScale
add
push
pushi $89 ; 137, top
push0
pToa scrollBox
send $4
bnot
push
pToa upArrow
send $8
bnot
pushi $23 ; 35, '#', text
push1
pushi $d0 ; 208, with
push1
lofsa string_0168 ; "\031"
push
class Str
send $6
bnot
push
pushi $2a ; 42, '*', font
push1
pTos font
pushi $25 ; 37, '%', fore
push1
lsg global[$54]
pushi $26 ; 38, '&', back
push1
lsg global[$5c]
pushi $1e7 ; 487, normalColor
push1
lsg global[$55]
pushi $1c1 ; 449, borderSize
push1
push1
pushi $1be ; 446, setSize
push0
pushi $4e ; 78, 'N', width
push1
pushi $a ; 10, inTop
pushi $51 ; 81, 'Q', value
push1
pushi $65 ; 101, 'e', topString
pushi $29 ; 41, ')', state
push1
push1
pushi $1c7 ; 455, handler
push1
pushSelf
pushi $8d ; 141, new
push0
lag global[$9]
send $4
bnot
aTop downArrow
send $40
bnot
pushi $db ; 219, moveTo
push2
pushi $88 ; 136, right
push0
pToa scrollBox
send $4
bnot
push
ldi $6 ; maxScale
add
push
pushi $8a ; 138, bottom
push0
pToa scrollBox
send $4
bnot
push
pushi $e1 ; 225, height
push0
pToa downArrow
send $4
bnot
push
pushi $1c1 ; 449, borderSize
push0
pToa downArrow
send $4
bnot
sub
sub
push
pToa downArrow
send $8
bnot
pushi $4e ; 78, 'N', width
push1
pushi $a ; 10, inTop
pushi $e1 ; 225, height
push1
pushi $89 ; 137, top
push0
pToa downArrow
send $4
bnot
push
pushi $8a ; 138, bottom
push0
pToa upArrow
send $4
bnot
sub
push
ldi $4 ; scaleX
sub
push
pushi $db ; 219, moveTo
push2
pushi $88 ; 136, right
push0
pToa scrollBox
send $4
bnot
push
ldi $6 ; maxScale
add
push
pushi $8a ; 138, bottom
push0
pToa upArrow
send $4
bnot
push
ldi $3 ; z
add
push
pushi $206 ; 518, vTracking
push1
push1
pushi $1ff ; 511, topValue
push1
push0
pushi $200 ; 512, bottomValue
push1
push2
push1
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
sub
push
calle export60025_3, $4
bnot
push
pushi $1fe ; 510, stepSize
push1
push2
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pTos itemsPerPage
calle export60025_2, $4
bnot
push
pushi $205 ; 517, thumbSize
push1
pushi $a ; 10, inTop
pushi $207 ; 519, theObj
push1
pushSelf
pushi $208 ; 520, theSelector
push1
pushi $d7 ; 215, move
pushi $25 ; 37, '%', fore
push1
lsg global[$55]
pushi $26 ; 38, '&', back
push1
lsg global[$5d]
pushi $8d ; 141, new
push0
class Slider
send $4
bnot
aTop scrollBar
send $4a
bnot
pushi $8d ; 141, new
push0
class Set
send $4
bnot
aTop displayList
ldi $0
sat temp[$0]
code_0456: lst temp[$0]
pToa itemsPerPage
lt?
bnt code_046a
pushi $220 ; 544, makeDisplayItem
push1
lst temp[$0]
self $6
bnot
+at temp[$0]
jmp code_0456
code_046a: pTos client
pushi $1d0 ; 464, pScreen
push0
lag global[$3]
send $4
bnot
eq?
bnt code_04b9
pushi $94 ; 148, init
push1
pTos client
pToa upArrow
send $6
bnot
pushi $94 ; 148, init
push1
pTos client
pToa downArrow
send $6
bnot
pushi $94 ; 148, init
push1
pTos client
pToa scrollBox
send $6
bnot
pushi $94 ; 148, init
push1
pTos client
pToa scrollBar
send $6
bnot
pushi $9d ; 157, eachElementDo
push1
pushi $94 ; 148, init
pToa displayList
send $6
bnot
pushi $1ad ; 429, update
push0
self $4
bnot
jmp code_04ce
code_04b9: pToa client
bnt code_04ce
pushi $9f ; 159, add
pushi $4 ; scaleX
pTos upArrow
pTos downArrow
pTos scrollBox
pTos scrollBar
send $c
bnot
code_04ce: ret
Selector::dispose:
ldi $0
aTop scrollBox
aTop downArrow
aTop upArrow
aTop scrollBar
pToa displayList
bnt code_04ec
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
send $8
bnot
ldi $0
aTop displayList
code_04ec: pToa elements
bnt code_04ff
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
send $8
bnot
ldi $0
aTop elements
code_04ff: ldi $0
aTop right
aTop bottom
aTop left
aTop top
pushi $95 ; 149, dispose
push0
super <NIL>, $4
bnot
ret
Selector::moveTo:
link $2
pToa scrollBox
bnt code_0573
lsp param[$1]
pToa left
sub
sat temp[$0]
lsp param[$2]
pToa top
sub
sat temp[$1]
pushi $dd ; 221, moveBy
push2
lst temp[$0]
push
pToa scrollBox
send $8
bnot
pToa scrollBar
bnt code_0541
pushi $dd ; 221, moveBy
push2
lst temp[$0]
lst temp[$1]
send $8
bnot
code_0541: pToa upArrow
bnt code_0550
pushi $dd ; 221, moveBy
push2
lst temp[$0]
lst temp[$1]
send $8
bnot
code_0550: pToa downArrow
bnt code_055f
pushi $dd ; 221, moveBy
push2
lst temp[$0]
lst temp[$1]
send $8
bnot
code_055f: pToa displayList
bnt code_0573
pushi $9d ; 157, eachElementDo
pushi $3 ; z
pushi $dd ; 221, moveBy
lst temp[$0]
lst temp[$1]
send $a
bnot
code_0573: pushi $db ; 219, moveTo
push2
lsp param[$1]
lsp param[$2]
super <NIL>, $8
bnot
ret
Selector::moveBy:
pushi $db ; 219, moveTo
pushi $3 ; z
pTos left
lap param[$1]
add
push
pTos top
lap param[$2]
add
push
push1
self $a
bnot
ret
Selector::setSize:
pToa scrollBox
bnt code_05be
pushi $af ; 175, union
push1
push
self $6
bnot
pushi $af ; 175, union
push1
pTos scrollBar
self $6
bnot
pushi $af ; 175, union
push1
pTos upArrow
self $6
bnot
pushi $af ; 175, union
push1
pTos downArrow
self $6
bnot
code_05be: ret
Selector::select:
lap param[$1]
bnt code_05cc
pTos state
ldi $8 ; fixPriority
or
aTop state
jmp code_05d3
code_05cc: pTos state
ldi $f7 ; 247, cat
and
aTop state
code_05d3: pTos state
ldi $8 ; fixPriority
and
bnt code_05e7
pToa curItem
not
bnt code_05e7
pushi $1d4 ; 468, selectItem
push1
push0
self $6
bnot
code_05e7: ret
Selector::draw:
pToa scrollBox
bnt code_05f2
pushi $57 ; 87, 'W', draw
push0
send $4
bnot
code_05f2: pToa scrollBar
bnt code_05fc
pushi $57 ; 87, 'W', draw
push0
send $4
bnot
code_05fc: pToa upArrow
bnt code_0606
pushi $57 ; 87, 'W', draw
push0
send $4
bnot
code_0606: pToa downArrow
bnt code_0610
pushi $57 ; 87, 'W', draw
push0
send $4
bnot
code_0610: pToa displayList
bnt code_0620
pushi $9d ; 157, eachElementDo
push2
pushi $94 ; 148, init
pTos client
send $8
bnot
code_0620: pushi $1ad ; 429, update
push0
self $4
bnot
ret
Selector::drawItem:
link $6
lsp param[$1]
pToa start
lt?
bt code_0639
lsp param[$1]
pTos start
pToa itemsPerPage
add
ge?
code_0639: bnt code_063c
ret
code_063c: lsp param[$1]
pToa start
sub
sat temp[$2]
pushi $db ; 219, moveTo
push2
pushi $87 ; 135, left
push0
pToa scrollBox
send $4
bnot
push
pushi $89 ; 137, top
push0
pToa scrollBox
send $4
bnot
push
lst temp[$2]
pToa itemHeight
mul
add
push
ldi $1
add
push
pushi $4b ; 75, 'K', at
push1
lst temp[$2]
pToa displayList
send $6
bnot
sat temp[$4]
send $8
bnot
pushi $21e ; 542, updateItem
push2
lst temp[$4]
lsp param[$1]
self $8
bnot
bnt code_0687
ldi $0
jmp code_072a
code_0687: lsp param[$1]
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
lt?
bnt code_06fe
pushi $4b ; 75, 'K', at
push1
lsp param[$1]
pToa elements
send $6
bnot
sat temp[$3]
pushi $57 ; 87, 'W', draw
push1
lsp param[$0]
ldi $1
gt?
push
lat temp[$3]
send $6
bnot
pushi $11 ; 17, bitmap
push0
lat temp[$4]
send $4
bnot
bnt code_06db
push1
lst temp[$4]
callk kernel_31, $2
bnot
pushi $9f ; 159, add
push1
pushi $11 ; 17, bitmap
push0
lat temp[$4]
send $4
bnot
push
lag global[$66]
send $6
bnot
pushi $11 ; 17, bitmap
push1
push0
lat temp[$4]
send $6
bnot
code_06db: pushi $11 ; 17, bitmap
push1
pushi $11 ; 17, bitmap
push0
lat temp[$3]
send $4
bnot
push
lat temp[$4]
send $6
bnot
pushi $11 ; 17, bitmap
push1
push0
lat temp[$3]
send $6
bnot
push1
lst temp[$4]
callk kernel_30, $2
bnot
jmp code_072a
code_06fe: pushi $11 ; 17, bitmap
push0
lat temp[$4]
send $4
bnot
bnt code_072a
pushi $9f ; 159, add
push1
pushi $11 ; 17, bitmap
push0
lat temp[$4]
send $4
bnot
push
lag global[$66]
send $6
bnot
pushi $11 ; 17, bitmap
push1
push0
lat temp[$4]
send $6
bnot
push1
lst temp[$4]
callk kernel_31, $2
bnot
code_072a: lat temp[$4]
ret
Selector::updateItem:
ldi $0
ret
Selector::selectItem:
link $1
lsp param[$0]
ldi $1
gt?
bnt code_073b
lap param[$2]
code_073b: sat temp[$0]
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
bnt code_0762
lsp param[$1]
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
ge?
bnt code_0762
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
ldi $1
sub
sap param[$1]
code_0762: pTos curItem
pushi $4b ; 75, 'K', at
push1
lsp param[$1]
pToa elements
send $6
bnot
eq?
bt code_077c
lsp param[$1]
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
ge?
code_077c: bnt code_077f
ret
code_077f: pToa curItem
bnt code_079b
lat temp[$0]
not
bnt code_079b
pushi $21d ; 541, drawItem
push1
pushi $ae ; 174, indexOf
push1
pTos curItem
pToa elements
send $6
bnot
push
self $6
bnot
code_079b: lat temp[$0]
bt code_07ae
pushi $ae ; 174, indexOf
push1
pTos curItem
pToa elements
send $6
bnot
push
lap param[$1]
ne?
code_07ae: bnt code_07cd
pushi $4b ; 75, 'K', at
push1
lsp param[$1]
pToa elements
send $6
bnot
aTop curItem
pushi $21d ; 541, drawItem
push2
lsp param[$1]
pTos selectColor
self $8
bnot
lap param[$1]
aTop value
jmp code_07d5
code_07cd: ldi $0
aTop curItem
ldi $ff ; 255, asInteger
aTop value
code_07d5: ret
Selector::update:
link $2
pToa scrollBox
bnt code_0918
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
le?
bnt code_0884
pToa upArrow
bnt code_07fd
pushi $25 ; 37, '%', fore
push1
lsg global[$5d]
pushi $1b4 ; 436, enable
push1
push0
send $c
bnot
code_07fd: pToa downArrow
bnt code_080e
pushi $25 ; 37, '%', fore
push1
lsg global[$5d]
pushi $1b4 ; 436, enable
push1
push0
send $c
bnot
code_080e: pToa scrollBar
bnt code_081f
pushi $25 ; 37, '%', fore
push1
lsg global[$5d]
pushi $1b4 ; 436, enable
push1
push0
send $c
bnot
code_081f: pToa scrollBar
bnt code_0918
pushi $201 ; 513, thumb
push0
send $4
bnot
bnt code_0918
pushi $11 ; 17, bitmap
push0
pushi $201 ; 513, thumb
push0
pToa scrollBar
send $4
bnot
send $4
bnot
bnt code_0918
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
class Clut
send $4
bnot
sat temp[$1]
send $4
bnot
pushi $4b ; 75, 'K', at
push2
lsg global[$55]
lsg global[$5c]
lat temp[$1]
send $8
bnot
pushi $3 ; z
pushi $a ; 10, inTop
pushi $11 ; 17, bitmap
push0
pushi $201 ; 513, thumb
push0
pToa scrollBar
send $4
bnot
send $4
bnot
push
lst temp[$1]
callk kernel_35, $6
bnot
pushi $95 ; 149, dispose
push0
lat temp[$1]
send $4
bnot
jmp code_0918
code_0884: pToa upArrow
bnt code_0895
pushi $25 ; 37, '%', fore
push1
lsg global[$54]
pushi $1b4 ; 436, enable
push1
push1
send $c
bnot
code_0895: pToa downArrow
bnt code_08a6
pushi $25 ; 37, '%', fore
push1
lsg global[$54]
pushi $1b4 ; 436, enable
push1
push1
send $c
bnot
code_08a6: pToa scrollBar
bnt code_08b7
pushi $25 ; 37, '%', fore
push1
lsg global[$55]
pushi $1b4 ; 436, enable
push1
push1
send $c
bnot
code_08b7: pToa scrollBar
bnt code_0918
pushi $201 ; 513, thumb
push0
send $4
bnot
bnt code_0918
pushi $11 ; 17, bitmap
push0
pushi $201 ; 513, thumb
push0
pToa scrollBar
send $4
bnot
send $4
bnot
bnt code_0918
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
class Clut
send $4
bnot
sat temp[$1]
send $4
bnot
pushi $4b ; 75, 'K', at
push2
lsg global[$5c]
lsg global[$55]
lat temp[$1]
send $8
bnot
pushi $3 ; z
pushi $a ; 10, inTop
pushi $11 ; 17, bitmap
push0
pushi $201 ; 513, thumb
push0
pToa scrollBar
send $4
bnot
send $4
bnot
push
lst temp[$1]
callk kernel_35, $6
bnot
pushi $95 ; 149, dispose
push0
lat temp[$1]
send $4
bnot
code_0918: ldi $0
sat temp[$0]
code_091c: lst temp[$0]
pToa itemsPerPage
lt?
bnt code_0934
pushi $21d ; 541, drawItem
push1
lst temp[$0]
pToa start
add
push
self $6
bnot
+at temp[$0]
jmp code_091c
code_0934: pToa curItem
bnt code_0964
pushi $ae ; 174, indexOf
push1
push
pToa elements
send $6
bnot
sat temp[$0]
pTos start
le?
bnt code_0964
pprev
pTos start
pToa itemsPerPage
add
push
ldi $1
sub
le?
bnt code_0964
ldi $0
aTop curItem
pushi $1d4 ; 468, selectItem
push2
lst temp[$0]
push1
self $8
bnot
code_0964: ret
Selector::handleEvent:
link $6
ldi $0
sat temp[$5]
pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
bt code_097b
pTos state
ldi $1
and
not
code_097b: bnt code_0982
ldi $0
jmp code_0bef
code_0982: pTos state
ldi $8 ; fixPriority
and
bnt code_0a50
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $10 ; 16, cel
eq?
bnt code_0a50
pushi $31 ; 49, '1', message
push0
lap param[$1]
send $4
bnot
push
dup
ldi $1
eq?
bnt code_09f3
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
ldi $1
sat temp[$5]
pushi $ae ; 174, indexOf
push1
pTos curItem
pToa elements
send $6
bnot
sat temp[$4]
push
ldi $ff ; 255, asInteger
ne?
bnt code_0a4c
lst temp[$4]
ldi $0
gt?
bnt code_0a4c
-at temp[$4]
push
pToa start
lt?
bnt code_09e7
pushi $d7 ; 215, move
push1
pTos start
ldi $1
sub
push
self $6
bnot
code_09e7: pushi $1d4 ; 468, selectItem
push1
lst temp[$4]
self $6
bnot
jmp code_0a4c
code_09f3: dup
ldi $5 ; scaleY
eq?
bnt code_0a4c
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
ldi $1
sat temp[$5]
pushi $ae ; 174, indexOf
push1
pTos curItem
pToa elements
send $6
bnot
sat temp[$4]
push
ldi $ff ; 255, asInteger
ne?
bnt code_0a4c
lst temp[$4]
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
ldi $1
sub
lt?
bnt code_0a4c
+at temp[$4]
push
pTos start
pToa itemsPerPage
add
ge?
bnt code_0a43
pushi $d7 ; 215, move
push1
pTos start
ldi $1
add
push
self $6
bnot
code_0a43: pushi $1d4 ; 468, selectItem
push1
lst temp[$4]
self $6
bnot
code_0a4c: toss
jmp code_0bef
code_0a50: pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $1
and
bnt code_0afd
pushi $eb ; 235, onMe
push1
lsp param[$1]
pToa scrollBox
send $6
bnot
bnt code_0afd
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
ldi $1
sat temp[$5]
push2
push0
lap param[$1]
send $4
bnot
push
pushi $89 ; 137, top
push0
pToa scrollBox
send $4
bnot
sub
push
pushi $e1 ; 225, height
push0
pToa scrollBox
send $4
bnot
push
pToa itemsPerPage
div
div
sat temp[$3]
pToa allowDoubleClick
bnt code_0ada
pTos doubleClickObj
pToa curItem
eq?
bnt code_0ada
pushi $ae ; 174, indexOf
push1
pTos curItem
pToa elements
send $6
bnot
push
lst temp[$3]
pToa start
add
eq?
bnt code_0ada
push0
callk kernel_121, $0
bnot
push
pToa doubleClickTime
sub
push
ldi $14 ; 20, nsRight
lt?
bnt code_0ada
selfID
sat temp[$5]
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
jmp code_0bef
code_0ada: pushi $1d4 ; 468, selectItem
push1
lst temp[$3]
pToa start
add
push
self $6
bnot
pToa curItem
aTop doubleClickObj
push0
callk kernel_121, $0
bnot
aTop doubleClickTime
push0
callk kernel_33, $0
bnot
ldi $0
ret
jmp code_0bef
code_0afd: pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $1
and
bnt code_0bef
pushi $eb ; 235, onMe
push1
lsp param[$1]
pToa scrollBar
send $6
bnot
bnt code_0bef
pushi $201 ; 513, thumb
push0
pToa scrollBar
send $4
bnot
sat temp[$2]
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
pushi $a3 ; 163, contains
push1
lsp param[$1]
lat temp[$2]
send $6
bnot
bnt code_0b5a
pushi $200 ; 512, bottomValue
push1
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa scrollBar
send $6
bnot
pushi $20c ; 524, trackSlider
push1
push1
pToa scrollBar
send $6
bnot
jmp code_0bec
code_0b5a: push2
push0
lap param[$1]
send $4
bnot
push
pushi $89 ; 137, top
push0
lat temp[$2]
send $4
bnot
lt?
bnt code_0bad
pushi $200 ; 512, bottomValue
push1
push2
push1
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
sub
push
calle export60025_3, $4
bnot
push
pToa scrollBar
send $6
bnot
pushi $d7 ; 215, move
push1
pTos start
pToa itemsPerPage
sub
push
self $6
bnot
pushi $51 ; 81, 'Q', value
push1
pTos start
pushi $1ad ; 429, update
push0
pToa scrollBar
send $a
bnot
jmp code_0bec
code_0bad: pushi $200 ; 512, bottomValue
push1
push2
push1
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
sub
push
calle export60025_3, $4
bnot
push
pToa scrollBar
send $6
bnot
pushi $d7 ; 215, move
push1
pTos start
pToa itemsPerPage
add
push
ldi $1
add
push
self $6
bnot
pushi $51 ; 81, 'Q', value
push1
pTos start
pushi $1ad ; 429, update
push0
pToa scrollBar
send $a
bnot
code_0bec: ldi $0
ret
code_0bef: lat temp[$5]
ret
Selector::doit:
lsp param[$0]
ldi $1
gt?
bnt code_0c82
lsp param[$2]
ldi $45 ; 69, 'E', doit
eq?
bnt code_0c82
lsp param[$1]
dup
pToa upArrow
eq?
bnt code_0c3e
pTos start
ldi $0
gt?
bnt code_0c7f
pushi $200 ; 512, bottomValue
push1
push2
push1
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
sub
push
calle export60025_3, $4
bnot
push
pToa scrollBar
send $6
bnot
pushi $210 ; 528, retreat
push0
pToa scrollBar
send $4
bnot
jmp code_0c7f
code_0c3e: dup
pToa downArrow
eq?
bnt code_0c7f
pTos start
pToa itemsPerPage
add
push
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
le?
bnt code_0c7f
pushi $200 ; 512, bottomValue
push1
push2
push1
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
sub
push
calle export60025_3, $4
bnot
push
pToa scrollBar
send $6
bnot
pushi $20f ; 527, advance
push0
pToa scrollBar
send $4
bnot
code_0c7f: toss
jmp code_0c86
code_0c82: pToa curItem
aTop value
code_0c86: ldi $1
ret
Selector::move:
link $1
lap param[$0]
bnt code_0ce4
pToa start
sat temp[$0]
lap param[$1]
aTop start
pTos start
ldi $0
lt?
bnt code_0ca3
ldi $0
aTop start
code_0ca3: pTos start
pToa itemsPerPage
add
push
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
gt?
bnt code_0cd6
pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
lt?
bnt code_0cc8
ldi $0
aTop start
jmp code_0cd6
code_0cc8: pushi $5a ; 90, 'Z', size
push0
pToa elements
send $4
bnot
push
pToa itemsPerPage
sub
aTop start
code_0cd6: pTos start
lat temp[$0]
ne?
bnt code_0ce4
pushi $1ad ; 429, update
push0
self $4
bnot
code_0ce4: pToa start
ret
Selector::setList:
link $2
pToa elements
bnt code_0cfc
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
send $8
bnot
ldi $0
aTop elements
code_0cfc: pushi $8d ; 141, new
push0
class Set
send $4
bnot
aTop elements
ldi $0
sat temp[$0]
code_0d0b: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
lt?
bnt code_0d32
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lap param[$1]
send $6
bnot
sat temp[$1]
pushi $9f ; 159, add
push1
push
pToa elements
send $6
bnot
+at temp[$0]
jmp code_0d0b
code_0d32: ret
Selector::makeDisplayItem:
link $1
pushi $9f ; 159, add
push1
pushi $4e ; 78, 'N', width
push1
pushi $4e ; 78, 'N', width
push0
pToa scrollBox
send $4
bnot
push
ldi $1
sub
push
pushi $e1 ; 225, height
push1
pTos itemHeight
pushi $db ; 219, moveTo
push2
pushi $87 ; 135, left
push0
pToa scrollBox
send $4
bnot
push
pushi $89 ; 137, top
push0
pToa scrollBox
send $4
bnot
push
lsp param[$1]
pToa itemHeight
mul
add
push
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class <NIL>
send $4
bnot
sat temp[$0]
send $18
bnot
push
pToa displayList
send $6
bnot
lat temp[$0]
ret
TextSelector::dispose:
pToa elements
bnt code_0d98
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop elements
code_0d98: pushi $95 ; 149, dispose
push0
super Selector, $4
bnot
ret
TextSelector::setList:
link $3
pToa elements
bnt code_0db6
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
send $8
bnot
ldi $0
aTop elements
code_0db6: pushi $8d ; 141, new
push0
class Set
send $4
bnot
aTop elements
ldi $0
sat temp[$0]
code_0dc5: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
lt?
bnt code_0e4a
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lap param[$1]
send $6
bnot
sat temp[$2]
push1
push
calle export60000_0, $2
bnot
bnt code_0df6
pushi $97 ; 151, isKindOf
push1
class Str
push
lat temp[$2]
send $6
bnot
code_0df6: bt code_0e05
push2
pushi $4 ; scaleX
lst temp[$2]
callk kernel_105, $4
bnot
push
ldi $33 ; 51, '3', play
eq?
code_0e05: bnt code_0e45
pushi $221 ; 545, pSelector
push1
pushSelf
pushi $94 ; 148, init
push1
lst temp[$2]
pushi $8d ; 141, new
push0
lofsa SelectorText
send $4
bnot
sat temp[$1]
send $c
bnot
pushi $4e ; 78, 'N', width
push0
lat temp[$1]
send $4
bnot
push
pToa itemWidth
gt?
bnt code_0e3a
pushi $4e ; 78, 'N', width
push0
lat temp[$1]
send $4
bnot
aTop itemWidth
code_0e3a: pushi $9f ; 159, add
push1
lst temp[$1]
pToa elements
send $6
bnot
code_0e45: +at temp[$0]
jmp code_0dc5
code_0e4a: ret
SelectorText::init:
lap param[$0]
bnt code_0e53
lap param[$1]
aTop text
code_0e53: pToa text
bnt code_0e7d
pushi $e5 ; 229, sizeToStr
pushi $3 ; z
push
pToa pSelector
bnt code_0e75
pushi $2a ; 42, '*', font
push0
send $4
bnot
bnt code_0e75
pushi $2a ; 42, '*', font
push0
pToa pSelector
send $4
bnot
jmp code_0e77
code_0e75: lag global[$3b]
code_0e77: push
pushi $ff ; 255, asInteger
self $a
bnot
code_0e7d: pushi $94 ; 148, init
push0
super BitMap, $4
bnot
ret
SelectorText::dispose:
pushi $95 ; 149, dispose
push0
pToa text
send $4
bnot
pushi $95 ; 149, dispose
push0
&rest $1
super BitMap, $4
bnot
ret
SelectorText::addToCast:
ret
SelectorText::draw:
link $1
lap param[$1]
bnt code_0eae
pushi $1e8 ; 488, selectColor
push0
pToa pSelector
send $4
bnot
sat temp[$0]
jmp code_0eb8
code_0eae: pushi $26 ; 38, '&', back
push0
pToa pSelector
send $4
bnot
sat temp[$0]
code_0eb8: pToa bitmap
not
bnt code_0edf
pushi $5 ; scaleY
push0
pushi $213 ; 531, itemWidth
push0
pToa pSelector
send $4
bnot
push
pushi $212 ; 530, itemHeight
push0
pToa pSelector
send $4
bnot
push
pushi $fe ; 254, strIndex
lst temp[$0]
callk kernel_35, $a
bnot
aTop bitmap
code_0edf: pushi $17d ; 381, addItem
pushi $7 ; priority
pushi $3 ; z
pTos text
push0
push0
pushi $25 ; 37, '%', fore
push0
pToa pSelector
send $4
bnot
push
pushi $fe ; 254, strIndex
pushi $2a ; 42, '*', font
push0
pToa pSelector
send $4
bnot
bnt code_0f0b
pushi $2a ; 42, '*', font
push0
pToa pSelector
send $4
bnot
jmp code_0f0d
code_0f0b: lag global[$3b]
code_0f0d: push
self $12
bnot
ret