Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
pret
GitHub Repository: pret/pokered
 Path: blob/master/engine/events/card_key.asm
1271 views
1
PrintCardKeyText:

2
	ld hl, SilphCoMapList

3
	ld a, [wCurMap]

4
	ld b, a

5
.silphCoMapListLoop

6
	ld a, [hli]

7
	cp -1

8
	ret z

9
	cp b

10
	jr nz, .silphCoMapListLoop

11
	predef GetTileAndCoordsInFrontOfPlayer

12
	ld a, [wTileInFrontOfPlayer]

13
	cp $18

14
	jr z, .cardKeyDoorInFrontOfPlayer

15
	cp $24

16
	jr z, .cardKeyDoorInFrontOfPlayer

17
	ld b, a

18
	ld a, [wCurMap]

19
	cp SILPH_CO_11F

20
	ret nz

21
	ld a, b

22
	cp $5e

23
	ret nz

24
.cardKeyDoorInFrontOfPlayer

25
	ld b, CARD_KEY

26
	call IsItemInBag

27
	jr z, .noCardKey

28
	call GetCoordsInFrontOfPlayer

29
	push de

30
	tx_pre_id CardKeySuccessText

31
	ldh [hTextID], a

32
	call PrintPredefTextID

33
	pop de

34
	srl d

35
	ld a, d

36
	ld b, a

37
	ld [wCardKeyDoorY], a

38
	srl e

39
	ld a, e

40
	ld c, a

41
	ld [wCardKeyDoorX], a

42
	ld a, [wCurMap]

43
	cp SILPH_CO_11F

44
	jr nz, .notSilphCo11F

45
	ld a, $3

46
	jr .replaceCardKeyDoorTileBlock

47
.notSilphCo11F

48
	ld a, $e

49
.replaceCardKeyDoorTileBlock

50
	ld [wNewTileBlockID], a

51
	predef ReplaceTileBlock

52
	ld hl, wCurrentMapScriptFlags

53
	set BIT_CUR_MAP_LOADED_1, [hl]

54
	ld a, SFX_GO_INSIDE

55
	jp PlaySound

56
.noCardKey

57
	tx_pre_id CardKeyFailText

58
	ldh [hTextID], a

59
	jp PrintPredefTextID

60


61
INCLUDE "data/events/card_key_maps.asm"

62


63
CardKeySuccessText::

64
	text_far _CardKeySuccessText1

65
	sound_get_item_1

66
	text_far _CardKeySuccessText2

67
	text_end

68


69
CardKeyFailText::

70
	text_far _CardKeyFailText

71
	text_end

72


73
; d = Y

74
; e = X

75
GetCoordsInFrontOfPlayer:

76
	ld a, [wYCoord]

77
	ld d, a

78
	ld a, [wXCoord]

79
	ld e, a

80
	ld a, [wSpritePlayerStateData1FacingDirection]

81
	and a

82
	jr nz, .notFacingDown

83
; facing down

84
	inc d

85
	ret

86
.notFacingDown

87
	cp SPRITE_FACING_UP

88
	jr nz, .notFacingUp

89
; facing up

90
	dec d

91
	ret

92
.notFacingUp

93
	cp SPRITE_FACING_LEFT

94
	jr nz, .notFacingLeft

95
; facing left

96
	dec e

97
	ret

98
.notFacingLeft

99
; facing right

100
	inc e

101
	ret

102


103