mirror of
https://github.com/pret/pokered.git
synced 2024-10-24 07:25:21 +00:00
40c17c906b
For unknown addresses, use "w<address>". Label overleads are still an issue.
321 lines
5.3 KiB
NASM
Executable file
321 lines
5.3 KiB
NASM
Executable file
PewterCityScript: ; 19237 (6:5237)
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, PewterCityScriptPointers
|
|
ld a, [W_PEWTERCITYCURSCRIPT]
|
|
jp CallFunctionInTable
|
|
|
|
PewterCityScriptPointers: ; 19243 (6:5243)
|
|
dw PewterCityScript0
|
|
dw PewterCityScript1
|
|
dw PewterCityScript2
|
|
dw PewterCityScript3
|
|
dw PewterCityScript4
|
|
dw PewterCityScript5
|
|
dw PewterCityScript6
|
|
|
|
PewterCityScript0: ; 19251 (6:5251)
|
|
xor a
|
|
ld [W_MUSEUM1FCURSCRIPT], a
|
|
ld hl, wd754
|
|
res 0, [hl]
|
|
call PewterCityScript_1925e
|
|
ret
|
|
|
|
PewterCityScript_1925e: ; 1925e (6:525e)
|
|
ld a, [wd755]
|
|
bit 7, a
|
|
ret nz
|
|
ld hl, CoordsData_19277
|
|
call ArePlayerCoordsInArray
|
|
ret nc
|
|
ld a, $f0
|
|
ld [wJoyIgnore], a
|
|
ld a, $5
|
|
ld [$ff8c], a
|
|
jp DisplayTextID
|
|
|
|
CoordsData_19277: ; 19277 (6:5277)
|
|
db $11,$23
|
|
db $11,$24
|
|
db $12,$25
|
|
db $13,$25
|
|
db $ff
|
|
|
|
PewterCityScript1: ; 19280 (6:5280)
|
|
ld a, [wcc57]
|
|
and a
|
|
ret nz
|
|
ld a, $3
|
|
ld [$ff8c], a
|
|
ld a, $4
|
|
ld [$ff8d], a
|
|
call Func_34a6
|
|
ld a, $34
|
|
ld [$ff8d], a
|
|
call Func_34b9
|
|
call Func_2307
|
|
ld hl, wFlags_0xcd60
|
|
set 4, [hl]
|
|
ld a, $d
|
|
ld [$ff8c], a
|
|
call DisplayTextID
|
|
ld a, $3c
|
|
ld [$ffeb], a
|
|
ld a, $30
|
|
ld [$ffec], a
|
|
ld a, $c
|
|
ld [$ffed], a
|
|
ld a, $11
|
|
ld [$ffee], a
|
|
ld a, $3
|
|
ld [wcf13], a
|
|
call Func_32f9
|
|
ld a, $3
|
|
ld [$ff8c], a
|
|
ld de, MovementData_PewterMuseumGuyExit ; $52ce
|
|
call MoveSprite
|
|
ld a, $2
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
ret
|
|
|
|
MovementData_PewterMuseumGuyExit: ; 192ce (6:52ce)
|
|
db $00,$00,$00,$00,$FF
|
|
|
|
PewterCityScript2: ; 192d3 (6:52d3)
|
|
ld a, [wd730]
|
|
bit 0, a
|
|
ret nz
|
|
ld a, $3
|
|
ld [wcc4d], a
|
|
ld a, $11
|
|
call Predef
|
|
ld a, $3
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
ret
|
|
|
|
PewterCityScript3: ; 192e9 (6:52e9)
|
|
ld a, $3
|
|
ld [wcf13], a
|
|
call Func_32fe
|
|
ld a, $3
|
|
ld [wcc4d], a
|
|
ld a, $15
|
|
call Predef
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld a, $0
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
ret
|
|
|
|
PewterCityScript4: ; 19305 (6:5305)
|
|
ld a, [wcc57]
|
|
and a
|
|
ret nz
|
|
ld a, $5
|
|
ld [$ff8c], a
|
|
ld a, $8
|
|
ld [$ff8d], a
|
|
call Func_34a6
|
|
ld a, $18
|
|
ld [$ff8d], a
|
|
call Func_34b9
|
|
call Func_2307
|
|
ld hl, wFlags_0xcd60
|
|
set 4, [hl]
|
|
ld a, $e
|
|
ld [$ff8c], a
|
|
call DisplayTextID
|
|
ld a, $3c
|
|
ld [$ffeb], a
|
|
ld a, $40
|
|
ld [$ffec], a
|
|
ld a, $16
|
|
ld [$ffed], a
|
|
ld a, $10
|
|
ld [$ffee], a
|
|
ld a, $5
|
|
ld [wcf13], a
|
|
call Func_32f9
|
|
ld a, $5
|
|
ld [$ff8c], a
|
|
ld de, MovementData_PewterGymGuyExit
|
|
call MoveSprite
|
|
ld a, $5
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
ret
|
|
|
|
MovementData_PewterGymGuyExit: ; 19353 (6:5353)
|
|
db $C0,$C0,$C0,$C0,$C0,$FF
|
|
|
|
PewterCityScript5: ; 19359 (6:5359)
|
|
ld a, [wd730]
|
|
bit 0, a
|
|
ret nz
|
|
ld a, $4
|
|
ld [wcc4d], a
|
|
ld a, $11
|
|
call Predef
|
|
ld a, $6
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
ret
|
|
|
|
PewterCityScript6: ; 1936f (6:536f)
|
|
ld a, $5
|
|
ld [wcf13], a
|
|
call Func_32fe
|
|
ld a, $4
|
|
ld [wcc4d], a
|
|
ld a, $15
|
|
call Predef
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld a, $0
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
ret
|
|
|
|
PewterCityTextPointers: ; 1938b (6:538b)
|
|
dw PewterCityText1
|
|
dw PewterCityText2
|
|
dw PewterCityText3
|
|
dw PewterCityText4
|
|
dw PewterCityText5
|
|
dw PewterCityText6
|
|
dw PewterCityText7
|
|
dw MartSignText
|
|
dw PokeCenterSignText
|
|
dw PewterCityText10
|
|
dw PewterCityText11
|
|
dw PewterCityText12
|
|
dw PewterCityText13
|
|
dw PewterCityText14
|
|
|
|
PewterCityText1: ; 193a7 (6:53a7)
|
|
TX_FAR _PewterCityText1
|
|
db "@"
|
|
|
|
PewterCityText2: ; 193ac (6:53ac)
|
|
TX_FAR _PewterCityText2
|
|
db "@"
|
|
|
|
PewterCityText3: ; 193b1 (6:53b1)
|
|
db $08 ; asm
|
|
ld hl, PewterCityText_193f1
|
|
call PrintText
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
jr nz, .asm_f46a9 ; 0x193bf
|
|
ld hl, PewterCityText_193f6
|
|
call PrintText
|
|
jr .asm_ac429 ; 0x193c7
|
|
.asm_f46a9 ; 0x193c9
|
|
ld hl, PewterCityText_193fb
|
|
call PrintText
|
|
xor a
|
|
ldh [$b3], a
|
|
ldh [$b4], a
|
|
ld [wcf10], a
|
|
ld a, $2
|
|
ld [wcc57], a
|
|
ldh a, [$b8]
|
|
ld [wcc58], a
|
|
ld a, $3
|
|
ld [wcf13], a
|
|
call Func_32f4
|
|
ld a, $1
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
.asm_ac429 ; 0x193ee
|
|
jp TextScriptEnd
|
|
|
|
PewterCityText_193f1: ; 193f1 (6:53f1)
|
|
TX_FAR _PewterCityText_193f1
|
|
db "@"
|
|
|
|
PewterCityText_193f6: ; 193f6 (6:53f6)
|
|
TX_FAR _PewterCityText_193f6
|
|
db "@"
|
|
|
|
PewterCityText_193fb: ; 193fb (6:53fb)
|
|
TX_FAR _PewterCityText_193fb
|
|
db "@"
|
|
|
|
PewterCityText13: ; 19400 (6:5400)
|
|
TX_FAR _PewterCityText13
|
|
db "@"
|
|
|
|
PewterCityText4: ; 19405 (6:5405)
|
|
db $8
|
|
ld hl, PewterCityText_19427
|
|
call PrintText
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
cp $0
|
|
jr nz, .asm_e4603
|
|
ld hl, PewterCityText_1942c
|
|
call PrintText
|
|
jr .asm_e4604 ; 0x1941c $6
|
|
.asm_e4603
|
|
ld hl, PewterCityText_19431
|
|
call PrintText
|
|
.asm_e4604 ; 0x19424
|
|
jp TextScriptEnd
|
|
|
|
PewterCityText_19427: ; 19427 (6:5427)
|
|
TX_FAR _PewterCityText_19427
|
|
db "@"
|
|
|
|
PewterCityText_1942c: ; 1942c (6:542c)
|
|
TX_FAR _PewterCityText_1942c
|
|
db "@"
|
|
|
|
PewterCityText_19431: ; 19431 (6:5431)
|
|
TX_FAR _PewterCityText_19431
|
|
db "@"
|
|
|
|
PewterCityText5: ; 19436 (6:5436)
|
|
db $08 ; asm
|
|
ld hl, PewterCityText_1945d
|
|
call PrintText
|
|
xor a
|
|
ldh [$b4], a
|
|
ld [wcf10], a
|
|
ld a, $3
|
|
ld [wcc57], a
|
|
ldh a, [$b8]
|
|
ld [wcc58], a
|
|
ld a, $5
|
|
ld [wcf13], a
|
|
call Func_32f4
|
|
ld a, $4
|
|
ld [W_PEWTERCITYCURSCRIPT], a
|
|
jp TextScriptEnd
|
|
|
|
PewterCityText_1945d: ; 1945d (6:545d)
|
|
TX_FAR _PewterCityText_1945d
|
|
db "@"
|
|
|
|
PewterCityText14: ; 19462 (6:5462)
|
|
|
|
PewterCityText_19462: ; 19462 (6:5462)
|
|
TX_FAR _PewterCityText_19462
|
|
db "@"
|
|
|
|
PewterCityText6: ; 19467 (6:5467)
|
|
TX_FAR _PewterCityText6
|
|
db "@"
|
|
|
|
PewterCityText7: ; 1946c (6:546c)
|
|
TX_FAR _PewterCityText7
|
|
db "@"
|
|
|
|
PewterCityText10: ; 19471 (6:5471)
|
|
TX_FAR _PewterCityText10
|
|
db "@"
|
|
|
|
PewterCityText11: ; 19476 (6:5476)
|
|
TX_FAR _PewterCityText11
|
|
db "@"
|
|
|
|
PewterCityText12: ; 1947b (6:547b)
|
|
TX_FAR _PewterCityText12
|
|
db "@"
|