Added system for newscaster events.

This way people can write stories, separated into several pieces, which will be announced through the newscasters over the course of the round.

code/WorkInProgress/periodic_news.dm

@@ -0,0 +1,72 @@
+// This system defines news that will be displayed in the course of a round.
+// Uses BYOND's type system to put everything into a nice format
+
+/datum/news_announcement
+	var
+		round_time // time of the round at which this should be announced, in seconds
+		message // body of the message
+		author = "NanoTrasen Editor"
+		channel_name = "Tau Ceti Daily"
+		can_be_redacted = 0
+
+	revolution_inciting_event
+
+		paycuts_suspicion
+			round_time = 60*10
+			message = "Reports have leaked that Nanotrasen Inc. is planning to put paycuts into effect on many of its Research Stations in Tau Ceti. Apparently these research stations haven't been able to yield the expected revenue, and thus adjustments have to be made."
+			author = "Unauthorized"
+
+		paycuts_confirmation
+			round_time = 60*40
+			message = "Earlier rumours about paycuts on Research Stations in the Tau Ceti system have been confirmed. Shockingly, however, the cuts will only affect lower tier personnel. Heads of Staff will, according to our sources, not be affected."
+			author = "Unauthorized"
+
+		human_experiments
+			round_time = 60*90
+			message = "Unbelievable reports about human experimentation have reached our ears. According to a refugee from one of the Tau Ceti Research Stations, their station, in order to increase revenue, has refactored several of their facilities to perform experiments on live humans, including virology research, genetic manipulation, and \"feeding them to the slimes to see what happens\". Allegedly, these test subjects were neither humanified monkeys nor volunteers, but rather unqualified staff that were forced into the experiments, and reported to have died in a \"work accident\" by Nanotrasen Inc."
+			author = "Unauthorized"
+
+	bluespace_research
+
+		announcement
+			round_time = 60*20
+			message = "The new field of research trying to explain several interesting spacetime oddities, also known as \"Bluespace Research\", has reached new heights. Of the several hundred space stations now orbiting in Tau Ceti, fifteen are now specially equipped to experiment with and research Bluespace effects. Rumours have it some of these stations even sport functional \"travel gates\" that can instantly move a whole research team to an alternate reality."
+
+
+proc/process_newscaster()
+	check_for_newscaster_updates(ticker.mode.newscaster_announcements)
+
+var/global/tmp/announced_news_types = list()
+proc/check_for_newscaster_updates(type)
+	for(var/subtype in typesof(type)-type)
+		var/datum/news_announcement/news = new subtype()
+		if(news.round_time * 10 >= world.time && !(subtype in announced_news_types))
+			announced_news_types += subtype
+			announce_newscaster_news(news)
+
+proc/announce_newscaster_news(datum/news_announcement/news)
+
+	var/datum/feed_message/newMsg = new /datum/feed_message
+	newMsg.author = news.author
+	newMsg.is_admin_message = !news.can_be_redacted
+
+	newMsg.body = news.message
+
+	var/datum/feed_channel/sendto
+	for(var/datum/feed_channel/FC in news_network.network_channels)
+		if(FC.channel_name == news.channel_name)
+			sendto = FC
+			break
+
+	if(!sendto)
+		sendto = new /datum/feed_channel
+		sendto.channel_name = news.channel_name
+		sendto.author = news.author
+		sendto.locked = 1
+		sendto.is_admin_channel = 1
+		news_network.network_channels += sendto
+
+	sendto.messages += newMsg
+
+	for(var/obj/machinery/newscaster/NEWSCASTER in allCasters)
+		NEWSCASTER.newsAlert(news.channel_name)