pokecrystal/engine/events/whiteout.asm

Script_BattleWhiteout::
	callasm BattleBGMap
	sjump Script_Whiteout

Script_OverworldWhiteout::
	refreshscreen
	callasm OverworldBGMap

Script_Whiteout:
	writetext .WhitedOutText
	waitbutton
	special FadeOutPalettes
	pause 40
	special HealParty
	checkflag ENGINE_BUG_CONTEST_TIMER
	iftrue .bug_contest
	callasm HalveMoney
	callasm GetWhiteoutSpawn
	farscall Script_AbortBugContest
	special WarpToSpawnPoint
	newloadmap MAPSETUP_WARP
	endall

.bug_contest
	jumpstd BugContestResultsWarpScript

.WhitedOutText:
	text_far _WhitedOutText
	text_end

OverworldBGMap:
	call ClearPalettes
	call ClearScreen
	call WaitBGMap2
	call HideSprites
	call RotateThreePalettesLeft
	ret

BattleBGMap:
	ld b, SCGB_BATTLE_GRAYSCALE
	call GetSGBLayout
	call SetPalettes
	ret

HalveMoney:
	farcall StubbedTrainerRankings_WhiteOuts

; Halve the player's money.
	ld hl, wMoney
	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_HOME

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

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`Script_Whiteout:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`writetext .WhitedOutText`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Remove Special_ prefix from special routines (close #478) 2018-01-24 16:17:05 +00:00			`special FadeOutPalettes`
Further split bank 4 2015-11-11 21:11:08 +00:00			`pause 40`
			`special HealParty`
			`checkflag ENGINE_BUG_CONTEST_TIMER`
			`iftrue .bug_contest`
			`callasm HalveMoney`
			`callasm GetWhiteoutSpawn`
			`farscall Script_AbortBugContest`
Remove Special_ prefix from special routines (close #478) 2018-01-24 16:17:05 +00:00			`special WarpToSpawnPoint`
Further split bank 4 2015-11-11 21:11:08 +00:00			`newloadmap MAPSETUP_WARP`
Script commands don't have underscores 2018-02-03 02:09:17 +00:00			`endall`
Further split bank 4 2015-11-11 21:11:08 +00:00
			`.bug_contest`
Resolve #723: treat std scripts like specials and predefs 2020-06-10 20:44:16 +00:00			`jumpstd BugContestResultsWarpScript`
Further split bank 4 2015-11-11 21:11:08 +00:00
Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00: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 18:33:03 +00:00			`text_end`
Further split bank 4 2015-11-11 21:11:08 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`OverworldBGMap:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call ClearPalettes`
			`call ClearScreen`
Card Flip 2015-12-11 21:59:40 +00:00			`call WaitBGMap2`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call HideSprites`
bgcoord 2015-11-20 16:47:52 +00:00			`call RotateThreePalettesLeft`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`BattleBGMap:`
trainer card 2015-12-28 15:57:04 +00:00			`ld b, SCGB_BATTLE_GRAYSCALE`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call GetSGBLayout`
			`call SetPalettes`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`HalveMoney:`
No more mobile EQUS ret (replace with Stubbed_ + ret) 2018-01-02 19:00:14 +00:00			`farcall StubbedTrainerRankings_WhiteOuts`
Further split bank 4 2015-11-11 21:11:08 +00:00
			`; Halve the player's money.`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wMoney`
Further split bank 4 2015-11-11 21:11:08 +00: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 14:09:41 +00:00			`GetWhiteoutSpawn:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ld a, [wLastSpawnMapGroup]`
			`ld d, a`
			`ld a, [wLastSpawnMapNumber]`
			`ld e, a`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall IsSpawnPoint`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ld a, c`
			`jr c, .yes`
			`xor a ; SPAWN_HOME`

			`.yes`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wDefaultSpawnpoint], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ret`