pokered/scripts/pewterpokecenter.asm

79 lines
1.6 KiB
NASM
Raw Normal View History

2014-05-18 18:19:10 +00:00
PewterPokecenterScript: ; 5c587 (17:4587)
2015-02-07 10:43:08 +00:00
call Serial_TryEstablishingExternallyClockedConnection
2014-05-18 18:19:10 +00:00
jp EnableAutoTextBoxDrawing
PewterPokecenterTextPointers: ; 5c58d (17:458d)
dw PewterPokecenterText1
dw PewterPokecenterText2
dw PewterPokecenterText3
dw PewterPokecenterText4
PewterPokecenterText1: ; 5c595 (17:4595)
db $ff
PewterPokecenterText2: ; 5c596 (17:4596)
TX_FAR _PewterPokecenterText1
db "@"
PewterPokecenterText3: ; 5c59b (17:459b)
db $8
ld a, $1
2014-09-13 07:50:56 +00:00
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
2014-05-18 18:19:10 +00:00
ld hl, PewterPokecenterText5
call PrintText
ld a, $ff
call PlaySound
ld c, $20
call DelayFrames
2015-06-12 16:00:48 +00:00
ld hl, JigglypuffFacingDirections
ld de, wTrainerFacingDirection
2014-05-18 18:19:10 +00:00
ld bc, $0004
call CopyData
ld a, [wSpriteStateData1 + $32]
ld hl, wTrainerFacingDirection
2014-05-18 18:19:10 +00:00
.asm_5c5c3
cp [hl]
inc hl
jr nz, .asm_5c5c3 ; 0x5c5c5 $fc
dec hl
push hl
ld c, BANK(Music_JigglypuffSong)
ld a, MUSIC_JIGGLYPUFF_SONG
call PlayMusic
pop hl
.asm_5c5d1
ld a, [hl]
ld [wSpriteStateData1 + $32], a
2014-05-18 18:19:10 +00:00
push hl
ld hl, wTrainerFacingDirection
ld de, wTrainerEngageDistance
2014-05-18 18:19:10 +00:00
ld bc, $0004
call CopyData
ld a, [wTrainerEngageDistance]
ld [wcd42], a
2014-05-18 18:19:10 +00:00
pop hl
ld c, $18
call DelayFrames
ld a, [wc026]
2014-05-18 18:19:10 +00:00
ld b, a
ld a, [wc027]
2014-05-18 18:19:10 +00:00
or b
jr nz, .asm_5c5d1 ; 0x5c5f6 $d9
ld c, $30
call DelayFrames
call PlayDefaultMusic
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
PewterPokecenterText5: ; 5c603 (17:4603)
TX_FAR _PewterPokecenterText5
db "@"
2015-06-12 16:00:48 +00:00
JigglypuffFacingDirections: ; 5c608 (17:4608)
db $30 | SPRITE_FACING_DOWN
db $30 | SPRITE_FACING_LEFT
db $30 | SPRITE_FACING_UP
db $30 | SPRITE_FACING_RIGHT
2014-05-18 18:19:10 +00:00
PewterPokecenterText4: ; 5c60c (17:460c)
db $f6