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
+