pokecrystal-board/engine/events/whiteout.asm

Script_BattleWhiteout::
	callasm BattleBGMap
	sjump Script_Whiteout

OverworldWhiteoutScript::
	reanchormap
	callasm OverworldBGMap

Script_Whiteout:
	writetext .WhitedOutText
	waitbutton
	special FadeOutToWhite
	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 SetDefaultBGPAndOBP
	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-24 17:10:37 -07:00			`Script_BattleWhiteout::`
Further split bank 4 2015-11-11 13:11:08 -08:00			`callasm BattleBGMap`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 13:39:31 -07:00			`sjump Script_Whiteout`
Further split bank 4 2015-11-11 13:11:08 -08:00
return → endcallback, reloadandreturn → reloadend 2020-07-17 05:37:03 -07:00			`OverworldWhiteoutScript::`
Apply most of pokecrystal PR 1105 2024-02-10 15:16:00 -08:00			`reanchormap`
Further split bank 4 2015-11-11 13:11:08 -08:00			`callasm OverworldBGMap`

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

Rename the concept of Money to Coins (#7) 2023-09-02 14:16:35 -07:00			`HalveCoins:`
			`; Halve the player's coins.`
			`ld hl, wCoins`
Further split bank 4 2015-11-11 13:11:08 -08: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 07:09:41 -07:00			`GetWhiteoutSpawn:`
Further split bank 4 2015-11-11 13:11:08 -08:00			`ld a, [wLastSpawnMapGroup]`
			`ld d, a`
			`ld a, [wLastSpawnMapNumber]`
			`ld e, a`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall IsSpawnPoint`
Further split bank 4 2015-11-11 13:11:08 -08:00			`ld a, c`
			`jr c, .yes`
Remove original maps and object events (#1) 2023-07-25 06:33:08 -07:00			`xor a ; SPAWN_LEVEL_1`
Further split bank 4 2015-11-11 13:11:08 -08:00
			`.yes`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wDefaultSpawnpoint], a`
Further split bank 4 2015-11-11 13:11:08 -08:00			`ret`