- You can now set your character's age up to 85 (used to be 45) in the character setup menu.

- Added a few helper procs that change someone's skin tone to a descriptive word and someone's age to a descriptive word. This will be used in a human examine verb update.
- Completely remapped Medbay for 3.0.0. 

Discussion thread for medbay remap:
http://www.nanotrasen.com/phpBB3/viewtopic.php?f=15&t=10677

Screenshots of medbay remap:
http://www.kamletos.si/medbay%203.0.0%206.png (normal lighting)
http://www.kamletos.si/medbay%203.0.0%206%20nodark.png (no darkness)

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

code/modules/mob/new_player/preferences.dm

@@ -457,7 +457,7 @@ datum/preferences
 						randomize_name()
 
 					if("age")
-						age = rand(17, 45)
+						age = rand(17, 85)
 
 					if("b_type")
 						b_type = pick( 31;"A+", 7;"A-", 8;"B+", 2;"B-", 2;"AB+", 1;"AB-", 40;"O+", 9;"O-" )
@@ -489,7 +489,7 @@ datum/preferences
 					if("all")
 						gender = pick(MALE,FEMALE)
 						randomize_name()
-						age = rand(17,45)
+						age = rand(17,85)
 						underwear = rand(1,12)
 						backbag = rand(1,3)
 						randomize_hair_color("hair")
@@ -526,9 +526,9 @@ datum/preferences
 							user << "<font color='red'>Invalid name. Your name should be at least 2 and at most [MAX_NAME_LEN] characters long. It may only contain the characters A-Z, a-z, -, ' and .</font>"
 
 					if("age")
-						var/new_age = input(user, "Choose your character's age:\n(17-45)", "Character Preference") as num|null
+						var/new_age = input(user, "Choose your character's age:\n(17-85)", "Character Preference") as num|null
 						if(new_age)
-							age = max(min(round(text2num(new_age)), 45), 17)
+							age = max(min(round(text2num(new_age)), 85), 17)
 
 					if("metadata")
 						var/new_metadata = input(user, "Enter any information you'd like others to see, such as Roleplay-preferences:", "Game Preference" , metadata)  as message|null

code/modules/mob/new_player/preferences_setup.dm

@@ -496,3 +496,44 @@ datum/preferences
 		del(clothes_s)
 
 
+proc/skintone2racedescription(var/tone)
+	switch (tone)
+		if(30 to INFINITY)
+			return "albino"
+		if(20 to 30)
+			return "pale"
+		if(5 to 15)
+			return "light skinned"
+		if(-10 to 5)
+			return "white"
+		if(-25 to -10)
+			return "tan"
+		if(-45 to -25)
+			return "darker skinned"
+		if(-65 to -45)
+			return "brown"
+		if(-INFINITY to -65)
+			return "black"
+
+
+proc/age2agedescription(var/age)
+	switch (age)
+		if(0 to 1)
+			return "infant"
+		if(1 to 3)
+			return "toddler"
+		if(3 to 13)
+			return "child"
+		if(13 to 19)
+			return "teenager"
+		if(19 to 30)
+			return "young adult"
+		if(30 to 45)
+			return "adult"
+		if(45 to 60)
+			return "middle-aged"
+		if(60 to 70)
+			return "aging"
+		if(70 to INFINITY)
+			return "elderly"
+