Added a new carpet

Worked on adding a new carpet.  It isn't -finished- yet and Trilby is going to help look over what I've done so I can make this work.

code/__HELPERS/icons.dm

@@ -36,7 +36,7 @@ icon/MaxColors(icon)
     The icon is blended with a second icon where the maximum of each RGB pixel is the result.
     Opacity may increase, as if the icons were blended with ICON_OR. You may supply a color in place of an icon.
 icon/Opaque(background = "#000000")
-    All alpha values are set to 255 throughout the icon. Transparent pixels become black, or whatever background color you specify.
+    All alpha values are set to 255 throughout the icon. Transparen pixels become black, or whatever background color you specify.
 icon/BecomeAlphaMask()
     You can convert a simple grayscale icon into an alpha mask to use with other icons very easily with this proc.
     The black parts become transparent, the white parts stay white, and anything in between becomes a translucent shade of white.

code/game/objects/items/stacks/tiles/tile_types.dm

@@ -111,6 +111,14 @@
 /obj/item/stack/tile/carpet/black/fifty
 	amount = 50
 
+/obj/item/stack/tile/carpet/red
+    name = "red carpet"
+    icon_state = "tile-carpet-red"
+    turf_type = /turf/open/floor/carpet/red
+
+/obj/item/stack/tile/carpet/red/fifty
+    amount = 50
+
 /obj/item/stack/tile/fakespace
 	name = "astral carpet"
 	singular_name = "astral carpet"

code/game/turfs/simulated/floor/fancy_floor.dm

@@ -182,6 +182,11 @@
 	floor_tile = /obj/item/stack/tile/carpet/black
 	canSmoothWith = list(/turf/open/floor/carpet/black)
 
+/turf/open/floor/carpet/red
+	icon = 'icons/turf/floors/carpet_red.dmi'
+	floor_tile = /obj/item/stack/tile/carpet/red
+	icon_state ="tile-carpet-red"
+	canSmoothWith = list(/turf/open/floor/carpet/red)
 
 /turf/open/floor/carpet/narsie_act(force, ignore_mobs, probability = 20)
 	. = (prob(probability) || force)

code/modules/cargo/packs.dm

@@ -1439,6 +1439,8 @@
 	cost = 1000
 	contains = list(/obj/item/stack/tile/carpet/fifty,
 					/obj/item/stack/tile/carpet/fifty,
+					/obj/item/stack/tile/carpet/red/fifty,
+					/obj/item/stack/tile/carpet/red/fifty,
 					/obj/item/stack/tile/carpet/black/fifty,
 					/obj/item/stack/tile/carpet/black/fifty)
 	crate_name = "premium carpet crate"