Add engine/events/poisonstep_pals.asm

1 files changed, 41 insertions, 0 deletions

diff --git a/engine/events/poisonstep_pals.asm b/engine/events/poisonstep_pals.asm
new file mode 100755
index 00000000..2752f5a7
--- /dev/null
+++ b/engine/events/poisonstep_pals.asm
@@ -0,0 +1,41 @@
+LoadPoisonBGPals:
+	call .LoadPals
+	ldh a, [hCGB]
+	and a
+	ret nz
+	ret ; ????
+
+.LoadPals:
+	ldh a, [hCGB]
+	and a
+	jr nz, .cgb
+	ld a, [wTimeOfDayPal]
+	maskbits NUM_DAYTIMES
+	cp DARKNESS_F
+	ld a, %00000000
+	jr z, .convert_pals
+	ld a, %10101010
+
+.convert_pals
+	call DmgToCgbBGPals
+	ld c, 4
+	call DelayFrames
+	farcall _UpdateTimePals
+	ret
+
+.cgb
+	ld hl, wBGPals2
+	ld c, 4 palettes
+.loop
+	ld a, LOW(palred 28 + palgreen 21 + palblue 31)
+	ld [hli], a
+	ld a, HIGH(palred 28 + palgreen 21 + palblue 31)
+	ld [hli], a
+	dec c
+	jr nz, .loop
+	ld a, $1
+	ldh [hCGBPalUpdate], a
+	ld c, 4
+	call DelayFrames
+	farcall _UpdateTimePals
+	ret