Makes prisoners' heads a little warmer. (tgstation#64989)

* D-BOYYYYSSSSSS

* the rare experience of being experimented on

* forgot a dot

* flavor textttt

* I learned something new today

* I am still learning something new today

code/modules/clothing/head/beanie.dm

@@ -88,3 +88,19 @@
 	icon_state = "beanierasta"
 
 //No dog fashion sprites yet :(  poor Ian can't be dope like the rest of us yet
+
+/obj/item/clothing/head/beanie/black/dboy
+	name = "test subject beanie"
+	desc = "A dingy and torn black beanie. Is that slime or grease?"
+	/// Used for the extra flavor text the d-boy himself sees
+	var/datum/weakref/beanie_owner = null
+
+/obj/item/clothing/head/beanie/black/dboy/equipped(mob/user, slot)
+	. = ..()
+	if(iscarbon(user) && !beanie_owner)
+		beanie_owner = WEAKREF(user)
+
+/obj/item/clothing/head/beanie/black/dboy/examine(mob/user)
+	. = ..()
+	if(IS_WEAKREF_OF(user, beanie_owner))
+		. += span_purple("It's covered in otherworldly debris only your eyes have been ruined enough to see.")

code/modules/jobs/job_types/prisoner.dm

@@ -37,6 +37,11 @@
 	ears = null
 	shoes = /obj/item/clothing/shoes/sneakers/orange
 
+/datum/outfit/job/prisoner/pre_equip(mob/living/carbon/human/H)
+	..()
+	if(prob(1)) // D BOYYYYSSSSS
+		head = /obj/item/clothing/head/beanie/black/dboy
+
 /datum/outfit/job/prisoner/post_equip(mob/living/carbon/human/new_prisoner, visualsOnly)
 	. = ..()
 	if(!length(SSpersistence.prison_tattoos_to_use) || visualsOnly)