pokecrystal-board/engine/events/basement_key.asm

_BasementKey:
; Are we even in the right map to use this?
	ld a, [wMapGroup]
	cp GROUP_GOLDENROD_UNDERGROUND
	jr nz, .nope

	ld a, [wMapNumber]
	cp MAP_GOLDENROD_UNDERGROUND
	jr nz, .nope
; Are we on the tile in front of the door?
	call GetFacingTileCoord
	ld a, d
	cp 22
	jr nz, .nope
	ld a, e
	cp 10
	jr nz, .nope
; Let's use the Basement Key
	ld hl, .BasementKeyScript
	call QueueScript
	ld a, TRUE
	ld [wItemEffectSucceeded], a
	ret

.nope
	ld a, FALSE
	ld [wItemEffectSucceeded], a
	ret

.BasementKeyScript: ; 0x507e1
	closetext
	farjump BasementDoorScript
; 0x507e6
Remove all address comments 2018-06-24 07:09:41 -07:00			`_BasementKey:`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`; Are we even in the right map to use this?`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wMapGroup]`
Rename maps: - Underground -> UndergroundPath - Route5UndergroundEntrance -> Route5UndergroundPathEntrance - Route6UndergroundEntrance -> Route6UndergroundPathEntrance - WarehouseEntrance -> GoldenrodUnderground - UndergroundWarehouse -> GoldenrodUndergroundWarehouse - UndergroundPathSwitchRoomEntrances -> GoldenrodUndergroundSwitchRoomEntrances 2017-12-24 15:06:12 -08:00			`cp GROUP_GOLDENROD_UNDERGROUND`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`jr nz, .nope`

Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wMapNumber]`
Rename maps: - Underground -> UndergroundPath - Route5UndergroundEntrance -> Route5UndergroundPathEntrance - Route6UndergroundEntrance -> Route6UndergroundPathEntrance - WarehouseEntrance -> GoldenrodUnderground - UndergroundWarehouse -> GoldenrodUndergroundWarehouse - UndergroundPathSwitchRoomEntrances -> GoldenrodUndergroundSwitchRoomEntrances 2017-12-24 15:06:12 -08:00			`cp MAP_GOLDENROD_UNDERGROUND`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`jr nz, .nope`
			`; Are we on the tile in front of the door?`
			`call GetFacingTileCoord`
			`ld a, d`
			`cp 22`
			`jr nz, .nope`
			`ld a, e`
			`cp 10`
			`jr nz, .nope`
			`; Let's use the Basement Key`
			`ld hl, .BasementKeyScript`
			`call QueueScript`
More menu stuff 2015-12-17 19:31:16 -08:00			`ld a, TRUE`
Elevator 2015-12-17 14:51:32 -08:00			`ld [wItemEffectSucceeded], a`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`ret`

			`.nope`
More menu stuff 2015-12-17 19:31:16 -08:00			`ld a, FALSE`
Elevator 2015-12-17 14:51:32 -08:00			`ld [wItemEffectSucceeded], a`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`ret`

			`.BasementKeyScript: ; 0x507e1`
Rename several script commands 2015-11-25 07:16:29 -08:00			`closetext`
More splits; map setup labels 2015-11-11 20:38:57 -08:00			`farjump BasementDoorScript`
			`; 0x507e6`