ref: d342bf9b45eb821727ff5e282e0daa0b59a90475
dir: /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