pokered/scripts/pewterpokecenter.asm

PewterPokecenterScript: ; 5c587 (17:4587)
	call Serial_TryEstablishingExternallyClockedConnection
	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)
	TX_ASM
	ld a, $1
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ld hl, PewterPokecenterText5
	call PrintText
	ld a, $ff
	call PlaySound
	ld c, 32
	call DelayFrames
	ld hl, JigglypuffFacingDirections
	ld de, wJigglypuffFacingDirections
	ld bc, 4
	call CopyData

	ld a, [wSpriteStateData1 + 3 * $10 + $2]
	ld hl, wJigglypuffFacingDirections
.findMatchingFacingDirectionLoop
	cp [hl]
	inc hl
	jr nz, .findMatchingFacingDirectionLoop
	dec hl
	push hl
	ld c, BANK(Music_JigglypuffSong)
	ld a, MUSIC_JIGGLYPUFF_SONG
	call PlayMusic
	pop hl
.loop
	ld a, [hl]
	ld [wSpriteStateData1 + 3 * $10 + $2], a

; rotate the array
	push hl
	ld hl, wJigglypuffFacingDirections
	ld de, wJigglypuffFacingDirections - 1
	ld bc, 4
	call CopyData
	ld a, [wJigglypuffFacingDirections - 1]
	ld [wJigglypuffFacingDirections + 3], a
	pop hl

	ld c, 24
	call DelayFrames

	ld a, [wc026]
	ld b, a
	ld a, [wc027]
	or b
	jr nz, .loop

	ld c, 48
	call DelayFrames
	call PlayDefaultMusic
	jp TextScriptEnd

PewterPokecenterText5: ; 5c603 (17:4603)
	TX_FAR _PewterPokecenterText5
	db "@"

JigglypuffFacingDirections: ; 5c608 (17:4608)
	db $30 | SPRITE_FACING_DOWN
	db $30 | SPRITE_FACING_LEFT
	db $30 | SPRITE_FACING_UP
	db $30 | SPRITE_FACING_RIGHT

PewterPokecenterText4: ; 5c60c (17:460c)
	db $f6
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`PewterPokecenterScript: ; 5c587 (17:4587)`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`call Serial_TryEstablishingExternallyClockedConnection`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 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)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDoNotWaitForButtonPressAfterDisplayingText], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, PewterPokecenterText5`
			`call PrintText`
			`ld a, $ff`
			`call PlaySound`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`ld c, 32`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DelayFrames`
$U-Daniel-PC\Daniel$ Name a few unknowns 2015-06-12 16:00:48 +00:00			`ld hl, JigglypuffFacingDirections`
misc 2015-07-19 03:49:52 +00:00			`ld de, wJigglypuffFacingDirections`
			`ld bc, 4`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call CopyData`
misc 2015-07-19 03:49:52 +00:00
			`ld a, [wSpriteStateData1 + 3 * $10 + $2]`
			`ld hl, wJigglypuffFacingDirections`
			`.findMatchingFacingDirectionLoop`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp [hl]`
			`inc hl`
misc 2015-07-19 03:49:52 +00:00			`jr nz, .findMatchingFacingDirectionLoop`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dec hl`
			`push hl`
			`ld c, BANK(Music_JigglypuffSong)`
			`ld a, MUSIC_JIGGLYPUFF_SONG`
			`call PlayMusic`
			`pop hl`
misc 2015-07-19 03:49:52 +00:00			`.loop`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, [hl]`
misc 2015-07-19 03:49:52 +00:00			`ld [wSpriteStateData1 + 3 * $10 + $2], a`

			`; rotate the array`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`push hl`
misc 2015-07-19 03:49:52 +00:00			`ld hl, wJigglypuffFacingDirections`
			`ld de, wJigglypuffFacingDirections - 1`
			`ld bc, 4`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call CopyData`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wJigglypuffFacingDirections - 1]`
			`ld [wJigglypuffFacingDirections + 3], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`pop hl`
misc 2015-07-19 03:49:52 +00:00
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`ld c, 24`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DelayFrames`
misc 2015-07-19 03:49:52 +00:00
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wc026]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wc027]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`or b`
misc 2015-07-19 03:49:52 +00:00			`jr nz, .loop`

$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`ld c, 48`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DelayFrames`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call PlayDefaultMusic`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

			`PewterPokecenterText5: ; 5c603 (17:4603)`
			`TX_FAR _PewterPokecenterText5`
			`db "@"`

$U-Daniel-PC\Daniel$ Name a few unknowns 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`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`PewterPokecenterText4: ; 5c60c (17:460c)`
			`db $f6`