pokecrystal-board/engine/events/whiteout.asm

Script_BattleWhiteout::
	callasm BattleBGMap
	jump 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 bugcontestresultswarp

.WhitedOutText:
	; is out of useable #MON!  whited out!
	text_far UnknownText_0x1c0a4e
	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-24 17:10:37 -07:00			`Script_BattleWhiteout::`
Further split bank 4 2015-11-11 13:11:08 -08:00			`callasm BattleBGMap`
			`jump Script_Whiteout`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`Script_OverworldWhiteout::`
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`
Remove Special_ prefix from special routines (close #478) 2018-01-24 08:17:05 -08:00			`special FadeOutPalettes`
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`
			`jumpstd bugcontestresultswarp`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.WhitedOutText:`
Further split bank 4 2015-11-11 13:11:08 -08:00			`; is out of useable #MON! whited out!`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c0a4e`
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:`
trainer card 2015-12-28 07:57:04 -08:00			`ld b, SCGB_BATTLE_GRAYSCALE`
Further split bank 4 2015-11-11 13:11:08 -08:00			`call GetSGBLayout`
			`call SetPalettes`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`HalveMoney:`
No more mobile EQUS ret (replace with Stubbed_ + ret) 2018-01-02 11:00:14 -08:00			`farcall StubbedTrainerRankings_WhiteOuts`
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`
			`xor a ; SPAWN_HOME`

			`.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`