pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-09-08 08:13:02 -07:00
Code Issues Packages Projects Releases Wiki Activity

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style

Browse Source
This commit is contained in:
pikalaxalt
2016-04-10 14:42:14 -04:00
parent 46ead9b849
commit bf73772a56
537 changed files with 4562 additions and 4562 deletions
Download Patch File Download Diff File Expand all files Collapse all files

132
engine/options_menu.asm
View File

@@ -52,7 +52,7 @@ _OptionsMenu: ; e41d0
call DelayFrames
jr .joypad_loop
.ExitOptions
.ExitOptions:
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
@@ -94,7 +94,7 @@ endr
jp [hl] ; jump to the code of the current highlighted item
; e42e5
.Pointers
.Pointers:
dw Options_TextSpeed
dw Options_BattleScene
dw Options_BattleStyle
@@ -118,29 +118,29 @@ Options_TextSpeed: ; e42f5
jr c, .Increase
ld c, FAST_TEXT +- 1
.Increase
.Increase:
inc c
ld a, e
jr .Save
.LeftPressed
.LeftPressed:
ld a, c
and a
jr nz, .Decrease
ld c, SLOW_TEXT + 1
.Decrease
.Decrease:
dec c
ld a, d
.Save
.Save:
ld b, a
ld a, [Options]
and $f0
or b
ld [Options], a
.NonePressed
.NonePressed:
ld b, 0
ld hl, .Strings
rept 2
@@ -155,16 +155,16 @@ endr
ret
; e4331
.Strings
.Strings:
dw .Fast
dw .Mid
dw .Slow
.Fast
.Fast:
db "FAST@"
.Mid
.Mid:
db "MID @"
.Slow
.Slow:
db "SLOW@"
; e4346
@@ -203,35 +203,35 @@ Options_BattleScene: ; e4365
jr nz, .ToggleOn
jr .ToggleOff
.LeftPressed
.LeftPressed:
bit BATTLE_SCENE, [hl]
jr z, .ToggleOff
jr .ToggleOn
.NonePressed
.NonePressed:
bit BATTLE_SCENE, [hl]
jr z, .ToggleOn
jr .ToggleOff
.ToggleOn
.ToggleOn:
res BATTLE_SCENE, [hl]
ld de, .On
jr .Display
.ToggleOff
.ToggleOff:
set BATTLE_SCENE, [hl]
ld de, .Off
.Display
.Display:
hlcoord 11, 5
call PlaceString
and a
ret
; e4398
.On
.On:
db "ON @"
.Off
.Off:
db "OFF@"
; e43a0
@@ -247,34 +247,34 @@ Options_BattleStyle: ; e43a0
jr nz, .ToggleShift
jr .ToggleSet
.LeftPressed
.LeftPressed:
bit BATTLE_SHIFT, [hl]
jr z, .ToggleSet
jr .ToggleShift
.NonePressed
.NonePressed:
bit BATTLE_SHIFT, [hl]
jr nz, .ToggleSet
.ToggleShift
.ToggleShift:
res BATTLE_SHIFT, [hl]
ld de, .Shift
jr .Display
.ToggleSet
.ToggleSet:
set BATTLE_SHIFT, [hl]
ld de, .Set
.Display
.Display:
hlcoord 11, 7
call PlaceString
and a
ret
; e43d1
.Shift
.Shift:
db "SHIFT@"
.Set
.Set:
db "SET @"
; e43dd
@@ -290,41 +290,41 @@ Options_Sound: ; e43dd
jr nz, .SetMono
jr .SetStereo
.LeftPressed
.LeftPressed:
bit STEREO, [hl]
jr z, .SetStereo
jr .SetMono
.NonePressed
.NonePressed:
bit STEREO, [hl]
jr nz, .ToggleStereo
jr .ToggleMono
.SetMono
.SetMono:
res STEREO, [hl]
call RestartMapMusic
.ToggleMono
.ToggleMono:
ld de, .Mono
jr .Display
.SetStereo
.SetStereo:
set STEREO, [hl]
call RestartMapMusic
.ToggleStereo
.ToggleStereo:
ld de, .Stereo
.Display
.Display:
hlcoord 11, 9
call PlaceString
and a
ret
; e4416
.Mono
.Mono:
db "MONO @"
.Stereo
.Stereo:
db "STEREO@"
; e4424
@@ -341,26 +341,26 @@ Options_Print: ; e4424
jr c, .Increase
ld c, -1
.Increase
.Increase:
inc c
ld a, e
jr .Save
.LeftPressed
.LeftPressed:
ld a, c
and a
jr nz, .Decrease
ld c, 5
.Decrease
.Decrease:
dec c
ld a, d
.Save
.Save:
ld b, a
ld [GBPrinter], a
.NonePressed
.NonePressed:
ld b, $0
ld hl, .Strings
rept 2
@@ -375,22 +375,22 @@ endr
ret
; e445a
.Strings
.Strings:
dw .Lightest
dw .Lighter
dw .Normal
dw .Darker
dw .Darkest
.Lightest
.Lightest:
db "LIGHTEST@"
.Lighter
.Lighter:
db "LIGHTER @"
.Normal
.Normal:
db "NORMAL @"
.Darker
.Darker:
db "DARKER @"
.Darkest
.Darkest:
db "DARKEST @"
; e4491
@@ -409,22 +409,22 @@ GetPrinterSetting: ; e4491
lb de, PRINT_LIGHTER, PRINT_DARKER ; the 2 values next to this setting
ret
.IsLightest
.IsLightest:
ld c, 0
lb de, PRINT_DARKEST, PRINT_LIGHTER ; the 2 values next to this setting
ret
.IsLight
.IsLight:
ld c, 1
lb de, PRINT_LIGHTEST, PRINT_NORMAL ; the 2 values next to this setting
ret
.IsDark
.IsDark:
ld c, 3
lb de, PRINT_NORMAL, PRINT_DARKEST ; the 2 values next to this setting
ret
.IsDarkest
.IsDarkest:
ld c, 4
lb de, PRINT_DARKER, PRINT_LIGHTEST ; the 2 values next to this setting
ret
@@ -441,34 +441,34 @@ Options_MenuAccount: ; e44c1
jr nz, .ToggleOff
jr .ToggleOn
.LeftPressed
.LeftPressed:
bit MENU_ACCOUNT, [hl]
jr z, .ToggleOn
jr .ToggleOff
.NonePressed
.NonePressed:
bit MENU_ACCOUNT, [hl]
jr nz, .ToggleOn
.ToggleOff
.ToggleOff:
res MENU_ACCOUNT, [hl]
ld de, .Off
jr .Display
.ToggleOn
.ToggleOn:
set MENU_ACCOUNT, [hl]
ld de, .On
.Display
.Display:
hlcoord 11, 13
call PlaceString
and a
ret
; e44f2
.Off
.Off:
db "OFF@"
.On
.On:
db "ON @"
; e44fa
@@ -483,16 +483,16 @@ Options_Frame: ; e44fa
and a
ret
.RightPressed
.RightPressed:
ld a, [hl]
inc a
jr .Save
.LeftPressed
.LeftPressed:
ld a, [hl]
dec a
.Save
.Save:
and $7
ld [hl], a
UpdateFrame: ; e4512
@@ -512,7 +512,7 @@ Options_Cancel: ; e4520
and a
ret
.Exit
.Exit:
scf
ret
; e452a
@@ -527,7 +527,7 @@ OptionsControl: ; e452a
and a
ret
.DownPressed
.DownPressed:
ld a, [hl] ; load the cursor position to a
cp $7 ; maximum number of items in option menu
jr nz, .CheckFive
@@ -535,17 +535,17 @@ OptionsControl: ; e452a
scf
ret
.CheckFive ; I have no idea why this exists...
.CheckFive: ; I have no idea why this exists...
cp $5
jr nz, .Increase
ld [hl], $5
.Increase
.Increase:
inc [hl]
scf
ret
.UpPressed
.UpPressed:
ld a, [hl]
cp $6
jr nz, .NotSix
@@ -553,12 +553,12 @@ OptionsControl: ; e452a
scf
ret
.NotSix
.NotSix:
and a
jr nz, .Decrease
ld [hl], $8 ; number of option items +1
.Decrease
.Decrease:
dec [hl]
scf
ret