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 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, CGB_BATTLE_GRAYSCALE
	call GetCGBLayout
	call SetPalettes
	ret

HalveMoney:
; 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_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::`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`refreshscreen`
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`
Consolidate behavior of fading to/from white in overworld (#2), Fix naming screen tiles (#3) (bug fix to 6e3c5fd00874e9af40624aedf192ecb511099dec) 2023-08-04 14:54:53 -07:00			`special FadeOutPalettesToWhite`
Further split bank 4 2015-11-11 13:11:08 -08: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 08:17:05 -08:00			`special WarpToSpawnPoint`
Further split bank 4 2015-11-11 13:11:08 -08:00			`newloadmap MAPSETUP_WARP`
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`
Further split bank 4 2015-11-11 13:11:08 -08:00			`call HideSprites`
bgcoord 2015-11-20 08:47:52 -08:00			`call RotateThreePalettesLeft`
Further split bank 4 2015-11-11 13:11:08 -08:00			`ret`

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`
Further split bank 4 2015-11-11 13:11:08 -08:00			`call SetPalettes`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`HalveMoney:`
Further split bank 4 2015-11-11 13:11:08 -08:00			`; Halve the player's money.`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wMoney`
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`