diff --git a/code/__HELPERS/type2type.dm b/code/__HELPERS/type2type.dm
index 8e90ded8dd5..67bbf6d584c 100644
--- a/code/__HELPERS/type2type.dm
+++ b/code/__HELPERS/type2type.dm
@@ -574,4 +574,15 @@ for(var/t in test_times)
 	var/B = hex2num(copytext(A,6,0))
 	return R+G+B
 
-
+//Converts a positive interger to its roman numeral equivilent. Ignores any decimals.
+//Numbers over 3999 will display with extra "M"s (don't tell the Romans) and can get comically long, so be careful.
+/proc/num2roman(A)
+	var/list/values = list("M" = 1000, "CM" = 900, "D" = 500, "CD" = 400, "C" = 100, "XC" = 90, "L" = 50, "XL" = 40, "X" = 10, "IX" = 9, "V" = 5, "IV" = 4, "I" = 1)
+	if(!A || !isnum(A))
+		return 0
+	while(A >= 1)
+		for(var/i in values)
+			if(A >= values[i])
+				. += i
+				A -= values[i]
+				break
\ No newline at end of file
diff --git a/code/modules/mob/living/carbon/monkey/monkey.dm b/code/modules/mob/living/carbon/monkey/monkey.dm
index b1e60e3e517..796ec8b805b 100644
--- a/code/modules/mob/living/carbon/monkey/monkey.dm
+++ b/code/modules/mob/living/carbon/monkey/monkey.dm
@@ -17,7 +17,8 @@
 	verbs += /mob/living/proc/mob_sleep
 	verbs += /mob/living/proc/lay_down
 
-	gender = pick(MALE, FEMALE)
+	if(unique_name) //used to exclude pun pun
+		gender = pick(MALE, FEMALE)
 	real_name = name
 	if(good_mutations.len) //genetic mutations have been set up.
 		initialize()
diff --git a/code/modules/mob/living/carbon/monkey/punpun.dm b/code/modules/mob/living/carbon/monkey/punpun.dm
new file mode 100644
index 00000000000..737351d8f27
--- /dev/null
+++ b/code/modules/mob/living/carbon/monkey/punpun.dm
@@ -0,0 +1,65 @@
+/mob/living/carbon/monkey/punpun //except for a few special persistence features, pun pun is just a normal monkey
+	name = "Pun Pun" //C A N O N
+	unique_name = 0
+	var/ancestor_name
+	var/ancestor_chain = 1
+	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")
+
+/mob/living/carbon/monkey/punpun/New()
+	Read_Memory()
+	if(relic_hat)
+		equip_to_slot_or_del(new relic_hat, slot_head)
+	if(relic_mask)
+		equip_to_slot_or_del(new relic_mask, slot_wear_mask)
+	if(ancestor_name)
+		name = ancestor_name
+		if(ancestor_chain > 1)
+			name += " [num2roman(ancestor_chain)]"
+	else
+		name = pick(pet_monkey_names)
+		gender = pick(MALE, FEMALE)
+	..()
+
+/mob/living/carbon/monkey/punpun/Life()
+	if(ticker.current_state == GAME_STATE_FINISHED && !memory_saved)
+		Write_Memory(0)
+	..()
+
+/mob/living/carbon/monkey/punpun/death(gibbed)
+	if(!memory_saved || gibbed)
+		Write_Memory(1,gibbed)
+	..()
+
+/mob/living/carbon/monkey/punpun/proc/Read_Memory()
+	var/savefile/S = new /savefile("data/npc_saves/Punpun.sav")
+	S["ancestor_name"] 		>> ancestor_name
+	S["ancestor_chain"]		>> ancestor_chain
+	S["relic_hat"]			>> relic_hat
+	S["relic_mask"]			>> relic_mask
+
+/mob/living/carbon/monkey/punpun/proc/Write_Memory(dead, gibbed)
+	var/savefile/S = new /savefile("data/npc_saves/Punpun.sav")
+	if(gibbed)
+		S["ancestor_name"] 		<< null
+		S["ancestor_chain"]		<< 1
+		S["relic_hat"]			<< null
+		S["relic_mask"]			<< null
+		return
+	if(dead)
+		S["ancestor_name"] 		<< ancestor_name
+		S["ancestor_chain"]		<< ancestor_chain + 1
+	if(!ancestor_name)	//new monkey name this round
+		S["ancestor_name"] 		<< name
+	if(head)
+		S["relic_hat"]			<< head.type
+	else
+		S["relic_hat"]			<< null
+	if(wear_mask)
+		S["relic_mask"]			<< wear_mask.type
+	else
+		S["relic_mask"]			<< null
+	if(!dead)
+		memory_saved = 1
\ No newline at end of file
diff --git a/tgstation.dme b/tgstation.dme
index d4cf4bd45cd..558d4c47134 100644
--- a/tgstation.dme
+++ b/tgstation.dme
@@ -1229,6 +1229,7 @@
 #include "code\modules\mob\living\carbon\monkey\inventory.dm"
 #include "code\modules\mob\living\carbon\monkey\life.dm"
 #include "code\modules\mob\living\carbon\monkey\monkey.dm"
+#include "code\modules\mob\living\carbon\monkey\punpun.dm"
 #include "code\modules\mob\living\carbon\monkey\update_icons.dm"
 #include "code\modules\mob\living\silicon\death.dm"
 #include "code\modules\mob\living\silicon\laws.dm"