An attempt to allow clowns to change their name upon spawning in the way wizards or AIs do. The proc is currently not called when the clown spawns. Here's hoping someone fixes it or I spontaneously come up with a solution in the morning. Here it is to be monkeyed with.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@1143 316c924e-a436-60f5-8080-3fe189b3f50e

code/defines/procs/helpers.dm

@@ -533,6 +533,32 @@
 		M.real_name = newname
 		M.name = newname
 
+/proc/clname(var/mob/M as mob) //--All praise goes to NEO|Phyte, all blame goes to DH, and it was Cindi-Kate's idea
+	var/randomname = pick(clown_names)
+	var/newname = input(M,"You are the clown. Would you like to change your name to something else?", "Name change",randomname)
+
+	if (length(newname) == 0)
+		newname = randomname
+
+	if (newname)
+		if (newname == "Unknown")
+			M << "That name is reserved."
+			return clname(M)
+		for (var/mob/living/carbon/A in world)
+			if (A.real_name == newname)
+				M << "There's already a clown with that name."
+				return clname(M)
+		if (length(newname) >= 26)
+			newname = copytext(newname, 1, 26)
+		newname = dd_replacetext(newname, ">", "'")
+		M.real_name = newname
+		M.name = newname
+//	if (istype(src.belt, /obj/item/device/pda))
+//		var/obj/item/device/pda/pda = src.belt
+//		pda.owner = src.real_name
+//		pda.ownjob = src.wear_id.assignment
+	//	pda.name = "PDA-[src.real_name] ([pda.ownjob])"
+
 /proc/ionnum()
 	return "[pick("!","@","#","$","%","^","&","*")][pick(pick("!","@","#","$","%","^","&","*"))][pick(pick("!","@","#","$","%","^","&","*"))][pick(pick("!","@","#","$","%","^","&","*"))]"
 

code/game/jobs/jobprocs.dm

@@ -654,6 +654,9 @@
 		src.loc = pick(NL)
 	return
 
+	if (rank == "Clown")
+		clname(src)
+
 /mob/living/carbon/human/proc/spawnId(rank)
 	var/obj/item/weapon/card/id/C = null
 	switch(rank)

code/names.dm

@@ -6,5 +6,6 @@ var/list/first_names_male = dd_file2list("config/names/first_male.txt")
 var/list/first_names_female = dd_file2list("config/names/first_female.txt")
 var/list/last_names = dd_file2list("config/names/last.txt")
 var/list/loggedsay = dd_file2list("config/names/loggedsay.txt")
+var/list/clown_names = dd_file2list("config/names/clown.txt")
 //loaded on startup because of "
 //would include in rsc if ' was used