pokecrystal/engine/map_setup.asm

RunMapSetupScript:: ; 15363
	ld a, [hMapEntryMethod]
	and $f
	dec a
	ld c, a
	ld b, 0
	ld hl, MapSetupScripts
	add hl, bc
	add hl, bc
	ld a, [hli]
	ld h, [hl]
	ld l, a
	call ReadMapSetupScript
	ret
; 15377

INCLUDE "data/maps/setup_scripts.asm"

ReadMapSetupScript: ; 1541d
.loop
	ld a, [hli]
	cp -1
	ret z

	push hl

	ld c, a
	ld b, 0
	ld hl, MapSetupCommands
	add hl, bc
	add hl, bc
	add hl, bc

	; bank
	ld b, [hl]
	inc hl

	; address
	ld a, [hli]
	ld h, [hl]
	ld l, a

	; Bit 7 of the bank indicates a parameter.
	; This is left unused.
	bit 7, b
	jr z, .go

	pop de
	ld a, [de]
	ld c, a
	inc de
	push de

.go
	ld a, b
	and $7f
	rst FarCall

	pop hl
	jr .loop
; 15440

MapSetupCommands: ; 15440
; entries correspond to command indexes in constants/map_setup_constants.asm
	dba EnableLCD ; 00
	dba DisableLCD ; 01
	dba MapSetup_Sound_Off ; 02
	dba PlayMapMusic ; 03
	dba RestartMapMusic ; 04
	dba FadeToMapMusic ; 05
	dba RotatePalettesRightMapAndMusic ; 06
	dba EnterMapMusic ; 07
	dba ForceMapMusic ; 08
	dba FadeInMusic ; 09
	dba LoadBlockData ; 0a (callback 1)
	dba LoadNeighboringBlockData ; 0b
	dba SaveScreen ; 0c
	dba BufferScreen ; 0d
	dba LoadGraphics ; 0e
	dba LoadTileset ; 0f
	dba LoadMapTimeOfDay ; 10
	dba Special_LoadMapPalettes ; 11
	dba LoadWildMonData ; 12
	dba RefreshMapSprites ; 13
	dba HandleNewMap ; 14
	dba InitCommandQueue ; 15
	dba LoadObjectsRunCallback_02 ; 16
	dba LoadSpawnPoint ; 17
	dba EnterMapConnection ; 18
	dba LoadWarpData ; 19
	dba LoadMapAttributes ; 1a
	dba LoadMapAttributes_SkipPeople ; 1b
	dba ClearBGPalettes ; 1c
	dba Special_FadeOutPalettes ; 1d
	dba Special_FadeInPalettes ; 1e
	dba GetCoordOfUpperLeftCorner ; 1f
	dba RestoreFacingAfterWarp ; 20
	dba SpawnInFacingDown ; 21
	dba SpawnPlayer ; 22
	dba RefreshPlayerCoords ; 23
	dba DelayClearingOldSprites ; 24
	dba DelayLoadingNewSprites ; 25
	dba UpdateRoamMons ; 26
	dba JumpRoamMons ; 27
	dba FadeOldMapMusic ; 28
	dba ActivateMapAnims ; 29
	dba SuspendMapAnims ; 2a
	dba RetainOldPalettes ; 2b
	dba DontScrollText ; 2c
	dba ReturnFromMapSetupScript ; 2d
; 154ca


DontScrollText: ; 154ca
	xor a
	ld [wDisableTextAcceleration], a
	ret
; 154cf

ActivateMapAnims: ; 154cf
	ld a, $1
	ld [hMapAnims], a
	ret
; 154d3

SuspendMapAnims: ; 154d3
	xor a
	ld [hMapAnims], a
	ret
; 154d7

LoadObjectsRunCallback_02: ; 154d7
	ld a, MAPCALLBACK_OBJECTS
	call RunMapCallback
	farcall LoadObjectMasks
	farcall InitializeVisibleSprites
	ret
; 154ea (5:54ea)

; unused
	ret
; 154eb

DelayClearingOldSprites: ; 154eb
	ld hl, wPlayerSpriteSetupFlags
	set PLAYERSPRITESETUP_RESET_ACTION_F, [hl]
	ret
; 154f1

DelayLoadingNewSprites: ; 154f1
	ld hl, wPlayerSpriteSetupFlags
	set PLAYERSPRITESETUP_SKIP_RELOAD_GFX_F, [hl]
	ret

CheckReplaceKrisSprite: ; 154f7
	nop
	call .CheckBiking
	jr c, .ok
	call .CheckSurfing
	jr c, .ok
	call .CheckSurfing2
	jr c, .ok
	ret

.ok
	call ReplaceKrisSprite
	ret

.CheckBiking: ; 1550c (5:550c)
	and a
	ld hl, wBikeFlags
	bit BIKEFLAGS_ALWAYS_ON_BIKE_F, [hl]
	ret z
	ld a, PLAYER_BIKE
	ld [PlayerState], a
	scf
	ret

.CheckSurfing2: ; 1551a (5:551a)
	ld a, [PlayerState]
	cp PLAYER_NORMAL
	jr z, .nope
	cp PLAYER_SKATE
	jr z, .nope
	cp PLAYER_SURF
	jr z, .surfing
	cp PLAYER_SURF_PIKA
	jr z, .surfing
	call GetMapEnvironment
	cp INDOOR
	jr z, .checkbiking
	cp ENVIRONMENT_5
	jr z, .checkbiking
	cp DUNGEON
	jr z, .checkbiking
	jr .nope
.checkbiking
	ld a, [PlayerState]
	cp PLAYER_BIKE
	jr nz, .nope
.surfing
	ld a, PLAYER_NORMAL
	ld [PlayerState], a
	scf
	ret

.nope
	and a
	ret

.CheckSurfing: ; 1554e (5:554e)
	call CheckOnWater
	jr nz, .ret_nc
	ld a, [PlayerState]
	cp PLAYER_SURF
	jr z, ._surfing
	cp PLAYER_SURF_PIKA
	jr z, ._surfing
	ld a, PLAYER_SURF
	ld [PlayerState], a
._surfing
	scf
	ret
.ret_nc
	and a
	ret
; 15567

FadeOldMapMusic: ; 15567
	ld a, 6
	call SkipMusic
	ret
; 1556d

RetainOldPalettes: ; 1556d
	farcall _UpdateTimePals
	ret

RotatePalettesRightMapAndMusic: ; 15574
	ld e, 0
	ld a, [MusicFadeID]
	ld d, 0
	ld a, [MusicFadeID + 1]
	ld a, $4
	ld [MusicFade], a
	call RotateThreePalettesRight
	ret
; 15587

ForceMapMusic: ; 15587
	ld a, [PlayerState]
	cp PLAYER_BIKE
	jr nz, .notbiking
	call VolumeOff
	ld a, $88
	ld [MusicFade], a
.notbiking
	call TryRestartMapMusic
	ret
; 1559a
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`RunMapSetupScript:: ; 15363`
More labels, including fns responsible for partymon generation 2015-10-07 17:19:41 +00:00			`ld a, [hMapEntryMethod]`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`and $f`
			`dec a`
			`ld c, a`
			`ld b, 0`
			`ld hl, MapSetupScripts`
			`add hl, bc`
jumptable macro repurposed 2015-12-27 02:59:03 +00:00			`add hl, bc`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`call ReadMapSetupScript`
			`ret`
			`; 15377`

Remove redundant data/ filename prefixes 2017-12-27 06:29:15 +00:00			`INCLUDE "data/maps/setup_scripts.asm"`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00
			`ReadMapSetupScript: ; 1541d`
			`.loop`
			`ld a, [hli]`
			`cp -1`
			`ret z`

			`push hl`

			`ld c, a`
			`ld b, 0`
			`ld hl, MapSetupCommands`
			`add hl, bc`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`add hl, bc`
			`add hl, bc`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00
			`; bank`
			`ld b, [hl]`
			`inc hl`

			`; address`
			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`

			`; Bit 7 of the bank indicates a parameter.`
			`; This is left unused.`
			`bit 7, b`
			`jr z, .go`

			`pop de`
			`ld a, [de]`
			`ld c, a`
			`inc de`
			`push de`

			`.go`
			`ld a, b`
			`and $7f`
			`rst FarCall`

			`pop hl`
			`jr .loop`
			`; 15440`

			`MapSetupCommands: ; 15440`
Split battle/ into data/ and engine/ components 2017-12-26 22:47:05 +00:00			`; entries correspond to command indexes in constants/map_setup_constants.asm`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba EnableLCD ; 00`
			`dba DisableLCD ; 01`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`dba MapSetup_Sound_Off ; 02`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba PlayMapMusic ; 03`
			`dba RestartMapMusic ; 04`
			`dba FadeToMapMusic ; 05`
bgcoord 2015-11-20 16:47:52 +00:00			`dba RotatePalettesRightMapAndMusic ; 06`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba EnterMapMusic ; 07`
			`dba ForceMapMusic ; 08`
Break up engine/sprites.asm; address yenatch's comments 2015-12-02 02:54:11 +00:00			`dba FadeInMusic ; 09`
Make town map pals more intuitive in source 2016-04-02 13:28:46 +00:00			`dba LoadBlockData ; 0a (callback 1)`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba LoadNeighboringBlockData ; 0b`
			`dba SaveScreen ; 0c`
			`dba BufferScreen ; 0d`
			`dba LoadGraphics ; 0e`
Rename: emote_headers, sprite_headers, cry_headers, gfx_headers, tileset_headers 2017-12-26 17:50:32 +00:00			`dba LoadTileset ; 0f`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba LoadMapTimeOfDay ; 10`
Finish consistent Special function names 2018-01-02 16:47:58 +00:00			`dba Special_LoadMapPalettes ; 11`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba LoadWildMonData ; 12`
			`dba RefreshMapSprites ; 13`
engine/events.asm labels finished fixed palred/green/blue macros 2016-05-17 12:40:42 +00:00			`dba HandleNewMap ; 14`
			`dba InitCommandQueue ; 15`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba LoadObjectsRunCallback_02 ; 16`
			`dba LoadSpawnPoint ; 17`
			`dba EnterMapConnection ; 18`
			`dba LoadWarpData ; 19`
			`dba LoadMapAttributes ; 1a`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`dba LoadMapAttributes_SkipPeople ; 1b`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`dba ClearBGPalettes ; 1c`
Consolidate Special function names 2018-01-02 16:13:57 +00:00			`dba Special_FadeOutPalettes ; 1d`
			`dba Special_FadeInPalettes ; 1e`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba GetCoordOfUpperLeftCorner ; 1f`
			`dba RestoreFacingAfterWarp ; 20`
			`dba SpawnInFacingDown ; 21`
Fully label home/map_objects.asm 2016-01-11 07:36:39 +00:00			`dba SpawnPlayer ; 22`
dbw BANK, addr replaced with dba 2015-11-04 00:43:47 +00:00			`dba RefreshPlayerCoords ; 23`
			`dba DelayClearingOldSprites ; 24`
			`dba DelayLoadingNewSprites ; 25`
			`dba UpdateRoamMons ; 26`
			`dba JumpRoamMons ; 27`
			`dba FadeOldMapMusic ; 28`
			`dba ActivateMapAnims ; 29`
			`dba SuspendMapAnims ; 2a`
			`dba RetainOldPalettes ; 2b`
			`dba DontScrollText ; 2c`
			`dba ReturnFromMapSetupScript ; 2d`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`; 154ca`


More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`DontScrollText: ; 154ca`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`xor a`
Mobile and more battle anims 2016-05-05 19:07:37 +00:00			`ld [wDisableTextAcceleration], a`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 154cf`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`ActivateMapAnims: ; 154cf`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, $1`
Various labels 2015-11-05 19:06:03 +00:00			`ld [hMapAnims], a`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 154d3`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`SuspendMapAnims: ; 154d3`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`xor a`
Various labels 2015-11-05 19:06:03 +00:00			`ld [hMapAnims], a`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 154d7`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`LoadObjectsRunCallback_02: ; 154d7`
Map callback constants 2016-01-06 12:44:50 +00:00			`ld a, MAPCALLBACK_OBJECTS`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`call RunMapCallback`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall LoadObjectMasks`
			`farcall InitializeVisibleSprites`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 154ea (5:54ea)`

More unreferenced labels cleanup 2018-01-02 15:04:21 +00:00			`; unused`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 154eb`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`DelayClearingOldSprites: ; 154eb`
About time I got to these functions 2015-10-24 14:34:19 +00:00			`ld hl, wPlayerSpriteSetupFlags`
More engine flag constants 2018-01-22 19:34:55 +00:00			`set PLAYERSPRITESETUP_RESET_ACTION_F, [hl]`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 154f1`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`DelayLoadingNewSprites: ; 154f1`
About time I got to these functions 2015-10-24 14:34:19 +00:00			`ld hl, wPlayerSpriteSetupFlags`
More engine flag constants 2018-01-22 19:34:55 +00:00			`set PLAYERSPRITESETUP_SKIP_RELOAD_GFX_F, [hl]`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`

Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`CheckReplaceKrisSprite: ; 154f7`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`nop`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`call .CheckBiking`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr c, .ok`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`call .CheckSurfing`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr c, .ok`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`call .CheckSurfing2`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr c, .ok`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`.ok`
home/copy.asm completely labeled 2015-11-04 21:14:27 +00:00			`call ReplaceKrisSprite`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`

Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`.CheckBiking: ; 1550c (5:550c)`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`and a`
Prefix engine_flags wram addresses with w 2017-12-28 12:15:46 +00:00			`ld hl, wBikeFlags`
More engine bit flag constants 2018-01-22 18:57:44 +00:00			`bit BIKEFLAGS_ALWAYS_ON_BIKE_F, [hl]`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret z`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`ld a, PLAYER_BIKE`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld [PlayerState], a`
			`scf`
			`ret`

Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`.CheckSurfing2: ; 1551a (5:551a)`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, [PlayerState]`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`cp PLAYER_NORMAL`
			`jr z, .nope`
PLAYER_SLIP → PLAYER_SKATE (probably used for the beta skateboard; DoPlayerMovement.BikeCheck returns true for it) 2017-12-16 04:29:42 +00:00			`cp PLAYER_SKATE`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr z, .nope`
			`cp PLAYER_SURF`
			`jr z, .surfing`
			`cp PLAYER_SURF_PIKA`
			`jr z, .surfing`
Rename "map permissions" to "map environment" (fix #396) 2017-12-24 18:08:38 +00:00			`call GetMapEnvironment`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`cp INDOOR`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr z, .checkbiking`
Rename "map permissions" to "map environment" (fix #396) 2017-12-24 18:08:38 +00:00			`cp ENVIRONMENT_5`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr z, .checkbiking`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`cp DUNGEON`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr z, .checkbiking`
			`jr .nope`
			`.checkbiking`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, [PlayerState]`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`cp PLAYER_BIKE`
			`jr nz, .nope`
			`.surfing`
			`ld a, PLAYER_NORMAL`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld [PlayerState], a`
			`scf`
			`ret`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`.nope`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`and a`
			`ret`

Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`.CheckSurfing: ; 1554e (5:554e)`
Wild Pokemon functions and data Replaced encounter rates with percent values Added new constants denoting the number of wild Pokemon in the grass and water wild constructs Annotated and relabeled the encounter generating functions Renamed a WRAM address associaed with the temporary storage of the wild Pokemon's species Moved spawn constants to constants/map_constants.asm for use anywhere in the disassembly 2015-07-23 07:41:52 +00:00			`call CheckOnWater`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`jr nz, .ret_nc`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, [PlayerState]`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`cp PLAYER_SURF`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`jr z, ._surfing`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`cp PLAYER_SURF_PIKA`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`jr z, ._surfing`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`ld a, PLAYER_SURF`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld [PlayerState], a`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`._surfing`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`scf`
			`ret`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`.ret_nc`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`and a`
			`ret`
			`; 15567`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`FadeOldMapMusic: ; 15567`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, 6`
			`call SkipMusic`
			`ret`
			`; 1556d`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`RetainOldPalettes: ; 1556d`
Consistent predef function names 2018-01-02 17:49:25 +00:00			`farcall _UpdateTimePals`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`

bgcoord 2015-11-20 16:47:52 +00:00			`RotatePalettesRightMapAndMusic: ; 15574`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld e, 0`
Start organizing WRAM - Use db and dw when they're more meaningful than ds 1/2 - Use unions to group related labels 2017-12-09 18:52:14 +00:00			`ld a, [MusicFadeID]`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld d, 0`
Start organizing WRAM - Use db and dw when they're more meaningful than ds 1/2 - Use unions to group related labels 2017-12-09 18:52:14 +00:00			`ld a, [MusicFadeID + 1]`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, $4`
			`ld [MusicFade], a`
bgcoord 2015-11-20 16:47:52 +00:00			`call RotateThreePalettesRight`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 15587`

More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`ForceMapMusic: ; 15587`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, [PlayerState]`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`cp PLAYER_BIKE`
			`jr nz, .notbiking`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`call VolumeOff`
			`ld a, $88`
			`ld [MusicFade], a`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`.notbiking`
Move radio code to its own file 2015-07-21 05:52:46 +00:00			`call TryRestartMapMusic`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`
			`; 1559a`