Replace ¥ font character with <COIN> (#7)

charmap.asm

@@ -127,7 +127,7 @@
 	charmap "'v",        $c6
 	charmap "′",         $c7
 	charmap "″",         $c8
-	charmap "¥",         $c9
+	charmap "<COIN>",    $c9
 	charmap "'",         $d0
 	charmap "<PK>",      $d1
 	charmap "<MN>",      $d2

data/text/battle.asm

@@ -2,7 +2,7 @@ BattleText:: ; used only for BANK(BattleText)
 
 BattleText_PlayerPickedUpPayDayMoney:
 	text "<PLAYER> picked up"
-	line "¥@"
+	line "<COIN>@"
 	text_decimal wPayDayMoney, 3, 6
 	text "!"
 	prompt
@@ -167,7 +167,7 @@ BattleText_EnemyMonFainted:
 	prompt
 
 GotMoneyForWinningText:
-	text "<PLAYER> got ¥@"
+	text "<PLAYER> got <COIN>@"
 	text_decimal wBattleReward, 3, 6
 	text_start
 	line "for winning!"
@@ -184,7 +184,7 @@ TiedAgainstText:
 	prompt
 
 SentSomeToMomText:
-	text "<PLAYER> got ¥@"
+	text "<PLAYER> got <COIN>@"
 	text_decimal wBattleReward, 3, 6
 	text_start
 	line "for winning!"

data/text/common_1.asm

@@ -1769,7 +1769,7 @@ _YourMonHasGrownText::
 
 	para "If you want your"
 	line "#MON back, it"
-	cont "will cost ¥@"
+	cont "will cost <COIN>@"
 	text_decimal wStringBuffer2 + 2, 3, 4
 	text "."
 	done
@@ -1796,7 +1796,7 @@ _BackAlreadyText::
 
 	para "If you want your"
 	line "#MON back, it"
-	cont "will cost ¥100."
+	cont "will cost <COIN>100."
 	done
 
 _HaveNoRoomText::

data/text/common_3.asm

@@ -379,7 +379,7 @@ _MartFinalPriceText::
 	text " @"
 	text_ram wStringBuffer2
 	text "(S)"
-	line "will be ¥@"
+	line "will be <COIN>@"
 	text_decimal hMoneyTemp, 3, 6
 	text "."
 	done
@@ -408,7 +408,7 @@ _HerbalLadyFinalPriceText::
 	text " @"
 	text_ram wStringBuffer2
 	text "(S)"
-	line "will be ¥@"
+	line "will be <COIN>@"
 	text_decimal hMoneyTemp, 3, 6
 	text "."
 	done
@@ -447,7 +447,7 @@ _BargainShopIntroText::
 _BargainShopFinalPriceText::
 	text_ram wStringBuffer2
 	text " costs"
-	line "¥@"
+	line "<COIN>@"
 	text_decimal hMoneyTemp, 3, 6
 	text ". Want it?"
 	done
@@ -491,7 +491,7 @@ _PharmacyFinalPriceText::
 	text " @"
 	text_ram wStringBuffer2
 	text "(S)"
-	line "will cost ¥@"
+	line "will cost <COIN>@"
 	text_decimal hMoneyTemp, 3, 6
 	text "."
 	done
@@ -526,7 +526,7 @@ _MartSellHowManyText::
 
 _MartSellPriceText::
 	text "I can pay you"
-	line "¥@"
+	line "<COIN>@"
 	text_decimal hMoneyTemp, 3, 6
 	text "."
 
@@ -568,7 +568,7 @@ _MartAskMoreText::
 	done
 
 _MartBoughtText::
-	text "Got ¥@"
+	text "Got <COIN>@"
 	text_decimal hMoneyTemp, 3, 6
 	text " for"
 	line "@"

data/text/mail_input_chars.asm

@@ -5,7 +5,7 @@ MailEntry_Uppercase:
 	db "K L M N O P Q R S T"
 	db "U V W X Y Z   , ? !"
 	db "1 2 3 4 5 6 7 8 9 0"
-	db "<PK> <MN> <PO> <KE> é ♂ ♀ ¥ … ×"
+	db "<PK> <MN> <PO> <KE> é ♂ ♀ <COIN> … ×"
 	db "lower  DEL   END   "
 
 MailEntry_Lowercase:

data/text/std_text.asm

@@ -316,7 +316,7 @@ ChipVendor_IntroText:
 	text "Do you need some"
 	line "game chips?"
 
-	para "It costs ¥1000 for"
+	para "It costs <COIN>1000 for"
 	line "50 chips. Do you"
 	cont "want some?"
 	done

engine/events/std_scripts.asm

@@ -840,8 +840,8 @@ ChipVendor_IntroScript:
 .MenuData:
 	db STATICMENU_CURSOR ; flags
 	db 3 ; items
-	db " 50 :  ¥1000@"
-	db "500 : ¥10000@"
+	db " 50 :  <COIN>1000@"
+	db "500 : <COIN>10000@"
 	db "CANCEL@"
 
 HappinessCheckScript:

engine/math/print_num.asm

@@ -19,7 +19,7 @@ _PrintNum::
 	jr z, .main
 
 .moneyflag ; 101xxxxx or 011xxxxx
-	ld a, "¥"
+	ld a, "<COIN>"
 	ld [hli], a
 	res 5, b ; 100xxxxx or 010xxxxx
 
@@ -155,7 +155,7 @@ _PrintNum::
 	jr .money_leading_zero
 
 .money
-	call .PrintYen
+	call .PrintCoin
 	push af
 	ld a, "0"
 	add c
@@ -170,7 +170,7 @@ _PrintNum::
 
 .money_leading_zero
 	call .AdvancePointer
-	call .PrintYen
+	call .PrintCoin
 	ld a, "0"
 	add b
 	ld [hli], a
@@ -179,14 +179,14 @@ _PrintNum::
 	pop bc
 	ret
 
-.PrintYen:
+.PrintCoin:
 	push af
 	ldh a, [hPrintNumBuffer + 0]
 	and a
 	jr nz, .stop
 	bit 5, d
 	jr z, .stop
-	ld a, "¥"
+	ld a, "<COIN>"
 	ld [hli], a
 	res 5, d
 
@@ -264,7 +264,7 @@ _PrintNum::
 	jr nz, .done
 	bit 5, d
 	jr z, .done
-	ld a, "¥"
+	ld a, "<COIN>"
 	ld [hli], a
 	res 5, d
 .done

home/print_bcd.asm

@@ -20,7 +20,7 @@ PrintBCDNumber::
 	jr z, .loop
 	bit PRINTNUM_LEADINGZEROS_F, b
 	jr nz, .loop ; skip currency symbol
-	ld [hl], "¥"
+	ld [hl], "<COIN>"
 	inc hl
 .loop
 	ld a, [de]
@@ -41,7 +41,7 @@ PrintBCDNumber::
 .skipLeftAlignmentAdjustment
 	bit PRINTNUM_MONEY_F, b
 	jr z, .skipCurrencySymbol
-	ld [hl], "¥" ; currency symbol
+	ld [hl], "<COIN>" ; currency symbol
 	inc hl
 .skipCurrencySymbol
 	ld [hl], "0"
@@ -60,7 +60,7 @@ PrintBCDDigit::
 ; if bit 7 is set, then no numbers have been printed yet
 	bit PRINTNUM_MONEY_F, b
 	jr z, .skipCurrencySymbol
-	ld [hl], "¥"
+	ld [hl], "<COIN>"
 	inc hl
 	res PRINTNUM_MONEY_F, b
 .skipCurrencySymbol