import from github

data/scripts/tv.inc

@@ -0,0 +1,85 @@
+EventScript_TV::
+	lockall
+	incrementgamestat GAME_STAT_WATCHED_TV
+	special ResetTVShowState
+	specialvar VAR_RESULT, CheckForPlayersHouseNews
+	goto_if_eq VAR_RESULT, PLAYERS_HOUSE_TV_MOVIE, EventScript_PlayersHouseMovie
+	goto_if_eq VAR_RESULT, PLAYERS_HOUSE_TV_LATI, EventScript_PlayersHouseLatiNewsFlash
+	goto_if_unset FLAG_SYS_TV_START, EventScript_MomDadMightLikeThis1
+	goto_if_set FLAG_SYS_TV_WATCH, EventScript_MomDadMightLikeThis1
+	specialvar VAR_RESULT, IsGabbyAndTyShowOnTheAir
+	goto_if_eq VAR_RESULT, TRUE, EventScript_DoInSearchOfTrainers
+	goto EventScript_TryDoPokeNews
+	end
+
+EventScript_TryDoTVShow::
+	specialvar VAR_0x8004, GetRandomActiveShowIdx
+	goto_if_eq VAR_0x8004, 255, EventScript_MomDadMightLikeThis2
+	specialvar VAR_RESULT, GetNextActiveShowIfMassOutbreak
+	goto_if_eq VAR_RESULT, 255, EventScript_MomDadMightLikeThis2
+	copyvar VAR_0x8004, VAR_RESULT
+	specialvar VAR_RESULT, GetSelectedTVShow
+	goto_if_ne VAR_RESULT, 0, EventScript_DoTVShow
+	end
+
+EventScript_MomDadMightLikeThis1::
+	special GetMomOrDadStringForTVMessage
+	msgbox gText_MomOrDadMightLikeThisProgram, MSGBOX_DEFAULT
+	special TurnOffTVScreen
+	releaseall
+	end
+
+EventScript_PlayersHouseMovie::
+	msgbox PlayersHouse_1F_Text_TheresAMovieOnTV, MSGBOX_DEFAULT
+	releaseall
+	end
+
+@ special InitRoamer is a junk call. Its input var (VAR_0x8004) hasn't been set, and
+@ It's called again when Mom actually asks for the color, overwriting
+@ whatever it does here.
+EventScript_PlayersHouseLatiNewsFlash::
+	msgbox PlayersHouse_1F_Text_LatiEmergencyNewsFlash, MSGBOX_DEFAULT
+	special InitRoamer
+	clearflag FLAG_SYS_TV_LATIAS_LATIOS
+	setflag FLAG_LATIOS_OR_LATIAS_ROAMING
+	special TurnOffTVScreen
+	releaseall
+	end
+
+@ The following is a loop for the TV show messages
+@ VAR_RESULT is set to TRUE when the show has printed its final message
+EventScript_DoTVShow::
+	special DoTVShow
+	waitmessage
+	waitbuttonpress
+	goto_if_ne VAR_RESULT, TRUE, EventScript_DoTVShow
+	goto EventScript_TurnOffTV
+	end
+
+EventScript_TurnOffTV::
+	special TurnOffTVScreen
+	setflag FLAG_SYS_TV_WATCH
+	releaseall
+	end
+
+EventScript_MomDadMightLikeThis2::
+	special GetMomOrDadStringForTVMessage
+	msgbox gText_MomOrDadMightLikeThisProgram, MSGBOX_DEFAULT
+	goto EventScript_TurnOffTV
+	end
+
+EventScript_TryDoPokeNews::
+	special DoPokeNews
+	goto_if_eq VAR_RESULT, FALSE, EventScript_TryDoTVShow
+	waitmessage
+	waitbuttonpress
+	goto EventScript_TurnOffTV
+	end
+
+EventScript_DoInSearchOfTrainers::
+	special DoTVShowInSearchOfTrainers
+	waitmessage
+	waitbuttonpress
+	goto_if_eq VAR_RESULT, 0, EventScript_DoInSearchOfTrainers
+	goto EventScript_TurnOffTV
+	end