Skyrat port!

code/__defines/dna_arfs.dm

@@ -0,0 +1,20 @@
+// Skyrat port
+
+// file contains macros for sheathes, seething sheaths, very angry things, I'll tell you that. Infact, so angry, I'm trembling.
+
+//In inches
+#define PENIS_MAX_GIRTH 15
+#define PENIS_MIN_LENGTH 1
+#define PENIS_MAX_LENGTH 20
+
+#define SHEATH_NONE	"None"
+#define SHEATH_NORMAL "Sheath"
+#define SHEATH_SLIT	"Slit"
+#define SHEATH_MODES list(SHEATH_NONE, SHEATH_NORMAL, SHEATH_SLIT)
+
+#define MANDATORY_FEATURE_LIST list("mcolor" = "#FFFFBB","mcolor2" = "#FFFFBB","mcolor3" = "#FFFFBB","ethcolor" = "#FFCCCC","skin_color" = "#FFEEDD","flavor_text" = "","breasts_size" = 1,"breasts_lactation" = FALSE,"penis_size" = 13,"penis_girth" = 9,"penis_taur_mode" = TRUE,"penis_sheath" = SHEATH_NONE ,"balls_size" = 1, "body_size" = BODY_SIZE_NORMAL, "custom_species" = null, penis_uses_skintones = TRUE, penis_uses_skincolor = TRUE, testicles_uses_skintones = TRUE, testicles_uses_skincolor = TRUE, vagina_uses_skintones = TRUE, vagina_uses_skincolor = TRUE, breasts_uses_skintones = TRUE, breasts_uses_skincolor = TRUE)
+
+#define AROUSAL_CANT 0
+#define AROUSAL_NONE 1
+#define AROUSAL_PARTIAL 2
+#define AROUSAL_FULL 3

code/__defines/items_clothing.dm

@@ -129,6 +129,12 @@
 #define HAND_LEFT   0x800
 #define HAND_RIGHT  0x1000
 #define HANDS       0x1800 // HAND_LEFT | HAND_RIGHT
+#define PENIS		0x2000 // ARFS ADD: ERP MECHANICS
+#define WOMB		0x2200 // ARFS ADD: ERP MECHANICS
+#define VAGINA		0x2400 // ARFS ADD: ERP MECHANICS
+#define TESTICLES	0x2600 // ARFS ADD: ERP MECHANICS
+#define BREASTS		0x2800 // ARFS ADD: ERP MECHANICS
+#define ANUS		0x2800 // ARFS ADD: ERP MECHANICS
 #define FULL_BODY   0xFFFF
 
 // Bitflags for the percentual amount of protection a piece of clothing which covers the body part offers.

code/modules/mob/living/carbon/human/examine.dm

@@ -307,6 +307,8 @@
 	msg += vorestrings
 	//VOREStation Add End
 
+	msg += GetGenitalExamine(T) // ARFS ADD: Genital examination message.
+
 	if(mSmallsize in mutations)
 		msg += "[T.He] [T.is] very short!"
 

content_arfs/code/lewd/examine.dm

@@ -0,0 +1,11 @@
+var/global/list/genitals_styles_list = list()	// Stores /datum/sprite_accessory/genitals indexed by type
+
+/mob/living/carbon/human/proc/GetGenitalExamine(var/datum/gender/T)
+	var/list/msg
+	for(var/genital in list(penis, testicles, vagina, breasts, anus))
+		if(genital)
+			if(!(genital.is_hidden(src)))
+				msg += "<span class='notice'>[T.he] has exposed genitals... <a href='?src=[REF(src)];lookup_info=genitals'>Look closer...</a></span>"
+				break
+
+	return msg

content_arfs/code/lewd/human.dm

@@ -0,0 +1,85 @@
+/mob/living/carbon/human
+	var/disable_erp_preferences = 0 // the almighty toggle.
+
+	// The weiner part.
+	var/datum/sprite_accessory/genital/penis/penis
+	var/r_penis = 179					// Genital color
+	var/g_penis = 148					// Genital color
+	var/b_penis = 116					// Genital color
+
+	var/emissive_penis = 0 // bool
+
+	var/r_penis_emissive = 0 // int 0 - 255
+	var/g_penis_emissive = 0 // int 0 - 255
+	var/b_penis_emissive = 0 // int 0 - 255
+
+	var/penis_uses_skintones = 0 // bool
+	var/penis_uses_skincolor = 0 // bool
+	var/penis_size = 11
+	var/penis_girth = 6
+
+	var/penis_taur = 0 // bool
+
+	// The place to hide the weiner.
+	var/penis_sheath = SHEATH_NONE // SHEATH_ Macro
+	var/r_penis_sheath = 0 // int 0 - 255
+	var/g_penis_sheath = 0 // int 0 - 255
+	var/b_penis_sheath = 0 // int 0 - 255
+
+	// is it spelt like testicles, or testicals 🤔
+	var/datum/sprite_accessory/genital/testicles/testicles
+	var/r_testicles = 179 // int 0 - 255
+	var/g_testicles = 148 // int 0 - 255
+	var/b_testicles = 116 // int 0 - 255
+
+	var/testicles_uses_skintones = 0 // bool
+	var/testicles_uses_skincolor = 0 // bool
+
+	var/emissive_testicles = 0 // bool
+
+	var/r_testicles_emissive = 0 // int 0 - 255
+	var/g_testicles_emissive = 0 // int 0 - 255
+	var/b_testicles_emissive = 0 // int 0 - 255
+
+	var/balls_size = 2 // int, idk why it aint a macro, what the fuck does 2 mean, 2 miles? 2 kilometers? yeah, huge difference bud.
+
+	// gimme da poosy b0ss
+	var/datum/sprite_accessory/genital/vagina/vagina
+	var/r_vagina = 179 // int 0 - 255
+	var/g_vagina = 148 // int 0 - 255
+	var/b_vagina = 116 // int 0 - 255
+
+	var/vagina_uses_skintones = 0 // bool
+	var/vagina_uses_skincolor = 0 // bool
+
+	var/emissive_vagina = 0 // bool
+
+	var/r_vagina_emissive = 0 // int 0 - 255
+	var/g_vagina_emissive = 0 // int 0 - 255
+	var/b_vagina_emissive = 0 // int 0 - 255
+
+	var/datum/sprite_accessory/genital/womb/womb // ..if you thought vagina was enough, wait till you see there's a womb included too!
+
+	// succulent, moist, wait- moist? wtf? no???
+	var/datum/sprite_accessory/genital/breasts/breasts
+	var/r_breasts = 179 // int 0 - 255
+	var/g_breasts = 148 // int 0 - 255
+	var/b_breasts = 116 // int 0 - 255
+
+	var/breasts_uses_skintones = 0 // bool
+	var/breasts_uses_skincolor = 0 // bool
+
+	var/emissive_breasts = 0 // bool
+
+	var/r_breasts_emissive = 0 // int 0 - 255
+	var/g_breasts_emissive = 0 // int 0 - 255
+	var/b_breasts_emissive = 0 // int 0 - 255
+
+
+	// oh that's why it's moist, huh.
+	var/breasts_lactation
+
+	var/breasts_size = 4 // int
+
+	// The forbidden gay 🍑, if you eat it you become gay. Or straight, whatever rocks your boat.
+	var/anus

content_arfs/code/lewd/lists.dm

@@ -0,0 +1,32 @@
+//DO NOT CHANGE THOSE LISTS UNLESS YOU KNOW WHAT YOURE DOING (will mess savefiles)
+
+
+GLOBAL_LIST_INIT(breasts_size_translation, list("0" = "Flatchested",
+												"1" = "A",
+												"2" = "B",
+												"3" = "C",
+												"4" = "D",
+												"5" = "E",
+												"6" = "F",
+												"7" = "G",
+												"8" = "H",
+												"9" = "I",
+												"10" = "J",
+												"11" = "K",
+												"12" = "L",
+												"13" = "M",
+												"14" = "N",
+												"15" = "O",
+												"16" = "P",
+												))
+
+GLOBAL_LIST_INIT(balls_size_translation, list("0" = "Small",
+												"1" = "Average",
+												"2" = "Big",
+												"3" = "Enormous"
+												))
+
+///Those are the values available from prefs
+GLOBAL_LIST_INIT(preference_breast_sizes, list("Flatchested","A","B","C","D","E","F","G","H","I","J"))
+
+GLOBAL_LIST_INIT(preference_balls_sizes, list("Small","Average","Big","Enormous"))

content_arfs/code/lewd/obj_flags.dm

@@ -0,0 +1,4 @@
+#define GENITAL_SKIP_VISIBILITY 0
+#define GENITAL_NEVER_SHOW 1
+#define GENITAL_HIDDEN_BY_CLOTHES 2
+#define GENITAL_ALWAYS_SHOW 3