pokecrystal-board/engine/events/poisonstep_pals.asm

LoadPoisonBGPals:
	call .LoadPals
	ld a, [hCGB]
	and a
	ret nz
	ret ; ????

.LoadPals:
	ld 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 a, [rSVBK]
	push af
	ld a, BANK(wBGPals2)
	ld [rSVBK], a
	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
	pop af
	ld [rSVBK], a
	ld a, $1
	ld [hCGBPalUpdate], a
	ld c, 4
	call DelayFrames
	farcall _UpdateTimePals
	ret
Remove all address comments 2018-06-24 16:09:41 +02:00			`LoadPoisonBGPals:`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`call .LoadPals`
			`ld a, [hCGB]`
			`and a`
			`ret nz`
			`ret ; ????`

Remove all address comments 2018-06-24 16:09:41 +02:00			`.LoadPals:`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`ld a, [hCGB]`
			`and a`
			`jr nz, .cgb`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld a, [wTimeOfDayPal]`
Avoid "+- 1" at every maskbits 2018-01-16 17:27:50 -05:00			`maskbits NUM_DAYTIMES`
Use maskbits some more 2018-01-11 12:00:01 -05:00			`cp DARKNESS_F`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`ld a, %00000000`
			`jr z, .convert_pals`
			`ld a, %10101010`

			`.convert_pals`
			`call DmgToCgbBGPals`
			`ld c, 4`
			`call DelayFrames`
callba/callab → farcall/callfar 2017-12-24 12:47:30 -05:00			`farcall _UpdateTimePals`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`ret`

			`.cgb`
			`ld a, [rSVBK]`
			`push af`
Use BANK for hardcoded WRAM banks (except where bankswitches appear unnecessary). 2018-01-03 19:12:45 -05:00			`ld a, BANK(wBGPals2)`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`ld [rSVBK], a`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld hl, wBGPals2`
Use more palette(s) constants 2018-01-01 14:47:16 +01:00			`ld c, 4 palettes`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`.loop`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 13:40:10 -05:00			`ld a, LOW(palred 28 + palgreen 21 + palblue 31)`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`ld [hli], a`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 13:40:10 -05:00			`ld a, HIGH(palred 28 + palgreen 21 + palblue 31)`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`ld [hli], a`
			`dec c`
			`jr nz, .loop`
			`pop af`
			`ld [rSVBK], a`
			`ld a, $1`
			`ld [hCGBPalUpdate], a`
			`ld c, 4`
			`call DelayFrames`
callba/callab → farcall/callfar 2017-12-24 12:47:30 -05:00			`farcall _UpdateTimePals`
Move more main.asm code into individual files 2017-12-15 21:22:26 -05:00			`ret`