villadelfia
/
dmgtris
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Secret SMOL mode

This commit is contained in:
Randy Thiemann 2023-10-28 19:04:55 +02:00
parent 252e538d01
commit eab894cd47
20 changed files with 4299 additions and 1158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/DMGTRIS.GBC
View File

Binary file not shown.

BIN
bin/DMGTRIS.pocket
View File

Binary file not shown.

57
src/bankid.asm
View File

@ -19,29 +19,50 @@ IF !DEF(BANKID_ASM)
DEF BANKID_ASM EQU 1
SECTION "Bank ID 0", ROM0[$0]
REPT 7
rst $00
ENDR
db $00
INCLUDE "globals.asm"
SECTION "Bank ID 1", ROMX[$4000], BANK[1]
REPT 7
rst $00
ENDR
db $01
SECTION "Bank ID 2", ROMX[$4000], BANK[2]
REPT 7
SECTION "Bank ID BANK_MAIN", ROM0[$0]
REPT 7
rst $00
ENDR
db $02
ENDR
db BANK_MAIN
SECTION "Bank ID 3", ROMX[$4000], BANK[3]
REPT 7
SECTION "Bank ID BANK_OTHER", ROMX[$4000], BANK[BANK_OTHER]
REPT 7
rst $00
ENDR
db $03
ENDR
db BANK_OTHER
SECTION "Bank ID BANK_SFX", ROMX[$4000], BANK[BANK_SFX]
REPT 7
rst $00
ENDR
db BANK_SFX
SECTION "Bank ID BANK_MUSIC", ROMX[$4000], BANK[BANK_MUSIC]
REPT 7
rst $00
ENDR
db BANK_MUSIC
SECTION "Bank ID BANK_TITLE", ROMX[$4000], BANK[BANK_TITLE]
REPT 7
rst $00
ENDR
db BANK_TITLE
SECTION "Bank ID BANK_GAMEPLAY", ROMX[$4000], BANK[BANK_GAMEPLAY]
REPT 7
rst $00
ENDR
db BANK_GAMEPLAY
SECTION "Bank ID BANK_GAMEPLAY_BIG", ROMX[$4000], BANK[BANK_GAMEPLAY_BIG]
REPT 7
rst $00
ENDR
db BANK_GAMEPLAY_BIG
ENDC

28
src/banking.asm
View File

@ -22,23 +22,37 @@ DEF BANKING_ASM EQU 1
INCLUDE "globals.asm"
SECTION "High Banking Variables", HRAM
hBankBackup: ds 1
SECTION "Banking Variables", WRAM0
wBankBackup: ds 4
SECTION "Switch Bank", ROM0[$08]
; Saves the current bank and switches to the bank in b.
; Pushes the current bank to the stach, switches to bank in B.
RSTSwitchBank::
ld a, [wBankBackup+2]
ld [wBankBackup+3], a
ld a, [wBankBackup+1]
ld [wBankBackup+2], a
ld a, [wBankBackup+0]
ld [wBankBackup+1], a
ld a, [rBANKID]
ldh [hBankBackup], a
ld [wBankBackup+0], a
ld a, b
ld [rROMB0], a
ret
SECTION "Restore Bank", ROM0[$18]
; Restore the bank previously saved. The current one is not saved.
SECTION "Restore Bank", ROM0[$28]
; Pops a bank from the stack ans switches to it.
RSTRestoreBank::
ld a, [hBankBackup]
ld a, [wBankBackup+0]
ld b, a
ld a, [wBankBackup+1]
ld [wBankBackup+0], a
ld a, [wBankBackup+2]
ld [wBankBackup+1], a
ld a, [wBankBackup+3]
ld [wBankBackup+2], a
ld a, b
ld [rROMB0], a
ret

940
src/constants.asm
View File

@ -1,940 +0,0 @@
; DMGTRIS
; Copyright (C) 2023 - Randy Thiemann <randy.thiemann@gmail.com>
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <https://www.gnu.org/licenses/>.
IF !DEF(CONSTANTS_ASM)
DEF CONSTANTS_ASM EQU 1
CHARMAP " ", 1
CHARMAP "0", 66
CHARMAP "1", 67
CHARMAP "2", 68
CHARMAP "3", 69
CHARMAP "4", 70
CHARMAP "5", 71
CHARMAP "6", 72
CHARMAP "7", 73
CHARMAP "8", 74
CHARMAP "9", 75
CHARMAP "A", 76
CHARMAP "B", 77
CHARMAP "C", 78
CHARMAP "D", 79
CHARMAP "E", 80
CHARMAP "F", 81
CHARMAP "G", 82
CHARMAP "H", 83
CHARMAP "I", 84
CHARMAP "J", 85
CHARMAP "K", 86
CHARMAP "L", 87
CHARMAP "M", 88
CHARMAP "N", 89
CHARMAP "O", 90
CHARMAP "P", 91
CHARMAP "Q", 92
CHARMAP "R", 93
CHARMAP "S", 94
CHARMAP "T", 95
CHARMAP "U", 96
CHARMAP "V", 97
CHARMAP "W", 98
CHARMAP "X", 99
CHARMAP "Y", 100
CHARMAP "Z", 101
CHARMAP "!", 102
CHARMAP "?", 103
CHARMAP "[", 129
CHARMAP "]", 130
CHARMAP "/", 128
CHARMAP "-", 127
CHARMAP "#", 126
CHARMAP ".", 216
CHARMAP ":", 222
SECTION "Static Data", ROMX, BANK[1]
sLeady:: db " READY? "
sGo:: db " GO "
sPause::
db "P A U S E "
db " P A U S E"
sOption0::
db "NORM"
db " INV"
sOption1::
db "TGM1"
db "TGM2"
db "TGM3"
db "HELL"
db " NES"
sOption2::
db "ARS1"
db "ARS2"
db " NES"
sOption3::
db "FIRM"
db "SNIC"
db "HARD"
db "LOCK"
db "NONE"
sOption4::
db "DMGT"
db "TGM1"
db "TGM3"
db "DEAT"
db "SHIR"
db "CHIL"
sOption5::
db " NO"
db " YES"
sDisabled::
db "----"
sEasterM0:: db $C4, $C6, $C8, $CA, $CC
sEasterM1:: db $C5, $C7, $C9, $CB, $CD
sEasterC0:: db $CE, $D0, $C8, $CA, $CC, $72, $74, $76, $78, $7A, $D6, $D7
sEasterC1:: db $CF, $D1, $C9, $CB, $CD, $73, $75, $77, $79, $7B, $01, $01
sEasterA0:: db $D2, $D4, $C8, $CA, $CC, $72, $74, $76, $78, $7A, $D6, $D7
sEasterA1:: db $D3, $D5, $C9, $CB, $CD, $73, $75, $77, $79, $7B, $01, $01
sEasterS0:: db $F7, $F9, $C8, $CA, $CC
sEasterS1:: db $F8, $FA, $C9, $CB, $CD
sPieceXOffsets:: ; How to draw each piece. X-offsets of the sprites.
db 0, 8, 16, 24 ; I
db 0, 8, 8, 16 ; Z
db 0, 8, 8, 16 ; S
db 0, 8, 16, 16 ; J
db 0, 0, 8, 16 ; L
db 8, 8, 16, 16 ; O
db 0, 8, 8, 16 ; T
sPieceYOffsets:: ; How to draw each piece. Y-offsets of the sprites.
db 0, 0, 0, 0 ; I
db 0, 0, 7, 7 ; Z
db 7, 7, 0, 0 ; S
db 0, 0, 0, 7 ; J
db 7, 0, 0, 0 ; L
db 0, 7, 0, 7 ; O
db 0, 0, 7, 0 ; T
; Speed curve data is defined as follows:
; N blocks of:
; dw BCD_START_LEVEL, START_LEVEL, BCD_NEXT_100_LEVEL_BREAKPOINT
; db GRID_CELLS_PER_MOVE_ON_OVERFLOW, INCREMENT_PER_FRAME (0 means overflow each frame)
; db NORMAL_ARE, LINE_ARE, DAS, LOCK_DELAY, CLEAR_DELAY
;
; Followed by one single:
; dw $FFFF
sDMGTSpeedCurve:: ; Speed curve of the game.
dw $0000, 0, $0100 ; Level 0000
db 1, 16
db 25, 15, 14, 30, 40
dw $0015, 15, $0100 ; Level 0015
db 1, 17
db 25, 15, 14, 30, 40
dw $0030, 30, $0100 ; Level 0030
db 1, 18
db 25, 15, 14, 30, 40
dw $0040, 40, $0100 ; Level 0040
db 1, 20
db 25, 15, 14, 30, 40
dw $0050, 50, $0100 ; Level 0050
db 1, 21
db 25, 15, 14, 30, 40
dw $0060, 60, $0100 ; Level 0060
db 1, 23
db 25, 15, 14, 30, 40
dw $0070, 70, $0100 ; Level 0070
db 1, 26
db 25, 15, 14, 30, 40
dw $0080, 80, $0100 ; Level 0080
db 1, 28
db 25, 15, 14, 30, 40
dw $0090, 90, $0100 ; Level 0090
db 1, 32
db 25, 15, 14, 30, 40
dw $0100, 100, $0200 ; Level 0100
db 1, 37
db 25, 15, 14, 30, 40
dw $0150, 150, $0200 ; Level 0150
db 1, 43
db 25, 15, 14, 30, 40
dw $0200, 200, $0300 ; Level 0200
db 1, 51
db 25, 15, 14, 30, 40
dw $0225, 225, $0300 ; Level 0225
db 1, 64
db 25, 15, 14, 30, 40
dw $0250, 250, $0300 ; Level 0250
db 1, 85
db 25, 15, 14, 30, 40
dw $0275, 275, $0300 ; Level 0275
db 1, 128
db 25, 15, 14, 30, 40
dw $0300, 300, $0400 ; Level 0300
db 1, $00
db 25, 7, 14, 30, 32
dw $0350, 350, $0350 ; Level 0350
db 2, $00
db 25, 7, 14, 30, 32
dw $0400, 400, $0400 ; Level 0400
db 3, $00
db 25, 7, 14, 30, 32
dw $0450, 450, $0500 ; Level 0450
db 4, $00
db 25, 7, 14, 30, 32
dw $0475, 475, $0500 ; Level 0475
db 5, $00
db 25, 7, 14, 30, 32
dw $0500, 500, $0600 ; Level 0500
db 20, $00
db 25, 6, 14, 30, 24
dw $0600, 600, $0700 ; Level 0600
db 20, $00
db 25, 6, 8, 30, 24
dw $0700, 700, $0800 ; Level 0700
db 20, $00
db 20, 6, 8, 30, 24
dw $0900, 900, $1000 ; Level 0900
db 20, $00
db 16, 4, 6, 25, 16
dw $1100, 1100, $1200 ; Level 1100
db 20, $00
db 12, 4, 6, 25, 16
dw $1200, 1200, $1300 ; Level 1200
db 20, $00
db 12, 4, 6, 25, 8
dw $1300, 1300, $1400 ; Level 1300
db 20, $00
db 10, 4, 6, 20, 7
dw $1400, 1400, $1500 ; Level 1400
db 20, $00
db 10, 4, 6, 18, 6
dw $1500, 1500, $1600 ; Level 1500
db 20, $00
db 8, 4, 4, 16, 5
dw $1600, 1600, $1700 ; Level 1600
db 20, $00
db 8, 4, 4, 14, 4
dw $1700, 1700, $1800 ; Level 1700
db 20, $00
db 6, 4, 4, 12, 3
dw $1800, 1800, $1900 ; Level 1800
db 20, $00
db 6, 4, 4, 10, 3
dw $1900, 1900, $2000 ; Level 1900
db 20, $00
db 4, 4, 4, 8, 3
dw $2000, 2000, $2100 ; Level 2000
db 20, $00
db 4, 4, 3, 8, 3
dw $2500, 2500, $2600 ; Level 2500
db 20, $00
db 2, 2, 1, 8, 2
dw $3000, 3000, $3100 ; Level 3000
db 20, $00
db 1, 1, 1, 8, 1
dw $4000, 4000, $4100 ; Level 4000
db 20, $00
db 1, 1, 1, 6, 1
dw $5000, 5000, $5100 ; Level 5000
db 20, $00
db 1, 1, 1, 4, 1
dw $6666, 6666, $6700 ; Level 6666
db 20, $00
db 1, 1, 1, 2, 1
dw $9999, 9999, $9999 ; Level 9999
db 20, $00
db 1, 1, 1, 1, 1
sDMGTSpeedCurveEnd::
dw $FFFF ; End.
sTGM1SpeedCurve::
dw $0000, 0, $0100
db 1, 4
db 30, 30, 16, 30, 41
dw $0030, 30, $0100
db 1, 6
db 30, 30, 16, 30, 41
dw $0035, 35, $0100
db 1, 8
db 30, 30, 16, 30, 41
dw $0040, 40, $0100
db 1, 10
db 30, 30, 16, 30, 41
dw $0050, 50, $0100
db 1, 12
db 30, 30, 16, 30, 41
dw $0060, 60, $0100
db 1, 16
db 30, 30, 16, 30, 41
dw $0070, 70, $0100
db 1, 32
db 30, 30, 16, 30, 41
dw $0080, 80, $0100
db 1, 48
db 30, 30, 16, 30, 41
dw $0090, 90, $0100
db 1, 64
db 30, 30, 16, 30, 41
dw $0100, 100, $0200
db 1, 80
db 30, 30, 16, 30, 41
dw $0120, 120, $0200
db 1, 96
db 30, 30, 16, 30, 41
dw $0140, 140, $0200
db 1, 112
db 30, 30, 16, 30, 41
dw $0160, 160, $0200
db 1, 128
db 30, 30, 16, 30, 41
dw $0170, 170, $0200
db 1, 144
db 30, 30, 16, 30, 41
dw $0200, 200, $0300
db 1, 4
db 30, 30, 16, 30, 41
dw $0220, 220, $0300
db 1, 32
db 30, 30, 16, 30, 41
dw $0230, 230, $0300
db 1, 64
db 30, 30, 16, 30, 41
dw $0233, 233, $0300
db 1, 96
db 30, 30, 16, 30, 41
dw $0236, 236, $0300
db 1, 128
db 30, 30, 16, 30, 41
dw $0239, 239, $0300
db 1, 160
db 30, 30, 16, 30, 41
dw $0243, 243, $0300
db 1, 192
db 30, 30, 16, 30, 41
dw $0247, 239, $0300
db 1, 224
db 30, 30, 16, 30, 41
dw $0251, 251, $0300
db 1, $00
db 30, 30, 16, 30, 41
dw $0300, 300, $0400
db 2, $00
db 30, 30, 16, 30, 41
dw $0330, 330, $0400
db 3, $00
db 30, 30, 16, 30, 41
dw $0360, 360, $0400
db 4, $00
db 30, 30, 16, 30, 41
dw $0400, 400, $0500
db 5, $00
db 30, 30, 16, 30, 41
dw $0420, 420, $0500
db 4, $00
db 30, 30, 16, 30, 41
dw $0450, 450, $0500
db 3, $00
db 30, 30, 16, 30, 41
dw $0500, 500, $0600
db 20, $00
db 30, 30, 16, 30, 41
sTGM1SpeedCurveEnd::
dw $FFFF
sCHILSpeedCurve::
dw $0000, 0, $0100
db 1, 5
db 10, 10, 16, 25, 17
dw $0100, 100, $0200
db 1, 6
db 10, 10, 16, 25, 17
dw $0200, 200, $0300
db 1, 7
db 10, 10, 16, 25, 17
dw $0300, 300, $0400
db 1, 8
db 10, 10, 16, 25, 17
dw $0400, 400, $0500
db 1, 9
db 10, 10, 16, 25, 17
dw $0500, 500, $0600
db 1, 11
db 10, 10, 16, 25, 17
dw $0600, 600, $0700
db 1, 14
db 10, 10, 16, 25, 17
dw $0700, 700, $0800
db 1, 20
db 10, 10, 16, 25, 17
dw $0800, 800, $0900
db 1, 32
db 10, 10, 16, 25, 17
dw $0900, 900, $1000
db 1, 43
db 10, 10, 16, 25, 17
dw $1000, 1000, $1100
db 1, 51
db 10, 10, 16, 25, 17
dw $1300, 1300, $1400
db 1, 64
db 10, 10, 16, 25, 17
dw $1600, 1600, $1700
db 1, 85
db 10, 10, 16, 25, 17
dw $1900, 1900, $2000
db 1, 128
db 10, 10, 16, 25, 17
dw $2900, 2900, $3000
db 1, $00
db 10, 10, 16, 25, 17
dw $3333, 3333, $3400
db 2, $00
db 10, 10, 12, 25, 17
dw $4444, 4444, $4500
db 3, $00
db 10, 10, 12, 25, 17
dw $5555, 5555, $5600
db 4, $00
db 10, 10, 12, 25, 17
dw $6666, 6666, $6700
db 5, $00
db 10, 10, 12, 25, 17
dw $7777, 7777, $7800
db 20, $00
db 10, 10, 8, 25, 17
dw $8888, 8888, $8900
db 20, $00
db 10, 10, 6, 18, 17
dw $9999, 9999, $9999
db 20, $00
db 5, 5, 6, 14, 10
sCHILSpeedCurveEnd::
dw $FFFF
sTGM3SpeedCurve::
dw $0000, 0, $0100
db 1, 4
db 27, 27, 16, 30, 40
dw $0030, 30, $0100
db 1, 6
db 27, 27, 16, 30, 40
dw $0035, 35, $0100
db 1, 8
db 27, 27, 16, 30, 40
dw $0040, 40, $0100
db 1, 10
db 27, 27, 16, 30, 40
dw $0050, 50, $0100
db 1, 12
db 27, 27, 16, 30, 40
dw $0060, 60, $0100
db 1, 16
db 27, 27, 16, 30, 40
dw $0070, 70, $0100
db 1, 32
db 27, 27, 16, 30, 40
dw $0080, 80, $0100
db 1, 48
db 27, 27, 16, 30, 40
dw $0090, 90, $0100
db 1, 64
db 27, 27, 16, 30, 40
dw $0100, 100, $0200
db 1, 80
db 27, 27, 16, 30, 40
dw $0120, 120, $0200
db 1, 96
db 27, 27, 16, 30, 40
dw $0140, 140, $0200
db 1, 112
db 27, 27, 16, 30, 40
dw $0160, 160, $0200
db 1, 128
db 27, 27, 16, 30, 40
dw $0170, 170, $0200
db 1, 144
db 27, 27, 16, 30, 40
dw $0200, 200, $0300
db 1, 4
db 27, 27, 16, 30, 40
dw $0220, 220, $0300
db 1, 32
db 27, 27, 16, 30, 40
dw $0230, 230, $0300
db 1, 64
db 27, 27, 16, 30, 40
dw $0233, 233, $0300
db 1, 96
db 27, 27, 16, 30, 40
dw $0236, 236, $0300
db 1, 128
db 27, 27, 16, 30, 40
dw $0239, 239, $0300
db 1, 160
db 27, 27, 16, 30, 40
dw $0243, 243, $0300
db 1, 192
db 27, 27, 16, 30, 40
dw $0247, 239, $0300
db 1, 224
db 27, 27, 16, 30, 40
dw $0251, 251, $0300
db 1, $00
db 27, 27, 16, 30, 40
dw $0300, 300, $0400
db 2, $00
db 27, 27, 16, 30, 40
dw $0330, 330, $0400
db 3, $00
db 27, 27, 16, 30, 40
dw $0360, 360, $0400
db 4, $00
db 27, 27, 16, 30, 40
dw $0400, 400, $0500
db 5, $00
db 27, 27, 16, 30, 40
dw $0420, 420, $0500
db 4, $00
db 27, 27, 16, 30, 40
dw $0450, 450, $0500
db 3, $00
db 27, 27, 16, 30, 40
dw $0500, 500, $0600
db 20, $00
db 27, 27, 10, 30, 25
dw $0600, 600, $0700
db 20, $00
db 27, 18, 10, 30, 16
dw $0700, 700, $0800
db 20, $00
db 18, 14, 10, 30, 12
dw $0800, 800, $0900
db 20, $00
db 14, 8, 10, 30, 6
dw $0900, 900, $1000
db 20, $00
db 14, 8, 8, 17, 6
dw $1000, 1000, $1100
db 20, $00
db 8, 8, 8, 17, 6
dw $1100, 1000, $1200
db 20, $00
db 7, 7, 8, 15, 6
dw $1200, 1000, $1300
db 20, $00
db 6, 6, 8, 15, 6
sTGM3SpeedCurveEnd::
dw $FFFF
sDEATSpeedCurve::
dw $0000, 0, $0100
db 20, $00
db 18, 14, 12, 30, 12
dw $0100, 0, $0200
db 20, $00
db 14, 8, 12, 26, 6
dw $0200, 0, $0300
db 20, $00
db 14, 8, 11, 22, 6
dw $0300, 0, $0400
db 20, $00
db 8, 8, 10, 18, 6
dw $0400, 0, $0500
db 20, $00
db 7, 7, 8, 15, 5
dw $0500, 0, $0600
db 20, $00
db 6, 6, 8, 15, 4
sDEATSpeedCurveEnd::
dw $FFFF
sSHIRSpeedCurve::
dw $0000, 0, $0100
db 20, $00
db 12, 8, 10, 18, 6
dw $0100, 100, $0200
db 20, $00
db 12, 7, 8, 18, 5
dw $0200, 200, $0300
db 20, $00
db 12, 6, 8, 17, 4
dw $0300, 300, $0400
db 20, $00
db 6, 6, 8, 15, 4
dw $0500, 500, $0600
db 20, $00
db 6, 5, 6, 13, 3
dw $1100, 1100, $1200
db 20, $00
db 6, 5, 6, 10, 3
dw $1200, 1200, $1300
db 20, $00
db 6, 5, 6, 8, 3
sSHIRSpeedCurveEnd::
dw $FFFF
sPieceFastRotationStates::
; I
db 14, 1, 1, 1
db 2, 14, 14, 14
db 14, 1, 1, 1
db 2, 14, 14, 14
; Z
db 14, 1, 14, 1
db 2, 13, 1, 13
db 14, 1, 14, 1
db 2, 13, 1, 13
; S
db 15, 1, 12, 1
db 0, 14, 1, 14
db 15, 1, 12, 1
db 0, 14, 1, 14
; J
db 14, 1, 1, 14
db 1, 1, 13, 14
db 14, 14, 1, 1
db 1, 14, 13, 1
; L
db 14, 1, 1, 12
db 1, 14, 14, 1
db 16, 12, 1, 1
db 0, 1, 14, 14
; O
db 15, 1, 13, 1
db 15, 1, 13, 1
db 15, 1, 13, 1
db 15, 1, 13, 1
; T
db 14, 1, 1, 13
db 1, 14, 1, 13
db 15, 13, 1, 1
db 1, 13, 1, 14
sPieceRotationStates:: ; How each piece is rotated.
; I
db %0000
db %1111
db %0000
db %0000
db %0010
db %0010
db %0010
db %0010
db %0000
db %1111
db %0000
db %0000
db %0010
db %0010
db %0010
db %0010
; Z
db %0000
db %1100
db %0110
db %0000
db %0010
db %0110
db %0100
db %0000
db %0000
db %1100
db %0110
db %0000
db %0010
db %0110
db %0100
db %0000
; S
db %0000
db %0110
db %1100
db %0000
db %1000
db %1100
db %0100
db %0000
db %0000
db %0110
db %1100
db %0000
db %1000
db %1100
db %0100
db %0000
; J
db %0000
db %1110
db %0010
db %0000
db %0110
db %0100
db %0100
db %0000
db %0000
db %1000
db %1110
db %0000
db %0100
db %0100
db %1100
db %0000
; L
db %0000
db %1110
db %1000
db %0000
db %0100
db %0100
db %0110
db %0000
db %0000
db %0010
db %1110
db %0000
db %1100
db %0100
db %0100
db %0000
; O
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
; T
db %0000
db %1110
db %0100
db %0000
db %0100
db %0110
db %0100
db %0000
db %0000
db %0100
db %1110
db %0000
db %0100
db %1100
db %0100
db %0000
sTGM3Bag::
db 0, 0, 0, 0, 0
db 1, 1, 1, 1, 1
db 2, 2, 2, 2, 2
db 3, 3, 3, 3, 3
db 4, 4, 4, 4, 4
db 5, 5, 5, 5, 5
db 6, 6, 6, 6, 6
sTGM3Droughts::
db 0, 0, 0, 0, 0, 0, 0
ENDC

2185
src/field.asm
View File

File diff suppressed because it is too large Load Diff

65
src/include/globals.asm
View File

@ -23,6 +23,55 @@ INCLUDE "hardware.inc"
INCLUDE "structs.asm"
; Set up charmap.
CHARMAP " ", 1
CHARMAP "0", 66
CHARMAP "1", 67
CHARMAP "2", 68
CHARMAP "3", 69
CHARMAP "4", 70
CHARMAP "5", 71
CHARMAP "6", 72
CHARMAP "7", 73
CHARMAP "8", 74
CHARMAP "9", 75
CHARMAP "A", 76
CHARMAP "B", 77
CHARMAP "C", 78
CHARMAP "D", 79
CHARMAP "E", 80
CHARMAP "F", 81
CHARMAP "G", 82
CHARMAP "H", 83
CHARMAP "I", 84
CHARMAP "J", 85
CHARMAP "K", 86
CHARMAP "L", 87
CHARMAP "M", 88
CHARMAP "N", 89
CHARMAP "O", 90
CHARMAP "P", 91
CHARMAP "Q", 92
CHARMAP "R", 93
CHARMAP "S", 94
CHARMAP "T", 95
CHARMAP "U", 96
CHARMAP "V", 97
CHARMAP "W", 98
CHARMAP "X", 99
CHARMAP "Y", 100
CHARMAP "Z", 101
CHARMAP "!", 102
CHARMAP "?", 103
CHARMAP "[", 129
CHARMAP "]", 130
CHARMAP "/", 128
CHARMAP "-", 127
CHARMAP "#", 126
CHARMAP ".", 216
CHARMAP ":", 222
; Waits for PPU mode to be 0 or 1.
; We don't wait for 2 because it's super short and impractical to do much of anything in.
MACRO wait_vram
@ -87,11 +136,14 @@ MACRO lb
ENDM
; Magic bytes for save files.
DEF SAVE_MAGIC_0 EQU "D"
DEF SAVE_MAGIC_1 EQU "M"
DEF SAVE_MAGIC_2 EQU "G"
DEF SAVE_MAGIC_3 EQU "5"
; Bank names
DEF BANK_MAIN EQU 0
DEF BANK_OTHER EQU 1
DEF BANK_SFX EQU 2
DEF BANK_MUSIC EQU 3
DEF BANK_TITLE EQU 4
DEF BANK_GAMEPLAY EQU 5
DEF BANK_GAMEPLAY_BIG EQU 6
; Some useful palettes.
DEF PALETTE_REGULAR EQU %11100100
@ -231,6 +283,8 @@ DEF LEADY_TIME EQU 80
DEF GO_TIME EQU 40
DEF PIECE_SPAWN_X EQU 5
DEF PIECE_SPAWN_Y EQU 3
DEF PIECE_SPAWN_X_BIG EQU 3
DEF PIECE_SPAWN_Y_BIG EQU 3
DEF ROTATION_STATE_DEF EQU 0
DEF ROTATION_STATE_CW EQU 1
DEF ROTATION_STATE_180 EQU 2
@ -239,6 +293,7 @@ DEF ROTATION_STATE_CCW EQU 3
; Game states. (Let these increase by 3)
DEF STATE_TITLE EQU 0
DEF STATE_GAMEPLAY EQU 3
DEF STATE_GAMEPLAY_BIG EQU 6
; Other
DEF STACK_SIZE EQU 64

15
src/level.asm
View File

@ -43,6 +43,10 @@ hPrevHundreds:: ds 1
SECTION "Level Functions", ROM0
; Loads the initial state of the speed curve.
LevelInit::
; Bank to speed curve data.
ld b, BANK_OTHER
rst RSTSwitchBank
xor a, a
ldh [hRequiresLineClear], a
@ -98,6 +102,9 @@ LevelInit::
and a, $0F
ldh [hNLevel], a
; Restore the bank before returning.
rst RSTRestoreBank
jp DoSpeedUp
@ -303,6 +310,10 @@ LevelUp::
; Iterates over the speed curve and loads the new constants.
DoSpeedUp:
; Bank to speed curve data.
ld b, BANK_OTHER
rst RSTSwitchBank
; Load curve ptr.
ldh a, [hSpeedCurvePtr]
ld l, a
@ -344,12 +355,12 @@ DoSpeedUp:
; Do we want to force 20G?
ld a, [wAlways20GState]
cp a, 0
ret z
jp z, RSTRestoreBank
ld a, 20
ldh [hCurrentIntegerGravity], a
ld a, $00
ldh [hCurrentFractionalGravity], a
ret
jp RSTRestoreBank
ENDC

12
src/main.asm
View File

@ -20,9 +20,7 @@ DEF MAIN_ASM EQU 1
INCLUDE "globals.asm"
INCLUDE "res/tiles.inc"
INCLUDE "res/gameplay_map.inc"
INCLUDE "res/title_map.inc"
INCLUDE "res/other_data.inc"
SECTION "High Globals", HRAM
@ -85,13 +83,13 @@ Main::
ld [rRAMG], a
xor a, a
ld [rRAMB], a
ld a, BANK("Static Data")
ld a, BANK_OTHER
ld [rROMB0], a
; We use a single set of tiles for the entire game, so we copy it at the start.
ld de, Tiles
ld de, sTiles
ld hl, _VRAM
ld bc, TilesEnd - Tiles
ld bc, sTilesEnd - sTiles
call SafeMemCopy
; Clear OAM.
@ -138,6 +136,7 @@ EventLoop::
.eventloopjumps
jp TitleEventLoopHandler
jp GamePlayEventLoopHandler
jp GamePlayBigEventLoopHandler
EventLoopPostHandler::
; Wait for vblank.
@ -157,6 +156,7 @@ EventLoopPostHandler::
.vblankjumps
jp TitleVBlankHandler
jp BlitField
jp BlitField
; The VBlank Handler is expected to end with jp EventLoop.

230
src/res/gameplay_map.inc → src/res/gameplay_big_data.inc
View File

@ -15,12 +15,232 @@
; along with this program. If not, see <https://www.gnu.org/licenses/>.
IF !DEF(GAMEPLAY_MAP_INC)
DEF GAMEPLAY_MAP_INC EQU 1
IF !DEF(GAMEPLAY_BIG_MAP_INC)
DEF GAMEPLAY_BIG_MAP_INC EQU 1
SECTION "Gameplay Tilemap", ROMX, BANK[1]
GameplayTilemap::
INCLUDE "globals.asm"
SECTION "Gameplay Big Static Data", ROMX, BANK[BANK_GAMEPLAY_BIG]
sBigLeady:: db " READY? "
sBigGo:: db " GO "
sBigPause::
db "P A U S E "
db " P A U S E"
sBigPieceXOffsets:: ; How to draw each piece. X-offsets of the sprites.
db 0, 8, 16, 24 ; I
db 0, 8, 8, 16 ; Z
db 0, 8, 8, 16 ; S
db 0, 8, 16, 16 ; J
db 0, 0, 8, 16 ; L
db 8, 8, 16, 16 ; O
db 0, 8, 8, 16 ; T
sBigPieceYOffsets:: ; How to draw each piece. Y-offsets of the sprites.
db 0, 0, 0, 0 ; I
db 0, 0, 7, 7 ; Z
db 7, 7, 0, 0 ; S
db 0, 0, 0, 7 ; J
db 7, 0, 0, 0 ; L
db 0, 7, 0, 7 ; O
db 0, 0, 7, 0 ; T
sBigPieceFastRotationStates::
; I
db 14, 1, 1, 1
db 2, 14, 14, 14
db 14, 1, 1, 1
db 2, 14, 14, 14
; Z
db 14, 1, 14, 1
db 2, 13, 1, 13
db 14, 1, 14, 1
db 2, 13, 1, 13
; S
db 15, 1, 12, 1
db 0, 14, 1, 14
db 15, 1, 12, 1
db 0, 14, 1, 14
; J
db 14, 1, 1, 14
db 1, 1, 13, 14
db 14, 14, 1, 1
db 1, 14, 13, 1
; L
db 14, 1, 1, 12
db 1, 14, 14, 1
db 16, 12, 1, 1
db 0, 1, 14, 14
; O
db 15, 1, 13, 1
db 15, 1, 13, 1
db 15, 1, 13, 1
db 15, 1, 13, 1
; T
db 14, 1, 1, 13
db 1, 14, 1, 13
db 15, 13, 1, 1
db 1, 13, 1, 14
sBigPieceRotationStates:: ; How each piece is rotated.
; I
db %0000
db %1111
db %0000
db %0000
db %0010
db %0010
db %0010
db %0010
db %0000
db %1111
db %0000
db %0000
db %0010
db %0010
db %0010
db %0010
; Z
db %0000
db %1100
db %0110
db %0000
db %0010
db %0110
db %0100
db %0000
db %0000
db %1100
db %0110
db %0000
db %0010
db %0110
db %0100
db %0000
; S
db %0000
db %0110
db %1100
db %0000
db %1000
db %1100
db %0100
db %0000
db %0000
db %0110
db %1100
db %0000
db %1000
db %1100
db %0100
db %0000
; J
db %0000
db %1110
db %0010
db %0000
db %0110
db %0100
db %0100
db %0000
db %0000
db %1000
db %1110
db %0000
db %0100
db %0100
db %1100
db %0000
; L
db %0000
db %1110
db %1000
db %0000
db %0100
db %0100
db %0110
db %0000
db %0000
db %0010
db %1110
db %0000
db %1100
db %0100
db %0100
db %0000
; O
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
; T
db %0000
db %1110
db %0100
db %0000
db %0100
db %0110
db %0100
db %0000
db %0000
db %0100
db %1110
db %0000
db %0100
db %1100
db %0100
db %0000
sBigGameplayTileMap::
DB $02,$01,$01,$01,$01,$01,$01,$01,$01,$01
DB $01,$03,$09,$01,$01,$01,$01,$01,$01,$09
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
@ -87,7 +307,7 @@ GameplayTilemap::
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $02,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$03,$09,$01,$01,$01,$01,$01,$01,$09
GameplayTilemapEnd::
sBigGameplayTileMapEnd::
ENDC

325
src/res/gameplay_data.inc Normal file
View File

@ -0,0 +1,325 @@
; DMGTRIS
; Copyright (C) 2023 - Randy Thiemann <randy.thiemann@gmail.com>
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <https://www.gnu.org/licenses/>.
IF !DEF(GAMEPLAY_MAP_INC)
DEF GAMEPLAY_MAP_INC EQU 1
INCLUDE "globals.asm"
SECTION "Gameplay Static Data", ROMX, BANK[BANK_GAMEPLAY]
sLeady:: db " READY? "
sGo:: db " GO "
sPause::
db "P A U S E "
db " P A U S E"
sPieceXOffsets:: ; How to draw each piece. X-offsets of the sprites.
db 0, 8, 16, 24 ; I
db 0, 8, 8, 16 ; Z
db 0, 8, 8, 16 ; S
db 0, 8, 16, 16 ; J
db 0, 0, 8, 16 ; L
db 8, 8, 16, 16 ; O
db 0, 8, 8, 16 ; T
sPieceYOffsets:: ; How to draw each piece. Y-offsets of the sprites.
db 0, 0, 0, 0 ; I
db 0, 0, 7, 7 ; Z
db 7, 7, 0, 0 ; S
db 0, 0, 0, 7 ; J
db 7, 0, 0, 0 ; L
db 0, 7, 0, 7 ; O
db 0, 0, 7, 0 ; T
sPieceFastRotationStates::
; I
db 14, 1, 1, 1
db 2, 14, 14, 14
db 14, 1, 1, 1
db 2, 14, 14, 14
; Z
db 14, 1, 14, 1
db 2, 13, 1, 13
db 14, 1, 14, 1
db 2, 13, 1, 13
; S
db 15, 1, 12, 1
db 0, 14, 1, 14
db 15, 1, 12, 1
db 0, 14, 1, 14
; J
db 14, 1, 1, 14
db 1, 1, 13, 14
db 14, 14, 1, 1
db 1, 14, 13, 1
; L
db 14, 1, 1, 12
db 1, 14, 14, 1
db 16, 12, 1, 1
db 0, 1, 14, 14
; O
db 15, 1, 13, 1
db 15, 1, 13, 1
db 15, 1, 13, 1
db 15, 1, 13, 1
; T
db 14, 1, 1, 13
db 1, 14, 1, 13
db 15, 13, 1, 1
db 1, 13, 1, 14
sPieceRotationStates:: ; How each piece is rotated.
; I
db %0000
db %1111
db %0000
db %0000
db %0010
db %0010
db %0010
db %0010
db %0000
db %1111
db %0000
db %0000
db %0010
db %0010
db %0010
db %0010
; Z
db %0000
db %1100
db %0110
db %0000
db %0010
db %0110
db %0100
db %0000
db %0000
db %1100
db %0110
db %0000
db %0010
db %0110
db %0100
db %0000
; S
db %0000
db %0110
db %1100
db %0000
db %1000
db %1100
db %0100
db %0000
db %0000
db %0110
db %1100
db %0000
db %1000
db %1100
db %0100
db %0000
; J
db %0000
db %1110
db %0010
db %0000
db %0110
db %0100
db %0100
db %0000
db %0000
db %1000
db %1110
db %0000
db %0100
db %0100
db %1100
db %0000
; L
db %0000
db %1110
db %1000
db %0000
db %0100
db %0100
db %0110
db %0000
db %0000
db %0010
db %1110
db %0000
db %1100
db %0100
db %0100
db %0000
; O
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
db %0000
db %0110
db %0110
db %0000
; T
db %0000
db %1110
db %0100
db %0000
db %0100
db %0110
db %0100
db %0000
db %0000
db %0100
db %1110
db %0000
db %0100
db %1100
db %0100
db %0000
sTGM3Bag::
db 0, 0, 0, 0, 0
db 1, 1, 1, 1, 1
db 2, 2, 2, 2, 2
db 3, 3, 3, 3, 3
db 4, 4, 4, 4, 4
db 5, 5, 5, 5, 5
db 6, 6, 6, 6, 6
sTGM3Droughts::
db 0, 0, 0, 0, 0, 0, 0
sGameplayTileMap::
DB $02,$01,$01,$01,$01,$01,$01,$01,$01,$01
DB $01,$03,$09,$01,$01,$01,$01,$01,$01,$09
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$02,$01,$01,$01,$01,$01,$01,$01
DB $01,$01,$01,$03,$09,$59,$50,$63,$5F,$01
DB $01,$09,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$02,$01,$01,$01,$01,$01
DB $01,$01,$01,$01,$01,$03,$09,$01,$01,$01
DB $01,$01,$01,$09,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$02,$01,$01,$01
DB $01,$01,$01,$01,$01,$01,$01,$03,$09,$01
DB $01,$01,$01,$01,$01,$09,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$02,$01
DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$03
DB $09,$01,$01,$01,$01,$01,$01,$09,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $02,$01,$01,$01,$01,$01,$01,$01,$01,$01
DB $01,$03,$09,$01,$01,$01,$01,$01,$01,$09
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$02,$01,$01,$01,$01,$01,$01,$01
DB $01,$01,$01,$03,$08,$06,$06,$06,$06,$06
DB $06,$07,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$02,$01,$01,$01,$01,$01
DB $01,$01,$01,$01,$01,$03,$09,$53,$5A,$57
DB $4F,$01,$01,$09,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$02,$01,$01,$01
DB $01,$01,$01,$01,$01,$01,$01,$03,$09,$01
DB $01,$01,$01,$01,$01,$09,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$02,$01
DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$03
DB $09,$01,$01,$01,$01,$01,$01,$09,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $02,$01,$01,$01,$01,$01,$01,$01,$01,$01
DB $01,$03,$09,$01,$01,$01,$01,$01,$01,$09
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$02,$01,$01,$01,$01,$01,$01,$01
DB $01,$01,$01,$03,$09,$01,$01,$01,$01,$01
DB $01,$09,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$02,$01,$01,$01,$01,$01
DB $01,$01,$01,$01,$01,$03,$08,$06,$06,$06
DB $06,$06,$06,$07,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$02,$01,$01,$01
DB $01,$01,$01,$01,$01,$01,$01,$03,$09,$5E
DB $4E,$5A,$5D,$50,$01,$09,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$02,$01
DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$03
DB $09,$01,$01,$01,$01,$01,$01,$09,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $02,$01,$01,$01,$01,$01,$01,$01,$01,$01
DB $01,$03,$08,$06,$06,$06,$06,$06,$06,$07
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$02,$01,$01,$01,$01,$01,$01,$01
DB $01,$01,$01,$03,$09,$57,$50,$61,$50,$57
DB $01,$09,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$02,$01,$01,$01,$01,$01
DB $01,$01,$01,$01,$01,$03,$09,$01,$01,$01
DB $01,$01,$01,$09,$00,$00,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$02,$01,$01,$01
DB $01,$01,$01,$01,$01,$01,$01,$03,$09,$01
DB $05,$05,$05,$05,$01,$09,$00,$00,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$02,$01
DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$03
DB $09,$01,$01,$01,$01,$01,$01,$09,$00,$00
DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $02,$00,$00,$00,$00,$00,$00,$00,$00,$00
DB $00,$03,$09,$01,$01,$01,$01,$01,$01,$09
sGameplayTileMapEnd::
ENDC

6
src/res/music_data.inc
View File

@ -18,7 +18,11 @@
IF !DEF(MUSIC_DATA_INC)
DEF MUSIC_DATA_INC EQU 1
SECTION "Music Data", ROMX, BANK[3]
INCLUDE "globals.asm"
SECTION "Music Data", ROMX, BANK[BANK_MUSIC]
sMusicMenu::
db REG_NR12_CH1_VOLEV, $00, REG_NR14_CH1_FRQHI, $80, REG_NR22_CH2_VOLEV, $00, REG_NR24_CH2_FRQHI, $80

612
src/res/tiles.inc → src/res/other_data.inc
View File

@ -18,8 +18,614 @@
IF !DEF(TILES_INC)
DEF TILES_INC EQU 1
SECTION "Tile data", ROMX, BANK[1]
Tiles::
INCLUDE "globals.asm"
SECTION "Tile data", ROMX, BANK[BANK_OTHER]
; Speed curve data is defined as follows:
; N blocks of:
; dw BCD_START_LEVEL, START_LEVEL, BCD_NEXT_100_LEVEL_BREAKPOINT
; db GRID_CELLS_PER_MOVE_ON_OVERFLOW, INCREMENT_PER_FRAME (0 means overflow each frame)
; db NORMAL_ARE, LINE_ARE, DAS, LOCK_DELAY, CLEAR_DELAY
;
; Followed by one single:
; dw $FFFF
sDMGTSpeedCurve:: ; Speed curve of the game.
dw $0000, 0, $0100 ; Level 0000
db 1, 16
db 25, 15, 14, 30, 40
dw $0015, 15, $0100 ; Level 0015
db 1, 17
db 25, 15, 14, 30, 40
dw $0030, 30, $0100 ; Level 0030
db 1, 18
db 25, 15, 14, 30, 40
dw $0040, 40, $0100 ; Level 0040
db 1, 20
db 25, 15, 14, 30, 40
dw $0050, 50, $0100 ; Level 0050
db 1, 21
db 25, 15, 14, 30, 40
dw $0060, 60, $0100 ; Level 0060
db 1, 23
db 25, 15, 14, 30, 40
dw $0070, 70, $0100 ; Level 0070
db 1, 26
db 25, 15, 14, 30, 40
dw $0080, 80, $0100 ; Level 0080
db 1, 28
db 25, 15, 14, 30, 40
dw $0090, 90, $0100 ; Level 0090
db 1, 32
db 25, 15, 14, 30, 40
dw $0100, 100, $0200 ; Level 0100
db 1, 37
db 25, 15, 14, 30, 40
dw $0150, 150, $0200 ; Level 0150
db 1, 43
db 25, 15, 14, 30, 40
dw $0200, 200, $0300 ; Level 0200
db 1, 51
db 25, 15, 14, 30, 40
dw $0225, 225, $0300 ; Level 0225
db 1, 64
db 25, 15, 14, 30, 40
dw $0250, 250, $0300 ; Level 0250
db 1, 85
db 25, 15, 14, 30, 40
dw $0275, 275, $0300 ; Level 0275
db 1, 128
db 25, 15, 14, 30, 40
dw $0300, 300, $0400 ; Level 0300
db 1, $00
db 25, 7, 14, 30, 32
dw $0350, 350, $0350 ; Level 0350
db 2, $00
db 25, 7, 14, 30, 32
dw $0400, 400, $0400 ; Level 0400
db 3, $00
db 25, 7, 14, 30, 32
dw $0450, 450, $0500 ; Level 0450
db 4, $00
db 25, 7, 14, 30, 32
dw $0475, 475, $0500 ; Level 0475
db 5, $00
db 25, 7, 14, 30, 32
dw $0500, 500, $0600 ; Level 0500
db 20, $00
db 25, 6, 14, 30, 24
dw $0600, 600, $0700 ; Level 0600
db 20, $00
db 25, 6, 8, 30, 24
dw $0700, 700, $0800 ; Level 0700
db 20, $00
db 20, 6, 8, 30, 24
dw $0900, 900, $1000 ; Level 0900
db 20, $00
db 16, 4, 6, 25, 16
dw $1100, 1100, $1200 ; Level 1100
db 20, $00
db 12, 4, 6, 25, 16
dw $1200, 1200, $1300 ; Level 1200
db 20, $00
db 12, 4, 6, 25, 8
dw $1300, 1300, $1400 ; Level 1300
db 20, $00
db 10, 4, 6, 20, 7
dw $1400, 1400, $1500 ; Level 1400
db 20, $00
db 10, 4, 6, 18, 6
dw $1500, 1500, $1600 ; Level 1500
db 20, $00
db 8, 4, 4, 16, 5
dw $1600, 1600, $1700 ; Level 1600
db 20, $00
db 8, 4, 4, 14, 4
dw $1700, 1700, $1800 ; Level 1700
db 20, $00
db 6, 4, 4, 12, 3
dw $1800, 1800, $1900 ; Level 1800
db 20, $00
db 6, 4, 4, 10, 3
dw $1900, 1900, $2000 ; Level 1900
db 20, $00
db 4, 4, 4, 8, 3
dw $2000, 2000, $2100 ; Level 2000
db 20, $00
db 4, 4, 3, 8, 3
dw $2500, 2500, $2600 ; Level 2500
db 20, $00
db 2, 2, 1, 8, 2
dw $3000, 3000, $3100 ; Level 3000
db 20, $00
db 1, 1, 1, 8, 1
dw $4000, 4000, $4100 ; Level 4000
db 20, $00
db 1, 1, 1, 6, 1
dw $5000, 5000, $5100 ; Level 5000
db 20, $00
db 1, 1, 1, 4, 1
dw $6666, 6666, $6700 ; Level 6666
db 20, $00
db 1, 1, 1, 2, 1
dw $9999, 9999, $9999 ; Level 9999
db 20, $00
db 1, 1, 1, 1, 1
sDMGTSpeedCurveEnd::
dw $FFFF ; End.
sTGM1SpeedCurve::
dw $0000, 0, $0100
db 1, 4
db 30, 30, 16, 30, 41
dw $0030, 30, $0100
db 1, 6
db 30, 30, 16, 30, 41
dw $0035, 35, $0100
db 1, 8
db 30, 30, 16, 30, 41
dw $0040, 40, $0100
db 1, 10
db 30, 30, 16, 30, 41
dw $0050, 50, $0100
db 1, 12
db 30, 30, 16, 30, 41
dw $0060, 60, $0100
db 1, 16
db 30, 30, 16, 30, 41
dw $0070, 70, $0100
db 1, 32
db 30, 30, 16, 30, 41
dw $0080, 80, $0100
db 1, 48
db 30, 30, 16, 30, 41
dw $0090, 90, $0100
db 1, 64
db 30, 30, 16, 30, 41
dw $0100, 100, $0200
db 1, 80
db 30, 30, 16, 30, 41
dw $0120, 120, $0200
db 1, 96
db 30, 30, 16, 30, 41
dw $0140, 140, $0200
db 1, 112
db 30, 30, 16, 30, 41
dw $0160, 160, $0200
db 1, 128
db 30, 30, 16, 30, 41
dw $0170, 170, $0200
db 1, 144
db 30, 30, 16, 30, 41
dw $0200, 200, $0300
db 1, 4
db 30, 30, 16, 30, 41
dw $0220, 220, $0300
db 1, 32
db 30, 30, 16, 30, 41
dw $0230, 230, $0300
db 1, 64
db 30, 30, 16, 30, 41
dw $0233, 233, $0300
db 1, 96
db 30, 30, 16, 30, 41
dw $0236, 236, $0300
db 1, 128
db 30, 30, 16, 30, 41
dw $0239, 239, $0300
db 1, 160
db 30, 30, 16, 30, 41
dw $0243, 243, $0300
db 1, 192
db 30, 30, 16, 30, 41
dw $0247, 239, $0300
db 1, 224
db 30, 30, 16, 30, 41
dw $0251, 251, $0300
db 1, $00
db 30, 30, 16, 30, 41
dw $0300, 300, $0400
db 2, $00
db 30, 30, 16, 30, 41
dw $0330, 330, $0400
db 3, $00
db 30, 30, 16, 30, 41
dw $0360, 360, $0400
db 4, $00
db 30, 30, 16, 30, 41
dw $0400, 400, $0500
db 5, $00
db 30, 30, 16, 30, 41
dw $0420, 420, $0500
db 4, $00
db 30, 30, 16, 30, 41
dw $0450, 450, $0500
db 3, $00
db 30, 30, 16, 30, 41
dw $0500, 500, $0600
db 20, $00
db 30, 30, 16, 30, 41
sTGM1SpeedCurveEnd::
dw $FFFF
sCHILSpeedCurve::
dw $0000, 0, $0100
db 1, 5
db 10, 10, 16, 25, 17
dw $0100, 100, $0200
db 1, 6
db 10, 10, 16, 25, 17
dw $0200, 200, $0300
db 1, 7
db 10, 10, 16, 25, 17
dw $0300, 300, $0400
db 1, 8
db 10, 10, 16, 25, 17
dw $0400, 400, $0500
db 1, 9
db 10, 10, 16, 25, 17
dw $0500, 500, $0600
db 1, 11
db 10, 10, 16, 25, 17
dw $0600, 600, $0700
db 1, 14
db 10, 10, 16, 25, 17
dw $0700, 700, $0800
db 1, 20
db 10, 10, 16, 25, 17
dw $0800, 800, $0900
db 1, 32
db 10, 10, 16, 25, 17
dw $0900, 900, $1000
db 1, 43
db 10, 10, 16, 25, 17
dw $1000, 1000, $1100
db 1, 51
db 10, 10, 16, 25, 17
dw $1300, 1300, $1400
db 1, 64
db 10, 10, 16, 25, 17
dw $1600, 1600, $1700
db 1, 85
db 10, 10, 16, 25, 17
dw $1900, 1900, $2000
db 1, 128
db 10, 10, 16, 25, 17
dw $2900, 2900, $3000
db 1, $00
db 10, 10, 16, 25, 17
dw $3333, 3333, $3400
db 2, $00
db 10, 10, 12, 25, 17
dw $4444, 4444, $4500
db 3, $00
db 10, 10, 12, 25, 17
dw $5555, 5555, $5600
db 4, $00
db 10, 10, 12, 25, 17
dw $6666, 6666, $6700
db 5, $00
db 10, 10, 12, 25, 17
dw $7777, 7777, $7800
db 20, $00
db 10, 10, 8, 25, 17
dw $8888, 8888, $8900
db 20, $00
db 10, 10, 6, 18, 17
dw $9999, 9999, $9999
db 20, $00
db 5, 5, 6, 14, 10
sCHILSpeedCurveEnd::
dw $FFFF
sTGM3SpeedCurve::
dw $0000, 0, $0100
db 1, 4
db 27, 27, 16, 30, 40
dw $0030, 30, $0100
db 1, 6
db 27, 27, 16, 30, 40
dw $0035, 35, $0100
db 1, 8
db 27, 27, 16, 30, 40
dw $0040, 40, $0100
db 1, 10
db 27, 27, 16, 30, 40
dw $0050, 50, $0100
db 1, 12
db 27, 27, 16, 30, 40
dw $0060, 60, $0100
db 1, 16
db 27, 27, 16, 30, 40
dw $0070, 70, $0100
db 1, 32
db 27, 27, 16, 30, 40
dw $0080, 80, $0100
db 1, 48
db 27, 27, 16, 30, 40
dw $0090, 90, $0100
db 1, 64
db 27, 27, 16, 30, 40
dw $0100, 100, $0200
db 1, 80
db 27, 27, 16, 30, 40
dw $0120, 120, $0200
db 1, 96
db 27, 27, 16, 30, 40
dw $0140, 140, $0200
db 1, 112
db 27, 27, 16, 30, 40
dw $0160, 160, $0200
db 1, 128
db 27, 27, 16, 30, 40
dw $0170, 170, $0200
db 1, 144
db 27, 27, 16, 30, 40
dw $0200, 200, $0300
db 1, 4
db 27, 27, 16, 30, 40
dw $0220, 220, $0300
db 1, 32
db 27, 27, 16, 30, 40
dw $0230, 230, $0300
db 1, 64
db 27, 27, 16, 30, 40
dw $0233, 233, $0300
db 1, 96
db 27, 27, 16, 30, 40
dw $0236, 236, $0300
db 1, 128
db 27, 27, 16, 30, 40
dw $0239, 239, $0300
db 1, 160
db 27, 27, 16, 30, 40
dw $0243, 243, $0300
db 1, 192
db 27, 27, 16, 30, 40
dw $0247, 239, $0300
db 1, 224
db 27, 27, 16, 30, 40
dw $0251, 251, $0300
db 1, $00
db 27, 27, 16, 30, 40
dw $0300, 300, $0400
db 2, $00
db 27, 27, 16, 30, 40
dw $0330, 330, $0400
db 3, $00
db 27, 27, 16, 30, 40
dw $0360, 360, $0400
db 4, $00
db 27, 27, 16, 30, 40
dw $0400, 400, $0500
db 5, $00
db 27, 27, 16, 30, 40
dw $0420, 420, $0500
db 4, $00
db 27, 27, 16, 30, 40
dw $0450, 450, $0500
db 3, $00
db 27, 27, 16, 30, 40
dw $0500, 500, $0600
db 20, $00
db 27, 27, 10, 30, 25
dw $0600, 600, $0700
db 20, $00
db 27, 18, 10, 30, 16
dw $0700, 700, $0800
db 20, $00
db 18, 14, 10, 30, 12
dw $0800, 800, $0900
db 20, $00
db 14, 8, 10, 30, 6
dw $0900, 900, $1000
db 20, $00
db 14, 8, 8, 17, 6
dw $1000, 1000, $1100
db 20, $00
db 8, 8, 8, 17, 6
dw $1100, 1000, $1200
db 20, $00
db 7, 7, 8, 15, 6
dw $1200, 1000, $1300
db 20, $00
db 6, 6, 8, 15, 6
sTGM3SpeedCurveEnd::
dw $FFFF
sDEATSpeedCurve::
dw $0000, 0, $0100
db 20, $00
db 18, 14, 12, 30, 12
dw $0100, 0, $0200
db 20, $00
db 14, 8, 12, 26, 6
dw $0200, 0, $0300
db 20, $00
db 14, 8, 11, 22, 6
dw $0300, 0, $0400
db 20, $00
db 8, 8, 10, 18, 6
dw $0400, 0, $0500
db 20, $00
db 7, 7, 8, 15, 5
dw $0500, 0, $0600
db 20, $00
db 6, 6, 8, 15, 4
sDEATSpeedCurveEnd::
dw $FFFF
sSHIRSpeedCurve::
dw $0000, 0, $0100
db 20, $00
db 12, 8, 10, 18, 6
dw $0100, 100, $0200
db 20, $00
db 12, 7, 8, 18, 5
dw $0200, 200, $0300
db 20, $00
db 12, 6, 8, 17, 4
dw $0300, 300, $0400
db 20, $00
db 6, 6, 8, 15, 4
dw $0500, 500, $0600
db 20, $00
db 6, 5, 6, 13, 3
dw $1100, 1100, $1200
db 20, $00
db 6, 5, 6, 10, 3
dw $1200, 1200, $1300
db 20, $00
db 6, 5, 6, 8, 3
sSHIRSpeedCurveEnd::
dw $FFFF
sTiles::
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
DB $00,$00,$00,$00,$00,$00,$00,$00
@ -532,7 +1138,7 @@ Tiles::
DB $8A,$8A,$8A,$8A,$E4,$E4,$00,$00
DB $00,$00,$62,$62,$94,$94,$88,$88
DB $94,$94,$62,$62,$00,$00,$00,$00
TilesEnd::
sTilesEnd::
ENDC

6
src/res/sfx_data.inc
View File

@ -1,7 +1,11 @@
IF !DEF(SFX_DATA_INC)
DEF SFX_DATA_INC EQU 1
SECTION "SFX Data", ROMX, BANK[2]
INCLUDE "globals.asm"
SECTION "SFX Data", ROMX, BANK[BANK_SFX]
; These sound effects can contain any channel.
sSFXPieceI::
db REG_NR12_CH1_VOLEV, $F0, REG_NR22_CH2_VOLEV, $F0, REG_NR11_CH1_LENDT, $BF, REG_NR11_CH1_LENDT, $BF

59
src/res/title_map.inc → src/res/title_data.inc
View File

@ -19,8 +19,61 @@ IF !DEF(TITLE_MAP_INC)
DEF TITLE_MAP_INC EQU 1
SECTION "Title Screen Tilemap", ROMX, BANK[1]
TitleScreenTilemap::
INCLUDE "globals.asm"
SECTION "Title Screen Static Data", ROMX, BANK[BANK_TITLE]
sEasterM0:: db $C4, $C6, $C8, $CA, $CC
sEasterM1:: db $C5, $C7, $C9, $CB, $CD
sEasterC0:: db $CE, $D0, $C8, $CA, $CC, $72, $74, $76, $78, $7A, $D6, $D7
sEasterC1:: db $CF, $D1, $C9, $CB, $CD, $73, $75, $77, $79, $7B, $01, $01
sEasterA0:: db $D2, $D4, $C8, $CA, $CC, $72, $74, $76, $78, $7A, $D6, $D7
sEasterA1:: db $D3, $D5, $C9, $CB, $CD, $73, $75, $77, $79, $7B, $01, $01
sEasterS0:: db $F7, $F9, $C8, $CA, $CC
sEasterS1:: db $F8, $FA, $C9, $CB, $CD
sOption0::
db "NORM"
db " INV"
sOption1::
db "TGM1"
db "TGM2"
db "TGM3"
db "HELL"
db " NES"
sOption2::
db "ARS1"
db "ARS2"
db " NES"
sOption3::
db "FIRM"
db "SNIC"
db "HARD"
db "LOCK"
db "NONE"
sOption4::
db "DMGT"
db "TGM1"
db "TGM3"
db "DEAT"
db "SHIR"
db "CHIL"
sOption5::
db " NO"
db " YES"
sDisabled::
db "----"
sTitleScreenTileMap::
DB $C3,$5B,$4C,$59,$4F,$5A,$5D,$4C,$01,$59
DB $5A,$61,$4C,$01,$01,$FB,$FC,$FD,$FE,$FF
DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
@ -89,7 +142,7 @@ TitleScreenTilemap::
DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
DB $01,$01
TitleScreenTilemapEnd::
sTitleScreenTileMapEnd::
ENDC

3
src/rng.asm
View File

@ -58,6 +58,8 @@ RNGInit::
ldh [hRNGSeed+3], a
; TGM3 vars
ld b, BANK_GAMEPLAY
rst RSTSwitchBank
ld de, sTGM3Bag
ld hl, wTGM3Bag
ld bc, 35
@ -66,6 +68,7 @@ RNGInit::
ld hl, wTGM3Droughts
ld bc, 7
call UnsafeMemCopy
rst RSTRestoreBank
; Start with a random non-S/Z piece held.
: call Next7Piece

7
src/sfx.asm
View File

@ -421,7 +421,8 @@ SFXPlayNoise::
; Bail if it's null
ret z
ld b, BANK("SFX Data")
; Bank to sound effects.
ld b, BANK_SFX
rst RSTSwitchBank
; Get the register to write to
@ -469,10 +470,10 @@ SFXPlay::
ldh a, [hPlayQueue]
cp a, MUSIC_MENU
jr nz, :+
ld b, BANK("Music Data")
ld b, BANK_MUSIC
rst RSTSwitchBank
jr .play
: ld b, BANK("SFX Data")
: ld b, BANK_SFX
rst RSTSwitchBank
; Load the playhead position into HL.

20
src/sprites.asm
View File

@ -176,8 +176,18 @@ ApplyNext::
sub a, 7
; X positions
ld b, a
ldh a, [hGameState]
cp a, STATE_GAMEPLAY_BIG
ld a, b
jr nz, .regular
ld hl, sBigPieceXOffsets
ld de, sBigPieceYOffsets
jr .postoffsets
.regular
ld hl, sPieceXOffsets
ld de, sPieceYOffsets
.postoffsets
cp 0
jr z, .skipoffn
.getoffn
@ -296,8 +306,18 @@ ApplyHold::
; X positions
.x
ld b, a
ldh a, [hGameState]
cp a, STATE_GAMEPLAY_BIG
ld a, b
jr nz, .regular
ld hl, sBigPieceXOffsets
ld de, sBigPieceYOffsets
jr .postoffsets
.regular
ld hl, sPieceXOffsets
ld de, sPieceYOffsets
.postoffsets
cp 0
jr z, .skipoffh
.getoffh

658
src/state_gameplay.asm
View File

@ -20,6 +20,8 @@ DEF STATE_GAMEPLAY_ASM EQU 1
INCLUDE "globals.asm"
INCLUDE "res/gameplay_data.inc"
INCLUDE "res/gameplay_big_data.inc"
DEF MODE_LEADY EQU 0
@ -47,9 +49,43 @@ hPrePause: ds 1
hRequestedJingle: ds 1
SECTION "Gameplay Functions", ROM0
; Change to game play mode. The event loop will call the event loop and vblank handlers for this mode after this returns.
SECTION "Gameplay Function Trampolines", ROM0
; Trampolines to the banked function.
SwitchToGameplay::
ld b, BANK_GAMEPLAY
rst RSTSwitchBank
call SwitchToGameplayB
rst RSTRestoreBank
jp EventLoopPostHandler
; Trampolines to the banked function.
SwitchToGameplayBig::
ld b, BANK_GAMEPLAY_BIG
rst RSTSwitchBank
call SwitchToGameplayBigB
rst RSTRestoreBank
jp EventLoopPostHandler
; Banks and jumps to the actual handler.
GamePlayEventLoopHandler::
ld b, BANK_GAMEPLAY
rst RSTSwitchBank
call GamePlayEventLoopHandlerB
rst RSTRestoreBank
jp EventLoopPostHandler
; Banks and jumps to the actual handler.
GamePlayBigEventLoopHandler::
ld b, BANK_GAMEPLAY_BIG
rst RSTSwitchBank
call GamePlayBigEventLoopHandlerB
rst RSTRestoreBank
jp EventLoopPostHandler
SECTION "Gameplay Function Banked", ROMX, BANK[BANK_GAMEPLAY]
; Change to game play mode. The event loop will call the event loop and vblank handlers for this mode after this returns.
SwitchToGameplayB:
; Turn the screen off if it's on.
ldh a, [rLCDC]
and LCDCF_ON
@ -59,9 +95,9 @@ SwitchToGameplay::
ldh [rLCDC], a
; Load the gameplay tilemap.
: ld de, GameplayTilemap
: ld de, sGameplayTileMap
ld hl, $9800
ld bc, GameplayTilemapEnd - GameplayTilemap
ld bc, sGameplayTileMapEnd - sGameplayTileMap
call UnsafeMemCopy
; Clear OAM.
@ -115,7 +151,7 @@ SwitchToGameplay::
; Main gameplay event loop.
GamePlayEventLoopHandler::
GamePlayEventLoopHandlerB::
; What mode are we in?
ld hl, .modejumps
ldh a, [hMode]
@ -577,9 +613,7 @@ drawStaticInfo:
ld de, hNLevel
call ApplyNumbers
call GBCGameplayProcess
jp EventLoopPostHandler
jp GBCGameplayProcess
; Do the hold action.
@ -657,4 +691,612 @@ DoHold:
ret
SECTION "Gameplay Function Big Banked", ROMX, BANK[BANK_GAMEPLAY_BIG]
; Change to game play mode. The event loop will call the event loop and vblank handlers for this mode after this returns.
SwitchToGameplayBigB:
; Turn the screen off if it's on.
ldh a, [rLCDC]
and LCDCF_ON
jr z, :+ ; Screen is already off.
wait_vram
xor a, a
ldh [rLCDC], a
; Load the gameplay tilemap.
: ld de, sBigGameplayTileMap
ld hl, $9800
ld bc, sBigGameplayTileMapEnd - sBigGameplayTileMap
call UnsafeMemCopy
; Clear OAM.
call ClearOAM
call SetNumberSpritePositions
call ApplyTells
; Set up the palettes.
ld a, PALETTE_REGULAR
set_bg_palette
set_obj0_palette
ld a, PALETTE_LIGHTER_1
set_obj1_palette
; Initialize the RNG.
call RNGInit
; Initialize the score, level and field.
call ScoreInit
call LevelInit
call BigFieldInit
; We don't start with hold spent.
xor a, a
ldh [hHoldSpent], a
; Leady mode.
ld a, MODE_LEADY
ldh [hMode], a
ld a, LEADY_TIME
ldh [hModeCounter], a
; GBC init
call GBCGameplayInit
; Install the event loop handlers.
ld a, STATE_GAMEPLAY_BIG
ldh [hGameState], a
; And turn the LCD back on before we start.
ld a, LCDCF_ON | LCDCF_BGON | LCDCF_OBJON | LCDCF_BLK01
ldh [rLCDC], a
; Music end
call SFXKill
; Make sure the first game loop starts just like all the future ones.
wait_vblank
wait_vblank_end
ret
; Main gameplay event loop.
GamePlayBigEventLoopHandlerB:
; What mode are we in?
ld hl, .modejumps
ldh a, [hMode]
ld b, 0
ld c, a
add hl, bc
jp hl
.modejumps
jp .leadyMode
jp .goMode
jp .postGoMode
jp .prefetchedPieceMode
jp .spawnPieceMode
jp .pieceInMotionMode
jp .delayMode
jp .gameOverMode
jp .preGameOverMode
jp .pauseMode
; Draw "READY" and wait a bit.
.leadyMode
ldh a, [hModeCounter]
cp a, LEADY_TIME
jr nz, :+
call SFXKill
ld a, SFX_READYGO
call SFXEnqueue
ldh a, [hModeCounter]
: dec a
jr nz, :+
ld a, MODE_GO
ldh [hMode], a
ld a, GO_TIME
: ldh [hModeCounter], a
ld de, sBigLeady
ld hl, wField+(14*10)
ld bc, 10
call UnsafeMemCopy
jp .drawStaticInfo
; Draw "GO" and wait a bit.
.goMode
ldh a, [hModeCounter]
dec a
jr nz, :+
ld a, MODE_POSTGO
ldh [hMode], a
xor a, a
: ldh [hModeCounter], a
ld de, sBigGo
ld hl, wField+(14*10)
ld bc, 10
call UnsafeMemCopy
jp .drawStaticInfo
; Clear the field, fetch the piece, ready for gameplay.
.postGoMode
ld a, MODE_PREFETCHED_PIECE
ldh [hMode], a
call BigFieldClear
call BigToShadowField
ldh a, [hNextPiece]
ldh [hCurrentPiece], a
call GetNextPiece
jp .drawStaticInfo
; Fetch the next piece.
.prefetchedPieceMode
; A piece will spawn in the middle, at the top of the screen, not rotated by default.
ld a, $FF
ldh [hRequestedJingle], a
ld a, PIECE_SPAWN_X_BIG
ldh [hCurrentPieceX], a
ld a, PIECE_SPAWN_Y_BIG
ldh [hCurrentPieceY], a
xor a, a ; ROTATION_STATE_DEF
ldh [hCurrentPieceRotationState], a
ldh [hHoldSpent], a
; Check if IHS is requested.
; Apply the hold if so.
.checkIHS
ldh a, [hSelectState]
cp a, 0
jr z, .loaddefaultjingle
call BigDoHold
jr .postjingle
; Enqueue the jingle.
.loaddefaultjingle
ldh a, [hNextPiece]
ldh [hRequestedJingle], a
; Check if IRS is requested.
; Apply the rotation if so.
.checkIRSA
ld a, [wSwapABState]
cp a, 0
jr z, .lda1
.ldb1
ldh a, [hBState]
cp a, 0
jr z, .checkIRSB
ld a, $FF
ldh [hBState], a
jr .cp1
.lda1
ldh a, [hAState]
cp a, 0
jr z, .checkIRSB
ld a, $FF
ldh [hAState], a
.cp1
ld a, ROTATION_STATE_CCW
ldh [hCurrentPieceRotationState], a
ldh a, [hNextPiece]
ld b, a
ld a, SFX_IRS
or a, b
ldh [hRequestedJingle], a
jr .postjingle
.checkIRSB
ld a, [wSwapABState]
cp a, 0
jr z, .ldb2
.lda2
ldh a, [hAState]
cp a, 0
jr z, .postjingle
ld a, $FF
ldh [hAState], a
jr .cp2
.ldb2
ldh a, [hBState]
cp a, 0
jr z, .postjingle
ld a, $FF
ldh [hBState], a
.cp2
ld a, ROTATION_STATE_CW
ldh [hCurrentPieceRotationState], a
ldh a, [hNextPiece]
ld b, a
ld a, SFX_IRS
or a, b
ldh [hRequestedJingle], a
jr .postjingle
.postjingle
ld a, MODE_SPAWN_PIECE
ldh [hMode], a
; State falls through to the next.
; Spawn the piece.
.spawnPieceMode
call BigTrySpawnPiece
cp a, $FF
jr z, :+
ld a, MODE_PRE_GAME_OVER
ldh [hMode], a
jp .drawStaticInfo
: ld a, MODE_PIECE_IN_MOTION
ldh [hMode], a
; Play the next jingle... maybe!
ldh a, [hHoldSpent]
cp a, $FF
jr z, .pieceInMotionMode
ldh a, [hRequestedJingle]
cp a, $FF
jr z, .pieceInMotionMode
call SFXEnqueue
; This mode lasts for as long as the piece is in motion.
; Field will let us know when it has locked in place.
.pieceInMotionMode
ldh a, [hStartState]
cp a, 1
jr nz, :+
call BigToBackupField
ldh a, [hMode]
ldh [hPrePause], a
ld a, MODE_PAUSED
ldh [hMode], a
jp .drawStaticInfo
: call BigFieldProcess
; Do we hold?
ldh a, [hSelectState]
cp a, 1
jr nz, :+
ldh a, [hHoldSpent]
cp a, $FF
jr z, :+
; Reset position and rotation.
ld a, PIECE_SPAWN_X_BIG
ldh [hCurrentPieceX], a
ld a, PIECE_SPAWN_Y_BIG
ldh [hCurrentPieceY], a
xor a, a ; ROTATION_STATE_DEF
ldh [hCurrentPieceRotationState], a
call BigDoHold
ld a, MODE_SPAWN_PIECE
ldh [hMode], a
; Do we go into delay state?
: ldh a, [hCurrentLockDelayRemaining]
cp a, 0
jr nz, :+
ld a, MODE_DELAY
ldh [hMode], a
; No fall through this time.
: jp .drawStaticInfo
.delayMode
ldh a, [hStartState]
cp a, 1
jr nz, :+
call BigToBackupField
ldh a, [hMode]
ldh [hPrePause], a
ld a, MODE_PAUSED
ldh [hMode], a
jp .drawStaticInfo
: call BigFieldDelay
ldh a, [hRemainingDelay]
cp a, 0
jr nz, :+
ld a, MODE_PREFETCHED_PIECE
ldh [hMode], a
: jp .drawStaticInfo
.preGameOverMode
; Spawn the failed piece.
call BigForceSpawnPiece
; Draw the field in grey.
; Yes. This really unrolls the loop that many times.
ld hl, wField+(4*10)
REPT 60
ld a, [hl]
cp a, TILE_FIELD_EMPTY
jr nz, .notempty1\@
ld a, GAME_OVER_OTHER+1
ld [hl+], a
jr .skip1\@
.notempty1\@
ld a, GAME_OVER_OTHER
ld [hl+], a
.skip1\@
ENDR
DEF off = 0
REPT 10
ld a, [hl]
cp a, TILE_FIELD_EMPTY
jr nz, .notempty2\@
ld a, GAME_OVER_R10+10+off
ld [hl+], a
jr .skip2\@
.notempty2\@
ld a, GAME_OVER_R10+off
ld [hl+], a
.skip2\@
DEF off += 1
ENDR
REPT 10
ld a, [hl]
cp a, TILE_FIELD_EMPTY
jr nz, .notempty3\@
ld a, GAME_OVER_OTHER+1
ld [hl+], a
jr .skip3\@
.notempty3\@
ld a, GAME_OVER_OTHER
ld [hl+], a
.skip3\@
ENDR
DEF off = 0
REPT 10
ld a, [hl]
cp a, TILE_FIELD_EMPTY
jr nz, .notempty4\@
ld a, GAME_OVER_R12+10+off
ld [hl+], a
jr .skip4\@
.notempty4\@
ld a, GAME_OVER_R12+off
ld [hl+], a
.skip4\@
DEF off += 1
ENDR
REPT 10
ld a, [hl]
cp a, TILE_FIELD_EMPTY
jr nz, .notempty5\@
ld a, GAME_OVER_OTHER+1
ld [hl+], a
jr .skip5\@
.notempty5\@
ld a, GAME_OVER_OTHER
ld [hl+], a
.skip5\@
ENDR
DEF off = 0
REPT 10
ld a, [hl]
cp a, TILE_FIELD_EMPTY
jr nz, .notempty6\@
ld a, GAME_OVER_R14+10+off
ld [hl+], a
jr .skip6\@
.notempty6\@
ld a, GAME_OVER_R14+off
ld [hl+], a
.skip6\@
DEF off += 1
ENDR
REPT 90
ld a, [hl]
cp a, TILE_FIELD_EMPTY
jr nz, .notempty7\@
ld a, GAME_OVER_OTHER+1
ld [hl+], a
jr .skip7\@
.notempty7\@
ld a, GAME_OVER_OTHER
ld [hl+], a
.skip7\@
ENDR
ld a, MODE_GAME_OVER
ldh [hMode], a
.gameOverMode
; Retry?
ldh a, [hAState]
cp a, 1
jr nz, :+
call RNGInit
call ScoreInit
call LevelInit
call BigFieldInit
xor a, a
ldh [hHoldSpent], a
ld a, MODE_LEADY
ldh [hMode], a
ld a, LEADY_TIME
ldh [hModeCounter], a
jp .drawStaticInfo
; Quit
: ldh a, [hBState]
cp a, 1
jp nz, .drawStaticInfo
call SwitchToTitle
jp EventLoopPostHandler
.pauseMode
; Quick reset.
ldh a, [hAState]
cp a, 0
jr z, :+
ldh a, [hBState]
cp a, 0
jr z, :+
ldh a, [hSelectState]
cp a, 0
jr z, :+
call SwitchToTitle
jp EventLoopPostHandler
; Unpause
: ldh a, [hStartState]
cp a, 1
jr nz, :+
call BigFromBackupField
ldh a, [hPrePause]
ldh [hMode], a
jr .drawStaticInfo
; Draw PAUSE all over the field.
: ld de, sBigPause
ld hl, wField+(4*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(6*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(8*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(10*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(12*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(14*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(16*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(18*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(20*10)
ld bc, 20
call UnsafeMemCopy
ld de, sBigPause
ld hl, wField+(22*10)
ld bc, 20
call UnsafeMemCopy
jr .drawStaticInfo
; Always draw the score, level, next piece, and held piece.
.drawStaticInfo
: ldh a, [hNextPiece]
call ApplyNext
ldh a, [hHeldPiece]
call ApplyHold
ld hl, wSPRScore1
ld de, hScore
call ApplyNumbers
ld hl, wSPRCLevel1
ld de, hCLevel
call ApplyNumbers
ld hl, wSPRNLevel1
ld de, hNLevel
call ApplyNumbers
jp GBCGameplayProcess
; Do the hold action.
BigDoHold:
; Mark hold as spent.
ld a, $FF
ldh [hHoldSpent], a
; Check if IRS is requested.
; Apply the rotation if so.
.checkIRSHA
ld a, [wSwapABState]
cp a, 0
jr z, .lda3
.ldb3
ldh a, [hBState]
cp a, 0
jr z, .checkIRSHB
ld a, $FF
ldh [hBState], a
jr .cp3
.lda3
ldh a, [hAState]
cp a, 0
jr z, .checkIRSHB
ld a, $FF
ldh [hAState], a
.cp3
ld a, ROTATION_STATE_CCW
ldh [hCurrentPieceRotationState], a
call SFXKill
ld a, SFX_IRS | SFX_IHS
call SFXEnqueue
jr .doHoldOperation
.checkIRSHB
ld a, [wSwapABState]
cp a, 0
jr z, .ldb4
.lda4
ldh a, [hAState]
cp a, 0
jr z, .noRotation
ld a, $FF
ldh [hAState], a
jr .cp4
.ldb4
ldh a, [hBState]
cp a, 0
jr z, .noRotation
ld a, $FF
ldh [hBState], a
.cp4
ld a, ROTATION_STATE_CW
ldh [hCurrentPieceRotationState], a
call SFXKill
ld a, SFX_IRS | SFX_IHS
call SFXEnqueue
jr .doHoldOperation
.noRotation
call SFXKill
ld a, SFX_IHS
call SFXEnqueue
xor a, a ; ROTATION_STATE_DEF
ldh [hCurrentPieceRotationState], a
.doHoldOperation
ldh a, [hHeldPiece]
ld b, a
ldh a, [hCurrentPiece]
ldh [hHeldPiece], a
ld a, b
ldh [hCurrentPiece], a
ret
ENDC

225
src/state_title.asm
View File

@ -20,15 +20,99 @@ DEF STATE_TITLE_ASM EQU 1
INCLUDE "globals.asm"
INCLUDE "res/title_data.inc"
SECTION "Title Variables", WRAM0
wSelected:: ds 1
SECTION "Title Functions", ROM0
; Change to title mode. The event loop will call the event loop and vblank handlers for this mode after this returns.
SECTION "Title Function Trampolines", ROM0
; Trampolines to the banked function.
SwitchToTitle::
ld b, BANK_TITLE
rst RSTSwitchBank
call SwitchToTitleB
rst RSTRestoreBank
jp EventLoopPostHandler
; Banks and jumps to the actual handler.
TitleEventLoopHandler::
ld b, BANK_TITLE
rst RSTSwitchBank
call TitleEventLoopHandlerB
rst RSTRestoreBank
jp EventLoopPostHandler
; Banks and jumps to the actual handler.
TitleVBlankHandler::
ld b, BANK_TITLE
rst RSTSwitchBank
call TitleVBlankHandlerB
rst RSTRestoreBank
jp EventLoop
DrawOption6:
ld b, BANK_OTHER
rst RSTSwitchBank
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
ld a, [hl]
swap a
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+2
ld [hl], a
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
ld a, [hl]
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+3
ld [hl], a
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
inc hl
ld a, [hl]
swap a
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+0
ld [hl], a
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
inc hl
ld a, [hl]
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+1
ld [hl], a
jp RSTRestoreBank
SECTION "Title Functions Banked", ROMX, BANK[BANK_TITLE]
SwitchToTitleB:
; Turn the screen off if it's on.
ldh a, [rLCDC]
and LCDCF_ON
@ -38,9 +122,9 @@ SwitchToTitle::
ldh [rLCDC], a
; Load the gameplay tilemap.
: ld de, TitleScreenTilemap
: ld de, sTitleScreenTileMap
ld hl, $9800
ld bc, TitleScreenTilemapEnd - TitleScreenTilemap
ld bc, sTitleScreenTileMapEnd - sTitleScreenTileMap
call UnsafeMemCopy
; Title screen easter egg.
@ -136,9 +220,8 @@ SwitchToTitle::
wait_vblank_end
ret
; Handles title screen input.
TitleEventLoopHandler::
TitleEventLoopHandlerB:
call GBCTitleProcess
; Start game?
@ -152,8 +235,10 @@ TitleEventLoopHandler::
or a, c
cp a, 1
jr nz, .up
call SwitchToGameplay
jp EventLoopPostHandler
ldh a, [hSelectState]
cp a, 0
jp z, SwitchToGameplay
jp SwitchToGameplayBig
; Change menu selection?
.up
@ -165,10 +250,10 @@ TitleEventLoopHandler::
jr z, :+
dec a
ld [wSelected], a
jp EventLoopPostHandler
ret
: ld a, TITLE_OPTIONS-1
ld [wSelected], a
jp EventLoopPostHandler
ret
.down
ldh a, [hDownState]
@ -179,10 +264,10 @@ TitleEventLoopHandler::
jr z, :+
inc a
ld [wSelected], a
jp EventLoopPostHandler
ret
: xor a, a
ld [wSelected], a
jp EventLoopPostHandler
ret
.left
ldh a, [hLeftState]
@ -194,7 +279,8 @@ TitleEventLoopHandler::
and 3
cp a, 3
jr nz, .right
jp DecrementOption
call DecrementOption
ret
.right
ldh a, [hRightState]
@ -206,10 +292,10 @@ TitleEventLoopHandler::
and 3
cp a, 3
jr nz, .done
jp IncrementOption
call IncrementOption
.done
jp EventLoopPostHandler
ret
; Decrements the currently selected option.
@ -224,11 +310,11 @@ DecrementOption:
dec a
ld [wSwapABState], a
ld [rSwapABState], a
jp EventLoopPostHandler
ret
: ld a, BUTTON_MODE_COUNT-1
ld [wSwapABState], a
ld [rSwapABState], a
jp EventLoopPostHandler
ret
.opt1
cp a, 1
@ -239,11 +325,11 @@ DecrementOption:
dec a
ld [wRNGModeState], a
ld [rRNGModeState], a
jp EventLoopPostHandler
ret
: ld a, RNG_MODE_COUNT-1
ld [wRNGModeState], a
ld [rRNGModeState], a
jp EventLoopPostHandler
ret
.opt2
cp a, 2
@ -254,11 +340,11 @@ DecrementOption:
dec a
ld [wRotModeState], a
ld [rRotModeState], a
jp EventLoopPostHandler
ret
: ld a, ROT_MODE_COUNT-1
ld [wRotModeState], a
ld [rRotModeState], a
jp EventLoopPostHandler
ret
.opt3
cp a, 3
@ -269,11 +355,11 @@ DecrementOption:
dec a
ld [wDropModeState], a
ld [rDropModeState], a
jp EventLoopPostHandler
ret
: ld a, DROP_MODE_COUNT-1
ld [wDropModeState], a
ld [rDropModeState], a
jp EventLoopPostHandler
ret
.opt4
cp a, 4
@ -285,12 +371,12 @@ DecrementOption:
ld [wSpeedCurveState], a
ld [rSpeedCurveState], a
call InitSpeedCurve
jp EventLoopPostHandler
ret
: ld a, SCURVE_COUNT-1
ld [wSpeedCurveState], a
ld [rSpeedCurveState], a
call InitSpeedCurve
jp EventLoopPostHandler
ret
.opt5
cp a, 5
@ -301,15 +387,14 @@ DecrementOption:
dec a
ld [wAlways20GState], a
ld [rAlways20GState], a
jp EventLoopPostHandler
ret
: ld a, HIG_MODE_COUNT-1
ld [wAlways20GState], a
ld [rAlways20GState], a
jp EventLoopPostHandler
ret
.opt6
jr DecrementLevel
jp EventLoopPostHandler
; Decrements start level.
@ -327,7 +412,7 @@ DecrementLevel:
ld a, h
ldh [hStartSpeed+1], a
ld [rSelectedStartLevel+1], a
jp CheckLevelRange
ret
; Increments the selected option.
@ -342,11 +427,11 @@ IncrementOption:
inc a
ld [wSwapABState], a
ld [rSwapABState], a
jp EventLoopPostHandler
ret
: xor a, a
ld [wSwapABState], a
ld [rSwapABState], a
jp EventLoopPostHandler
ret
.opt1
cp a, 1
@ -357,11 +442,11 @@ IncrementOption:
inc a
ld [wRNGModeState], a
ld [rRNGModeState], a
jp EventLoopPostHandler
ret
: xor a, a
ld [wRNGModeState], a
ld [rRNGModeState], a
jp EventLoopPostHandler
ret
.opt2
cp a, 2
@ -372,11 +457,11 @@ IncrementOption:
inc a
ld [wRotModeState], a
ld [rRotModeState], a
jp EventLoopPostHandler
ret
: xor a, a
ld [wRotModeState], a
ld [rRotModeState], a
jp EventLoopPostHandler
ret
.opt3
cp a, 3
@ -387,11 +472,11 @@ IncrementOption:
inc a
ld [wDropModeState], a
ld [rDropModeState], a
jp EventLoopPostHandler
ret
: xor a, a
ld [wDropModeState], a
ld [rDropModeState], a
jp EventLoopPostHandler
ret
.opt4
cp a, 4
@ -403,12 +488,12 @@ IncrementOption:
ld [wSpeedCurveState], a
ld [rSpeedCurveState], a
call InitSpeedCurve
jp EventLoopPostHandler
ret
: xor a, a
ld [wSpeedCurveState], a
ld [rSpeedCurveState], a
call InitSpeedCurve
jp EventLoopPostHandler
ret
.opt5
cp a, 5
@ -419,15 +504,14 @@ IncrementOption:
inc a
ld [wAlways20GState], a
ld [rAlways20GState], a
jp EventLoopPostHandler
ret
: xor a, a
ld [wAlways20GState], a
ld [rAlways20GState], a
jp EventLoopPostHandler
ret
.opt6
jr IncrementLevel
jp EventLoopPostHandler
; Increments start level.
@ -557,11 +641,11 @@ CheckLevelRange:
ldh [hStartSpeed+1], a
.notatstart
jp EventLoopPostHandler
ret
; Handles the display of the menu.
TitleVBlankHandler::
TitleVBlankHandlerB:
call ToATTR
ld a, TILE_UNSELECTED
@ -707,58 +791,7 @@ TitleVBlankHandler::
; Draw option 6.
.opt6
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
ld a, [hl]
swap a
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+2
ld [hl], a
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
ld a, [hl]
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+3
ld [hl], a
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
inc hl
ld a, [hl]
swap a
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+0
ld [hl], a
ldh a, [hStartSpeed]
ld l, a
ldh a, [hStartSpeed+1]
ld h, a
inc hl
ld a, [hl]
and a, $0F
ld b, a
ld a, TILE_0
add a, b
ld hl, TITLE_OPTION_6+TITLE_OPTION_OFFSET+1
ld [hl], a
jp EventLoop
jp DrawOption6
ENDC