Merge pull request #747 from ZomgPonies/multikey

Alt Account checking

code/modules/admin/admin.dm

@@ -180,6 +180,10 @@ var/global/nologevent = 0
 			<A href='?src=\ref[src];tdomeadmin=\ref[M]'>Thunderdome Admin</A> |
 			<A href='?src=\ref[src];tdomeobserve=\ref[M]'>Thunderdome Observer</A> |
 		"}
+		if(M.client.related_accounts_cid.len)
+			body += "<br><br><b>Related accounts by CID:</b> [list2text(M.client.related_accounts_cid, " - ")]<br>"
+		if(M.client.related_accounts_ip.len)
+			body += "<b>Related accounts by IP:</b> [list2text(M.client.related_accounts_ip, " - ")]<br>"
 
 	body += {"<br>
 		</body></html>

code/modules/admin/admin_verbs.dm

@@ -63,7 +63,8 @@ var/list/admin_verbs_admin = list(
 	/client/proc/delbook,
 	/client/proc/empty_ai_core_toggle_latejoin,
 	/client/proc/freeze,
-	/client/proc/freezemecha
+	/client/proc/freezemecha,
+	/client/proc/alt_check
 
 )
 var/list/admin_verbs_ban = list(

code/modules/admin/verbs/alt_check.dm

@@ -0,0 +1,20 @@
+/client/proc/alt_check()
+	set category = "Admin"
+	set name = "Alt Account Checker"
+
+	var/dat = {"<B>Just to be sure you should try to also look up computer IDs/IPs on the server logs for a second opinion.</B>
+				<br>Additionally make an attempt to introduce new players to the server
+				<HR>"}
+
+	if(dbcon.IsConnected())
+		for(var/client/C in clients)
+			dat += "<p>[C.ckey] (Player Age: <font color = 'red'>[C.player_age]</font>) - <b>[C.computer_id]</b> / <b>[C.address]</b><br>"
+			if(C.related_accounts_cid.len)
+				dat += "--Accounts associated with CID: "
+				dat += "<b>[list2text(C.related_accounts_cid, " - ")]</b><br>"
+			if(C.related_accounts_ip.len)
+				dat += "--Accounts associated with IP: "
+				dat += "<b>[list2text(C.related_accounts_ip, " - ")]</b> "
+	usr << browse(dat, "window=alt_panel;size=640x480")
+	return
+

code/modules/client/client defines.dm

@@ -41,9 +41,9 @@
 		////////////////////////////////////
 		//things that require the database//
 		////////////////////////////////////
-	var/player_age = "Requires database"	//So admins know why it isn't working - Used to determine how old the account is - in days.
-	var/related_accounts_ip = "Requires database"	//So admins know why it isn't working - Used to determine what other accounts previously logged in from this ip
-	var/related_accounts_cid = "Requires database"	//So admins know why it isn't working - Used to determine what other accounts previously logged in from this computer id
+	var/player_age = "--"	//So admins know why it isn't working - Used to determine how old the account is - in days.
+	var/list/related_accounts_ip = list()	//So admins know why it isn't working - Used to determine what other accounts previously logged in from this ip
+	var/list/related_accounts_cid = list()	//So admins know why it isn't working - Used to determine what other accounts previously logged in from this computer id
 
 	preload_rsc = 1 // This is 0 so we can set it to an URL once the player logs in and have them download the resources from a different server.
 

code/modules/client/client procs.dm

@@ -307,17 +307,21 @@
 
 	var/DBQuery/query_ip = dbcon.NewQuery("SELECT ckey FROM erro_player WHERE ip = '[address]'")
 	query_ip.Execute()
-	related_accounts_ip = ""
+	related_accounts_ip = list()
 	while(query_ip.NextRow())
-		related_accounts_ip += "[query_ip.item[1]], "
-		break
+		if(ckey != query_ip.item[1])
+			related_accounts_ip.Add("[query_ip.item[1]]")
 
 	var/DBQuery/query_cid = dbcon.NewQuery("SELECT ckey FROM erro_player WHERE computerid = '[computer_id]'")
 	query_cid.Execute()
-	related_accounts_cid = ""
+	related_accounts_cid = list()
 	while(query_cid.NextRow())
-		related_accounts_cid += "[query_cid.item[1]], "
-		break
+		if(ckey != query_cid.item[1])
+			related_accounts_cid.Add("[query_cid.item[1]]")
+
+	//Log all the alts
+	if(related_accounts_cid.len)
+		log_access("Alts: [key_name(src)]:[list2text(related_accounts_cid, " - ")]")
 
 	//Just the standard check to see if it's actually a number
 	if(sql_id)