Graphics.
This commit is contained in:
parent
d7aeec5710
commit
518234e1d2
BIN
bin/DMGTRIS.GBC
BIN
bin/DMGTRIS.GBC
Binary file not shown.
Binary file not shown.
41
src/gbc.asm
41
src/gbc.asm
|
@ -737,39 +737,52 @@ GBCGameplayProcess::
|
||||||
; Color based on mode.
|
; Color based on mode.
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
cp a, SCURVE_DMGT
|
cp a, SCURVE_DMGT
|
||||||
ld a, $03 ;Blue
|
ld a, $05 ;Blue
|
||||||
jr z, .higoverride
|
jr z, .goverride
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
cp a, SCURVE_TGM1
|
cp a, SCURVE_TGM1
|
||||||
ld a, $05 ;Yellow
|
ld a, $06 ;Cyan
|
||||||
jr z, .higoverride
|
jr z, .goverride
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
cp a, SCURVE_TGM3
|
cp a, SCURVE_TGM3
|
||||||
ld a, $04 ;Orange
|
ld a, $03 ;Blue
|
||||||
jr z, .higoverride
|
jr z, .goverride
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
cp a, SCURVE_DEAT
|
cp a, SCURVE_DEAT
|
||||||
ld a, $06 ;Cyan
|
ld a, $00 ;Red
|
||||||
jr z, .higoverride
|
jr z, .goverride
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
cp a, SCURVE_SHIR
|
cp a, SCURVE_SHIR
|
||||||
ld a, $00 ;Red
|
ld a, $00 ;Red
|
||||||
jr z, .higoverride ;Always red
|
jr z, .goverride ;Always red
|
||||||
ld a, [wSpeedCurveState]
|
ld a, [wSpeedCurveState]
|
||||||
cp a, SCURVE_CHIL
|
cp a, SCURVE_CHIL
|
||||||
ld a, $01 ;Green
|
ld a, $01 ;Green
|
||||||
jr z, .higoverride
|
|
||||||
|
|
||||||
; Are we 20G?
|
; Are we 20G?
|
||||||
.higoverride
|
.goverride
|
||||||
ld d, a
|
ld d, a
|
||||||
ldh a, [hCurrentIntegerGravity]
|
ldh a, [hCurrentIntegerGravity]
|
||||||
cp a, 20
|
cp a, 20
|
||||||
jr nz, .colorfield
|
jr c, :+
|
||||||
|
|
||||||
; Strobe the frame.
|
|
||||||
ld a, $00
|
ld a, $00
|
||||||
ld d, a
|
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
|
.colorfield
|
||||||
ld hl, wShadowTileAttrs
|
ld hl, wShadowTileAttrs
|
||||||
|
|
Loading…
Reference in New Issue