RealmFiles/Script/Script45018.txt

1212 lines
18 KiB
Plaintext

export45018_0 = makeCharacter_Page4
prevBtn::doit:
link $1
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$9e]
send $6
bnot
sat temp[$0]
pushi $5a ; 90, 'Z', size
push0
pushi $23 ; 35, '#', text
push0
lofsa textField
send $4
bnot
send $4
bnot
bnt code_0091
pushi $4ca ; 1226, setBiography
push1
pushi $23 ; 35, '#', text
push0
lofsa textField
send $4
bnot
push
lat temp[$0]
send $6
bnot
jmp code_009e
code_0091: pushi $4ca ; 1226, setBiography
push1
lofsa string_0359 ; ""
push
lat temp[$0]
send $6
bnot
code_009e: ldi $afd9 ; -20519
sag global[$36]
ret
mainBtn::doit:
pushi $7 ; priority
lofsa string_0367 ; "Warning! Your character will not be saved!\n"
push
pushi $77 ; 119, 'w', textTop
lofsa string_03c7 ; "Yes"
push
push1
pushi $77 ; 119, 'w', textTop
lofsa string_03cb ; "No"
push
push0
calle export60029_0, $e
bnot
bnt code_00e8
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
push1
lsg global[$a0]
calle export60000_0, $2
bnot
bnt code_00e3
pushi $95 ; 149, dispose
push0
lag global[$a0]
send $4
bnot
ldi $0
sag global[$a0]
code_00e3: ldi $afd6 ; -20522
sag global[$36]
code_00e8: ret
saveBtn::doit:
link $1
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$9e]
send $6
bnot
sat temp[$0]
pushi $5a ; 90, 'Z', size
push0
pushi $23 ; 35, '#', text
push0
lofsa textField
send $4
bnot
send $4
bnot
bnt code_0128
pushi $4ca ; 1226, setBiography
push1
pushi $23 ; 35, '#', text
push0
lofsa textField
send $4
bnot
push
lat temp[$0]
send $6
bnot
jmp code_0135
code_0128: pushi $4ca ; 1226, setBiography
push1
lofsa string_0359 ; ""
push
lat temp[$0]
send $6
bnot
code_0135: pushi $c9 ; 201, setScript
push1
pushi $8d ; 141, new
push0
lofsa CreateCharacter
send $4
bnot
push
lag global[$3]
send $6
bnot
ret
textField::init:
pToa text
not
bnt code_015a
pushi $8d ; 141, new
push0
class Str
send $4
bnot
aTop text
code_015a: pTos state
ldi $8 ; fixPriority
or
aTop state
pushi $94 ; 148, init
push0
&rest $1
super EditItem, $4
bnot
ret
textField::drawSelected:
ret
makeCharacter_Page4::init:
link $9
pushi $94 ; 148, init
push0
&rest $1
super StaticRealmRoom, $4
bnot
ldi $0
sag global[$d3]
ldi $0
sag global[$c8]
pushi $2f4 ; 756, pConnected
push0
lag global[$6a]
send $4
bnot
not
bnt code_019f
lag global[$9e]
not
bnt code_019f
pushi $8d ; 141, new
push0
class fNBody
send $4
bnot
sag global[$9e]
code_019f: ldi $3 ; z
sat temp[$5]
pushi $3 ; z
pushi $2332 ; 9010
push0
push0
callk kernel_28, $6
bnot
sat temp[$6]
pushi $27f ; 639, rename
push
lat temp[$5]
mul
sub
push
lst temp[$5]
ldi $1
add
div
sat temp[$4]
pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$1]
pushi $7 ; priority
push0
pushi $afc8 ; -20536
push2
pushi $6 ; maxScale
push0
push1
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_72, $e
bnot
pushi $1c8 ; 456, helpStr
push1
lst temp[$1]
pushi $94 ; 148, init
push0
pushi $db ; 219, moveTo
push2
lst temp[$4]
pushi $1b0 ; 432, prevDir
lofsa prevBtn
send $12
bnot
pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$1]
pushi $7 ; priority
push0
pushi $afc8 ; -20536
push1
pushi $6 ; maxScale
push0
push1
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_72, $e
bnot
pushi $1c8 ; 456, helpStr
push1
lst temp[$1]
pushi $94 ; 148, init
push0
pushi $db ; 219, moveTo
push2
lst temp[$4]
ldi $2
mul
push
lat temp[$6]
add
push
pushi $1b0 ; 432, prevDir
lofsa saveBtn
send $12
bnot
pushi $37d ; 893, servIDEquals
push2
pushi $ff ; 255, asInteger
dup
lag global[$9e]
send $8
bnot
bnt code_0259
pushi $1b4 ; 436, enable
push2
push1
push0
lofsa saveBtn
send $8
bnot
jmp code_0265
code_0259: pushi $1b4 ; 436, enable
push2
push0
push1
lofsa saveBtn
send $8
bnot
code_0265: pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$1]
pushi $7 ; priority
push0
pushi $afc8 ; -20536
pushi $7 ; priority
pushi $6 ; maxScale
push0
push1
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_72, $e
bnot
pushi $1c8 ; 456, helpStr
push1
lst temp[$1]
pushi $94 ; 148, init
push0
pushi $db ; 219, moveTo
push2
lst temp[$4]
ldi $3 ; z
mul
push
lst temp[$6]
ldi $2
mul
add
push
pushi $1b0 ; 432, prevDir
lofsa mainBtn
send $12
bnot
pushi $e ; 14, view
push1
pushi $2330 ; 9008
pushi $f ; 15, loop
push1
push0
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
class View
send $4
bnot
sat temp[$2]
send $10
bnot
push2
lst temp[$2]
pushi $a ; 10, inTop
calle export45011_0, $4
bnot
pushi $e ; 14, view
push1
pushi $2331 ; 9009
pushi $f ; 15, loop
push1
push2
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
class View
send $4
bnot
sat temp[$3]
send $10
bnot
push2
lst temp[$3]
pushi $50 ; 80, 'P', claimed
calle export45011_0, $4
bnot
pushi $d0 ; 208, with
push1
lofsa string_03ed ; "Please enter any personal information about your character."
push
class Str
send $6
bnot
sat temp[$1]
pushi $3 ; z
push1
push2
pushi $9 ; inLeft
push
callk kernel_91, $4
bnot
push
pushi $14 ; 20, nsRight
callk kernel_70, $6
bnot
sat temp[$7]
pushi $25 ; 37, '%', fore
push1
pushi $1a ; 26, signal
pushi $23 ; 35, '#', text
push1
lst temp[$1]
pushi $2a ; 42, '*', font
push1
pushi $14 ; 20, nsRight
pushi $1be ; 446, setSize
push1
push
pushi $db ; 219, moveTo
push2
pushi $13f ; 319, putString
push
ldi $2
div
sub
push
ldi $5 ; scaleY
add
push
pushi $73 ; 115, 's', center
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
class TextItem
send $4
bnot
sat temp[$8]
send $24
bnot
pushi $e ; 14, view
push1
pushi $2331 ; 9009
pushi $f ; 15, loop
push1
pushi $3 ; z
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
class View
send $4
bnot
sat temp[$3]
send $10
bnot
push2
lst temp[$3]
pushi $17c ; 380, isNotHidden
calle export45011_0, $4
bnot
pushi $e ; 14, view
push1
pushi $2330 ; 9008
pushi $f ; 15, loop
push1
push1
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
class View
send $4
bnot
sat temp[$3]
send $10
bnot
push2
lst temp[$3]
pushi $94 ; 148, init
calle export45011_0, $4
bnot
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$9e]
send $6
bnot
sat temp[$0]
pushi $4c8 ; 1224, pBiography
push0
send $4
bnot
not
bnt code_03cf
pushi $4ca ; 1226, setBiography
push1
lofsa string_0359 ; ""
push
lat temp[$0]
send $6
bnot
code_03cf: pushi $d0 ; 208, with
push1
pushi $4c8 ; 1224, pBiography
push0
lat temp[$0]
send $4
bnot
push
class Str
send $6
bnot
sat temp[$1]
pushi $23 ; 35, '#', text
push1
push
pushi $94 ; 148, init
push0
lofsa textField
send $a
bnot
pushi $57 ; 87, 'W', draw
push0
pushi $1d0 ; 464, pScreen
push0
lag global[$3]
send $4
bnot
send $4
bnot
pushi $276 ; 630, handsOn
push0
lag global[$2]
send $4
bnot
ret
nameCharacter::new:
link $1
pushi $8d ; 141, new
push0
super EditItem, $4
bnot
sat temp[$0]
pushi $23 ; 35, '#', text
push1
pushi $8d ; 141, new
push0
class Str
send $4
bnot
push
lat temp[$0]
send $6
bnot
ret
nameCharacter::init:
pTos state
ldi $8 ; fixPriority
or
aTop state
pushi $94 ; 148, init
push0
&rest $1
super EditItem, $4
bnot
pushi $1be ; 446, setSize
push1
pTos right
self $6
bnot
ret
nameCharacter::dispose:
ldi $0
aTop text
pushi $95 ; 149, dispose
push0
&rest $1
super EditItem, $4
bnot
ret
nameCharacter::validKey:
pushi $7c ; 124, '|', titleBack
lap param[$1]
ne?
bnt code_047f
push1
lsp param[$1]
calle export60027_5, $2
bnot
bnt code_047f
push1
lsp param[$1]
calle export60027_7, $2
bnot
not
bnt code_047f
push1
lsp param[$1]
calle export60027_2, $2
bnot
not
code_047f: bt code_04a9
pushi $c ; 12, inBottom
lsp param[$1]
pushi $3 ; z
pushi $4700 ; 18176
pushi $4b00 ; 19200
pushi $4d00 ; 19712
pushi $4f00 ; 20224
pushi $5200 ; 20992
pushi $5300 ; 21248
pushi $d ; 13, seenRect
pushi $9 ; inLeft
pushi $f00 ; 3840, BAD SELECTOR
pushi $8 ; fixPriority
calle export60025_4, $18
bnot
code_04a9: ret
RepromptName::changeState:
link $2
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_052c
pushi $276 ; 630, handsOn
push0
lag global[$2]
send $4
bnot
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$1]
send $6
bnot
sat temp[$1]
pushi $f5 ; 245, format
pushi $4 ; scaleX
lofsa string_044b ; "%c%s%c is already in use.\n"
push
pushi $22 ; 34, '"', time
pushi $35d ; 861, pProperName
push0
lat temp[$1]
send $4
bnot
push
pushi $22 ; 34, '"', time
class Str
send $c
bnot
sat temp[$0]
pushi $12 ; 18, nsLeft
push
pushi $81 ; 129, magnifier
pushi $8d ; 141, new
push0
lofsa nameCharacter
send $4
bnot
aTop scratch
push
pushi $fdf5 ; -523
lsg global[$55]
pushi $8b ; 139, numLines
push1
pushi $77 ; 119, 'w', textTop
lofsa string_0483 ; " OK "
push
push1
pushi $77 ; 119, 'w', textTop
lofsa string_0488 ; "Cancel"
push
push0
pushi $93 ; 147, pLine
pushSelf
pushi $c8 ; 200, handleEvent
pushi $91 ; 145, bitPutIndex
push2
calle export60029_0, $24
bnot
jmp code_0557
code_052c: dup
ldi $1
eq?
bnt code_0557
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
push1
pTos scratch
calle export60000_0, $2
bnot
bnt code_0550
pushi $95 ; 149, dispose
push0
pToa scratch
send $4
bnot
code_0550: pushi $95 ; 149, dispose
push0
self $4
bnot
code_0557: toss
ret
RepromptName::handleEvent:
link $1
lap param[$0]
bnt code_0631
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$1]
send $6
bnot
sat temp[$0]
lsp param[$1]
dup
ldi $0
eq?
bnt code_05a0
push1
pTos scratch
calle export60000_0, $2
bnot
bnt code_058b
pushi $95 ; 149, dispose
push0
pToa scratch
send $4
bnot
code_058b: pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
ldi $afd6 ; -20522
sag global[$36]
ldi $0
aTop caller
jmp code_062b
code_05a0: dup
ldi $1
eq?
bnt code_0618
push2
pushi $a ; 10, inTop
pushi $71 ; 113, 'q', data
push0
pushi $23 ; 35, '#', text
push0
pToa scratch
send $4
bnot
send $4
bnot
push
callk kernel_92, $4
bnot
push1
lofsa nameCharacter
push
calle export60000_0, $2
bnot
bnt code_060b
pushi $5a ; 90, 'Z', size
push0
pushi $23 ; 35, '#', text
push0
pToa scratch
send $4
bnot
send $4
bnot
push
ldi $0
gt?
bnt code_060b
pushi $ae ; 174, indexOf
push1
pushi $2a ; 42, '*', font
pushi $23 ; 35, '#', text
push0
pToa scratch
send $4
bnot
send $6
bnot
push
ldi $0
ge?
not
bnt code_060b
pushi $35d ; 861, pProperName
push1
pushi $23 ; 35, '#', text
push0
pToa scratch
send $4
bnot
push
lat temp[$0]
send $6
bnot
jmp code_062b
code_060b: pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
dpToa state
jmp code_062b
code_0618: pushi $3 ; z
lofsa string_048f ; "Error in name entry!\n"
push
pushi $77 ; 119, 'w', textTop
lofsa string_04b6 ; "Okay"
push
calle export60029_0, $6
bnot
code_062b: toss
ldi $1
aTop cycles
ret
code_0631: ret
CreateCharacter::handleError:
link $3
ldi $0
sat temp[$0]
ldi $0
sat temp[$1]
pushi $f5 ; 245, format
push1
lofsa string_04c8 ; "Unable to create character."
push
class Str
send $6
bnot
sat temp[$1]
lsp param[$1]
lag global[$6a]
eq?
bnt code_06fb
pTos state
ldi $0
eq?
bnt code_0667
pushi $95 ; 149, dispose
push0
lag global[$9e]
send $4
bnot
lag global[$1]
sag global[$9e]
code_0667: lsp param[$3]
dup
ldi $271e ; 10014
eq?
bnt code_0682
pushi $f5 ; 245, format
push1
lofsa string_04e4 ; "We're sorry, but in this demo version, you are not allowed to save characters that you create. If you wish to experience the full capabilities of The Realm, please visit our website at http://www.realmserver.com for ordering information. Thank you and happy adventures!\n"
push
class Str
send $6
bnot
sat temp[$0]
jmp code_06fa
code_0682: dup
ldi $2716 ; 10006
eq?
bnt code_069b
pushi $f5 ; 245, format
push1
lofsa string_05f3 ; "Data Error: Server process unavailable.\n"
push
class Str
send $6
bnot
sat temp[$0]
jmp code_06fa
code_069b: dup
ldi $2714 ; 10004
eq?
bnt code_06b3
pushi $f5 ; 245, format
push1
lofsa string_061c ; "Data Error: Object data not found.\n"
push
class Str
send $6
bnot
sat temp[$0]
jmp code_06fa
code_06b3: dup
ldi $2711 ; 10001
eq?
bnt code_06eb
pushi $271 ; 625, handsLevel
push0
lag global[$2]
send $4
bnot
not
bnt code_06cf
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
code_06cf: pushi $c9 ; 201, setScript
push2
pushi $8d ; 141, new
push0
lofsa RepromptName
send $4
bnot
push
pushSelf
self $8
bnot
pTos start
ldi $1
sub
aTop state
jmp code_06fa
code_06eb: pushi $f5 ; 245, format
push1
lofsa string_0640 ; "Data Error: Unknown.\n"
push
class Str
send $6
bnot
sat temp[$0]
code_06fa: toss
code_06fb: lat temp[$0]
bnt code_072c
pushi $6 ; maxScale
pushi $f7 ; 247, cat
push1
lst temp[$1]
send $6
bnot
push
pushi $65 ; 101, 'e', topString
push1
pushi $77 ; 119, 'w', textTop
lofsa string_04b6 ; "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_072c: pushi $95 ; 149, dispose
push0
lat temp[$1]
send $4
bnot
ret
CreateCharacter::changeState:
link $3
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_07ca
lag global[$9e]
sag global[$1]
pushi $8d ; 141, new
push0
class WorldEgo
send $4
bnot
sag global[$9e]
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$1]
send $6
bnot
sat temp[$1]
pushi $35d ; 861, pProperName
push1
push1
pushi $35d ; 861, pProperName
push0
send $4
bnot
push
calle export60027_14, $2
bnot
push
lat temp[$1]
send $6
bnot
pushi $5a2 ; 1442, createCharacter
pushi $9 ; inLeft
lsg global[$9e]
pushi $35d ; 861, pProperName
push0
lat temp[$1]
send $4
bnot
push
pushi $4c7 ; 1223, pTitle
push0
lat temp[$1]
send $4
bnot
push
pushi $4c5 ; 1221, pProfession
push0
lat temp[$1]
send $4
bnot
push
pushi $30b ; 779, pRace
push0
lat temp[$1]
send $4
bnot
push
pushi $30c ; 780, pSex
push0
lat temp[$1]
send $4
bnot
push
pushi $433 ; 1075, pPeaceful
push0
lag global[$1]
send $4
bnot
push
lsg global[$1]
pushSelf
lag global[$6a]
send $16
bnot
jmp code_089d
code_07ca: dup
ldi $1
eq?
bnt code_07e3
pushi $5a8 ; 1448, setHeadData
pushi $3 ; z
lsg global[$9e]
lsg global[$1]
pushSelf
lag global[$6a]
send $a
bnot
jmp code_089d
code_07e3: dup
ldi $2
eq?
bnt code_081a
pushi $d0 ; 208, with
push1
pushi $4c8 ; 1224, pBiography
push0
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$1]
send $6
bnot
send $4
bnot
push
class Str
send $6
bnot
sat temp[$0]
pushi $4ca ; 1226, setBiography
pushi $3 ; z
lsg global[$9e]
push
pushSelf
lag global[$6a]
send $a
bnot
jmp code_089d
code_081a: dup
ldi $3 ; z
eq?
bnt code_0857
pushi $4ca ; 1226, setBiography
push1
pushi $d0 ; 208, with
push1
pushi $4c8 ; 1224, pBiography
push0
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$1]
send $6
bnot
send $4
bnot
push
class Str
send $6
bnot
push
pushi $35c ; 860, getBase
push1
class BCharacter
push
lag global[$9e]
send $6
bnot
send $6
bnot
ldi $1
aTop cycles
jmp code_089d
code_0857: dup
ldi $4 ; scaleX
eq?
bnt code_086e
pushi $9f ; 159, add
push1
lsg global[$9e]
class StockCharacters
send $6
bnot
ldi $1
aTop cycles
jmp code_089d
code_086e: dup
ldi $5 ; scaleY
eq?
bnt code_0887
pushi $95 ; 149, dispose
push0
lag global[$1]
send $4
bnot
ldi $0
sag global[$1]
ldi $1
aTop cycles
jmp code_089d
code_0887: dup
ldi $6 ; maxScale
eq?
bnt code_089d
ldi $1
sag global[$c8]
ldi $afd6 ; -20522
sag global[$36]
pushi $95 ; 149, dispose
push0
self $4
bnot
code_089d: toss
ret