147 lines
2.3 KiB
Plaintext
147 lines
2.3 KiB
Plaintext
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
|
|
|