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:31:13 +00:00
parent 1d2c636c4f
commit 1f369ca131
5 changed files with 6204 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

591
Script/Script45010.txt Normal file
View File

@ -0,0 +1,591 @@
export45010_0 = IncDecButton
CharButton::init:
pushi $25 ; 37, '%', fore
push1
lsg global[$54]
pushi $1e7 ; 487, normalColor
push1
lsg global[$54]
pushi $1e8 ; 488, selectColor
push1
lsg global[$61]
pushi $1e9 ; 489, chosenColor
push1
pushi $ff ; 255, asInteger
pushi $27 ; 39, ''', mode
push1
push1
pushi $1f6 ; 502, setText
push1
pTos text
pushi $1ef ; 495, textOffsetX
push1
push2
pushi $1f0 ; 496, textOffsetY
push1
push2
self $30
bnot
pushi $94 ; 148, init
push0
&rest $1
super Button, $4
bnot
ret
CharButton::hide:
pushi $69 ; 105, 'i', hide
push1
push0
super Button, $6
bnot
ret
CharButton::draw:
ldi $ff ; 255, asInteger
aTop lastState
pushi $57 ; 87, 'W', draw
push0
&rest $1
super Button, $4
bnot
ret
NextPrevButton::choose:
pushi $1cb ; 459, choose
push0
&rest $1
super Button, $4
bnot
pTos pDirection
ldi $0
gt?
bnt code_0393
pushi $3a2 ; 930, nextFeature
push1
pTos pFeature
lag global[$9f]
send $6
bnot
jmp code_039e
code_0393: pushi $3a3 ; 931, prevFeature
push1
pTos pFeature
lag global[$9f]
send $6
bnot
code_039e: pToa pCenterButton
bnt code_03a9
pushi $1cb ; 459, choose
push0
send $4
bnot
code_03a9: ret
GroupedButton::init:
pushi $94 ; 148, init
push0
&rest $1
super CharButton, $4
bnot
pToa pMakeButtons
bnt code_03e1
pushi $5ca ; 1482, pCenterButton
push1
pTos pCenterButton
pushi $8d ; 141, new
push0
pToa pButtonType
send $4
bnot
aTop pLeftButton
send $6
bnot
pushi $5ca ; 1482, pCenterButton
push1
pTos pCenterButton
pushi $8d ; 141, new
push0
pToa pButtonType
send $4
bnot
aTop pRightButton
send $6
bnot
code_03e1: ret
GroupedButton::show:
pushi $75 ; 117, 'u', show
push0
super CharButton, $4
bnot
pushi $75 ; 117, 'u', show
push0
pToa pLeftButton
send $4
bnot
pushi $75 ; 117, 'u', show
push0
pToa pRightButton
send $4
bnot
ret
GroupedButton::hide:
pushi $69 ; 105, 'i', hide
push1
push0
super CharButton, $6
bnot
pushi $69 ; 105, 'i', hide
push0
pToa pLeftButton
send $4
bnot
pushi $69 ; 105, 'i', hide
push0
pToa pRightButton
send $4
bnot
ret
TextButton::init:
link $1
lofsa IncDecButton
aTop pButtonType
pToa helpStr
bnt code_044a
pushi $4e ; 78, 'N', width
push1
pTos pHelpW
pushi $e1 ; 225, height
push1
pTos pHelpH
pushi $1c8 ; 456, helpStr
push1
push
pushi $94 ; 148, init
push0
pushi $db ; 219, moveTo
push2
pTos pHelpX
pTos pHelpY
pushi $8d ; 141, new
push0
class Button
send $4
bnot
aTop pHelpButton
send $1e
bnot
code_044a: pushi $94 ; 148, init
push0
&rest $1
super Button, $4
bnot
pToa pMakeButtons
bnt code_0480
pushi $5ca ; 1482, pCenterButton
push1
pTos pCenterButton
pushi $8d ; 141, new
push0
pToa pButtonType
send $4
bnot
aTop pLeftButton
send $6
bnot
pushi $5ca ; 1482, pCenterButton
push1
pTos pCenterButton
pushi $8d ; 141, new
push0
pToa pButtonType
send $4
bnot
aTop pRightButton
send $6
bnot
code_0480: ret
TextButton::onMe:
link $2
pToa pHelpW
bnt code_04c8
lap param[$1]
sat temp[$0]
lap param[$2]
sat temp[$1]
pushi $87 ; 135, left
push0
pToa pHelpButton
send $4
bnot
push
lat temp[$0]
le?
bnt code_04c5
pprev
pushi $88 ; 136, right
push0
pToa pHelpButton
send $4
bnot
le?
bnt code_04c5
pushi $89 ; 137, top
push0
pToa pHelpButton
send $4
bnot
push
lat temp[$1]
le?
bnt code_04c5
pprev
pushi $8a ; 138, bottom
push0
pToa pHelpButton
send $4
bnot
le?
code_04c5: ret
jmp code_04d2
code_04c8: pushi $eb ; 235, onMe
push0
&rest $3 ; z
super Button, $4
bnot
code_04d2: ret
TextButton::show:
pushi $75 ; 117, 'u', show
push0
super Button, $4
bnot
pushi $75 ; 117, 'u', show
push0
pToa pLeftButton
send $4
bnot
pushi $75 ; 117, 'u', show
push0
pToa pRightButton
send $4
bnot
ret
TextButton::hide:
pushi $69 ; 105, 'i', hide
push1
push0
super Button, $6
bnot
pushi $69 ; 105, 'i', hide
push0
pToa pLeftButton
send $4
bnot
pushi $69 ; 105, 'i', hide
push0
pToa pRightButton
send $4
bnot
ret
IncDecButton::choose:
link $4
pushi $1cb ; 459, choose
push0
&rest $1
super Button, $4
bnot
pToa pPointSelector
sat temp[$1]
push
push0
pToa pPoints
send $4
bnot
sat temp[$3]
pToa pSelector
sat temp[$1]
pTos pPlusMinus
ldi $0
gt?
bnt code_05e1
lat temp[$3]
bnt code_0570
lst temp[$1]
push0
pToa pBase
send $4
bnot
push
ldi $1
add
push
pToa pMax
le?
bnt code_0570
-at temp[$3]
lst temp[$1]
push1
lst temp[$1]
push0
pToa pBase
send $4
bnot
push
pToa pPlusMinus
add
push
pToa pBase
send $6
bnot
pushi $5dc ; 1500, pDelta
push1
pushi $5dc ; 1500, pDelta
push0
pToa pPoints
send $4
bnot
push
pToa pPlusMinus
add
push
pToa pPoints
send $6
bnot
jmp code_0621
code_0570: lst temp[$1]
push0
pToa pBase
send $4
bnot
push
ldi $1
add
push
pToa pMax
ge?
bnt code_05c4
lst temp[$3]
ldi $0
gt?
bnt code_05c4
pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$2]
pushi $f5 ; 245, format
push2
lofsa string_0315 ; "You can only assign %d points maximum"
push
pTos pMax
lat temp[$2]
send $8
bnot
pushi $f7 ; 247, cat
push1
lofsa string_033b ; "\n"
push
lat temp[$2]
send $6
bnot
pushi $4 ; scaleX
lst temp[$2]
pushi $77 ; 119, 'w', textTop
lofsa string_0364 ; "Okay"
push
push1
calle export60029_0, $8
bnot
jmp code_0621
code_05c4: lst temp[$3]
ldi $0
eq?
bnt code_0621
pushi $4 ; scaleX
lofsa string_0369 ; "You've used all of your available points."
push
pushi $77 ; 119, 'w', textTop
lofsa string_0364 ; "Okay"
push
push1
calle export60029_0, $8
bnot
jmp code_0621
code_05e1: lst temp[$1]
push0
pToa pBase
send $4
bnot
push
ldi $1
sub
push
pToa pMin
ge?
bnt code_0621
+at temp[$3]
lst temp[$1]
push1
lst temp[$1]
push0
pToa pBase
send $4
bnot
push
pToa pPlusMinus
add
push
pToa pBase
send $6
bnot
pushi $5dc ; 1500, pDelta
push1
pushi $5dc ; 1500, pDelta
push0
pToa pPoints
send $4
bnot
push
pToa pPlusMinus
add
push
pToa pPoints
send $6
bnot
code_0621: pToa pAvailableText
bnt code_0661
pushi $95 ; 149, dispose
push0
pushi $23 ; 35, '#', text
push0
send $4
bnot
send $4
bnot
pushi $23 ; 35, '#', text
push1
pushi $f5 ; 245, format
push2
pushi $8c ; 140, scratch
push0
pToa pAvailableText
send $4
bnot
push
lst temp[$3]
class Str
send $8
bnot
push
pToa pAvailableText
send $6
bnot
pushi $1be ; 446, setSize
push0
pToa pAvailableText
send $4
bnot
pushi $57 ; 87, 'W', draw
push0
pToa pAvailableText
send $4
bnot
code_0661: pToa pTextItem
bnt code_06b3
pushi $95 ; 149, dispose
push0
pushi $23 ; 35, '#', text
push0
send $4
bnot
send $4
bnot
pushi $23 ; 35, '#', text
push1
pushi $f5 ; 245, format
push2
pushi $8c ; 140, scratch
push0
pToa pTextItem
send $4
bnot
push
lst temp[$1]
push0
pToa pBase
send $4
bnot
push
class Str
send $8
bnot
push
pToa pTextItem
send $6
bnot
pushi $1be ; 446, setSize
push0
pToa pTextItem
send $4
bnot
pushi $1ee ; 494, lastState
push1
pushi $ff ; 255, asInteger
pToa pTextItem
send $6
bnot
pushi $57 ; 87, 'W', draw
push0
pToa pTextItem
send $4
bnot
code_06b3: pToa pPointSelector
sat temp[$1]
push
push1
lst temp[$3]
pToa pPoints
send $6
bnot
ret
IncDecButton::new:
lap param[$1]
aTop pBase
lap param[$2]
aTop pSelector
lap param[$4]
aTop pTextItem
lap param[$3]
aTop pPlusMinus
lap param[$6]
aTop pMax
lap param[$5]
aTop pMin
lsp param[$0]
ldi $6 ; maxScale
gt?
bnt code_06e4
lap param[$7]
aTop pAvailableText
code_06e4: pushi $8d ; 141, new
push0
super Button, $4
bnot
ret

1079
Script/Script45011.txt Normal file
View File

File diff suppressed because it is too large Load Diff

2608
Script/Script45012.txt Normal file
View File

File diff suppressed because it is too large Load Diff

763
Script/Script45014.txt Normal file
View File

@ -0,0 +1,763 @@
export45014_0 = CharMenu
CharMenu::init:
link $c
pushi $94 ; 148, init
push0
&rest $1
super StaticRealmRoom, $4
bnot
ldi $0
sag global[$f7]
ldi $1
sag global[$d3]
pushi $8d ; 141, new
push2
pushi $ff ; 255, asInteger
dup
class LongInt
send $8
bnot
sal local[$0]
pushi $33 ; 51, '3', play
push1
lofsa string_00fe ; "charmenu.mid"
push
class MusicMgr
send $6
bnot
pushi $9d ; 157, eachElementDo
push2
pushi $f ; 15, loop
push2
class StockCharacters
send $8
bnot
pushi $9d ; 157, eachElementDo
push1
pushi $36a ; 874, updateDisplay
class StockCharacters
send $6
bnot
push2
push2
push1
callk kernel_118, $4
bnot
pushi $3 ; z
push1
push0
pushi $24 ; 36, '$', elements
push0
class StockCharacters
send $4
bnot
push
callk kernel_118, $6
bnot
pushi $9f ; 159, add
push1
pushSelf
class WinDialogSet
send $6
bnot
pushi $276 ; 630, handsOn
push0
lag global[$2]
send $4
bnot
ret
CharMenu::dispose:
lag global[$9e]
bnt code_00b4
pushi $3c6 ; 966, deleteFromRoom
push0
send $4
bnot
code_00b4: pushi $5a ; 90, 'Z', size
push0
class StockCharacters
send $4
bnot
bnt code_00ca
pushi $9d ; 157, eachElementDo
push1
pushi $3c6 ; 966, deleteFromRoom
class StockCharacters
send $6
bnot
code_00ca: pushi $58 ; 88, 'X', delete
push1
pushSelf
class WinDialogSet
send $6
bnot
push2
push1
push1
callk kernel_118, $4
bnot
push2
push2
push0
callk kernel_118, $4
bnot
pushi $95 ; 149, dispose
push0
&rest $1
super StaticRealmRoom, $4
bnot
ret
CharMenu::handleEvent:
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
dup
ldi $100 ; 256, strMax
eq?
bnt code_01ce
pushi $31 ; 49, '1', message
push0
lap param[$1]
send $4
bnot
push
dup
ldi $0
eq?
bnt code_014d
pushi $48 ; 72, 'H', modifiers
push0
lap param[$1]
send $4
bnot
sag global[$1]
pushi $58 ; 88, 'X', delete
push1
push
class StockCharacters
send $6
bnot
pushi $9d ; 157, eachElementDo
push1
pushi $95 ; 149, dispose
class StockCharacters
send $6
bnot
pushi $a6 ; 166, release
push0
class StockCharacters
send $4
bnot
ldi $0
sag global[$9e]
ldi $1
sag global[$fe]
pushi $c9 ; 201, setScript
push1
lofsa loginScript
push
lag global[$3]
send $6
bnot
jmp code_01cd
code_014d: dup
ldi $1
eq?
bnt code_0173
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
ldi $0
sag global[$9e]
pushi $8d ; 141, new
push0
class fNBody
send $4
bnot
sag global[$9e]
ldi $afd7 ; -20521
sag global[$36]
jmp code_01cd
code_0173: dup
ldi $f ; 15, loop
eq?
bnt code_01b6
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
pushi $48 ; 72, 'H', modifiers
push0
lap param[$1]
send $4
bnot
sag global[$9e]
pushi $b5 ; 181, set
push2
pushi $2cb ; 715, pServIDLo
push0
send $4
bnot
push
pushi $2cc ; 716, pServIDHi
push0
lag global[$9e]
send $4
bnot
push
lal local[$0]
send $8
bnot
pushi $c9 ; 201, setScript
push1
lofsa eraseScript
push
lag global[$3]
send $6
bnot
jmp code_01cd
code_01b6: dup
ldi $e ; 14, view
eq?
bnt code_01cd
pushi $45 ; 69, 'E', doit
push1
pushi $48 ; 72, 'H', modifiers
push0
lap param[$1]
send $4
bnot
push
class CreateLookDialog
send $6
bnot
code_01cd: toss
code_01ce: toss
ret
loginScript::dispose:
pushi $276 ; 630, handsOn
push0
lag global[$2]
send $4
bnot
pushi $95 ; 149, dispose
push0
&rest $1
super Script, $4
bnot
ret
loginScript::handleError:
link $1
lsp param[$1]
lag global[$6a]
eq?
bnt code_0220
pushi $f5 ; 245, format
push1
lofsa string_0114 ; "Server Error: Unable to login."
push
class Str
send $6
bnot
sat temp[$0]
pushi $6 ; maxScale
push
pushi $65 ; 101, 'e', topString
push1
pushi $77 ; 119, 'w', textTop
lofsa string_0133 ; "Okay"
push
push0
calle export60029_0, $c
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
code_0220: ret
loginScript::changeState:
link $6
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_0246
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
pushi $549 ; 1353, getExtendedProps
push2
lsg global[$1]
pushSelf
lag global[$6a]
send $8
bnot
jmp code_03d5
code_0246: dup
ldi $1
eq?
bnt code_02b6
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$1]
send $6
bnot
sat temp[$3]
ldi $0
sat temp[$2]
code_025e: lst temp[$2]
ldi $94 ; 148, init
lt?
bnt code_0299
pushi $4b ; 75, 'K', at
push1
lst temp[$2]
pushi $431 ; 1073, pSpellArray
push0
lat temp[$3]
send $4
bnot
send $6
bnot
bnt code_0295
pushi $9f ; 159, add
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$2]
push2
pushi $9cac ; -25428
pushi $6 ; maxScale
callk kernel_2, $4
bnot
send $6
bnot
push
class SpellList
send $6
bnot
code_0295: +at temp[$2]
jmp code_025e
code_0299: pushi $5a5 ; 1445, loginCharacter
push2
lsg global[$1]
pushSelf
lag global[$6a]
send $8
bnot
push1
pushi $16 ; 22, lsLeft
callk kernel_118, $2
bnot
push1
pushi $3 ; z
callk kernel_118, $2
bnot
jmp code_03d5
code_02b6: dup
ldi $2
eq?
bnt code_02fc
pushi $6 ; maxScale
dup
pushi $5 ; scaleY
pushi $406 ; 1030, pHealth
push0
lag global[$1]
send $4
bnot
push
pushi $632 ; 1586, pHealthHi
push0
lag global[$1]
send $4
bnot
push
pushi $407 ; 1031, pHealthMax
push0
lag global[$1]
send $4
bnot
push
pushi $633 ; 1587, pHealthMaxHi
push0
lag global[$1]
send $4
bnot
push
callk kernel_118, $c
bnot
pushi $5b6 ; 1462, getStartingPosn
push2
lsg global[$1]
pushSelf
lag global[$6a]
send $8
bnot
jmp code_03d5
code_02fc: dup
ldi $3 ; z
eq?
bnt code_03d5
pushi $127 ; 295, equal
push2
pushi $ff ; 255, asInteger
dup
lag global[$d7]
send $8
bnot
not
bnt code_0324
push1
push1
lsg global[$d8]
push2
push1
lsg global[$d9]
pushi $f ; 15, loop
push1
lsg global[$da]
lag global[$1]
send $12
bnot
code_0324: pushi $3bb ; 955, clearMode
push1
push2
pushi $3bb ; 955, clearMode
push1
pushi $4 ; scaleX
pushi $3ba ; 954, setMode
push1
push1
pushi $3cd ; 973, recordPosn
push0
pushi $3cc ; 972, sendMovie
push1
push1
lag global[$1]
send $1c
bnot
ldi $0
sat temp[$0]
pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$1]
push2
lofsa string_0138 ; "firstRoom"
push
lst temp[$1]
callk kernel_125, $4
bnot
bnt code_036b
pushi $ff ; 255, asInteger
push0
lat temp[$1]
send $4
bnot
sat temp[$0]
jmp code_0378
code_036b: push2
pushi $13b ; 315, putWord
pushi $140 ; 320, pHandle
callk kernel_60, $4
bnot
sat temp[$0]
code_0378: pushi $95 ; 149, dispose
push0
lat temp[$1]
send $4
bnot
pushi $141 ; 321, stop
push0
class MusicMgr
send $4
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$4]
pushi $10f ; 271, setLong
push1
lsg global[$d7]
send $6
bnot
pushi $127 ; 295, equal
push2
pushi $ff ; 255, asInteger
dup
lat temp[$4]
send $8
bnot
bnt code_03c3
pushi $5a6 ; 1446, firstRoom
push1
pushi $8d ; 141, new
push1
lst temp[$0]
class LongInt
send $6
bnot
push
lag global[$6a]
send $6
bnot
jmp code_03ce
code_03c3: pushi $5a6 ; 1446, firstRoom
push1
lst temp[$4]
lag global[$6a]
send $6
bnot
code_03ce: pushi $95 ; 149, dispose
push0
self $4
bnot
code_03d5: toss
ret
eraseScript::handleError:
link $1
pushi $276 ; 630, handsOn
push0
lag global[$2]
send $4
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
ret
eraseScript::changeState:
link $6
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_0409
lag global[$9e]
aTop register
pushi $5a3 ; 1443, destroyCharacter
push2
pTos register
pushSelf
lag global[$6a]
send $8
bnot
jmp code_043c
code_0409: dup
ldi $1
eq?
bnt code_043c
pushi $69 ; 105, 'i', hide
push0
pToa register
send $4
bnot
pushi $58 ; 88, 'X', delete
push1
pTos register
class StockCharacters
send $6
bnot
pushi $3 ; z
push1
pushi $3 ; z
pushi $24 ; 36, '$', elements
push0
class StockCharacters
send $4
bnot
push
callk kernel_118, $6
bnot
pushi $276 ; 630, handsOn
push0
lag global[$2]
send $4
bnot
code_043c: toss
ret
LookAtCharacter::changeState:
link $3
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_0490
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
pushi $8d ; 141, new
push0
class Str
send $4
bnot
aTop scratch
pushi $319 ; 793, pHead
push0
pToa register
send $4
bnot
bnt code_047d
pushi $50e ; 1294, getBiography
pushi $3 ; z
pTos register
pTos scratch
pushSelf
lag global[$6a]
send $a
bnot
jmp code_0535
code_047d: pushi $4fa ; 1274, getDescription
pushi $3 ; z
pTos register
pTos scratch
pushSelf
lag global[$6a]
send $a
bnot
jmp code_0535
code_0490: dup
ldi $1
eq?
bnt code_04e9
pushi $319 ; 793, pHead
push0
pToa register
send $4
bnot
bnt code_04c5
pushi $4ca ; 1226, setBiography
push1
pTos scratch
pushi $35c ; 860, getBase
push1
class BCharacter
push
pToa register
send $6
bnot
send $6
bnot
pushi $549 ; 1353, getExtendedProps
push2
pTos register
pushSelf
lag global[$6a]
send $8
bnot
jmp code_0535
code_04c5: pushi $6 ; maxScale
push2
pushi $9 ; inLeft
pTos scratch
callk kernel_91, $4
bnot
push
pushi $77 ; 119, 'w', textTop
lofsa string_0133 ; "Okay"
push
push0
pushi $91 ; 145, bitPutIndex
push2
calle export60029_0, $c
bnot
ldi $1
aTop cycles
jmp code_0535
code_04e9: dup
ldi $2
eq?
bnt code_051f
push1
pTos scratch
calle export60000_0, $2
bnot
bnt code_0504
pushi $95 ; 149, dispose
push0
pToa scratch
send $4
bnot
code_0504: pushi $319 ; 793, pHead
push0
pToa register
send $4
bnot
bnt code_0519
pushi $45 ; 69, 'E', doit
push1
pTos register
class CreateLookDialog
send $6
bnot
code_0519: ldi $1
aTop cycles
jmp code_0535
code_051f: dup
ldi $3 ; z
eq?
bnt code_0535
pushi $276 ; 630, handsOn
push0
lag global[$2]
send $4
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
code_0535: toss
ret

1163
Script/Script45015.txt Normal file
View File

File diff suppressed because it is too large Load Diff