Upload files to "Script"
This commit is contained in:
parent
f4b2b973b3
commit
00f9ffcb3e
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,193 @@
|
|||
StoreHandler::enter:
|
||||
ret
|
||||
|
||||
StoreHandler::exit:
|
||||
ret
|
||||
|
||||
StoreHandler::newObjects:
|
||||
ret
|
||||
|
||||
FakeServer::enterStore:
|
||||
lap param[$2]
|
||||
aTop pStoreHandler
|
||||
pushi $5c1 ; 1473, pStoreID
|
||||
push1
|
||||
lsp param[$1]
|
||||
send $6
|
||||
bnot
|
||||
pushi $c9 ; 201, setScript
|
||||
push1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
lofsa FSEnterStoreScript
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
FakeServer::leaveStore:
|
||||
pushi $c9 ; 201, setScript
|
||||
push1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
lofsa FSLeaveStoreScript
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
FSStoreBag::buildBaseList:
|
||||
pushi $389 ; 905, buildBaseList
|
||||
push0
|
||||
super WorldObject, $4
|
||||
bnot
|
||||
pushi $387 ; 903, addBase
|
||||
push1
|
||||
class BCarryable
|
||||
push
|
||||
pushi $387 ; 903, addBase
|
||||
push1
|
||||
class BOpenable
|
||||
push
|
||||
pushi $387 ; 903, addBase
|
||||
push1
|
||||
class BContainer
|
||||
push
|
||||
self $12
|
||||
bnot
|
||||
ret
|
||||
|
||||
FSStoreShirt::buildBaseList:
|
||||
link $1
|
||||
pushi $389 ; 905, buildBaseList
|
||||
push0
|
||||
super WorldObject, $4
|
||||
bnot
|
||||
pushi $387 ; 903, addBase
|
||||
push1
|
||||
class BCarryable
|
||||
push
|
||||
pushi $387 ; 903, addBase
|
||||
push1
|
||||
class BWearable
|
||||
push
|
||||
self $c
|
||||
bnot
|
||||
pushi $4d1 ; 1233, setAreaWorn
|
||||
push1
|
||||
push1
|
||||
pushi $35c ; 860, getBase
|
||||
push1
|
||||
class BWearable
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
pushi $3ae ; 942, setColor
|
||||
push1
|
||||
pushi $53 ; 83, 'S', restore
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
FSStoreObjectList::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
super List, $4
|
||||
bnot
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
lofsa FSStoreBag
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
FSEnterStoreScript::changeState:
|
||||
lap param[$1]
|
||||
aTop state
|
||||
push
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0131
|
||||
push2
|
||||
push2
|
||||
pushi $6 ; maxScale
|
||||
callk kernel_60, $4
|
||||
bnot
|
||||
aTop seconds
|
||||
jmp code_0160
|
||||
|
||||
code_0131: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0160
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
lofsa FSStoreObjectList
|
||||
send $4
|
||||
bnot
|
||||
pushi $5be ; 1470, enter
|
||||
push0
|
||||
pushi $5c0 ; 1472, newObjects
|
||||
push1
|
||||
lofsa FSStoreObjectList
|
||||
push
|
||||
pushi $5c4 ; 1476, pStoreHandler
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
send $a
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0160: toss
|
||||
ret
|
||||
|
||||
FSLeaveStoreScript::changeState:
|
||||
lap param[$1]
|
||||
aTop state
|
||||
push
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0179
|
||||
push2
|
||||
push2
|
||||
pushi $6 ; maxScale
|
||||
callk kernel_60, $4
|
||||
bnot
|
||||
aTop seconds
|
||||
jmp code_0199
|
||||
|
||||
code_0179: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0199
|
||||
pushi $5bf ; 1471, exit
|
||||
push0
|
||||
pushi $5c4 ; 1476, pStoreHandler
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lofsa FSStoreObjectList
|
||||
send $4
|
||||
bnot
|
||||
code_0199: toss
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
GSound::dispose:
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,415 @@
|
|||
CursorRegionController::init:
|
||||
lsg global[$cd]
|
||||
selfID
|
||||
ne?
|
||||
bnt code_00ae
|
||||
lag global[$cd]
|
||||
bnt code_0099
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0099: selfID
|
||||
sag global[$cd]
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushSelf
|
||||
class GlobalDemons
|
||||
send $6
|
||||
bnot
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
super Set, $4
|
||||
bnot
|
||||
code_00ae: ret
|
||||
|
||||
CursorRegionController::dispose:
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
class GlobalDemons
|
||||
send $6
|
||||
bnot
|
||||
ldi $0
|
||||
aTop curRect
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Set, $4
|
||||
bnot
|
||||
ldi $0
|
||||
sag global[$cd]
|
||||
ret
|
||||
|
||||
CursorRegionController::doit:
|
||||
link $6
|
||||
pushi $f4 ; 244, curEvent
|
||||
push0
|
||||
lag global[$e]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
push1
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
push2
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$4]
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_00ef
|
||||
lap param[$1]
|
||||
code_00ef: not
|
||||
bnt code_0115
|
||||
pushi $261 ; 609, controls
|
||||
push0
|
||||
lag global[$e]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $0
|
||||
eq?
|
||||
bt code_010d
|
||||
pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $0
|
||||
ne?
|
||||
code_010d: bnt code_0115
|
||||
ret
|
||||
|
||||
bnt code_0115
|
||||
jmp code_01bd
|
||||
|
||||
code_0115: pToa curRect
|
||||
not
|
||||
bt code_0151
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
pToa curRect
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$4]
|
||||
le?
|
||||
bnt code_0150
|
||||
pprev
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
pToa curRect
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
bnt code_0150
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
pToa curRect
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$3]
|
||||
le?
|
||||
bnt code_0150
|
||||
pprev
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
pToa curRect
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
code_0150: not
|
||||
code_0151: bnt code_019a
|
||||
ldi $0
|
||||
aTop curRect
|
||||
sat temp[$0]
|
||||
code_0159: lst temp[$0]
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
lt?
|
||||
bnt code_01bd
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$0]
|
||||
self $6
|
||||
bnot
|
||||
sat temp[$1]
|
||||
bnt code_0194
|
||||
pushi $a3 ; 163, contains
|
||||
push2
|
||||
lst temp[$3]
|
||||
lst temp[$4]
|
||||
send $8
|
||||
bnot
|
||||
bnt code_0194
|
||||
pushi $54c ; 1356, inWhichList
|
||||
push1
|
||||
lst temp[$2]
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
aTop curRect
|
||||
bnt code_0194
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
pToa curRect
|
||||
send $4
|
||||
bnot
|
||||
code_0194: +at temp[$0]
|
||||
jmp code_0159
|
||||
|
||||
jmp code_01bd
|
||||
|
||||
code_019a: pToa curRect
|
||||
bnt code_01bd
|
||||
pushi $54c ; 1356, inWhichList
|
||||
push1
|
||||
lst temp[$2]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pToa curRect
|
||||
ne?
|
||||
bnt code_01bd
|
||||
lat temp[$0]
|
||||
bnt code_01bd
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
lat temp[$0]
|
||||
aTop curRect
|
||||
send $4
|
||||
bnot
|
||||
code_01bd: ret
|
||||
|
||||
CursorRegionController::reset:
|
||||
ldi $0
|
||||
aTop curRect
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push1
|
||||
push1
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
CursorRegion::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
super Rect, $4
|
||||
bnot
|
||||
pToa aCursor
|
||||
not
|
||||
bnt code_01ef
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
&rest $2
|
||||
class Cursor
|
||||
send $4
|
||||
bnot
|
||||
aTop aCursor
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Set
|
||||
send $4
|
||||
bnot
|
||||
aTop list
|
||||
code_01ef: lap param[$0]
|
||||
bnt code_01fd
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushSelf
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
code_01fd: ret
|
||||
|
||||
CursorRegion::dispose:
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
pToa aCursor
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop aCursor
|
||||
pToa list
|
||||
bnt code_021a
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop list
|
||||
code_021a: lag global[$cd]
|
||||
bnt code_0225
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
send $6
|
||||
bnot
|
||||
code_0225: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Rect, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
CursorRegion::doit:
|
||||
lsg global[$b]
|
||||
pToa aCursor
|
||||
ne?
|
||||
bnt code_0249
|
||||
pushi $1b3 ; 435, setCursor
|
||||
push2
|
||||
pTos aCursor
|
||||
push1
|
||||
lag global[$2]
|
||||
send $8
|
||||
bnot
|
||||
pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
lag global[$b]
|
||||
send $4
|
||||
bnot
|
||||
code_0249: ret
|
||||
|
||||
CursorRegion::add:
|
||||
pToa list
|
||||
bnt code_0257
|
||||
pushi $9f ; 159, add
|
||||
push0
|
||||
&rest $1
|
||||
send $4
|
||||
bnot
|
||||
code_0257: ret
|
||||
|
||||
CursorRegion::delete:
|
||||
pToa list
|
||||
bnt code_0264
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push0
|
||||
&rest $1
|
||||
send $4
|
||||
bnot
|
||||
code_0264: ret
|
||||
|
||||
CursorRegion::eachElementDo:
|
||||
pToa list
|
||||
bnt code_0272
|
||||
pushi $9d ; 157, eachElementDo
|
||||
push0
|
||||
&rest $1
|
||||
send $4
|
||||
bnot
|
||||
code_0272: ret
|
||||
|
||||
CursorRegion::inWhichList:
|
||||
link $3
|
||||
lap param[$0]
|
||||
bnt code_027d
|
||||
lap param[$1]
|
||||
jmp code_0286
|
||||
|
||||
code_027d: pushi $f4 ; 244, curEvent
|
||||
push0
|
||||
lag global[$e]
|
||||
send $4
|
||||
bnot
|
||||
code_0286: sat temp[$2]
|
||||
pToa list
|
||||
not
|
||||
bt code_0296
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
pToa list
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
code_0296: bnt code_02c2
|
||||
pTos top
|
||||
push2
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
bnt code_02bf
|
||||
pprev
|
||||
pToa bottom
|
||||
le?
|
||||
bnt code_02bf
|
||||
pTos left
|
||||
push1
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
bnt code_02bf
|
||||
pprev
|
||||
pToa right
|
||||
le?
|
||||
bnt code_02bf
|
||||
selfID
|
||||
jmp code_02c1
|
||||
|
||||
code_02bf: ldi $0
|
||||
code_02c1: ret
|
||||
|
||||
code_02c2: ldi $0
|
||||
sat temp[$0]
|
||||
code_02c6: lst temp[$0]
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
pToa list
|
||||
send $4
|
||||
bnot
|
||||
lt?
|
||||
bnt code_02f1
|
||||
pushi $54c ; 1356, inWhichList
|
||||
push1
|
||||
lst temp[$2]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$0]
|
||||
pToa list
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_02ed
|
||||
lat temp[$1]
|
||||
ret
|
||||
|
||||
code_02ed: +at temp[$0]
|
||||
jmp code_02c6
|
||||
|
||||
code_02f1: selfID
|
||||
ret
|
||||
|
||||
CursorRegion::setCursor:
|
||||
pToa aCursor
|
||||
not
|
||||
bnt code_0303
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Cursor
|
||||
send $4
|
||||
bnot
|
||||
aTop aCursor
|
||||
code_0303: pushi $1b3 ; 435, setCursor
|
||||
push0
|
||||
&rest $1
|
||||
pToa aCursor
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,914 @@
|
|||
export59962_0 = GameRoomCursorController
|
||||
|
||||
GameRoomCursorController::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegionController, $4
|
||||
bnot
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
bnt code_009f
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
lofsa NorthExitCurReg
|
||||
send $6
|
||||
bnot
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
lofsa SouthExitCurReg
|
||||
send $6
|
||||
bnot
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
lofsa EastExitCurReg
|
||||
send $6
|
||||
bnot
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
lofsa WestExitCurReg
|
||||
send $6
|
||||
bnot
|
||||
ldi $0
|
||||
aTop curRect
|
||||
jmp code_00b9
|
||||
|
||||
code_009f: pushi $9f ; 159, add
|
||||
push2
|
||||
lofsa RoomCurReg
|
||||
push
|
||||
lofsa InterfaceCurReg
|
||||
push
|
||||
self $8
|
||||
bnot
|
||||
pushi $9d ; 157, eachElementDo
|
||||
push2
|
||||
pushi $94 ; 148, init
|
||||
pushSelf
|
||||
self $8
|
||||
bnot
|
||||
code_00b9: ret
|
||||
|
||||
GameRoomCursorController::doit:
|
||||
lag global[$1]
|
||||
bnt code_00e4
|
||||
push1
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
not
|
||||
bt code_00d7
|
||||
pushi $97 ; 151, isKindOf
|
||||
push1
|
||||
class WorldActor
|
||||
push
|
||||
lag global[$1]
|
||||
send $6
|
||||
bnot
|
||||
not
|
||||
code_00d7: bnt code_00e4
|
||||
push2
|
||||
lofsa string_014e ; "ego(0x%x) is not a valid object"
|
||||
push
|
||||
lsg global[$1]
|
||||
callk kernel_132, $4
|
||||
bnot
|
||||
code_00e4: pushi $32d ; 813, pObj
|
||||
push0
|
||||
class WDragger
|
||||
send $4
|
||||
bnot
|
||||
bt code_0110
|
||||
lag global[$1]
|
||||
not
|
||||
bt code_0110
|
||||
pushi $381 ; 897, pMode
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
and
|
||||
bt code_0110
|
||||
pushi $a1 ; 161, firstEqual
|
||||
push2
|
||||
pushi $1d3 ; 467, modal
|
||||
push2
|
||||
class DialogHandler
|
||||
send $8
|
||||
bnot
|
||||
code_0110: bnt code_0117
|
||||
ldi $0
|
||||
aTop curRect
|
||||
ret
|
||||
|
||||
code_0117: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super CursorRegionController, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
RoomCurReg::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
push0
|
||||
push0
|
||||
pushi $280 ; 640, disposeWhenDone
|
||||
pushi $131 ; 305, asStr
|
||||
pushi $9f ; 159, add
|
||||
pushi $4 ; scaleX
|
||||
lofsa WestExitCurReg
|
||||
push
|
||||
lofsa EastExitCurReg
|
||||
push
|
||||
lofsa SouthExitCurReg
|
||||
push
|
||||
lofsa NorthExitCurReg
|
||||
push
|
||||
pushi $1b3 ; 435, setCursor
|
||||
pushi $3 ; z
|
||||
pushi $270d ; 9997
|
||||
push1
|
||||
push0
|
||||
pushi $9d ; 157, eachElementDo
|
||||
push2
|
||||
pushi $94 ; 148, init
|
||||
pushSelf
|
||||
self $2a
|
||||
bnot
|
||||
ret
|
||||
|
||||
RoomCurReg::doit:
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $25e ; 606, cursorLoop
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
WestExitCurReg::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
pushi $1b3 ; 435, setCursor
|
||||
pushi $3 ; z
|
||||
pushi $270d ; 9997
|
||||
pushi $9 ; inLeft
|
||||
push0
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
push0
|
||||
pushi $1e ; 30, brRight
|
||||
pushi $14 ; 20, nsRight
|
||||
pushi $118 ; 280, bitANDLong
|
||||
self $16
|
||||
bnot
|
||||
ret
|
||||
|
||||
WestExitCurReg::doit:
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
eq?
|
||||
bt code_01db
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $6e ; 110, 'n', resX
|
||||
eq?
|
||||
code_01db: bnt code_0258
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0258
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $526 ; 1318, pExits
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
and
|
||||
bnt code_0206
|
||||
ldi $9 ; inLeft
|
||||
jmp code_0208
|
||||
|
||||
code_0206: ldi $11 ; 17, bitmap
|
||||
code_0208: push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
pushi $54f ; 1359, pFlags
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $80 ; 128, lastKey
|
||||
and
|
||||
bnt code_024e
|
||||
pushi $a0 ; 160, firstTrue
|
||||
push2
|
||||
pushi $35c ; 860, getBase
|
||||
class BNPC
|
||||
push
|
||||
pushi $421 ; 1057, pWObjectList
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
send $8
|
||||
bnot
|
||||
bnt code_024e
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $11 ; 17, bitmap
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_024e: pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
pToa aCursor
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0271
|
||||
|
||||
code_0258: pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $25e ; 606, cursorLoop
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_0271: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
EastExitCurReg::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
pushi $1b3 ; 435, setCursor
|
||||
pushi $3 ; z
|
||||
pushi $270d ; 9997
|
||||
pushi $a ; 10, inTop
|
||||
push0
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
pushi $26c ; 620, prevSignal
|
||||
pushi $1e ; 30, brRight
|
||||
pushi $280 ; 640, disposeWhenDone
|
||||
pushi $118 ; 280, bitANDLong
|
||||
self $16
|
||||
bnot
|
||||
ret
|
||||
|
||||
EastExitCurReg::doit:
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
eq?
|
||||
bt code_02d0
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $6e ; 110, 'n', resX
|
||||
eq?
|
||||
code_02d0: bnt code_034d
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_034d
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $526 ; 1318, pExits
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $4 ; scaleX
|
||||
and
|
||||
bnt code_02fc
|
||||
ldi $a ; 10, inTop
|
||||
jmp code_02fe
|
||||
|
||||
code_02fc: ldi $11 ; 17, bitmap
|
||||
code_02fe: push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
pushi $54f ; 1359, pFlags
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $40 ; 64, '@', yStep
|
||||
and
|
||||
bnt code_0343
|
||||
pushi $a0 ; 160, firstTrue
|
||||
push2
|
||||
pushi $35c ; 860, getBase
|
||||
class BNPC
|
||||
push
|
||||
pushi $421 ; 1057, pWObjectList
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
send $8
|
||||
bnot
|
||||
bnt code_0343
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $11 ; 17, bitmap
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_0343: pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
pToa aCursor
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0366
|
||||
|
||||
code_034d: pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $25e ; 606, cursorLoop
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_0366: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
NorthExitCurReg::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
pushi $1b3 ; 435, setCursor
|
||||
pushi $3 ; z
|
||||
pushi $270d ; 9997
|
||||
pushi $b ; 11, inRight
|
||||
push0
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
push0
|
||||
push0
|
||||
pushi $280 ; 640, disposeWhenDone
|
||||
pushi $1e ; 30, brRight
|
||||
self $16
|
||||
bnot
|
||||
ret
|
||||
|
||||
NorthExitCurReg::doit:
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
eq?
|
||||
bt code_03c1
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $6e ; 110, 'n', resX
|
||||
eq?
|
||||
code_03c1: bnt code_043e
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_043e
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $526 ; 1318, pExits
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
and
|
||||
bnt code_03ed
|
||||
ldi $b ; 11, inRight
|
||||
jmp code_03ef
|
||||
|
||||
code_03ed: ldi $11 ; 17, bitmap
|
||||
code_03ef: push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
pushi $54f ; 1359, pFlags
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $10 ; 16, cel
|
||||
and
|
||||
bnt code_0434
|
||||
pushi $a0 ; 160, firstTrue
|
||||
push2
|
||||
pushi $35c ; 860, getBase
|
||||
class BNPC
|
||||
push
|
||||
pushi $421 ; 1057, pWObjectList
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
send $8
|
||||
bnot
|
||||
bnt code_0434
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $11 ; 17, bitmap
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_0434: pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
pToa aCursor
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0457
|
||||
|
||||
code_043e: pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $25e ; 606, cursorLoop
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_0457: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
SouthExitCurReg::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
pushi $1b3 ; 435, setCursor
|
||||
pushi $3 ; z
|
||||
pushi $270d ; 9997
|
||||
pushi $c ; 12, inBottom
|
||||
push0
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
push0
|
||||
pushi $118 ; 280, bitANDLong
|
||||
pushi $280 ; 640, disposeWhenDone
|
||||
pushi $131 ; 305, asStr
|
||||
self $16
|
||||
bnot
|
||||
ret
|
||||
|
||||
SouthExitCurReg::doit:
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
eq?
|
||||
bt code_04b5
|
||||
pushi $25b ; 603, verb
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $6e ; 110, 'n', resX
|
||||
eq?
|
||||
code_04b5: bnt code_0532
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0532
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $526 ; 1318, pExits
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
and
|
||||
bnt code_04e1
|
||||
ldi $c ; 12, inBottom
|
||||
jmp code_04e3
|
||||
|
||||
code_04e1: ldi $11 ; 17, bitmap
|
||||
code_04e3: push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
pushi $54f ; 1359, pFlags
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $20 ; 32, ' ', name
|
||||
and
|
||||
bnt code_0528
|
||||
pushi $a0 ; 160, firstTrue
|
||||
push2
|
||||
pushi $35c ; 860, getBase
|
||||
class BNPC
|
||||
push
|
||||
pushi $421 ; 1057, pWObjectList
|
||||
push0
|
||||
pushi $c5 ; 197, pRoom
|
||||
push0
|
||||
lag global[$1]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
send $8
|
||||
bnot
|
||||
bnt code_0528
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $11 ; 17, bitmap
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_0528: pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
pToa aCursor
|
||||
send $4
|
||||
bnot
|
||||
jmp code_054b
|
||||
|
||||
code_0532: pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $25e ; 606, cursorLoop
|
||||
push0
|
||||
pushi $24f ; 591, curIcon
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
code_054b: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
InterfaceCurReg::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
lofsa InvBoxCurReg
|
||||
push
|
||||
pushi $9d ; 157, eachElementDo
|
||||
push2
|
||||
pushi $94 ; 148, init
|
||||
pushSelf
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
push0
|
||||
pushi $131 ; 305, asStr
|
||||
pushi $280 ; 640, disposeWhenDone
|
||||
pushi $1e0 ; 480, isControl
|
||||
pushi $1b3 ; 435, setCursor
|
||||
pushi $3 ; z
|
||||
pushi $270d ; 9997
|
||||
push0
|
||||
push0
|
||||
self $24
|
||||
bnot
|
||||
ret
|
||||
|
||||
InterfaceCurReg::doit:
|
||||
lsg global[$b]
|
||||
pToa aCursor
|
||||
ne?
|
||||
bnt code_05f9
|
||||
pushi $54b ; 1355, specialCursorInUse
|
||||
push0
|
||||
lag global[$cd]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bt code_05c1
|
||||
pushi $54b ; 1355, specialCursorInUse
|
||||
push0
|
||||
lag global[$cd]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_05f9
|
||||
pushi $383 ; 899, curPanel
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
pushi $a410 ; -23536
|
||||
push0
|
||||
callk kernel_2, $4
|
||||
bnot
|
||||
ne?
|
||||
code_05c1: bnt code_05f9
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
push2
|
||||
pushi $a410 ; -23536
|
||||
push2
|
||||
callk kernel_2, $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
push0
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
pushi $1b3 ; 435, setCursor
|
||||
push2
|
||||
pTos aCursor
|
||||
push1
|
||||
lag global[$2]
|
||||
send $8
|
||||
bnot
|
||||
pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
pToa aCursor
|
||||
send $4
|
||||
bnot
|
||||
pushi $54b ; 1355, specialCursorInUse
|
||||
push1
|
||||
push1
|
||||
lag global[$cd]
|
||||
send $6
|
||||
bnot
|
||||
code_05f9: ret
|
||||
|
||||
InvBoxCurReg::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super CursorRegion, $4
|
||||
bnot
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
pushi $170 ; 368, display
|
||||
pushi $16c ; 364, basicClip
|
||||
pushi $277 ; 631, controlOff
|
||||
pushi $1b9 ; 441, deleteCast
|
||||
pushi $1b3 ; 435, setCursor
|
||||
pushi $3 ; z
|
||||
pushi $270d ; 9997
|
||||
push2
|
||||
push0
|
||||
self $16
|
||||
bnot
|
||||
ret
|
||||
|
||||
InvBoxCurReg::doit:
|
||||
lsg global[$b]
|
||||
pToa aCursor
|
||||
ne?
|
||||
bnt code_0685
|
||||
pushi $383 ; 899, curPanel
|
||||
push0
|
||||
lag global[$6]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
pushi $a410 ; -23536
|
||||
push0
|
||||
callk kernel_2, $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_0685
|
||||
pushi $54b ; 1355, specialCursorInUse
|
||||
push0
|
||||
lag global[$cd]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_0685
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
push2
|
||||
pushi $a410 ; -23536
|
||||
push2
|
||||
callk kernel_2, $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
push2
|
||||
pToa aCursor
|
||||
send $6
|
||||
bnot
|
||||
pushi $1b3 ; 435, setCursor
|
||||
push2
|
||||
pTos aCursor
|
||||
push1
|
||||
lag global[$2]
|
||||
send $8
|
||||
bnot
|
||||
pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
lag global[$b]
|
||||
send $4
|
||||
bnot
|
||||
pushi $54b ; 1355, specialCursorInUse
|
||||
push1
|
||||
push1
|
||||
lag global[$cd]
|
||||
send $6
|
||||
bnot
|
||||
code_0685: ret
|
||||
|
||||
Loading…
Reference in New Issue