1663 lines
24 KiB
Plaintext
1663 lines
24 KiB
Plaintext
export000_0 = RoomZero
|
|
|
|
HandsOffCode::doit:
|
|
link $1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
class MovieCmdList
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_01b1
|
|
push2
|
|
lofsa string_05ee ; "You seem to be locked up with an hourglass. The currently active MovieCmd is (%s)."
|
|
push
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_132, $4
|
|
bnot
|
|
code_01b1: ldi $0
|
|
sag global[$e8]
|
|
ret
|
|
|
|
RoomZero::init:
|
|
link $4
|
|
push0
|
|
calle export60026_0, $0
|
|
bnot
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
sag global[$40]
|
|
class gDialogList
|
|
sag global[$68]
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sag global[$cf]
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
lofsa string_064e ; "login.lst"
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class File
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
send $6
|
|
bnot
|
|
pushi $248 ; 584, open
|
|
push1
|
|
push1
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
bnt code_0207
|
|
pushi $27a ; 634, readString
|
|
push2
|
|
lsg global[$cf]
|
|
pushi $11 ; 17, bitmap
|
|
lat temp[$3]
|
|
send $8
|
|
bnot
|
|
code_0207: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sag global[$d0]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sag global[$d7]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sag global[$de]
|
|
class RoomMgr
|
|
sag global[$30]
|
|
pushi $94 ; 148, init
|
|
push0
|
|
class LockMgr
|
|
send $4
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
class ActionQMgr
|
|
send $4
|
|
bnot
|
|
pushi $26 ; 38, '&', back
|
|
push1
|
|
lsg global[$54]
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
lsg global[$5c]
|
|
ldi $2
|
|
add
|
|
push
|
|
lofsa RealmWindow
|
|
sag global[$8]
|
|
send $c
|
|
bnot
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
lsg global[$5c]
|
|
ldi $2
|
|
add
|
|
push
|
|
lofsa FancyWindow
|
|
sag global[$4e]
|
|
send $6
|
|
bnot
|
|
pushi $26 ; 38, '&', back
|
|
push1
|
|
pushi $72 ; 114, 'r', skip
|
|
push0
|
|
class Button
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1e7 ; 487, normalColor
|
|
push1
|
|
pushi $72 ; 114, 'r', skip
|
|
push0
|
|
class Button
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
lsg global[$5c]
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $1e8 ; 488, selectColor
|
|
push1
|
|
lsg global[$5c]
|
|
ldi $2
|
|
add
|
|
push
|
|
pushi $1e9 ; 489, chosenColor
|
|
push1
|
|
lsg global[$5c]
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $1ea ; 490, dimColor
|
|
push1
|
|
lsg global[$5c]
|
|
lofsa RealmButton
|
|
sag global[$9]
|
|
send $24
|
|
bnot
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
lsg global[$62]
|
|
class TitleItem
|
|
send $6
|
|
bnot
|
|
class FancyDialog
|
|
sag global[$7]
|
|
ldi $270f ; 9999
|
|
sag global[$3b]
|
|
sag global[$3a]
|
|
ldi $1
|
|
sag global[$49]
|
|
class Messager
|
|
sag global[$14]
|
|
ldi $0
|
|
sag global[$69]
|
|
class NetUser
|
|
sag global[$e]
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
self $4
|
|
bnot
|
|
ldi $270f ; 9999
|
|
sag global[$b5]
|
|
ldi $f ; 15, loop
|
|
sag global[$b7]
|
|
lag global[$55]
|
|
sag global[$b6]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
push2
|
|
lofsa string_0658 ; "soundVolume"
|
|
push
|
|
lst temp[$2]
|
|
callk kernel_125, $4
|
|
bnot
|
|
bnt code_030f
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
sag global[$b7]
|
|
code_030f: pushi $274 ; 628, masterVolume
|
|
push1
|
|
lsg global[$b7]
|
|
lag global[$2]
|
|
send $6
|
|
bnot
|
|
push1
|
|
push0
|
|
callk kernel_60, $2
|
|
bnot
|
|
push2
|
|
lofsa string_0664 ; "logfile"
|
|
push
|
|
lst temp[$2]
|
|
callk kernel_125, $4
|
|
bnot
|
|
bnt code_0367
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
bnt code_034e
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lst temp[$2]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
lofsa Logfile
|
|
send $6
|
|
bnot
|
|
jmp code_0371
|
|
|
|
code_034e: pushi $20 ; 32, ' ', name
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_0664 ; "logfile"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
lofsa Logfile
|
|
send $6
|
|
bnot
|
|
jmp code_0371
|
|
|
|
code_0367: pushi $20 ; 32, ' ', name
|
|
push1
|
|
push0
|
|
lofsa Logfile
|
|
send $6
|
|
bnot
|
|
code_0371: pushi $94 ; 148, init
|
|
push0
|
|
super Game, $4
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
push2
|
|
pushi $9cac ; -25428
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $3ae ; 942, setColor
|
|
push1
|
|
pushi $6a ; 106, 'j', scaleSignal
|
|
pushi $1a9 ; 425, setStep
|
|
push2
|
|
pushi $6 ; maxScale
|
|
pushi $4 ; scaleX
|
|
lofsa NEgo
|
|
send $12
|
|
bnot
|
|
lofsa NEgo
|
|
sag global[$1]
|
|
pushi $94 ; 148, init
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
class GameServer
|
|
send $4
|
|
bnot
|
|
sag global[$6a]
|
|
sag global[$2f]
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
class RealmIconBar
|
|
send $4
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class NetMsgProcessor
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $272 ; 626, newRoom
|
|
push1
|
|
pushi $e290 ; -7536
|
|
lag global[$30]
|
|
send $a
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
lofsa GlobalKeyHandler
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
RoomZero::dispose:
|
|
lag global[$d7]
|
|
bnt code_0407
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$d7]
|
|
code_0407: lag global[$de]
|
|
bnt code_0416
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$de]
|
|
code_0416: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Game, $4
|
|
bnot
|
|
ret
|
|
|
|
RoomZero::controlOff:
|
|
pushi $359 ; 857, stopDragging
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
push1
|
|
pushi $21 ; 33, '!', key
|
|
callk kernel_118, $2
|
|
bnot
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
&rest $1
|
|
super Game, $4
|
|
bnot
|
|
ret
|
|
|
|
RoomZero::handsOff:
|
|
pushi $359 ; 857, stopDragging
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
push1
|
|
pushi $21 ; 33, '!', key
|
|
callk kernel_118, $2
|
|
bnot
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
&rest $1
|
|
super Game, $4
|
|
bnot
|
|
ret
|
|
|
|
RoomZero::handsOn:
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
&rest $1
|
|
super Game, $4
|
|
bnot
|
|
pToa handsLevel
|
|
not
|
|
bnt code_0479
|
|
lag global[$e8]
|
|
bnt code_0479
|
|
pushi $36 ; 54, '6', client
|
|
push1
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $a
|
|
bnot
|
|
ldi $0
|
|
sag global[$e8]
|
|
code_0479: ret
|
|
|
|
RoomZero::controlOn:
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
&rest $1
|
|
super Game, $4
|
|
bnot
|
|
pToa handsLevel
|
|
not
|
|
bnt code_049c
|
|
lag global[$e8]
|
|
bnt code_049c
|
|
pushi $36 ; 54, '6', client
|
|
push1
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $a
|
|
bnot
|
|
ldi $0
|
|
sag global[$e8]
|
|
code_049c: ret
|
|
|
|
RoomZero::doit:
|
|
link $4
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
&rest $1
|
|
super Game, $4
|
|
bnot
|
|
code_04a8: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class DeadObjects
|
|
send $4
|
|
bnot
|
|
bnt code_04dd
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
class DeadObjects
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_04d1
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
code_04d1: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lst temp[$2]
|
|
class DeadObjects
|
|
send $6
|
|
bnot
|
|
jmp code_04a8
|
|
|
|
code_04dd: lag global[$1]
|
|
bnt code_0580
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class gApproveGiveList
|
|
send $4
|
|
bnot
|
|
bnt code_0580
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
class gApproveGiveList
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
bnt code_0580
|
|
push1
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0580
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class NetRoom
|
|
push
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_0580
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0580
|
|
pushi $3f8 ; 1016, pMovieCmd
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0580
|
|
pushi $271 ; 625, handsLevel
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0580
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class gDialogList
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0580
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lst temp[$2]
|
|
class gApproveGiveList
|
|
send $6
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
ne?
|
|
bnt code_0580
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
class gDialogList
|
|
send $6
|
|
bnot
|
|
code_0580: lag global[$1]
|
|
bnt code_05fc
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class gTeleportList
|
|
send $4
|
|
bnot
|
|
bnt code_05fc
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
class gTeleportList
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
bnt code_05fc
|
|
push1
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_05fc
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class NetRoom
|
|
push
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_05fc
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_05fc
|
|
pushi $3f8 ; 1016, pMovieCmd
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_05fc
|
|
pushi $271 ; 625, handsLevel
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_05fc
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lst temp[$2]
|
|
class gTeleportList
|
|
send $6
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
code_05fc: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class ActiveMovieCmdList
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_0650
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_060d: lst temp[$0]
|
|
lat temp[$1]
|
|
lt?
|
|
bnt code_0650
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
class ActiveMovieCmdList
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $434 ; 1076, pDone
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0644
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lst temp[$3]
|
|
class ActiveMovieCmdList
|
|
send $6
|
|
bnot
|
|
-at temp[$1]
|
|
-at temp[$0]
|
|
jmp code_064c
|
|
|
|
code_0644: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
code_064c: +at temp[$0]
|
|
jmp code_060d
|
|
|
|
code_0650: lag global[$32]
|
|
ret
|
|
|
|
RoomZero::handleEvent:
|
|
link $2
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_075b
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $1f00 ; 7936
|
|
eq?
|
|
bnt code_06bf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $8 ; fixPriority
|
|
lofsa string_066c ; "Save Screen to?:"
|
|
push
|
|
pushi $76 ; 118, 'v', textLeft
|
|
lst temp[$0]
|
|
pushi $14 ; 20, nsRight
|
|
pushi $8 ; fixPriority
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_067d ; "Okay"
|
|
push
|
|
push1
|
|
calle export60029_0, $10
|
|
bnot
|
|
push1
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_136, $2
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_075a
|
|
|
|
code_06bf: dup
|
|
ldi $2600 ; 9728
|
|
eq?
|
|
bnt code_075a
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
lofsa Logfile
|
|
send $4
|
|
bnot
|
|
bnt code_075a
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $fa ; 250, lower
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_0682 ; "Enter text to append to logfile[%s]:"
|
|
push
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
lofsa Logfile
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $b ; 11, inRight
|
|
push
|
|
pushi $7f ; 127, frameOut
|
|
lst temp[$1]
|
|
pushi $c8 ; 200, handleEvent
|
|
pushi $4 ; scaleX
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_06a7 ; "OK"
|
|
push
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_06aa ; "Cancel"
|
|
push
|
|
push0
|
|
calle export60029_0, $16
|
|
bnot
|
|
bnt code_0748
|
|
pushi $248 ; 584, open
|
|
push1
|
|
push0
|
|
lofsa Logfile
|
|
send $6
|
|
bnot
|
|
pushi $27b ; 635, writeString
|
|
pushi $3 ; z
|
|
lofsa string_06b1 ; "\r\n"
|
|
push
|
|
lst temp[$1]
|
|
lofsa string_06b1 ; "\r\n"
|
|
push
|
|
lofsa Logfile
|
|
send $a
|
|
bnot
|
|
pushi $253 ; 595, close
|
|
push0
|
|
lofsa Logfile
|
|
send $4
|
|
bnot
|
|
code_0748: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_075a: toss
|
|
code_075b: toss
|
|
ret
|
|
|
|
BorderedPlane::init:
|
|
link $6
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $3 ; z
|
|
super Plane, $4
|
|
bnot
|
|
lap param[$1]
|
|
bnt code_09ce
|
|
lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_09ce
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Cast
|
|
send $4
|
|
bnot
|
|
aTop pCast
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push1
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push0
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
lsp param[$1]
|
|
pushi $e3 ; 227, expand
|
|
push2
|
|
lst temp[$0]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
pushi $4 ; scaleX
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sub
|
|
push
|
|
lst temp[$1]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
pushi $4 ; scaleX
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sub
|
|
push
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
pTos pCast
|
|
pushi $6d ; 109, 'm', picture
|
|
push1
|
|
pushi $fe ; 254, strIndex
|
|
pushi $7 ; priority
|
|
push1
|
|
pushi $7 ; priority
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
push
|
|
self $20
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push0
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push0
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$1]
|
|
lst temp[$2]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push1
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $1
|
|
add
|
|
sat temp[$4]
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_082b
|
|
lat temp[$0]
|
|
sat temp[$4]
|
|
code_082b: lat temp[$1]
|
|
sat temp[$5]
|
|
pushi $e ; 14, view
|
|
push1
|
|
lsp param[$2]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
push0
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
pTos priority
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $d ; 13, seenRect
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
pushi $4 ; scaleX
|
|
push0
|
|
push0
|
|
lst temp[$4]
|
|
lst temp[$5]
|
|
class Rect
|
|
send $c
|
|
bnot
|
|
push
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
send $1e
|
|
bnot
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push1
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push1
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$1]
|
|
lat temp[$0]
|
|
sat temp[$4]
|
|
lst temp[$3]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push2
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $1
|
|
add
|
|
sat temp[$5]
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_08a1
|
|
lat temp[$1]
|
|
sat temp[$5]
|
|
code_08a1: pushi $e ; 14, view
|
|
push1
|
|
lsp param[$2]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
push1
|
|
push1
|
|
push1
|
|
lst temp[$2]
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
pTos priority
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $d ; 13, seenRect
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
pushi $4 ; scaleX
|
|
push0
|
|
push0
|
|
lst temp[$4]
|
|
lst temp[$5]
|
|
class Rect
|
|
send $c
|
|
bnot
|
|
push
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
send $24
|
|
bnot
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push2
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push2
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$1]
|
|
lst temp[$0]
|
|
lat temp[$2]
|
|
sub
|
|
push
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
pushi $3 ; z
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
add
|
|
push
|
|
ldi $2
|
|
sub
|
|
sat temp[$4]
|
|
lat temp[$1]
|
|
sat temp[$5]
|
|
pushi $e ; 14, view
|
|
push1
|
|
lsp param[$2]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
push2
|
|
push1
|
|
push1
|
|
lst temp[$2]
|
|
push2
|
|
push1
|
|
lst temp[$3]
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
pTos priority
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $d ; 13, seenRect
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
pushi $4 ; scaleX
|
|
lst temp[$4]
|
|
push0
|
|
lst temp[$0]
|
|
lst temp[$5]
|
|
class Rect
|
|
send $c
|
|
bnot
|
|
push
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
send $2a
|
|
bnot
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
pushi $3 ; z
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
pushi $3 ; z
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$1]
|
|
lat temp[$0]
|
|
sat temp[$4]
|
|
lst temp[$1]
|
|
lat temp[$3]
|
|
sub
|
|
push
|
|
pushi $3 ; z
|
|
lsp param[$2]
|
|
push0
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
add
|
|
push
|
|
ldi $2
|
|
sub
|
|
sat temp[$5]
|
|
pushi $e ; 14, view
|
|
push1
|
|
lsp param[$2]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
pushi $3 ; z
|
|
push2
|
|
push1
|
|
lst temp[$3]
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
pTos priority
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $d ; 13, seenRect
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
pushi $4 ; scaleX
|
|
push0
|
|
lst temp[$5]
|
|
lst temp[$4]
|
|
lst temp[$1]
|
|
class Rect
|
|
send $c
|
|
bnot
|
|
push
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
send $24
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
code_09ce: ret
|
|
|
|
FancyWindow::init:
|
|
pToa pInitted
|
|
bnt code_09d4
|
|
ret
|
|
|
|
code_09d4: ldi $1
|
|
aTop pInitted
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Window, $4
|
|
bnot
|
|
pTos pBorderView
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_09ff
|
|
pushi $94 ; 148, init
|
|
push2
|
|
pushSelf
|
|
pTos pBorderView
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class BorderedPlane
|
|
send $4
|
|
bnot
|
|
aTop pBorderPlane
|
|
send $8
|
|
bnot
|
|
code_09ff: pushi $8d ; 141, new
|
|
push0
|
|
class Cast
|
|
send $4
|
|
bnot
|
|
aTop pCast
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
pTos pCast
|
|
self $6
|
|
bnot
|
|
pTos back
|
|
ldi $ec ; 236, track
|
|
eq?
|
|
bnt code_0a6d
|
|
pushi $9f ; 159, add
|
|
push2
|
|
pushi $ec ; 236, track
|
|
pushi $1e ; 30, brRight
|
|
class Remaps
|
|
send $8
|
|
bnot
|
|
pushi $11 ; 17, bitmap
|
|
push1
|
|
pushi $8 ; fixPriority
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push0
|
|
pTos back
|
|
pTos resX
|
|
pTos resY
|
|
push1
|
|
callk kernel_35, $10
|
|
bnot
|
|
push
|
|
pushi $8 ; fixPriority
|
|
push1
|
|
push1
|
|
pushi $7 ; priority
|
|
push1
|
|
push0
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
send $18
|
|
bnot
|
|
ldi $fe ; 254, strIndex
|
|
aTop picture
|
|
+ag global[$c9]
|
|
jmp code_0a71
|
|
|
|
code_0a6d: ldi $ff ; 255, asInteger
|
|
aTop picture
|
|
code_0a71: push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
ret
|
|
|
|
FancyWindow::hide:
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
super Window, $4
|
|
bnot
|
|
pToa pBorderPlane
|
|
bnt code_0a89
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0a89: ret
|
|
|
|
FancyWindow::show:
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
super Window, $4
|
|
bnot
|
|
pToa pBorderPlane
|
|
bnt code_0a9b
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0a9b: ret
|
|
|
|
FancyWindow::erase:
|
|
pushi $1ba ; 442, erase
|
|
push0
|
|
super Window, $4
|
|
bnot
|
|
pToa pBorderPlane
|
|
bnt code_0aaf
|
|
pushi $1ba ; 442, erase
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0aaf: ret
|
|
|
|
FancyWindow::dispose:
|
|
pToa pBorderPlane
|
|
bnt code_0abf
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pBorderPlane
|
|
code_0abf: pTos back
|
|
ldi $ec ; 236, track
|
|
eq?
|
|
bnt code_0ad7
|
|
pToa pCast
|
|
bnt code_0acd
|
|
-ag global[$c9]
|
|
code_0acd: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pTos back
|
|
class Remaps
|
|
send $6
|
|
bnot
|
|
code_0ad7: pushi $95 ; 149, dispose
|
|
push0
|
|
super Window, $4
|
|
bnot
|
|
ret
|
|
|
|
FancyWindow::posnOnScreen:
|
|
link $1
|
|
pTos left
|
|
ldi $0
|
|
lt?
|
|
bnt code_0af3
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
push0
|
|
pTos top
|
|
self $8
|
|
bnot
|
|
code_0af3: pTos top
|
|
ldi $0
|
|
lt?
|
|
bnt code_0b04
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pTos left
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0b04: push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pTos right
|
|
pushi $88 ; 136, right
|
|
push0
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_0b2f
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa right
|
|
sub
|
|
push
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0b2f: pTos bottom
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_0b53
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
push0
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa bottom
|
|
sub
|
|
push
|
|
self $8
|
|
bnot
|
|
code_0b53: ret
|
|
|
|
RealmButton::drawText:
|
|
link $3
|
|
pToa text
|
|
bnt code_0c16
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pToa textRect
|
|
bnt code_0b76
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_0b8b
|
|
|
|
code_0b76: pushi $d3 ; 211, copy
|
|
push1
|
|
pushSelf
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
push0
|
|
push0
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
code_0b8b: pushi $e ; 14, view
|
|
pushi $4 ; scaleX
|
|
pTos bitmap
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos text
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $87 ; 135, left
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos back
|
|
pToa skip
|
|
eq?
|
|
bnt code_0bfb
|
|
pTos state
|
|
ldi $1
|
|
and
|
|
not
|
|
bnt code_0bd6
|
|
pToa dimColor
|
|
jmp code_0bfd
|
|
|
|
code_0bd6: pTos state
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_0be1
|
|
pToa chosenColor
|
|
jmp code_0bfd
|
|
|
|
code_0be1: pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_0bec
|
|
pToa selectColor
|
|
jmp code_0bfd
|
|
|
|
code_0bec: pTos state
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_0bf7
|
|
pToa chosenColor
|
|
jmp code_0bfd
|
|
|
|
code_0bf7: pToa fore
|
|
jmp code_0bfd
|
|
|
|
code_0bfb: pToa fore
|
|
code_0bfd: push
|
|
pTos skip
|
|
pTos skip
|
|
pTos font
|
|
pTos mode
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
callk kernel_35, $1c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_0c16: ret
|
|
|
|
GlobalKeyHandler::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$27]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
GlobalKeyHandler::dispose:
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$27]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
GlobalKeyHandler::handleEvent:
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_0c8a
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $3c00 ; 15360
|
|
eq?
|
|
bnt code_0c89
|
|
pushi $274 ; 628, masterVolume
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
bnt code_0c75
|
|
pushi $274 ; 628, masterVolume
|
|
push1
|
|
push0
|
|
lag global[$2]
|
|
send $6
|
|
bnot
|
|
jmp code_0c80
|
|
|
|
code_0c75: pushi $274 ; 628, masterVolume
|
|
push1
|
|
pushi $f ; 15, loop
|
|
lag global[$2]
|
|
send $6
|
|
bnot
|
|
code_0c80: pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_0c89: toss
|
|
code_0c8a: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|