foster/pokered
0
0
Fork 0
mirror of https://github.com/pret/pokered.git synced 2024-10-23 06:58:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add characters for textbox borders to the array.

Browse source 
hg-commit-id: b09b0823f1bc
This commit is contained in:
IIMarckus 2011-12-21 14:02:50 -07:00
parent f707f6f4bb
commit eed5047922
2 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
pokered.asm
View file

@ -431,7 +431,7 @@ TextBoxBorder: ; 1922
; first row ; first row
push hl push hl
ld a,$79 ; upper-left border ┌ ld a,"┌"
ld [hli],a ld [hli],a
inc a ; horizontal border ─ inc a ; horizontal border ─
call NPlaceChar call NPlaceChar
@ -445,11 +445,11 @@ TextBoxBorder: ; 1922
.PlaceRow\@ .PlaceRow\@
push hl push hl
ld a,$7C ; vertical border │ ld a,"│"
ld [hli],a ld [hli],a
ld a,$7F ; blank space ‘ ’ ld a," "
call NPlaceChar call NPlaceChar
ld [hl],$7C ; vertical border │ ld [hl],"│"
pop hl pop hl
ld de,20 ld de,20
@ -458,11 +458,11 @@ TextBoxBorder: ; 1922
jr nz,.PlaceRow\@ jr nz,.PlaceRow\@
; bottom row ; bottom row
ld a,$7D ; lower-left border └ ld a,"└"
ld [hli],a ld [hli],a
ld a,$7A ; horizontal border ─ ld a,"─"
call NPlaceChar call NPlaceChar
ld [hl],$7E ; lower-right border ┘ ld [hl],"┘"
ret ret
; ;
NPlaceChar: NPlaceChar:
@ -10715,7 +10715,7 @@ INCBIN "baserom.gbc",$410E2,$2769 - $10E2
jp $3C5F jp $3C5F
OTString67E5: ; 67E5 OTString67E5: ; 67E5
db $7A,$7A,$74,$F2,$4E db "──",$74,$F2,$4E
db $4E db $4E
db "OT/",$4E db "OT/",$4E
db $73,$74,$F2,"@" db $73,$74,$F2,"@"

9
textpre.awk
View file

@ -146,6 +146,15 @@ char["ー"] = "$E3"
char["@"] = "$50" char["@"] = "$50"
char["#"] = "$54" char["#"] = "$54"
char["…"] = "$75" char["…"] = "$75"
# textbox borders
char["┌"] = "$79"
char["─"] = "$7A"
char["┐"] = "$7B"
char["│"] = "$7C"
char["└"] = "$7D"
char["┘"] = "$7E"
char[" "] = "$7F" char[" "] = "$7F"
char["A"] = "$80" char["A"] = "$80"
char["B"] = "$81" char["B"] = "$81"