pokecrystal/engine/overworld/map_setup.asm

RunMapSetupScript::
	ldh 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

INCLUDE "data/maps/setup_scripts.asm"

ReadMapSetupScript:
.loop
	ld a, [hli]
	cp map_end_command
	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

INCLUDE "data/maps/setup_script_pointers.asm"

EnableTextAcceleration:
	xor a
	ld [wDisableTextAcceleration], a
	ret

ActivateMapAnims:
	ld a, TRUE
	ldh [hMapAnims], a
	ret

SuspendMapAnims:
	xor a ; FALSE
	ldh [hMapAnims], a
	ret

LoadMapObjects:
	ld a, MAPCALLBACK_OBJECTS
	call RunMapCallback
	farcall LoadObjectMasks
	farcall InitializeVisibleSprites
	ret

; unused
	ret

ResetPlayerObjectAction:
	ld hl, wPlayerSpriteSetupFlags
	set PLAYERSPRITESETUP_RESET_ACTION_F, [hl]
	ret

SkipUpdateMapSprites:
	ld hl, wPlayerSpriteSetupFlags
	set PLAYERSPRITESETUP_SKIP_RELOAD_GFX_F, [hl]
	ret

CheckUpdatePlayerSprite:
	nop
	call .CheckBiking
	jr c, .ok
	call .CheckSurfing
	jr c, .ok
	call .CheckSurfing2
	jr c, .ok
	ret

.ok
	call UpdatePlayerSprite
	ret

.CheckBiking:
	and a
	ld hl, wBikeFlags
	bit BIKEFLAGS_ALWAYS_ON_BIKE_F, [hl]
	ret z
	ld a, PLAYER_BIKE
	ld [wPlayerState], a
	scf
	ret

.CheckSurfing2:
	ld a, [wPlayerState]
	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, .no_biking
	cp ENVIRONMENT_5
	jr z, .no_biking
	cp DUNGEON
	jr z, .no_biking
	jr .nope
.no_biking
	ld a, [wPlayerState]
	cp PLAYER_BIKE
	jr nz, .nope
.surfing
	ld a, PLAYER_NORMAL
	ld [wPlayerState], a
	scf
	ret

.nope
	and a
	ret

.CheckSurfing:
	call CheckOnWater
	jr nz, .nope2
	ld a, [wPlayerState]
	cp PLAYER_SURF
	jr z, .is_surfing
	cp PLAYER_SURF_PIKA
	jr z, .is_surfing
	ld a, PLAYER_SURF
	ld [wPlayerState], a
.is_surfing
	scf
	ret

.nope2
	and a
	ret

FadeOutMapMusic:
	ld a, 6
	call SkipMusic
	ret

ApplyMapPalettes:
	farcall _UpdateTimePals
	ret

FadeMapMusicAndPalettes:
	ld e, LOW(MUSIC_NONE)
	ld a, [wMusicFadeID]
	ld d, HIGH(MUSIC_NONE)
	ld a, [wMusicFadeID + 1]
	ld a, $4
	ld [wMusicFade], a
	call RotateThreePalettesRight
	ret

ForceMapMusic:
	ld a, [wPlayerState]
	cp PLAYER_BIKE
	jr nz, .notbiking
	call MinVolume
	ld a, $88
	ld [wMusicFade], a
.notbiking
	call TryRestartMapMusic
	ret
Remove all address comments 2018-06-24 14:09:41 +00:00			`RunMapSetupScript::`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh 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`

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
Remove all address comments 2018-06-24 14:09:41 +00:00			`ReadMapSetupScript:`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`.loop`
			`ld a, [hli]`
Define map setup commands as macros like other script commands 2020-07-14 00:44:16 +00:00			`cp map_end_command`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`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`

Define map setup commands as macros like other script commands 2020-07-14 00:44:16 +00:00			`INCLUDE "data/maps/setup_script_pointers.asm"`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00
Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`EnableTextAcceleration:`
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`

Remove all address comments 2018-06-24 14:09:41 +00:00			`ActivateMapAnims:`
Replace "Unreferenced" labels with "; unreferenced" comments 2020-06-21 20:27:43 +00:00			`ld a, TRUE`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hMapAnims], a`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SuspendMapAnims:`
Replace "Unreferenced" labels with "; unreferenced" comments 2020-06-21 20:27:43 +00:00			`xor a ; FALSE`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hMapAnims], a`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`

Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`LoadMapObjects:`
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`

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`

Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`ResetPlayerObjectAction:`
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`

Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`SkipUpdateMapSprites:`
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`

ReplaceKrisSprite -> UpdatePlayerSprite 2020-06-16 23:38:00 +00:00			`CheckUpdatePlayerSprite:`
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`
ReplaceKrisSprite -> UpdatePlayerSprite 2020-06-16 23:38:00 +00:00			`call UpdatePlayerSprite`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CheckBiking:`
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`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wPlayerState], a`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`scf`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CheckSurfing2:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wPlayerState]`
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`
Update some labels 2019-12-03 14:17:21 +00:00			`jr z, .no_biking`
Rename "map permissions" to "map environment" (fix #396) 2017-12-24 18:08:38 +00:00			`cp ENVIRONMENT_5`
Update some labels 2019-12-03 14:17:21 +00:00			`jr z, .no_biking`
Map header labels, tileset constants 2015-11-12 16:10:19 +00:00			`cp DUNGEON`
Update some labels 2019-12-03 14:17:21 +00:00			`jr z, .no_biking`
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 .nope`
Update some labels 2019-12-03 14:17:21 +00:00			`.no_biking`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wPlayerState]`
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`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wPlayerState], a`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`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`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CheckSurfing:`
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`
Update some labels 2019-12-03 14:17:21 +00:00			`jr nz, .nope2`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wPlayerState]`
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`
Update some labels 2019-12-03 14:17:21 +00:00			`jr z, .is_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`
Update some labels 2019-12-03 14:17:21 +00:00			`jr z, .is_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`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wPlayerState], a`
Update some labels 2019-12-03 14:17:21 +00:00			`.is_surfing`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`scf`
			`ret`
Update some labels 2019-12-03 14:17:21 +00:00
			`.nope2`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`and a`
			`ret`

Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`FadeOutMapMusic:`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, 6`
			`call SkipMusic`
			`ret`

Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`ApplyMapPalettes:`
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`

Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`FadeMapMusicAndPalettes:`
More miscellaneous fixes (see #709) 2020-04-17 14:52:59 +00:00			`ld e, LOW(MUSIC_NONE)`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wMusicFadeID]`
More miscellaneous fixes (see #709) 2020-04-17 14:52:59 +00:00			`ld d, HIGH(MUSIC_NONE)`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wMusicFadeID + 1]`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, $4`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wMusicFade], 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`

Remove all address comments 2018-06-24 14:09:41 +00:00			`ForceMapMusic:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wPlayerState]`
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`
Update audio macros and arguments and update related labels/constants/comments this fixes a lot of mistakes and maximizes compatibility with red 2019-09-02 08:40:58 +00:00			`call MinVolume`
Split out the map setup scripts. 2015-02-11 22:01:04 +00:00			`ld a, $88`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wMusicFade], 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`