11d67567d2
Added a bunch of constants for the bitflags of each kind of menu. Some are slightly vague or too long, but I'm not sure how to else name them.
116 lines
2.1 KiB
NASM
Executable File
116 lines
2.1 KiB
NASM
Executable File
InitCrystalData: ; 48000
|
|
ld a, $1
|
|
ld [wd474], a
|
|
xor a
|
|
ld [wd473], a
|
|
ld [wPlayerGender], a
|
|
ld [wd475], a
|
|
ld [wd476], a
|
|
ld [wd477], a
|
|
ld [wd478], a
|
|
ld [wd002], a
|
|
ld [wd003], a
|
|
; could have done "ld a, [wd479] \ and %11111100", saved four operations
|
|
ld a, [wd479]
|
|
res 0, a
|
|
ld [wd479], a
|
|
ld a, [wd479]
|
|
res 1, a
|
|
ld [wd479], a
|
|
ret
|
|
; 4802f
|
|
|
|
INCLUDE "mobile/mobile_12.asm"
|
|
|
|
InitGender: ; 48dcb (12:4dcb)
|
|
call InitGenderScreen
|
|
call LoadGenderScreenPal
|
|
call LoadGenderScreenLightBlueTile
|
|
call WaitBGMap2
|
|
call SetPalettes
|
|
ld hl, TextJump_AreYouABoyOrAreYouAGirl
|
|
call PrintText
|
|
ld hl, .MenuDataHeader
|
|
call LoadMenuDataHeader
|
|
call WaitBGMap2
|
|
call VerticalMenu
|
|
call CloseWindow
|
|
ld a, [wMenuCursorY]
|
|
dec a
|
|
ld [wPlayerGender], a
|
|
ld c, 10
|
|
call DelayFrames
|
|
ret
|
|
; 48dfc (12:4dfc)
|
|
|
|
.MenuDataHeader: ; 0x48dfc
|
|
db MENU_BACKUP_TILES ; flags
|
|
db 04, 06 ; start coords
|
|
db 09, 12 ; end coords
|
|
dw .MenuData2
|
|
db 1 ; default option
|
|
; 0x48e04
|
|
|
|
.MenuData2: ; 0x48e04
|
|
db STATICMENU_CURSOR | STATICMENU_WRAP | STATICMENU_DISABLE_B ; flags
|
|
db 2 ; items
|
|
db "Boy@"
|
|
db "Girl@"
|
|
; 0x48e0f
|
|
|
|
TextJump_AreYouABoyOrAreYouAGirl: ; 0x48e0f
|
|
; Are you a boy? Or are you a girl?
|
|
text_jump Text_AreYouABoyOrAreYouAGirl
|
|
db "@"
|
|
; 0x48e14
|
|
|
|
InitGenderScreen: ; 48e14 (12:4e14)
|
|
ld a, $10
|
|
ld [MusicFade], a
|
|
ld a, MUSIC_NONE
|
|
ld [MusicFadeID], a
|
|
ld a, $0
|
|
ld [MusicFadeID + 1], a
|
|
ld c, 8
|
|
call DelayFrames
|
|
call ClearBGPalettes
|
|
call InitCrystalData
|
|
call LoadFontsExtra
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
ld a, $0
|
|
call ByteFill
|
|
hlcoord 0, 0, AttrMap
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
xor a
|
|
call ByteFill
|
|
ret
|
|
|
|
LoadGenderScreenPal: ; 48e47 (12:4e47)
|
|
ld hl, .Palette
|
|
ld de, wBGPals1
|
|
ld bc, 1 palettes
|
|
ld a, $5
|
|
call FarCopyWRAM
|
|
farcall ApplyPals
|
|
ret
|
|
; 48e5c (12:4e5c)
|
|
|
|
.Palette: ; 48e5c
|
|
RGB 31, 31, 31
|
|
RGB 09, 30, 31
|
|
RGB 01, 11, 31
|
|
RGB 00, 00, 00
|
|
; 48e64
|
|
|
|
LoadGenderScreenLightBlueTile: ; 48e64 (12:4e64)
|
|
ld de, .LightBlueTile
|
|
ld hl, vTiles2 tile $00
|
|
lb bc, BANK(.LightBlueTile), 1
|
|
call Get2bpp
|
|
ret
|
|
; 48e71 (12:4e71)
|
|
|
|
.LightBlueTile: ; 48e71
|
|
INCBIN "gfx/intro/gender_screen.2bpp"
|