diff --git a/code/datums/supplypacks.dm b/code/datums/supplypacks.dm
index bc3b26bd3b6..070261597e1 100644
--- a/code/datums/supplypacks.dm
+++ b/code/datums/supplypacks.dm
@@ -1102,6 +1102,8 @@ var/list/all_supply_groups = list(supply_emergency,supply_security,supply_engine
 					/obj/item/hand_labeler_refill,
 					/obj/item/hand_labeler_refill,
 					/obj/item/weapon/paper_bin,
+					/obj/item/weapon/pen/fourcolor,
+					/obj/item/weapon/pen/fourcolor,
 					/obj/item/weapon/pen,
 					/obj/item/weapon/pen/blue,
 					/obj/item/weapon/pen/red,
diff --git a/code/modules/paperwork/pen.dm b/code/modules/paperwork/pen.dm
index 47ce86e6afd..414ece61407 100644
--- a/code/modules/paperwork/pen.dm
+++ b/code/modules/paperwork/pen.dm
@@ -44,6 +44,23 @@
 	icon_state = "pen"
 	colour = "white"
 
+/obj/item/weapon/pen/fourcolor
+	desc = "It's a fancy four-color ink pen, set to black."
+	name = "four-color pen"
+	colour = "black"
+
+/obj/item/weapon/pen/fourcolor/attack_self(mob/living/carbon/user)
+	switch(colour)
+		if("black")
+			colour = "red"
+		if("red")
+			colour = "green"
+		if("green")
+			colour = "blue"
+		else
+			colour = "black"
+	user << "<span class='notice'>\The [src] will now write in [colour].</span>"
+	desc = "It's a fancy four-color ink pen, set to [colour]."
 
 /obj/item/weapon/pen/attack(mob/living/M, mob/user,stealth)
 	if(!istype(M))