ref: eed50479223ed604041ff6e281ce7a46564e2a0a
parent: f707f6f4bb59596249e70112882a26d21d693bf4
author: IIMarckus <iimarckus@gmail.com>
date: Wed Dec 21 09:02:50 EST 2011
Add characters for textbox borders to the array. hg-commit-id: b09b0823f1bc
--- a/pokered.asm
+++ b/pokered.asm
@@ -431,7 +431,7 @@
; first row
push hl
- ld a,$79 ; upper-left border ┌
+ ld a,"┌"
ld [hli],a
inc a ; horizontal border ─
call NPlaceChar
@@ -445,11 +445,11 @@
.PlaceRow\@
push hl
- ld a,$7C ; vertical border │
+ ld a,"│"
ld [hli],a
- ld a,$7F ; blank space ‘ ’
+ ld a," "
call NPlaceChar
- ld [hl],$7C ; vertical border │
+ ld [hl],"│"
pop hl
ld de,20
@@ -458,11 +458,11 @@
jr nz,.PlaceRow\@
; bottom row
- ld a,$7D ; lower-left border └
+ ld a,"└"
ld [hli],a
- ld a,$7A ; horizontal border ─
+ ld a,"─"
call NPlaceChar
- ld [hl],$7E ; lower-right border ┘
+ ld [hl],"┘"
ret
;
NPlaceChar:
@@ -10715,7 +10715,7 @@
jp $3C5F
OTString67E5: ; 67E5
- db $7A,$7A,$74,$F2,$4E
+ db "──",$74,$F2,$4E
db $4E
db "OT/",$4E
db $73,$74,$F2,"@"
--- a/textpre.awk
+++ b/textpre.awk
@@ -146,6 +146,15 @@
char["@"] = "$50"
char["#"] = "$54"
char["…"] = "$75"
+
+# textbox borders
+char["┌"] = "$79"
+char["─"] = "$7A"
+char["┐"] = "$7B"
+char["│"] = "$7C"
+char["└"] = "$7D"
+char["┘"] = "$7E"
+
char[" "] = "$7F"
char["A"] = "$80"
char["B"] = "$81"
--
⑨