Upload files to "Script"
This commit is contained in:
parent
2a3e30d1b5
commit
f4b2b973b3
|
|
@ -0,0 +1,126 @@
|
|||
RemapObj::init:
|
||||
lap param[$1]
|
||||
aTop pColor
|
||||
lap param[$2]
|
||||
aTop pPercent
|
||||
pushi $3 ; z
|
||||
push2
|
||||
lsp param[$1]
|
||||
push
|
||||
callk kernel_110, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
RemapObj::dispose:
|
||||
push2
|
||||
push0
|
||||
pTos pColor
|
||||
callk kernel_110, $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Remaps::add:
|
||||
link $1
|
||||
pushi $a1 ; 161, firstEqual
|
||||
push2
|
||||
pushi $330 ; 816, pColor
|
||||
lsp param[$1]
|
||||
self $8
|
||||
bnot
|
||||
sat temp[$0]
|
||||
bnt code_00c1
|
||||
lsp param[$2]
|
||||
pushi $331 ; 817, pPercent
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
ne?
|
||||
bnt code_00a8
|
||||
pushi $3 ; z
|
||||
lofsa string_004b ; "Remaps::add ( %d, %d ): color overwrite"
|
||||
push
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
callk kernel_132, $6
|
||||
bnot
|
||||
code_00a8: pushi $332 ; 818, pCount
|
||||
push1
|
||||
pushi $332 ; 818, pCount
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_00e1
|
||||
|
||||
code_00c1: pushi $94 ; 148, init
|
||||
push2
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class RemapObj
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
send $8
|
||||
bnot
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
lst temp[$0]
|
||||
super List, $6
|
||||
bnot
|
||||
code_00e1: ret
|
||||
|
||||
Remaps::delete:
|
||||
link $1
|
||||
pushi $a1 ; 161, firstEqual
|
||||
push2
|
||||
pushi $330 ; 816, pColor
|
||||
lsp param[$1]
|
||||
self $8
|
||||
bnot
|
||||
sat temp[$0]
|
||||
bnt code_0127
|
||||
pushi $332 ; 818, pCount
|
||||
push1
|
||||
pushi $332 ; 818, pCount
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
sub
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
pushi $332 ; 818, pCount
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_0127
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lst temp[$0]
|
||||
super List, $6
|
||||
bnot
|
||||
code_0127: ret
|
||||
|
||||
|
|
@ -0,0 +1,146 @@
|
|||
export58000_0 = Teleport
|
||||
|
||||
Teleport::init:
|
||||
link $6
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super StaticRoom, $4
|
||||
bnot
|
||||
ldi $afd4 ; -20524
|
||||
sat temp[$3]
|
||||
ldi $0
|
||||
sat temp[$4]
|
||||
sat temp[$5]
|
||||
pushi $20 ; 32, ' ', name
|
||||
push1
|
||||
lofsa string_004e ; "teleport"
|
||||
push
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class File
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
pushi $248 ; 584, open
|
||||
push1
|
||||
push1
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0105
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Str
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $27a ; 634, readString
|
||||
push2
|
||||
push
|
||||
pushi $a ; 10, inTop
|
||||
lat temp[$0]
|
||||
send $8
|
||||
bnot
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$4]
|
||||
push1
|
||||
push
|
||||
calle export60027_0, $2
|
||||
bnot
|
||||
push
|
||||
ldi $4e ; 78, 'N', width
|
||||
eq?
|
||||
bt code_007c
|
||||
lag global[$69]
|
||||
code_007c: sat temp[$5]
|
||||
bnt code_008b
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
push0
|
||||
pushi $20 ; 32, ' ', name
|
||||
lat temp[$1]
|
||||
send $8
|
||||
bnot
|
||||
code_008b: lst temp[$4]
|
||||
ldi $3f ; 63, '?', xStep
|
||||
eq?
|
||||
bnt code_00d3
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
push0
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $8
|
||||
bnot
|
||||
pushi $d ; 13, seenRect
|
||||
lofsa string_0057 ; "Teleport to which room:"
|
||||
push
|
||||
pushi $87 ; 135, left
|
||||
lsg global[$59]
|
||||
lsg global[$5d]
|
||||
pushi $76 ; 118, 'v', textLeft
|
||||
lst temp[$1]
|
||||
pushi $6 ; maxScale
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_006f ; "OK"
|
||||
push
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0072 ; "Cancel"
|
||||
push
|
||||
push0
|
||||
calle export60029_0, $1a
|
||||
bnot
|
||||
bnt code_00fc
|
||||
pushi $ff ; 255, asInteger
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
jmp code_00fc
|
||||
|
||||
code_00d3: lat temp[$5]
|
||||
bnt code_00ed
|
||||
lsg global[$35]
|
||||
ldi $ea33 ; -5581
|
||||
eq?
|
||||
bnt code_00e6
|
||||
ldi $ea31 ; -5583
|
||||
sat temp[$3]
|
||||
jmp code_00fc
|
||||
|
||||
code_00e6: ldi $309 ; 777, pHairColor
|
||||
sat temp[$3]
|
||||
jmp code_00fc
|
||||
|
||||
code_00ed: pushi $ff ; 255, asInteger
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
bnt code_00fc
|
||||
sat temp[$3]
|
||||
code_00fc: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
code_0105: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
lat temp[$3]
|
||||
sag global[$36]
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,470 @@
|
|||
PolyRect::checkPolyKludge:
|
||||
link $5
|
||||
pushi $e8 ; 232, intersects
|
||||
push1
|
||||
lsp param[$1]
|
||||
self $6
|
||||
bnot
|
||||
bnt code_01ac
|
||||
push1
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa left
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
sat temp[$1]
|
||||
push1
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa right
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
sat temp[$2]
|
||||
push1
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa top
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
sat temp[$3]
|
||||
push1
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa bottom
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
sat temp[$4]
|
||||
lst temp[$1]
|
||||
ldi $2
|
||||
lt?
|
||||
bt code_01a7
|
||||
lst temp[$2]
|
||||
ldi $2
|
||||
lt?
|
||||
bt code_01a7
|
||||
lst temp[$3]
|
||||
ldi $2
|
||||
lt?
|
||||
bt code_01a7
|
||||
lst temp[$4]
|
||||
ldi $2
|
||||
lt?
|
||||
code_01a7: bnt code_01ac
|
||||
ldi $1
|
||||
ret
|
||||
|
||||
code_01ac: ldi $0
|
||||
ret
|
||||
|
||||
WObjectList::add:
|
||||
link $1
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
lsp param[$1]
|
||||
self $6
|
||||
bnot
|
||||
bnt code_01bd
|
||||
ret
|
||||
|
||||
code_01bd: pushi $9f ; 159, add
|
||||
push1
|
||||
lsp param[$1]
|
||||
super List, $6
|
||||
bnot
|
||||
lag global[$1]
|
||||
bnt code_0246
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0246
|
||||
pTos pRoom
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_0246
|
||||
pushi $386 ; 902, hasBase
|
||||
push1
|
||||
class BCarryable
|
||||
push
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0246
|
||||
pushi $2fb ; 763, pCombatGroup
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_0207
|
||||
pushi $2fb ; 763, pCombatGroup
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
code_0207: bt code_0239
|
||||
pushi $2fb ; 763, pCombatGroup
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0246
|
||||
pushi $2fb ; 763, pCombatGroup
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0246
|
||||
pushi $128 ; 296, equalLong
|
||||
push1
|
||||
pushi $2fb ; 763, pCombatGroup
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $2fb ; 763, pCombatGroup
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
code_0239: bnt code_0246
|
||||
pushi $3 ; z
|
||||
pushi $d ; 13, seenRect
|
||||
push1
|
||||
lsp param[$1]
|
||||
callk kernel_118, $6
|
||||
bnot
|
||||
code_0246: ret
|
||||
|
||||
WObjectList::delete:
|
||||
link $1
|
||||
lag global[$1]
|
||||
bnt code_026f
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
bnt code_026f
|
||||
pTos pRoom
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_026f
|
||||
pushi $3 ; z
|
||||
pushi $d ; 13, seenRect
|
||||
push2
|
||||
lsp param[$1]
|
||||
callk kernel_118, $6
|
||||
bnot
|
||||
code_026f: pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lsp param[$1]
|
||||
super List, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
RealmRoom::virtualize:
|
||||
pushi $2bc ; 700, virtualize
|
||||
push0
|
||||
&rest $1
|
||||
super ManagedRoom, $4
|
||||
bnot
|
||||
pToa pWObjectList
|
||||
not
|
||||
bnt code_029c
|
||||
pushi $c5 ; 197, pRoom
|
||||
push1
|
||||
pushSelf
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class WObjectList
|
||||
send $4
|
||||
bnot
|
||||
aTop pWObjectList
|
||||
send $6
|
||||
bnot
|
||||
code_029c: pToa pRectList
|
||||
not
|
||||
bnt code_02ac
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class List
|
||||
send $4
|
||||
bnot
|
||||
aTop pRectList
|
||||
code_02ac: ret
|
||||
|
||||
RealmRoom::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super ManagedRoom, $4
|
||||
bnot
|
||||
pToa pShowGameBar
|
||||
bnt code_02f6
|
||||
pushi $1bf ; 447, isHidden
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_02ce
|
||||
pushi $75 ; 117, 'u', show
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
code_02ce: pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
push0
|
||||
push0
|
||||
pushi $27f ; 639, rename
|
||||
pushi $13d ; 317, putArray
|
||||
pToa plane
|
||||
send $c
|
||||
bnot
|
||||
pushi $dd ; 221, moveBy
|
||||
push2
|
||||
push0
|
||||
pushi $e3 ; 227, expand
|
||||
pToa plane
|
||||
send $8
|
||||
bnot
|
||||
push1
|
||||
pTos plane
|
||||
callk kernel_42, $2
|
||||
bnot
|
||||
jmp code_0315
|
||||
|
||||
code_02f6: lag global[$cd]
|
||||
bnt code_0301
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0301: pushi $1bf ; 447, isHidden
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_0315
|
||||
pushi $69 ; 105, 'i', hide
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
code_0315: ret
|
||||
|
||||
RealmRoom::dispose:
|
||||
lag global[$1]
|
||||
bnt code_032f
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
selfID
|
||||
eq?
|
||||
bnt code_032f
|
||||
pushi $3c6 ; 966, deleteFromRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
code_032f: pushi $95 ; 149, dispose
|
||||
push0
|
||||
class gDialogList
|
||||
send $4
|
||||
bnot
|
||||
pToa pWObjectList
|
||||
bnt code_034c
|
||||
pushi $a6 ; 166, release
|
||||
push0
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $8
|
||||
bnot
|
||||
ldi $0
|
||||
aTop pWObjectList
|
||||
code_034c: pToa pRectList
|
||||
bnt code_035b
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop pRectList
|
||||
code_035b: pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super ManagedRoom, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
RealmRoom::delete:
|
||||
pToa pWObjectList
|
||||
bnt code_0374
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
send $6
|
||||
bnot
|
||||
code_0374: lsl local[$0]
|
||||
lap param[$1]
|
||||
eq?
|
||||
bnt code_037f
|
||||
ldi $0
|
||||
sal local[$0]
|
||||
code_037f: ret
|
||||
|
||||
RealmRoom::hide:
|
||||
link $1
|
||||
pToa pWObjectList
|
||||
bnt code_03b8
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
lsg global[$1]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
bnt code_039d
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lsg global[$1]
|
||||
pToa pWObjectList
|
||||
send $6
|
||||
bnot
|
||||
code_039d: pushi $9d ; 157, eachElementDo
|
||||
push1
|
||||
pushi $3a5 ; 933, hideContents
|
||||
pToa pWObjectList
|
||||
send $6
|
||||
bnot
|
||||
lat temp[$0]
|
||||
bnt code_03b8
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
lsg global[$1]
|
||||
pToa pWObjectList
|
||||
send $6
|
||||
bnot
|
||||
code_03b8: pushi $95 ; 149, dispose
|
||||
push0
|
||||
class gDialogList
|
||||
send $4
|
||||
bnot
|
||||
pushi $69 ; 105, 'i', hide
|
||||
push0
|
||||
super ManagedRoom, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
RealmRoom::doit:
|
||||
link $1
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super ManagedRoom, $4
|
||||
bnot
|
||||
pToa pUpdateStates
|
||||
bnt code_03db
|
||||
ldi $0
|
||||
aTop pUpdateStates
|
||||
code_03db: ret
|
||||
|
||||
StaticRealmRoom::init:
|
||||
pushi $141 ; 321, stop
|
||||
push0
|
||||
class MusicMgr
|
||||
send $4
|
||||
bnot
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super RealmRoom, $4
|
||||
bnot
|
||||
pushi $19a ; 410, setScale
|
||||
pushi $4 ; scaleX
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
dup
|
||||
pushi $be ; 190, seconds
|
||||
push0
|
||||
self $c
|
||||
bnot
|
||||
ret
|
||||
|
||||
StaticRealmRoom::show:
|
||||
pushi $75 ; 117, 'u', show
|
||||
push0
|
||||
&rest $1
|
||||
super RealmRoom, $4
|
||||
bnot
|
||||
lag global[$6a]
|
||||
bnt code_0414
|
||||
pushi $491 ; 1169, updatePingText
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0414: ret
|
||||
|
||||
StaticRealmRoom::dispose:
|
||||
link $1
|
||||
pToa modNum
|
||||
sat temp[$0]
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super RealmRoom, $4
|
||||
bnot
|
||||
lat temp[$0]
|
||||
bnt code_0431
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
push
|
||||
lag global[$69]
|
||||
send $6
|
||||
bnot
|
||||
code_0431: ret
|
||||
|
||||
StaticRealmRoom::setInfo:
|
||||
lap param[$1]
|
||||
aTop modNum
|
||||
ret
|
||||
|
||||
StaticRealmRoom::cue:
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,141 @@
|
|||
SortedList::add:
|
||||
link $3
|
||||
pToa elements
|
||||
not
|
||||
bnt code_0043
|
||||
push1
|
||||
push0
|
||||
callk kernel_90, $2
|
||||
bnot
|
||||
aTop elements
|
||||
code_0043: ldi $0
|
||||
sat temp[$1]
|
||||
code_0047: lst temp[$1]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_0088
|
||||
pushi $a7 ; 167, isDuplicate
|
||||
push1
|
||||
lat temp[$1]
|
||||
lspi param[$1]
|
||||
self $6
|
||||
bnot
|
||||
not
|
||||
bnt code_0084
|
||||
pushi $342 ; 834, findSlot
|
||||
push1
|
||||
lat temp[$1]
|
||||
lspi param[$1]
|
||||
self $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
bnt code_0079
|
||||
pushi $ad ; 173, addBefore
|
||||
push2
|
||||
push
|
||||
lat temp[$1]
|
||||
lspi param[$1]
|
||||
self $8
|
||||
bnot
|
||||
jmp code_0084
|
||||
|
||||
code_0079: pushi $ab ; 171, addToEnd
|
||||
push1
|
||||
lat temp[$1]
|
||||
lspi param[$1]
|
||||
self $6
|
||||
bnot
|
||||
code_0084: +at temp[$1]
|
||||
jmp code_0047
|
||||
|
||||
code_0088: selfID
|
||||
ret
|
||||
|
||||
SortedList::findSlot:
|
||||
link $6
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
pToa pSortSelector
|
||||
sat temp[$3]
|
||||
not
|
||||
bnt code_009a
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_009a: pToa elements
|
||||
bnt code_0114
|
||||
pToa size
|
||||
sat temp[$5]
|
||||
ldi $0
|
||||
sat temp[$4]
|
||||
code_00a7: lst temp[$4]
|
||||
lat temp[$5]
|
||||
lt?
|
||||
bnt code_0114
|
||||
pushi $3 ; z
|
||||
pushi $11 ; 17, bitmap
|
||||
pTos elements
|
||||
lst temp[$4]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
lst temp[$3]
|
||||
send $6
|
||||
bnot
|
||||
not
|
||||
bnt code_00cc
|
||||
ldi $0
|
||||
jmp code_0110
|
||||
|
||||
code_00cc: pTos pSortDirection
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_00ef
|
||||
lst temp[$3]
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$3]
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
ge?
|
||||
bnt code_00ef
|
||||
lat temp[$0]
|
||||
sat temp[$2]
|
||||
jmp code_0114
|
||||
|
||||
jmp code_0110
|
||||
|
||||
code_00ef: pTos pSortDirection
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_0110
|
||||
lst temp[$3]
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$3]
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
bnt code_0110
|
||||
lat temp[$0]
|
||||
sat temp[$2]
|
||||
jmp code_0114
|
||||
|
||||
code_0110: +at temp[$4]
|
||||
jmp code_00a7
|
||||
|
||||
code_0114: lat temp[$2]
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,393 @@
|
|||
NetRoom::new:
|
||||
link $1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
super RealmRoom, $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $559 ; 1369, pPendingActionQ
|
||||
push1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class List
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
lat temp[$0]
|
||||
ret
|
||||
|
||||
NetRoom::doit:
|
||||
link $3
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
&rest $1
|
||||
super RealmRoom, $4
|
||||
bnot
|
||||
push0
|
||||
callk kernel_121, $0
|
||||
bnot
|
||||
aTop pExitScript
|
||||
pToa pMakePile
|
||||
bnt code_00d6
|
||||
ldi $0
|
||||
aTop pMakePile
|
||||
code_00d6: pToa pDefunct
|
||||
not
|
||||
bnt code_0115
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
pToa pPendingActionQ
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
bnt code_0115
|
||||
ldi $0
|
||||
sat temp[$1]
|
||||
code_00eb: lst temp[$1]
|
||||
lat temp[$0]
|
||||
lt?
|
||||
bnt code_010c
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$1]
|
||||
pToa pPendingActionQ
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$2]
|
||||
pushi $33b ; 827, addAction
|
||||
push1
|
||||
push
|
||||
class ActionQMgr
|
||||
send $6
|
||||
bnot
|
||||
+at temp[$1]
|
||||
jmp code_00eb
|
||||
|
||||
code_010c: pushi $a6 ; 166, release
|
||||
push0
|
||||
pToa pPendingActionQ
|
||||
send $4
|
||||
bnot
|
||||
code_0115: lag global[$1]
|
||||
bnt code_012d
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
selfID
|
||||
eq?
|
||||
bnt code_012d
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
class ActionQMgr
|
||||
send $4
|
||||
bnot
|
||||
code_012d: ret
|
||||
|
||||
NetRoom::init:
|
||||
link $1
|
||||
ldi $1
|
||||
aTop pMakePile
|
||||
pTos pFlags
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0142
|
||||
ldi $400 ; 1024, pEndurance
|
||||
aTop style
|
||||
jmp code_0146
|
||||
|
||||
code_0142: ldi $0
|
||||
aTop style
|
||||
code_0146: pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super RealmRoom, $4
|
||||
bnot
|
||||
pushi $55b ; 1371, generate
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
lofsa RoomExitHandler
|
||||
push
|
||||
lag global[$27]
|
||||
send $6
|
||||
bnot
|
||||
pushi $3c5 ; 965, addToRoom
|
||||
push1
|
||||
pushSelf
|
||||
lag global[$1]
|
||||
send $6
|
||||
bnot
|
||||
pToa pShowGameBar
|
||||
bnt code_0182
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
push2
|
||||
pushi $ea3a ; -5574
|
||||
push0
|
||||
callk kernel_2, $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
code_0182: ret
|
||||
|
||||
NetRoom::dispose:
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
class gDialogList
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
pToa pPendingActionQ
|
||||
send $4
|
||||
bnot
|
||||
pToa pNumber
|
||||
bnt code_01a5
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop pNumber
|
||||
code_01a5: pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super RealmRoom, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
NetRoom::show:
|
||||
pToa pVisible
|
||||
not
|
||||
bnt code_01c2
|
||||
pushi $7 ; priority
|
||||
push1
|
||||
push1
|
||||
pToa plane
|
||||
send $6
|
||||
bnot
|
||||
ldi $1
|
||||
aTop pVisible
|
||||
code_01c2: pToa picture
|
||||
bnt code_01ce
|
||||
pushi $1bb ; 443, drawPic
|
||||
push1
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
code_01ce: pushi $75 ; 117, 'u', show
|
||||
push0
|
||||
pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
pToa pScreen
|
||||
send $8
|
||||
bnot
|
||||
push1
|
||||
pTos plane
|
||||
callk kernel_42, $2
|
||||
bnot
|
||||
pToa pShowGameBar
|
||||
bnt code_01f4
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
push2
|
||||
pushi $ea3a ; -5574
|
||||
push0
|
||||
callk kernel_2, $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
code_01f4: pushi $94 ; 148, init
|
||||
push2
|
||||
pushSelf
|
||||
pTos pCast
|
||||
class GPolyBitmap
|
||||
send $8
|
||||
bnot
|
||||
pushi $491 ; 1169, updatePingText
|
||||
push0
|
||||
lag global[$6a]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
NetRoom::isMatch:
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_0221
|
||||
pushi $128 ; 296, equalLong
|
||||
push1
|
||||
lsp param[$1]
|
||||
pToa pNumber
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0221
|
||||
lap param[$2]
|
||||
not
|
||||
code_0221: ret
|
||||
|
||||
NetRoom::setInfo:
|
||||
lap param[$0]
|
||||
bnt code_0262
|
||||
lap param[$1]
|
||||
aTop pNumber
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_0262
|
||||
lap param[$2]
|
||||
aTop picture
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
gt?
|
||||
bnt code_0262
|
||||
lap param[$3]
|
||||
aTop pRoomType
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
gt?
|
||||
bnt code_0262
|
||||
lap param[$4]
|
||||
aTop pExits
|
||||
lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
gt?
|
||||
bnt code_0262
|
||||
lap param[$5]
|
||||
aTop pFlags
|
||||
pushi $3 ; z
|
||||
pushi $6 ; maxScale
|
||||
pushi $9 ; inLeft
|
||||
pTos pFlags
|
||||
callk kernel_118, $6
|
||||
bnot
|
||||
code_0262: ret
|
||||
|
||||
NetRoom::generate:
|
||||
ret
|
||||
|
||||
RoomExitHandler::handleEvent:
|
||||
pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0300
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0300
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
lag global[$b]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $270d ; 9997
|
||||
eq?
|
||||
bnt code_0300
|
||||
pushi $f ; 15, loop
|
||||
push0
|
||||
lag global[$b]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $9 ; inLeft
|
||||
ge?
|
||||
bnt code_0300
|
||||
push2
|
||||
pushi $1f ; 31, brBottom
|
||||
pushi $7 ; priority
|
||||
callk kernel_118, $4
|
||||
bnot
|
||||
bnt code_02c8
|
||||
pushi $2b ; 43, '+', type
|
||||
push1
|
||||
pushi $4000 ; 16384
|
||||
pushi $31 ; 49, '1', message
|
||||
push1
|
||||
push2
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $12
|
||||
bnot
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_02c8: pushi $2b ; 43, '+', type
|
||||
push1
|
||||
pushi $4000 ; 16384
|
||||
pushi $31 ; 49, '1', message
|
||||
push1
|
||||
pushi $33 ; 51, '3', play
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $12
|
||||
bnot
|
||||
pushi $f ; 15, loop
|
||||
push0
|
||||
lag global[$b]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $11 ; 17, bitmap
|
||||
eq?
|
||||
bnt code_02f5
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push1
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0300
|
||||
|
||||
code_02f5: pushi $c8 ; 200, handleEvent
|
||||
push1
|
||||
lsp param[$1]
|
||||
lag global[$1]
|
||||
send $6
|
||||
bnot
|
||||
code_0300: pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
flushView::doit:
|
||||
push2
|
||||
pushi $80 ; 128, lastKey
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_1, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Loading…
Reference in New Issue