Compare commits
2 Commits
85699fd1c5
...
778d1cfe21
| Author | SHA1 | Date |
|---|---|---|
Randy Thiemann
|
778d1cfe21 | |
|
Randy Thiemann
|
3d9004a432 |
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
887
src/grading.asm
887
src/grading.asm
|
|
@ -24,7 +24,7 @@ INCLUDE "globals.asm"
|
||||||
|
|
||||||
SECTION "Grade Variables", WRAM0
|
SECTION "Grade Variables", WRAM0
|
||||||
wDecayRate: ds 1
|
wDecayRate: ds 1
|
||||||
wGradePoints: ds 1
|
wInternalGradePoints: ds 1
|
||||||
wInternalGrade: ds 1
|
wInternalGrade: ds 1
|
||||||
wDisplayedGrade:: ds 1
|
wDisplayedGrade:: ds 1
|
||||||
wEffectTimer:: ds 1
|
wEffectTimer:: ds 1
|
||||||
|
|
@ -38,140 +38,17 @@ wSRate: ds 1
|
||||||
wDRate: ds 1
|
wDRate: ds 1
|
||||||
wTRate: ds 1
|
wTRate: ds 1
|
||||||
wQRate: ds 1
|
wQRate: ds 1
|
||||||
|
wPrevCOOL: ds 3
|
||||||
|
wCOOLIsActive:: ds 1
|
||||||
|
wSubgrade: ds 1
|
||||||
|
wREGRETChecked:: ds 1
|
||||||
|
wGradeBoosts: ds 1
|
||||||
wTGM1level300RequirementMet: ds 1
|
wTGM1level300RequirementMet: ds 1
|
||||||
wTGM1level500RequirementMet: ds 1
|
wTGM1level500RequirementMet: ds 1
|
||||||
wTGM1level999RequirementMet: ds 1
|
wTGM1level999RequirementMet: ds 1
|
||||||
|
|
||||||
|
|
||||||
SECTION "Grading Data", ROM0
|
SECTION "Grading Data", ROMX, BANK[BANK_GAMEPLAY]
|
||||||
; The Score Thresholds are 3/4th of the original ones.
|
|
||||||
sTGM1GradeScores:
|
|
||||||
dw $0003 ;00 — 8
|
|
||||||
dw $0006 ;00 — 7
|
|
||||||
dw $0009 ;00 — 6
|
|
||||||
dw $0015 ;00 — 5
|
|
||||||
dw $0021 ;00 — 4
|
|
||||||
dw $0039 ;00 — 3
|
|
||||||
dw $0060 ;00 — 2
|
|
||||||
dw $0090 ;00 — 1
|
|
||||||
dw $0120 ;00 — S1
|
|
||||||
dw $0165 ;00 — S2
|
|
||||||
dw $0225 ;00 — S3
|
|
||||||
dw $0300 ;00 — S4
|
|
||||||
dw $0390 ;00 — S5
|
|
||||||
dw $0495 ;00 — S6
|
|
||||||
dw $0615 ;00 — S7
|
|
||||||
dw $0750 ;00 — S8
|
|
||||||
dw $0900 ;00 — S9
|
|
||||||
|
|
||||||
sTGM3InternalGradeSystem:
|
|
||||||
db 125, 10, 20, 40, 50 ;Decay rate, (Internal grade points awarded for:) Single, Double, Triple, Tetris
|
|
||||||
db 80, 10, 20, 30, 40
|
|
||||||
db 80, 10, 20, 30, 40
|
|
||||||
db 50, 10, 15, 30, 40
|
|
||||||
db 45, 5, 15, 20, 40
|
|
||||||
db 45, 5, 15, 20, 30
|
|
||||||
db 45, 5, 10, 20, 30
|
|
||||||
db 40, 5, 10, 15, 30
|
|
||||||
db 40, 5, 10, 15, 30
|
|
||||||
db 40, 5, 10, 15, 30
|
|
||||||
db 40, 2, 12, 13, 30
|
|
||||||
db 40, 2, 12, 13, 30
|
|
||||||
db 30, 2, 12, 13, 30
|
|
||||||
db 30, 2, 12, 13, 30
|
|
||||||
db 30, 2, 12, 13, 30
|
|
||||||
db 20, 2, 12, 13, 30
|
|
||||||
db 20, 2, 12, 13, 30
|
|
||||||
db 20, 2, 12, 13, 30
|
|
||||||
db 20, 2, 12, 13, 30
|
|
||||||
db 20, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 15, 2, 12, 13, 30
|
|
||||||
db 10, 2, 12, 13, 30
|
|
||||||
db 10, 2, 12, 13, 30
|
|
||||||
|
|
||||||
sTGM3GradeBoosts:
|
|
||||||
db 0
|
|
||||||
db 1
|
|
||||||
db 2
|
|
||||||
db 3
|
|
||||||
db 4
|
|
||||||
db 5
|
|
||||||
db 5
|
|
||||||
db 6
|
|
||||||
db 6
|
|
||||||
db 7
|
|
||||||
db 7
|
|
||||||
db 7
|
|
||||||
db 8
|
|
||||||
db 8
|
|
||||||
db 8
|
|
||||||
db 9
|
|
||||||
db 9
|
|
||||||
db 10
|
|
||||||
db 11
|
|
||||||
db 12
|
|
||||||
db 12
|
|
||||||
db 12
|
|
||||||
db 13
|
|
||||||
db 13
|
|
||||||
db 14
|
|
||||||
db 14
|
|
||||||
db 15
|
|
||||||
db 15
|
|
||||||
db 16
|
|
||||||
db 16
|
|
||||||
db 17
|
|
||||||
|
|
||||||
; sTGM3ComboMultipliers:
|
|
||||||
; db 1, 1.0, 1.0, 1.0, 1.0 ; Combo size, (Multiplier for: ) Single, Double, Triple, Tetris
|
|
||||||
; db 2, 1.0, 1.2, 1.4, 1.5
|
|
||||||
; db 3, 1.0, 1.2, 1.5, 1.8
|
|
||||||
; db 4, 1.0, 1.4, 1.6, 2.0
|
|
||||||
; db 5, 1.0, 1.4, 1.7, 2.2
|
|
||||||
; db 6, 1.0, 1.4, 1.8, 2.3
|
|
||||||
; db 7, 1.0, 1.4, 1.9, 2.4
|
|
||||||
; db 8, 1.0, 1.5, 2.0, 2.5
|
|
||||||
; db 9, 1.0, 1.5, 2.1, 2.6
|
|
||||||
; db 10, 2.0, 2.5, 3.0, 3.0
|
|
||||||
|
|
||||||
sTGM3LevelMultiplier:
|
|
||||||
db 1 ; 000-249
|
|
||||||
db 2 ; 250-499
|
|
||||||
db 3 ; 500-749
|
|
||||||
db 4 ; 750-999
|
|
||||||
|
|
||||||
sTGM3BaselineCOOL:
|
|
||||||
db 52 ;070 (value in seconds)
|
|
||||||
db 52 ;170
|
|
||||||
db 49 ;270
|
|
||||||
db 45 ;370
|
|
||||||
db 45 ;470
|
|
||||||
db 42 ;570
|
|
||||||
db 42 ;670
|
|
||||||
db 38 ;770
|
|
||||||
db 38 ;870
|
|
||||||
|
|
||||||
sTGM3REGRETConditions:
|
|
||||||
db 1, 30 ;minutes, seconds
|
|
||||||
db 1, 15
|
|
||||||
db 1, 15
|
|
||||||
db 1, 8
|
|
||||||
db 1, 0
|
|
||||||
db 1, 0
|
|
||||||
db 0, 50
|
|
||||||
db 0, 50
|
|
||||||
db 0, 50
|
|
||||||
db 0, 50
|
|
||||||
|
|
||||||
sDMGTGrading:
|
sDMGTGrading:
|
||||||
db 125, 10, 20, 40, 50 ; Grade 9 — frames/decay, single base, double base, triple base, tetris base
|
db 125, 10, 20, 40, 50 ; Grade 9 — frames/decay, single base, double base, triple base, tetris base
|
||||||
db 80, 10, 20, 30, 40 ; Grade 8 — frames/decay, single base, double base, triple base, tetris base
|
db 80, 10, 20, 30, 40 ; Grade 8 — frames/decay, single base, double base, triple base, tetris base
|
||||||
|
|
@ -229,18 +106,262 @@ sDMGTGaugeLUT:
|
||||||
db 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
|
db 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
|
||||||
db 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
|
db 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
|
||||||
|
|
||||||
SECTION "Grading Functions", ROM0
|
sTGM1GradeScores:
|
||||||
; Wipe the grading variables.
|
dw $0003 ;00 — 8
|
||||||
|
dw $0006 ;00 — 7
|
||||||
|
dw $0009 ;00 — 6
|
||||||
|
dw $0015 ;00 — 5
|
||||||
|
dw $0021 ;00 — 4
|
||||||
|
dw $0039 ;00 — 3
|
||||||
|
dw $0060 ;00 — 2
|
||||||
|
dw $0090 ;00 — 1
|
||||||
|
dw $0120 ;00 — S1
|
||||||
|
dw $0165 ;00 — S2
|
||||||
|
dw $0225 ;00 — S3
|
||||||
|
dw $0300 ;00 — S4
|
||||||
|
dw $0390 ;00 — S5
|
||||||
|
dw $0495 ;00 — S6
|
||||||
|
dw $0615 ;00 — S7
|
||||||
|
dw $0750 ;00 — S8
|
||||||
|
dw $0900 ;00 — S9
|
||||||
|
|
||||||
|
sTGM3InternalGradeSystem:
|
||||||
|
db 125, 10, 20, 40, 50 ;Decay rate, (Internal grade points awarded for:) Single, Double, Triple, Tetris
|
||||||
|
db 80, 10, 20, 30, 40
|
||||||
|
db 80, 10, 20, 30, 40
|
||||||
|
db 50, 10, 15, 30, 40
|
||||||
|
db 45, 5, 15, 20, 40
|
||||||
|
db 45, 5, 15, 20, 30
|
||||||
|
db 45, 5, 10, 20, 30
|
||||||
|
db 40, 5, 10, 15, 30
|
||||||
|
db 40, 5, 10, 15, 30
|
||||||
|
db 40, 5, 10, 15, 30
|
||||||
|
db 40, 2, 12, 13, 30
|
||||||
|
db 40, 2, 12, 13, 30
|
||||||
|
db 30, 2, 12, 13, 30
|
||||||
|
db 30, 2, 12, 13, 30
|
||||||
|
db 30, 2, 12, 13, 30
|
||||||
|
db 20, 2, 12, 13, 30
|
||||||
|
db 20, 2, 12, 13, 30
|
||||||
|
db 20, 2, 12, 13, 30
|
||||||
|
db 20, 2, 12, 13, 30
|
||||||
|
db 20, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 15, 2, 12, 13, 30
|
||||||
|
db 10, 2, 12, 13, 30
|
||||||
|
db 10, 2, 12, 13, 30
|
||||||
|
|
||||||
|
sTGM3GradeBoosts:
|
||||||
|
db 0 ;9 (0 = add 0, 1 = add 1)
|
||||||
|
db 1 ;8
|
||||||
|
db 1 ;7
|
||||||
|
db 1 ;6
|
||||||
|
db 1 ;5
|
||||||
|
db 1 ;4
|
||||||
|
db 0 ;4
|
||||||
|
db 1 ;3
|
||||||
|
db 0 ;3
|
||||||
|
db 1 ;2
|
||||||
|
db 0 ;2
|
||||||
|
db 0 ;2
|
||||||
|
db 1 ;1
|
||||||
|
db 0 ;1
|
||||||
|
db 0 ;1
|
||||||
|
db 1 ;S1 (yes, here you finally get into the S grades, unless you are very COOL)
|
||||||
|
db 0 ;S1
|
||||||
|
db 1 ;S2
|
||||||
|
db 1 ;S3
|
||||||
|
db 1 ;S4
|
||||||
|
db 0 ;S4
|
||||||
|
db 0 ;S4
|
||||||
|
db 1 ;S5
|
||||||
|
db 0 ;S5
|
||||||
|
db 1 ;S6
|
||||||
|
db 0 ;S6
|
||||||
|
db 1 ;S7
|
||||||
|
db 0 ;S7
|
||||||
|
db 1 ;S8
|
||||||
|
db 0 ;S8
|
||||||
|
db 1 ;S9
|
||||||
|
|
||||||
|
sTGM3HowManyInternalGradesToDecrease:
|
||||||
|
db 0 ;9 (0 = substract 0, 1 = substract 1, etc.)
|
||||||
|
db 1 ;8
|
||||||
|
db 1 ;7
|
||||||
|
db 1 ;6
|
||||||
|
db 1 ;5
|
||||||
|
db 1 ;4
|
||||||
|
db 2 ;4
|
||||||
|
db 1 ;3
|
||||||
|
db 2 ;3
|
||||||
|
db 1 ;2
|
||||||
|
db 2 ;2
|
||||||
|
db 3 ;2
|
||||||
|
db 1 ;1
|
||||||
|
db 2 ;1
|
||||||
|
db 3 ;1
|
||||||
|
db 1 ;S1
|
||||||
|
db 2 ;S1
|
||||||
|
db 1 ;S2
|
||||||
|
db 1 ;S3
|
||||||
|
db 1 ;S4
|
||||||
|
db 2 ;S4
|
||||||
|
db 3 ;S4
|
||||||
|
db 1 ;S5
|
||||||
|
db 2;S5
|
||||||
|
db 1 ;S6
|
||||||
|
db 2 ;S6
|
||||||
|
db 1 ;S7
|
||||||
|
db 2 ;S7
|
||||||
|
db 1 ;S8
|
||||||
|
db 2 ;S8
|
||||||
|
db 1 ;S9
|
||||||
|
|
||||||
|
sTGM3HowManyInternalGradesToIncrease:
|
||||||
|
db 1 ;9 (0 = add 0, 1 = add 1, etc.)
|
||||||
|
db 1 ;8
|
||||||
|
db 1 ;7
|
||||||
|
db 1 ;6
|
||||||
|
db 1 ;5
|
||||||
|
db 2 ;4
|
||||||
|
db 1 ;4
|
||||||
|
db 2 ;3
|
||||||
|
db 1 ;3
|
||||||
|
db 3 ;2
|
||||||
|
db 2 ;2
|
||||||
|
db 1 ;2
|
||||||
|
db 3 ;1
|
||||||
|
db 2 ;1
|
||||||
|
db 1 ;1
|
||||||
|
db 2 ;S1
|
||||||
|
db 1 ;S1
|
||||||
|
db 1 ;S2
|
||||||
|
db 1 ;S3
|
||||||
|
db 3 ;S4
|
||||||
|
db 2 ;S4
|
||||||
|
db 1 ;S4
|
||||||
|
db 2 ;S5
|
||||||
|
db 1 ;S5
|
||||||
|
db 2 ;S6
|
||||||
|
db 1 ;S6
|
||||||
|
db 2 ;S7
|
||||||
|
db 1 ;S7
|
||||||
|
db 2 ;S8
|
||||||
|
db 1 ;S8
|
||||||
|
db 1 ;S9
|
||||||
|
|
||||||
|
sTGM3ComboMultipliers:
|
||||||
|
db 1, 1, 1, 1, 1 ; Combo size, (Multiplier for: ) Single, Double, Triple, Tetris (Screw the fractional part, x.5 gets rounded down)
|
||||||
|
db 2, 1, 1, 1, 1
|
||||||
|
db 3, 1, 1, 1, 2
|
||||||
|
db 4, 1, 1, 2, 2
|
||||||
|
db 5, 1, 1, 2, 2
|
||||||
|
db 6, 1, 1, 2, 2
|
||||||
|
db 7, 1, 1, 2, 2
|
||||||
|
db 8, 1, 1, 2, 2
|
||||||
|
db 9, 1, 1, 2, 3
|
||||||
|
db 10, 2, 2, 3, 3
|
||||||
|
|
||||||
|
sTGM3LevelMultiplier:
|
||||||
|
db 2 ; 250-499
|
||||||
|
db 3 ; 500-749
|
||||||
|
db 4 ; 750-999
|
||||||
|
|
||||||
|
sTGM3BaselineCOOL:
|
||||||
|
db 52 ;070 (value in seconds)
|
||||||
|
db 52 ;170
|
||||||
|
db 49 ;270
|
||||||
|
db 45 ;370
|
||||||
|
db 45 ;470
|
||||||
|
db 42 ;570
|
||||||
|
db 42 ;670
|
||||||
|
db 38 ;770
|
||||||
|
db 38 ;870
|
||||||
|
|
||||||
|
sTGM3REGRETConditions:
|
||||||
|
db 1, 30 ;minutes, seconds
|
||||||
|
db 1, 15
|
||||||
|
db 1, 15
|
||||||
|
db 1, 8
|
||||||
|
db 1, 0
|
||||||
|
db 1, 0
|
||||||
|
db 0, 50
|
||||||
|
db 0, 50
|
||||||
|
db 0, 50
|
||||||
|
db 0, 50
|
||||||
|
|
||||||
|
sTGM3StaffrollGrading: ;subgrades awarded per line clear
|
||||||
|
db 1 ;Single
|
||||||
|
db 2 ;Double
|
||||||
|
db 3 ;Triple
|
||||||
|
db 10 ;Tetris
|
||||||
|
db 16 ;Clear
|
||||||
|
|
||||||
|
|
||||||
|
SECTION "Grading Functions Unbanked", ROM0
|
||||||
GradeInit::
|
GradeInit::
|
||||||
|
ld b, BANK_GAMEPLAY
|
||||||
|
rst RSTSwitchBank
|
||||||
|
call GradeInitB
|
||||||
|
jp RSTRestoreBank
|
||||||
|
|
||||||
|
UpdateGrade::
|
||||||
|
ld b, BANK_GAMEPLAY
|
||||||
|
rst RSTSwitchBank
|
||||||
|
call UpdateGradeB
|
||||||
|
jp RSTRestoreBank
|
||||||
|
|
||||||
|
DecayGradeProcess::
|
||||||
|
ld b, BANK_GAMEPLAY
|
||||||
|
rst RSTSwitchBank
|
||||||
|
call DecayGradeProcessB
|
||||||
|
jp RSTRestoreBank
|
||||||
|
|
||||||
|
DecayGradeDelay::
|
||||||
|
ld b, BANK_GAMEPLAY
|
||||||
|
rst RSTSwitchBank
|
||||||
|
call DecayGradeDelayB
|
||||||
|
jp RSTRestoreBank
|
||||||
|
|
||||||
|
TGM3REGRETHandler::
|
||||||
|
ld b, BANK_GAMEPLAY
|
||||||
|
rst RSTSwitchBank
|
||||||
|
call TGM3REGRETHandlerB
|
||||||
|
jp RSTRestoreBank
|
||||||
|
|
||||||
|
TGM3COOLHandler::
|
||||||
|
ld b, BANK_GAMEPLAY
|
||||||
|
rst RSTSwitchBank
|
||||||
|
call TGM3COOLHandlerB
|
||||||
|
jp RSTRestoreBank
|
||||||
|
|
||||||
|
|
||||||
|
SECTION "Grading Functions Banked", ROMX, BANK[BANK_GAMEPLAY]
|
||||||
|
; Wipe the grading variables.
|
||||||
|
GradeInitB:
|
||||||
xor a, a
|
xor a, a
|
||||||
ld [wDecayRate], a
|
ld [wDecayRate], a
|
||||||
ld [wGradePoints], a
|
ld [wInternalGradePoints], a
|
||||||
ld [wInternalGrade], a
|
|
||||||
ld [wDisplayedGrade], a
|
ld [wDisplayedGrade], a
|
||||||
ld [wRankingDisqualified], a
|
ld [wRankingDisqualified], a
|
||||||
ld [wEffectTimer], a
|
ld [wEffectTimer], a
|
||||||
ld [wDecayCounter], a
|
ld [wDecayCounter], a
|
||||||
ld [wGradeGauge], a
|
ld [wGradeGauge], a
|
||||||
|
ld [wSubgrade], a
|
||||||
|
ld [wGradeBoosts], a
|
||||||
|
ld [wCOOLIsActive], a
|
||||||
|
ld [wREGRETChecked], a
|
||||||
|
ld [wPrevCOOL], a
|
||||||
|
ld [wPrevCOOL+1], a
|
||||||
|
ld [wPrevCOOL+2], a
|
||||||
ld [wTGM1level300RequirementMet], a
|
ld [wTGM1level300RequirementMet], a
|
||||||
ld [wTGM1level500RequirementMet], a
|
ld [wTGM1level500RequirementMet], a
|
||||||
ld [wTGM1level999RequirementMet], a
|
ld [wTGM1level999RequirementMet], a
|
||||||
|
|
@ -249,10 +370,12 @@ GradeInit::
|
||||||
ld a, GRADE_NONE
|
ld a, GRADE_NONE
|
||||||
ld [wDisplayedGrade], a
|
ld [wDisplayedGrade], a
|
||||||
|
|
||||||
; TGM1 and DMGT are the exceptions.
|
; TGM1, TGM3, and DMGT are the exceptions.
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
cp a, SCURVE_TGM1
|
cp a, SCURVE_TGM1
|
||||||
jr z, .grade9start
|
jr z, .grade9start
|
||||||
|
cp a, SCURVE_TGM3
|
||||||
|
jr z, .grade9start
|
||||||
cp a, SCURVE_DMGT
|
cp a, SCURVE_DMGT
|
||||||
jr z, .grade9start
|
jr z, .grade9start
|
||||||
jr .end
|
jr .end
|
||||||
|
|
@ -262,11 +385,11 @@ GradeInit::
|
||||||
ld [wDisplayedGrade], a
|
ld [wDisplayedGrade], a
|
||||||
|
|
||||||
.end
|
.end
|
||||||
jr UpdateGrade
|
; Falls through intentionally.
|
||||||
|
|
||||||
|
|
||||||
; Jumps to the grade update function for the current mode.
|
; Jumps to the grade update function for the current mode.
|
||||||
UpdateGrade::
|
UpdateGradeB:
|
||||||
ld hl, .gradejumptable
|
ld hl, .gradejumptable
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
ld b, a
|
ld b, a
|
||||||
|
|
@ -280,7 +403,7 @@ UpdateGrade::
|
||||||
.gradejumptable
|
.gradejumptable
|
||||||
jp UpdateGradeDMGT ;DMGT
|
jp UpdateGradeDMGT ;DMGT
|
||||||
jp UpdateGradeTGM1 ;TGM1
|
jp UpdateGradeTGM1 ;TGM1
|
||||||
no_jump ;TGM3
|
jp UpdateGradeTGM3 ;TGM3
|
||||||
jp UpdateGradeDEAT ;DEAT
|
jp UpdateGradeDEAT ;DEAT
|
||||||
jp UpdateGradeSHIR ;SHIR
|
jp UpdateGradeSHIR ;SHIR
|
||||||
no_jump ;CHIL
|
no_jump ;CHIL
|
||||||
|
|
@ -289,7 +412,7 @@ UpdateGrade::
|
||||||
|
|
||||||
; Jumps to the grade decay function for the current mode.
|
; Jumps to the grade decay function for the current mode.
|
||||||
; Called once per frame where a piece is in motion.
|
; Called once per frame where a piece is in motion.
|
||||||
DecayGradeProcess::
|
DecayGradeProcessB:
|
||||||
ld hl, .gradejumptable
|
ld hl, .gradejumptable
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
ld b, a
|
ld b, a
|
||||||
|
|
@ -303,7 +426,7 @@ DecayGradeProcess::
|
||||||
.gradejumptable
|
.gradejumptable
|
||||||
jp DecayGradeDMGT ;DMGT
|
jp DecayGradeDMGT ;DMGT
|
||||||
no_jump ;TGM1
|
no_jump ;TGM1
|
||||||
no_jump ;TGM3
|
jp DecayGradeTGM3 ;TGM3
|
||||||
no_jump ;DEAT
|
no_jump ;DEAT
|
||||||
no_jump ;SHIR
|
no_jump ;SHIR
|
||||||
no_jump ;CHIL
|
no_jump ;CHIL
|
||||||
|
|
@ -312,7 +435,7 @@ DecayGradeProcess::
|
||||||
|
|
||||||
; Jumps to the grade decay function for the current mode.
|
; Jumps to the grade decay function for the current mode.
|
||||||
; Called once per frame during ARE and line clear delay.
|
; Called once per frame during ARE and line clear delay.
|
||||||
DecayGradeDelay::
|
DecayGradeDelayB:
|
||||||
ld hl, .gradejumptable
|
ld hl, .gradejumptable
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
ld b, a
|
ld b, a
|
||||||
|
|
@ -324,13 +447,13 @@ DecayGradeDelay::
|
||||||
jp hl
|
jp hl
|
||||||
|
|
||||||
.gradejumptable
|
.gradejumptable
|
||||||
no_jump ;DMGT
|
no_jump ;DMGT
|
||||||
no_jump ;TGM1
|
no_jump ;TGM1
|
||||||
no_jump ;TGM3
|
jp DecayGradeTGM3 ;TGM3
|
||||||
no_jump ;DEAT
|
no_jump ;DEAT
|
||||||
no_jump ;SHIR
|
no_jump ;SHIR
|
||||||
no_jump ;CHIL
|
no_jump ;CHIL
|
||||||
no_jump ;MYCO
|
no_jump ;MYCO
|
||||||
|
|
||||||
|
|
||||||
; Get the four most significant figures of the score in BC as BCD.
|
; Get the four most significant figures of the score in BC as BCD.
|
||||||
|
|
@ -349,7 +472,7 @@ PrepareScore:
|
||||||
ld b, a
|
ld b, a
|
||||||
ret
|
ret
|
||||||
|
|
||||||
DrawGradeProgressDMGT::
|
DrawGradeProgressDMGT:
|
||||||
ld a, [wDisplayedGrade]
|
ld a, [wDisplayedGrade]
|
||||||
cp a, GRADE_GM
|
cp a, GRADE_GM
|
||||||
jr nz, :+
|
jr nz, :+
|
||||||
|
|
@ -360,11 +483,12 @@ DrawGradeProgressDMGT::
|
||||||
ld b, 0
|
ld b, 0
|
||||||
ld c, a
|
ld c, a
|
||||||
add hl, bc
|
add hl, bc
|
||||||
|
|
||||||
ld a, [hl]
|
ld a, [hl]
|
||||||
call SetProgress
|
call SetProgress
|
||||||
ret
|
ret
|
||||||
|
|
||||||
UpdateGradeDMGT::
|
UpdateGradeDMGT:
|
||||||
; Check if the torikan hasn't been calculated.
|
; Check if the torikan hasn't been calculated.
|
||||||
ld a, [wRankingDisqualified]
|
ld a, [wRankingDisqualified]
|
||||||
cp a, $FF
|
cp a, $FF
|
||||||
|
|
@ -634,7 +758,7 @@ UpdateGradeDMGT::
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
|
||||||
DecayGradeDMGT::
|
DecayGradeDMGT:
|
||||||
; Bail if the gauge is empty.
|
; Bail if the gauge is empty.
|
||||||
ld a, [wGradeGauge]
|
ld a, [wGradeGauge]
|
||||||
or a, a
|
or a, a
|
||||||
|
|
@ -1093,4 +1217,465 @@ UpdateGradeSHIR:
|
||||||
ldh [hNLevel+3], a
|
ldh [hNLevel+3], a
|
||||||
jp TriggerKillScreen
|
jp TriggerKillScreen
|
||||||
|
|
||||||
|
|
||||||
|
UpdateGradeTGM3:
|
||||||
|
; First things first, Update our grade points.
|
||||||
|
.GradePoints
|
||||||
|
; Load the Table address to HL.
|
||||||
|
ld hl, sTGM3InternalGradeSystem
|
||||||
|
; Get the correct offset using the lines cleared on the frame and our current Internal Grade.
|
||||||
|
; Make sure the offsets are set properly and that the amount of Cleared lines isn't 0.
|
||||||
|
ld a, [wInternalGrade] ; Example: 3
|
||||||
|
cp a, 0 ; If it's 0, we don't need to do weird math.
|
||||||
|
jr z, .GetOffset
|
||||||
|
ld d, a ; ld d, 3
|
||||||
|
ld b, 5
|
||||||
|
ld a, b ; ld a, 5
|
||||||
|
dec d ;dec 3 to 2, so we don't accidentally add more than intended
|
||||||
|
: add a, b ; 5+5 = 10 ; 10+5 = 15
|
||||||
|
dec d
|
||||||
|
jr nz, :- ; go back if d isn't 0
|
||||||
|
ld b, a ; ld b, 15
|
||||||
|
|
||||||
|
.GetOffset
|
||||||
|
ld a, [hLineClearCt]
|
||||||
|
cp a, 0 ; If no lines were cleared, we don't need to do anything, just continue
|
||||||
|
jp z, .IncreaseInternalGrade
|
||||||
|
add a, b
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl]
|
||||||
|
ld e, a ; We will use almost all registers to get the multipliers, so we need to keep the points we should add in a safe spot
|
||||||
|
jp .multipliers
|
||||||
|
|
||||||
|
.loadpoints
|
||||||
|
ld hl, wInternalGradePoints
|
||||||
|
add a, [hl]
|
||||||
|
ld [wInternalGradePoints], a
|
||||||
|
jp .IncreaseInternalGrade
|
||||||
|
|
||||||
|
.multipliers
|
||||||
|
; There are some multipliers to help us increase our grade faster
|
||||||
|
ld hl, sTGM3ComboMultipliers
|
||||||
|
ld a, [hComboCt] ; Example: 3
|
||||||
|
cp a, 0
|
||||||
|
ld d, a ; ld d, 3
|
||||||
|
ld b, 5
|
||||||
|
ld a, b ; ld a, 5
|
||||||
|
dec d ;dec 3 to 2, so we don't accidentally add more than intended
|
||||||
|
: add a, b ; 5+5 = 10 ; 10+5 = 15
|
||||||
|
dec d
|
||||||
|
jr nz, :- ; go back if d isn't 0
|
||||||
|
ld b, a ; ld b, 15
|
||||||
|
ld a, [hLineClearCt]
|
||||||
|
cp a, 0 ; If no lines were cleared, we don't need to do anything, just continue
|
||||||
|
jr z, .levelmultiplier
|
||||||
|
add a, b
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl] ; Now we got our multiplier!, let's apply it.
|
||||||
|
dec a ; A multiplier of 1 shouldn't change anything, so let's get rid of them
|
||||||
|
cp a, 0
|
||||||
|
jr z, .levelmultiplier; Continue
|
||||||
|
ld b, a ; Load the multiplier into B
|
||||||
|
ld a, e ; Remember the points we got earlier?, here they are
|
||||||
|
ld c, a ; We will add from C
|
||||||
|
: add a, c
|
||||||
|
dec b
|
||||||
|
jr nz, :-
|
||||||
|
; Finally!, we can now load the points, right?, NO!, there is yet another multiplier...
|
||||||
|
; We have to keep the points safe again...
|
||||||
|
ld e, a
|
||||||
|
|
||||||
|
.levelmultiplier
|
||||||
|
; Make HL point to the table that contains the level multipliers
|
||||||
|
ld hl, sTGM3LevelMultiplier
|
||||||
|
; Get our level into BC
|
||||||
|
ld a, [hCLevel+3]
|
||||||
|
ld b, a
|
||||||
|
ld a, [hCLevel+2]
|
||||||
|
swap a
|
||||||
|
or b
|
||||||
|
ld c, a
|
||||||
|
ld a, [hCLevel+1]
|
||||||
|
ld b, a
|
||||||
|
ld a, [hCLevel]
|
||||||
|
swap a
|
||||||
|
or b
|
||||||
|
ld b, a
|
||||||
|
|
||||||
|
.Level750
|
||||||
|
; Is our level 750 or higher?
|
||||||
|
ld a, b
|
||||||
|
cp a, LEVEL_MULT_3A
|
||||||
|
; If B is less than 7, that means we are not even in level 700, so check for 500
|
||||||
|
jr c, .Level500
|
||||||
|
; If B is NOT less than 7, we might be in level 750 or greater, so check the remaining digits.
|
||||||
|
ld a, c
|
||||||
|
cp a, LEVEL_MULT_3B
|
||||||
|
; If C is less than 50, we didn't reach level 750 yet, but we are for sure in the 7** Section, load the corresponding offset.
|
||||||
|
jp .under750
|
||||||
|
; If C is equal or greater than 50, then congrats!, load the corresponding offset
|
||||||
|
ld b, 0
|
||||||
|
ld c, 2
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl]
|
||||||
|
jp .Multiply
|
||||||
|
|
||||||
|
.under750
|
||||||
|
ld b, 0
|
||||||
|
ld c, 1
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl]
|
||||||
|
|
||||||
|
.Level500
|
||||||
|
; Is our level 500 or higher?
|
||||||
|
ld a, b
|
||||||
|
cp a, LEVEL_MULT_2A
|
||||||
|
; If B is less than 5, that means we are not even in level 500, so check for 250
|
||||||
|
jr c, .Level250
|
||||||
|
; If B is NOT less than 5, we are in level 500 or greater
|
||||||
|
ld b, 0
|
||||||
|
ld c, 2
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl]
|
||||||
|
jp .Multiply
|
||||||
|
|
||||||
|
.Level250 ; There is no Offset, so just get the multiplier
|
||||||
|
; Is our level 750 or higher?
|
||||||
|
ld a, b
|
||||||
|
cp a, LEVEL_MULT_1A
|
||||||
|
; If B is less than 2, that means we are not even in level 200, so no multiplier
|
||||||
|
jr c, .under250
|
||||||
|
; If B is NOT less than 2, we might be in level 250 or greater, so check the remaining digits.
|
||||||
|
ld a, c
|
||||||
|
cp a, LEVEL_MULT_1B
|
||||||
|
; If C is less than 50, we didn't reach level 250 yet, so no multiplier
|
||||||
|
jp .under250
|
||||||
|
; If C is equal or greater than 50, then congrats!, load the corresponding offset (I said there is no Offset!)
|
||||||
|
ld a, [hl]
|
||||||
|
jp .Multiply
|
||||||
|
|
||||||
|
.under250 ; There is no multiplier, so just load the points
|
||||||
|
ld a, e
|
||||||
|
jp .loadpoints
|
||||||
|
|
||||||
|
.Multiply ; FINALLY!!!!!, This took forever!
|
||||||
|
ld b, a ; Load the multiplier into B
|
||||||
|
ld a, e ; Remember the points we got earlier?, here they are... Again.
|
||||||
|
ld c, a ; We will add from C
|
||||||
|
: add a, c
|
||||||
|
dec b
|
||||||
|
jr nz, :-
|
||||||
|
; AND NOW WE ARE DONE!, LOAD THOSE POINTS!
|
||||||
|
jp .loadpoints
|
||||||
|
|
||||||
|
.IncreaseInternalGrade
|
||||||
|
; Are we on level *00-*05?
|
||||||
|
ld a, [hCLevel+CLEVEL_ONES]
|
||||||
|
cp a, 6
|
||||||
|
; If we are, jump to the update COOL grade funcion just in case we have to apply a section COOL
|
||||||
|
jr c, CheckCOOL
|
||||||
|
; If not, continue
|
||||||
|
; Do we have 100 Grade Points?
|
||||||
|
ld a, [wInternalGradePoints]
|
||||||
|
cp a, 100
|
||||||
|
ret c ; If the Internal Grade Points is less than 100, return, we don't have to change our Grade
|
||||||
|
xor a, a ; Reset the points to 0 and increase the internal grade
|
||||||
|
ld [wInternalGradePoints], a
|
||||||
|
ld a, [wInternalGrade]
|
||||||
|
inc a
|
||||||
|
ld [wInternalGrade], a
|
||||||
|
; This falls to the next function, this is intentional
|
||||||
|
|
||||||
|
|
||||||
|
TGM3UpdateDisplayedGrade:
|
||||||
|
ld a, [wDisplayedGrade] ; If we are a GM Grade, return
|
||||||
|
cp a, GRADE_GM
|
||||||
|
ret z
|
||||||
|
ld a, GRADE_9 ; Load the lowest grade into a
|
||||||
|
ld b, a ; Then save it into b
|
||||||
|
ld hl, sTGM3GradeBoosts ; Make HL point to the Grade boosts table
|
||||||
|
ld a, [wInternalGrade] ; Get the offset
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl] ; Load the boosts to add into a...
|
||||||
|
ld b, a
|
||||||
|
|
||||||
|
.update
|
||||||
|
ld a, [wGradeBoosts] ; Load the boosts variable into A
|
||||||
|
add a, b ;Add the boosts
|
||||||
|
ld b, a
|
||||||
|
; HOLD IT!
|
||||||
|
ld a, [wCOOLIsActive] ; Did the player get a cool on this section?
|
||||||
|
cp a, 1
|
||||||
|
jp nz, .nocool ; If not, proceed as normal
|
||||||
|
; If it did, check if we are at level *00-*05
|
||||||
|
ld a, [hCLevel+CLEVEL_TENS]
|
||||||
|
cp a, 0
|
||||||
|
jr nz, .nocool
|
||||||
|
ld a, [hCLevel+CLEVEL_ONES]
|
||||||
|
cp a, 5
|
||||||
|
jr c, .cool
|
||||||
|
jr nz, .nocool ; If not, proceed as normal
|
||||||
|
|
||||||
|
.cool
|
||||||
|
ld hl, sTGM3HowManyInternalGradesToIncrease ; Make HL point to the..., yeah.
|
||||||
|
ld a, [wInternalGrade] ; Get the offset
|
||||||
|
ld d, a ; save the internal grade because we need it later
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl] ; Load the amount of internal grades to increase into a
|
||||||
|
add a, d ; Increase the internal grades
|
||||||
|
ld [wInternalGrade], a ; Load them
|
||||||
|
ld a, [wGradeBoosts] ; Load the boosts variable into A
|
||||||
|
inc a
|
||||||
|
ld [wGradeBoosts], a
|
||||||
|
ld [wDisplayedGrade], a ; Load the boosts into the displayed grade
|
||||||
|
xor a, a
|
||||||
|
ld [wCOOLIsActive], a ; Make the cool no longer be active
|
||||||
|
ret
|
||||||
|
|
||||||
|
.nocool
|
||||||
|
;ld [wDisplayedGrade], a ; HOLD IT!
|
||||||
|
ld a, [wDisplayedGrade]
|
||||||
|
cp a, b
|
||||||
|
ret z ; If the grade is the same, return.
|
||||||
|
ld a, b
|
||||||
|
; If the grade results in an S10, set it to m1
|
||||||
|
cp a, GRADE_S10
|
||||||
|
jr nz, .continue
|
||||||
|
ld a, GRADE_M1
|
||||||
|
|
||||||
|
.continue
|
||||||
|
ld [wDisplayedGrade], a ; Otherwise, set the grade.
|
||||||
|
ld [wGradeBoosts], a ; And the grade boosts too.
|
||||||
|
; ...Play the jingle.
|
||||||
|
ld a, SFX_RANKUP
|
||||||
|
call SFXEnqueue
|
||||||
|
; Prepare the effect stuff
|
||||||
|
ld a, $0f
|
||||||
|
ld [wEffectTimer], a
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
CheckCOOL:
|
||||||
|
ld a, [wCOOLIsActive] ; Did the player get a cool on this section?
|
||||||
|
cp a, 1
|
||||||
|
ret nz
|
||||||
|
; If it did, check if we are at level *00-*05
|
||||||
|
ld a, [hCLevel+CLEVEL_TENS]
|
||||||
|
cp a, 0
|
||||||
|
ret nz
|
||||||
|
ld a, [hCLevel+CLEVEL_ONES]
|
||||||
|
cp a, 5
|
||||||
|
jr c, .cool
|
||||||
|
ret nz ; If not, proceed as normal
|
||||||
|
|
||||||
|
.cool
|
||||||
|
ld hl, sTGM3HowManyInternalGradesToIncrease ; Make HL point to the..., yeah.
|
||||||
|
ld a, [wInternalGrade] ; Get the offset
|
||||||
|
ld d, a ; save the internal grade because we need it later
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl] ; Load the amount of internal grades to increase into a
|
||||||
|
add a, d ; Increase the internal grades
|
||||||
|
ld [wInternalGrade], a ; Load them
|
||||||
|
ld a, [wGradeBoosts] ; Load the boosts variable into A
|
||||||
|
inc a
|
||||||
|
ld [wGradeBoosts], a
|
||||||
|
ld [wDisplayedGrade], a ; Load the boosts into the displayed grade
|
||||||
|
xor a, a
|
||||||
|
ld [wCOOLIsActive], a ; Make the cool no longer be active
|
||||||
|
jp SkipSection
|
||||||
|
|
||||||
|
|
||||||
|
DecayGradeTGM3:
|
||||||
|
; Check if we can decrease the Grade points, if not, decrease the timer
|
||||||
|
ld a, [wDecayRate]
|
||||||
|
cp a, 0
|
||||||
|
jr z, .points
|
||||||
|
ld b, a ; Save the timer
|
||||||
|
ld a, [hComboCt] ; If there is an active combo, do not decrease the counter, return instead
|
||||||
|
dec a
|
||||||
|
and a
|
||||||
|
ret nz
|
||||||
|
ld a, b ; Load the timer back
|
||||||
|
dec a
|
||||||
|
ld [wDecayRate], a
|
||||||
|
ret
|
||||||
|
|
||||||
|
.points
|
||||||
|
ld a, [wInternalGradePoints] ; Do we have 0 grade points?
|
||||||
|
cp a, 0
|
||||||
|
ret z ; If so, return
|
||||||
|
dec a
|
||||||
|
cp a, 0 ; Do we have 0 now?
|
||||||
|
jr z, .lpoints ; If so, load the points, since we don't have any points to decay
|
||||||
|
; Else, load the points and the corresponding Decay Rate
|
||||||
|
ld [wInternalGradePoints], a
|
||||||
|
; Get the Decay Rate required
|
||||||
|
ld hl, sTGM3InternalGradeSystem
|
||||||
|
ld a, [wInternalGrade] ; Example: 3
|
||||||
|
cp a, 0 ; If it's 0, we don't need to do weird math.
|
||||||
|
jr z, .GetOffset
|
||||||
|
ld d, a ; ld d, 3
|
||||||
|
ld b, 5
|
||||||
|
ld a, b ; ld a, 5
|
||||||
|
dec d ;dec 3 to 2, so we don't accidentally add more than intended
|
||||||
|
: add a, b ; 5+5 = 10 ; 10+5 = 15
|
||||||
|
dec d
|
||||||
|
jr nz, :- ; go back if d isn't 0
|
||||||
|
|
||||||
|
.GetOffset
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl] ; Load the rate into a...
|
||||||
|
ld [wDecayRate], a ; ... and then into the timer
|
||||||
|
ret
|
||||||
|
|
||||||
|
.lpoints
|
||||||
|
ld [wInternalGradePoints], a
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
TGM3COOLHandlerB:
|
||||||
|
; First check our previous cool
|
||||||
|
ld a, [wPrevCOOL] ; Are the minutes 0?
|
||||||
|
cp a, 0
|
||||||
|
jr nz, .checkCOOL
|
||||||
|
; If so, check the seconds
|
||||||
|
ld a, [wPrevCOOL+1]
|
||||||
|
cp a, 0
|
||||||
|
jr nz, .checkCOOL
|
||||||
|
; The seconds are 0 too?, hmm, check the frames
|
||||||
|
ld a, [wPrevCOOL+2]
|
||||||
|
cp a, 0
|
||||||
|
jr nz, .checkCOOL
|
||||||
|
; No cool???, check the baseline cool then...
|
||||||
|
ld hl, sTGM3BaselineCOOL
|
||||||
|
ld a, [hCLevel+1]
|
||||||
|
add a
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl+]
|
||||||
|
ld b, a
|
||||||
|
ld a, [hl]
|
||||||
|
ld c, a
|
||||||
|
jp .checkBaselineCOOL
|
||||||
|
|
||||||
|
.checkCOOL
|
||||||
|
ld a, [wPrevCOOL]
|
||||||
|
ld b, a
|
||||||
|
ld a, [wPrevCOOL+1]
|
||||||
|
; Give the player 2 seconds to spare
|
||||||
|
sub a, 2
|
||||||
|
ld c, a
|
||||||
|
|
||||||
|
.checkBaselineCOOL
|
||||||
|
call CheckCOOL_REGRET
|
||||||
|
cp a, $ff
|
||||||
|
jp nz, .nocool
|
||||||
|
|
||||||
|
.cool ; If the player got a cool, set the active cool variable to 1, also set the previous cool variables to the correct value
|
||||||
|
ld a, 1
|
||||||
|
ld [wCOOLIsActive], a
|
||||||
|
ld a, [wSectionMinutes]
|
||||||
|
ld [wPrevCOOL], a
|
||||||
|
ld a, [wSectionSeconds]
|
||||||
|
ld [wPrevCOOL+1], a
|
||||||
|
ld a, [wSectionFrames]
|
||||||
|
ld [wPrevCOOL+2], a
|
||||||
|
ld a, 1 ; Leave a value in A so we know if the code ran
|
||||||
|
ret ; Done
|
||||||
|
|
||||||
|
.nocool ; If the player misses a cool, set the previous cool variables to 0, then return
|
||||||
|
ld [wPrevCOOL], a
|
||||||
|
ld [wPrevCOOL+1], a
|
||||||
|
ld [wPrevCOOL+2], a
|
||||||
|
ld a, 1 ; Leave a value in A so we know if the code ran
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
TGM3REGRETHandlerB: ; Check if we took too much time to complete a section
|
||||||
|
ld a, [wREGRETChecked] ; First, make sure we haven't checked before
|
||||||
|
cp a, 1
|
||||||
|
ret z ; If we did, just return
|
||||||
|
ld hl, sTGM3REGRETConditions
|
||||||
|
ld a, [hCLevel+1]
|
||||||
|
dec a
|
||||||
|
add a
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl+]
|
||||||
|
ld b, a
|
||||||
|
ld a, [hl]
|
||||||
|
ld c, a
|
||||||
|
call CheckCOOL_REGRET
|
||||||
|
cp a, 0
|
||||||
|
ret nz
|
||||||
|
|
||||||
|
.regret
|
||||||
|
ld a, [wInternalGrade]
|
||||||
|
cp a, 0
|
||||||
|
ret z
|
||||||
|
xor a, a
|
||||||
|
ld [wInternalGradePoints], a
|
||||||
|
ld a, [wGradeBoosts]
|
||||||
|
dec a
|
||||||
|
ld [wGradeBoosts], a
|
||||||
|
ld hl, sTGM3HowManyInternalGradesToDecrease ; Make HL point to the..., yeah.
|
||||||
|
ld a, [wInternalGrade] ; Get the offset
|
||||||
|
ld d, a ; save the internal grade because we need it later
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
ld a, [hl] ; Load the amount of internal grades to decrease into a
|
||||||
|
sub a, d ; Decrease the internal grades
|
||||||
|
ld [wInternalGrade], a ; Load them
|
||||||
|
ld a, [wGradeBoosts] ; Load the boosts variable into A
|
||||||
|
ld [wDisplayedGrade], a ; Load the boosts into the displayed grade
|
||||||
|
ld a, 1
|
||||||
|
ld [wREGRETChecked], a
|
||||||
|
ret ; Done
|
||||||
|
|
||||||
|
|
||||||
|
TGM3StaffRollGradeUpdate:
|
||||||
|
; Make HL Point to the Staffroll Table
|
||||||
|
ld hl, sTGM3StaffrollGrading
|
||||||
|
; Get the offset, if no lines were cleared, return
|
||||||
|
ld a, [hLineClearCt]
|
||||||
|
and a
|
||||||
|
ret z
|
||||||
|
dec a
|
||||||
|
ld b, 0
|
||||||
|
ld c, a
|
||||||
|
add hl, bc
|
||||||
|
; Load the value into A
|
||||||
|
ld a, [hl]
|
||||||
|
; And then add that to the subgrade variable
|
||||||
|
ld b, a
|
||||||
|
ld a, [wSubgrade]
|
||||||
|
add a, b
|
||||||
|
ld [wSubgrade], a
|
||||||
|
|
||||||
|
.UpdateGrade
|
||||||
|
cp a, $a
|
||||||
|
ret c
|
||||||
|
sub a, $a
|
||||||
|
ld [wSubgrade], a
|
||||||
|
ld a, [wDisplayedGrade]
|
||||||
|
inc a
|
||||||
|
ld [wDisplayedGrade], a
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
ENDC
|
ENDC
|
||||||
|
|
|
||||||
|
|
@ -403,6 +403,11 @@ DEF NLEVEL_THOUSANDS EQU 0
|
||||||
DEF NLEVEL_HUNDREDS EQU 1
|
DEF NLEVEL_HUNDREDS EQU 1
|
||||||
DEF NLEVEL_TENS EQU 2
|
DEF NLEVEL_TENS EQU 2
|
||||||
DEF NLEVEL_ONES EQU 3
|
DEF NLEVEL_ONES EQU 3
|
||||||
|
DEF LEVEL_MULT_1A EQU $02
|
||||||
|
DEF LEVEL_MULT_1B EQU $50
|
||||||
|
DEF LEVEL_MULT_2A EQU $05
|
||||||
|
DEF LEVEL_MULT_3A EQU $07
|
||||||
|
DEF LEVEL_MULT_3B EQU $50
|
||||||
|
|
||||||
; Title screens
|
; Title screens
|
||||||
DEF TITLE_MAIN EQU 0
|
DEF TITLE_MAIN EQU 0
|
||||||
|
|
|
||||||
|
|
@ -329,16 +329,16 @@ LevelUp::
|
||||||
ld hl, hCLevel+2
|
ld hl, hCLevel+2
|
||||||
ld a, [hl+]
|
ld a, [hl+]
|
||||||
cp a, 9
|
cp a, 9
|
||||||
jr nz, AdjustSpeedCurve
|
jp nz, AdjustSpeedCurve
|
||||||
ld a, [hl]
|
ld a, [hl]
|
||||||
cp a, 8
|
cp a, 8
|
||||||
jr nz, AdjustSpeedCurve
|
jp nz, AdjustSpeedCurve
|
||||||
ld a, $FF
|
ld a, $FF
|
||||||
ldh [hRequiresLineClear], a
|
ldh [hRequiresLineClear], a
|
||||||
call SFXKill
|
call SFXKill
|
||||||
ld a, SFX_LEVELLOCK
|
ld a, SFX_LEVELLOCK
|
||||||
call SFXEnqueue
|
call SFXEnqueue
|
||||||
jr .leveljinglemaybe
|
jp .leveljinglemaybe
|
||||||
|
|
||||||
; Otherwise check the second digit of wCLevel.
|
; Otherwise check the second digit of wCLevel.
|
||||||
: ld hl, hCLevel+1
|
: ld hl, hCLevel+1
|
||||||
|
|
@ -363,6 +363,62 @@ LevelUp::
|
||||||
ld hl, hNLevel+1
|
ld hl, hNLevel+1
|
||||||
ld [hl], a
|
ld [hl], a
|
||||||
|
|
||||||
|
; Check for regrets or cools
|
||||||
|
; Make sure we are at level *70-*78 and that we didn't check for the cool already
|
||||||
|
.checkcool
|
||||||
|
ld a, [wSpeedCurveState]
|
||||||
|
cp a, SCURVE_TGM3
|
||||||
|
jr nz, .bellmaybe
|
||||||
|
|
||||||
|
ld a, [wCOOLIsActive]
|
||||||
|
cp a, 1
|
||||||
|
jr z, .checkregret
|
||||||
|
ld a, [hCLevel+CLEVEL_TENS]
|
||||||
|
cp a, 7
|
||||||
|
jr nz, .checkregret
|
||||||
|
ld a, [hCLevel+CLEVEL_ONES]
|
||||||
|
cp a, 9
|
||||||
|
call c, TGM3COOLHandler
|
||||||
|
cp a, 1
|
||||||
|
jr z, .bellmaybe
|
||||||
|
|
||||||
|
.checkregret
|
||||||
|
; Make sure we are at level *00-*05 and that we haven't checked already. Reset the section timer, too.
|
||||||
|
ld a, [wREGRETChecked]
|
||||||
|
cp a, 1
|
||||||
|
jr z, .bellmaybe
|
||||||
|
ld a, [hCLevel+CLEVEL_TENS]
|
||||||
|
cp a, 0
|
||||||
|
jr nz, .regretavailable
|
||||||
|
ld a, [hCLevel+CLEVEL_ONES]
|
||||||
|
cp a, 6
|
||||||
|
call c, TGM3REGRETHandler
|
||||||
|
ld a, [wSectionTimerReset]
|
||||||
|
cp a, 1
|
||||||
|
jr z, .bellmaybe
|
||||||
|
|
||||||
|
.resetsectiontimer
|
||||||
|
ld a, [hCLevel+CLEVEL_HUNDREDS]
|
||||||
|
ld b, a
|
||||||
|
ld a, [hCLevel+CLEVEL_THOUSANDS]
|
||||||
|
swap a
|
||||||
|
or b
|
||||||
|
cp a, $00
|
||||||
|
jr z, .regretavailable
|
||||||
|
ld a, [hCLevel+CLEVEL_TENS]
|
||||||
|
cp a, 0
|
||||||
|
jr nz, .regretavailable
|
||||||
|
xor a, a
|
||||||
|
ld [wSectionMinutes], a
|
||||||
|
ld [wSectionSeconds], a
|
||||||
|
ld [wSectionFrames], a
|
||||||
|
inc a
|
||||||
|
ld [wSectionTimerReset], a
|
||||||
|
|
||||||
|
.regretavailable
|
||||||
|
xor a, a
|
||||||
|
ld [wREGRETChecked], a
|
||||||
|
|
||||||
.bellmaybe
|
.bellmaybe
|
||||||
; If the last two digits of wCLevel are 99, play the bell.
|
; If the last two digits of wCLevel are 99, play the bell.
|
||||||
ld hl, hCLevel+2
|
ld hl, hCLevel+2
|
||||||
|
|
|
||||||
|
|
@ -116,6 +116,7 @@ EventLoop::
|
||||||
; Wrangle inputs and timers at the start of every frame.
|
; Wrangle inputs and timers at the start of every frame.
|
||||||
call GetInput
|
call GetInput
|
||||||
call HandleTimers
|
call HandleTimers
|
||||||
|
call HandleSectionTimers
|
||||||
|
|
||||||
; Call the current state's event handler.
|
; Call the current state's event handler.
|
||||||
ld hl, .eventloopjumps
|
ld hl, .eventloopjumps
|
||||||
|
|
|
||||||
|
|
@ -607,10 +607,10 @@ sTGM3SpeedCurveEnd::
|
||||||
|
|
||||||
sTGM3SpeedCurveSpecialData::
|
sTGM3SpeedCurveSpecialData::
|
||||||
dw $FFFF ; When do we get bones?
|
dw $FFFF ; When do we get bones?
|
||||||
dw 1299 ; When do blocks turn invisible?
|
dw 999 ; When do blocks turn invisible?
|
||||||
dw 1299 ; When is the hard kill screen?
|
dw 999 ; When is the hard kill screen?
|
||||||
dw $1299 ; Same but in BCD.
|
dw $0999 ; Same but in BCD.
|
||||||
dw 1298 ; If the last level lock isn't at x99, where is it?
|
dw 998 ; If the last level lock isn't at x99, where is it?
|
||||||
dw 3600 ; How long does the staff roll last after the kill screen, in frames.
|
dw 3600 ; How long does the staff roll last after the kill screen, in frames.
|
||||||
db $00 ; Big mode in staff roll?
|
db $00 ; Big mode in staff roll?
|
||||||
|
|
||||||
|
|
@ -701,7 +701,7 @@ sSHIRSpeedCurveEnd::
|
||||||
dw $FFFF
|
dw $FFFF
|
||||||
|
|
||||||
sSHIRSpeedCurveSpecialData::
|
sSHIRSpeedCurveSpecialData::
|
||||||
dw 900 ; When do we get bones?
|
dw 1000 ; When do we get bones?
|
||||||
dw $FFFF ; When do blocks turn invisible?
|
dw $FFFF ; When do blocks turn invisible?
|
||||||
dw 1300 ; When is the hard kill screen?
|
dw 1300 ; When is the hard kill screen?
|
||||||
dw $1300 ; Same but in BCD.
|
dw $1300 ; Same but in BCD.
|
||||||
|
|
@ -1006,12 +1006,12 @@ sTitleTiles::
|
||||||
DB $00,$00,$00,$00,$00,$00,$00,$00
|
DB $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
DB $19,$19,$3F,$3F,$66,$66,$66,$66
|
DB $19,$19,$3F,$3F,$66,$66,$66,$66
|
||||||
DB $FF,$FF,$FF,$FF,$79,$79,$30,$30
|
DB $FF,$FF,$FF,$FF,$79,$79,$30,$30
|
||||||
DB $00,$00,$01,$01,$03,$03,$01,$01
|
DB $00,$00,$01,$00,$00,$00,$00,$00
|
||||||
DB $A1,$A1,$A1,$A1,$41,$41,$4B,$4B
|
DB $01,$00,$00,$00,$00,$00,$00,$00
|
||||||
DB $80,$80,$C0,$C0,$60,$60,$60,$60
|
DB $80,$80,$C0,$C0,$60,$60,$60,$60
|
||||||
DB $F0,$F0,$F0,$F0,$E0,$E0,$C0,$C0
|
DB $F0,$F0,$F0,$F0,$E0,$E0,$C0,$C0
|
||||||
DB $00,$00,$0C,$0C,$02,$02,$02,$02
|
DB $86,$00,$81,$00,$82,$00,$81,$00
|
||||||
DB $04,$04,$08,$08,$08,$08,$AE,$AE
|
DB $D6,$00,$00,$00,$00,$00,$00,$00
|
||||||
DB $C0,$C0,$F0,$F0,$FC,$FC,$FF,$FF
|
DB $C0,$C0,$F0,$F0,$FC,$FC,$FF,$FF
|
||||||
DB $FC,$FC,$F0,$F0,$C0,$C0,$00,$00
|
DB $FC,$FC,$F0,$F0,$C0,$C0,$00,$00
|
||||||
DB $C0,$00,$F0,$00,$FC,$00,$FF,$00
|
DB $C0,$00,$F0,$00,$FC,$00,$FF,$00
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
|
|
@ -161,7 +161,7 @@ sTetryEXITProfile::
|
||||||
db " "
|
db " "
|
||||||
|
|
||||||
sTitleAttrs::
|
sTitleAttrs::
|
||||||
db 7, 7, 7, 7, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 7, 7, 7, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
db 7, 7, 7, 7, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
||||||
db 1, 1, 1, 1, 3, 3, 3, 1, 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
db 1, 1, 1, 1, 3, 3, 3, 1, 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
||||||
db 1, 1, 1, 1, 3, 3, 3, 1, 3, 3, 3, 1, 3, 3, 3, 3, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
db 1, 1, 1, 1, 3, 3, 3, 1, 3, 3, 3, 1, 3, 3, 3, 3, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
||||||
db 1, 1, 1, 1, 4, 4, 4, 1, 4, 4, 4, 1, 4, 4, 4, 4, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
db 1, 1, 1, 1, 4, 4, 4, 1, 4, 4, 4, 1, 4, 4, 4, 4, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
||||||
|
|
|
||||||
|
|
@ -94,8 +94,6 @@ SwitchToGameplayB:
|
||||||
jr z, .ungraded
|
jr z, .ungraded
|
||||||
cp a, SCURVE_MYCO
|
cp a, SCURVE_MYCO
|
||||||
jr z, .ungraded
|
jr z, .ungraded
|
||||||
cp a, SCURVE_TGM3 ; TODO: Remove when this one has grades.
|
|
||||||
jr z, .ungraded
|
|
||||||
|
|
||||||
.graded
|
.graded
|
||||||
ld de, sGameplayTileMap
|
ld de, sGameplayTileMap
|
||||||
|
|
|
||||||
94
src/time.asm
94
src/time.asm
|
|
@ -31,8 +31,12 @@ SECTION "Time Variables", WRAM0
|
||||||
wMinutes:: ds 1
|
wMinutes:: ds 1
|
||||||
wSeconds:: ds 1
|
wSeconds:: ds 1
|
||||||
wFrames:: ds 1
|
wFrames:: ds 1
|
||||||
|
wSectionMinutes:: ds 1
|
||||||
|
wSectionSeconds:: ds 1
|
||||||
|
wSectionFrames:: ds 1
|
||||||
wCountDown:: ds 2
|
wCountDown:: ds 2
|
||||||
wCountDownZero:: ds 1
|
wCountDownZero:: ds 1
|
||||||
|
wSectionTimerReset:: ds 1
|
||||||
|
|
||||||
|
|
||||||
SECTION "Time Data", ROM0
|
SECTION "Time Data", ROM0
|
||||||
|
|
@ -61,6 +65,9 @@ TimeInit::
|
||||||
ld [wFrames], a
|
ld [wFrames], a
|
||||||
ld [wCountDown], a
|
ld [wCountDown], a
|
||||||
ld [wCountDown+1], a
|
ld [wCountDown+1], a
|
||||||
|
ld [wSectionMinutes], a
|
||||||
|
ld [wSectionSeconds], a
|
||||||
|
ld [wSectionFrames], a
|
||||||
ld a , $FF
|
ld a , $FF
|
||||||
ld [wCountDownZero], a
|
ld [wCountDownZero], a
|
||||||
ld a, TACF_262KHZ | TACF_START
|
ld a, TACF_262KHZ | TACF_START
|
||||||
|
|
@ -86,6 +93,9 @@ ResetGameTime::
|
||||||
ld [wMinutes], a
|
ld [wMinutes], a
|
||||||
ld [wSeconds], a
|
ld [wSeconds], a
|
||||||
ld [wFrames], a
|
ld [wFrames], a
|
||||||
|
ld [wSectionMinutes], a
|
||||||
|
ld [wSectionSeconds], a
|
||||||
|
ld [wSectionFrames], a
|
||||||
ret
|
ret
|
||||||
|
|
||||||
; Checks if the minute-second timer has reached a certain value.
|
; Checks if the minute-second timer has reached a certain value.
|
||||||
|
|
@ -198,4 +208,88 @@ HandleTimers::
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
CheckCOOL_REGRET::
|
||||||
|
; Okay if minutes are less than max minutes.
|
||||||
|
ld a, [wSectionMinutes]
|
||||||
|
cp a, b
|
||||||
|
jr c, .success
|
||||||
|
|
||||||
|
; Check seconds if minutes are equal.
|
||||||
|
jr nz, .failure
|
||||||
|
|
||||||
|
; Okay if seconds are less than max seconds.
|
||||||
|
ld a, [wSectionSeconds]
|
||||||
|
cp a, c
|
||||||
|
jr c, .success
|
||||||
|
|
||||||
|
; Check frames if seconds are equal.
|
||||||
|
jr nz, .failure
|
||||||
|
|
||||||
|
; Okay if frames are exactly 0.
|
||||||
|
ld a, [wSectionFrames]
|
||||||
|
cp a, 0
|
||||||
|
jr z, .success
|
||||||
|
|
||||||
|
.failure
|
||||||
|
xor a, a
|
||||||
|
ret
|
||||||
|
|
||||||
|
.success
|
||||||
|
ld a, $FF
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
HandleSectionTimers::
|
||||||
|
ldh a, [hMode]
|
||||||
|
cp a, MODE_PAUSED
|
||||||
|
ret z
|
||||||
|
cp a, MODE_GAME_OVER
|
||||||
|
ret z
|
||||||
|
cp a, MODE_PRE_GAME_OVER
|
||||||
|
ret z
|
||||||
|
|
||||||
|
ld a, [wKillScreenActive]
|
||||||
|
cp a, $FF
|
||||||
|
ret z
|
||||||
|
|
||||||
|
ld a, [hCLevel+CLEVEL_ONES]
|
||||||
|
cp a, 6
|
||||||
|
jr c, .continue
|
||||||
|
xor a, a
|
||||||
|
ld [wSectionTimerReset], a
|
||||||
|
.continue
|
||||||
|
|
||||||
|
ld a, [wSectionMinutes]
|
||||||
|
cp a, 99
|
||||||
|
jr nz, .sectiongo
|
||||||
|
ld a, [wSectionSeconds]
|
||||||
|
cp a, 59
|
||||||
|
jr nz, .sectiongo
|
||||||
|
ld a, [wSectionFrames]
|
||||||
|
cp a, 59
|
||||||
|
ret z
|
||||||
|
|
||||||
|
.sectiongo
|
||||||
|
ld a, [wSectionFrames]
|
||||||
|
inc a
|
||||||
|
ld [wSectionFrames], a
|
||||||
|
cp a, 60
|
||||||
|
ret nz
|
||||||
|
|
||||||
|
xor a, a
|
||||||
|
ld [wSectionFrames], a
|
||||||
|
ld a, [wSectionSeconds]
|
||||||
|
inc a
|
||||||
|
ld [wSectionSeconds], a
|
||||||
|
cp a, 60
|
||||||
|
ret nz
|
||||||
|
|
||||||
|
xor a, a
|
||||||
|
ld [wSectionSeconds], a
|
||||||
|
ld a, [wSectionMinutes]
|
||||||
|
inc a
|
||||||
|
ld [wSectionMinutes], a
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
ENDC
|
ENDC
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue