pokered/engine/overworld/card_key.asm

PrintCardKeyText: ; 52673 (14:6673)
	ld hl, SilphCoMapList
	ld a, [W_CURMAP]
	ld b, a
.silphCoMapListLoop
	ld a, [hli]
	cp $ff
	ret z
	cp b
	jr nz, .silphCoMapListLoop
	predef GetTileAndCoordsInFrontOfPlayer
	ld a, [wTileInFrontOfPlayer]
	cp $18
	jr z, .cardKeyDoorInFrontOfPlayer
	cp $24
	jr z, .cardKeyDoorInFrontOfPlayer
	ld b, a
	ld a, [W_CURMAP]
	cp SILPH_CO_11F
	ret nz
	ld a, b
	cp $5e
	ret nz
.cardKeyDoorInFrontOfPlayer
	ld b, CARD_KEY
	call IsItemInBag
	jr z, .noCardKey
	call GetCoordsInFrontOfPlayer
	push de
	tx_pre_id CardKeySuccessText
	ld [H_DOWNARROWBLINKCNT2], a
	call PrintPredefTextID
	pop de
	srl d
	ld a, d
	ld b, a
	ld [wCardKeyDoorY], a
	srl e
	ld a, e
	ld c, a
	ld [wCardKeyDoorX], a
	ld a, [W_CURMAP]
	cp SILPH_CO_11F
	jr nz, .notSilphCo11F
	ld a, $3
	jr .replaceCardKeyDoorTileBlock
.notSilphCo11F
	ld a, $e
.replaceCardKeyDoorTileBlock
	ld [wd09f], a
	predef ReplaceTileBlock
	ld hl, wd126
	set 5, [hl]
	ld a, SFX_GO_INSIDE
	jp PlaySound
.noCardKey
	tx_pre_id CardKeyFailText
	ld [H_DOWNARROWBLINKCNT2], a
	jp PrintPredefTextID

SilphCoMapList: ; 526e3 (14:66e3)
	db SILPH_CO_2F
	db SILPH_CO_3F
	db SILPH_CO_4F
	db SILPH_CO_5F
	db SILPH_CO_6F
	db SILPH_CO_7F
	db SILPH_CO_8F
	db SILPH_CO_9F
	db SILPH_CO_10F
	db SILPH_CO_11F
	db $FF

CardKeySuccessText: ; 526ee (14:66ee)
	TX_FAR _CardKeySuccessText1
	db $0b
	TX_FAR _CardKeySuccessText2
	db "@"

CardKeyFailText: ; 526f8 (14:66f8)
	TX_FAR _CardKeyFailText
	db "@"

; d = Y
; e = X
GetCoordsInFrontOfPlayer: ; 526fd (14:66fd)
	ld a, [W_YCOORD]
	ld d, a
	ld a, [W_XCOORD]
	ld e, a
	ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction
	and a
	jr nz, .notFacingDown
; facing down
	inc d
	ret
.notFacingDown
	cp SPRITE_FACING_UP
	jr nz, .notFacingUp
; facing up
	dec d
	ret
.notFacingUp
	cp SPRITE_FACING_LEFT
	jr nz, .notFacingLeft
; facing left
	dec e
	ret
.notFacingLeft
; facing right
	inc e
	ret
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`PrintCardKeyText: ; 52673 (14:6673)`
			`ld hl, SilphCoMapList`
			`ld a, [W_CURMAP]`
			`ld b, a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.silphCoMapListLoop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`cp $ff`
			`ret z`
			`cp b`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr nz, .silphCoMapListLoop`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`predef GetTileAndCoordsInFrontOfPlayer`
			`ld a, [wTileInFrontOfPlayer]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp $18`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr z, .cardKeyDoorInFrontOfPlayer`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp $24`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr z, .cardKeyDoorInFrontOfPlayer`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
			`ld a, [W_CURMAP]`
			`cp SILPH_CO_11F`
			`ret nz`
			`ld a, b`
			`cp $5e`
			`ret nz`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.cardKeyDoorInFrontOfPlayer`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, CARD_KEY`
			`call IsItemInBag`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr z, .noCardKey`
			`call GetCoordsInFrontOfPlayer`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push de`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_id CardKeySuccessText`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld [H_DOWNARROWBLINKCNT2], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PrintPredefTextID`
			`pop de`
			`srl d`
			`ld a, d`
			`ld b, a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld [wCardKeyDoorY], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`srl e`
			`ld a, e`
			`ld c, a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld [wCardKeyDoorX], a`
			`ld a, [W_CURMAP]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp SILPH_CO_11F`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr nz, .notSilphCo11F`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, $3`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr .replaceCardKeyDoorTileBlock`
			`.notSilphCo11F`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, $e`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.replaceCardKeyDoorTileBlock`
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 [wd09f], a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`predef ReplaceTileBlock`
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 hl, wd126`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 5, [hl]`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_GO_INSIDE`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jp PlaySound`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.noCardKey`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_id CardKeyFailText`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld [H_DOWNARROWBLINKCNT2], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jp PrintPredefTextID`

			`SilphCoMapList: ; 526e3 (14:66e3)`
			`db SILPH_CO_2F`
			`db SILPH_CO_3F`
			`db SILPH_CO_4F`
			`db SILPH_CO_5F`
			`db SILPH_CO_6F`
			`db SILPH_CO_7F`
			`db SILPH_CO_8F`
			`db SILPH_CO_9F`
			`db SILPH_CO_10F`
			`db SILPH_CO_11F`
			`db $FF`

			`CardKeySuccessText: ; 526ee (14:66ee)`
			`TX_FAR _CardKeySuccessText1`
			`db $0b`
			`TX_FAR _CardKeySuccessText2`
			`db "@"`

			`CardKeyFailText: ; 526f8 (14:66f8)`
			`TX_FAR _CardKeyFailText`
			`db "@"`

Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`; d = Y`
			`; e = X`
			`GetCoordsInFrontOfPlayer: ; 526fd (14:66fd)`
			`ld a, [W_YCOORD]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld d, a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld a, [W_XCOORD]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld e, a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr nz, .notFacingDown`
			`; facing down`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc d`
			`ret`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.notFacingDown`
			`cp SPRITE_FACING_UP`
			`jr nz, .notFacingUp`
			`; facing up`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec d`
			`ret`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.notFacingUp`
			`cp SPRITE_FACING_LEFT`
			`jr nz, .notFacingLeft`
			`; facing left`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec e`
			`ret`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.notFacingLeft`
			`; facing right`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc e`
			`ret`