threememories
/
RealmFiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upload files to "Script"

This commit is contained in:
threememories 2026-04-27 01:32:19 +00:00
parent 00033710ed
commit 74e2a3c083
5 changed files with 4540 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

486
Script/Script60026.txt Normal file
View File

@ -0,0 +1,486 @@
export60026_0 = code_0010
export60026_1 = code_0104
export60026_2 = code_022e
; export60026_0
code_0010: pushi $4 ; scaleX
pushi $3 ; z
pushi $1a ; 26, signal
dup
pushi $97 ; 151, isKindOf
callk kernel_107, $8
bnot
sag global[$56]
pushi $4 ; scaleX
pushi $3 ; z
pushi $1a ; 26, signal
pushi $97 ; 151, isKindOf
pushi $1a ; 26, signal
callk kernel_107, $8
bnot
sag global[$57]
pushi $4 ; scaleX
pushi $3 ; z
pushi $1a ; 26, signal
pushi $97 ; 151, isKindOf
dup
callk kernel_107, $8
bnot
sag global[$58]
pushi $4 ; scaleX
pushi $3 ; z
pushi $97 ; 151, isKindOf
pushi $1a ; 26, signal
dup
callk kernel_107, $8
bnot
sag global[$59]
pushi $4 ; scaleX
pushi $3 ; z
pushi $97 ; 151, isKindOf
pushi $1a ; 26, signal
pushi $97 ; 151, isKindOf
callk kernel_107, $8
bnot
sag global[$5a]
pushi $4 ; scaleX
pushi $3 ; z
pushi $97 ; 151, isKindOf
pushi $59 ; 89, 'Y', printLang
pushi $1a ; 26, signal
callk kernel_107, $8
bnot
sag global[$5b]
pushi $4 ; scaleX
pushi $3 ; z
pushi $9f ; 159, add
dup
dup
callk kernel_107, $8
bnot
sag global[$5c]
pushi $4 ; scaleX
pushi $3 ; z
pushi $3f ; 63, '?', xStep
dup
dup
callk kernel_107, $8
bnot
sag global[$5d]
pushi $4 ; scaleX
pushi $3 ; z
pushi $46 ; 70, 'F', isBlocked
dup
pushi $de ; 222, centerIn
callk kernel_107, $8
bnot
sag global[$5e]
pushi $4 ; scaleX
pushi $3 ; z
pushi $46 ; 70, 'F', isBlocked
pushi $de ; 222, centerIn
pushi $46 ; 70, 'F', isBlocked
callk kernel_107, $8
bnot
sag global[$5f]
pushi $4 ; scaleX
pushi $3 ; z
pushi $46 ; 70, 'F', isBlocked
pushi $de ; 222, centerIn
dup
callk kernel_107, $8
bnot
sag global[$60]
pushi $4 ; scaleX
pushi $3 ; z
pushi $de ; 222, centerIn
pushi $46 ; 70, 'F', isBlocked
dup
callk kernel_107, $8
bnot
sag global[$61]
pushi $4 ; scaleX
pushi $3 ; z
pushi $de ; 222, centerIn
pushi $46 ; 70, 'F', isBlocked
pushi $de ; 222, centerIn
callk kernel_107, $8
bnot
sag global[$62]
pushi $4 ; scaleX
pushi $3 ; z
pushi $d8 ; 216, callKernel
dup
pushi $26 ; 38, '&', back
callk kernel_107, $8
bnot
sag global[$63]
pushi $4 ; scaleX
pushi $3 ; z
pushi $df ; 223, centerOn
dup
dup
callk kernel_107, $8
bnot
sag global[$55]
ret
; export60026_1
code_0104: link $3
pushi $e ; 14, view
push0
lap param[$1]
send $4
bnot
push
ldi $ff ; 255, asInteger
ne?
bnt code_0149
pushi $8 ; fixPriority
pushi $9 ; inLeft
pushi $e ; 14, view
push0
lap param[$1]
send $4
bnot
push
pushi $f ; 15, loop
push0
lap param[$1]
send $4
bnot
push
pushi $10 ; 16, cel
push0
lap param[$1]
send $4
bnot
push
pushi $ff ; 255, asInteger
dup
push1
pushi $17a ; 378, clut
push0
lap param[$1]
send $4
bnot
push
callk kernel_35, $10
bnot
sat temp[$0]
jmp code_01a4
code_0149: push0
push0
lap param[$1]
send $4
bnot
bnt code_015b
push0
push0
lap param[$1]
send $4
bnot
jmp code_0162
code_015b: push0
push0
lag global[$3]
send $4
bnot
code_0162: sat temp[$1]
pushi $7 ; priority
push0
pushi $4e ; 78, 'N', width
push0
lap param[$1]
send $4
bnot
push
pushi $e1 ; 225, height
push0
lap param[$1]
send $4
bnot
push
pushi $72 ; 114, 'r', skip
push0
lap param[$1]
send $4
bnot
push
pushi $26 ; 38, '&', back
push0
lap param[$1]
send $4
bnot
push
pushi $6e ; 110, 'n', resX
push0
lat temp[$1]
send $4
bnot
push
pushi $6f ; 111, 'o', resY
push0
lat temp[$1]
send $4
bnot
push
callk kernel_35, $e
bnot
sat temp[$0]
code_01a4: pushi $99 ; 153, respondsTo
push1
pushi $23 ; 35, '#', text
lap param[$1]
send $6
bnot
bnt code_022b
pushi $23 ; 35, '#', text
push0
lap param[$1]
send $4
bnot
bnt code_022b
pushi $f ; 15, loop
pushi $4 ; scaleX
lst temp[$0]
push2
pushi $9 ; inLeft
pushi $23 ; 35, '#', text
push0
lap param[$1]
send $4
bnot
push
callk kernel_91, $4
bnot
push
push0
push0
pushi $4e ; 78, 'N', width
push0
lap param[$1]
send $4
bnot
push
pushi $e1 ; 225, height
push0
lap param[$1]
send $4
bnot
push
pushi $25 ; 37, '%', fore
push0
lap param[$1]
send $4
bnot
push
pushi $26 ; 38, '&', back
push0
lap param[$1]
send $4
bnot
push
pushi $72 ; 114, 'r', skip
push0
lap param[$1]
send $4
bnot
push
pushi $2a ; 42, '*', font
push0
lap param[$1]
send $4
bnot
push
pushi $27 ; 39, ''', mode
push0
lap param[$1]
send $4
bnot
push
pushi $7a ; 122, 'z', borderColor
push0
lap param[$1]
send $4
bnot
push
pushi $7e ; 126, '~', dimmed
push0
lap param[$1]
send $4
bnot
push
push0
callk kernel_35, $1e
bnot
code_022b: lat temp[$0]
ret
; export60026_2
code_022e: link $2
pushi $71 ; 113, 'q', data
push0
lofsa DispTextArray
send $4
bnot
not
bnt code_0250
pushi $71 ; 113, 'q', data
push1
pushi $3 ; z
push0
pushi $32 ; 50, '2', edit
push0
callk kernel_91, $6
bnot
push
lofsa DispTextArray
send $6
bnot
code_0250: lsp param[$1]
ldi $ff ; 255, asInteger
eq?
bnt code_0293
ldi $0
sat temp[$1]
code_025b: lst temp[$1]
pushi $5a ; 90, 'Z', size
push0
lofsa DispTextArray
send $4
bnot
lt?
bnt code_0342
pushi $4b ; 75, 'K', at
push1
lst temp[$1]
lofsa DispTextArray
send $6
bnot
sat temp[$0]
bnt code_028c
pushi $95 ; 149, dispose
push0
send $4
bnot
pushi $4b ; 75, 'K', at
push2
lst temp[$1]
push0
lofsa DispTextArray
send $8
bnot
code_028c: +at temp[$1]
jmp code_025b
jmp code_0342
code_0293: pushi $4b ; 75, 'K', at
push1
lsp param[$1]
lofsa DispTextArray
send $6
bnot
sat temp[$0]
bnt code_02b5
pushi $95 ; 149, dispose
push0
send $4
bnot
pushi $4b ; 75, 'K', at
push2
lsp param[$1]
push0
lofsa DispTextArray
send $8
bnot
code_02b5: lsp param[$0]
ldi $1
gt?
bnt code_0342
lap param[$2]
bnt code_0342
pushi $4b ; 75, 'K', at
push2
lsp param[$1]
pushi $23 ; 35, '#', text
push1
pushi $d0 ; 208, with
push1
lsp param[$2]
class Str
send $6
bnot
push
pushi $db ; 219, moveTo
push2
lsp param[$0]
ldi $2
gt?
bnt code_02e5
lap param[$3]
jmp code_02e7
code_02e5: ldi $a ; 10, inTop
code_02e7: push
lsp param[$0]
ldi $3 ; z
gt?
bnt code_02f3
lap param[$4]
jmp code_02fc
code_02f3: lsp param[$1]
ldi $10 ; 16, cel
mod
push
ldi $c ; 12, inBottom
mul
code_02fc: push
pushi $25 ; 37, '%', fore
push1
lsp param[$0]
ldi $4 ; scaleX
gt?
bnt code_030b
lap param[$5]
jmp code_030d
code_030b: lag global[$55]
code_030d: push
pushi $2a ; 42, '*', font
push1
lsp param[$0]
ldi $5 ; scaleY
gt?
bnt code_031c
lap param[$6]
jmp code_031e
code_031c: lag global[$3a]
code_031e: push
pushi $29 ; 41, ')', state
push1
push0
pushi $1be ; 446, setSize
push0
pushi $94 ; 148, init
push0
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class TextItem
send $4
bnot
send $2c
bnot
push
lofsa DispTextArray
send $8
bnot
code_0342: ret

604
Script/Script60027.txt Normal file
View File

@ -0,0 +1,604 @@
export60027_0 = code_0028
export60027_1 = code_003f
export60027_2 = code_0056
export60027_3 = code_008a
export60027_4 = code_0096
export60027_5 = code_00af
export60027_6 = code_007e
export60027_7 = code_00c0
export60027_8 = code_0071
export60027_9 = code_00d9
export60027_10 = code_00fb
export60027_11 = code_0107
export60027_12 = code_017d
export60027_13 = code_01c1
export60027_14 = code_0272
export60027_15 = code_0315
; export60027_0
code_0028: pushi $61 ; 97, 'a', frame
lap param[$1]
le?
bnt code_003c
pprev
ldi $7a ; 122, 'z', borderColor
le?
bnt code_003c
lsp param[$1]
ldi $20 ; 32, ' ', name
sub
jmp code_003e
code_003c: lap param[$1]
code_003e: ret
; export60027_1
code_003f: pushi $41 ; 65, 'A', moveSpeed
lap param[$1]
le?
bnt code_0053
pprev
ldi $5a ; 90, 'Z', size
le?
bnt code_0053
lsp param[$1]
ldi $20 ; 32, ' ', name
add
jmp code_0055
code_0053: lap param[$1]
code_0055: ret
; export60027_2
code_0056: lsp param[$1]
ldi $20 ; 32, ' ', name
eq?
bt code_0070
lsp param[$1]
ldi $d ; 13, seenRect
eq?
bt code_0070
lsp param[$1]
ldi $a ; 10, inTop
eq?
bt code_0070
lsp param[$1]
ldi $9 ; inLeft
eq?
code_0070: ret
; export60027_8
code_0071: lsp param[$1]
ldi $20 ; 32, ' ', name
lt?
bt code_007d
lsp param[$1]
ldi $7f ; 127, frameOut
gt?
code_007d: ret
; export60027_6
code_007e: pushi $20 ; 32, ' ', name
lap param[$1]
le?
bnt code_0089
pprev
ldi $7e ; 126, '~', dimmed
le?
code_0089: ret
; export60027_3
code_008a: pushi $30 ; 48, '0', who
lap param[$1]
le?
bnt code_0095
pprev
ldi $39 ; 57, '9', b_moveCnt
le?
code_0095: ret
; export60027_4
code_0096: pushi $41 ; 65, 'A', moveSpeed
lap param[$1]
le?
bnt code_00a1
pprev
ldi $5a ; 90, 'Z', size
le?
code_00a1: bt code_00ae
pushi $61 ; 97, 'a', frame
lap param[$1]
le?
bnt code_00ae
pprev
ldi $7a ; 122, 'z', borderColor
le?
code_00ae: ret
; export60027_5
code_00af: push1
lsp param[$1]
call code_0089, $2
bnot
bt code_00bf
push1
lsp param[$1]
call code_0095, $2
bnot
code_00bf: ret
; export60027_7
code_00c0: lsp param[$1]
ldi $20 ; 32, ' ', name
ne?
bnt code_00d8
push1
lsp param[$1]
call code_007d, $2
bnot
bnt code_00d8
push1
lsp param[$1]
call code_00ae, $2
bnot
not
code_00d8: ret
; export60027_9
code_00d9: push1
lsp param[$1]
call code_0089, $2
bnot
bt code_00fa
pushi $61 ; 97, 'a', frame
lap param[$1]
le?
bnt code_00ed
pprev
ldi $66 ; 102, 'f', flags
le?
code_00ed: bt code_00fa
pushi $41 ; 65, 'A', moveSpeed
lap param[$1]
le?
bnt code_00fa
pprev
ldi $46 ; 70, 'F', isBlocked
le?
code_00fa: ret
; export60027_10
code_00fb: pushi $16 ; 22, lsLeft
lap param[$1]
le?
bnt code_0106
pprev
ldi $1f ; 31, brBottom
le?
code_0106: ret
; export60027_11
code_0107: link $3
lsp param[$0]
ldi $2
gt?
bnt code_0116
lap param[$3]
sat temp[$1]
jmp code_011a
code_0116: ldi $0
sat temp[$1]
code_011a: lsp param[$0]
ldi $3 ; z
gt?
bnt code_0127
lap param[$4]
sat temp[$2]
jmp code_0142
code_0127: pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
sat temp[$2]
push
pushi $5a ; 90, 'Z', size
push0
lap param[$2]
send $4
bnot
ne?
bnt code_0140
ldi $0
ret
code_0140: -at temp[$2]
code_0142: lat temp[$1]
sat temp[$0]
code_0146: lst temp[$0]
lat temp[$2]
le?
bnt code_017a
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lap param[$1]
send $6
bnot
push
call code_0027, $2
bnot
push
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lap param[$2]
send $6
bnot
push
call code_0027, $2
bnot
ne?
bnt code_0176
ldi $0
ret
code_0176: +at temp[$0]
jmp code_0146
code_017a: ldi $1
ret
; export60027_12
code_017d: link $3
lsp param[$0]
ldi $2
lt?
bnt code_018a
ldi $1
jmp code_018c
code_018a: lap param[$2]
code_018c: sat temp[$0]
pushi $d1 ; 209, newWith
push1
push
push2
push1
lsp param[$1]
callk kernel_92, $4
bnot
mul
push
class Str
send $6
bnot
sat temp[$1]
ldi $0
sat temp[$2]
code_01a8: lst temp[$2]
lat temp[$0]
lt?
bnt code_01be
pushi $f7 ; 247, cat
push1
lsp param[$1]
lat temp[$1]
send $6
bnot
+at temp[$2]
jmp code_01a8
code_01be: lat temp[$1]
ret
; export60027_13
code_01c1: link $7
lsp param[$0]
ldi $2
gt?
bnt code_01ce
lap param[$3]
jmp code_01d0
code_01ce: lag global[$3a]
code_01d0: sat temp[$3]
pushi $97 ; 151, isKindOf
push1
class Rect
push
lap param[$2]
send $6
bnot
bnt code_01e4
lap param[$2]
jmp code_0202
code_01e4: pushi $e5 ; 229, sizeToStr
pushi $3 ; z
lofsa string_0006 ; "w"
push
lst temp[$3]
lsp param[$2]
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class Rect
send $4
bnot
send $e
bnot
code_0202: sat temp[$0]
pushi $4e ; 78, 'N', width
push0
send $4
bnot
sat temp[$1]
pushi $e1 ; 225, height
push0
lat temp[$0]
send $4
bnot
sat temp[$2]
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
push
ldi $1
sub
sat temp[$5]
pushi $8d ; 141, new
push0
class Rect
send $4
bnot
sat temp[$4]
code_0230: pushi $e5 ; 229, sizeToStr
pushi $3 ; z
lsp param[$1]
lst temp[$3]
lst temp[$1]
lat temp[$4]
send $a
bnot
lst temp[$5]
ldi $0
lt?
bt code_0266
pushi $e1 ; 225, height
push0
lat temp[$4]
send $4
bnot
push
lat temp[$2]
le?
bt code_0266
pushi $4b ; 75, 'K', at
push2
lst temp[$5]
push0
lap param[$1]
send $8
bnot
-at temp[$5]
jmp code_0230
code_0266: pushi $95 ; 149, dispose
push0
lat temp[$4]
send $4
bnot
lat temp[$5]
ret
; export60027_14
code_0272: link $3
lsp param[$0]
ldi $1
gt?
bnt code_0287
lsp param[$2]
ldi $1
eq?
not
bnt code_0287
ldi $0
sap param[$2]
code_0287: lsp param[$0]
ldi $2
gt?
bnt code_02a2
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
push
lap param[$3]
ge?
bnt code_02a2
lap param[$3]
sat temp[$1]
jmp code_02a6
code_02a2: ldi $0
sat temp[$1]
code_02a6: lsp param[$0]
ldi $3 ; z
gt?
bnt code_02c1
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
push
lap param[$4]
ge?
bnt code_02c1
lap param[$4]
sat temp[$2]
jmp code_02c5
code_02c1: lat temp[$1]
sat temp[$2]
code_02c5: lat temp[$1]
sat temp[$0]
code_02c9: lst temp[$0]
lat temp[$2]
le?
bnt code_0312
lap param[$2]
bnt code_02f2
pushi $4b ; 75, 'K', at
push2
lst temp[$0]
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lap param[$1]
send $6
bnot
push
call code_003e, $2
bnot
push
lap param[$1]
send $8
bnot
jmp code_030e
code_02f2: pushi $4b ; 75, 'K', at
push2
lst temp[$0]
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lap param[$1]
send $6
bnot
push
call code_0027, $2
bnot
push
lap param[$1]
send $8
bnot
code_030e: +at temp[$0]
jmp code_02c9
code_0312: lap param[$1]
ret
; export60027_15
code_0315: link $1
push1
lsp param[$1]
calle export60000_0, $2
bnot
bt code_0330
push2
pushi $4 ; scaleX
lsp param[$1]
callk kernel_105, $4
bnot
push
ldi $33 ; 51, '3', play
eq?
code_0330: bnt code_03b7
pushi $d0 ; 208, with
push1
lsp param[$1]
class Str
send $6
bnot
sap param[$1]
pushi $d0 ; 208, with
push1
pushi $88 ; 136, right
push1
push2
send $6
bnot
push
class Str
send $6
bnot
sat temp[$0]
pushi $4 ; scaleX
push0
lofsa string_0008 ; "ss"
push
push2
pushi $9 ; inLeft
lst temp[$0]
callk kernel_91, $4
bnot
push
push2
callk kernel_92, $8
bnot
bnt code_039f
pushi $4b ; 75, 'K', at
push1
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
push
ldi $1
sub
push
lap param[$1]
send $6
bnot
push
ldi $73 ; 115, 's', center
eq?
bnt code_039f
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
pushi $95 ; 149, dispose
push0
lap param[$1]
send $4
bnot
lofsa string_000b ; "are"
ret
jmp code_03bb
code_039f: pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
pushi $95 ; 149, dispose
push0
lap param[$1]
send $4
bnot
lofsa string_000f ; "is"
ret
jmp code_03bb
code_03b7: lofsa string_0012 ; "Unknown item is"
ret
code_03bb: ret

152
Script/Script60028.txt Normal file
View File

@ -0,0 +1,152 @@
Sequence::new:
link $1
pushi $71 ; 113, 'q', data
push1
lsp param[$1]
pushi $8d ; 141, new
push0
super Obj, $4
bnot
sat temp[$0]
send $6
bnot
lat temp[$0]
ret
Sequence::next:
link $1
pTos nextNode
ldi $1
add
aTop nextNode
pToa nextNode
sat temp[$0]
push
pushi $5a ; 90, 'Z', size
push0
pToa data
send $4
bnot
lt?
bnt code_007f
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
pToa data
send $6
bnot
ret
jmp code_0082
code_007f: ldi $0
ret
code_0082: ret
Sequence::prev:
link $1
pTos nextNode
dup
ldi $ff ; 255, asInteger
eq?
bnt code_00a1
pushi $5a ; 90, 'Z', size
push0
pToa data
send $4
bnot
push
ldi $1
sub
aTop nextNode
pToa nextNode
sat temp[$0]
jmp code_00ac
code_00a1: pTos nextNode
ldi $1
sub
aTop nextNode
pToa nextNode
sat temp[$0]
code_00ac: toss
lst temp[$0]
ldi $0
ge?
bnt code_00c1
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
pToa data
send $6
bnot
ret
jmp code_00c4
code_00c1: ldi $0
ret
code_00c4: ret
Sequence::begin:
ldi $0
aTop nextNode
ret
Sequence::end:
ldi $ff ; 255, asInteger
aTop nextNode
ret
Sequence::set:
link $1
pushi $b3 ; 179, begin
push0
self $4
bnot
code_00d8: pushi $4c ; 76, 'L', next
push0
self $4
bnot
sat temp[$0]
bnt code_00e9
lsp param[$1]
ne?
bnt code_00e9
jmp code_00d8
code_00e9: lsp param[$1]
lat temp[$0]
eq?
ret
Sequence::value:
pTos nextNode
pushi $5a ; 90, 'Z', size
push0
pToa data
send $4
bnot
lt?
bnt code_0110
pTos nextNode
ldi $0
ge?
bnt code_0110
pushi $4b ; 75, 'K', at
push1
pTos nextNode
pToa data
send $6
bnot
ret
jmp code_0113
code_0110: ldi $0
ret
code_0113: ret

2588
Script/Script60029.txt Normal file
View File

File diff suppressed because it is too large Load Diff

710
Script/Script60031.txt Normal file
View File

@ -0,0 +1,710 @@
Feature::dispose:
pushi $18f ; 399, setPolygon
push1
push0
self $6
bnot
pToa actions
bnt code_00e3
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop actions
code_00e3: pToa onMeCheck
bnt code_00f2
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop onMeCheck
code_00f2: pushi $95 ; 149, dispose
push0
super BitMap, $4
bnot
ret
Feature::getName:
link $2
pTos modNum
ldi $0
gt?
bnt code_018e
pTos modNum
pushi $180 ; 384, modNum
push0
lag global[$3]
send $4
bnot
ne?
bnt code_018e
pushi $6 ; maxScale
push2
pTos modNum
pTos noun
push0
pTos case
push1
callk kernel_72, $c
bnot
bnt code_014b
pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$0]
pushi $7 ; priority
push0
pTos modNum
pTos noun
push0
pTos case
push1
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_72, $e
bnot
lat temp[$0]
ret
jmp code_019a
code_014b: pushi $6 ; maxScale
push2
pTos modNum
pTos noun
push0
push0
push1
callk kernel_72, $c
bnot
bnt code_0180
pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$0]
pushi $7 ; priority
push0
pTos modNum
pTos noun
push0
push0
push1
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_72, $e
bnot
lat temp[$0]
ret
jmp code_019a
code_0180: pushi $f6 ; 246, newCopies
push1
pTos name
class Str
send $6
bnot
ret
jmp code_019a
code_018e: pushi $f6 ; 246, newCopies
push1
pTos name
class Str
send $6
bnot
ret
code_019a: ret
Feature::handleEvent:
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
super BitMap, $6
bnot
bnt code_01ac
ldi $0
jmp code_0243
code_01ac: pToa canDrag
bnt code_01f9
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $1
eq?
bnt code_01f9
pushi $48 ; 72, 'H', modifiers
push0
lap param[$1]
send $4
bnot
push
ldi $3 ; z
and
bnt code_01f9
pushi $a3 ; 163, contains
push2
push1
push0
lap param[$1]
send $4
bnot
push
push2
push0
lap param[$1]
send $4
bnot
push
self $8
bnot
bnt code_01f9
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
pushi $ee ; 238, drag
push1
lsp param[$1]
self $6
bnot
jmp code_0243
code_01f9: pToa canDrag
not
bnt code_0243
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $1
eq?
bnt code_0243
pushi $48 ; 72, 'H', modifiers
push0
lap param[$1]
send $4
bnot
push
ldi $3 ; z
and
bnt code_0243
pushi $a3 ; 163, contains
push2
push1
push0
lap param[$1]
send $4
bnot
push
push2
push0
lap param[$1]
send $4
bnot
push
self $8
bnot
bnt code_0243
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
pushi $191 ; 401, help
push0
self $4
bnot
code_0243: pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
ret
Feature::onMe:
link $2
lsp param[$0]
ldi $1
eq?
bnt code_0269
push1
push0
lap param[$1]
send $4
bnot
sat temp[$0]
push2
push0
lap param[$1]
send $4
bnot
sat temp[$1]
jmp code_0271
code_0269: lap param[$1]
sat temp[$0]
lap param[$2]
sat temp[$1]
code_0271: pToa onMeCheck
not
bnt code_02a1
pToa left
bt code_0284
pToa right
bt code_0284
pToa top
bt code_0284
pToa bottom
code_0284: not
bt code_02d0
pTos left
lat temp[$0]
le?
bnt code_02d0
pprev
pToa right
le?
bnt code_02d0
pTos top
lat temp[$1]
le?
bnt code_02d0
pprev
pToa bottom
le?
jmp code_02d0
code_02a1: pushi $97 ; 151, isKindOf
push1
class List
push
pToa onMeCheck
send $6
bnot
bnt code_02c3
pushi $a0 ; 160, firstTrue
pushi $3 ; z
pushi $eb ; 235, onMe
lst temp[$0]
lst temp[$1]
pToa onMeCheck
send $a
bnot
jmp code_02d0
code_02c3: pushi $eb ; 235, onMe
push2
lst temp[$0]
lst temp[$1]
pToa onMeCheck
send $8
bnot
code_02d0: ret
Feature::doVerb:
link $5
lag global[$2c]
bnt code_02d9
jmp code_02dc
code_02d9: lofsa dftDoVerb
code_02dc: sat temp[$0]
pTos modNum
ldi $ff ; 255, asInteger
eq?
bnt code_02e9
lag global[$34]
aTop modNum
code_02e9: lag global[$45]
bnt code_0316
pushi $6 ; maxScale
push0
pTos modNum
pTos noun
lsp param[$1]
pTos case
push1
callk kernel_72, $c
bnot
bnt code_0316
pushi $193 ; 403, say
pushi $6 ; maxScale
pTos noun
lsp param[$1]
pTos case
push0
push0
pTos modNum
lag global[$14]
send $10
bnot
jmp code_0321
code_0316: pushi $45 ; 69, 'E', doit
push2
lsp param[$1]
pushSelf
lat temp[$0]
send $8
bnot
code_0321: ret
Feature::actionVerbs:
link $1
lap param[$0]
bnt code_0375
pToa _actionVerbs
bnt code_033b
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
send $8
bnot
ldi $0
aTop _actionVerbs
code_033b: lsp param[$1]
ldi $0
ge?
bnt code_0385
pushi $20 ; 32, ' ', name
push1
lofsa string_00a0 ; "actionVerbsList"
push
pushi $8d ; 141, new
push0
class List
send $4
bnot
aTop _actionVerbs
send $6
bnot
ldi $0
sat temp[$0]
code_035b: lst temp[$0]
lap param[$0]
lt?
bnt code_0385
pushi $9f ; 159, add
push1
lat temp[$0]
lspi param[$1]
pToa _actionVerbs
send $6
bnot
+at temp[$0]
jmp code_035b
jmp code_0385
code_0375: pToa _actionVerbs
bnt code_0382
pushi $5a ; 90, 'Z', size
push0
send $4
bnot
ret
jmp code_0385
code_0382: ldi $0
ret
code_0385: ret
Feature::approachVerbs:
link $1
lap param[$0]
bnt code_03d4
ldi $0
lapi param[$1]
bnt code_03d4
pToa _approachVerbs
bnt code_03a1
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
send $8
bnot
code_03a1: pushi $20 ; 32, ' ', name
push1
lofsa string_00b0 ; "approachVerbsList"
push
pushi $8d ; 141, new
push0
class List
send $4
bnot
aTop _approachVerbs
send $6
bnot
ldi $0
sat temp[$0]
code_03ba: lst temp[$0]
lap param[$0]
lt?
bnt code_03e3
pushi $9f ; 159, add
push1
lat temp[$0]
lspi param[$1]
pToa _approachVerbs
send $6
bnot
+at temp[$0]
jmp code_03ba
jmp code_03e3
code_03d4: pToa _approachVerbs
bnt code_03e3
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop _approachVerbs
code_03e3: ret
Feature::facingMe:
link $4
lap param[$0]
bnt code_03f4
lap param[$1]
bnt code_03f4
lap param[$1]
sat temp[$0]
jmp code_0411
code_03f4: pushi $a3 ; 163, contains
push1
lsg global[$1]
pushi $f2 ; 242, pCast
push0
lag global[$3]
send $4
bnot
send $6
bnot
bnt code_040e
lag global[$1]
sat temp[$0]
jmp code_0411
code_040e: ldi $1
ret
code_0411: lst temp[$0]
selfID
eq?
bnt code_041a
ldi $1
ret
code_041a: lsp param[$0]
ldi $3 ; z
eq?
bnt code_042b
lap param[$2]
sat temp[$2]
lap param[$3]
sat temp[$3]
jmp code_0433
code_042b: pToa x
sat temp[$2]
pToa y
sat temp[$3]
code_0433: push1
pushi $4 ; scaleX
push1
push0
lat temp[$0]
send $4
bnot
push
push2
push0
lat temp[$0]
send $4
bnot
push
pTos x
pTos y
callk kernel_63, $8
bnot
push
pushi $43 ; 67, 'C', heading
push0
lat temp[$0]
send $4
bnot
sub
push
callk kernel_61, $2
bnot
sat temp[$1]
push
ldi $b4 ; 180, end
gt?
bnt code_046e
pushi $168 ; 360, pY1
lat temp[$1]
sub
sat temp[$1]
code_046e: lst temp[$1]
pToa sightAngle
le?
bnt code_047a
ldi $1
ret
jmp code_047d
code_047a: ldi $0
ret
code_047d: ret
Feature::setPolygon:
pToa onMeCheck
bnt code_048d
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop onMeCheck
code_048d: lap param[$0]
not
bt code_0497
lsp param[$1]
ldi $0
eq?
code_0497: bnt code_049c
ret
jmp code_04ca
code_049c: lsp param[$0]
ldi $1
eq?
bnt code_04ab
ldi $0
lapi param[$1]
aTop onMeCheck
jmp code_04ca
code_04ab: pushi $8d ; 141, new
push0
class List
send $4
bnot
aTop onMeCheck
pushi $9f ; 159, add
push1
lsp param[$1]
&rest $2
pushi $20 ; 32, ' ', name
push1
lofsa string_00c2 ; "omMeList"
push
pToa onMeCheck
send $c
bnot
code_04ca: ret
Feature::createPoly:
pToa onMeCheck
bnt code_04d6
pushi $95 ; 149, dispose
push0
send $4
bnot
code_04d6: pushi $8d ; 141, new
push0
class Polygon
send $4
bnot
aTop onMeCheck
pushi $94 ; 148, init
push1
lsp param[$1]
&rest $2
pushi $2b ; 43, '+', type
push1
push0
pToa onMeCheck
send $c
bnot
ret
Feature::help:
ret
Feature::trackDoit:
ldi $1
ret
Feature::dragDoit:
pushi $db ; 219, moveTo
push2
push1
push0
lap param[$1]
send $4
bnot
push
pTos left
pToa x
sub
sub
push
push2
push0
lap param[$1]
send $4
bnot
push
pTos top
pToa y
sub
sub
push
self $8
bnot
ret
Actions::doVerb:
ldi $0
ret
dftDoVerb::doit:
ldi $1
ret