pokecrystal-board/engine/options_menu.asm

584 lines
8.4 KiB
NASM
Raw Normal View History

2015-11-16 13:01:45 -08:00
_OptionsMenu: ; e41d0
ld hl, hInMenu
ld a, [hl]
push af
ld [hl], $1
call ClearBGPalettes
hlcoord 0, 0
2016-01-05 05:46:37 -08:00
ld b, 16
ld c, 18
2015-11-16 13:01:45 -08:00
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
2016-06-06 15:23:00 -07:00
ld b, SCGB_DIPLOMA
2015-11-16 13:01:45 -08:00
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
2015-12-02 14:59:05 -08:00
call Options_UpdateCursorPosition
2015-11-16 13:01:45 -08:00
ld c, 3
call DelayFrames
jr .joypad_loop
.ExitOptions:
2015-11-16 13:01:45 -08:00
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
pop af
ld [hInMenu], a
ret
; e4241
StringOptions: ; e4241
db "TEXT SPEED<LNBRK>"
db " :<LNBRK>"
db "BATTLE SCENE<LNBRK>"
db " :<LNBRK>"
db "BATTLE STYLE<LNBRK>"
db " :<LNBRK>"
db "SOUND<LNBRK>"
db " :<LNBRK>"
db "PRINT<LNBRK>"
db " :<LNBRK>"
db "MENU ACCOUNT<LNBRK>"
db " :<LNBRK>"
db "FRAME<LNBRK>"
db " :TYPE<LNBRK>"
db "CANCEL@"
; e42d6
GetOptionPointer: ; e42d6
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
2015-11-16 13:01:45 -08:00
ld a, [hli]
ld h, [hl]
ld l, a
jp hl ; jump to the code of the current highlighted item
2015-11-16 13:01:45 -08:00
; e42e5
.Pointers:
2015-11-16 13:01:45 -08:00
dw Options_TextSpeed
dw Options_BattleScene
dw Options_BattleStyle
dw Options_Sound
dw Options_Print
dw Options_MenuAccount
dw Options_Frame
dw Options_Cancel
; e42f5
const_def
const OPT_TEXT_SPEED_FAST ; 0
const OPT_TEXT_SPEED_MED ; 1
const OPT_TEXT_SPEED_SLOW ; 2
2015-11-16 13:01:45 -08:00
Options_TextSpeed: ; e42f5
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
2015-11-16 13:01:45 -08:00
jr c, .Increase
ld c, OPT_TEXT_SPEED_FAST + -1
2015-11-16 13:01:45 -08:00
.Increase:
2015-11-16 13:01:45 -08:00
inc c
ld a, e
jr .Save
.LeftPressed:
2015-11-16 13:01:45 -08:00
ld a, c
and a
jr nz, .Decrease
ld c, OPT_TEXT_SPEED_SLOW + 1
2015-11-16 13:01:45 -08:00
.Decrease:
2015-11-16 13:01:45 -08:00
dec c
ld a, d
.Save:
2015-11-16 13:01:45 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wOptions]
2015-11-16 13:01:45 -08:00
and $f0
or b
2018-01-23 14:39:09 -08:00
ld [wOptions], a
2015-11-16 13:01:45 -08:00
.NonePressed:
2015-11-16 13:01:45 -08:00
ld b, 0
ld hl, .Strings
add hl, bc
add hl, bc
2015-11-16 13:01:45 -08:00
ld e, [hl]
inc hl
ld d, [hl]
hlcoord 11, 3
call PlaceString
and a
ret
; e4331
.Strings:
; entries correspond to OPT_TEXT_SPEED_* constants
2015-11-16 13:01:45 -08:00
dw .Fast
dw .Mid
dw .Slow
.Fast: db "FAST@"
.Mid: db "MID @"
.Slow: db "SLOW@"
2015-11-16 13:01:45 -08:00
; e4346
GetTextSpeed: ; e4346
; converts TEXT_DELAY_* value in a to OPT_TEXT_SPEED_* value in c,
; with previous/next TEXT_DELAY_* values in d/e
2018-01-23 14:39:09 -08:00
ld a, [wOptions]
and $7
cp TEXT_DELAY_SLOW
2015-11-16 13:01:45 -08:00
jr z, .slow
cp TEXT_DELAY_FAST
2015-11-16 13:01:45 -08:00
jr z, .fast
; none of the above
ld c, OPT_TEXT_SPEED_MED
lb de, TEXT_DELAY_FAST, TEXT_DELAY_SLOW
2015-11-16 13:01:45 -08:00
ret
.slow
ld c, OPT_TEXT_SPEED_SLOW
lb de, TEXT_DELAY_MED, TEXT_DELAY_FAST
2015-11-16 13:01:45 -08:00
ret
.fast
ld c, OPT_TEXT_SPEED_FAST
lb de, TEXT_DELAY_SLOW, TEXT_DELAY_MED
2015-11-16 13:01:45 -08:00
ret
; e4365
Options_BattleScene: ; e4365
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-16 13:01:45 -08:00
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:
2015-11-16 13:01:45 -08:00
bit BATTLE_SCENE, [hl]
jr z, .ToggleOff
jr .ToggleOn
.NonePressed:
2015-11-16 13:01:45 -08:00
bit BATTLE_SCENE, [hl]
jr z, .ToggleOn
jr .ToggleOff
.ToggleOn:
2015-11-16 13:01:45 -08:00
res BATTLE_SCENE, [hl]
ld de, .On
jr .Display
.ToggleOff:
2015-11-16 13:01:45 -08:00
set BATTLE_SCENE, [hl]
ld de, .Off
.Display:
2015-11-16 13:01:45 -08:00
hlcoord 11, 5
call PlaceString
and a
ret
; e4398
.On: db "ON @"
.Off: db "OFF@"
2015-11-16 13:01:45 -08:00
; e43a0
Options_BattleStyle: ; e43a0
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-16 13:01:45 -08:00
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:
2015-11-16 13:01:45 -08:00
bit BATTLE_SHIFT, [hl]
jr z, .ToggleSet
jr .ToggleShift
.NonePressed:
2015-11-16 13:01:45 -08:00
bit BATTLE_SHIFT, [hl]
jr nz, .ToggleSet
.ToggleShift:
2015-11-16 13:01:45 -08:00
res BATTLE_SHIFT, [hl]
ld de, .Shift
jr .Display
.ToggleSet:
2015-11-16 13:01:45 -08:00
set BATTLE_SHIFT, [hl]
ld de, .Set
.Display:
2015-11-16 13:01:45 -08:00
hlcoord 11, 7
call PlaceString
and a
ret
; e43d1
.Shift: db "SHIFT@"
.Set: db "SET @"
2015-11-16 13:01:45 -08:00
; e43dd
Options_Sound: ; e43dd
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-16 13:01:45 -08:00
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:
2015-11-16 13:01:45 -08:00
bit STEREO, [hl]
jr z, .SetStereo
jr .SetMono
.NonePressed:
2015-11-16 13:01:45 -08:00
bit STEREO, [hl]
jr nz, .ToggleStereo
jr .ToggleMono
.SetMono:
2015-11-16 13:01:45 -08:00
res STEREO, [hl]
call RestartMapMusic
.ToggleMono:
2015-11-16 13:01:45 -08:00
ld de, .Mono
jr .Display
.SetStereo:
2015-11-16 13:01:45 -08:00
set STEREO, [hl]
call RestartMapMusic
.ToggleStereo:
2015-11-16 13:01:45 -08:00
ld de, .Stereo
.Display:
2015-11-16 13:01:45 -08:00
hlcoord 11, 9
call PlaceString
and a
ret
; e4416
.Mono: db "MONO @"
.Stereo: db "STEREO@"
2015-11-16 13:01:45 -08:00
; e4424
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
2015-11-16 13:01:45 -08:00
Options_Print: ; e4424
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
2015-11-16 13:01:45 -08:00
jr c, .Increase
ld c, OPT_PRINT_LIGHTEST - 1
2015-11-16 13:01:45 -08:00
.Increase:
2015-11-16 13:01:45 -08:00
inc c
ld a, e
jr .Save
.LeftPressed:
2015-11-16 13:01:45 -08:00
ld a, c
and a
jr nz, .Decrease
ld c, OPT_PRINT_DARKEST + 1
2015-11-16 13:01:45 -08:00
.Decrease:
2015-11-16 13:01:45 -08:00
dec c
ld a, d
.Save:
2015-11-16 13:01:45 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld [wGBPrinter], a
2015-11-16 13:01:45 -08:00
.NonePressed:
2015-11-16 13:01:45 -08:00
ld b, $0
ld hl, .Strings
add hl, bc
add hl, bc
2015-11-16 13:01:45 -08:00
ld e, [hl]
inc hl
ld d, [hl]
hlcoord 11, 11
call PlaceString
and a
ret
; e445a
.Strings:
; entries correspond to OPT_PRINT_* constants
2015-11-16 13:01:45 -08:00
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 @"
2015-11-16 13:01:45 -08:00
; e4491
GetPrinterSetting: ; e4491
; converts GBPRINTER_* value in a to OPT_PRINT_* value in c,
; with previous/next GBPRINTER_* values in d/e
2018-01-23 14:39:09 -08:00
ld a, [wGBPrinter]
2015-11-16 13:01:45 -08:00
and a
jr z, .IsLightest
cp GBPRINTER_LIGHTER
2015-11-16 13:01:45 -08:00
jr z, .IsLight
cp GBPRINTER_DARKER
2015-11-16 13:01:45 -08:00
jr z, .IsDark
cp GBPRINTER_DARKEST
2015-11-16 13:01:45 -08:00
jr z, .IsDarkest
; none of the above
ld c, OPT_PRINT_NORMAL
lb de, GBPRINTER_LIGHTER, GBPRINTER_DARKER
2015-11-16 13:01:45 -08:00
ret
.IsLightest:
ld c, OPT_PRINT_LIGHTEST
lb de, GBPRINTER_DARKEST, GBPRINTER_LIGHTER
2015-11-16 13:01:45 -08:00
ret
.IsLight:
ld c, OPT_PRINT_LIGHTER
lb de, GBPRINTER_LIGHTEST, GBPRINTER_NORMAL
2015-11-16 13:01:45 -08:00
ret
.IsDark:
ld c, OPT_PRINT_DARKER
lb de, GBPRINTER_NORMAL, GBPRINTER_DARKEST
2015-11-16 13:01:45 -08:00
ret
.IsDarkest:
ld c, OPT_PRINT_DARKEST
lb de, GBPRINTER_DARKER, GBPRINTER_LIGHTEST
2015-11-16 13:01:45 -08:00
ret
; e44c1
Options_MenuAccount: ; e44c1
2018-01-23 14:39:09 -08:00
ld hl, wOptions2
2015-11-16 13:01:45 -08:00
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:
2015-11-16 13:01:45 -08:00
bit MENU_ACCOUNT, [hl]
jr z, .ToggleOn
jr .ToggleOff
.NonePressed:
2015-11-16 13:01:45 -08:00
bit MENU_ACCOUNT, [hl]
jr nz, .ToggleOn
.ToggleOff:
2015-11-16 13:01:45 -08:00
res MENU_ACCOUNT, [hl]
ld de, .Off
jr .Display
.ToggleOn:
2015-11-16 13:01:45 -08:00
set MENU_ACCOUNT, [hl]
ld de, .On
.Display:
2015-11-16 13:01:45 -08:00
hlcoord 11, 13
call PlaceString
and a
ret
; e44f2
.Off: db "OFF@"
.On: db "ON @"
2015-11-16 13:01:45 -08:00
; e44fa
Options_Frame: ; e44fa
2018-01-23 14:39:09 -08:00
ld hl, wTextBoxFrame
2015-11-16 13:01:45 -08:00
ld a, [hJoyPressed]
bit D_LEFT_F, a
jr nz, .LeftPressed
bit D_RIGHT_F, a
jr nz, .RightPressed
and a
ret
.RightPressed:
2015-11-16 13:01:45 -08:00
ld a, [hl]
inc a
jr .Save
.LeftPressed:
2015-11-16 13:01:45 -08:00
ld a, [hl]
dec a
.Save:
2015-11-16 13:01:45 -08:00
and $7
ld [hl], a
UpdateFrame: ; e4512
2018-01-23 14:39:09 -08:00
ld a, [wTextBoxFrame]
2015-11-16 13:01:45 -08:00
hlcoord 16, 15 ; where on the screen the number is drawn
add "1"
ld [hl], a
call LoadFontsExtra
and a
ret
; e4520
Options_Cancel: ; e4520
ld a, [hJoyPressed]
and A_BUTTON
jr nz, .Exit
and a
ret
.Exit:
2015-11-16 13:01:45 -08:00
scf
ret
; e452a
OptionsControl: ; e452a
ld hl, wJumptableIndex
ld a, [hJoyLast]
cp D_DOWN
jr z, .DownPressed
cp D_UP
jr z, .UpPressed
and a
ret
.DownPressed:
2015-11-16 13:01:45 -08:00
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...
2015-11-16 13:01:45 -08:00
cp $5
jr nz, .Increase
ld [hl], $5
.Increase:
2015-11-16 13:01:45 -08:00
inc [hl]
scf
ret
.UpPressed:
2015-11-16 13:01:45 -08:00
ld a, [hl]
cp $6
jr nz, .NotSix
ld [hl], $5 ; Another thing where I'm not sure why it exists
scf
ret
.NotSix:
2015-11-16 13:01:45 -08:00
and a
jr nz, .Decrease
ld [hl], $8 ; number of option items +1
.Decrease:
2015-11-16 13:01:45 -08:00
dec [hl]
scf
ret
; e455c
2015-12-02 14:59:05 -08:00
Options_UpdateCursorPosition: ; e455c
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
; e4579