ref: d226ccab0af1824ce7732bff0a9f8b339ca3dc99
dir: /engine/menus/options_menu.asm/
; GetOptionPointer.Pointers indexes const_def const OPT_TEXT_SPEED ; 0 const OPT_BATTLE_SCENE ; 1 const OPT_BATTLE_STYLE ; 2 const OPT_SOUND ; 3 const OPT_PRINT ; 4 const OPT_MENU_ACCOUNT ; 5 const OPT_FRAME ; 6 const OPT_CANCEL ; 7 NUM_OPTIONS EQU const_value ; 8 _Option: ld hl, hInMenu ld a, [hl] push af ld [hl], TRUE call ClearBGPalettes hlcoord 0, 0 ld b, SCREEN_HEIGHT - 2 ld c, SCREEN_WIDTH - 2 call Textbox hlcoord 2, 2 ld de, StringOptions call PlaceString xor a ld [wJumptableIndex], a ; display the settings of each option when the menu is opened ld c, NUM_OPTIONS - 2 ; omit frame type, the last option .print_text_loop push bc xor a ldh [hJoyLast], a call GetOptionPointer pop bc ld hl, wJumptableIndex inc [hl] dec c jr nz, .print_text_loop call UpdateFrame ; display the frame type xor a ld [wJumptableIndex], a inc a ldh [hBGMapMode], a call WaitBGMap ld b, SCGB_DIPLOMA call GetSGBLayout call SetPalettes .joypad_loop call JoyTextDelay ldh a, [hJoyPressed] and START | B_BUTTON jr nz, .ExitOptions call OptionsControl jr c, .dpad call GetOptionPointer jr c, .ExitOptions .dpad call Options_UpdateCursorPosition ld c, 3 call DelayFrames jr .joypad_loop .ExitOptions: ld de, SFX_TRANSACTION call PlaySFX call WaitSFX pop af ldh [hInMenu], a ret StringOptions: db "TEXT SPEED<LF>" db " :<LF>" db "BATTLE SCENE<LF>" db " :<LF>" db "BATTLE STYLE<LF>" db " :<LF>" db "SOUND<LF>" db " :<LF>" db "PRINT<LF>" db " :<LF>" db "MENU ACCOUNT<LF>" db " :<LF>" db "FRAME<LF>" db " :TYPE<LF>" db "CANCEL@" GetOptionPointer: jumptable .Pointers, wJumptableIndex .Pointers: ; entries correspond to OPT_* constants dw Options_TextSpeed dw Options_BattleScene dw Options_BattleStyle dw Options_Sound dw Options_Print dw Options_MenuAccount dw Options_Frame dw Options_Cancel const_def const OPT_TEXT_SPEED_FAST ; 0 const OPT_TEXT_SPEED_MED ; 1 const OPT_TEXT_SPEED_SLOW ; 2 Options_TextSpeed: call GetTextSpeed ldh a, [hJoyPressed] bit D_LEFT_F, a jr nz, .LeftPressed bit D_RIGHT_F, a jr z, .NonePressed ld a, c ; right pressed cp OPT_TEXT_SPEED_SLOW jr c, .Increase ld c, OPT_TEXT_SPEED_FAST - 1 .Increase: inc c ld a, e jr .Save .LeftPressed: ld a, c and a jr nz, .Decrease ld c, OPT_TEXT_SPEED_SLOW + 1 .Decrease: dec c ld a, d .Save: ld b, a ld a, [wOptions] and $f0 or b ld [wOptions], a .NonePressed: ld b, 0 ld hl, .Strings add hl, bc add hl, bc ld e, [hl] inc hl ld d, [hl] hlcoord 11, 3 call PlaceString and a ret .Strings: ; entries correspond to OPT_TEXT_SPEED_* constants dw .Fast dw .Mid dw .Slow .Fast: db "FAST@" .Mid: db "MID @" .Slow: db "SLOW@" GetTextSpeed: ; converts TEXT_DELAY_* value in a to OPT_TEXT_SPEED_* value in c, ; with previous/next TEXT_DELAY_* values in d/e ld a, [wOptions] and TEXT_DELAY_MASK cp TEXT_DELAY_SLOW jr z, .slow cp TEXT_DELAY_FAST jr z, .fast ; none of the above ld c, OPT_TEXT_SPEED_MED lb de, TEXT_DELAY_FAST, TEXT_DELAY_SLOW ret .slow ld c, OPT_TEXT_SPEED_SLOW lb de, TEXT_DELAY_MED, TEXT_DELAY_FAST ret .fast ld c, OPT_TEXT_SPEED_FAST lb de, TEXT_DELAY_SLOW, TEXT_DELAY_MED ret Options_BattleScene: ld hl, wOptions ldh a, [hJoyPressed] bit D_LEFT_F, a jr nz, .LeftPressed bit D_RIGHT_F, a jr z, .NonePressed bit BATTLE_SCENE, [hl] jr nz, .ToggleOn jr .ToggleOff .LeftPressed: bit BATTLE_SCENE, [hl] jr z, .ToggleOff jr .ToggleOn .NonePressed: bit BATTLE_SCENE, [hl] jr z, .ToggleOn jr .ToggleOff .ToggleOn: res BATTLE_SCENE, [hl] ld de, .On jr .Display .ToggleOff: set BATTLE_SCENE, [hl] ld de, .Off .Display: hlcoord 11, 5 call PlaceString and a ret .On: db "ON @" .Off: db "OFF@" Options_BattleStyle: ld hl, wOptions ldh a, [hJoyPressed] bit D_LEFT_F, a jr nz, .LeftPressed bit D_RIGHT_F, a jr z, .NonePressed bit BATTLE_SHIFT, [hl] jr nz, .ToggleShift jr .ToggleSet .LeftPressed: bit BATTLE_SHIFT, [hl] jr z, .ToggleSet jr .ToggleShift .NonePressed: bit BATTLE_SHIFT, [hl] jr nz, .ToggleSet .ToggleShift: res BATTLE_SHIFT, [hl] ld de, .Shift jr .Display .ToggleSet: set BATTLE_SHIFT, [hl] ld de, .Set .Display: hlcoord 11, 7 call PlaceString and a ret .Shift: db "SHIFT@" .Set: db "SET @" Options_Sound: ld hl, wOptions ldh a, [hJoyPressed] bit D_LEFT_F, a jr nz, .LeftPressed bit D_RIGHT_F, a jr z, .NonePressed bit STEREO, [hl] jr nz, .SetMono jr .SetStereo .LeftPressed: bit STEREO, [hl] jr z, .SetStereo jr .SetMono .NonePressed: bit STEREO, [hl] jr nz, .ToggleStereo jr .ToggleMono .SetMono: res STEREO, [hl] call RestartMapMusic .ToggleMono: ld de, .Mono jr .Display .SetStereo: set STEREO, [hl] call RestartMapMusic .ToggleStereo: ld de, .Stereo .Display: hlcoord 11, 9 call PlaceString and a ret .Mono: db "MONO @" .Stereo: db "STEREO@" const_def const OPT_PRINT_LIGHTEST ; 0 const OPT_PRINT_LIGHTER ; 1 const OPT_PRINT_NORMAL ; 2 const OPT_PRINT_DARKER ; 3 const OPT_PRINT_DARKEST ; 4 Options_Print: call GetPrinterSetting ldh a, [hJoyPressed] bit D_LEFT_F, a jr nz, .LeftPressed bit D_RIGHT_F, a jr z, .NonePressed ld a, c cp OPT_PRINT_DARKEST jr c, .Increase ld c, OPT_PRINT_LIGHTEST - 1 .Increase: inc c ld a, e jr .Save .LeftPressed: ld a, c and a jr nz, .Decrease ld c, OPT_PRINT_DARKEST + 1 .Decrease: dec c ld a, d .Save: ld b, a ld [wGBPrinterBrightness], a .NonePressed: ld b, 0 ld hl, .Strings add hl, bc add hl, bc ld e, [hl] inc hl ld d, [hl] hlcoord 11, 11 call PlaceString and a ret .Strings: ; entries correspond to OPT_PRINT_* constants dw .Lightest dw .Lighter dw .Normal dw .Darker dw .Darkest .Lightest: db "LIGHTEST@" .Lighter: db "LIGHTER @" .Normal: db "NORMAL @" .Darker: db "DARKER @" .Darkest: db "DARKEST @" GetPrinterSetting: ; converts GBPRINTER_* value in a to OPT_PRINT_* value in c, ; with previous/next GBPRINTER_* values in d/e ld a, [wGBPrinterBrightness] and a jr z, .IsLightest cp GBPRINTER_LIGHTER jr z, .IsLight cp GBPRINTER_DARKER jr z, .IsDark cp GBPRINTER_DARKEST jr z, .IsDarkest ; none of the above ld c, OPT_PRINT_NORMAL lb de, GBPRINTER_LIGHTER, GBPRINTER_DARKER ret .IsLightest: ld c, OPT_PRINT_LIGHTEST lb de, GBPRINTER_DARKEST, GBPRINTER_LIGHTER ret .IsLight: ld c, OPT_PRINT_LIGHTER lb de, GBPRINTER_LIGHTEST, GBPRINTER_NORMAL ret .IsDark: ld c, OPT_PRINT_DARKER lb de, GBPRINTER_NORMAL, GBPRINTER_DARKEST ret .IsDarkest: ld c, OPT_PRINT_DARKEST lb de, GBPRINTER_DARKER, GBPRINTER_LIGHTEST ret Options_MenuAccount: ld hl, wOptions2 ldh a, [hJoyPressed] bit D_LEFT_F, a jr nz, .LeftPressed bit D_RIGHT_F, a jr z, .NonePressed bit MENU_ACCOUNT, [hl] jr nz, .ToggleOff jr .ToggleOn .LeftPressed: bit MENU_ACCOUNT, [hl] jr z, .ToggleOn jr .ToggleOff .NonePressed: bit MENU_ACCOUNT, [hl] jr nz, .ToggleOn .ToggleOff: res MENU_ACCOUNT, [hl] ld de, .Off jr .Display .ToggleOn: set MENU_ACCOUNT, [hl] ld de, .On .Display: hlcoord 11, 13 call PlaceString and a ret .Off: db "OFF@" .On: db "ON @" Options_Frame: ld hl, wTextboxFrame ldh a, [hJoyPressed] bit D_LEFT_F, a jr nz, .LeftPressed bit D_RIGHT_F, a jr nz, .RightPressed and a ret .RightPressed: ld a, [hl] inc a jr .Save .LeftPressed: ld a, [hl] dec a .Save: maskbits NUM_FRAMES ld [hl], a UpdateFrame: ld a, [wTextboxFrame] hlcoord 16, 15 ; where on the screen the number is drawn add "1" ld [hl], a call LoadFontsExtra and a ret Options_Cancel: ldh a, [hJoyPressed] and A_BUTTON jr nz, .Exit and a ret .Exit: scf ret OptionsControl: ld hl, wJumptableIndex ldh a, [hJoyLast] cp D_DOWN jr z, .DownPressed cp D_UP jr z, .UpPressed and a ret .DownPressed: ld a, [hl] cp OPT_CANCEL ; maximum option index jr nz, .CheckMenuAccount ld [hl], OPT_TEXT_SPEED ; first option scf ret .CheckMenuAccount: ; I have no idea why this exists... cp OPT_MENU_ACCOUNT jr nz, .Increase ld [hl], OPT_MENU_ACCOUNT .Increase: inc [hl] scf ret .UpPressed: ld a, [hl] ; Another thing where I'm not sure why it exists cp OPT_FRAME jr nz, .NotFrame ld [hl], OPT_MENU_ACCOUNT scf ret .NotFrame: and a ; OPT_TEXT_SPEED, minimum option index jr nz, .Decrease ld [hl], NUM_OPTIONS ; decrements to OPT_CANCEL, maximum option index .Decrease: dec [hl] scf ret Options_UpdateCursorPosition: hlcoord 1, 1 ld de, SCREEN_WIDTH ld c, SCREEN_HEIGHT - 2 .loop ld [hl], " " add hl, de dec c jr nz, .loop hlcoord 1, 2 ld bc, 2 * SCREEN_WIDTH ld a, [wJumptableIndex] call AddNTimes ld [hl], "▶" ret