mirror of https://github.com/pret/pokecrystal.git
55 lines
1013 B
NASM
55 lines
1013 B
NASM
unownwall: MACRO
|
|
rept _NARG
|
|
if \1 == "-"
|
|
x = $64
|
|
else
|
|
if \1 >= "Y"
|
|
x = 2 * (\1 - "Y") + $60
|
|
else
|
|
if \1 >= "Q"
|
|
x = 2 * (\1 - "Q") + $40
|
|
else
|
|
if \1 >= "I"
|
|
x = 2 * (\1 - "I") + $20
|
|
else
|
|
x = 2 * (\1 - "A")
|
|
endc
|
|
endc
|
|
endc
|
|
endc
|
|
db x
|
|
shift
|
|
endr
|
|
db -1 ; end
|
|
ENDM
|
|
|
|
UnownWalls: ; 8aebc
|
|
; UNOWNWORDS_ESCAPE
|
|
; db $08, $44, $04, $00, $2e, $08, $ff
|
|
unownwall "E", "S", "C", "A", "P", "E"
|
|
; UNOWNWORDS_LIGHT
|
|
; db $26, $20, $0c, $0e, $46, $ff
|
|
unownwall "L", "I", "G", "H", "T"
|
|
; UNOWNWORDS_WATER
|
|
; db $4c, $00, $46, $08, $42, $ff
|
|
unownwall "W", "A", "T", "E", "R"
|
|
; UNOWNWORDS_HO_OH
|
|
; db $0e, $2c, $64, $2c, $0e, $ff
|
|
unownwall "H", "O", "-", "O", "H"
|
|
; 8aed5
|
|
|
|
MenuHeaders_UnownWalls: ; 0x8aed5
|
|
; UNOWNWORDS_ESCAPE
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 3, 4, 16, 9
|
|
; UNOWNWORDS_LIGHT
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 4, 4, 15, 9
|
|
; UNOWNWORDS_WATER
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 4, 4, 15, 9
|
|
; UNOWNWORDS_HO_OH
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 4, 4, 15, 9
|
|
; 8aee9
|