Big Chungus

This commit is contained in:
Randy Thiemann 2023-10-28 22:27:58 +02:00
parent eab894cd47
commit e036abee60
6 changed files with 355 additions and 18 deletions

Binary file not shown.

Binary file not shown.

View File

@ -33,6 +33,8 @@ SECTION "Field Variables", WRAM0
wField:: ds (10*24) wField:: ds (10*24)
wBackupField:: ds (10*24) wBackupField:: ds (10*24)
wShadowField:: ds (14*26) wShadowField:: ds (14*26)
wWideField:: ds (5*10)
wWideBlittedField:: ds (20*10)
wDelayState: ds 1 wDelayState: ds 1
@ -118,6 +120,62 @@ BlitField::
jp EventLoop jp EventLoop
; Blits the field onto the tile map.
; On the GBC, this chain calls into a special version that takes
; advantage of the GBC's CPU.
BigBlitField::
ld a, [wInitialA]
cp a, $11
jp z, GBCBlitField
; What to copy
ld de, wWideBlittedField
; Where to put it
ld hl, FIELD_TOP_LEFT
; How much to increment hl after each row
ld bc, 32-10
; The first 14 rows can be blitted without checking for vram access.
REPT 14
REPT 10
ld a, [de]
ld [hl+], a
inc de
ENDR
add hl, bc
ENDR
: ldh a, [rLY]
cp a, 0
jr nz, :-
; The last 6 rows need some care.
REPT 6
; Wait until start of drawing, then insert 35 nops.
: ldh a, [rSTAT]
and a, 3
cp a, 3
jr nz, :-
REPT 35
nop
ENDR
; Blit a line.
REPT 10
ld a, [de]
ld [hl+], a
inc de
ENDR
; Increment HL so that the next line can be blitted.
add hl, bc
ENDR
; This function is actually called as the vblank handler for the gameplay state.
; This is why it jumps straight back to the event loop.
jp EventLoop
SECTION "Field Function Banked Gameplay", ROMX, BANK[BANK_GAMEPLAY] SECTION "Field Function Banked Gameplay", ROMX, BANK[BANK_GAMEPLAY]
; Initializes the field completely blank. ; Initializes the field completely blank.
; Initializes the combo counter to 1. ; Initializes the combo counter to 1.
@ -2173,6 +2231,10 @@ BigFieldInit::
ld bc, 10*24 ld bc, 10*24
ld d, TILE_BLANK ld d, TILE_BLANK
call UnsafeMemSet call UnsafeMemSet
ld hl, wWideBlittedField
ld bc, 10*20
ld d, TILE_BLANK
call UnsafeMemSet
ld hl, wShadowField ld hl, wShadowField
ld bc, 14*26 ld bc, 14*26
ld d, $FF ld d, $FF
@ -3667,7 +3729,8 @@ BigFieldProcess::
pop hl pop hl
pop de pop de
call BigDrawPiece call BigDrawPiece
ret jp WidenField
; Performs a lookup to see how "locked" the piece is. ; Performs a lookup to see how "locked" the piece is.
BigGetTileShade: BigGetTileShade:
@ -3966,7 +4029,7 @@ BigFieldDelay::
dec a dec a
ldh [hRemainingDelay], a ldh [hRemainingDelay], a
cp a, 0 cp a, 0
ret nz jp nz, WidenField
call BigClearLines call BigClearLines
ld a, SFX_LINE_CLEAR ld a, SFX_LINE_CLEAR
@ -4000,7 +4063,7 @@ BigFieldDelay::
dec a dec a
ldh [hRemainingDelay], a ldh [hRemainingDelay], a
cp a, 0 cp a, 0
ret nz jp nz, WidenField
; Add one level if we're not at a breakpoint. ; Add one level if we're not at a breakpoint.
ldh a, [hRequiresLineClear] ldh a, [hRequiresLineClear]
@ -4228,4 +4291,60 @@ BigClearLines:
ret ret
WidenField::
ld de, wField+(4*10)
ld hl, wWideField
ld bc, 5
call UnsafeMemCopy
ld de, wField+(5*10)
ld hl, wWideField+5
ld bc, 5
call UnsafeMemCopy
ld de, wField+(6*10)
ld hl, wWideField+10
ld bc, 5
call UnsafeMemCopy
ld de, wField+(7*10)
ld hl, wWideField+15
ld bc, 5
call UnsafeMemCopy
ld de, wField+(8*10)
ld hl, wWideField+20
ld bc, 5
call UnsafeMemCopy
ld de, wField+(9*10)
ld hl, wWideField+25
ld bc, 5
call UnsafeMemCopy
ld de, wField+(10*10)
ld hl, wWideField+30
ld bc, 5
call UnsafeMemCopy
ld de, wField+(11*10)
ld hl, wWideField+35
ld bc, 5
call UnsafeMemCopy
ld de, wField+(12*10)
ld hl, wWideField+40
ld bc, 5
call UnsafeMemCopy
ld de, wField+(13*10)
ld hl, wWideField+45
ld bc, 5
call UnsafeMemCopy
DEF piece = 0
REPT 50
ld a, [wWideField+piece]
ld hl, wWideBlittedField+((piece/5)*20)+((piece%5) * 2)
ld [hl+], a
ld [hl], a
ld hl, wWideBlittedField+((piece/5)*20)+((piece%5) * 2)+10
ld [hl+], a
ld [hl], a
DEF piece += 1
ENDR
ret
ENDC ENDC

View File

@ -919,6 +919,223 @@ GBCGameplayProcess::
ret ret
GBCBigGameplayProcess::
ld a, [wInitialA]
cp a, $11
ret nz
; Color based on mode.
ld a, [wSpeedCurveState]
cp a, SCURVE_DMGT
ld a, $05 ;Blue
jr z, .goverride
ld a, [wSpeedCurveState]
cp a, SCURVE_TGM1
ld a, $06 ;Cyan
jr z, .goverride
ld a, [wSpeedCurveState]
cp a, SCURVE_TGM3
ld a, $03 ;Blue
jr z, .goverride
ld a, [wSpeedCurveState]
cp a, SCURVE_DEAT
ld a, $00 ;Red
jr z, .goverride
ld a, [wSpeedCurveState]
cp a, SCURVE_SHIR
ld a, $00 ;Red
jr z, .goverride ;Always red
ld a, [wSpeedCurveState]
cp a, SCURVE_CHIL
ld a, $01 ;Green
; Are we 20G?
.goverride
ld d, a
ldh a, [hCurrentIntegerGravity]
cp a, 20
jr c, :+
ld a, $00
ld d, a
jr .colorfield
: cp a, 3
jr c, :+
ld a, $04
ld d, a
jr .colorfield
: cp a, 2
jr c, :+
ld a, $05
ld d, a
jr .colorfield
: ldh a, [hCurrentFractionalGravity]
cp a, 0
jr nz, .colorfield
ld a, $05
ld d, a
.colorfield
ld hl, wShadowTileAttrs
ld bc, 32-12
ld a, 21
ld [wOuterReps], a
.outer0
ld a, 12
ld [wInnerReps], a
.inner0
ld [hl], d
inc hl
ld a, [wInnerReps]
dec a
ld [wInnerReps], a
jr nz, .inner0
add hl, bc
ld a, [wOuterReps]
dec a
ld [wOuterReps], a
jr nz, .outer0
; What to copy
: ld de, wWideBlittedField
; Where to put it
ld hl, wShadowTilemap + 1
; How much to increment hl after each row
ld bc, 32-10
; Blit me up daddy.
ld a, 20
ld [wOuterReps], a
.outer1
ld a, 10
ld [wInnerReps], a
.inner1
ld a, [de]
ld [hl+], a
inc de
ld a, [wInnerReps]
dec a
ld [wInnerReps], a
jr nz, .inner1
add hl, bc
ld a, [wOuterReps]
dec a
ld [wOuterReps], a
jr nz, .outer1
; What to copy
ld de, wWideBlittedField
; Where to put it
ld hl, wShadowTileAttrs + 1
; How much to increment hl after each row
ld bc, 32-10
; Blit me up daddy.
ld a, 20
ld [wOuterReps], a
.outer2
ld a, 10
ld [wInnerReps], a
.inner2
ld a, [de]
cp a, 10
jr c, .empty
cp a, 10 + (1*7)
jr c, .sub10
cp a, 10 + (2*7)
jr c, .sub17
cp a, 10 + (3*7)
jr c, .sub24
cp a, 10 + (4*7)
jr c, .sub31
cp a, 10 + (5*7)
jr c, .sub38
cp a, 10 + (6*7)
jr c, .sub45
cp a, 10 + (7*7)
jr c, .sub52
cp a, 10 + (8*7)
jr c, .sub59
.empty
ld a, $07
jr .done
.sub59
sub a, 7
.sub52
sub a, 7
.sub45
sub a, 7
.sub38
sub a, 7
.sub31
sub a, 7
.sub24
sub a, 7
.sub17
sub a, 7
.sub10
sub a, 10
.done
ld [hl+], a
inc de
ld a, [wInnerReps]
dec a
ld [wInnerReps], a
jr nz, .inner2
add hl, bc
ld a, [wOuterReps]
dec a
ld [wOuterReps], a
jr nz, .outer2
; Maybe flash numbers.
ldh a, [hCurrentIntegerGravity]
cp a, 20
jr nz, .black
ld hl, hFrameCtr
bit 4, [hl]
jr z, .lighter
.darker
ld a, OCPSF_AUTOINC | (7*8)+(3*2)
ldh [rOCPS], a
ld bc, R1 | G1
wait_vram
ld a, c
ldh [rOCPD], a
ld a, b
ldh [rOCPD], a
ret
.lighter
ld a, OCPSF_AUTOINC | (7*8)+(3*2)
ldh [rOCPS], a
ld bc, R2 | G2
wait_vram
ld a, c
ldh [rOCPD], a
ld a, b
ldh [rOCPD], a
ret
.black
ld a, OCPSF_AUTOINC | (7*8)+(3*2)
ldh [rOCPS], a
ld bc, R2 | B0
wait_vram
ld a, c
ldh [rOCPD], a
ld a, b
ldh [rOCPD], a
ret
; Copies the shadow tile maps to VRAM using HDMA. The attributes are copied using instant mode ; Copies the shadow tile maps to VRAM using HDMA. The attributes are copied using instant mode
; The tile data is done using hblank mode. ; The tile data is done using hblank mode.
GBCBlitField:: GBCBlitField::

View File

@ -156,7 +156,7 @@ EventLoopPostHandler::
.vblankjumps .vblankjumps
jp TitleVBlankHandler jp TitleVBlankHandler
jp BlitField jp BlitField
jp BlitField jp BigBlitField
; The VBlank Handler is expected to end with jp EventLoop. ; The VBlank Handler is expected to end with jp EventLoop.

View File

@ -797,7 +797,7 @@ GamePlayBigEventLoopHandlerB:
ld a, GO_TIME ld a, GO_TIME
: ldh [hModeCounter], a : ldh [hModeCounter], a
ld de, sBigLeady ld de, sBigLeady
ld hl, wField+(14*10) ld hl, wWideBlittedField+(10*10)
ld bc, 10 ld bc, 10
call UnsafeMemCopy call UnsafeMemCopy
jp .drawStaticInfo jp .drawStaticInfo
@ -813,7 +813,7 @@ GamePlayBigEventLoopHandlerB:
xor a, a xor a, a
: ldh [hModeCounter], a : ldh [hModeCounter], a
ld de, sBigGo ld de, sBigGo
ld hl, wField+(14*10) ld hl, wWideBlittedField+(10*10)
ld bc, 10 ld bc, 10
call UnsafeMemCopy call UnsafeMemCopy
jp .drawStaticInfo jp .drawStaticInfo
@ -1010,10 +1010,11 @@ GamePlayBigEventLoopHandlerB:
.preGameOverMode .preGameOverMode
; Spawn the failed piece. ; Spawn the failed piece.
call BigForceSpawnPiece call BigForceSpawnPiece
call WidenField
; Draw the field in grey. ; Draw the field in grey.
; Yes. This really unrolls the loop that many times. ; Yes. This really unrolls the loop that many times.
ld hl, wField+(4*10) ld hl, wWideBlittedField
REPT 60 REPT 60
ld a, [hl] ld a, [hl]
cp a, TILE_FIELD_EMPTY cp a, TILE_FIELD_EMPTY
@ -1159,43 +1160,43 @@ GamePlayBigEventLoopHandlerB:
; Draw PAUSE all over the field. ; Draw PAUSE all over the field.
: ld de, sBigPause : ld de, sBigPause
ld hl, wField+(4*10) ld hl, wWideBlittedField
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(6*10) ld hl, wWideBlittedField+20
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(8*10) ld hl, wWideBlittedField+40
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(10*10) ld hl, wWideBlittedField+60
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(12*10) ld hl, wWideBlittedField+80
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(14*10) ld hl, wWideBlittedField+100
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(16*10) ld hl, wWideBlittedField+120
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(18*10) ld hl, wWideBlittedField+140
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(20*10) ld hl, wWideBlittedField+160
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
ld de, sBigPause ld de, sBigPause
ld hl, wField+(22*10) ld hl, wWideBlittedField+180
ld bc, 20 ld bc, 20
call UnsafeMemCopy call UnsafeMemCopy
jr .drawStaticInfo jr .drawStaticInfo
@ -1221,7 +1222,7 @@ GamePlayBigEventLoopHandlerB:
ld de, hNLevel ld de, hNLevel
call ApplyNumbers call ApplyNumbers
jp GBCGameplayProcess jp GBCBigGameplayProcess
; Do the hold action. ; Do the hold action.