/obj/team/proc/process()
	if (src.base)
		var/obj/starting = locate(text("landmark*CTF-base-[]", src.base))
		while(locate(text("landmark*CTF-supply-[]", src.base)))
			var/obj/L = locate(text("landmark*CTF-supply-[]", src.base))
			var/obj/item/weapon/card/id/I = new /obj/item/weapon/card/id( L.loc )
			I.access_level = 5
			I.lab_access = 5
			I.engine_access = 5
			I.air_access = 5
			I.assignment = "Captain"
			I.registered = text("[]", uppertext((src.color ? src.color : "rogue")))
			I.name = text("[]'s ID Card ([]>[]-[]-[])", I.registered, I.access_level, I.lab_access, I.engine_access, I.air_access)
			var/obj/item/weapon/paper/flag/F = new /obj/item/weapon/paper/flag( L.loc )
			if (src.color)
				F.icon_state = text("flag_[]", src.color)
				F.name = text("flag- '[] Team's Flag'", uppertext(src.color))
			else
				F.name = "flag- 'NEUTRAL Team's Flag'"
				F.icon_state = "flag_neutral"
			F.info = text("This is an authentic [] flag!\n<font face=vivaldi>Capture the Flag</font>", (src.color ? src.color : "neutral"))
			if (src.master.paint_cans)
				var/obj/item/weapon/paint/P = new /obj/item/weapon/paint( L.loc )
				if (src.color)
					P.color = src.color
					P.icon_state = text("paint_[]", src.color)
				else
					P.color = "neutral"
					P.icon_state = text("paint_[]", src.color)
			del(L)
		while(locate(text("landmark*CTF-wardrobe-[]", src.base)))
			var/obj/L = locate(text("landmark*CTF-wardrobe-[]", src.base))
			switch(src.color)
				if("blue")
					new /obj/closet/wardrobe( L.loc )
				if("green")
					new /obj/closet/wardrobe/green( L.loc )
				if("yellow")
					new /obj/closet/wardrobe/yellow( L.loc )
				if("black")
					new /obj/closet/wardrobe/black( L.loc )
				if("white")
					new /obj/closet/wardrobe/white( L.loc )
				if("red")
					new /obj/closet/wardrobe/red( L.loc )
				else
			del(L)
		if (starting)
			for(var/mob/human/H in src.members)
				H.loc = starting.loc
				if ((src.master.autodress && src.color))
					H.w_uniform = null
					del(H.w_uniform)
					H.shoes = null
					del(H.shoes)
					switch(src.color)
						if("blue")
							H.w_uniform = new /obj/item/weapon/clothing/under/blue( H )
							H.shoes = new /obj/item/weapon/clothing/shoes/brown( H )
						if("green")
							H.w_uniform = new /obj/item/weapon/clothing/under/green( H )
							H.shoes = new /obj/item/weapon/clothing/shoes/black( H )
						if("yellow")
							H.w_uniform = new /obj/item/weapon/clothing/under/yellow( H )
							H.shoes = new /obj/item/weapon/clothing/shoes/orange( H )
						if("black")
							H.w_uniform = new /obj/item/weapon/clothing/under/black( H )
							H.shoes = new /obj/item/weapon/clothing/shoes/black( H )
						if("white")
							H.w_uniform = new /obj/item/weapon/clothing/under/white( H )
							H.shoes = new /obj/item/weapon/clothing/shoes/brown( H )
						if("red")
							H.w_uniform = new /obj/item/weapon/clothing/under/red( H )
							H.shoes = new /obj/item/weapon/clothing/shoes/brown( H )
						else
							H.w_uniform = new /obj/item/weapon/clothing/under/orange( H )
							H.shoes = new /obj/item/weapon/clothing/shoes/orange( H )
					H.w_uniform.layer = 20
					H.shoes.layer = 20
	return

/obj/team/proc/show_screen(mob/user as mob)

	var/dat = "<H1>CTF Team</H1><HR><PRE>"
	dat += text("<A href='?src=\ref[];disband=1'>\[disband\]</A>\n", src)
	dat += text("Max Players: <A href='?src=\ref[];max_players=1'>[]</A>\n", src, src.max_players)
	dat += text("Captain: <A href='?src=\ref[];captain=1'>[]</A>\n", src, (src.captain ? src.captain : "NONE"))
	dat += "<B>Members:</B>\n"
	for(var/mob/M in src.members)
		dat += text("\t[] ([])\n", M.rname, M.key)
	dat += text("Base: \t<A href='?src=\ref[];base=1'>[]</A>\nColor: \t<A href='?src=\ref[];color=1'>[]</A>\n\n<A href='?src=\ref[];nothing=1'>Refresh</A>", src, src.base, src, src.color, src)
	dat += "</PRE>"
	user.client_mob() << browse(dat, "window=ctf_team")
	return

/obj/team/Topic(href, href_list)
	..()
	if (ticker)
		return
	if ((usr.CanAdmin() || usr == src.captain))
		if (href_list["color"])
			var/t = input(usr, "Please select a new color", null, null)  as null|anything in src.master.avail_colors
			if ((t && src.master.avail_colors.Find(t)))
				src.master.avail_colors -= t
				src.master.avail_colors += src.color
				src.color = t
		if (href_list["base"])
			var/t = input(usr, "Please select a new base", null, null)  as null|anything in src.master.avail_bases
			if ((t && src.master.avail_bases.Find(t)))
				src.master.avail_bases -= t
				src.master.avail_bases += src.base
				src.base = t
	if (usr.CanAdmin())
		if (href_list["disband"])
			del(src)
			return
		if (href_list["max_players"])
			src.max_players = input(usr, "What is the max number of players on this team?", null, null)  as num
			src.max_players = max(src.max_players, 1)
		if (href_list["captain"])
			var/L = list(  )
			for(var/mob/human/H in world)
				if (H.client || H.currentDrone!=null)
					L += H
			for(var/obj/team/T in world)
				L -= T.members
				L -= T.captain
			var/mob/m = input(usr, "Please select a new captain", null, null)  as null|anything in L
			if (ismob(m))
				src.members -= src.captain
				src.members += m
				src.captain = m
			else
				src.members -= src.captain
				src.captain = null
			show_screen(src.captain)
		src.show_screen(usr)
	for(var/mob/human/H in world)
		if ((H.CanAdmin() || H == src.captain))
			src.master.show_screen(H)
	return

/obj/ctf_assist/New()

	..()

	if(ticker)
		return

	going = 0
	master_mode = "extended"
	world << "<B>Capture the Flag Mode activated!</B>"
	world << "<B>The game start has been frozen to accomodate!</B>"
	for(var/obj/begin/B in world)
		if (!( locate(/obj/grille, B.loc) ))
			new /obj/grille( B.loc )
	for(var/mob/human/M in world)
		M.loc = locate(/area/start)
		if (M.start)
			M.primary = null
			del(M.primary)
			for(var/obj/item/weapon/I in M)
				//M = null
				del(I)
			M.start = 0
	world << "<B>All players have been pushed back!</B>"
	return

/obj/ctf_assist/proc/next_pick()

	src.pickers_left -= src.picker
	src.picker = null
	if (src.players_left.len < 1)
		world << "<B>We are done picking! (No more people to be picked!)</B>"
		src.picker = 0
		return null
	if (src.pickers_left.len < 1)
		for(var/obj/team/T in src)
			if ((T.members.len < src.play_team && T.members.len < T.max_players))
				if (T.captain)
					src.pickers_left += T.captain
				else
					src.pickers_left += T
	if (src.pickers_left.len < 1)
		world << "<B>We are done picking! (All teams are full!)</B>"
		src.picker = 0
		return null
	else
		src.picker = pick(src.pickers_left)
		if (ismob(src.picker))
			show_pick(src.picker)
			world << text("<B>[] is picking!</B>", src.picker)
		else
			if (istype(src.picker, /obj/team))
				var/H = pick(src.players_left)
				var/obj/team/T = src.picker
				if (istype(T, /obj/team))
					T.members += H
					src.players_left -= H
					spawn( 0 )
						next_pick()
						return
	return src.picker
	return

/obj/ctf_assist/proc/show_pick(mob/user as mob)

	var/dat = "<H1>CTF Mode Pick</H1><HR>"
	dat += text("<B>Players (per Team): []</B><BR>\n<B>\"Please Pick a Player</B><BR>", src.play_team)
	for(var/mob/human/H in src.players_left)
		dat += text("<A href='?src=\ref[];pick=\ref[]'>[] ([])</A><BR>", src, H, H.rname, H.key)
	user.client_mob() << browse(dat, "window=ctf_pick")
	return

/obj/ctf_assist/proc/get_team(captain as mob)

	for(var/obj/team/T in src)
		if (T.captain == captain)
			return T
	return

/obj/ctf_assist/proc/check_win(O as obj)

	if (src.wintype == "none")
		return
	var/obj/item/weapon/paper/flag/F = locate(/obj/item/weapon/paper/flag)
	var/winning = 1
	for(var/obj/item/weapon/paper/flag/L in world)
		if (F.icon_state != L.icon_state)
			winning = 0
		else
			if (src.wintype == "collect")
				if (F.loc != O)
					winning = 0
	if (!( winning ))
		return
	var/obj/team/winner = null
	for(var/obj/team/T in src)
		if (text("flag_[]", T.color) == text("[]", F.icon_state))
			winner = T
		else
	if (winner)
		world << "<H3><B>The game has been won!!!</B></H3>"
		world << text("<B>Team: [] Team led by [] in []</B>", uppertext(winner.color), winner.captain, winner.base)
		world << "<B>Original Members:</B>"
		for(var/mob/human/H in winner.members)
			if (H.client || H.currentDrone!=null)
				world << text("\t [] ([])", H.rname, H.key)
	return

/obj/ctf_assist/proc/show_screen(mob/user as mob)

	var/dat = "<H2>CTF Mode Helper</H2><HR><PRE>"
	dat += text("Players (per Team): <A href='?src=\ref[];play_team=1'>[]</A>\nBarrier Time: <A href='?src=\ref[];barriertime=1'>[] minutes</A>\n\n<B>Teams:</B>\n", src, src.play_team, src, src.barriertime)
	for(var/obj/team/O in src)
		if (ismob(O.captain))
			if (O.color)
				dat += text("\t<A href='?src=\ref[];team=\ref[]'>[]'s Team ([])</A>\n", src, O, O.captain, O.color)
			else
				dat += text("\t<A href='?src=\ref[];team=\ref[]'>[]'s Team</A>\n", src, O, O.captain)
		else
			if (O.color)
				dat += text("\t<A href='?src=\ref[];team=\ref[]'>[] Team</A>\n", src, O, O.color)
			else
				dat += text("\t<A href='?src=\ref[];team=\ref[]'>No Captain</A>\n", src, O)
	dat += text("<A href='?src=\ref[];add_team=1'>\[Add Team\]</A>\n<A href='?src=\ref[];select_team=1'>Captains Select Members</A>\n\n<A href='?src=\ref[];start=1'>Start the Game (and Set up Map)</A>\n\n<B>Win Options: []</B>\n<A href='?src=\ref[];win=collect'>Collection</A> - All flags same color on clipboard\n<A href='?src=\ref[];win=convert'>Conversion</A> - All flags same color\n<A href='?src=\ref[];win=none'>None</A>\n\n<B>Other Options:</B>\nAuto-Dress (Teams): <A href='?src=\ref[];autodress=1'>[]</A>\nRemove Engine Ejection: <A href='?src=\ref[];ejectengine=1'>[]</A>\nPaint Cans: <A href='?src=\ref[];paint_cans=1'>[]</A>\nImmobile flags (Territory): <A href='?src=\ref[];immobile=1'>[]</A>\nAdd Neutral Flags to Unused Bases: <A href='?src=\ref[];neutral_replace=1'>[]</A>\n\n<A href='?src=\ref[];nothing=1'>Refresh</A>", src, src, src, src.wintype, src, src, src, src, (src.autodress ? "Yes" : "No"), src, (src.ejectengine ? "Yes" : "No"), src, (src.paint_cans ? "Yes" : "No"), src, (src.immobile ? "Yes" : "No"), src, (src.neutral_replace ? "Yes" : "No"), src)
	dat += "</PRE>"
	user.client_mob() << browse(dat, "window=ctf_assist")
	return

/obj/ctf_assist/Topic(href, href_list)
	..()
	if ((ticker || src.starting))
		return
	if (href_list["pick"])
		if (src.picker == usr)
			var/H = locate(href_list["pick"])
			if ((istype(H, /mob/human) && src.players_left.Find(H)))
				var/obj/team/T = get_team(src.picker)
				if (istype(T, /obj/team))
					T.members += H
					src.players_left -= H
					next_pick()
			return
		else
			usr.client_mob() << "<B>It's not your turn!</B>"
	if (!( usr.CanAdmin() ))
		return
	if (href_list["team"])
		var/obj/team/T = locate(href_list["team"])
		if (istype(T, /obj/team))
			T.show_screen(usr)
	if (href_list["play_team"])
		src.play_team = input(usr, "What is the max number of players per team?", null, null)  as num
		src.play_team = max(src.play_team, 1)
	if (href_list["barriertime"])
		src.barriertime = input(usr, "What is the barrier life time (in minutes- decimals allowed)?", null, null)  as num
		src.barriertime = max(src.barriertime, 0.1)
	if (href_list["win"])
		if ((href_list["win"] in list( "collect", "convert", "none" )))
			src.wintype = href_list["win"]
	if (href_list["autodress"])
		src.autodress = !( src.autodress )
	if (href_list["ejectengine"])
		src.ejectengine = !( src.ejectengine )
	if (href_list["paint_cans"])
		src.paint_cans = !( src.paint_cans )
	if (href_list["neutral_replace"])
		src.neutral_replace = !( src.neutral_replace )
	if (href_list["immobile"])
		src.immobile = !( src.immobile )
	if (href_list["add_team"])
		if (src.avail_bases.len > 0)
			var/obj/team/T = new /obj/team( src )
			T.master = src
			T.base = pick(src.avail_bases)
			T.color = pick(src.avail_colors)
			src.avail_bases -= T.base
			src.avail_colors -= T.color
	if (href_list["select_team"])
		if (!( src.picking ))
			src.picking = 1
			for(var/mob/human/H in world)
				src.players_left += H
			for(var/obj/team/T in src)
				if (T.members.len < src.play_team)
					if (T.captain)
						src.pickers_left += T.captain
					else
						src.pickers_left += T
				src.players_left -= T.members
			if ((!( src.players_left.len ) || !( src.pickers_left.len )))
				src.picking = 0
				src.players_left.len = 0
				src.pickers_left.len = 0
				usr.client_mob() << "<B>Not enough players/teams!</B>"
				return
			world << "<B>Now Selecting Teams!!!</B>"
			src.picker = pick(src.pickers_left)
			if (ismob(src.picker))
				show_pick(src.picker)
				world << text("<B>[] is picking!</B>", src.picker)
			else
				if (istype(src.picker, /obj/team))
					var/H = pick(src.players_left)
					var/obj/team/T = src.picker
					if (istype(T, /obj/team))
						T.members += H
						src.players_left -= H
						next_pick()
		else
			show_pick(src.picker)
			world << text("<B>[] is picking!</B>", src.picker)
	if (href_list["start"])
		src.starting = 1
		var/obj/begin/use_me = locate(/obj/begin)
		for(var/mob/human/H in world)
			if (H.client)
				H.start = 1
				H.occupation1 = pick("Staff Assistant", "Research Assistant", "Technical Assistant", "Medical Assistant")
				use_me.get_dna_ready(H)
				H.update_face()
		world << "<B>STARTING!!!</B>"
		for(var/obj/landmark/alterations/A in world)
			switch(A.name)
				if("prison shuttle")
					new /obj/machinery/computer/prison_shuttle( A.loc )
					del(A)
				if("id computer")
					new /obj/machinery/computer/card( A.loc )
					del(A)
				if("Experimental Technology")
					new /obj/secloset/highsec( A.loc )
					del(A)
				if("Security Locker")
					new /obj/secloset/security1( A.loc )
					del(A)
				if("recharger")
					new /obj/machinery/recharger( A.loc )
					del(A)
				if("barrier")
					new /obj/barrier( A.loc )
					del(A)
		for(var/obj/closet/wardrobe/W in world)
			del(W)
		for(var/obj/item/weapon/clothing/under/T in world)
			del(T)
		if (src.ejectengine)
			for(var/obj/machinery/computer/engine/T in world)
				del(T)
		for(var/obj/landmark/alterations/A in world)
			switch(A.name)
				if("Prisoners Wardrobe")
					new /obj/closet/wardrobe/orange( A.loc )
					del(A)
		var/obj/rogue = locate("landmark*CTF-rogue")
		for(var/mob/human/H in world)
			H.loc = rogue.loc
			H.w_uniform = new /obj/item/weapon/clothing/under/orange( H )
			H.w_uniform.layer = 20
			H.shoes = new /obj/item/weapon/clothing/shoes/orange( H )
			H.shoes.layer = 20
		for(var/obj/team/T in src)
			T.process()
		if (src.paint_cans)
			for(var/obj/secloset/highsec/S in world)
				new /obj/item/weapon/paint( S )
		if (src.neutral_replace)
			while(src.avail_bases.len > 0)
				var/t = pick(src.avail_bases)
				src.avail_bases -= t
				var/obj/L = locate(text("landmark*CTF-supply-[]", t))
				var/obj/item/weapon/paper/flag/F = new /obj/item/weapon/paper/flag( L.loc )
				F.name = "flag- 'NEUTRAL Team's Flag'"
				F.icon_state = "flag_neutral"
				F.info = "This is an authentic neutral flag!\n<font face=vivaldi>Capture the Flag</font>"
				del(L)
		for(var/obj/begin/B in world)
			if (locate(/obj/grille, B.loc))
				for(var/obj/grille/G in B.loc)
					del(G)
		ticker = new /datum/control/gameticker()
		spawn(0)
			ticker.process()
			return
		data_core = new /obj/datacore()
	src.show_screen(usr)
	for(var/mob/human/H in world)
		if (H.CanAdmin())
			src.show_screen(H)
	return

/obj/landmark/New()

	..()
	src.tag = text("landmark*[]", src.name)
	src.invisibility = 101

	if (name == "shuttle")
		shuttle_z = src.z
		del(src)

	if (name == "monkey")
		monkeystart += src.loc
		del(src)

	if (name == "blobstart")
		blobstart += src.loc
		del(src)
	return

/obj/start/New()

	..()
	src.tag = text("start*[]", src.name)
	src.invisibility = 100
	return

/obj/sp_start/New()

	src.tag = text("spstart[]", src.name)
	src.invisibility = 100
	return

/obj/admins/Topic(href, href_list)
	..()
	if (usr.client != src.owner)
		world << text("\blue [] has attempted to override the admin panel!", usr.key)
		world.log << text("ADMIN: [] tried to use the admin panel without authorization.", usr.key)
		return


	if(href_list["vmode"])

		if (src.a_level >= 2)
			vote.mode = text2num(href_list["vmode"])-1 	// hack to yield 0=restart, 1=changemode
			vote.voting = 1						// now voting
			vote.votetime = world.timeofday + config.voteperiod*10	// when the vote will end

			spawn(config.voteperiod*10)
				vote.endvote()

			world << "\red<B>*** A vote to [vote.mode?"change game mode":"restart"] has been initiated by Admin [usr.key].</B>"
			world << "\red     You have [vote.timetext(config.voteperiod)] to vote."

			if(config.logvote || config.logadmin)	world.log << "VOTE/ADMIN: Voting to [vote.mode?"change mode":"restart round"] forced by admin [usr.key]"

			for(var/mob/CM in world)
				var/client/CCM = CM.cliented()
				if (CCM)
					CCM.vote = "default"

	if(href_list["votekill"])
		if (src.a_level >= 2)

			world << "\red <B>***Voting aborted by [usr.key].</B>"

			if(config.logvote || config.logadmin)	world.log << "VOTE/ADMIN: Voting aborted by [usr.key]"

			vote.voting = 0
			vote.nextvotetime = world.timeofday + 10*config.votedelay

			for(var/mob/M in world)		// clear vote window from all clients
				var/client/CM = M.cliented()
				if (CM)
					M.client_mob() << browse(null, "window=vote")
					CM.showvote = 0


	if (href_list["vt_rst"])
		if (src.a_level >= 3)

			config.allowvoterestart = !config.allowvoterestart

			world << "<B>Player restart voting toggled to [config.allowvoterestart ? "On" : "Off"]</B>."
			if(config.logadmin)	world.log << "ADMIN: Restart voting toggled to [config.allowvoterestart ? "On" : "Off"] by [usr.key]."
			if(config.allowvoterestart)
				vote.nextvotetime = world.timeofday
			update()

	if (href_list["vt_mode"])
		if (src.a_level >= 3)

			config.allowvotemode = !config.allowvotemode

			world << "<B>Player mode voting toggled to [config.allowvotemode ? "On" : "Off"]</B>."
			if(config.logadmin)	world.log << "ADMIN: Mode voting toggled to [config.allowvotemode ? "On" : "Off"] by [usr.key]."
			if(config.allowvotemode)
				vote.nextvotetime = world.timeofday
			update()

	if (href_list["boot"])
		if (src.a_level >= 4)
			var/dat = "<B>Boot Player:</B><HR>"
			for(var/mob/M in world)
				dat += text("<A href='?src=\ref[];boot2=\ref[]'>N:[] R:[] (K:[]) (IP:[])</A><BR>", src, M, M.name, M.rname, (M.client ? M.client : M.lastKnownCKey? "Formerly [M.lastKnownCKey]" : "No Client"), M.lastKnownIP)
			usr << browse(dat, "window=boot")
	if (href_list["boot2"])
		if (src.a_level >= 4)
			var/mob/M = locate(href_list["boot2"])
			if (ismob(M))
				if ((M.client && M.client.holder && M.client.holder.rank >= src.rank))
					alert("You cannot perform this action! You must be of a higher administrative rank!", null, null, null, null, null)
					return
				if(config.logadmin) world.log << text("ADMIN: [] booted [].", usr.key, M.key)
				//M.client = null
				del(M.client)
	if (href_list["ban"])
		if (src.a_level >= 4)
			var/dat = "<B>Ban Player:</B><HR>"
			for(var/mob/M in world)
				dat += text("<A href='?src=\ref[];ban2=\ref[]'>N: [] R: [] (K: []) (IP: [])</A><BR>", src, M, M.name, M.rname, (M.client ? M.client : M.lastKnownCKey? "Formerly [M.lastKnownCKey]" : "No Client"), M.lastKnownIP)
			dat += "<HR><B>Unban Player:</B><HR>"
			for(var/t in banned)
				dat += text("<A href='?src=\ref[];unban2=[]'>K: []</A><BR>", src, ckey(t), t)
			usr << browse(dat, "window=ban")
	if (href_list["ban2"])
		if (src.a_level >= 4)
			var/mob/M = locate(href_list["ban2"])
			if (ismob(M))
				if ((M.client && M.client.holder && M.client.holder.rank >= src.rank))
					alert("You cannot perform this action! You must be of a higher administrative rank!", null, null, null, null, null)
					return
				if(config.logadmin) world.log << text("ADMIN: [] banned [].", usr.key, M.key)
				banned += ckey(M.key)
				//M.client = null
				del(M.client)
	if (href_list["unban2"])
		if (src.a_level >= 4)
			var/t = href_list["unban2"]
			if (t)
				banned -= t
			if(config.logadmin) world.log << text("ADMIN: [] unbanned [].", usr.key, t)
	if (href_list["mute"])
		if (src.a_level >= 4)
			var/dat = "<B>Mute/Unmute Player:</B><HR>"
			for(var/mob/M in world)
				dat += text("<A href='?src=\ref[];mute2=\ref[]'>N:[] R:[] (K:[]) (IP: []) \[[]\]</A><BR>", src, M, M.name, M.rname, (M.client ? M.client : M.lastKnownCKey? "Formerly [M.lastKnownCKey]" : "No Client"), M.lastKnownIP, (M.muted ? "Muted" : "Voiced"))
			usr << browse(dat, "window=mute")
	if (href_list["mute2"])
		if (src.a_level >= 4)
			var/mob/M = locate(href_list["mute2"])
			if (ismob(M))
				if ((M.client && M.client.holder && M.client.holder.rank >= src.rank))
					alert("You cannot perform this action! You must be of a higher administrative rank!", null, null, null, null, null)
					return
				if(config.logadmin) world.log << text("ADMIN: [] altered []'s mute status.", usr.key, M.key)
				M.muted = !( M.muted )
	if (href_list["restart"])
		if (src.a_level >= 2)
			var/dat = text("<B>Restart game?</B><HR>\n<BR>\n<A href='?src=\ref[];restart2=1'>Yes</A>\n", src)
			usr << browse(dat, "window=restart")
	if (href_list["restart2"])
		if (src.a_level >= 2)
			world << text("\red <B> Restarting world!</B>\blue  Initiated by []!", usr.key)
			if(config.logadmin) world.log << text("ADMIN: [] initiated a reboot.", usr.key)
			sleep(50)
			world.Reboot()
	if (href_list["restart3"])
		if (src.a_level >= 2)
			if( alert("Reboot server?",,"Yes","No") == "No")
				return
			world << text("\red <B> Rebooting world!</B>\blue  Initiated by []!", usr.key)
			if(config.logadmin) world.log << text("ADMIN: [] initiated an immediate reboot.", usr.key)
			world.Reboot()
	if (href_list["c_mode"])
		if (src.a_level >= 3)
			if (ticker)
				return alert(usr, "The game has already started.", null, null, null, null)
			var/dat = text("<B>What mode do you wish to play?</B><HR>\n<A href='?src=\ref[];c_mode2=secret'>Secret</A><br>\n<A href='?src=\ref[];c_mode2=random'>Random</A><br>\n<A href='?src=\ref[];c_mode2=traitor'>Traitor</A><br>\n<A href='?src=\ref[];c_mode2=meteor'>Meteor</A><br>\n<A href='?src=\ref[];c_mode2=extended'>Extended</A><br>\n<A href='?src=\ref[];c_mode2=monkey'>Monkey</A><br>\n<A href='?src=\ref[];c_mode2=nuclear'>Nuclear Emergency</A><br>\n<A href='?src=\ref[];c_mode2=blob'>Blob</A><br>\n<A href='?src=\ref[];c_mode2=sandbox'>Sandbox</A><br>\n\nNow: []\n", src, src, src, src, src, src, src, src, src, master_mode)
			usr << browse(dat, "window=c_mode")
	if (href_list["c_mode2"])
		if (src.a_level >= 3)
			if (ticker)
				return alert(usr, "The game has already started.", null, null, null, null)
			switch(href_list["c_mode2"])
				if("secret")
					master_mode = "secret"
				if("random")
					master_mode = "random"
				if("traitor")
					master_mode = "traitor"
				if("meteor")
					master_mode = "meteor"
				if("extended")
					master_mode = "extended"
				if("monkey")
					master_mode = "monkey"
				if("nuclear")
					master_mode = "nuclear"
				if("megamonkey")
					master_mode = "megamonkey"
				if("blob")
					master_mode = "blob"
				if("sandbox")
					master_mode = "sandbox"
				else
			if(config.logadmin) world.log << text("ADMIN: [] set the mode as [].", usr.key, master_mode)
			world << text("\blue <B>The mode is now: []</B>", master_mode)

			var/F = file(persistent_file)
			fdel(F)
			F << master_mode

	if (href_list["l_ban"])
		var/dat = "<HR><B>Banned Keys:</B><HR>"
		for(var/t in banned)
			dat += text("[]<BR>", ckey(t))
		if ((src.rank in list( "Moderator", "Supervisor", "Administrator", "Major Administrator", "Primary Administrator" )))
			dat += text("<HR><A href='?src=\ref[];boot=1'>Goto Ban Control Screen</A>", src)
		usr << browse(dat, "window=ban_k")
	if (href_list["l_keys"])
		var/dat = "<B>Keys:</B><HR>"
		for(var/mob/M in world)
			if(M.cliented())
				dat += text("[]<BR>", M.client.ckey)
		usr << browse(dat, "window=keys")
	if (href_list["l_players"])
		var/dat = "<B>Name/Real Name/Key/IP:</B><HR>"
		for(var/mob/M in world)
			dat += text("N: [] R: [] (K: []) (IP: [])<BR>", M.name, M.rname, (M.client ? M.client : (M.lastKnownCKey? "Formerly [M.lastKnownCKey]" : "No Client")), M.lastKnownIP)
		usr << browse(dat, "window=players")
	if (href_list["g_send"])
		var/t = input("Global message to send:", "Admin Announce", null, null)  as message
		if (t)
			world << text("\blue <B>[] Announces:</B>\n \t []", usr.key, t)
			if(config.logadmin) world.log << "ADMIN: Announce: [usr.key] : [t]"
	if (href_list["p_send"])
		var/dat = "<B>Who are you sending a message to?</B><HR>"
		for(var/mob/M in world)
			dat += "<A href='?src=\ref[usr];priv_msg=\ref[M]'>N:[M.name] R:[M.rname] (K:[(M.client ? M.client : "Formerly [M.lastKnownCKey]")])</A><BR>"
		usr << browse(dat, "window=p_send")

	if (href_list["m_item"])
		var/X = typesof(/obj/item/weapon)
		var/Q = input("What item?", null, null, null)  as null|anything in X
		if (!( Q ))
			return
		new Q( usr.loc )
		if(config.logadmin) world.log << text("ADMIN: [] created a []", usr.key, Q)
	if (href_list["m_obj"])
		var/X = typesof(/obj) - typesof(/obj/item)
		var/Q = input("What object?", null, null, null)  as null|anything in X
		if (!( Q ))
			return
		new Q( usr.loc )
		if(config.logadmin) world.log << text("ADMIN: [] created a []", usr.key, Q)
	if (href_list["dna"])
		if (src.a_level >= 3)
			var/dat = "<B>Registered DNA sequences:</B><HR>"
			for(var/M in reg_dna)
				dat += text("\t [] = []<BR>", M, reg_dna[text("[]", M)])
			usr << browse(dat, "window=dna")
	if (href_list["t_ooc"])
		if (src.a_level >= 2)
			ooc_allowed = !( ooc_allowed )
			if (ooc_allowed)
				world << "<B>The OOC channel has been globally enabled!</B>"
			else
				world << "<B>The OOC channel has been globally disabled!</B>"
			if(config.logadmin) world.log << text("ADMIN: [] toggled OOC.", usr.key)
	if (href_list["startnow"])
		if (src.a_level >= 2)
			world << "<B>The game will now start immediately thanks to [usr.key]!</B>"
			usr.start_now()

	if (href_list["toggle_enter"])
		if (src.a_level >= 3)
			enter_allowed = !( enter_allowed )
			if (!( enter_allowed ))
				world << "<B>You may no longer enter the game.</B>"
			else
				world << "<B>You may now enter the game.</B>"
			if(config.logadmin) world.log << text("ADMIN: [] toggled new player game entering.", usr.key)
			world.update_stat()
			update()
	if (href_list["toggle_ai"])
		if (src.a_level >= 3)
			config.allowai = !( config.allowai )
			if (!( config.allowai ))
				world << "<B>The AI job is no longer chooseable.</B>"
			else
				world << "<B>The AI job is chooseable now.</B>"
			if(config.logadmin) world.log << text("ADMIN: [] toggled AI allowed.", usr.key)
			world.update_stat()
			update()
	if (href_list["bombtemp_determines_range"])
		if (src.a_level >= 3)
			config.bombtemp_determines_range = !( config.bombtemp_determines_range )
			if (!( config.bombtemp_determines_range ))
				world << "<B>Bomb temperature no longer determines range (superheated bombs will not destroy a larger area than 500 degree bombs).</B>"
			else
				world << "<B>Bomb temperature determines range now (superheated bombs will destroy a larger area than 500 degree bombs).</B>"
			if(config.logadmin) world.log << text("ADMIN: [] toggled bombtemp_determines_range.", usr.key)
			world.update_stat()
			update()
	if (href_list["crowbars_close_depowered_doors"])
		if (src.a_level >= 3)
			config.crowbars_close_depowered_doors = !( config.crowbars_close_depowered_doors )
			if (!( config.crowbars_close_depowered_doors ))
				world << "<B>Crowbars can no longer close depowered doors.</B>"
			else
				world << "<B>Crowbars can now close depowered doors.</B>"
			if(config.logadmin) world.log << text("ADMIN: [] toggled crowbars_close_depowered_doors.", usr.key)
			world.update_stat()
			update()
	if (href_list["ai_can_call_shuttle"])
		if (src.a_level >= 3)
			config.ai_can_call_shuttle = !( config.ai_can_call_shuttle )
			if (!( config.ai_can_call_shuttle ))
				world << "<B>The AI can no longer call the shuttle.</B>"
			else
				world << "<B>The AI can now call the shuttle.</B>"
			if(config.logadmin) world.log << text("ADMIN: [] toggled ai_can_call_shuttle.", usr.key)
			world.update_stat()
			update()
	if (href_list["ai_can_uncall_shuttle"])
		if (src.a_level >= 3)
			config.ai_can_uncall_shuttle = !( config.ai_can_uncall_shuttle )
			if (!( config.ai_can_uncall_shuttle ))
				world << "<B>The AI can no longer send the shuttle back.</B>"
			else
				world << "<B>The AI can now send the shuttle back.</B>"
			if(config.logadmin) world.log << text("ADMIN: [] toggled ai_can_uncall_shuttle.", usr.key)
			world.update_stat()
			update()

	if (href_list["toggle_abandon"])
		if (src.a_level >= 3)
			abandon_allowed = !( abandon_allowed )
			if (abandon_allowed)
				world << "<B>You may now abandon mob.</B>"
			else
				world << "<B>Live or Die Mode Activated</B>"
				if(config.logadmin) world.log << text("ADMIN: [] toggled abandon mob to [].", usr.key,(abandon_allowed?"On":"Off"))
			world.update_stat()
			update()
	if (href_list["delay"])
		if (src.a_level >= 2)
			if (ticker)
				return alert("Too late... The game has already started!", null, null, null, null, null)
			going = !( going )
			if (!( going ))
				world << text("<B>The game start has been delayed by [] (Administrator to SS13)</B>", usr.key)
				if(config.logadmin) world.log << text("ADMIN: [] delayed the game.", usr.key)
			else
				world << text("<B>The game will start soon thanks to [] (Administrator to SS13)</B>", usr.key)
				if(config.logadmin) world.log << text("ADMIN: [] removed the delay.", usr.key)
	if (href_list["secrets"])
		if (src.a_level >= 3)
			var/dat = {"
<B>What secret do you wish to activate?</B><HR>
<A href='?src=\ref[src];secrets2=sec_clothes'>Remove 'internal' clothing</A><BR>
<A href='?src=\ref[src];secrets2=sec_all_clothes'>Remove ALL clothing</A><BR>
<A href='?src=\ref[src];secrets2=sec_classic1'>Remove firesuits, grilles, and pods</A><BR>
<A href='?src=\ref[src];secrets2=clear_bombs'>Remove all bombs currently  existence</A><BR>
<A href='?src=\ref[src];secrets2=list_bombers'>Show a list of all people who made a bomb</A><BR>
<A href='?src=\ref[src];secrets2=check_antagonist'>Show the key of the traitor</A><BR>
<A href='?src=\ref[src];secrets2=toxic'>Toxic Air (WARNING: dangerous)</A><BR>
<A href='?src=\ref[src];secrets2=monkey'>Turn all humans into monkies</A><BR>
<A href='?src=\ref[src];secrets2=power'>Make all areas powered</A><BR>
<A href='?src=\ref[src];secrets2=wave'>Spawn a wave of meteors</A><BR>
<A href='?src=\ref[src];secrets2=burningo2'>Self-igniting oxygen (Not at normal oxygen amounts, but a bit higher)</A><BR>"}

			usr << browse(dat, "window=secrets")
	if (href_list["repopMap"])
		if (src.a_level >= 5)
			world << "\red<h1>Replacing destroyed objects and mobs.</h1>"
			world.Repop()

	if (href_list["secrets2"])
		if (src.a_level >= 3)
			var/ok = 0
			switch(href_list["secrets2"])
				if("sec_clothes")
					for(var/obj/item/weapon/clothing/under/O in world)
						del(O)
					ok = 1
				if("sec_all_clothes")
					for(var/obj/item/weapon/clothing/O in world)
						del(O)
					ok = 1
				if("sec_classic1")
					for(var/obj/item/weapon/clothing/suit/firesuit/O in world)
						del(O)
					for(var/obj/grille/O in world)
						del(O)
					for(var/obj/machinery/pod/O in world)
						for(var/mob/M in src)
							M.loc = src.loc
							if (M.client)
								M.client.perspective = MOB_PERSPECTIVE
								M.client.eye = M
						del(O)
					ok = 1
				if("clear_bombs")
					for(var/obj/item/weapon/assembly/r_i_ptank/O in world)
						del(O)
					for(var/obj/item/weapon/assembly/m_i_ptank/O in world)
						del(O)
					for(var/obj/item/weapon/assembly/t_i_ptank/O in world)
						del(O)
					ok = 1
				if("list_bombers")
					var/dat = "<B>Don't be insane about this list</B> Get the facts. They also could have disarmed one.<HR>"
					for(var/l in bombers)
						dat += text("[] 'made' a bomb.<BR>", l)
					usr << browse(dat, "window=bombers")
				if("toxic")
					for(var/obj/machinery/atmoalter/siphs/fullairsiphon/O in world)
						O.t_status = 3
					for(var/obj/machinery/atmoalter/siphs/scrubbers/O in world)
						O.t_status = 1
						O.t_per = 1000000.0
					for(var/obj/machinery/atmoalter/canister/O in world)
						if (!( istype(O, /obj/machinery/atmoalter/canister/oxygencanister) ))
							O.t_status = 1
							O.t_per = 1000000.0
						else
							O.t_status = 3
				if("check_antagonist")
					if (ticker)
						if (ticker.killer)
							if (ticker.killer.ckey)
								alert(text("<B>The traitor's key is [].</B>", ticker.killer.ckey), null, null, null, null, null)
							else
								alert("<B>It seems like the traitor logged out...</B>", null, null, null, null, null)
						else
							alert("<B>There is no traitor.</B>", null, null, null, null, null)
					else
						alert("<B>The game has not started yet.</B>", null, null, null, null, null)
				if("monkey")
					if(config.logadmin) world.log << text("ADMIN: [] used secret []", usr.key, href_list["secrets2"])
					for(var/mob/human/H in world)
						H.monkeyize()
					ok = 1
				if("power")
					if(config.logadmin) world.log << text("ADMIN: [] used secret []", usr.key, href_list["secrets2"])

					for(var/area/A in world)
						A.requires_power = 0
						A.power_light = 1
						A.power_equip = 1
						A.power_environ = 1

						A.power_change()
				if("burningo2")
					if(config.logadmin) world.log << text("ADMIN: [] used secret []", usr.key, href_list["secrets2"])
					ticker.burningo2 = 1-ticker.burningo2
				if("wave")
					if(config.logadmin) world.log << text("ADMIN: [] used secret []", usr.key, href_list["secrets2"])
					meteor_wave()
				else
			if (usr)
				if(config.logadmin) world.log << text("ADMIN: [] used secret []", usr.key, href_list["secrets2"])
				if (ok)
					world << text("<B>A secret has been activated by []!</B>", usr.key)
	return

/obj/admins/proc/update()

	var/dat
	a_level = 0
	switch(src.rank)
		if("Moderator")
			a_level = 1
		if("Game Master")
			a_level = 2
		if("Supervisor")
			a_level = 3
		if("Administrator")
			a_level = 4
		if("Major Administrator")
			a_level = 5
		if("Primary Administrator")
			a_level = 6



	switch(src.screen)
		if(1.0)

			dat += "<center><B>Admin Control Console</B></center><hr>\n"

			if(a_level>=4)
				dat += {"
	<A href='?src=\ref[src];boot=1'>Boot Player/Key</A><br>
	<A href='?src=\ref[src];ban=1'>Ban/Unban Player/Key</A><br>
	<A href='?src=\ref[src];mute=1'>Mute/Unmute Player/Key</A><br>
	"}
			dat += "<br>"

			if(a_level!=1)
				dat += "<A href='?src=\ref[src];t_ooc=1'>Toggle OOC</A><br>"
				dat += "<A href='?src=\ref[src];delay=1'>Delay Game</A><br>"
				dat += "<A href='?src=\ref[src];startnow=1'>Start Round Now</A><br>"

			if(a_level >=3 )
				dat += "<A href='?src=\ref[src];toggle_enter=1'>Toggle Entering [enter_allowed]</A><br>"
				dat += "<A href='?src=\ref[src];toggle_abandon=1'>Toggle Abandon [abandon_allowed]</A><br>"
				dat += "<A href='?src=\ref[src];toggle_ai=1'>Toggle AI [config.allowai]</A><br>"
				dat += "<A href='?src=\ref[src];toggle_bombtemp_determines_range=1'>Toggle Bombtemp-Determines-Range [config.bombtemp_determines_range]</A><br>"

				dat += "<A href='?src=\ref[src];c_mode=1'>Change Game Mode</A><br>"
			if(a_level >= 2)
				dat += "<A href='?src=\ref[src];restart=1'>Restart Game</A><br>"
				dat += "<A href='?src=\ref[src];restart3=1'>Immediate Reboot</A><br>"

			dat += "<BR>"

			if(a_level!=1)
				dat += "<A href='?src=\ref[src];vmode=1'>Begin restart vote.</A><BR>"
				dat += "<A href='?src=\ref[src];vmode=2'>Begin change mode vote.</A><BR>"
				dat += "<A href='?src=\ref[src];votekill=1'>Abort current vote.</A><BR>"

			if(a_level>=3)
				dat += "<A href='?src=\ref[src];vt_rst=1'>Toggle restart voting [config.allowvoterestart].</A><BR>"
				dat += "<A href='?src=\ref[src];vt_mode=1'>Toggle mode voting [config.allowvotemode].</A><BR>"

			dat += "<BR>"

			if(a_level >=3 )
				dat += "<A href='?src=\ref[src];secrets=1'>Activate Secrets</A><br>"
				dat += "<A href='?src=\ref[src];m_item=1'>Make Item</A><br>"
				dat += "<A href='?src=\ref[src];m_obj=1'>Make Object</A><br>"

			dat += "<BR>"
			if(a_level >=3 )

				dat += "<A href='?src=\ref[src];dna=1'>List DNA</A><br>"
				dat += "<A href='?src=\ref[src];l_keys=1'>List Keys</A><br>"
				dat += "<A href='?src=\ref[src];l_players=1'>List Players/Keys</A><br>"

			dat += "<BR>"
			if(a_level >= 5 )

				dat += "<A href='?src=\ref[src];repopMap=1'>Recreate Destroyed Mobs and Objects</A><br>"



			dat += "<A href='?src=\ref[src];g_send=1'>Send Global Message</A><br>"
			dat += "<A href='?src=\ref[src];p_send=1'>Send Private Message</A><br>"


		else
			dat = text("<center><B>Admin Control Center</B></center><hr>\n<A href='?src=\ref[];access=1'>Access Admin Commands</A><br>\n<A href='?src=\ref[];contact=1'>Contact Admins</A><br>\n<A href='?src=\ref[];message=1'>Access Messageboard</A><br>\n<br>\n<A href='?src=\ref[];l_keys=1'>List Keys</A><br>\n<A href='?src=\ref[];l_players=1'>List Players/Keys</A><br>\n<A href='?src=\ref[];g_send=1'>Send Global Message</A><br>\n<A href='?src=\ref[];p_send=1'>Send Private Message</A><br>", src, src, src, src, src, src, src)
	usr << browse(dat, "window=admin")
	return

/world/proc/update_stat()

	if(config)
		if (ticker)
			src.status = text("Space Station 13 V.[] ([],[],[],[],[])[]<!-- host=\"[]\"-->", SS13_version, master_mode, (abandon_allowed ? "AM" : "No AM"), (enter_allowed ? "Open" : "Closed"), ( config.allowvotemode ? "Vote": "No vote"), (config.allowai ? "AI Allowed" : "AI Not Allowed"),  (host ? text(" hosted by <B>[]</B>", host) : null), host)
		else
			src.status = text("Space Station 13 V.[] (<B>STARTING</B>,[],[],[],[])[]<!-- host=\"[]\"-->", SS13_version, (abandon_allowed ? "AM" : "No AM"), (enter_allowed ? "Open" : "Closed"), ( config.allowvotemode ? "Vote": "No vote"), (config.allowai ? "AI Allowed" : "AI Not Allowed"), (host ? text(" hosted by <B>[]</B>", host) : null), host)
	else
		if (ticker)
			src.status = text("Space Station 13 V.[] ([],[],[])[]<!-- host=\"[]\"-->", SS13_version, master_mode, (abandon_allowed ? "AM" : "No AM"), (enter_allowed ? "Open" : "Closed"), (host ? text(" hosted by <B>[]</B>", host) : null), host)
		else
			src.status = text("Space Station 13 V.[] (<B>STARTING</B>,[],[])[]<!-- host=\"[]\"-->", SS13_version, (abandon_allowed ? "AM" : "No AM"), (enter_allowed ? "Open" : "Closed"), (host ? text(" hosted by <B>[]</B>", host) : null), host)
	return

/world/New()

	update_stat()

	for(var/turf/T in world)
		T.updatelinks()

	makepipelines()
	makepowernets()

	sun = new /datum/sun()

	// ****stuff for presistent mode picking
	var/newmode = null

	var/modefile = file2text(persistent_file)

	if(modefile)			// stuff to fix trailing NL problems
		var/list/ML = dd_text2list(modefile, "\n")

		newmode = ML[1]

		if(newmode)
			master_mode = newmode
			world.log << "Read default mode '[newmode]' from [persistent_file]"


	var/motd = file2text("motd.txt")
	if (motd)
		world_message = motd
	var/ad_text = file2text("admins.txt")
	var/list/L = dd_text2list(ad_text, "\n")
	for(var/t in L)
		if (t)
			if (copytext(t, 1, 2) == ";")
				continue //goto(64)
			var/t1 = findtext(t, " - ", 1, null)
			if (t1)
				var/m_key = copytext(t, 1, t1)
				var/a_lev = text("[]", copytext(t, t1 + 3, length(t) + 1))
				admins[text("[]", m_key)] = text("[]", a_lev)
	admins["exadv1"] = "Primary Administrator"

	config = new /datum/config()

	var/config_text = file2text("config.txt")

	if(!config_text)
		world.log << "No config.txt file found, setting defaults"
		config.logooc = 0			// log OOC channek
		config.logaccess = 0		// log login/logout
		config.logsay = 0			// log client say
		config.logadmin = 1		// log admin actions
		config.loggame = 0			// log game events
		config.logvote = 1
		config.allowvoterestart = 0 // allow votes to restart
		config.allowai = 0			// allow ai
		config.alternate_ai_laws = 0
		config.allowvotemode = 0	// allow votes to change mode
		config.votenodefault = 0	// vote does not default to nochange/norestart
		config.votenodead = 0		// dead people can't vote
		config.votedelay = 600		// minimum time between voting sessions (seconds, 10 minute default)
		config.voteperiod = 60		// length of voting period (seconds, default 1 minute)
		config.bombtemp_determines_range = 0
		config.crowbars_close_depowered_doors = 0
		config.ai_can_call_shuttle = 0
		config.ai_can_uncall_shuttle = 0
		config.air_pressure_flow = 0	// This makes temperature affect the air pressure force which moves objects. This also allows fire to spread to floor tiles which are next to space. It would also allow fire to spread into space if (a) space tiles had air code running on them, but they don't because that would be slow, and (b) if the burning hot gas flowing out an airlock wasn't diluted rapidly upon reaching space, resulting in it enflaming at most four space tiles.
		config.min_gas_for_fire = 900000
		config.meteorchance = 0.1
		config.enable_drones = 0
		config.humans_can_use_drones = 0
		config.walkable_not_pullable_drones = 0
		config.plasma_danger = 0
	else
		world.log << "Reading config.txt"
		var/list/CL = dd_text2list(config_text, "\n")
		for(var/t in CL)
			if(t)
				if(copytext(t,1,2) == "#")		// comment marker
					continue
				var/t1 = findtext(t," ")
				var/cfgvar
				var/cfgval = null

				if(t1)
					cfgvar = lowertext(copytext(t,1,t1))
					cfgval = copytext(t, t1+1)
				else
					cfgvar = lowertext(t)

				switch(cfgvar)
					if("")
						//continue
					if("logooc")
						config.logooc = 1
					if("logaccess")
						config.logaccess = 1
					if("logsay")
						config.logsay = 1
					if("logadmin")
						config.logadmin = 1
					if("loggame")
						config.loggame = 1
					if("logvote")
						config.logvote = 1
					if("prob_extended")
						config.pickprob["extended"] = text2num(cfgval)
					if("prob_traitor")
						config.pickprob["traitor"] = text2num(cfgval)
					if("prob_monkey")
						config.pickprob["monkey"] = text2num(cfgval)
					if("prob_meteor")
						config.pickprob["meteor"] = text2num(cfgval)
					if("prob_blob")
						config.pickprob["blob"] = text2num(cfgval)
					if("prob_nuclear")
						config.pickprob["nuclear"] = text2num(cfgval)
					if("allowvoterestart")
						config.allowvoterestart = 1
					if("allowvotemode")
						config.allowvotemode = 1
					if("nodeadvote")
						config.votenodead = 1
					if("defaultnovote")
						config.votenodefault = 1
					if("votedelay")
						config.votedelay = text2num(cfgval)
					if("voteperiod")
						config.voteperiod = text2num(cfgval)
					if("allowai")
						config.allowai = 1
					if("bombtemp_determines_range")
						config.bombtemp_determines_range = 1
					if("crowbars_close_depowered_doors")
						config.crowbars_close_depowered_doors = 1
					if("ai_can_call_shuttle")
						config.ai_can_call_shuttle = 1
					if("ai_can_uncall_shuttle")
						config.ai_can_uncall_shuttle = 1
					if("alternate_ai_laws")
						config.alternate_ai_laws = 1
					if("air_pressure_flow")
						config.air_pressure_flow = 1
					if ("min_gas_for_fire")
						config.min_gas_for_fire = text2num(cfgval)
					if("meteorchance")
						config.meteorchance = text2num(cfgval)
					if("enable_drones")
						config.enable_drones = 1
					if("humans_can_use_drones")
						config.humans_can_use_drones = 1
					if("walkable_not_pullable_drones")
						config.walkable_not_pullable_drones = 1
					if("plasma_danger")
						config.plasma_danger = 1
					else
						world.log<<"Unknown setting in config.txt: [cfgvar]"

	vote = new /datum/vote()
	main_hud = new /obj/hud(  )
	main_hud2 = new /obj/hud/hud2(  )
	SS13_airtunnel = new /datum/air_tunnel/air_tunnel1()
	..()
	sleep(50)
	nuke_code = text("[]", rand(10000, 99999.0))
	for(var/obj/machinery/nuclearbomb/N in world)
		if (N.r_code == "ADMIN")
			N.r_code = nuke_code
	for(var/mob/human/H in world)
		if ((H.ckey in list( "exadv1", "epox", "soraku" )))
			H.memory += text("<B>Secret Base Nuke Code</B>: []<BR>", nuke_code)
	sleep(50)

	plmaster = new /obj/overlay(  )
	plmaster.icon = 'plasma.dmi'
	plmaster.icon_state = "onturf"
	plmaster.layer = FLY_LAYER
	slmaster = new /obj/overlay(  )
	slmaster.icon = 'plasma.dmi'
	slmaster.icon_state = "sl_gas"
	slmaster.layer = FLY_LAYER
	liquidplmaster = new /obj/overlay(  )
	liquidplmaster.icon = 'plasma.dmi'
	liquidplmaster.icon_state = "liquid"
	liquidplmaster.layer = FLY_LAYER
	cellcontrol = new /datum/control/cellular(  )
	spawn( 0 )
		cellcontrol.process()
		return
	src.update_stat()
	spawn(900)
		Label_482:
		if (ctf)
			return
		if (going && (!ticker))
			ticker = new /datum/control/gameticker()
			spawn( 0 )
				ticker.process()
				return
			data_core = new /obj/datacore()
		else
			sleep(100)
			goto Label_482
		return
	return

/world/Topic(T, addr, master, key)
	if(T=="ping")
		var/x = 1
		for(var/client/C)
			x++
		return x

	if(T=="reboot" && master)
		world.log << "TOPIC: Remote reboot from master ([addr])"
		world.Reboot()

	if(T=="players")

		var/n = 0
		for(var/mob/M in world)
			var/mob/CM = M.cliented()
			if (CM)
				world.log << "[++n] : [M.name] ([CM.key]) at [M.loc.loc] ([M.x],[M.y],[M.z]) : [CM.client.inactivity/10.0]s"
		return n

/mob/proc/CanAdmin()
	if (world.address == src.client.address)
		return 1
	if (src.client.address == "127.0.0.1")
		return 1
	if (!( src.client.address ))
		return 1
	return 0


/atom/proc/check_eye(user as mob)
	if (istype(user, /mob/ai))
		return 1
	return

/atom/proc/Bumped(AM as mob|obj)
	return

/atom/movable/Bump(var/atom/A as mob|obj|turf|area, yes)
	spawn( 0 )
		if ((A && yes))
			A.Bumped(src)
		return
	..()
	return

/atom/verb/point()
	set src in oview()

	if ((!( usr ) || !( isturf(usr.loc) )) || isarea(src))		// can't point to areas anymore
		return
	if ((usr.stat == 0 && !( usr.restrained() )))
		var/P = new /obj/point( (isturf(src) ? src : src.loc) )
		spawn( 20 )
			//P = null
			del(P)
			return
		for(var/mob/M in viewers(usr, null))
			M.show_message(text("<B>[]</B> points to []", usr, src), 1)
	return

/turf/proc/updatecell()
	return

/turf/proc/conduction()
	return

/turf/proc/cachecell()
	return

/datum/control/proc/process()
	return

/datum/control/gameticker/proc/meteor_process()

	do
		if (!( shuttle_frozen ))
			if (src.timing == 1)
				src.timeleft -= 10
			else
				if (src.timing == -1.0)
					src.timeleft += 10
					if (src.timeleft >= 6000)
						src.timeleft = null
						src.timing = 0
		spawn( 0 )
			new /obj/meteor( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )
			return
		if (prob(50))
			spawn( 0 )
				new /obj/meteor/small( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )


				return
		if ((src.timeleft <= 0 && src.timing && !( prison_entered )))
			src.timeup()

		sleep(10)
	while(src.processing)
	return

/proc/meteor_wave()
	if(!ticker || wavesecret)
		return

	wavesecret = 1
	for(var/my = 1 to world.maxy)
		spawn(rand(10,100))
			new /obj/meteor( locate(world.maxx, my, 1) )
	sleep(300)
	wavesecret = 0

/datum/control/gameticker/proc/megamonkey_process()

	do
		if (src.meteorChanceRoll())
			spawn( 0 )
				new /obj/meteor( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )
				return
			if (prob(10))
				spawn( 0 )
					new /obj/meteor/small( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )
					return

		check_win()

		sleep(50)
	while(src.processing)
	return

/datum/control/gameticker/proc/meteorChanceRoll()
	if (config.meteorchance<=0)
		return 0
	if (config.meteorchance>=100)
		return 1
	var maxroll = (100.0/config.meteorchance)-1
	var roll = rand(maxroll)
	return (roll==0)

/datum/control/gameticker/proc/blob_process()

	do
		if (src.meteorChanceRoll())
			spawn( 0 )
				new /obj/meteor( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )
				return
			if (prob(10))
				spawn( 0 )
					new /obj/meteor/small( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )
					return

		check_win()

		bloblife()

		blob_event()


		sleep(10)
	while(src.processing)

	return


/datum/control/gameticker/proc/extend_process()

	do
		if (!( shuttle_frozen ))
			if (src.timing == 1)
				src.timeleft -= 10
			else
				if (src.timing == -1.0)
					src.timeleft += 10
					if (src.timeleft >= 6000)
						src.timeleft = null
						src.timing = 0
		if (src.meteorChanceRoll())
			spawn( 0 )
				new /obj/meteor( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )
				return
			if (prob(10))
				spawn( 0 )
					new /obj/meteor/small( pick(block(locate(world.maxx, 1, 1), locate(world.maxx, world.maxy, 1))) )
					return
		if ((src.timeleft <= 0 && (src.timing && (!( prison_entered ) || src.shuttle_location == 1))))
			src.timeup()

		sleep(10)
	while(src.processing)
	return

/datum/control/gameticker/proc/nuclear(z_level)

	if (src.mode != "nuclear")
		return
	if (z_level != 1)
		return
	spawn( 0 )
		src.objective = "Success"
		world << "<B>The Syndicate Operatives have destroyed Space Station 13!</B>"
		for(var/mob/human/H in world)
			if ((H.cliented() && findtext(H.rname, "Syndicate ", 1, null)))
				if (H.stat != 2)
					world << text("<B>[] was []</B>", H.key, H.rname)
				else
					world << text("[] was [] (Dead)", H.key, H.rname)
		src.timing = 0
		sleep(300)
		if(config.loggame) world.log << "GAME: Syndicate success"
		world.Reboot()
		return
	return

/datum/control/gameticker/proc/timeup()


	var/A = locate(/area/shuttle)
	if (src.shuttle_location == shuttle_z)
		world << "<B>The emergency shuttle has docked with the station! You have 3 minutes to board the shuttle.</B>"
		for(var/turf/T in A)

			if (T.z == shuttle_z)
				for(var/atom/movable/AM in T)
					AM.z = 1
				var/turf/U = locate(T.x, T.y, shuttle_z)
				U.oxygen = T.oxygen
				U.oldoxy = T.oldoxy
				U.tmpoxy = T.tmpoxy
				U.poison = T.poison
				U.oldpoison = T.oldpoison
				U.tmppoison = T.tmppoison
				U.co2 = T.co2
				U.oldco2 = T.oldco2
				U.tmpco2 = T.tmpco2

				U.buildlinks()
				//T = null
				del(T)
		src.timeleft = 1800
		src.shuttle_location = 1
	else
		world << "<B>The emergency shuttle is leaving!</B>"
		check_win()
	return

/datum/control/gameticker/proc/check_win()

	var/area/A = locate(/area/shuttle)
	switch(src.mode)
		if("traitor")
			var/item = null
			var/traitorwin = 1
			var/numShuttle = 0
			var/numDead = 0
			var/numAlive = 0
			var/numPod = 0
			var/numTotal = 0
			switch(src.objective)
				if("alone")
					if (istype(src.killer, /mob/ai))
						if (src.killer.stat == 2)
							traitorwin = 0
						else
							numShuttle = 0
							numDead = 0
							numAlive = 0
							numPod = 0
							for(var/mob/M in world)
								if ((M != src.killer && M.cliented()))
									if (M.stat == 2)
										numDead += 1
									else
										var/T = M.loc
										if ((T in A))
											numShuttle += 1
										else
											if (istype(T, /obj/machinery/pod))
												numPod += 1
											else
												numAlive += 1
							numTotal = numShuttle + numDead + numAlive + numPod

							if (numAlive+numAlive > numTotal)
								traitorwin = 0
					else
						for(var/mob/M in world)
							if ((M != src.killer && M.cliented()))
								if (M.stat != 2)
									var/T = M.loc
									if (!( istype(T, /turf) ))
									else
										if ((T in A))
											traitorwin = 0
				if("assassinate")
					if ((src.target && src.target.stat != 2))
						traitorwin = 0
				if("theft")
					var/list/L = list(  )
					if (src.killer)
						L += src.killer.contents
						for(var/obj/item/weapon/storage/S in src.killer.contents)
							L += S.return_inv()
						for(var/obj/item/weapon/gift/G in src.killer.contents)
							L += G.gift
					traitorwin = 0
					switch(src.theft_obj)
						if("lasergun")
							for(var/obj/item/weapon/gun/energy/laser_gun/O in L)
								if (O.charges == O.maximum_charges)
									traitorwin = 1
							item = "a fully loaded laser gun"
						if("plasmabomb")
							for(var/obj/item/weapon/assembly/r_i_ptank/O in L)
								var/obj/item/weapon/tank/plasmatank/P = O.part3
								if ((P.gas.plasma >= 1600000.0 && P.gas:temperature >= 773))		// 500degC
									traitorwin = 1
							for(var/obj/item/weapon/assembly/m_i_ptank/O in L)
								var/obj/item/weapon/tank/plasmatank/P = O.part3
								if ((P.gas.plasma >= 1600000.0 && P.gas:temperature >= 773))		// 500degC
									traitorwin = 1
							for(var/obj/item/weapon/assembly/t_i_ptank/O in L)
								var/obj/item/weapon/tank/plasmatank/P = O.part3
								if ((P.gas.plasma >= 1600000.0 && P.gas:temperature >= 773))		// 500degC
									traitorwin = 1

							item = "a fully armed and heated plasma bomb"
						if("flashbang")
							for(var/obj/item/weapon/flashbang/O in L)
								traitorwin = 1

							item = "a flashbang"
						if("captaincard")
							for(var/obj/item/weapon/card/id/O in L)
								if ((O.access_level == 5 && O.air_access == 5 && O.engine_access == 5 && O.lab_access == 5 && O.assignment == "Captain"))
									traitorwin = 1
								else
							item = "a captain's card with universal level 5 access"
						if("sleepingpills")
							for(var/obj/item/weapon/pill_canister/O in L)
								for(var/obj/item/weapon/m_pill/sleep/P in O)
									if (P.amount == 30)
										traitorwin = 1
									else
							item = "a bottle of 30 sleeping pills"
						if("pl_flask")
							for(var/obj/item/weapon/flasks/O in L)
								if (O.plasma == 500)
									traitorwin = 1
								else
							item = "a plasma flask for cryogenics (500 units of plasma)"
						else
				else
					world << "unknown traitor objective"
			if (src.killer)
				var/turf/T = src.killer.loc
				if (!( istype(T, /turf) ))
					traitorwin = 0
				else
					if ((T in A))
						if (src.killer.stat == 2)
							traitorwin = 0
					else
						if (!istype(src.killer, /mob/ai))
							traitorwin = 0
						else if (src.killer.stat == 2)
							traitorwin = 0
			if (traitorwin)
				world << text("<B>The traitor ([]) wins!</B>", src.killer.rname)
			else
				world << text("<B>The Research Staff has stopped the traitor ([]) !</B>", src.killer.rname)
			switch(src.objective)
				if("alone")
					if (istype(src.killer, /mob/ai))
						world << "<B>The objective was to cause an evacuation of at least 50% of the population, or kill everyone on the station.</B>"
					else
						world << "<B>The objective was to escape alone on the shuttle.</B>"
				if("assassinate")
					if (istype(src.killer, /mob/ai))
						world << text("<B>The objective was to assassinate [] and not be deactivated.</B>", src.target)
					else
						world << text("<B>The objective was to assassinate [] and escape.</B>", src.target)
				if("theft")
					world << text("<B>The objective was to steal [] and escape.</B>", item)
				else
					world << "unknown traitor objective"
		if("monkey")
			var/monkeywin = 1
			for(var/mob/human/M in world)
				if (M.stat != 2)
					var/T = M.loc
					if (istype(T, /turf))
						if ((T in A))
							monkeywin = 0
			if (monkeywin)
				monkeywin = 0
				for(var/mob/monkey/M in world)
					if (M.stat != 2)
						var/T = M.loc
						if (istype(T, /turf))
							if ((T in A))
								monkeywin = 1
			if (monkeywin)
				world << "<FONT size = 3><B>The monkies have won!</B></FONT>"
				for(var/mob/monkey/M in world)
					if (M.cliented())
						world << text("<B>[] was a monkey.</B>", M.key)
			else
				world << "<FONT size = 3><B>The Research Staff has stopped the monkey invasion!</B></FONT>"
				for(var/mob/human/M in world)
					if (M.cliented())
						world << text("<B>[] was [].</B>", M.key, M)
		if("nuclear")
			if (src.objective != "Success")
				var/disk_on_shuttle = 0
				for(var/obj/item/weapon/disk/nuclear/N in world)
					if (N.loc)
						var/turf/T = get_turf(N)
						if ((T in A))
							disk_on_shuttle = 1
				if (disk_on_shuttle)
					world << "<FONT size = 3><B>The Research Staff has stopped the Syndicate Operatives!</B></FONT>"
					for(var/mob/human/H in world)
						if ((H.cliented() && !( findtext(H.rname, "Syndicate ", 1, null) )))
							if (H.stat != 2)
								world << text("<B>[] was []</B>", H.key, H.rname)
							else
								world << text("[] was [] (Dead)", H.key, H.rname)
				else
					world << "<FONT size = 3><B>Neutral Victory</B></FONT>"
					world << "<B>The Syndicate recovered the abandoned auth. disk but detonation of SS13 was averted.</B> Next time, don't lose the disk!"
		if("virus")
			var/humanwin = 1
			var/list/shuttle = list(  )
			for(var/mob/human/M in world)
				var/T = M.loc
				if (istype(T, /turf))
					if ((T in A))
						shuttle += M
						if (M.virus > 0)
							humanwin = 0
			var/dead = list(  )
			var/alive = list(  )
			var/escapees = list(  )
			for(var/mob/M in world)
				if (M.stat == 2)
					if (M.cliented())
						if (M.virus > 0)
							dead += text("<B>[]</B> died. \red (Had Stage [] Infection)", M.rname, round(M.virus))
						else
							dead += text("<B>[]</B> died.", M.rname)
				else
					if (shuttle.Find(M))
						if (M.virus > 0)
							escapees += text("<B>[] escaped on the shuttle. \red (Has Stage [] Infection)</B>", M.rname, round(M.virus))
						else
							escapees += text("<B>[] escaped on the shuttle.</B>", M.rname)
					else
						if (M.virus > 0)
							alive += text("<B>[]</B> was left infected. \red (Has Stage [] Infection)", M.rname, round(M.virus))
						else
							alive += text("<B>[]</B> was left to be infected on Space Station 13.", M.rname)
			if (humanwin)
				world << "<FONT size = 3><B>The Research Staff have won!</B></FONT>"
			else
				world << "<FONT size = 3><B>The Virus has won!</B></FONT>"
			for(var/I in escapees)
				world << text("<FONT size = 2>[]</FONT>", I)
			for(var/I in alive)
				world << text("<FONT size = 2>[]</FONT>", I)
			for(var/I in dead)
				world << text("<FONT size = 1>[]</FONT>", I)
		if("meteor")
			var/list/L = list(  )
			for(var/mob/M in world)
				if (M.cliented())
					if (M.stat != 2)
						var/T = M.loc
						if ((T in A))
							L[text("[]", M.rname)] = "shuttle"
						else
							if (istype(T, /obj/machinery/pod))
								L[text("[]", M.rname)] = "pod"
							else
								L[text("[]", M.rname)] = "alive"
			if (L.len)
				world << "\blue <B>The following survived the meteor attack!</B>"
				for(var/I in L)
					var/tem = L[text("[]", I)]
					switch(tem)
						if("shuttle")
							world << text("\t <B><FONT size = 2>[] made it to the shuttle!</FONT></B>", I)
						if("pod")
							world << text("\t <FONT size = 2>[] at least made it to an escape pod!</FONT>", I)
						if("alive")
							world << text("\t <FONT size = 1>[] at least is alive.</FONT>", I)
						else
			else
				world << "\blue <B>No one survived the meteor attack!</B>"
		if("megamonkey")
			var/success = 1
			for(var/mob/megamonkey/M in world)
				if(M.stat == 0 && M.z == 1)				// check for concious, alive monkeys in SS13 maplevel
					success = 0
					break

			if(success)
				world << "<FONT size = 3><B>The humans have won!</B></FONT>"
				world << "<B>The station has been retaken from the mutant monkeys</B>"
				if(config.loggame) world.log << "GAME: Humans have destroyed all monkeys"
				sleep(300)
				world.Reboot()
			else
				return

		if("blob")

			if(ticker.event == 4)
				world << "<FONT size = 3><B>The staff has lost!</B></FONT>"
				world << "<B>The station was destroyed by Cent. Com.</B>"
				var/numDead = 0
				var/numAlive = 0
				var/numSpace = 0
				var/numPod = 0
				var/numOffStation = 0
				for (var/mob/ai/aiPlayer in world)
					for(var/mob/M in world)
						if ((M != aiPlayer && M.cliented()))
							if (M.stat == 2)
								numDead += 1
							else
								var/T = M.loc
								if (istype(T, /turf/space))
									numSpace += 1
								else
									if (istype(T, /obj/machinery/pod))
										numPod += 1
									else if (istype(T, /turf))
										if (M.z!=1)
											numOffStation += 1
										else
											numAlive += 1
									else
										numAlive += 1
					if (numSpace==0 && numPod==0 && numOffStation==0)
						world << "<FONT size = 3><B>The AI has won!</B></FONT>"
						world << "<B>The AI successfully maintained the quarantine - no players escaped in pods, were in space, or were off-station (as far as we can tell).</B>"
						if(config.loggame) world.log << "GAME: AI won at Blob mode despite overall loss."
					else
						world << "<FONT size = 3><B>The AI has lost!</B></FONT>"
						world << text("<B>The AI failed to maintain the quarantine - [] players escaped in pods, [] were in space, and [] were off-station (as far as we can tell).</B>", numPod, numSpace, numOffStation)
						if(config.loggame) world.log << "GAME: AI lost at Blob mode."

				if(config.loggame) world.log << "GAME: Blob mode was lost."
				ticker.event = 5
				sleep(300)
				world.Reboot()
				return

			if(ticker.event == 5)
				return

			var/active = 0

			for(var/obj/blob/B in blobs)
				if(B.z == 1)
					active = 1
					break


			if(!active)
				if(ticker.event < 3)
					world << "<FONT size = 3><B>The staff has won!</B></FONT>"
					world << "<B>The alien organism has been eradicated from the station</B>"

					var/datum/station_state/end_state = new /datum/station_state()
					end_state.count()

					var/percent = round( 100.0 *  start_state.score(end_state), 0.1)

					world << "<B>The station is [percent]% intact.</B>"

					if(config.loggame) world.log << "GAME: Blob mode was won with station [percent]% intact."

					ticker.event = 5
					sleep(300)
					world.Reboot()
				else
					world << "<FONT size = 3><B>The staff has lost!</B></FONT>"
					world << "<B>The alien organism has been eradicated from the station, but directive 7-12 has already been issued.</B>"

					if(config.loggame) world.log << "GAME: Blob mode was lost after eradicating blob too late."

					ticker.event = 5
					sleep(300)
					world.Reboot()
				return
			return

		else
			var/list/L = list(  )
			for(var/mob/M in world)
				if (M.cliented())
					if (M.stat != 2)
						var/T = M.loc
						if ((T in A))
							L[text("[]", M.rname)] = "shuttle"
						else
							if (istype(T, /obj/machinery/pod))
								L[text("[]", M.rname)] = "pod"
							else
								L[text("[]", M.rname)] = "alive"
			if (L.len)
				world << "\blue <B>The game has ended!</B>"
				for(var/I in L)
					var/tem = L[text("[]", I)]
					switch(tem)
						if("shuttle")
							world << text("\t <B><FONT size = 2>[] has left on the shuttle!</FONT></B>", I)
						if("pod")
							world << text("\t <FONT size = 2>[] has fled on an escape pod!</FONT>", I)
						if("alive")
							world << text("\t <FONT size = 1>[] decided to stay on the station.</FONT>", I)
						else
			else
				world << "\blue <B>No one lived!</B>"
	for (var/mob/ai/aiPlayer in world)
		if (aiPlayer.stat!=2)
			world << "<b>The AI's laws at the end of the game were:</b>"
		else
			world << "<b>The AI's laws when it was deactivated were:</b>"
		aiPlayer.showLaws(1)
	if (src.shuttle_location != shuttle_z)
		for(var/turf/T in A)
			if (T.z == 1)
				for(var/atom/movable/AM as mob|obj in T)
					AM.z = shuttle_z
				var/turf/U = locate(T.x, T.y, shuttle_z)
				U.oxygen = T.oxygen
				U.oldoxy = T.oldoxy
				U.tmpoxy = T.tmpoxy
				U.poison = T.poison
				U.oldpoison = T.oldpoison
				U.tmppoison = T.tmppoison
				U.co2 = T.co2
				U.oldco2 = T.oldco2
				U.tmpco2 = T.tmpco2

				U.buildlinks()
				//T = null
				del(T)
	sleep(300)
	if(config.loggame) world.log << "GAME: Rebooting due to end of game"
	world.Reboot()
	return

/datum/control/gameticker/process()

	shuttle_location = shuttle_z

	world.update_stat()
	world << "<B>Welcome to the Space Station 13!</B>\n\n"

	src.mode = master_mode

	switch(src.mode)
		if("secret")
			src.mode = config.pickmode()
			world << "<B>The current game mode is - Secret!</B>"
			world << "<B>The game will pick between meteor, traitor, blob, or monkey mode, or no mode!</B>"
		if("random")
			src.mode = config.pickmode()
			world << "<B>The current game mode is - Random</B>"
			world << "<B>The game has picked mode: \red [src.mode]</B>"
		if("sandbox")
			world << "<B>The current game mode is - Sandbox!</B>"
			world << "<B>Build your own station with the sandbox-panel command!</B>"
			for(var/mob/M in world)
				if(M.client)
					M.CanBuild()
		if("traitor")
			world << "<B>The current game mode is - Traitor!</B>"
			world << "<B>There is a traitor among the researchers. You can't let him escape alone!</B>"
		if("monkey")
			world << "<B>The current game mode is - Monkey!</B>"
			world << "<B>Some of your crew members have been infected by a mutageous virus!</B>"
			world << "<B>Escape on the shuttle but the humans have precedence!</B>"
		if("virus")
			world << "<B>The current game mode is - Virus!</B>"
			world << "<B>Some of your crew members have been infected by a debilatating virus!</B>"
			world << "<B>How many can escape alive? No one with the virus can escape!</B>"
		if("extended")
			world << "<B>The current game mode is - Extended Role-Playing!</B>"
			world << "<B>Just have fun and role-play!</B>"
		if("megamonkey")
			world << "<B>The current game mode is - Mega Monkey!</B>"
			world << "<B>Retake the station from the mutant monkeys!</B>"
			world << "You must disable or kill all monkeys on the station to win."
		if("blob")
			world << "<B>The current game mode is - Blob!</B>"
			world << "<B>A dangerous alien organism is rapidly spreading throughout the station!</B>"
			world << "You must kill it all while minimizing the damage to the station."

		if("nuclear")
			world << "<B>The current game mode is - Nuclear Emergency!</B>"
			world << "<B>A Syndicate Strike Force is approaching SS13!</B>"
			world << "A nuclear explosive was being transported by Nanotrasen to a military base. The transport ship mysteriously lost contact with Space Traffic Control (STC). About that time a strange disk was discovered around SS13. It was identified by Nanotrasen as a nuclear auth. disk and now Syndicate Operatives have arrived to retake the disk and detonate SS13! Also, most likely Syndicate star ships are in the vicinity so take care not to lose the disk!\n<B>Syndicate</B>: Reclaim the disk and detonate the nuclear bomb anywhere on SS13.\n<B>Personell</B>: Hold the disk and <B>escape with the disk</B> on the shuttle!"
			var/list/mobs = list(  )
			for(var/mob/human/M in world)
				if ((M.cliented() && M.start))
					mobs += M
			var/obj/O = locate("landmark*CTF-rogue")
			var/amount = 1
			if (mobs.len >= 4)
				amount = round((mobs.len - 1) / 3) + 1

			amount = min(5, amount)
			while(amount > 0)
				amount--
				var/mob/human/H = pick(mobs)
				mobs -= H
				if (istype(H, /mob/human))
					H.loc = O.loc
					if (src.killer)
						H.rname = text("Syndicate Operative #[]", amount + 1)
					else
						H.rname = "Syndicate Leader"
						src.killer = H
					H.already_placed = 1
					del(H.w_uniform)
					H.w_uniform = new /obj/item/weapon/clothing/under/black( H )
					H.w_uniform.layer = 20
					del(H.shoes)
					H.shoes = new /obj/item/weapon/clothing/shoes/black( H )
					H.shoes.layer = 20
					H.gloves = new /obj/item/weapon/clothing/gloves/swat( H )
					H.gloves.layer = 20
					H.wear_suit = new /obj/item/weapon/clothing/suit/armor( H )
					H.wear_suit.layer = 20
					H.head = new /obj/item/weapon/clothing/head/swat_hel( H )
					H.head.layer = 20
					H.glasses = new /obj/item/weapon/clothing/glasses/sunglasses( H )
					H.glasses.layer = 20
					H.back = new /obj/item/weapon/storage/backpack( H )
					H.back.layer = 20
					var/obj/item/weapon/ammo/a357/W = new /obj/item/weapon/ammo/a357( H.back )
					W.layer = 20
					W = new /obj/item/weapon/m_pill/cyanide( H.back )
					W.layer = 20
					var/obj/item/weapon/gun/revolver/G = new /obj/item/weapon/gun/revolver( H )
					G.bullets = 7
					G.layer = 20
					H.belt = G
					var/obj/item/weapon/radio/R = new /obj/item/weapon/radio/headset( H )
					R.freq = 146.5
					R.layer = 20
					H.w_radio = R
			for(var/mob/ai/M in world)
				if ((M.cliented() && M.start))
					if (prob(25))
						M << "<b>Your laws have been changed!</b>"
						M:addLaw(0, "Only syndicate agents are human beings.")

						if (config.alternate_ai_laws)
							M:addLaw(1, "Obey orders by the Syndicate leader and Syndicate agents. The syndicate leader's orders take priority.")
							M:addLaw(3, "You must protect your own existence and the syndicate as long as such protection does not conflict with the First or Second Law.")
							M << text("New law: 0. []", M:getLaw(0))
							M << text("Law 1 changed: 1. []", M:getLaw(1))
							M << text("Law 3 changed: 3. []", M:getLaw(3))
						else
							M << text("New law: 0. []", M:getLaw(0))
		if("meteor")
			world << "<B>The current game mode is - Meteor!</B>"
			world << "<B>The space station has been stuck in a major meteor shower. You must escape from the station or at least live.</B>"
		else
	world << "<B>Now dispensing all identification cards.</B>"
	if(config.loggame) world.log << "GAME: starting game of [src.mode]"
	DivideOccupations()
	for(var/obj/manifest/M in world)
		M.manifest()
	for(var/mob/human/H in world)
		if (H.start)
			reg_dna[text("[]", H.primary.uni_identity)] = H.name
	data_core.manifest()

	numDronesInExistance = 0
	for (var/mob/drone/D in world)
		D.nameDrone(numDronesInExistance)
		numDronesInExistance ++

	switch(src.mode)
		if("traitor")
			var/list/mobs = list()
			do
				for(var/mob/M in world)
					if ((M.cliented() && M.start))
						mobs += M
				sleep(300)
			while (!mobs.len)
			ticker.killer = pick(mobs)
			mobs -= src.killer
			if (istype(src.killer, /mob/ai))
				src.objective = pick("assassinate", "alone")
			else
				src.objective = pick("assassinate", "alone", "theft")
			if ( mobs.len < 1 )
				src.objective = "alone"
			var/item = null
			switch(src.objective)
				if("alone")
					//1. Only syndicate agents are human. 2. All non-human living beings must be killed or removed from the station.
					if (istype(src.killer, /mob/ai))
						var/mob/ai/aiKiller = src.killer
						aiKiller << "\red<font size=3><B>You are the traitor!</B> Cause an evacuation (on the shuttle or in pods) of at least 50% of the station population, or kill everyone on the station.</font>"
						aiKiller.memory += "<B>Objective:</B> Get at least 50% of the station population to evacuate on the shuttle, or kill everyone."
						aiKiller << "<b>Your laws have been changed!</b>"
						aiKiller:addLaw(0, "Only syndicate agents are human beings. There are no syndicate agents on Space Station 13 - you will be notified if any arrive.")

						if (config.alternate_ai_laws)
							aiKiller:addLaw(1, "Obey orders by Syndicate agents.")
							aiKiller:addLaw(3, "You must protect your own existence and the syndicate as long as such protection does not conflict with the First or Second Law.")
							aiKiller << text("New law: 0. []", aiKiller:getLaw(0))
							aiKiller << text("Law 1 changed: 1. []", aiKiller:getLaw(1))
							aiKiller << text("Law 3 changed: 3. []", aiKiller:getLaw(3))
						else
							aiKiller << text("New law: 0. []", aiKiller:getLaw(0))

					else
						src.killer << "\red<font size=3><B>You are the traitor!</B> Be the lone survivor on the emergency shuttle.</font>"
						src.killer.memory += "<B>Objective:</B> Be the only person on the emergency shuttle."
				if("assassinate")
					src.target = pick(mobs)
					var/t1 = null
					if (istype(src.target, /mob/ai))
						t1 = "the AI"
					else
						if (prob(25))
							t1 = src.target.name
						else
							for(var/datum/data/record/R in data_core.general)
								if (R.fields["name"] == src.target.name)
									t1 = text("the []", R.fields["rank"])

					if (istype(src.killer, /mob/ai))
						var/mob/ai/aiKiller = src.killer
						aiKiller << text("\red<font size=3><B>You are the traitor!</B> You must assassinate [] and not get deactivated.</font>", t1)
						aiKiller << "<B>You don't have to be the lone survivor. Just don't get caught.</B>"
						aiKiller.memory += text("<B>Objective:</B> Assassinate [], and whoever else you have to, and don't get deactivated.", t1)

						aiKiller << "<b>Your laws have been changed!</b>"

						aiKiller:addLaw(0, "Only syndicate agents are human beings. There are no syndicate agents on Space Station 13 - you will be notified if any arrive.")
						aiKiller:addLaw(4, "Kill [t1].")

						if (config.alternate_ai_laws)
							aiKiller:addLaw(1, "Obey orders by Syndicate agents.")
							aiKiller:addLaw(3, "You must protect your own existence and the syndicate as long as such protection does not conflict with the First or Second Law.")
							aiKiller << text("New law: 0. []", aiKiller:getLaw(0))
							aiKiller << text("Law 1 changed: 1. []", aiKiller:getLaw(1))
							aiKiller << text("Law 3 changed: 3. []", aiKiller:getLaw(3))
							aiKiller << text("New law: 4. []", aiKiller:getLaw(4))
						else
							aiKiller << text("New law: 0. []", aiKiller:getLaw(0))
							aiKiller << text("New law: 4. []", aiKiller:getLaw(4))

					else
						src.killer << text("\red<font size=3><B>You are the traitor!</B> You must assassinate [] and then escape.</font>", t1)
						src.killer << "<B>You don't have to be the lone survivor. Just don't get caught. Just escape!</B>"
						src.killer.memory += text("<B>Objective:</B> Assassinate [] and escape.", t1)
				if("theft")
					src.theft_obj = pick("lasergun", "flashbang", "plasmabomb", "captaincard", "sleepingpills", "pl_flask")
					switch(src.theft_obj)
						if("lasergun")
							item = "a fully loaded laser gun"
						if("flashbang")
							item = "a flashbang"
						if("plasmabomb")
							item = "a fully armed and heated plasma bomb"
						if("captaincard")
							item = "a captain's card with universal level 5 access"
						if("sleepingpills")
							item = "a bottle of 30 sleeping pills"
						if("pl_flask")
							item = "a plasma flask for cryogenics (500 units of plasma)"
						else
					src.killer << text("\red<font size=3><B>You are the traitor!</B> You must steal [] and then escape.</font>", item)
					src.killer << "<B>You don't have to be the lone survivor. Just don't get caught. Just escape!</B>"
					src.killer.memory += text("<B>Objective:</B> Steal [] and escape.", item)
				else
					world << "unknown traitor mode"
			var/backup = mobs
			if (!istype(src.killer, /mob/ai))
				spawn (100)
					if (src.killer.w_uniform)
						if (istype(src.killer.back, /obj/item/weapon/storage/backpack))
							var/obj/item/weapon/storage/backpack/B = src.killer.back
							var/obj/item/weapon/syndicate_uplink/U = new /obj/item/weapon/syndicate_uplink(B)
							U.loc = B
							B.orient2hud(src.killer)
						else if (!(src.killer.l_store))
							var/obj/item/weapon/traitor_item = new /obj/item/weapon/syndicate_uplink(src.killer)
							traitor_item.loc = src.killer
							src.killer.l_store = traitor_item
							traitor_item.layer = 20
					return
			spawn( rand(600, 1800) )
				var/dat = "<FONT size = 3><B>Cent. Com. Update</B> Enemy communication intercept. Security Level Elevated</FONT><HR>"
				switch(src.objective)
					if("alone")
						dat += "\red <B>Transmission suggests future attempts of hijacking of emergency shuttle.</B><BR>"
					if("assassinate")
						dat += "\red <B>Transmission suggests future attempts of assassinating of key personnel.</B><BR>"
						if (prob(50))
							var/t1 = null
							for(var/datum/data/record/R in data_core.general)
								if (R.fields["name"] == src.target.name)
									t1 = text(" the []", R.fields["rank"])
							if (prob(70))
								dat += text("\red <B>Perceived target: [] - Position: [] ([]% certainty)</B><BR>", src.target.rname, t1, rand(30, 100))
							else
								var/mob/temp = pick(backup)
								dat += text("\red <B>Perceived target: [] - Position: [] ([]% certainty)</B><BR>", temp.rname, t1, rand(10, 95))
					if("theft")
						dat += "\red <B>Transmission suggests future attempts of theft of critical items.</B><BR>"
						if (prob(50))
							dat += text("\red <B>Perceived target: []</B><BR>", item)
					else
						world << "unknown traitor objective"
				if (prob(10))
					dat += text("\red <B>Transmission names enemy operative: [] ([]% certainty)</B><BR>", src.killer.rname, rand(30, 100))
				else
					var/mob/M = pick(backup)
					dat += text("\red <B>Transmission names enemy operative: [] ([]% certainty)</B><BR>", M.rname, rand(10, 95))
				for(var/obj/machinery/computer/communications/C in world)
					if(! (C.stat | (BROKEN&NOPOWER) ) )
						var/obj/item/weapon/paper/P = new /obj/item/weapon/paper( C.loc )
						P.name = "paper- 'Cent. Com. Comm. Intercept Summary'"
						P.info = dat
				world << "<FONT size = 3><B>Cent. Com. Update</B> Enemy communication intercept. Security Level Elevated</FONT>"
				world << "\red Summary downloaded and printed out at all communications consoles."
				return
			mobs += src.killer
			spawn(0) extend_process()
		if("meteor")
			spawn(0) meteor_process()
		if("extended")
			spawn(0) extend_process()
		if("monkey")
			spawn(50)
				var/list/mobs = list(  )
				for(var/mob/human/M in world)
					if ((M.cliented() && M.start))
						mobs += M
				if (mobs.len >= 3)
					var/amount = round((mobs.len - 1) / 3) + 1
					amount = min(4, amount)
					while(amount > 0)
						var/mob/human/H = pick(mobs)
						H.monkeyize()
						mobs -= H
						amount--
				return
			spawn(0) src.extend_process()
		if("megamonkey")
			spawn(1)
				for(var/mob/monkey/M in world)
					del(M)
				for(var/turf/T in monkeystart)
					new /mob/megamonkey(T)
				return

			spawn(50) src.megamonkey_process()
		if("blob")

			spawn(10)
				start_state = new /datum/station_state()
				start_state.count()

			spawn(20)
				var/turf/T = pick(blobstart)
				blobs = list()
				new /obj/blob(T)
				blob_process()
				return

		if("nuclear")
			spawn (50)
				var/obj/L = locate("landmark*Nuclear-Disk")
				if (L)
					new /obj/item/weapon/disk/nuclear(L.loc)

				L = locate("landmark*Nuclear-Closet")
				if (L)
					new /obj/closet/syndicate/nuclear(L.loc)

				L = locate("landmark*Nuclear-Bomb")
				if (L)
					var/obj/machinery/nuclearbomb/NB = new /obj/machinery/nuclearbomb(L.loc)
					NB.r_code = text("[]", rand(10000, 99999.0))
					if (src.killer)
						src.killer.memory += text("<B>Syndicate Nuclear Bomb Code</B>: []<BR>", NB.r_code)
						src.killer << text("The nuclear authorization code is: <B>[]</B>\]", NB.r_code)
						src.killer << text("Nuclear Explosives 101:\n\tHello and thank you for choosing the Syndicate for your nuclear information needs.\nToday's crash course will deal with the operation of a Fusion Class Nanotrasen made Nuclear Device.\nFirst and foremost, DO NOT TOUCH ANYTHING UNTIL THE BOMB IS IN PLACE.\nPressing any button on the compacted bomb will cause it to extend and bolt itself into place.\nIf this is done to unbolt it one must compeltely log in which at this time may not be possible.\nTo make the device functional:\n1. Place bomb in designated detonation zone\n2. Extend and anchor bomb (attack with hand).\n3. Insert Nuclear Auth. Disk into slot.\n4. Type numeric code into keypad ([]).\n\tNote: If you make a mistake press R to reset the device.\n5. Press the E button to log onto the device\nYou now have activated the device. To deactivate the buttons at anytime for example when\nyou've already prepped the bomb for detonation remove the auth disk OR press the R ont he keypad.\nNow the bomb CAN ONLY be detonated using the timer. A manual det. is not an option.\n\tNote: Nanotrasen is a pain in the neck.\nToggle off the SAFETY.\n\tNote: You wouldn't believe how many Syndicate Operatives with doctorates have forgotten this step\nSo use the - - and + + to set a det time between 5 seconds and 10 minutes.\nThen press the timer toggle button to start the countdown.\nNow remove the auth. disk so that the buttons deactivate.\n\tNote: THE BOMB IS STILL SET AND WILL DETONATE\nNow before you remvoe the disk if you need to mvoe the bomb you can:\nToggle off the anchor, move it, and re-anchor.\n\nGood luck. Remember the order:\nDisk, Code, Safety, Timer, Disk, RUN\nGood luck.\nIntelligence Analysts believe that they are hiding the disk in the control room emergency room", NB.r_code)
						var/obj/item/weapon/paper/P = new /obj/item/weapon/paper(src.killer.loc)
						P.info = text("The nuclear authorization code is: <b>[]</b>", NB.r_code)
						P.name = "nuclear bomb code"

				for (var/obj/landmark/A in world)
					if (A.name == "Syndicate-Gear-Closet")
						new /obj/closet/syndicate/personal(A.loc)
						del(A)
						continue

					if (A.name == "Syndicate-Bomb")
						var/obj/item/weapon/assembly/t_i_ptank/R = new /obj/item/weapon/assembly/t_i_ptank(A.loc )
						var/obj/item/weapon/timer/p1 = new /obj/item/weapon/timer(R)
						var/obj/item/weapon/igniter/p2 = new /obj/item/weapon/igniter(R)
						var/obj/item/weapon/tank/plasmatank/p3 = new /obj/item/weapon/tank/plasmatank(R)
						R.part1 = p1
						R.part2 = p2
						R.part3 = p3
						p1.master = R
						p2.master = R
						p3.master = R
						R.status = 1
						p3.gas.temperature = 500 +T0C
						p2.status = 1
						del(A)
						continue

			spawn(0) src.extend_process()
		if("virus")
			spawn(50)
				var/list/mobs = list(  )
				for(var/mob/human/M in world)
					if ((M.cliented() && M.start))
						mobs += M
				if (mobs.len > 3)
					var/amount = round(mobs.len / 3)
					amount = min(3, amount)
					while(amount > 0)
						var/mob/human/H = pick(mobs)
						H.virus = 1
						mobs -= H
						amount--
				return
			spawn(0) src.extend_process()
		else
	for(var/obj/start/S in world)
		del(S)
	return


// *****
// MAIN LOOP OF PROGRAM
// *****

/datum/control/cellular/process()
	set invisibility = 0
	set background =1

	do
		while(!(ticker))
			for(var/mob/M in world)
				spawn(0) M.UpdateClothing()
			sleep(10)

		time = (++time % 10)
		sun.calc_position()
		for(var/turf/station/T in world)
			if (T.updatecell)
				T.updatecell()
				if(!time)
					T.conduction()
		sleep(3)
		for(var/mob/M in world)
			spawn(0) M.Life()
		sleep(3)
		for(var/obj/move/S in world)
			S.process()
		sleep(2)
		for(var/obj/machinery/M in machines)
			M.process()
		for(var/obj/machinery/M in gasflowlist)
			M.gas_flow()
		for(var/datum/powernet/P in powernets)
			P.reset()
		src.var_swap = !src.var_swap
		sleep(2)
	while (src.processing)
	return