summaryrefslogtreecommitdiff
path: root/engine/menus/intro_menu.asm
diff options
context:
space:
mode:
authormid-kid <esteve.varela@gmail.com>2018-06-24 16:09:41 +0200
committermid-kid <esteve.varela@gmail.com>2018-06-24 16:13:22 +0200
commit1d9a68dbdd0132035f1fc7b7ea8f7fdc24741507 (patch)
tree3af0a92f5f7dc10f32eed04d9daae52749fc33c2 /engine/menus/intro_menu.asm
parent131875d3e37044ec995287af7c93decd86a0d659 (diff)
Remove all address comments
Diffstat (limited to 'engine/menus/intro_menu.asm')
-rw-r--r--engine/menus/intro_menu.asm199
1 files changed, 64 insertions, 135 deletions
diff --git a/engine/menus/intro_menu.asm b/engine/menus/intro_menu.asm
index af6e0c09e..87334b25e 100644
--- a/engine/menus/intro_menu.asm
+++ b/engine/menus/intro_menu.asm
@@ -1,4 +1,4 @@
-_MainMenu: ; 5ae8
+_MainMenu:
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
@@ -8,13 +8,11 @@ _MainMenu: ; 5ae8
call PlayMusic
farcall MainMenu
jp StartTitleScreen
-; 5b04
; unused
ret
-; 5b05
-PrintDayOfWeek: ; 5b05
+PrintDayOfWeek:
push de
ld hl, .Days
ld a, b
@@ -28,9 +26,8 @@ PrintDayOfWeek: ; 5b05
ld de, .Day
call PlaceString
ret
-; 5b1c
-.Days: ; 5b1c
+.Days:
db "SUN@"
db "MON@"
db "TUES@"
@@ -38,13 +35,11 @@ PrintDayOfWeek: ; 5b05
db "THURS@"
db "FRI@"
db "SATUR@"
-; 5b40
-.Day: ; 5b40
+.Day:
db "DAY@"
-; 5b44
-NewGame_ClearTileMapEtc: ; 5b44
+NewGame_ClearTileMapEtc:
xor a
ld [hMapAnims], a
call ClearTileMap
@@ -52,21 +47,18 @@ NewGame_ClearTileMapEtc: ; 5b44
call LoadStandardFont
call ClearWindowData
ret
-; 5b54
-MysteryGift: ; 5b54
+MysteryGift:
call UpdateTime
farcall DoMysteryGiftIfDayHasPassed
farcall DoMysteryGift
ret
-; 5b64
-OptionsMenu: ; 5b64
+OptionsMenu:
farcall _OptionsMenu
ret
-; 5b6b
-NewGame: ; 5b6b
+NewGame:
xor a
ld [wMonStatusFlags], a
call ResetWRAM
@@ -83,9 +75,8 @@ NewGame: ; 5b6b
ld a, MAPSETUP_WARP
ld [hMapEntryMethod], a
jp FinishContinueFunction
-; 5b8f
-AreYouABoyOrAreYouAGirl: ; 5b8f
+AreYouABoyOrAreYouAGirl:
farcall Mobile_AlwaysReturnNotCarry ; some mobile stuff
jr c, .ok
farcall InitGender
@@ -95,16 +86,14 @@ AreYouABoyOrAreYouAGirl: ; 5b8f
ld c, 0
farcall InitMobileProfile ; mobile
ret
-; 5ba7
-ResetWRAM: ; 5ba7
+ResetWRAM:
xor a
ld [hBGMapMode], a
call _ResetWRAM
ret
-; 5bae
-_ResetWRAM: ; 5bae
+_ResetWRAM:
ld hl, wVirtualOAM
ld bc, wOptions - wVirtualOAM
@@ -228,18 +217,16 @@ endc
call ResetGameTime
ret
-; 5ca1
-.InitList: ; 5ca1
+.InitList:
; Loads 0 in the count and -1 in the first item or mon slot.
xor a
ld [hli], a
dec a
ld [hl], a
ret
-; 5ca6
-SetDefaultBoxNames: ; 5ca6
+SetDefaultBoxNames:
ld hl, wBoxNames
ld c, 0
.loop
@@ -270,9 +257,8 @@ SetDefaultBoxNames: ; 5ca6
.Box:
db "BOX@"
-; 5cd3
-InitializeMagikarpHouse: ; 5cd3
+InitializeMagikarpHouse:
ld hl, wBestMagikarpLengthFeet
ld a, $3
ld [hli], a
@@ -281,13 +267,11 @@ InitializeMagikarpHouse: ; 5cd3
ld de, .Ralph
call CopyName2
ret
-; 5ce3
-.Ralph: ; 5ce3
+.Ralph:
db "RALPH@"
-; 5ce9
-InitializeNPCNames: ; 5ce9
+InitializeNPCNames:
ld hl, .Rival
ld de, wRivalName
call .Copy
@@ -312,16 +296,14 @@ InitializeNPCNames: ; 5ce9
.Red: db "RED@"
.Green: db "GREEN@"
.Mom: db "MOM@"
-; 5d23
-InitializeWorld: ; 5d23
+InitializeWorld:
call ShrinkPlayer
farcall SpawnPlayer
farcall _InitializeStartDay
ret
-; 5d33
-LoadOrRegenerateLuckyIDNumber: ; 5d33
+LoadOrRegenerateLuckyIDNumber:
ld a, BANK(sLuckyIDNumber)
call GetSRAMBank
ld a, [wCurDay]
@@ -346,9 +328,8 @@ LoadOrRegenerateLuckyIDNumber: ; 5d33
ld [wLuckyIDNumber + 1], a
ld [sLuckyIDNumber + 1], a
jp CloseSRAM
-; 5d65
-Continue: ; 5d65
+Continue:
farcall TryLoadSaveFile
jr c, .FailToLoad
farcall _LoadData
@@ -400,22 +381,19 @@ Continue: ; 5d65
ld [wDefaultSpawnpoint], a
call PostCreditsSpawn
jp FinishContinueFunction
-; 5de2
-SpawnAfterRed: ; 5de2
+SpawnAfterRed:
ld a, SPAWN_MT_SILVER
ld [wDefaultSpawnpoint], a
-; 5de7
-PostCreditsSpawn: ; 5de7
+PostCreditsSpawn:
xor a
ld [wSpawnAfterChampion], a
ld a, MAPSETUP_WARP
ld [hMapEntryMethod], a
ret
-; 5df0
-Continue_MobileAdapterMenu: ; 5df0
+Continue_MobileAdapterMenu:
farcall Mobile_AlwaysReturnNotCarry ; mobile check
ret nc
@@ -444,9 +422,8 @@ Continue_MobileAdapterMenu: ; 5df0
ld c, 35
call DelayFrames
ret
-; 5e34
-ConfirmContinue: ; 5e34
+ConfirmContinue:
.loop
call DelayFrame
call GetJoypad
@@ -460,9 +437,8 @@ ConfirmContinue: ; 5e34
.PressA:
ret
-; 5e48
-Continue_CheckRTC_RestartClock: ; 5e48
+Continue_CheckRTC_RestartClock:
call CheckRTCStatus
and %10000000 ; Day count exceeded 16383
jr z, .pass
@@ -476,9 +452,8 @@ Continue_CheckRTC_RestartClock: ; 5e48
.pass
xor a
ret
-; 5e5d
-FinishContinueFunction: ; 5e5d
+FinishContinueFunction:
.loop
xor a
ld [wDontPlayMapMusicOnReload], a
@@ -497,9 +472,8 @@ FinishContinueFunction: ; 5e5d
.AfterRed:
call SpawnAfterRed
jr .loop
-; 5e85
-DisplaySaveInfoOnContinue: ; 5e85
+DisplaySaveInfoOnContinue:
call CheckRTCStatus
and %10000000
jr z, .clock_ok
@@ -511,32 +485,28 @@ DisplaySaveInfoOnContinue: ; 5e85
lb de, 4, 8
call DisplayNormalContinueData
ret
-; 5e9a
-DisplaySaveInfoOnSave: ; 5e9a
+DisplaySaveInfoOnSave:
lb de, 4, 0
jr DisplayNormalContinueData
-; 5e9f
-DisplayNormalContinueData: ; 5e9f
+DisplayNormalContinueData:
call Continue_LoadMenuHeader
call Continue_DisplayBadgesDexPlayerName
call Continue_PrintGameTime
call LoadFontsExtra
call UpdateSprites
ret
-; 5eaf
-DisplayContinueDataWithRTCError: ; 5eaf
+DisplayContinueDataWithRTCError:
call Continue_LoadMenuHeader
call Continue_DisplayBadgesDexPlayerName
call Continue_UnknownGameTime
call LoadFontsExtra
call UpdateSprites
ret
-; 5ebf
-Continue_LoadMenuHeader: ; 5ebf
+Continue_LoadMenuHeader:
xor a
ld [hBGMapMode], a
ld hl, .MenuHeader_Dex
@@ -550,42 +520,37 @@ Continue_LoadMenuHeader: ; 5ebf
call MenuBox
call PlaceVerticalMenuItems
ret
-; 5ed9
-.MenuHeader_Dex: ; 5ed9
+.MenuHeader_Dex:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 15, 9
dw .MenuData_Dex
db 1 ; default option
-; 5ee1
-.MenuData_Dex: ; 5ee1
+.MenuData_Dex:
db 0 ; flags
db 4 ; items
db "PLAYER@"
db "BADGES@"
db "#DEX@"
db "TIME@"
-; 5efb
-.MenuHeader_NoDex: ; 5efb
+.MenuHeader_NoDex:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 15, 9
dw .MenuData_NoDex
db 1 ; default option
-; 5f03
-.MenuData_NoDex: ; 5f03
+.MenuData_NoDex:
db 0 ; flags
db 4 ; items
db "PLAYER <PLAYER>@"
db "BADGES@"
db " @"
db "TIME@"
-; 5f1c
-Continue_DisplayBadgesDexPlayerName: ; 5f1c
+Continue_DisplayBadgesDexPlayerName:
call MenuBoxCoord2Tile
push hl
decoord 13, 4, 0
@@ -607,16 +572,14 @@ Continue_DisplayBadgesDexPlayerName: ; 5f1c
.Player:
db "<PLAYER>@"
-; 5f40
-Continue_PrintGameTime: ; 5f40
+Continue_PrintGameTime:
decoord 9, 8, 0
add hl, de
call Continue_DisplayGameTime
ret
-; 5f48
-Continue_UnknownGameTime: ; 5f48
+Continue_UnknownGameTime:
decoord 9, 8, 0
add hl, de
ld de, .three_question_marks
@@ -625,9 +588,8 @@ Continue_UnknownGameTime: ; 5f48
.three_question_marks
db " ???@"
-; 5f58
-Continue_DisplayBadgeCount: ; 5f58
+Continue_DisplayBadgeCount:
push hl
ld hl, wJohtoBadges
ld b, 2
@@ -636,9 +598,8 @@ Continue_DisplayBadgeCount: ; 5f58
ld de, wd265
lb bc, 1, 2
jp PrintNum
-; 5f6b
-Continue_DisplayPokedexNumCaught: ; 5f6b
+Continue_DisplayPokedexNumCaught:
ld a, [wStatusFlags]
bit STATUSFLAGS_POKEDEX_F, a
ret z
@@ -654,9 +615,8 @@ endc
ld de, wd265
lb bc, 1, 3
jp PrintNum
-; 5f84
-Continue_DisplayGameTime: ; 5f84
+Continue_DisplayGameTime:
ld de, wGameTimeHours
lb bc, 2, 3
call PrintNum
@@ -665,7 +625,6 @@ Continue_DisplayGameTime: ; 5f84
ld de, wGameTimeMinutes
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
jp PrintNum
-; 5f99
OakSpeech: ; 0x5f99
@@ -823,7 +782,6 @@ NamePlayer: ; 0x6074
db "CHRIS@@@@@@"
.Kris:
db "KRIS@@@@@@@"
-; 60e9
Unreferenced_Function60e9:
call LoadMenuHeader
@@ -833,9 +791,8 @@ Unreferenced_Function60e9:
call CopyNameFromMenu
call CloseWindow
ret
-; 60fa
-StorePlayerName: ; 60fa
+StorePlayerName:
ld a, "@"
ld bc, NAME_LENGTH
ld hl, wPlayerName
@@ -844,9 +801,8 @@ StorePlayerName: ; 60fa
ld de, wStringBuffer2
call CopyName2
ret
-; 610f
-ShrinkPlayer: ; 610f
+ShrinkPlayer:
ld a, [hROMBank]
push af
@@ -898,9 +854,8 @@ ShrinkPlayer: ; 610f
call RotateThreePalettesRight
call ClearTileMap
ret
-; 616a
-Intro_RotatePalettesLeftFrontpic: ; 616a
+Intro_RotatePalettesLeftFrontpic:
ld hl, IntroFadePalettes
ld b, IntroFadePalettes.End - IntroFadePalettes
.loop
@@ -911,7 +866,6 @@ Intro_RotatePalettesLeftFrontpic: ; 616a
dec b
jr nz, .loop
ret
-; 617c
IntroFadePalettes: ; 0x617c
db %01010100
@@ -921,9 +875,8 @@ IntroFadePalettes: ; 0x617c
db %11110100
db %11100100
.End
-; 6182
-Intro_WipeInFrontpic: ; 6182
+Intro_WipeInFrontpic:
ld a, $77
ld [hWX], a
call DelayFrame
@@ -937,9 +890,8 @@ Intro_WipeInFrontpic: ; 6182
ret z
ld [hWX], a
jr .loop
-; 619c
-Intro_PrepTrainerPic: ; 619c
+Intro_PrepTrainerPic:
ld de, vTiles2
farcall GetTrainerPic
xor a
@@ -948,9 +900,8 @@ Intro_PrepTrainerPic: ; 619c
lb bc, 7, 7
predef PlaceGraphic
ret
-; 61b4
-ShrinkFrame: ; 61b4
+ShrinkFrame:
ld de, vTiles2
ld c, 7 * 7
predef DecompressGet2bpp
@@ -960,9 +911,8 @@ ShrinkFrame: ; 61b4
lb bc, 7, 7
predef PlaceGraphic
ret
-; 61cd
-Intro_PlacePlayerSprite: ; 61cd
+Intro_PlacePlayerSprite:
farcall GetPlayerIcon
ld c, $c
@@ -998,24 +948,22 @@ Intro_PlacePlayerSprite: ; 61cd
dec c
jr nz, .loop
ret
-; 61fe
-.sprites ; 61fe
+.sprites
db 4
; y pxl, x pxl, tile offset
db 9 * 8 + 4, 9 * 8, 0
db 9 * 8 + 4, 10 * 8, 1
db 10 * 8 + 4, 9 * 8, 2
db 10 * 8 + 4, 10 * 8, 3
-; 620b
-CrystalIntroSequence: ; 620b
+CrystalIntroSequence:
callfar Copyright_GFPresents
jr c, StartTitleScreen
farcall CrystalIntro
-StartTitleScreen: ; 6219
+StartTitleScreen:
ld a, [rSVBK]
push af
ld a, BANK(wBGPals1)
@@ -1062,7 +1010,6 @@ StartTitleScreen: ; 6219
ld h, [hl]
ld l, a
jp hl
-; 626a
.dw
dw _MainMenu
@@ -1070,15 +1017,13 @@ StartTitleScreen: ; 6219
dw CrystalIntroSequence
dw CrystalIntroSequence
dw ResetClock
-; 6274
-.TitleScreen: ; 6274
+.TitleScreen:
farcall _TitleScreen
ret
-; 627b
-RunTitleScreen: ; 627b
+RunTitleScreen:
ld a, [wJumptableIndex]
bit 7, a
jr nz, .done_title
@@ -1091,9 +1036,8 @@ RunTitleScreen: ; 627b
.done_title
scf
ret
-; 6292
-Unreferenced_Function6292: ; 6292
+Unreferenced_Function6292:
ld a, [hVBlankCounter]
and $7
ret nz
@@ -1103,9 +1047,8 @@ Unreferenced_Function6292: ; 6292
ld bc, 2 * SCREEN_WIDTH
call ByteFill
ret
-; 62a3
-TitleScreenScene: ; 62a3
+TitleScreenScene:
ld e, a
ld d, 0
ld hl, .scenes
@@ -1115,23 +1058,20 @@ TitleScreenScene: ; 62a3
ld h, [hl]
ld l, a
jp hl
-; 62af
.scenes
dw TitleScreenEntrance
dw TitleScreenTimer
dw TitleScreenMain
dw TitleScreenEnd
-; 62b7
.Unreferenced_NextScene:
ld hl, wJumptableIndex
inc [hl]
ret
-; 62bc
-TitleScreenEntrance: ; 62bc
+TitleScreenEntrance:
; Animate the logo:
; Move each line by 4 pixels until our count hits 0.
@@ -1178,10 +1118,9 @@ TitleScreenEntrance: ; 62bc
ld a, $88
ld [hWY], a
ret
-; 62f6
-TitleScreenTimer: ; 62f6
+TitleScreenTimer:
; Next scene
ld hl, wJumptableIndex
@@ -1194,9 +1133,8 @@ TitleScreenTimer: ; 62f6
inc hl
ld [hl], d
ret
-; 6304
-TitleScreenMain: ; 6304
+TitleScreenMain:
; Run the timer down.
ld hl, wTitleScreenTimer
@@ -1296,9 +1234,8 @@ TitleScreenMain: ; 6304
ld hl, wJumptableIndex
set 7, [hl]
ret
-; 6375
-TitleScreenEnd: ; 6375
+TitleScreenEnd:
; Wait until the music is done fading.
@@ -1316,17 +1253,14 @@ TitleScreenEnd: ; 6375
ld hl, wJumptableIndex
set 7, [hl]
ret
-; 6389
-DeleteSaveData: ; 6389
+DeleteSaveData:
farcall _DeleteSaveData
jp Init
-; 6392
-ResetClock: ; 6392
+ResetClock:
farcall _ResetClock
jp Init
-; 639b
Unreferenced_Function639b:
; If bit 0 or 1 of [wTitleScreenTimer] is set, we don't need to be here.
@@ -1359,9 +1293,8 @@ Unreferenced_Function639b:
ld a, SPRITE_ANIM_INDEX_GS_TITLE_TRAIL
call _InitSpriteAnimStruct
ret
-; 63ca
-.Data63ca: ; 63ca
+.Data63ca:
; frame 0 y, x; frame 1 y, x
db 11 * 8 + 4, 10 * 8, 0 * 8, 0 * 8
db 11 * 8 + 4, 13 * 8, 11 * 8 + 4, 11 * 8
@@ -1369,9 +1302,8 @@ Unreferenced_Function639b:
db 11 * 8 + 4, 17 * 8, 11 * 8 + 4, 15 * 8
db 0 * 8, 0 * 8, 11 * 8 + 4, 15 * 8
db 0 * 8, 0 * 8, 11 * 8 + 4, 11 * 8
-; 63e2
-Copyright: ; 63e2
+Copyright:
call ClearTileMap
call LoadFontsExtra
ld de, CopyrightGFX
@@ -1381,9 +1313,8 @@ Copyright: ; 63e2
hlcoord 2, 7
ld de, CopyrightString
jp PlaceString
-; 63fd
-CopyrightString: ; 63fd
+CopyrightString:
; ©1995-2001 Nintendo
db $60, $61, $62, $63, $64, $65, $66
db $67, $68, $69, $6a, $6b, $6c
@@ -1397,9 +1328,8 @@ CopyrightString: ; 63fd
db $73, $74, $75, $76, $77, $78, $79, $7a, $7b, $7c
db "@"
-; 642e
-GameInit:: ; 642e
+GameInit::
farcall TryLoadSaveData
call ClearWindowData
call ClearBGPalettes
@@ -1415,4 +1345,3 @@ GameInit:: ; 642e
ld [hWY], a
call WaitBGMap
jp CrystalIntroSequence
-; 6454