Adds Meson Sunglasses (#24619)

* meson sunglasses

* species sprites ew

* why

* Update code/modules/clothing/glasses/glasses.dm

Co-authored-by: 1080pCat <96908085+1080pCat@users.noreply.github.com>

* eeh

* Apply suggestions from code review

Co-authored-by: Henri215 <77684085+Henri215@users.noreply.github.com>

* Apply suggestions from code review

Self commit time (With approval)

---------

Co-authored-by: 1080pCat <96908085+1080pCat@users.noreply.github.com>
Co-authored-by: DGamerL <108773801+DGamerL@users.noreply.github.com>
Co-authored-by: Henri215 <77684085+Henri215@users.noreply.github.com>

code/game/jobs/job/support.dm

@@ -42,7 +42,7 @@
 	shoes = /obj/item/clothing/shoes/workboots/mining
 	head = /obj/item/clothing/head/qm
 	l_ear = /obj/item/radio/headset/heads/qm
-	glasses = /obj/item/clothing/glasses/sunglasses
+	glasses = /obj/item/clothing/glasses/meson/sunglasses
 	mask = /obj/item/clothing/mask/cigarette/cigar/cohiba
 	id = /obj/item/card/id/quartermaster
 	l_hand = /obj/item/clipboard

code/game/objects/items/weapons/storage/garment.dm

@@ -137,6 +137,7 @@
 	new /obj/item/clothing/suit/storage/hazardvest(src)
 	new /obj/item/clothing/shoes/brown(src)
 	new /obj/item/clothing/glasses/welding/superior(src)
+	new /obj/item/clothing/glasses/meson/sunglasses(src)
 	new /obj/item/clothing/gloves/color/yellow(src)
 
 /obj/item/storage/bag/garment/nanotrasen_representative

code/modules/clothing/glasses/glasses.dm

@@ -119,6 +119,13 @@
 	see_in_dark = 8
 	lighting_alpha = LIGHTING_PLANE_ALPHA_MOSTLY_INVISIBLE
 
+/obj/item/clothing/glasses/meson/sunglasses
+	name = "meson HUD sunglasses"
+	desc = "Sunglasses with an inbuilt scanner that can see through both walls and flooring."
+	icon_state = "sunhudmeson"
+	flash_protect = FLASH_PROTECTION_FLASH
+	tint = FLASH_PROTECTION_FLASH
+
 /obj/item/clothing/glasses/meson/prescription
 	prescription = TRUE
 

code/modules/crafting/tailoring.dm

@@ -212,6 +212,24 @@
 	reqs = list(/obj/item/clothing/glasses/hud/janitor/sunglasses = 1)
 	category = CAT_CLOTHING
 
+/datum/crafting_recipe/hudsunmeson
+	name = "Meson HUD sunglasses"
+	result = list(/obj/item/clothing/glasses/meson/sunglasses)
+	time = 2 SECONDS
+	tools = list(TOOL_SCREWDRIVER, TOOL_WIRECUTTER)
+	reqs = list(/obj/item/clothing/glasses/meson = 1,
+				/obj/item/clothing/glasses/sunglasses = 1,
+				/obj/item/stack/cable_coil = 5)
+	category = CAT_CLOTHING
+
+/datum/crafting_recipe/hudsunmesonremoval
+	name = "Meson HUD sunglasses removal"
+	result = list(/obj/item/clothing/glasses/sunglasses, /obj/item/clothing/glasses/meson)
+	time = 2 SECONDS
+	tools = list(TOOL_SCREWDRIVER, TOOL_WIRECUTTER)
+	reqs = list(/obj/item/clothing/glasses/meson/sunglasses = 1)
+	category = CAT_CLOTHING
+
 /datum/crafting_recipe/beergoggles
 	name = "Sunscanners"
 	result = list(/obj/item/clothing/glasses/sunglasses/reagent)