Adds a bunch of ape names from the forum/previous pull.

Adds a rare pet list for some of the most supreme of meme names.

code/modules/mob/living/carbon/monkey/punpun.dm

@@ -6,7 +6,8 @@
 	var/relic_hat	//Note: these two are paths
 	var/relic_mask
 	var/memory_saved = 0
-	var/list/pet_monkey_names = list("Pun Pun", "Bubbles", "Mojo", "Forever")
+	var/list/pet_monkey_names = list("Pun Pun", "Bubbles", "Mojo", "George", "Darwin", "Aldo", "Caeser", "Kanzi", "Kong", "Terk", "Grodd", "Mala", "Bojangles", "Coco", "Able", "Baker", "Scatter")
+	var/list/rare_pet_monkey_names = list("Professor Bobo", "Deempisi's Revenge", "Furious George", "King Louie", "Dr. Zaius", "Jimmy Rustles", "Dinner", "Lanky")
 
 /mob/living/carbon/monkey/punpun/New()
 	Read_Memory()
@@ -19,7 +20,10 @@
 		if(ancestor_chain > 1)
 			name += " [num2roman(ancestor_chain)]"
 	else
-		name = pick(pet_monkey_names)
+		if(prob(5))
+			name = pick(rare_pet_monkey_names)
+		else
+			name = pick(pet_monkey_names)
 		gender = pick(MALE, FEMALE)
 	..()