A dungeon delver roguelike using Pathfinder 2nd edition rules
Added rendering doors and stairs
+135
+135
gb/src/main/states/gameplay/gameplay-state.asm
+135
gb/src/main/states/gameplay/gameplay-state.asm
···
61
61
ld a, $4a+$0f
62
62
ld [hli], a
63
63
add hl, de ; Row 4
64
+
ld a, $5b+$0f
65
+
ld [hli], a
66
+
ld a, $5c+$0f
67
+
ld [hli], a
68
+
ld a, $5d+$0f
69
+
ld [hli], a
70
+
ld a, $56+$0f
71
+
ld [hli], a
72
+
add hl, de ; Row 5
73
+
ld a, $27+$0f
74
+
ld [hli], a
75
+
ld a, $25+$0f
76
+
ld [hli], a
77
+
ld a, $25+$0f
78
+
ld [hli], a
79
+
ld a, $27+$0f
80
+
ld [hli], a
81
+
pop hl
64
82
.FuncBody2
65
83
ld a, [hl]
66
84
and $08
67
85
jp z, .FuncBody3
68
86
; set east door
87
+
push hl
88
+
ld hl, $9800+$153
89
+
ld a, $25+$0f
90
+
ld [hl], a
91
+
ld de, $0020
92
+
add hl, de
93
+
ld [hl], a
94
+
pop hl
69
95
.FuncBody3
70
96
ld a, [hl]
71
97
and $10
72
98
jp z, .FuncBody4
73
99
; set south door
100
+
push hl
101
+
ld hl, $9800+$228
102
+
ld a, $25+$0f
103
+
ld [hli], a
104
+
ld [hli], a
105
+
pop hl
74
106
.FuncBody4
75
107
ld a, [hl]
76
108
and $20
77
109
jp z, .FuncBody5
78
110
; set west door
111
+
push hl
112
+
ld hl, $9800+$140
113
+
ld a, $25+$0f
114
+
ld [hl], a
115
+
ld de, $0020
116
+
add hl, de
117
+
ld [hl], a
118
+
pop hl
79
119
.FuncBody5
80
120
ld a, [hl]
81
121
and $40
82
122
jp z, .FuncBody6
83
123
; set stair down
124
+
push hl
125
+
ld hl, $9800+$02 ; Row 1
126
+
ld a, $37+$0f
127
+
ld [hli], a
128
+
ld a, $2e+$0f
129
+
ld [hli], a
130
+
ld a, $2f+$0f
131
+
ld [hli], a
132
+
ld a, $32+$0f
133
+
ld [hli], a
134
+
ld de, $001c
135
+
add hl, de ; Row 2
136
+
ld a, $43+$0f
137
+
ld [hli], a
138
+
ld a, $3a+$0f
139
+
ld [hli], a
140
+
ld a, $3b+$0f
141
+
ld [hli], a
142
+
ld a, $3e+$0f
143
+
ld [hli], a
144
+
add hl, de ; Row 3
145
+
ld a, $4f+$0f
146
+
ld [hli], a
147
+
ld a, $46+$0f
148
+
ld [hli], a
149
+
ld a, $47+$0f
150
+
ld [hli], a
151
+
ld a, $4a+$0f
152
+
ld [hli], a
153
+
add hl, de ; Row 4
154
+
ld a, $5b+$0f
155
+
ld [hli], a
156
+
ld a, $52+$0f
157
+
ld [hli], a
158
+
ld a, $53+$0f
159
+
ld [hli], a
160
+
ld a, $56+$0f
161
+
ld [hli], a
162
+
add hl, de ; Row 5
163
+
ld a, $27+$0f
164
+
ld [hli], a
165
+
ld a, $25+$0f
166
+
ld [hli], a
167
+
ld a, $27+$0f
168
+
ld [hl], a
169
+
pop hl
84
170
.FuncBody6
85
171
ld a, [hl]
86
172
and $80
87
173
jp z, .FuncBody7
174
+
; set stair up
175
+
push hl
176
+
ld hl, $9800+$0e ; Row 1
177
+
ld a, $34+$0f
178
+
ld [hli], a
179
+
ld a, $30+$0f
180
+
ld [hli], a
181
+
ld a, $31+$0f
182
+
ld [hli], a
183
+
ld a, $32+$0f
184
+
ld [hli], a
185
+
ld de, $001c
186
+
add hl, de ; Row 2
187
+
ld a, $43+$0f
188
+
ld [hli], a
189
+
ld a, $3c+$0f
190
+
ld [hli], a
191
+
ld a, $3d+$0f
192
+
ld [hli], a
193
+
ld a, $3e+$0f
194
+
ld [hli], a
195
+
add hl, de ; Row 3
196
+
ld a, $4f+$0f
197
+
ld [hli], a
198
+
ld a, $48+$0f
199
+
ld [hli], a
200
+
ld a, $49+$0f
201
+
ld [hli], a
202
+
ld a, $4a+$0f
203
+
ld [hli], a
204
+
add hl, de ; Row 4
205
+
ld a, $5b+$0f
206
+
ld [hli], a
207
+
ld a, $54+$0f
208
+
ld [hli], a
209
+
ld a, $55+$0f
210
+
ld [hli], a
211
+
ld a, $56+$0f
212
+
ld [hli], a
213
+
add hl, de ; Row 5
214
+
ld a, $27+$0f
215
+
ld [hli], a
216
+
ld a, $25+$0f
217
+
ld [hli], a
218
+
ld a, $25+$0f
219
+
ld [hli], a
220
+
ld a, $27+$0f
221
+
ld [hl], a
222
+
pop hl
88
223
.FuncBody7
89
224
ret
90
225