Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
pret
GitHub Repository: pret/pokered
 Path: blob/master/macros/coords.asm
1270 views
1
MACRO validate_coords

2
	IF _NARG >= 4

3
		IF \1 >= \3

4
			fail "x coord out of range"

5
		ENDC

6
		IF \2 >= \4

7
			fail "y coord out of range"

8
		ENDC

9
	ELSE

10
		validate_coords \1, \2, SCREEN_WIDTH, SCREEN_HEIGHT

11
	ENDC

12
ENDM

13


14
MACRO hlcoord

15
	coord hl, \#

16
ENDM

17


18
MACRO bccoord

19
	coord bc, \#

20
ENDM

21


22
MACRO decoord

23
	coord de, \#

24
ENDM

25


26
MACRO coord

27
; register, x, y[, origin]

28
	validate_coords \2, \3

29
	IF _NARG >= 4

30
		ld \1, (\3) * SCREEN_WIDTH + (\2) + \4

31
	ELSE

32
		ld \1, (\3) * SCREEN_WIDTH + (\2) + wTileMap

33
	ENDC

34
ENDM

35


36
MACRO hlbgcoord

37
	bgcoord hl, \#

38
ENDM

39


40
MACRO bcbgcoord

41
	bgcoord bc, \#

42
ENDM

43


44
MACRO debgcoord

45
	bgcoord de, \#

46
ENDM

47


48
MACRO bgcoord

49
; register, x, y[, origin]

50
	validate_coords \2, \3, TILEMAP_WIDTH, TILEMAP_HEIGHT

51
	IF _NARG >= 4

52
		ld \1, (\3) * TILEMAP_WIDTH + (\2) + \4

53
	ELSE

54
		ld \1, (\3) * TILEMAP_WIDTH + (\2) + vBGMap0

55
	ENDC

56
ENDM

57


58
MACRO hlowcoord

59
	owcoord hl, \#

60
ENDM

61


62
MACRO bcowcoord

63
	owcoord bc, \#

64
ENDM

65


66
MACRO deowcoord

67
	owcoord de, \#

68
ENDM

69


70
MACRO owcoord

71
; register, x, y, map width

72
	ld \1, wOverworldMap + ((\2) + 3) + (((\3) + 3) * ((\4) + (3 * 2)))

73
ENDM

74


75
MACRO event_displacement

76
; map width, x blocks, y blocks

77
	dw (wOverworldMap + 7 + (\1) + ((\1) + 6) * ((\3) >> 1) + ((\2) >> 1))

78
	db \3, \2

79
ENDM

80


81
MACRO dwcoord

82
; x, y

83
	validate_coords \1, \2

84
	IF _NARG >= 3

85
		dw (\2) * SCREEN_WIDTH + (\1) + \3

86
	ELSE

87
		dw (\2) * SCREEN_WIDTH + (\1) + wTileMap

88
	ENDC

89
ENDM

90


91
MACRO ldcoord_a

92
; x, y[, origin]

93
	validate_coords \1, \2

94
	IF _NARG >= 3

95
		ld [(\2) * SCREEN_WIDTH + (\1) + \3], a

96
	ELSE

97
		ld [(\2) * SCREEN_WIDTH + (\1) + wTileMap], a

98
	ENDC

99
ENDM

100


101
MACRO lda_coord

102
; x, y[, origin]

103
	validate_coords \1, \2

104
	IF _NARG >= 3

105
		ld a, [(\2) * SCREEN_WIDTH + (\1) + \3]

106
	ELSE

107
		ld a, [(\2) * SCREEN_WIDTH + (\1) + wTileMap]

108
	ENDC

109
ENDM

110


111
MACRO dbmapcoord

112
; x, y

113
	db \2, \1

114
ENDM

115


116