Merge pull request #61 from HydrantDude/Crash-Detection

Crash detection

Author: kirjavascript

CHANGELOG.md

@@ -1,6 +1,7 @@
 # Changelog
 
 ## [unreleased]
+* Crash Detection / Simulation
 * Crunch Mode
 * Marathon Mode
 * Hidden Score Mode
@@ -13,6 +14,7 @@
 * Fixed CNROM legal screen CHR bank
 * Fixed CNROM legal to title flicker
 * Block Tool pieces wrap around
+* Always Next Box removed
 * 0001 seeds are ignored
 * Famicom Keyboard support
 * MMC3 Support

README.md

@@ -76,7 +76,7 @@ Like in the original ROM, holding `a` `b` `select` and then pressing `start` wil
 
 ![Tetris](./assets/screens/levelmenu.png)
 
-Same gameplay as A-Type, with some improvements: no score cap, no rocket, no curtain, no music, always next box, better pause, start on any level.
+Same gameplay as A-Type, with some improvements: no score cap, no rocket, no curtain, no music, better pause, start on any level.
 
 ### T-Spins
 

src/chr/game_tileset.png

@@ -75,6 +75,7 @@ MODE_INVISIBLE
 MODE_HARDDROP
 MODE_SPEED_TEST
 MODE_SCORE_DISPLAY
+MODE_CRASH
 MODE_HZ_DISPLAY
 MODE_INPUT_DISPLAY
 MODE_DISABLE_FLASH
@@ -102,11 +103,16 @@ LINECAP_FLOOR := 2
 LINECAP_INVISIBLE := 3
 LINECAP_HALT := 4
 
+CRASH_SHOW := 0
+CRASH_TOPOUT := 1
+CRASH_CRASH := 2
+CRASH_OFF := 3
+
 LINECAP_WHEN_STRING_OFFSET := $10
 LINECAP_HOW_STRING_OFFSET := $12
 
 MENU_SPRITE_Y_BASE := $47
-MENU_MAX_Y_SCROLL := $78
+MENU_MAX_Y_SCROLL := $80
 MENU_TOP_MARGIN_SCROLL := 7 ; in blocks
 
 ; menuConfigSizeLookup
@@ -134,6 +140,7 @@ MENU_TOP_MARGIN_SCROLL := 7 ; in blocks
     .byte $0    ; MODE_HARDDROP
     .byte $0    ; MODE_SPEED_TEST
     .byte $5    ; MODE_SCORE_DISPLAY
+    .byte $3	; MODE_CRASH
     .byte $1    ; MODE_HZ_DISPLAY
     .byte $1    ; MODE_INPUT_DISPLAY
     .byte $1    ; MODE_DISABLE_FLASH

src/constants.asm

@@ -488,15 +488,16 @@ menuYTmp := tmp2
         cmp #MODE_SCORE_DISPLAY
         beq @renderScoreName
 
+        cmp #MODE_CRASH
+        beq @renderCrashMode
+
+
+        jsr menuItemY16Offset
+        bne @loopNext
+        txa
+
         ldx oamStagingLength
 
-        ; get Y offset
-        lda menuCounter
-        asl
-        asl
-        asl
-        adc #MENU_SPRITE_Y_BASE + 1
-        sbc menuScrollY
         sta oamStaging, x
         inx
         lda menuVars, y
@@ -547,6 +548,26 @@ menuYTmp := tmp2
         jsr stringSpriteAlignRight
         jmp @loopNext
 
+@renderCrashMode:
+        jsr menuItemY16Offset
+        bne @loopNext
+@doRender:
+        lda crashModifier
+        cmp #CRASH_OFF
+        bne @notOff
+        lda #$F1
+@notOff:
+        adc #$16
+        sta spriteIndexInOamContentLookup
+        lda #(MODE_CRASH*8) + MENU_SPRITE_Y_BASE + 1
+        sec
+        sbc menuScrollY
+        sta spriteYOffset
+        lda #$e9
+        sta spriteXOffset
+        jsr stringSpriteAlignRight
+        jmp @loopNext
+
 ; <- menu item index in A
 ; -> high byte of offset in A
 ; -> low byte in X

src/gamemode/gametypemenu/menu.asm

@@ -13,6 +13,11 @@ gameModeState_initGameState:
         lda #$05
         sta tetriminoX
 
+        ;init for crash frame parity
+        lda frameCounter
+        and #$01
+        sta startParity
+
         ; set seed init
         lda set_seed_input
         sta set_seed

src/gamemodestate/initstate.asm

@@ -6,7 +6,7 @@ gameModeState_updateCountersAndNonPlayerState:
         ; next code makes acc behave as normal
         ; (dont edit unless you know what you're doing)
         lda newlyPressedButtons_player1
-        and #$20
+        and #BUTTON_SELECT
         beq @ret
         lda displayNextPiece
         eor #$01

src/gamemodestate/updatecounters.asm

@@ -65,6 +65,7 @@ drawTiles(buffer, lookup, `
 #a    TAP/ROLL SPEED          d#
 `);drawTiles(extra, lookup, `
 #a    SCORING                 d#
+#a    CRASH                   d#
 #a    HZ DISPLAY              d#
 #a    INPUT DISPLAY           d#
 #a    DISABLE FLASH           d#
@@ -93,15 +94,14 @@ drawTiles(buffer, lookup, `
 #a                            d#
 #a                            d#
 #a                            d#
-#a                            d#
 `);
 
 
 drawRect(buffer, 8, 2, 10, 5, 0xB0); // draw logo
 // drawRect(extra, 20, 0, 5, 5, 0x9A); // draw QR code
 
 const urlX = 3;
-const urlY = 13;
+const urlY = 14;
 drawRect(extra, urlX, urlY, 12, 1, 0x74);
 drawRect(extra, urlX+12, urlY, 12, 1, 0x84);
 
@@ -134,8 +134,8 @@ drawAttrs(extra, [`
     2222222222222222
     2222222222222222
     2222222222222222
-    2333333333333332
     2222222222222222
+    2333333333333332
 `, screen]);
 
 writeRLE(

src/nametables/game_type_menu.js

@@ -25,6 +25,8 @@ nmi:    pha
         jsr generateNextPseudorandomNumber
         jsr copyCurrentScrollAndCtrlToPPU
         jsr pollControllerButtons
+        lda #$00
+        sta lagState ; clear flag after lag frame achieved
 .if KEYBOARD
 ; Read Family BASIC Keyboard
         jsr pollKeyboard
@@ -33,6 +35,9 @@ nmi:    pha
         sta verticalBlankingInterval
         pla
         tay
+        tsx
+        lda stack+4,x
+        sta nmiReturnAddr
         pla
         tax
         pla

src/nmi/nmi.asm

@@ -20,13 +20,19 @@ render_mode_play_and_demo:
         and #$01
         beq @renderLevel
 
+        ldx #linesPrev-lines
+        lda lagState
+        and #$02
+        bne @doLinesRender
+        ldx #$00
+@doLinesRender:
         lda #$20
         sta PPUADDR
         lda #$73
         sta PPUADDR
-        lda lines+1
+        lda lines+1,x
         sta PPUDATA
-        lda lines
+        lda lines,x
         jsr twoDigsToPPU
         jmp @doneRenderingLines
 
@@ -54,7 +60,13 @@ render_mode_play_and_demo:
         sta PPUADDR
         lda #$B9
         sta PPUADDR
-        lda levelNumber
+        ldx #levelPrev-levelNumber
+        lda lagState
+        and #$01
+        bne @doLevelRender
+        ldx #$00
+@doLevelRender:
+        lda levelNumber,x
         jsr renderByteBCD
         jmp @renderLevelEnd
 
@@ -90,6 +102,26 @@ render_mode_play_and_demo:
         ; 3 added in float
 
         ; scorecap
+        lda crashModifier
+        cmp #CRASH_SHOW
+        bne @noCrash
+        lda crashState
+        cmp #$F0
+        bne @noCrash
+
+        lda #$20
+        sta PPUADDR
+        lda #$FD
+        sta PPUADDR
+        lda #$D8
+        sta PPUDATA
+        lda #$3F
+        sta PPUADDR
+        lda #$0D
+        sta PPUADDR
+        lda #$3D
+        sta PPUDATA
+@noCrash:
         lda scoringModifier
         cmp #SCORING_HIDDEN
         bne @notHidden
@@ -275,7 +307,13 @@ rightColumns:
         .byte   $05,$06,$07,$08,$09
 ; Set Background palette 2 and Sprite palette 2
 updatePaletteForLevel:
-        lda levelNumber
+        ldx #levelPrev-levelNumber
+        lda lagState
+        and #$01
+        bne @loadLevelNumber
+        ldx #$00
+@loadLevelNumber:
+        lda levelNumber,x
 @mod10: cmp #$0A
         bmi @copyPalettes ; bcc fixes the colour bug
         sec