pokecrystal-board/engine/debug/color_picker.asm
Rangi 40902ffe24 Verify data table sizes with table_width and assert_table_length macros
This was discussed in #706

It also uncovered some off-by-one issues with defining some constants.

A few structs now use rsreset/_RS to define their offset constants, as discussed in #739
2021-03-04 00:15:03 -05:00

1445 lines
23 KiB
NASM

; DebugColor_GFX tile IDs
const_def $6a
const DEBUGTEST_TICKS_1 ; $6a
const DEBUGTEST_TICKS_2 ; $6b
const DEBUGTEST_WHITE ; $6c
const DEBUGTEST_LIGHT ; $6d
const DEBUGTEST_DARK ; $6e
const DEBUGTEST_BLACK ; $6f
const DEBUGTEST_0 ; $70
const DEBUGTEST_1 ; $71
const DEBUGTEST_2 ; $72
const DEBUGTEST_3 ; $73
const DEBUGTEST_4 ; $74
const DEBUGTEST_5 ; $75
const DEBUGTEST_6 ; $76
const DEBUGTEST_7 ; $77
const DEBUGTEST_8 ; $78
const DEBUGTEST_9 ; $79
const DEBUGTEST_A ; $7a
const DEBUGTEST_B ; $7b
const DEBUGTEST_C ; $7c
const DEBUGTEST_D ; $7d
const DEBUGTEST_E ; $7e
const DEBUGTEST_F ; $7f
; DebugColorMain.Jumptable indexes
const_def
const DEBUGCOLORMAIN_INITSCREEN ; 0
const DEBUGCOLORMAIN_UPDATESCREEN ; 1
const DEBUGCOLORMAIN_UPDATEPALETTES ; 2
const DEBUGCOLORMAIN_JOYPAD ; 3
const DEBUGCOLORMAIN_INITTMHM ; 4
const DEBUGCOLORMAIN_TMHMJOYPAD ; 5
DebugColorPicker: ; unreferenced
; A debug menu to test monster and trainer palettes at runtime.
ldh a, [hCGB]
and a
jr nz, .cgb
ldh a, [hSGB]
and a
ret z
.cgb
ldh a, [hInMenu]
push af
ld a, TRUE
ldh [hInMenu], a
call DisableLCD
call DebugColor_InitVRAM
call DebugColor_LoadGFX
call DebugColor_InitPalettes
call DebugColor_InitMonOrTrainerColor
call EnableLCD
ld de, MUSIC_NONE
call PlayMusic
xor a ; DEBUGCOLORMAIN_INITSCREEN
ld [wJumptableIndex], a
ld [wDebugColorCurMon], a
ld [wDebugColorIsShiny], a
.loop
ld a, [wJumptableIndex]
bit 7, a
jr nz, .exit
call DebugColorMain
call DebugColor_PlaceCursor
call DelayFrame
jr .loop
.exit
pop af
ldh [hInMenu], a
ret
DebugColor_InitMonOrTrainerColor:
ld a, [wDebugColorIsTrainer]
and a
jr nz, DebugColor_InitTrainerColor
ld hl, PokemonPalettes
; fallthrough
DebugColor_InitMonColor:
ld de, wDebugOriginalColors
ld c, NUM_POKEMON + 1
.loop
push bc
push hl
call DebugColor_InitColor
pop hl
ld bc, 8
add hl, bc
pop bc
dec c
jr nz, .loop
ret
DebugColor_InitTrainerColor:
ld hl, TrainerPalettes
ld de, wDebugOriginalColors
ld c, NUM_TRAINER_CLASSES + 1
.loop
push bc
push hl
call DebugColor_InitColor
pop hl
ld bc, 4
add hl, bc
pop bc
dec c
jr nz, .loop
ret
DebugColor_InitColor:
rept 3
ld a, BANK(PokemonPalettes) ; aka BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
inc hl
endr
ld a, BANK(PokemonPalettes) ; aka BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
ret
DebugColor_InitVRAM:
ld a, BANK(vTiles3)
ldh [rVBK], a
ld hl, vTiles3
ld bc, sScratch - vTiles3
xor a
call ByteFill
ld a, BANK(vTiles0)
ldh [rVBK], a
ld hl, vTiles0
ld bc, sScratch - vTiles0
xor a
call ByteFill
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
call ClearSprites
ret
DebugColor_LoadGFX:
ld hl, DebugColor_GFX
ld de, vTiles2 tile DEBUGTEST_TICKS_1
ld bc, 22 tiles
call CopyBytes
ld hl, DebugColor_UpArrowGFX
ld de, vTiles0
ld bc, 1 tiles
call CopyBytes
; Invert the font colors.
call LoadStandardFont
ld hl, vTiles1
ld bc, $80 tiles
.loop
ld a, [hl]
xor $ff
ld [hli], a
dec bc
ld a, c
or b
jr nz, .loop
ret
DebugColor_InitPalettes:
ldh a, [hCGB]
and a
ret z
ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
ldh [rSVBK], a
ld hl, Palette_DebugBG
ld de, wBGPals2
ld bc, 16 palettes
call CopyBytes
ld a, 1 << rBGPI_AUTO_INCREMENT
ldh [rBGPI], a
ld hl, Palette_DebugBG
ld c, 8 palettes
xor a
.bg_loop
ldh [rBGPD], a
dec c
jr nz, .bg_loop
ld a, 1 << rOBPI_AUTO_INCREMENT
ldh [rOBPI], a
ld hl, Palette_DebugOB
ld c, 8 palettes
.ob_loop
ld a, [hli]
ldh [rOBPD], a
dec c
jr nz, .ob_loop
ld a, LOW(palred 20 + palgreen 20 + palblue 20)
ld [wDebugLightColor + 0], a
ld a, HIGH(palred 20 + palgreen 20 + palblue 20)
ld [wDebugLightColor + 1], a
ld a, LOW(palred 10 + palgreen 10 + palblue 10)
ld [wDebugDarkColor + 0], a
ld a, HIGH(palred 10 + palgreen 10 + palblue 10)
ld [wDebugDarkColor + 1], a
pop af
ldh [rSVBK], a
ret
Palette_DebugBG:
INCLUDE "gfx/debug/bg.pal"
Palette_DebugOB:
INCLUDE "gfx/debug/ob.pal"
DebugColorMain:
call JoyTextDelay
ld a, [wJumptableIndex]
cp DEBUGCOLORMAIN_INITTMHM
jr nc, .no_start_select
ld hl, hJoyLast
ld a, [hl]
and SELECT
jr nz, .NextMon
ld a, [hl]
and START
jr nz, .PreviousMon
.no_start_select
jumptable .Jumptable, wJumptableIndex
.NextMon:
call DebugColor_BackupSpriteColors
call .SetMaxNum
ld e, a
ld a, [wDebugColorCurMon]
inc a
cp e
jr c, .SwitchMon
xor a
jr .SwitchMon
.PreviousMon:
call DebugColor_BackupSpriteColors
ld a, [wDebugColorCurMon]
dec a
cp -1
jr nz, .SwitchMon
call .SetMaxNum
dec a
.SwitchMon:
ld [wDebugColorCurMon], a
ld a, DEBUGCOLORMAIN_INITSCREEN
ld [wJumptableIndex], a
ret
.SetMaxNum:
; Looping back around the pic set.
ld a, [wDebugColorIsTrainer]
and a
jr nz, .trainer
; mon
ld a, NUM_POKEMON ; CELEBI
ret
.trainer
ld a, NUM_TRAINER_CLASSES ; MYSTICALMAN
ret
.Jumptable:
; entries correspond to DEBUGCOLORMAIN_* constants
dw DebugColor_InitScreen
dw DebugColor_UpdateScreen
dw DebugColor_UpdatePalettes
dw DebugColor_Joypad
dw DebugColor_InitTMHM
dw DebugColor_TMHMJoypad
DebugColor_InitScreen:
xor a
ldh [hBGMapMode], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, DEBUGTEST_BLACK
call ByteFill
hlcoord 1, 3
lb bc, 7, 18
ld a, DEBUGTEST_WHITE
call DebugColor_FillBoxWithByte
hlcoord 11, 0
lb bc, 2, 3
ld a, DEBUGTEST_LIGHT
call DebugColor_FillBoxWithByte
hlcoord 16, 0
lb bc, 2, 3
ld a, DEBUGTEST_DARK
call DebugColor_FillBoxWithByte
call DebugColor_LoadRGBMeter
call DebugColor_SetRGBMeter
ld a, [wDebugColorCurMon]
inc a
ld [wCurPartySpecies], a
ld [wTextDecimalByte], a
hlcoord 0, 1
ld de, wTextDecimalByte
lb bc, PRINTNUM_LEADINGZEROS | 1, 3
call PrintNum
ld a, [wDebugColorIsTrainer]
and a
jr nz, .trainer
; mon
ld a, UNOWN_A
ld [wUnownLetter], a
call GetPokemonName
hlcoord 4, 1
call PlaceString
xor a
ld [wBoxAlignment], a
hlcoord 12, 3
call _PrepMonFrontpic
ld de, vTiles2 tile $31
predef GetMonBackpic
ld a, $31
ldh [hGraphicStartTile], a
hlcoord 2, 4
lb bc, 6, 6
predef PlaceGraphic
ld a, [wDebugColorIsShiny]
and a
jr z, .normal
; shiny
ld de, .ShinyText
jr .place_text
.normal
ld de, .NormalText
.place_text
hlcoord 7, 17
call PlaceString
hlcoord 0, 17
ld de, .SwitchText
call PlaceString
jr .done
.trainer
ld a, [wTextDecimalByte]
ld [wTrainerClass], a
callfar GetTrainerAttributes
ld de, wStringBuffer1
hlcoord 4, 1
call PlaceString
ld de, vTiles2
callfar GetTrainerPic
xor a
ld [wTempEnemyMonSpecies], a
ldh [hGraphicStartTile], a
hlcoord 2, 3
lb bc, 7, 7
predef PlaceGraphic
.done
ld a, DEBUGCOLORMAIN_UPDATESCREEN
ld [wJumptableIndex], a
ret
.ShinyText:
db "レア", DEBUGTEST_BLACK, DEBUGTEST_BLACK, "@" ; Rare (shiny)
.NormalText:
db "ノーマル@" ; Normal
.SwitchText:
db DEBUGTEST_A, "きりかえ▶@" ; (A) Switches
DebugColor_LoadRGBMeter:
decoord 0, 11, wAttrmap
hlcoord 2, 11
ld a, 1
call .load_meter
decoord 0, 13, wAttrmap
hlcoord 2, 13
ld a, 2
call .load_meter
decoord 0, 15, wAttrmap
hlcoord 2, 15
ld a, 3
.load_meter:
push af
ld a, DEBUGTEST_TICKS_1
ld [hli], a
ld bc, 15
ld a, DEBUGTEST_TICKS_2
call ByteFill
ld l, e
ld h, d
pop af
ld bc, 20 * 2
call ByteFill
ret
DebugColor_SetRGBMeter:
ld a, [wDebugColorCurMon]
inc a
ld l, a
ld h, 0
add hl, hl
add hl, hl
ld de, wDebugOriginalColors
add hl, de
ld de, wDebugMiddleColors
ld bc, 4
call CopyBytes
xor a
ld [wDebugColorRGBJumptableIndex], a
ld [wDebugColorCurColor], a
ld de, wDebugLightColor
call DebugColor_CalculateRGB
ret
DebugColor_UpdateScreen:
ldh a, [hCGB]
and a
jr z, .sgb
ld a, 2
ldh [hBGMapMode], a
call DelayFrame
call DelayFrame
call DelayFrame
.sgb
call WaitBGMap
ld a, DEBUGCOLORMAIN_UPDATEPALETTES
ld [wJumptableIndex], a
ret
DebugColor_UpdatePalettes:
ldh a, [hCGB]
and a
jr z, .sgb
; cgb
ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
ldh [rSVBK], a
ld hl, wBGPals2
ld de, wDebugMiddleColors
ld c, 1
call DebugColor_LoadPalettes_White_Col1_Col2_Black
hlcoord 10, 2
ld de, wDebugLightColor
call DebugColor_PrintHexColor
hlcoord 15, 2
ld de, wDebugDarkColor
call DebugColor_PrintHexColor
ld a, TRUE
ldh [hCGBPalUpdate], a
ld a, DEBUGCOLORMAIN_JOYPAD
ld [wJumptableIndex], a
pop af
ldh [rSVBK], a
ret
.sgb
ld hl, wSGBPals
ld a, 1
ld [hli], a
ld a, LOW(PALRGB_WHITE)
ld [hli], a
ld a, HIGH(PALRGB_WHITE)
ld [hli], a
ld a, [wDebugLightColor + 0]
ld [hli], a
ld a, [wDebugLightColor + 1]
ld [hli], a
ld a, [wDebugDarkColor + 0]
ld [hli], a
ld a, [wDebugDarkColor + 1]
ld [hli], a
xor a
ld [hli], a
ld [hli], a
ld [hl], a
ld hl, wSGBPals
call DebugColor_PushSGBPals
hlcoord 10, 2
ld de, wDebugLightColor
call DebugColor_PrintHexColor
hlcoord 15, 2
ld de, wDebugDarkColor
call DebugColor_PrintHexColor
ld a, DEBUGCOLORMAIN_JOYPAD
ld [wJumptableIndex], a
ret
DebugColor_PrintHexColor:
inc hl
inc hl
inc hl
ld a, [de]
call .place_tile
ld a, [de]
swap a
call .place_tile
inc de
ld a, [de]
call .place_tile
ld a, [de]
swap a
.place_tile:
and $f
add DEBUGTEST_0
ld [hld], a
ret
DebugColor_Joypad:
ldh a, [hJoyLast]
and B_BUTTON
jr nz, .tmhm
ldh a, [hJoyLast]
and A_BUTTON
jr nz, .toggle_shiny
ld a, [wDebugColorRGBJumptableIndex]
maskbits 4 ; .PointerTable length
ld e, a
ld d, 0
ld hl, .PointerTable
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
.tmhm
; Enter the TM/HM checker.
ld a, DEBUGCOLORMAIN_INITTMHM
ld [wJumptableIndex], a
ret
.toggle_shiny
; Toggle between the normal and shiny mon colors.
ld a, [wDebugColorIsTrainer]
and a
ret nz
ld a, [wDebugColorIsShiny]
xor %00000100
ld [wDebugColorIsShiny], a
ld c, a
ld b, 0
ld hl, PokemonPalettes
add hl, bc
call DebugColor_InitMonColor
ld a, DEBUGCOLORMAIN_INITSCREEN
ld [wJumptableIndex], a
ret
.PointerTable:
dw DebugColor_SelectColorBox
dw DebugColor_ChangeRedValue
dw DebugColor_ChangeGreenValue
dw DebugColor_ChangeBlueValue
DebugColor_SelectColorBox:
ld hl, hJoyLast
ld a, [hl]
and D_DOWN
jr nz, DebugColor_NextRGBColor
ld a, [hl]
and D_LEFT
jr nz, .light
ld a, [hl]
and D_RIGHT
jr nz, .dark
ret
.light
xor a ; FALSE
ld [wDebugColorCurColor], a
ld de, wDebugLightColor
call DebugColor_CalculateRGB
ret
.dark
ld a, TRUE
ld [wDebugColorCurColor], a
ld de, wDebugDarkColor
call DebugColor_CalculateRGB
ret
DebugColor_ChangeRedValue:
ld hl, hJoyLast
ld a, [hl]
and D_DOWN
jr nz, DebugColor_NextRGBColor
ld a, [hl]
and D_UP
jr nz, DebugColor_PreviousRGBColor
ld hl, wDebugRedChannel
jr DebugColor_UpdateRGBColor
DebugColor_ChangeGreenValue:
ld hl, hJoyLast
ld a, [hl]
and D_DOWN
jr nz, DebugColor_NextRGBColor
ld a, [hl]
and D_UP
jr nz, DebugColor_PreviousRGBColor
ld hl, wDebugGreenChannel
jr DebugColor_UpdateRGBColor
DebugColor_ChangeBlueValue:
ld hl, hJoyLast
ld a, [hl]
and D_UP
jr nz, DebugColor_PreviousRGBColor
ld hl, wDebugBlueChannel
; fallthrough
DebugColor_UpdateRGBColor:
ldh a, [hJoyLast]
and D_RIGHT
jr nz, .increment
ldh a, [hJoyLast]
and D_LEFT
jr nz, .decrement
ret
.increment
ld a, [hl]
cp 31
ret nc
inc [hl]
jr .done
.decrement
ld a, [hl]
and a
ret z
dec [hl]
.done
call DebugColor_CalculatePalette
ld a, DEBUGCOLORMAIN_UPDATEPALETTES
ld [wJumptableIndex], a
ret
DebugColor_PreviousRGBColor:
ld hl, wDebugColorRGBJumptableIndex
dec [hl]
ret
DebugColor_NextRGBColor:
ld hl, wDebugColorRGBJumptableIndex
inc [hl]
ret
DebugColor_InitTMHM:
hlcoord 0, 10
ld bc, SCREEN_WIDTH * 8
ld a, DEBUGTEST_BLACK
call ByteFill
hlcoord 2, 12
ld de, DebugColor_AreYouFinishedString
call PlaceString
xor a
ld [wDebugColorCurTMHM], a
call DebugColor_PrintTMHMMove
ld a, DEBUGCOLORMAIN_TMHMJOYPAD
ld [wJumptableIndex], a
ret
DebugColor_TMHMJoypad:
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
jr nz, .cancel
call .scroll
ret
.cancel
ld a, DEBUGCOLORMAIN_INITSCREEN
ld [wJumptableIndex], a
ret
.exit ; unreferenced
ld hl, wJumptableIndex
set 7, [hl]
ret
.scroll:
ld hl, hJoyLast
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
ret
.up
ld a, [wDebugColorCurTMHM]
cp NUM_TM_HM_TUTOR - 1
jr z, .wrap_down
inc a
jr .done
.wrap_down
xor a
jr .done
.down
ld a, [wDebugColorCurTMHM]
and a
jr z, .wrap_up
dec a
jr .done
.wrap_up
ld a, NUM_TM_HM_TUTOR - 1
.done
ld [wDebugColorCurTMHM], a
call DebugColor_PrintTMHMMove
ret
DebugColor_PrintTMHMMove:
hlcoord 10, 11
call .ClearRow
hlcoord 10, 12
call .ClearRow
hlcoord 10, 13
call .ClearRow
hlcoord 10, 14
call .ClearRow
ld a, [wDebugColorCurTMHM]
inc a
ld [wTempTMHM], a
predef GetTMHMMove
ld a, [wTempTMHM]
ld [wPutativeTMHMMove], a
call GetMoveName
hlcoord 10, 12
call PlaceString
ld a, [wDebugColorCurTMHM]
call .GetNumberedTMHM
ld [wCurItem], a
predef CanLearnTMHMMove
ld a, c
and a
ld de, .AbleText
jr nz, .place_string
ld de, .NotAbleText
.place_string
hlcoord 10, 14
call PlaceString
ret
.AbleText:
db "おぼえられる@" ; Learnable
.NotAbleText:
db "おぼえられない@" ; Not learnable
.GetNumberedTMHM:
cp NUM_TMS
jr c, .tm
; hm - skip two gap items
inc a
inc a
.tm
add TM01
ret
.ClearRow:
ld bc, 10
ld a, DEBUGTEST_BLACK
call ByteFill
ret
DebugColor_CalculatePalette:
ld a, [wDebugRedChannel]
and %00011111
ld e, a
ld a, [wDebugGreenChannel]
and %00000111
sla a
swap a
or e
ld e, a
ld a, [wDebugGreenChannel]
and %00011000
sla a
swap a
ld d, a
ld a, [wDebugBlueChannel]
and %00011111
sla a
sla a
or d
ld d, a
ld a, [wDebugColorCurColor]
and a
jr z, .light
; dark
ld a, e
ld [wDebugDarkColor + 0], a
ld a, d
ld [wDebugDarkColor + 1], a
ret
.light
ld a, e
ld [wDebugLightColor + 0], a
ld a, d
ld [wDebugLightColor + 1], a
ret
DebugColor_CalculateRGB:
ld a, [de]
and %00011111
ld [wDebugRedChannel], a
ld a, [de]
and %11100000
swap a
srl a
ld b, a
inc de
ld a, [de]
and %00000011
swap a
srl a
or b
ld [wDebugGreenChannel], a
ld a, [de]
and %01111100
srl a
srl a
ld [wDebugBlueChannel], a
ret
DebugColor_BackupSpriteColors:
ld a, [wDebugColorCurMon]
inc a
ld l, a
ld h, 0
add hl, hl
add hl, hl
ld de, wDebugOriginalColors
add hl, de
ld e, l
ld d, h
ld hl, wDebugMiddleColors
ld bc, 4
call CopyBytes
ret
DebugColor_LoadPalettes_White_Col1_Col2_Black:
.loop
ld a, LOW(PALRGB_WHITE)
ld [hli], a
ld a, HIGH(PALRGB_WHITE)
ld [hli], a
rept 4
ld a, [de]
inc de
ld [hli], a
endr
xor a
ld [hli], a
ld [hli], a
dec c
jr nz, .loop
ret
DebugColor_FillBoxWithByte:
; For some reason, we have another copy of FillBoxWithByte here
.row
push bc
push hl
.col
ld [hli], a
dec c
jr nz, .col
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .row
ret
DebugColor_PushSGBPals:
ld a, [wJoypadDisable]
push af
set JOYPAD_DISABLE_SGB_TRANSFER_F, a
ld [wJoypadDisable], a
call _DebugColor_PushSGBPals
pop af
ld [wJoypadDisable], a
ret
_DebugColor_PushSGBPals:
ld a, [hl]
and $7
ret z
ld b, a
.loop
push bc
xor a
ldh [rJOYP], a
ld a, $30
ldh [rJOYP], a
ld b, $10
.loop2
ld e, $8
ld a, [hli]
ld d, a
.loop3
bit 0, d
ld a, $10
jr nz, .okay
ld a, $20
.okay
ldh [rJOYP], a
ld a, $30
ldh [rJOYP], a
rr d
dec e
jr nz, .loop3
dec b
jr nz, .loop2
ld a, $20
ldh [rJOYP], a
ld a, $30
ldh [rJOYP], a
ld de, 7000
.wait
nop
nop
nop
dec de
ld a, d
or e
jr nz, .wait
pop bc
dec b
jr nz, .loop
ret
DebugColor_PlaceCursor:
ld a, DEBUGTEST_BLACK
hlcoord 10, 0
ld [hl], a
hlcoord 15, 0
ld [hl], a
hlcoord 1, 11
ld [hl], a
hlcoord 1, 13
ld [hl], a
hlcoord 1, 15
ld [hl], a
ld a, [wJumptableIndex]
cp DEBUGCOLORMAIN_JOYPAD
jr nz, .clearsprites
ld a, [wDebugColorRGBJumptableIndex]
and a
jr z, .place_cursor
dec a
hlcoord 1, 11
ld bc, 2 * SCREEN_WIDTH
call AddNTimes
ld [hl], "▶"
.place_cursor
ld a, [wDebugColorCurColor]
and a
jr z, .light
; dark
hlcoord 15, 0
jr .place
.light
hlcoord 10, 0
.place
ld [hl], "▶"
ld b, $70 ; initial tile id
ld c, 5 ; initial palette
ld hl, wVirtualOAM
ld de, wDebugRedChannel
call .placesprite
ld de, wDebugGreenChannel
call .placesprite
ld de, wDebugBlueChannel
call .placesprite
ret
.placesprite:
ld a, b
ld [hli], a ; y
ld a, [de]
add a
add a
add 3 * TILE_WIDTH
ld [hli], a ; x
xor a
ld [hli], a ; tile id
ld a, c
ld [hli], a ; attributes
ld a, 2 * TILE_WIDTH
add b
ld b, a
inc c
ret
.clearsprites:
call ClearSprites
ret
DebugColor_AreYouFinishedString:
db "おわりますか?" ; Are you finished?
next "はい<DOT><DOT><DOT>", DEBUGTEST_A ; YES...(A)
next "いいえ<DOT><DOT>", DEBUGTEST_B ; NO..(B)
db "@"
DebugColor_UpArrowGFX:
INCBIN "gfx/debug/up_arrow.2bpp"
DebugColor_GFX:
INCBIN "gfx/debug/color_test.2bpp"
TilesetColorPicker: ; unreferenced
; A debug menu to test tileset palettes at runtime.
; dummied out
ret
xor a
ld [wJumptableIndex], a
ld [wDebugTilesetCurPalette], a
ld [wDebugTilesetRGBJumptableIndex], a
ld [wDebugTilesetCurColor], a
ldh [hMapAnims], a
call ClearSprites
call OverworldTextModeSwitch
call WaitBGMap2
xor a
ldh [hBGMapMode], a
ld de, DebugColor_GFX
ld hl, vTiles2 tile DEBUGTEST_TICKS_1
lb bc, BANK(DebugColor_GFX), 22
call Request2bpp
ld de, DebugColor_UpArrowGFX
ld hl, vTiles1
lb bc, BANK(DebugColor_UpArrowGFX), 1
call Request2bpp
ld a, HIGH(vBGMap1)
ldh [hBGMapAddress + 1], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, DEBUGTEST_BLACK
call ByteFill
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, PAL_BG_TEXT
call ByteFill
decoord 1, 1, 0
ld a, DEBUGTEST_WHITE
call DebugTileset_DrawColorSwatch
decoord 6, 1, 0
ld a, DEBUGTEST_LIGHT
call DebugTileset_DrawColorSwatch
decoord 11, 1, 0
ld a, DEBUGTEST_DARK
call DebugTileset_DrawColorSwatch
decoord 16, 1, 0
ld a, DEBUGTEST_BLACK
call DebugTileset_DrawColorSwatch
call DebugTileset_LoadRGBMeter
call DebugTileset_LoadPalettes
call WaitBGMap2
ld [wJumptableIndex], a
ld a, $40
ldh [hWY], a
ret
DebugTileset_DrawColorSwatch:
hlcoord 0, 0
call _DebugColor_DrawSwatch
DebugColor_DrawAttributeSwatch:
ld a, [wDebugTilesetCurPalette]
hlcoord 0, 0, wAttrmap
; fallthrough
_DebugColor_DrawSwatch:
; Fills a 4x3 box at de with byte a.
add hl, de
rept 4
ld [hli], a
endr
rept 2
ld bc, SCREEN_WIDTH - 4
add hl, bc
rept 4
ld [hli], a
endr
endr
ret
DebugTileset_LoadRGBMeter:
hlcoord 2, 4
call .Place
hlcoord 2, 6
call .Place
hlcoord 2, 8
.Place:
ld a, DEBUGTEST_TICKS_1
ld [hli], a
ld bc, 15
ld a, DEBUGTEST_TICKS_2
call ByteFill
ret
DebugTileset_LoadPalettes:
ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
ld a, [wDebugTilesetCurPalette]
ld l, a
ld h, 0
add hl, hl
add hl, hl
add hl, hl
ld de, wBGPals1
add hl, de
ld de, wDebugPalette
ld bc, 1 palettes
call CopyBytes
ld de, wDebugPalette
call DebugColor_CalculateRGB
pop af
ldh [rSVBK], a
ret
DebugColorMain2: ; unreferenced
ld hl, hJoyLast
ld a, [hl]
and SELECT
jr nz, .next_palette
ld a, [hl]
and B_BUTTON
jr nz, .cancel
call DebugTileset_Joypad
ret
.next_palette
ld hl, wDebugTilesetCurPalette
ld a, [hl]
inc a
and PALETTE_MASK
cp PAL_BG_TEXT
jr nz, .palette_ok
xor a ; PAL_BG_GRAY
.palette_ok
ld [hl], a
decoord 1, 1, 0
call DebugColor_DrawAttributeSwatch
decoord 6, 1, 0
call DebugColor_DrawAttributeSwatch
decoord 11, 1, 0
call DebugColor_DrawAttributeSwatch
decoord 16, 1, 0
call DebugColor_DrawAttributeSwatch
ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
ldh [rSVBK], a
ld hl, wBGPals2
ld a, [wDebugTilesetCurPalette]
ld bc, 1 palettes
call AddNTimes
ld de, wDebugPalette
ld bc, 1 palettes
call CopyBytes
pop af
ldh [rSVBK], a
ld a, 2
ldh [hBGMapMode], a
ld c, 3
call DelayFrames
ld a, 1
ldh [hBGMapMode], a
ret
.cancel
call ClearSprites
ldh a, [hWY]
xor %11010000
ldh [hWY], a
ret
DebugTileset_UpdatePalettes:
ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
ldh [rSVBK], a
ld hl, wBGPals2
ld a, [wDebugTilesetCurPalette]
ld bc, 1 palettes
call AddNTimes
ld e, l
ld d, h
ld hl, wDebugPalette
ld bc, 1 palettes
call CopyBytes
hlcoord 1, 0
ld de, wDebugWhiteTileColor
call DebugColor_PrintHexColor
hlcoord 6, 0
ld de, wDebugLightTileColor
call DebugColor_PrintHexColor
hlcoord 11, 0
ld de, wDebugDarkTileColor
call DebugColor_PrintHexColor
hlcoord 16, 0
ld de, wDebugBlackTileColor
call DebugColor_PrintHexColor
pop af
ldh [rSVBK], a
ld a, TRUE
ldh [hCGBPalUpdate], a
call DelayFrame
ret
DebugTileset_Joypad:
ld a, [wDebugTilesetRGBJumptableIndex]
maskbits 4 ; .PointerTable length
ld e, a
ld d, 0
ld hl, .PointerTable
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
.PointerTable:
dw DebugTileset_SelectColorBox
dw DebugTileset_ChangeRedValue
dw DebugTileset_ChangeGreenValue
dw DebugTileset_ChangeBlueValue
DebugTileset_SelectColorBox:
ld hl, hJoyLast
ld a, [hl]
and D_DOWN
jr nz, DebugTileset_NextRGBColor
ld a, [hl]
and D_LEFT
jr nz, .left
ld a, [hl]
and D_RIGHT
jr nz, .right
ret
.left
ld a, [wDebugTilesetCurColor]
dec a
jr .done
.right
ld a, [wDebugTilesetCurColor]
inc a
.done
maskbits NUM_PAL_COLORS
ld [wDebugTilesetCurColor], a
ld e, a
ld d, 0
ld hl, wDebugPalette
add hl, de
add hl, de
ld e, l
ld d, h
call DebugColor_CalculateRGB
ret
DebugTileset_ChangeRedValue:
ld hl, hJoyLast
ld a, [hl]
and D_DOWN
jr nz, DebugTileset_NextRGBColor
ld a, [hl]
and D_UP
jr nz, DebugTileset_PreviousRGBColor
ld hl, wDebugRedChannel
jr DebugTileset_UpdateRGBColor
DebugTileset_ChangeGreenValue:
ld hl, hJoyLast
ld a, [hl]
and D_DOWN
jr nz, DebugTileset_NextRGBColor
ld a, [hl]
and D_UP
jr nz, DebugTileset_PreviousRGBColor
ld hl, wDebugGreenChannel
jr DebugTileset_UpdateRGBColor
DebugTileset_ChangeBlueValue:
ld hl, hJoyLast
ld a, [hl]
and D_UP
jr nz, DebugTileset_PreviousRGBColor
ld hl, wDebugBlueChannel
; fallthrough
DebugTileset_UpdateRGBColor:
ldh a, [hJoyLast]
and D_RIGHT
jr nz, .increment
ldh a, [hJoyLast]
and D_LEFT
jr nz, .decrement
ret
.increment
ld a, [hl]
cp 31
ret nc
inc [hl]
jr .done
.decrement
ld a, [hl]
and a
ret z
dec [hl]
.done
call DebugTileset_CalculatePalette
call DebugTileset_UpdatePalettes
ret
DebugTileset_PreviousRGBColor:
ld hl, wDebugTilesetRGBJumptableIndex
dec [hl]
ret
DebugTileset_NextRGBColor:
ld hl, wDebugTilesetRGBJumptableIndex
inc [hl]
ret
DebugTileset_CalculatePalette:
ld a, [wDebugRedChannel]
and %00011111
ld e, a
ld a, [wDebugGreenChannel]
and %0000111
sla a
swap a
or e
ld e, a
ld a, [wDebugGreenChannel]
and %00011000
sla a
swap a
ld d, a
ld a, [wDebugBlueChannel]
and %00011111
sla a
sla a
or d
ld d, a
ld a, [wDebugTilesetCurColor]
ld c, a
ld b, 0
ld hl, wDebugPalette
add hl, bc
add hl, bc
ld a, e
ld [hli], a
ld [hl], d
ret
.dummy1: ; unreferenced
ret
.dummy2: ; unreferenced
ret