1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
UpdateUnownDex:
ld a, [wUnownLetter]
ld c, a
ld b, NUM_UNOWN
ld hl, wUnownDex
.loop
ld a, [hli]
and a
jr z, .done
cp c
ret z
dec b
jr nz, .loop
ret
.done
dec hl
ld [hl], c
ret
PrintUnownWord:
hlcoord 4, 15
ld bc, 12
ld a, " "
call ByteFill
ld a, [wDexCurUnownIndex]
ld e, a
ld d, 0
ld hl, wUnownDex
add hl, de
ld a, [hl]
ld e, a
ld d, 0
ld hl, UnownWords
add hl, de
add hl, de
ld a, [hli]
ld e, a
ld d, [hl]
hlcoord 4, 15
.loop
ld a, [de]
cp -1
ret z
inc de
ld [hli], a
jr .loop
INCLUDE "data/pokemon/unown_words.asm"
|
