Initial decompilation of FR Red

1 files changed, 45 insertions, 66 deletions

diff --git a/main.asm b/main.asm
index 06e32463..f46c34b2 100755
--- a/main.asm
+++ b/main.asm
@@ -176,7 +176,7 @@ PrintWaitingText:
 	jp DelayFrames
 
 WaitingText:
-	db "Waiting...!@"
+	db "UN MOMENT…@"
 
 
 _UpdateSprites:
@@ -1130,22 +1130,22 @@ DrawStartMenu:
 	ret
 
 StartMenuPokedexText:
-	db "POKéDEX@"
+	db "#DEX@"
 
 StartMenuPokemonText:
-	db "POKéMON@"
+	db "#MON@"
 
 StartMenuItemText:
-	db "ITEM@"
+	db "OBJET@"
 
 StartMenuSaveText:
-	db "SAVE@"
+	db "SAUVER@"
 
 StartMenuResetText:
-	db "RESET@"
+	db "QUITTER@"
 
 StartMenuExitText:
-	db "EXIT@"
+	db "RETOUR@"
 
 StartMenuOptionText:
 	db "OPTION@"
@@ -1324,7 +1324,7 @@ TextBoxCoordTable:
 TextBoxTextAndCoordTable:
 	db JP_MOCHIMONO_MENU_TEMPLATE
 	db 0,0,14,17   ; text box coordinates
-	dw JapaneseMochimonoText
+	dw BuySellQuitText ; JapaneseMochimonoText
 	db 3,0   ; text coordinates
 
 	db USE_TOSS_MENU_TEMPLATE
@@ -1334,12 +1334,12 @@ TextBoxTextAndCoordTable:
 
 	db JP_SAVE_MESSAGE_MENU_TEMPLATE
 	db 0,0,7,5     ; text box coordinates
-	dw JapaneseSaveMessageText
+	dw BuySellQuitText ; JapaneseSaveMessageText
 	db 2,2   ; text coordinates
 
 	db JP_SPEED_OPTIONS_MENU_TEMPLATE
 	db 0,6,5,10    ; text box coordinates
-	dw JapaneseSpeedOptionsText
+	dw BuySellQuitText ; JapaneseSpeedOptionsText
 	db 2,7   ; text coordinates
 
 	db BATTLE_MENU_TEMPLATE
@@ -1369,64 +1369,40 @@ TextBoxTextAndCoordTable:
 
 	db JP_AH_MENU_TEMPLATE
 	db 7,6,11,10   ; text box coordinates
-	dw JapaneseAhText
+	dw BuySellQuitText ; JapaneseAhText
 	db 8,8   ; text coordinates
 
 	db JP_POKEDEX_MENU_TEMPLATE
 	db 11,8,19,17  ; text box coordinates
-	dw JapanesePokedexMenu
+	dw BuySellQuitText ; JapanesePokedexMenu
 	db 12,10 ; text coordinates
 
 ; note that there is no terminator
 
 BuySellQuitText:
-	db   "BUY"
-	next "SELL"
-	next "QUIT@@"
+	db   "@ACHETER"
+	next "VENDRE"
+	next "SALUT!@"
 
 UseTossText:
-	db   "USE"
-	next "TOSS@"
-
-JapaneseSaveMessageText:
-	db   "きろく"
-	next "メッセージ@"
-
-JapaneseSpeedOptionsText:
-	db   "はやい"
-	next "おそい@"
+	db   "UTIL."
+	next "JETER@"
 
 MoneyText:
-	db "MONEY@"
-
-JapaneseMochimonoText:
-	db "もちもの@"
-
-JapaneseMainMenuText:
-	db   "つづきから"
-	next "さいしょから@"
+	db "ARG.@"
 
 BattleMenuText:
-	db   "FIGHT ",$E1,$E2
-	next "ITEM  RUN@"
+	db   "ATTAQ ",$E1,$E2
+	next "OBJET FUITE@"
 
 SafariZoneBattleMenuText:
-	db   "BALL×       BAIT"
-	next "THROW ROCK  RUN@"
+	db   "BALL×      APPAT"
+	next "CAILLOU    FUITE@"
 
 SwitchStatsCancelText:
-	db   "SWITCH"
+	db   "ORDRE"
 	next "STATS"
-	next "CANCEL@"
-
-JapaneseAhText:
-	db "アッ!@"
-
-JapanesePokedexMenu:
-	db   "データをみる"
-	next "なきごえ"
-	next "ぶんぷをみる"
-	next "キャンセル@"
+	next "RETOUR@"
 
 DisplayMoneyBox:
 	ld hl, wd730
@@ -1440,9 +1416,12 @@ DisplayMoneyBox:
 	call ClearScreenArea
 	coord hl, 12, 1
 	ld de, wPlayerMoney
-	ld c, $a3
 	call PrintBCDNumber
 	ld hl, wd730
+	ld de, $D34C
+	ld c, $83
+	call PrintBCDNumber
+	ld hl, $D735
 	res 6, [hl]
 	ret
 
@@ -1701,12 +1680,6 @@ TwoOptionMenuStrings:
 	db 4,3,0
 	dw .NoYesMenu
 
-.NoYesMenu
-	db   "NO"
-	next "YES@"
-.YesNoMenu
-	db   "YES"
-	next "NO@"
 .NorthWestMenu
 	db   "NORTH"
 	next "WEST@"
@@ -1716,12 +1689,18 @@ TwoOptionMenuStrings:
 .NorthEastMenu
 	db   "NORTH"
 	next "EAST@"
+.NoYesMenu
+	db   "NON"
+	next "OUI@"
+.YesNoMenu
+	db   "OUI"
+	next "NON@"
 .TradeCancelMenu
-	db   "TRADE"
-	next "CANCEL@"
+	db   "ECHANGE"
+	next "RETOUR@"
 .HealCancelMenu
-	db   "HEAL"
-	next "CANCEL@"
+	db   "SOIN"
+	next "RETOUR@"
 
 DisplayFieldMoveMonMenu:
 	xor a
@@ -1844,20 +1823,20 @@ DisplayFieldMoveMonMenu:
 	jp PlaceString
 
 FieldMoveNames:
-	db "CUT@"
-	db "FLY@"
+	db "COUPE@"
+	db "VOL@"
 	db "@"
 	db "SURF@"
-	db "STRENGTH@"
+	db "FORCE@"
 	db "FLASH@"
-	db "DIG@"
+	db "TUNNEL@"
 	db "TELEPORT@"
-	db "SOFTBOILED@"
+	db "E-COQUE@"
 
 PokemonMenuEntries:
 	db   "STATS"
-	next "SWITCH"
-	next "CANCEL@"
+	next "ORDRE"
+	next "RETOUR@"
 
 GetMonFieldMoves:
 	ld a, [wWhichPokemon]