moves procs and constants to code/citadel/_helpers

code/citadel/_helpers.dm

@@ -0,0 +1,114 @@
+//THIS FOLDER CONTAINS CONSTANTS, PROCS, DEFINES, AND OTHER THINGS//
+////////////////////////////////////////////////////////////////////
+
+var/const/SIZEPLAY_TINY=1
+var/const/SIZEPLAY_MICRO=2
+var/const/SIZEPLAY_NORMAL=3
+var/const/SIZEPLAY_MACRO=4
+var/const/SIZEPLAY_HUGE=5
+
+/proc/get_matrix_largest()
+	var/matrix/mtrx=new()
+	return mtrx.Scale(2)
+/proc/get_matrix_large()
+	var/matrix/mtrx=new()
+	return mtrx.Scale(1.5)
+/proc/get_matrix_norm()
+	var/matrix/mtrx=new()
+	return mtrx
+/proc/get_matrix_small()
+	var/matrix/mtrx=new()
+	return mtrx.Scale(0.7)
+/proc/get_matrix_smallest()
+	var/matrix/mtrx=new()
+	return mtrx.Scale(0.5)
+
+proc/kpcode_race_getlist(var/restrict=0)
+	var/list/race_options = list()
+	for(var/r_id in species_list)
+		var/datum/species/R = kpcode_race_get(r_id)
+		if(!R.restricted||R.restricted==restrict)
+			race_options[r_id]=kpcode_race_get(r_id)
+	return race_options
+/*
+proc/kpcode_race_get(var/name="human")
+	name=kpcode_race_san(name)
+	if(!name||name=="") name="human"
+	if(species_list[name])
+		var/type_to_use=species_list[name]
+		var/datum/species/return_this=new type_to_use()
+		return return_this
+	else
+		return kpcode_race_get()
+
+proc/kpcode_race_san(var/input)
+	if(!input)input="human"
+	if(istype(input,/datum/species))
+		input=input:id
+	return input
+
+proc/kpcode_race_restricted(var/name="human")
+	name=kpcode_race_san(name)
+	if(kpcode_race_get(name))
+		var/datum/species/D=kpcode_race_get(name)
+		return D.restricted
+	return 2
+
+proc/kpcode_race_tail(var/name="human")
+	name=kpcode_race_san(name)
+	if(kpcode_race_get(name))
+		var/datum/species/D=kpcode_race_get(name)
+		return D.tail
+	return 0
+
+proc/kpcode_race_taur(var/name="human")
+	name=kpcode_race_san(name)
+	if(kpcode_race_get(name))
+		var/datum/species/D=kpcode_race_get(name)
+		if(D.taur==1)
+			return D.id
+		return D.taur
+	return 0
+
+proc/kpcode_race_generic(var/name="human")
+	name=kpcode_race_san(name)
+	if(kpcode_race_get(name))
+		var/datum/species/D=kpcode_race_get(name)
+		return D.generic
+	return 0
+
+proc/kpcode_race_adjective(var/name="human")
+	name=kpcode_race_san(name)
+	if(kpcode_race_get(name))
+		var/datum/species/D=kpcode_race_get(name)
+		return D.adjective
+	return 0
+
+proc/kpcode_get_generic(var/mob/living/M)
+	if(istype(M,/mob/living/carbon/human))
+		if(M:dna)
+			return kpcode_race_generic(M:dna:mutantrace())
+		else
+			return kpcode_race_generic("human")
+	if(istype(M,/mob/living/carbon/monkey))
+		return "monkey"
+	if(istype(M,/mob/living/carbon/alien))
+		return "xeno"
+	if(istype(M,/mob/living/simple_animal))
+		return M.name
+	return "something"
+
+proc/kpcode_get_adjective(var/mob/living/M)
+	if(istype(M,/mob/living/carbon/human))
+		if(M:dna)
+			return kpcode_race_adjective(M:dna:mutantrace())
+		else
+			return kpcode_race_adjective("human")
+	if(istype(M,/mob/living/carbon/monkey))
+		return "cranky"
+	if(istype(M,/mob/living/carbon/alien))
+		return "alien"
+	if(istype(M,/mob/living/simple_animal))
+		return "beastly"
+	return "something"
+*/