pokecrystal-board/engine/overworld/tile_events.asm

CheckWarpCollision:: ; 1499a
; Is this tile a warp?
	ld a, [wPlayerStandingTile]
	cp COLL_PIT
	jr z, .warp
	cp COLL_PIT_68
	jr z, .warp
	and $f0
	cp HI_NYBBLE_WARPS
	jr z, .warp
	and a
	ret

.warp
	scf
	ret
; 149af

CheckDirectionalWarp:: ; 149af
; If this is a directional warp, clear carry (press the designated button to warp).
; Else, set carry (immediate warp).
	ld a, [wPlayerStandingTile]
	cp COLL_WARP_CARPET_DOWN
	jr z, .directional
	cp COLL_WARP_CARPET_LEFT
	jr z, .directional
	cp COLL_WARP_CARPET_UP
	jr z, .directional
	cp COLL_WARP_CARPET_RIGHT
	jr z, .directional
	scf
	ret

.directional
	xor a
	ret
; 149c6

CheckWarpFacingDown: ; 149c6
	ld de, 1
	ld hl, .blocks
	ld a, [wPlayerStandingTile]
	call IsInArray
	ret
; 149d3

.blocks ; 149d3
	db COLL_DOOR
	db COLL_DOOR_79
	db COLL_STAIRCASE
	db COLL_STAIRCASE_73
	db COLL_CAVE
	db COLL_CAVE_74
	db COLL_WARP_PANEL
	db COLL_DOOR_75
	db COLL_DOOR_7D
	db -1
; 149dd

CheckGrassCollision:: ; 149dd
	ld a, [wPlayerStandingTile]
	ld hl, .blocks
	ld de, 1
	call IsInArray
	ret
; 149ea

.blocks ; 149ea
	db COLL_CUT_08
	db COLL_TALL_GRASS
	db COLL_LONG_GRASS
	db COLL_CUT_28
	db COLL_WATER
	db COLL_GRASS_48
	db COLL_GRASS_49
	db COLL_GRASS_4A
	db COLL_GRASS_4B
	db COLL_GRASS_4C
	db -1
; 149f5

CheckCutCollision: ; 149f5
	ld a, c
	ld hl, .blocks
	ld de, 1
	call IsInArray
	ret
; 14a00

.blocks ; 14a00
	db COLL_CUT_TREE
	db COLL_CUT_TREE_1A
	db COLL_TALL_GRASS_10
	db COLL_TALL_GRASS
	db COLL_LONG_GRASS
	db COLL_LONG_GRASS_1C
	db -1
; 14a07

GetWarpSFX:: ; 14a07
	ld a, [wPlayerStandingTile]
	ld de, SFX_ENTER_DOOR
	cp COLL_DOOR
	ret z
	ld de, SFX_WARP_TO
	cp COLL_WARP_PANEL
	ret z
	ld de, SFX_EXIT_BUILDING
	ret
; 14a1a
Menu 2015-12-15 15:59:49 -08:00			`CheckWarpCollision:: ; 1499a`
			`; Is this tile a warp?`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPlayerStandingTile]`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_PIT`
Menu 2015-12-15 15:59:49 -08:00			`jr z, .warp`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_PIT_68`
Menu 2015-12-15 15:59:49 -08:00			`jr z, .warp`
			`and $f0`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp HI_NYBBLE_WARPS`
Menu 2015-12-15 15:59:49 -08:00			`jr z, .warp`
			`and a`
			`ret`

			`.warp`
			`scf`
			`ret`
			`; 149af`

			`CheckDirectionalWarp:: ; 149af`
			`; If this is a directional warp, clear carry (press the designated button to warp).`
			`; Else, set carry (immediate warp).`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPlayerStandingTile]`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_WARP_CARPET_DOWN`
Battle animation annotations 2016-03-01 19:31:21 -08:00			`jr z, .directional`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_WARP_CARPET_LEFT`
Battle animation annotations 2016-03-01 19:31:21 -08:00			`jr z, .directional`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_WARP_CARPET_UP`
Battle animation annotations 2016-03-01 19:31:21 -08:00			`jr z, .directional`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_WARP_CARPET_RIGHT`
Battle animation annotations 2016-03-01 19:31:21 -08:00			`jr z, .directional`
Menu 2015-12-15 15:59:49 -08:00			`scf`
			`ret`

Battle animation annotations 2016-03-01 19:31:21 -08:00			`.directional`
Menu 2015-12-15 15:59:49 -08:00			`xor a`
			`ret`
			`; 149c6`

			`CheckWarpFacingDown: ; 149c6`
			`ld de, 1`
			`ld hl, .blocks`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPlayerStandingTile]`
Menu 2015-12-15 15:59:49 -08:00			`call IsInArray`
			`ret`
			`; 149d3`

Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 12:01:49 -07:00			`.blocks ; 149d3`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`db COLL_DOOR`
			`db COLL_DOOR_79`
			`db COLL_STAIRCASE`
			`db COLL_STAIRCASE_73`
			`db COLL_CAVE`
			`db COLL_CAVE_74`
			`db COLL_WARP_PANEL`
			`db COLL_DOOR_75`
			`db COLL_DOOR_7D`
Menu 2015-12-15 15:59:49 -08:00			`db -1`
			`; 149dd`

			`CheckGrassCollision:: ; 149dd`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPlayerStandingTile]`
Menu 2015-12-15 15:59:49 -08:00			`ld hl, .blocks`
			`ld de, 1`
			`call IsInArray`
			`ret`
			`; 149ea`

Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 12:01:49 -07:00			`.blocks ; 149ea`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`db COLL_CUT_08`
			`db COLL_TALL_GRASS`
			`db COLL_LONG_GRASS`
			`db COLL_CUT_28`
			`db COLL_WATER`
			`db COLL_GRASS_48`
			`db COLL_GRASS_49`
			`db COLL_GRASS_4A`
			`db COLL_GRASS_4B`
			`db COLL_GRASS_4C`
Menu 2015-12-15 15:59:49 -08:00			`db -1`
			`; 149f5`

			`CheckCutCollision: ; 149f5`
			`ld a, c`
			`ld hl, .blocks`
			`ld de, 1`
			`call IsInArray`
			`ret`
			`; 14a00`

Local labels starting with lowercase letters are no longer decorated with a trailing colon 2016-04-10 12:01:49 -07:00			`.blocks ; 14a00`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`db COLL_CUT_TREE`
			`db COLL_CUT_TREE_1A`
			`db COLL_TALL_GRASS_10`
			`db COLL_TALL_GRASS`
			`db COLL_LONG_GRASS`
			`db COLL_LONG_GRASS_1C`
Menu 2015-12-15 15:59:49 -08:00			`db -1`
			`; 14a07`

Define GetWarpSFX This function checks the current tile at the player's feet, and returns an appropriate SFX that should be played when warping from it. 2017-10-29 03:09:24 -07:00			`GetWarpSFX:: ; 14a07`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPlayerStandingTile]`
Define GetWarpSFX This function checks the current tile at the player's feet, and returns an appropriate SFX that should be played when warping from it. 2017-10-29 03:09:24 -07:00			`ld de, SFX_ENTER_DOOR`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_DOOR`
Menu 2015-12-15 15:59:49 -08:00			`ret z`
Define GetWarpSFX This function checks the current tile at the player's feet, and returns an appropriate SFX that should be played when warping from it. 2017-10-29 03:09:24 -07:00			`ld de, SFX_WARP_TO`
Define constants for collision types 2017-12-12 13:15:58 -08:00			`cp COLL_WARP_PANEL`
Menu 2015-12-15 15:59:49 -08:00			`ret z`
Define GetWarpSFX This function checks the current tile at the player's feet, and returns an appropriate SFX that should be played when warping from it. 2017-10-29 03:09:24 -07:00			`ld de, SFX_EXIT_BUILDING`
Menu 2015-12-15 15:59:49 -08:00			`ret`
			`; 14a1a`