mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
1fc7430a2b
Some character codes were erroneously named after their text command counterparts. This has caused a lot of confusion with naming their functions and with other things. I've also removed the `dict2` macro and expanded the `dict` macro. This really isn't something we should be doing for macros but I can't deny it looks a lot neater than repeated code.
553 lines
8.1 KiB
NASM
553 lines
8.1 KiB
NASM
_OptionsMenu:
|
|
ld hl, hInMenu
|
|
ld a, [hl]
|
|
push af
|
|
ld [hl], $1
|
|
call ClearBGPalettes
|
|
hlcoord 0, 0
|
|
ld b, 16
|
|
ld c, 18
|
|
call TextBox
|
|
hlcoord 2, 2
|
|
ld de, StringOptions
|
|
call PlaceString
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
ld c, $6 ; number of items on the menu minus 1 (for cancel)
|
|
|
|
.print_text_loop ; this next will display the settings of each option when the menu is opened
|
|
push bc
|
|
xor a
|
|
ld [hJoyLast], a
|
|
call GetOptionPointer
|
|
pop bc
|
|
ld hl, wJumptableIndex
|
|
inc [hl]
|
|
dec c
|
|
jr nz, .print_text_loop
|
|
|
|
call UpdateFrame
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
inc a
|
|
ld [hBGMapMode], a
|
|
call WaitBGMap
|
|
ld b, SCGB_DIPLOMA
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
|
|
.joypad_loop
|
|
call JoyTextDelay
|
|
ld 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
|
|
ld [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:
|
|
ld a, [wJumptableIndex] ; load the cursor position to a
|
|
ld e, a ; copy it to de
|
|
ld d, 0
|
|
ld hl, .Pointers
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp hl ; jump to the code of the current highlighted item
|
|
|
|
.Pointers:
|
|
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
|
|
ld 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
|
|
ld 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
|
|
ld 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
|
|
ld 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
|
|
ld 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 [wGBPrinter], 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, [wGBPrinter]
|
|
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
|
|
ld 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
|
|
ld 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:
|
|
ld a, [hJoyPressed]
|
|
and A_BUTTON
|
|
jr nz, .Exit
|
|
and a
|
|
ret
|
|
|
|
.Exit:
|
|
scf
|
|
ret
|
|
|
|
OptionsControl:
|
|
ld hl, wJumptableIndex
|
|
ld a, [hJoyLast]
|
|
cp D_DOWN
|
|
jr z, .DownPressed
|
|
cp D_UP
|
|
jr z, .UpPressed
|
|
and a
|
|
ret
|
|
|
|
.DownPressed:
|
|
ld a, [hl] ; load the cursor position to a
|
|
cp $7 ; maximum number of items in option menu
|
|
jr nz, .CheckFive
|
|
ld [hl], $0
|
|
scf
|
|
ret
|
|
|
|
.CheckFive: ; I have no idea why this exists...
|
|
cp $5
|
|
jr nz, .Increase
|
|
ld [hl], $5
|
|
|
|
.Increase:
|
|
inc [hl]
|
|
scf
|
|
ret
|
|
|
|
.UpPressed:
|
|
ld a, [hl]
|
|
cp $6
|
|
jr nz, .NotSix
|
|
ld [hl], $5 ; Another thing where I'm not sure why it exists
|
|
scf
|
|
ret
|
|
|
|
.NotSix:
|
|
and a
|
|
jr nz, .Decrease
|
|
ld [hl], $8 ; number of option items +1
|
|
|
|
.Decrease:
|
|
dec [hl]
|
|
scf
|
|
ret
|
|
|
|
Options_UpdateCursorPosition:
|
|
hlcoord 1, 1
|
|
ld de, SCREEN_WIDTH
|
|
ld c, $10
|
|
.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
|