pokered/scripts/RedsHouse1F.asm

RedsHouse1F_Script:
	jp EnableAutoTextBoxDrawing

RedsHouse1F_TextPointers:
	dw RedsHouse1FMomText
	dw RedsHouse1FTVText

RedsHouse1FMomText:
	text_asm
	ld a, [wd72e]
	bit 3, a ; received a Pokémon from Oak?
	jr nz, .heal
	ld hl, MomWakeUpText
	call PrintText
	jr .done
.heal
	call MomHealPokemon
.done
	jp TextScriptEnd

MomWakeUpText:
	text_far _MomWakeUpText
	text_end

MomHealPokemon:
	ld hl, MomHealText1
	call PrintText
	call GBFadeOutToWhite
	call ReloadMapData
	predef HealParty
	ld a, MUSIC_PKMN_HEALED
	ld [wNewSoundID], a
	call PlaySound
.next
	ld a, [wChannelSoundIDs]
	cp MUSIC_PKMN_HEALED
	jr z, .next
	ld a, [wMapMusicSoundID]
	ld [wNewSoundID], a
	call PlaySound
	call GBFadeInFromWhite
	ld hl, MomHealText2
	jp PrintText

MomHealText1:
	text_far _MomHealText1
	text_end
MomHealText2:
	text_far _MomHealText2
	text_end

RedsHouse1FTVText:
	text_asm
	ld a, [wSpritePlayerStateData1FacingDirection]
	cp SPRITE_FACING_UP
	ld hl, TVWrongSideText
	jr nz, .got_text
	ld hl, StandByMeText
.got_text
	call PrintText
	jp TextScriptEnd

StandByMeText:
	text_far _StandByMeText
	text_end

TVWrongSideText:
	text_far _TVWrongSideText
	text_end
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`RedsHouse1F_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp EnableAutoTextBoxDrawing`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`RedsHouse1F_TextPointers:`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`dw RedsHouse1FMomText`
			`dw RedsHouse1FTVText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`RedsHouse1FMomText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
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, [wd72e]`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`bit 3, a ; received a Pokémon from Oak?`
			`jr nz, .heal`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, MomWakeUpText`
			`call PrintText`
			`jr .done`
			`.heal`
			`call MomHealPokemon`
			`.done`
			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`MomWakeUpText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _MomWakeUpText`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`MomHealPokemon:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, MomHealText1`
			`call PrintText`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`call GBFadeOutToWhite`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call ReloadMapData`
Use macros to define predefs. 2014-06-16 20:25:46 +00:00			`predef HealParty`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, MUSIC_PKMN_HEALED`
commented audio code 2015-08-09 05:32:44 +00:00			`ld [wNewSoundID], a`
$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			`call PlaySound`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.next`
commented audio code 2015-08-09 05:32:44 +00:00			`ld a, [wChannelSoundIDs]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp MUSIC_PKMN_HEALED`
			`jr z, .next`
commented audio code 2015-08-09 05:32:44 +00:00			`ld a, [wMapMusicSoundID]`
			`ld [wNewSoundID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PlaySound`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`call GBFadeInFromWhite`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, MomHealText2`
			`jp PrintText`

remove address comments 2016-06-12 00:24:04 +00:00			`MomHealText1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _MomHealText1`
			`text_end`
remove address comments 2016-06-12 00:24:04 +00:00			`MomHealText2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _MomHealText2`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`RedsHouse1FTVText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
Identify wSpriteStateData1 and wSpriteStateData2 offsets, like pokeyellow 2020-07-05 21:29:11 +00:00			`ld a, [wSpritePlayerStateData1FacingDirection]`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`cp SPRITE_FACING_UP`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld hl, TVWrongSideText`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr nz, .got_text`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld hl, StandByMeText`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`.got_text`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`StandByMeText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _StandByMeText`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`TVWrongSideText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _TVWrongSideText`
			`text_end`