pokecrystal-board/engine/events/whiteout.asm

Script_BattleWhiteout::
	callasm BattleBGMap
	sjump Script_Whiteout

OverworldWhiteoutScript::
	refreshscreen
	callasm OverworldBGMap

Script_Whiteout:
	writetext .WhitedOutText
	waitbutton
	special FadeOutPalettesToWhite
	pause 40
	special HealParty
	checkflag ENGINE_BUG_CONTEST_TIMER
	iftrue .bug_contest
	callasm HalveCoins
	farscall Script_AbortBugContest
	exitoverworld WHITED_OUT_IN_LEVEL
	endall

.bug_contest
	jumpstd BugContestResultsWarpScript

.WhitedOutText:
	text_far _WhitedOutText
	text_end

OverworldBGMap:
	call ClearPalettes
	call ClearScreen
	call WaitBGMap2
	call DisableOverworldHUD
	xor a
	ld [wDisplaySecondarySprites], a
	farcall ClearSpriteAnims
	call ClearSprites
	call LoadStandardFont
	call LoadFrame
	call RotateThreePalettesLeft
	ld a, FALSE
	ld [wText2bpp], a
	jp SpeechTextbox1bpp

BattleBGMap:
	ld b, CGB_BATTLE_GRAYSCALE
	call GetCGBLayout
	call SetPalettes
	ret

HalveCoins:
; Halve the player's coins.
	ld hl, wCoins
	ld a, [hl]
	srl a
	ld [hli], a
	ld a, [hl]
	rra
	ld [hli], a
	ld a, [hl]
	rra
	ld [hl], a
	ret

GetWhiteoutSpawn:
	ld a, [wLastSpawnMapGroup]
	ld d, a
	ld a, [wLastSpawnMapNumber]
	ld e, a
	farcall IsSpawnPoint
	ld a, c
	jr c, .yes
	xor a ; SPAWN_LEVEL_1

.yes
	ld [wDefaultSpawnpoint], a
	ret
Remove even more address comments That should be all of them this time 2018-06-25 02:10:37 +02:00			`Script_BattleWhiteout::`
Further split bank 4 2015-11-11 16:11:08 -05:00			`callasm BattleBGMap`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 16:39:31 -04:00			`sjump Script_Whiteout`
Further split bank 4 2015-11-11 16:11:08 -05:00
return → endcallback, reloadandreturn → reloadend 2020-07-17 08:37:03 -04:00			`OverworldWhiteoutScript::`
Use more constants in scripts 2018-01-12 01:40:20 -05:00			`refreshscreen`
Further split bank 4 2015-11-11 16:11:08 -05:00			`callasm OverworldBGMap`

Remove even more address comments That should be all of them this time 2018-06-25 02:10:37 +02:00			`Script_Whiteout:`
Further split bank 4 2015-11-11 16:11:08 -05:00			`writetext .WhitedOutText`
Rename several script commands 2015-11-25 10:16:29 -05:00			`waitbutton`
Consolidate behavior of fading to/from white in overworld (#2), Fix naming screen tiles (#3) (bug fix to 6e3c5fd00874e9af40624aedf192ecb511099dec) 2023-08-04 23:54:53 +02:00			`special FadeOutPalettesToWhite`
Further split bank 4 2015-11-11 16:11:08 -05:00			`pause 40`
			`special HealParty`
			`checkflag ENGINE_BUG_CONTEST_TIMER`
			`iftrue .bug_contest`
Rename the concept of Money to Coins (#7) 2023-09-02 23:16:35 +02:00			`callasm HalveCoins`
Further split bank 4 2015-11-11 16:11:08 -05:00			`farscall Script_AbortBugContest`
Handle white out transition from overworld (incl. battle) to game menu (#27) 2023-10-23 18:40:08 +02:00			`exitoverworld WHITED_OUT_IN_LEVEL`
Script commands don't have underscores 2018-02-02 21:09:17 -05:00			`endall`
Further split bank 4 2015-11-11 16:11:08 -05:00
			`.bug_contest`
Resolve #723: treat std scripts like specials and predefs 2020-06-10 16:44:16 -04:00			`jumpstd BugContestResultsWarpScript`
Further split bank 4 2015-11-11 16:11:08 -05:00
Remove even more address comments That should be all of them this time 2018-06-25 02:10:37 +02:00			`.WhitedOutText:`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`text_far _WhitedOutText`
Resolve issue #575: Rename text commands 2018-11-17 13:33:03 -05:00			`text_end`
Further split bank 4 2015-11-11 16:11:08 -05:00
Remove all address comments 2018-06-24 16:09:41 +02:00			`OverworldBGMap:`
Further split bank 4 2015-11-11 16:11:08 -05:00			`call ClearPalettes`
			`call ClearScreen`
Card Flip 2015-12-11 16:59:40 -05:00			`call WaitBGMap2`
Handle white out transition from overworld (incl. battle) to game menu (#27) 2023-10-23 18:40:08 +02:00			`call DisableOverworldHUD`
			`xor a`
			`ld [wDisplaySecondarySprites], a`
			`farcall ClearSpriteAnims`
			`call ClearSprites`
			`call LoadStandardFont`
			`call LoadFrame`
bgcoord 2015-11-20 11:47:52 -05:00			`call RotateThreePalettesLeft`
Handle white out transition from overworld (incl. battle) to game menu (#27) 2023-10-23 18:40:08 +02:00			`ld a, FALSE`
			`ld [wText2bpp], a`
			`jp SpeechTextbox1bpp`
Further split bank 4 2015-11-11 16:11:08 -05:00
Remove all address comments 2018-06-24 16:09:41 +02:00			`BattleBGMap:`
Further remove unnecessary DMG/SGB checking (#7) and remove SGB layouts and palette data (#1) 2023-07-26 17:01:20 +02:00			`ld b, CGB_BATTLE_GRAYSCALE`
			`call GetCGBLayout`
Further split bank 4 2015-11-11 16:11:08 -05:00			`call SetPalettes`
			`ret`

Rename the concept of Money to Coins (#7) 2023-09-02 23:16:35 +02:00			`HalveCoins:`
			`; Halve the player's coins.`
			`ld hl, wCoins`
Further split bank 4 2015-11-11 16:11:08 -05:00			`ld a, [hl]`
			`srl a`
			`ld [hli], a`
			`ld a, [hl]`
			`rra`
			`ld [hli], a`
			`ld a, [hl]`
			`rra`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`GetWhiteoutSpawn:`
Further split bank 4 2015-11-11 16:11:08 -05:00			`ld a, [wLastSpawnMapGroup]`
			`ld d, a`
			`ld a, [wLastSpawnMapNumber]`
			`ld e, a`
callba/callab → farcall/callfar 2017-12-24 12:47:30 -05:00			`farcall IsSpawnPoint`
Further split bank 4 2015-11-11 16:11:08 -05:00			`ld a, c`
			`jr c, .yes`
Remove original maps and object events (#1) 2023-07-25 15:33:08 +02:00			`xor a ; SPAWN_LEVEL_1`
Further split bank 4 2015-11-11 16:11:08 -05:00
			`.yes`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld [wDefaultSpawnpoint], a`
Further split bank 4 2015-11-11 16:11:08 -05:00			`ret`