vgstation13/code/modules/client/client procs.dm

	////////////
	//SECURITY//
	////////////
#define TOPIC_SPAM_DELAY	2		//2 ticks is about 2/10ths of a second; it was 4 ticks, but that caused too many clicks to be lost due to lag
#define UPLOAD_LIMIT		10485760	//Restricts client uploads to the server to 10MB //Boosted this thing. What's the worst that can happen?
#define MIN_CLIENT_VERSION	514
	/*
	When somebody clicks a link in game, this Topic is called first.
	It does the stuff in this proc and  then is redirected to the Topic() proc for the src=[0xWhatever]
	(if specified in the link). ie locate(hsrc).Topic()

	Such links can be spoofed.

	Because of this certain things MUST be considered whenever adding a Topic() for something:
		- Can it be fed harmful values which could cause runtimes?
		- Is the Topic call an admin-only thing?
		- If so, does it have checks to see if the person who called it (usr.client) is an admin?
		- Are the processes being called by Topic() particularly laggy?
		- If so, is there any protection against somebody spam-clicking a link?
	If you have any  questions about this stuff feel free to ask. ~Carn
	*/
var/bunker_up = 0 //this round
var/bunker_saved = 0 //saved to file
var/bunker_setting = 0
var/updated_stats = 0
/client
	var/account_joined = ""
	var/account_age
	var/fingerprint
	var/related_accounts_fingerprint

/client/Topic(href, href_list, hsrc)
	//var/timestart = world.timeofday
	//testing("topic call for [usr] [href]")
	if(!usr || usr != mob)	//stops us calling Topic for somebody else's client. Also helps prevent usr=null
		return

	//Reduces spamming of links by dropping calls that happen during the delay period
//	if(next_allowed_topic_time > world.time)
//		return
	//next_allowed_topic_time = world.time + TOPIC_SPAM_DELAY

	//search the href for script injection
	if( findtext(href,"<script",1,0) )
		world.log << "Attempted use of scripts within a topic call, by [src]"
		message_admins("Attempted use of scripts within a topic call, by [src]")
		//del(usr)
		return

	if(href_list["issueclose"])
		src << browse(null,"window=github")

	//Admin PM
	if(href_list["priv_msg"])
		var/client/C = locate(href_list["priv_msg"])
		if(ismob(C)) 		//Old stuff can feed-in mobs instead of clients
			var/mob/M = C
			C = M.client
		cmd_admin_pm(C,null)
		return

	//Wiki shortcuts
	if(href_list["getwiki"])
		var/url = href_list["getwiki"]
		usr << link(getVGWiki(url))
		return

	// Global Asset cache stuff.
	if(href_list["asset_cache_confirm_arrival"])
//		to_chat(src, "ASSET JOB [href_list["asset_cache_confirm_arrival"]] ARRIVED.")
		var/job = text2num(href_list["asset_cache_confirm_arrival"])
		completed_asset_jobs += job
		return

	if(href_list["_src_"] == "chat") // Oh god the ping hrefs.
		return chatOutput.Topic(href, href_list)

	//Logs all hrefs
	if(config && config.log_hrefs && investigations[I_HREFS])
		var/datum/log_controller/I = investigations[I_HREFS]
		I.write("<small>[time_stamp()] [src] (usr:[usr])</small> || [hsrc ? "[hsrc] " : ""][copytext(sanitize(href), 1, 3000)]<br />")

	// Tgui Topic middleware
	if(tgui_Topic(href_list))
		return

	switch(href_list["_src_"])
		if("holder")
			hsrc = holder
		if("usr")
			hsrc = mob
		if("prefs")
			return prefs.process_link(usr,href_list)
		if("vars")
			return view_var_Topic(href,href_list,hsrc)

	switch(href_list["action"])
		if ("openLink")
			src << link(href_list["link"])

	..()	//redirect to hsrc.Topic()
	//testing("[usr] topic call took [(world.timeofday - timestart)/10] seconds")

/client/proc/handle_spam_prevention(var/message, var/mute_type)
	var/static/regex/onion_link_search = new(@"(?:https?://)?(?:www)?(\S*?\.onion)\b", "g")
	var/onion_link = onion_link_search.Find(message)
	if(onion_link)
		cmd_admin_mute(src.mob, mute_type, 1)
		message_admins("[src] has been automuted [mute_type] for posting an onion link.")
		log_admin("[src] has been automuted [mute_type] for posting an onion link.")
		return 1
	if(config.automute_on && !holder && src.last_message == message)
		src.last_message_count++
		if(src.last_message_count >= SPAM_TRIGGER_AUTOMUTE)
			to_chat(src, "<span class='warning'>You have exceeded the spam filter limit for identical messages. An auto-mute was applied.</span>")
			cmd_admin_mute(src.mob, mute_type, 1)
			return 1
		if(src.last_message_count >= SPAM_TRIGGER_WARNING)
			to_chat(src, "<span class='warning'>You are nearing the spam filter limit for identical messages.</span>")
			return 0
	else
		last_message = message
		src.last_message_count = 0
		return 0

//This stops files larger than UPLOAD_LIMIT being sent from client to server via input(), client.Import() etc.
/client/AllowUpload(filename, filelength)
	if(filelength > UPLOAD_LIMIT)
		to_chat(src, "<span class='red'>Error: AllowUpload(): File Upload too large. Upload Limit: [UPLOAD_LIMIT/1024]KiB.</span>")
		return 0
/*	//Don't need this at the moment. But it's here if it's needed later.
	//Helps prevent multiple files being uploaded at once. Or right after eachother.
	var/time_to_wait = fileaccess_timer - world.time
	if(time_to_wait > 0)
		to_chat(src, "<span class='red'>Error: AllowUpload(): Spam prevention. Please wait [round(time_to_wait/10)] seconds.</span>")
		return 0
	fileaccess_timer = world.time + FTPDELAY	*/
	return 1


	///////////
	//CONNECT//
	///////////
/client/New(TopicData)
	// world.log << "creating chatOutput"
	chatOutput = new /datum/chatOutput(src) // Right off the bat.
	// world.log << "Done creating chatOutput"
	if(!bunker_setting)
		bunker_setting = 1
		load_bunker()
	if(config)
		winset_wrapper(null, "window1.msay_output.style=[config.world_style_config];") // The TG people told me to do it. If this fails for reason X or Y, the entire client/New() will runtime and we'll be in huge trouble.
	else
		to_chat(src, "<span class='warning'>The stylesheet wasn't properly setup call an administrator to reload the stylesheet or relog.</span>")

	TopicData = null							//Prevent calls to client.Topic from connect

	if(connection != "seeker")			//Invalid connection type.
		if(connection == "web")
			if(!holder)
				return null
		if(connection == "telnet")
			if(!(src.address == "localhost" || src.address == "127.0.0.1"))
				world.log << "telnet connection from [src.address] denied."
				return null
		else
			return null

	if(!updated_stats && config.stats_addr)
		updated_stats = 1
		spawn(1)

			world.Export("[config.stats_addr]")

	if(byond_version < MIN_CLIENT_VERSION)		//Out of date client.
		message_admins("[key]/[ckey] has connected with an out of date client! Their version: [byond_version]. They will be kicked shortly.")
		alert(src,"Your BYOND client is out of date. Please make sure you have have at least version [MIN_CLIENT_VERSION] installed. Check for a beta update if necessary.", "Update Yo'Self", "OK")
		spawn(5 SECONDS)
			del(src)

	if(!guests_allowed && IsGuestKey(key))
		alert(src,"This server doesn't allow guest accounts to play. Please go to http://www.byond.com/ and register for a key.","Guest","OK")
		del(src)
		return

	// Change the way they should download resources.
	if(config.resource_urls)
		src.preload_rsc = pick(config.resource_urls)
	else if(config.rsclist && config.rscstring)
		var/rsclist = flist("[config.rsclist]")
		var/rscString = "[config.rscstring]"
		try
			rscString += rsclist[1]
		catch(var/exception/e)
			rscString = 1
			world.log << "An exception occurred while fetching preload rsc url. [e.name] | File: [e.file] Line: [e.line]"
			world.log << e.desc

		world.log << "Setting [src.key] preload rsc to [rscString]"
		preload_rsc = rscString
	else
		src.preload_rsc = 1 // If config.resource_urls is not set, preload like normal.

	to_chat(src, "<span class='warning'>If the title screen is black, resources are still downloading. Please be patient until the title screen appears.</span>")

	clients += src
	directory[ckey] = src


	//preferences datum - also holds some persistant data for the client (because we may as well keep these datums to a minimum)
	prefs = preferences_datums[ckey]
	if(!prefs)
		prefs = new /datum/preferences(src)
		preferences_datums[ckey] = prefs
	prefs.last_ip = address				//these are gonna be used for banning
	prefs.last_id = computer_id			//these are gonna be used for banning
	prefs.client = src
	prefs.initialize_preferences(client_login = 1)

	. = ..()	//calls mob.Login()
	chatOutput.start()

	if(custom_event_msg && custom_event_msg != "")
		to_chat(src, "<h1 class='alert'>Custom Event</h1>")
		to_chat(src, "<h2 class='alert'>A custom event is taking place. OOC Info:</h2>")
		to_chat(src, "<span class='alert'>[html_encode(custom_event_msg)]</span>")
		to_chat(src, "<br>")

	if( (world.address == address || !address) && !host )
		host = key
		world.update_status()
	//Admin Authorisation
	var/static/list/localhost_addresses = list("127.0.0.1","::1")
	if(config.localhost_autoadmin)
		if((!address && !world.port) || (address in localhost_addresses))
			holder = new /datum/admins("Host", R_HOST, src.ckey)
	else
		holder = admin_datums[ckey]

	if(holder)
		if(prefs.toggles & AUTO_DEADMIN)
			message_admins("[src] was automatically de-admined.")
			deadmin()
			verbs += /client/proc/readmin
			deadmins += ckey
			holder = null
			to_chat(src, "<span class='interface'>You are now de-admined.</span>")
		else
			holder.associate(src)
			admin_memo_show()

	log_client_to_db()

//Keeping this because it's hilarious
/*
	if((isnum(account_age) && account_age < 14) && (country_code && country_code == "NL"))
		message_admins("[key]/[ckey] has connected with a Netherlands IP and an account age of [account_age], it is possible they're toomykins so keep an eye on them or something.")
	*/

//VPN check
	//if((isnum(account_age) && account_age <= 5))
	/*var/list/val[] = world.Export("http://check.getipintel.net/check.php?ip=[src.address]&contact=<HOST EMAIL>&flags=m")
	if(val && val.len && ("CONTENT" in val))
		var/String = file2text(val["CONTENT"])  //  Convert the HTML file to text
		var/vpn = text2num(String)
		if(isnum(vpn))
			if(vpn > 0.85)
				del(src)
			if(vpn > 0)
				message_admins("[key]/[ckey] has connected with a VPN and an account age of [account_age] and a bad ip score of [vpn] (higher is more likely), it is possible they're ban evading so keep an eye on them.")
			if(vpn < 0)
				log_admin("[key]/[ckey]'s vpn check errored out with a value of [vpn], be advised")
			else
				log_admin("[key]/[ckey]'s vpn check returned no vpn detected.")*/


	send_resources()

	var/datum/DBQuery/query = SSdbcore.NewQuery("SELECT id, ckey, ip, computerid, a_ckey, reason, expiration_time, duration, bantime, bantype, unbanned, unbanned_ckey, unbanned_datetime FROM erro_ban WHERE (ckey = :ckey [address ? "OR ip = :address" : ""]  [computer_id ? "OR computerid = :computer_id" : ""]) AND unbanned_notification = 0;",
		list(
			"ckey" = ckey,
			"address" = address,
			"computer_id" = computer_id,
	))

	if(!query.Execute())
		message_admins("Error: [query.ErrorMsg()]")
		log_sql("Error: [query.ErrorMsg()]")
	else
		while(query.NextRow())
			var/id = query.item[1]
			var/pckey = query.item[2]
			//var/pip = query.item[3]
			//var/pcid = query.item[4]
			var/ackey = query.item[5]
			var/reason = query.item[6]
			var/expiration = query.item[7]
			var/duration = query.item[8]
			var/bantime = query.item[9]
			//var/bantype = query.item[10]
			var/unbanned = query.item[11]
			var/unbanned_ckey = query.item[12]
			var/unbanned_datetime = query.item[13]
			if (unbanned && unbanned_ckey && unbanned_datetime)
				to_chat(src, "<span class='notice'><b>You, or another user of this ckey ([pckey]) were banned by [ackey] on [bantime] [duration > 0 ? "for [duration] minutes" : "permanently"].</b></span>")
				to_chat(src, "<span class='notice'>This ban has been revoked by [unbanned_ckey] at time [unbanned_datetime].</span>")
				to_chat(src, "<span class='notice'>The reason was: '[reason]'.</span>")
				to_chat(src, "<span class='notice'>For more information, you can ask admins in ahelps or at https://ss13.moe. </span>")
				to_chat(src, "<span class='notice'><b>This ban has expired. You can now play the game.</b></span>")
			else
				to_chat(src, "<span class='notice'><b>You, or another user of this ckey ([pckey]) were banned by [ackey] on [bantime] [duration > 0 ? "for [duration] minutes" : "permanently"].</b></span>")
				if (duration > 0)
					to_chat(src, "<span class='notice'>This ban expired on [expiration].</span>")
				to_chat(src, "<span class='notice'>The reason was: '[reason]'.</span>")
				to_chat(src, "<span class='notice'>For more information, you can ask admins in ahelps or at https://ss13.moe. </span>")
				to_chat(src, "<span class='notice'><b>This ban has expired. You can now play the game.</b></span>")

			var/datum/DBQuery/update_query = SSdbcore.NewQuery("UPDATE erro_ban SET unbanned_notification = 1 WHERE id = [id]")
			if(!update_query.Execute())
				message_admins("Error: [update_query.ErrorMsg()]")
				log_sql("Error: [update_query.ErrorMsg()]")
			qdel(update_query)
	qdel(query)

	if (prefs && prefs.show_warning_next_time)
		to_chat(src, "<span class='notice'><b>You, or another user of this ckey ([ckey]) were warned by [prefs.warning_admin].</b></span>")
		to_chat(src, "<span class='notice'>The reason was: '[prefs.last_warned_message]'.</span>")
		to_chat(src, "<span class='notice'>For more information, you can ask admins in ahelps or at https://ss13.moe. </span>")
		to_chat(src, "<span class='notice'><b>You can now play the game.</b></span>")
		prefs.show_warning_next_time = 0
		prefs.save_preferences_sqlite(src, src.ckey)

	if(prefs.lastchangelog != changelog_hash) //bolds the changelog button on the interface so we know there are updates.
		winset_wrapper("rpane.changelog", "background-color=#eaeaea;font-style=bold")
		prefs.SetChangelog(ckey,changelog_hash)
		to_chat(src, "<span class='info'>Changelog has changed since your last visit.</span>")

	//Set map label to correct map name
	winset_wrapper(src, "rpane.mapb", "text=\"[map.nameLong]\"")

	if (round_end_info)
		winset_wrapper("rpane.round_end", "is-visible=true")
		winset_wrapper("rpane.last_round_end", "is-visible=false")
	else if (last_round_end_info)
		winset_wrapper("rpane.round_end", "is-visible=false")
		winset_wrapper("rpane.last_round_end", "is-visible=true")
	else
		winset_wrapper("rpane.round_end", "is-visible=false")
		winset_wrapper("rpane.last_round_end", "is-visible=false")

	if (runescape_pvp)
		to_chat(src, "<span class='userdanger'>WARNING: Wilderness mode is enabled; players can only harm one another in maintenance areas!</span>")

	if(!winexists(src, "asset_cache_browser")) // The client is using a custom skin, tell them.
		to_chat(src, "<span class='warning'>Unable to access asset cache browser, if you are using a custom skin file, please allow DS to download the updated version, if you are not, then make a bug report. This is not a critical issue but can cause issues with resource downloading, as it is impossible to know when extra resources arrived to you.</span>")
	//This is down here because of the browse() calls in tooltip/New()
	if(!tooltips)
		tooltips = new /datum/tooltip(src)

	fps = (prefs.fps < 0) ? RECOMMENDED_CLIENT_FPS : prefs.fps

// This is wrapped so that if the winset fucks up somehow, this doesn't crash the entire client login proc.
/client/proc/winset_wrapper(control_id, params)
	winset(src, control_id, params)

	//////////////
	//DISCONNECT//
	//////////////
/client/Del()
	if(holder)
		holder.owner = null
		admins -= src
	directory -= ckey
	clients -= src

	return ..()

/client/proc/log_client_to_db()
	if(IsGuestKey(key))
		return

	if(!SSdbcore.Connect())
		return

	var/list/http[] = world.Export("http://www.byond.com/members/[src.key]?format=text")  // Retrieve information from BYOND
	var/Joined = 2550-01-01
	if(http && http.len && ("CONTENT" in http))
		var/String = file2text(http["CONTENT"])  //  Convert the HTML file to text
		var/JoinPos = findtext(String, "joined")+10  //  Parse for the joined date
		Joined = copytext(String, JoinPos, JoinPos+10)  //  Get the date in the YYYY-MM-DD format

	account_joined = Joined
	var/age
	var/datum/DBQuery/query = SSdbcore.NewQuery("SELECT id, datediff(Now(),firstseen) as age, datediff(Now(),accountjoined) as age2 FROM erro_player WHERE ckey = :ckey", list("ckey" = ckey))
	if(!query.Execute())
		message_admins("Error: [query.ErrorMsg()]")
		log_sql("Error: [query.ErrorMsg()]")
		qdel(query)
		return
	var/sql_id = 0
	while(query.NextRow())
		sql_id = query.item[1]
		player_age = text2num(query.item[2])
		age = text2num(query.item[3])
		break
	qdel(query)

	var/datum/DBQuery/query_ip = SSdbcore.NewQuery("SELECT distinct ckey FROM erro_connection_log WHERE ip = :address", list("address" = address))
	if(!query_ip.Execute())
		log_sql("Error: [query_ip.ErrorMsg()]")
		qdel(query_ip)
		return
	related_accounts_ip = ""
	while(query_ip.NextRow())
		related_accounts_ip += "[query_ip.item[1]], "
	qdel(query_ip)

	var/datum/DBQuery/query_cid = SSdbcore.NewQuery("SELECT distinct ckey FROM erro_connection_log WHERE computerid = :computer_id", list("computer_id" = computer_id))
	if(!query_cid.Execute())
		log_sql("Error: [query_cid.ErrorMsg()]")
		qdel(query_cid)
		return
	related_accounts_cid = ""
	while(query_cid.NextRow())
		related_accounts_cid += "[query_cid.item[1]], "
	qdel(query_cid)

	//Just the standard check to see if it's actually a number
	if(sql_id)
		if(istext(sql_id))
			sql_id = text2num(sql_id)
		if(!isnum(sql_id))
			return

	else if(bunker_up)
		// This should be a config/ thing.
		//var/url = pick("byond://game.tgstation13.org:1337","byond://baystation12.net:8000")
		//src << link(url)

		//var/Server/s = random_server_list[key]
		//world.log << "Sending [src.key] to random server: [url]"
		//src << link(s.url)
		world.log << "Denying [src.key] access due to panic bunker."
		sleep(30)
		del(src)
		return

	var/admin_rank = "Player"

	if(istype(holder))
		admin_rank = holder.rank
		if(bunker_up)
			to_chat(src, "<font size=8><span class='warning'>PANIC BUNKER IS ON</span></font>")

	if(sql_id)
		//Player already identified previously, we need to just update the 'lastseen', 'ip' and 'computer_id' variables
		var/datum/DBQuery/query_update
		if(isnum(age))
			query_update = SSdbcore.NewQuery("UPDATE erro_player SET lastseen = Now(), ip = :address, computerid = :computer_id, lastadminrank = :admin_rank WHERE id = :id",
				list(
					"address" = address,
					"computer_id" = computer_id,
					"admin_rank" = admin_rank,
					"id" = sql_id,
			))
		else
			query_update = SSdbcore.NewQuery("UPDATE erro_player SET lastseen = Now(),ip = :address, computerid = :computer_id, lastadminrank = :admin_rank, accountjoined = :joined WHERE id = :id",
				list(
					"address" = address,
					"computer_id" = computer_id,
					"admin_rank" = admin_rank,
					"joined" = Joined,
					"id" = sql_id,
			))
		query_update.Execute()
		if(query_update.ErrorMsg())
			WARNING("FINGERPRINT: [query_update.ErrorMsg()]")
		qdel(query_update)
	else
		//New player!! Need to insert all the stuff
		var/datum/DBQuery/query_insert = SSdbcore.NewQuery("INSERT INTO erro_player (id, ckey, firstseen, lastseen, ip, computerid, lastadminrank, accountjoined) VALUES (null, :ckey, Now(), Now(), :address, :computer_id, :admin_rank, :joined)",
			list(
				"ckey" = ckey,
				"address" = address,
				"computer_id" = computer_id,
				"admin_rank" = admin_rank,
				"joined" = Joined,
		))
		query_insert.Execute()
		if(query_insert.ErrorMsg())
			WARNING("FINGERPRINT: [query_insert.ErrorMsg()]")
		qdel(query_insert)
	if(!isnum(age))
		var/datum/DBQuery/query_age = SSdbcore.NewQuery("SELECT datediff(Now(),accountjoined) as age2 FROM erro_player WHERE ckey = :ckey", list("ckey" = ckey))
		if(!query_age.Execute())
			WARNING("FINGERPRINT: [query_age.ErrorMsg()]")
		while(query_age.NextRow())
			age = text2num(query_age.item[1])
		qdel(query_age)
	if(!isnum(player_age))
		player_age = 0
	if(age < MINIMUM_NON_SUS_ACCOUNT_AGE)
		for(var/client/X in admins)
			if(X.prefs.toggles & SOUND_ADMINHELP)
				X << 'sound/effects/adminhelp.ogg'
		message_admins("[ckey(key)]/([src]) is a relatively new player, may consider watching them. AGE = [age]  First seen = [player_age]")
		log_admin(("[ckey(key)]/([src]) is a relatively new player, may consider watching them. AGE = [age] First seen = [player_age]"))
	testing("[src]/[ckey(key)] logged in with age of [age]/[player_age]/[Joined]")
	account_age = age

	// logging player access
	var/server_address_port = "[world.internet_address]:[world.port]"
	var/datum/DBQuery/query_connection_log = SSdbcore.NewQuery("INSERT INTO `erro_connection_log`(`id`,`datetime`,`serverip`,`ckey`,`ip`,`computerid`) VALUES(null,Now(),:server_address_port,:ckey,:address,:computer_id);",
		list(
			"ckey" = ckey,
			"address" = address,
			"computer_id" = computer_id,
			"server_address_port" = server_address_port,
	))

	query_connection_log.Execute()
	if(query_connection_log.ErrorMsg())
		WARNING("FINGERPRINT: [query_connection_log.ErrorMsg()]")
	qdel(query_connection_log)
	connection_time = world.time

#undef TOPIC_SPAM_DELAY
#undef UPLOAD_LIMIT
#undef MIN_CLIENT_VERSION

//checks if a client is afk
//3000 frames = 5 minutes
/client/proc/is_afk(duration=3000)
	if(inactivity > duration)
		return inactivity
	return 0

/client/verb/resend_resources()
	set name = "Resend Resources"
	set desc = "Re-send resources for NanoUI. May help those with NanoUI issues."
	set category = "OOC"

	to_chat(usr, "<span class='notice'>Re-sending NanoUI resources.  This may result in lag.</span>")
	nanomanager.send_resources(src)
	send_html_resources()

//send resources to the client. It's here in its own proc so we can move it around easiliy if need be
/client/proc/send_resources()
//	preload_vox() //Causes long delays with initial start window and subsequent windows when first logged in.

	getFiles(
		'html/search.js',
		'html/panels.css',
	)

	// Preload the crew monitor. This needs to be done due to BYOND bug http://www.byond.com/forum/?post=1487244
	//The above bug report thing doesn't exist anymore so uh, whatever.
	spawn()
		if(src in clients) //Did we log out before we reached this part of the function?
			send_html_resources()

	// Send NanoUI resources to this client
	spawn()
		if(src in clients) //Did we log out before we reached this part of the function?
			nanomanager.send_resources(src)

// Sends resources to the client asynchronously.
/client/proc/preload_resource(var/rsc)
	Export("##action=preload_rsc", rsc)


/client/proc/send_html_resources()
	while(!vote || !vote.interface)
		sleep(1)
	vote.interface.sendAssets(src)
	var/datum/asset/simple/E = new/datum/asset/simple/emoji_list()
	send_asset_list(src, E.assets)
	var/datum/asset/simple/F = new/datum/asset/simple/other_fonts()
	send_asset_list(src, F.assets)

/proc/get_role_desire_str(var/rolepref)
	switch(rolepref & ROLEPREF_VALMASK)
		if(ROLEPREF_NEVER)
			return "Never"
		if(ROLEPREF_NO)
			return "No"
		if(ROLEPREF_YES)
			return "Yes"
		if(ROLEPREF_ALWAYS)
			return "Always"
	return "???"

/client/proc/GetRolePrefs()
	var/list/roleprefs = list()
	for(var/role_id in antag_roles)
		if(desires_role(role_id,FALSE))
			roleprefs += role_id
	if(!roleprefs.len)
		return "none"
	return english_list(roleprefs)

/client/proc/desires_role(var/role_id, var/display_to_user=0)
	var/role_desired = prefs.roles[role_id]
	if(display_to_user && !(role_desired & ROLEPREF_PERSIST))
		if(!(role_desired & ROLEPREF_POLLED))
			spawn
				var/question={"[role_id]

Yes/No: Only affects this round
Never/Always: Affects future rounds, you will not be polled again.

NOTE:  You will only be polled about this role once per round. To change your choice, use Preferences > Setup Special Roles.  The change will take place AFTER this recruiting period."}
				var/answer = alert(src,question,"Role Recruitment", "Yes","No","Never")
				switch(answer)
					if("Never")
						prefs.roles[role_id] = ROLEPREF_NEVER
					if("No")
						prefs.roles[role_id] = ROLEPREF_NO
					if("Yes")
						prefs.roles[role_id] = ROLEPREF_YES
					//if("Always")
					//	prefs.roles[role_id] = ROLEPREF_ALWAYS
				//testing("Client [src] answered [answer] to [role_id] poll.")
				prefs.roles[role_id] |= ROLEPREF_POLLED
		else
			to_chat(src, "<span style='recruit'>The game is currently looking for [role_id] candidates.  Your current answer is <a href='?src=\ref[prefs]&preference=set_role&role_id=[role_id]'>[get_role_desire_str(role_desired)]</a>.</span>")
	return role_desired & ROLEPREF_ENABLE

/client/proc/toggle_bunker()
	set name = "Toggle Panic Bunker"
	set desc = "Panic!"
	set category = "Panic"

	if(!holder)
		src << "<span class='warning'>Need to be an admin m8</span>"
		return
	if(!check_rights(R_ADMIN))
		return
	if(alert(src,"Turn the bunker [bunker_up ? "off" : "on"]?","Toggle bunker","Yes","No") == "Yes")
		bunker_up = !bunker_up
		to_chat(world, "<span class='admin'>[key] turned the panic bunker [bunker_up ? "ON" : "OFF"]!</span>")
		log_admin("[key_name(src)] turned the panic bunker [bunker_up ? "ON" : "OFF"]!")
		var/isperms = check_rights(R_PERMISSIONS,0)
		if(isperms && alert(src,"Save setting to file? (will load this setting every round)","Save Settings?","Yes","No") == "Yes")
			var/ourfile = file("data/bunker.txt")
			fdel(ourfile)
			ourfile << bunker_up
			bunker_saved = bunker_up
			log_admin("[key_name(src)] saved the bunker setting ([bunker_saved ? "ON" : "OFF"]) to file.")
			message_admins("[key_name(src)] saved the bunker setting ([bunker_saved ? "ON" : "OFF"]) to file.")
			return
		to_chat(usr,"<span class='notice'>The bunker will reset to the setting currently saved to file ([bunker_saved ? "ON" : "OFF"]) on a new round.[isperms ? "" : " Ask someone with +PERMISSIONS if you want to change it permanently."]</span>")

/client/proc/check_bunker()
	set name = "Check Panic Bunker"
	set desc = "Panic!"
	set category = "Panic"

	if(!holder)
		src << "<span class='warning'>Need to be an admin m8</span>"
		return
	if(!check_rights(R_ADMIN))
		return

	to_chat(usr, "The panic bunker is currently [bunker_up ? "ON" : "OFF"].\nThe bunker's setting currently saved to file is [bunker_saved ? "ON" : "OFF"].")

/client/proc/bunker_cheat()
	set name = ".bunkercheat"
	set desc = "Cheating the panic bunker permissions requirement. Use when needed only please."
	set category = null

	if(!holder)
		src << "<span class='warning'>Need to be an admin m8</span>"
		return
	if(!check_rights(R_ADMIN))
		return

	var/bup = alert(src, "Turn the bunker ON or OFF?","Toggle Bunker","ON","OFF","Cancel")
	switch(bup)
		if("ON")
			bunker_up = 1
		if("OFF")
			bunker_up = 0
		else
			return
	to_chat(world, "<span class='admin'>[key] turned the panic bunker [bunker_up ? "ON" : "OFF"]!</span>")
	log_admin("[key_name(src)] turned the panic bunker [bunker_up ? "ON" : "OFF"]!")

	if(alert(src, "Save to file?","Save bunker to file?","YES","NO") == "YES")
		bunker_saved = bunker_up
		log_admin("[key_name(src)] saved the bunker setting ([bunker_saved ? "ON" : "OFF"]) to file using the secret repo.")
		message_admins("[key_name(src)] saved the bunker setting ([bunker_saved ? "ON" : "OFF"]) to file using the secret repo.")

/client/proc/load_bunker()
	if(!fexists("data/bunker.txt"))
		var/F = file("data/bunker.txt")
		F << 1
		bunker_up = 1
		bunker_saved = 1
	else
		for(var/t in file2list("data/bunker.txt"))
			if(!t)	continue
			t = trim(t)
			if (length(t) == 0)
				continue
			var/yes = text2num(t)
			if(isnum(yes))
				bunker_up = yes
				bunker_saved = yes

/client/proc/colour_transition(var/list/colour_to = default_colour_matrix,var/time = 10)	// call this with no parametres to reset to default.
	if(!color)
		color = default_colour_matrix
	if(!(colour_to.len))
		colour_to = default_colour_matrix
	animate(src, color=colour_to, time=time, easing=SINE_EASING)

/client/proc/changeView(var/newView)
	if(!newView)
		view = world.view
	else
		view = newView

	if(mob.dark_plane)
		mob.dark_plane.transform = null
		var/matrix/M = matrix()
		M.Scale(view*2.2)
		mob.dark_plane.transform = M

	if(mob && ishuman(mob))
		var/mob/living/carbon/human/H = mob
		var/obj/item/clothing/under/U = H.get_item_by_slot(slot_w_uniform)
		if(istype(U))
			for(var/obj/item/clothing/accessory/holomap_chip/HC in U.accessories)
				HC.update_holomap()

	if(mob)
		mob.UpdateUIScreenLoc()

/client/verb/SwapSides()
	set name = "swapsides"
	set hidden = 1
	var/newsplit = 100 - text2num(winget(usr, "mainwindow.mainvsplit", "splitter"))
	if(winget(usr, "mainwindow.mainvsplit", "right") == "rpane")
		winset(usr, "mainwindow.mainvsplit", "right=mapwindow;left=rpane;splitter=[newsplit]")
	else
		winset(usr, "mainwindow.mainvsplit", "right=rpane;left=mapwindow;splitter=[newsplit]")

/client/verb/removeClick()
	set name = ".click"
	set hidden = 1
	return

/client/proc/update_special_views()
	if(prefs.space_parallax)	//Updating parallax for clients that have parallax turned on.
		if(parallax_initialized)
			mob.hud_used.update_parallax_values()

	if(!istype(mob, /mob/dead/observer) && !(M_XRAY in mob.mutations))	//If they are neither an observer nor someone with X-ray vision
		for(var/obj/structure/window/W in one_way_windows)
			if(((W.x >= (mob.x - view)) && (W.x <= (mob.x + view))) && ((W.y >= (mob.y - view)) && (W.y <= (mob.y + view))))
				update_one_way_windows(view(view,mob))	//Updating the one-way window overlay if the client has one in the range of its view.
				break

/client/proc/update_one_way_windows(var/list/v)		//Needed for one-way windows to work.
	var/Image										//Code heavily cannibalized from a demo made by Byond member Shadowdarke.
	var/turf/Oneway
	var/obj/structure/window/W
	var/list/newimages = list()
	var/list/onewaylist = list()

	if(!v)
		return

	ObscuredTurfs.len = 0

	for(W in view(view,mob))
		if(W.one_way)
			if(W.dir & get_dir(W,mob))
				Oneway = get_turf(W)
				Oneway.opacity = 1
				onewaylist += Oneway

	if(onewaylist.len)
		var/list/List = v - view(view,mob)
		List += onewaylist
		for(var/turf/T in List)
			T.viewblock = image('icons/turf/overlays.dmi',T,"black_box",10)
			if(T in onewaylist)
				for(W in T.contents)
					if(W.one_way)
						T.viewblock = image('icons/turf/overlays.dmi',T,"black_box[W.dir]",10)
			T.viewblock.plane = FULLSCREEN_PLANE
			src << T.viewblock
			newimages += T.viewblock
			ObscuredTurfs += T

		for(var/turf/I in onewaylist)
			I.opacity = 0

	for(Image in ViewFilter-newimages)
		images -= Image
	ViewFilter = newimages

/client/proc/handle_hear_voice(var/mob/origin)
	if(prefs.hear_voicesound)
		if(issilicon(origin))
			mob.playsound_local(get_turf(origin), get_sfx("voice-silicon"),50,1)
		if(isvox(origin))
			mob.playsound_local(get_turf(origin), get_sfx("voice-vox"),50,0)
		else
			mob.playsound_local(get_turf(origin), get_sfx("voice-human"),50,1)