mirror of
https://github.com/gb-mobile/pokecrystal-mobile-eng.git
synced 2026-03-21 17:34:19 -05:00
Currency Strings Implementation
Introduces an implementation for different currency strings depending on the chosen address in the Mobile Profile. Function credit goes to Damien.
This commit is contained in:
Darkshade
parent
ec09698ac3
commit
7e846c96a8
|
|
@ -312,6 +312,7 @@ ROMX $7c
|
|||
"Battle Tower Trainer Data"
|
||||
ROMX $7d
|
||||
"Mobile News Data"
|
||||
"Currency Finder"
|
||||
ROMX $7e
|
||||
"Crystal Events"
|
||||
ROMX $7f
|
||||
|
|
|
|||
5
main.asm
5
main.asm
|
|
@ -678,6 +678,11 @@ INCLUDE "mobile/news/news.asm"
|
|||
INCLUDE "mobile/error.asm"
|
||||
|
||||
|
||||
SECTION "Currency Finder", ROMX
|
||||
|
||||
INCLUDE "mobile/currency_finder.asm"
|
||||
|
||||
|
||||
SECTION "Crystal Events", ROMX
|
||||
|
||||
;INCLUDE "engine/events/battle_tower/load_trainer.asm"
|
||||
|
|
|
|||
224
mobile/currency_finder.asm
Normal file
224
mobile/currency_finder.asm
Normal file
|
|
@ -0,0 +1,224 @@
|
|||
; Input: DE = the memory address were the string should be written. Also, wd474 should be set to the prefecture of the user.
|
||||
; Output: it edits the bytes pointed by DE.
|
||||
WriteCurrencyName::
|
||||
call DetermineCurrencyName
|
||||
call CopyCurrencyString
|
||||
ret
|
||||
|
||||
; Input: none. wd474 should be set to the prefecture of the user.
|
||||
; Output: HL = the address of the string to use for the currency.
|
||||
DetermineCurrencyName:
|
||||
if DEF(_CRYSTAL_EU)
|
||||
; EU region.
|
||||
ld a, [wd474] ; Loads the Prefectures index (starts at 0) selected by the player. The Prefectures list is stored into mobile_12.asm
|
||||
dec a ; Beware: it the value is 0, dec will underflow and default to the default value
|
||||
|
||||
ld hl, String_Currency_Lek
|
||||
cp 1 ; "EU-AL@" ; Albania
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Fening
|
||||
cp 3 ; "EU-BA@" ; Bosnia and Herzegovina
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Stotinki
|
||||
cp 5 ; "EU-BG@" ; Bulgaria
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Copecks
|
||||
cp 6 ; "EU-BY@" ; Belarus
|
||||
ret z
|
||||
cp 7 ; "EU-CH@" ; Switzerland
|
||||
ret z
|
||||
cp 22 ; "EU-LI@" ; Liechtenstein
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Crowns
|
||||
cp 8 ; "EU-CZ@" ; Czech Republic
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Ore
|
||||
cp 10 ; "EU-DK@" ; Denmark
|
||||
ret z
|
||||
cp 29 ; "EU-NO@" ; Norway
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Krooni
|
||||
cp 11 ; "EU-EE@" ; Estonia
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Pence
|
||||
cp 15 ; "EU-GB@" ; United Kingdom
|
||||
ret z
|
||||
cp 19 ; "EU-IE@" ; Ireland
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Lp
|
||||
cp 17 ; "EU-HR@" ; Croatia
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Filler
|
||||
cp 18 ; "EU-HU@" ; Hungary
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Centai
|
||||
cp 23 ; "EU-LT@" ; Lithuania
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Santimi
|
||||
cp 25 ; "EU-LV@" ; Lavia
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Lei
|
||||
cp 26 ; "EU-MD@" ; Moldova
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Liri
|
||||
cp 27 ; "EU-MT@" ; Malta
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Groszy
|
||||
cp 30 ; "EU-PL@" ; Poland
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Bani
|
||||
cp 32 ; "EU-RO@" ; Romania
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Dinari
|
||||
cp 33 ; "EU-RS@" ; Serbia
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Rubles
|
||||
cp 34 ; "EU-RU@" ; Russia
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Kronor
|
||||
cp 35 ; "EU-SE@" ; Sweden
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Tolars
|
||||
cp 36 ; "EU-SI@" ; Slovenia
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Haliers
|
||||
cp 37 ; "EU-SK@" ; Slovakia
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Kopikyk
|
||||
cp 39 ; "EU-UA@" ; Ukraine
|
||||
ret z
|
||||
|
||||
ld hl, String_Currency_Cents ; Default case. Anything that uses Cents doesn't need to be added into this check list.
|
||||
else
|
||||
; AU and US regions. Cents in all cases.
|
||||
ld hl, String_Currency_Cents
|
||||
endc
|
||||
ret
|
||||
|
||||
; Input: HL = the address to copy from.
|
||||
; Output: DE = the address to copy into.
|
||||
; Stops the copy when the EOL char is found ($50 or '@').
|
||||
CopyCurrencyString: ; I know this is ugly, I copied and pasted this function from mobile_46.asm
|
||||
.loop
|
||||
ld a, [hli]
|
||||
cp $50
|
||||
ret z
|
||||
ld [de], a
|
||||
inc de
|
||||
jr .loop
|
||||
|
||||
|
||||
|
||||
String_Currency_Cents: ; Note that this is unoptimized, as the string "Is this OK?@" is repeted.
|
||||
db " Cents";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Lek: ; Note that this is unoptimized, as the string "Is this OK?@" is repeted.
|
||||
db " Lek";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Fening:
|
||||
db " Fening";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Stotinki:
|
||||
db " St.";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Copecks:
|
||||
db " Copecks";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Crowns:
|
||||
db " Crowns";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Ore:
|
||||
db " Öre";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Krooni:
|
||||
db " Krooni";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Pence:
|
||||
db " Pence";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Lp:
|
||||
db " Lp";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Filler:
|
||||
db " Fillér";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Centai:
|
||||
db " Centai";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Santimi:
|
||||
db " Santimi";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Lei:
|
||||
db " Lei";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Liri:
|
||||
db " Liri";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Groszy:
|
||||
db " Groszy";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Bani:
|
||||
db " Bani";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Dinari:
|
||||
db " Dinari";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Rubles:
|
||||
db " Rubles";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Kronor:
|
||||
db " Kronor";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Tolars:
|
||||
db " Tolars";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Haliers:
|
||||
db " Haliers";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_Currency_Kopikyk:
|
||||
db " Kopikyk";"えん"
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
|
|
@ -5101,8 +5101,7 @@ Function11a1e6:
|
|||
call Function11a1ff
|
||||
ld hl, wcd85
|
||||
call Function11a1ff
|
||||
ld hl, String_11a70b
|
||||
call Function11a1ff
|
||||
farcall WriteCurrencyName ; Copies the currency string at the end of the current string pointed by address stored into DE.
|
||||
ld a, $50
|
||||
ld [de], a
|
||||
ret
|
||||
|
|
@ -5708,10 +5707,6 @@ String_11a6f1:
|
|||
String_11a706:
|
||||
db "Cost:@";"おかね<GA>@"
|
||||
|
||||
String_11a70b:
|
||||
db " Yen";"えん" ; This currency will need to be changed
|
||||
next "Is this OK?@";"かかります よろしい ですか？@"
|
||||
|
||||
String_11a71e:
|
||||
db "Communication";"つうしん しゅうりょう@" ; ???
|
||||
next "ended.@"
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user