Kaizoku, The Sanctuary Beyond the Storm {1/3}

code/__DEFINES/inventory.dm

@@ -202,6 +202,7 @@
 #define FACE		(MOUTH | NOSE | EYES)
 #define FULL_HEAD	(HEAD | MOUTH | NOSE | EYES | EARS | HAIR)
 #define HEAD_EXCEPT_MOUTH	(HEAD | NOSE | EYES | EARS | HAIR)
+#define HEAD_EXCEPT_EYES	(HEAD | MOUTH | NOSE | EARS | HAIR)
 #define HEAD_NECK	(HEAD | MOUTH | NOSE | EYES | EARS | HAIR | NECK)
 #define BELOW_HEAD	(CHEST | GROIN | VITALS | ARMS | HANDS | LEGS | FEET)
 #define BELOW_CHEST	(GROIN | VITALS | LEGS | FEET) //for water

code/__DEFINES/is_helpers.dm

@@ -98,6 +98,12 @@ GLOBAL_LIST_INIT(our_forest_sex, typecacheof(list(
 #define ishalfelf(A) (is_species(A, /datum/species/human/halfelf))
 #define istiefling(A) (is_species(A, /datum/species/tieberian))
 
+//RT Kaizoku Species
+#define isabyssariad(A) (is_species(A, /datum/species/abyssariad))
+#define ischangeling(A) (is_species(A, /datum/species/abyssariad/changeling))
+#define isoni(A) (is_species(A, /datum/species/abyssariad/ogrun))
+#define iskenku(A) (is_species(A, /datum/species/abyssariad/kenku))
+
 //more carbon mobs
 #define ismonkey(A) (istype(A, /mob/living/carbon/monkey))
 

code/__DEFINES/mobs.dm

@@ -466,3 +466,41 @@
 
 //SPECIAL SKIN TONES
 #define SKIN_COLOR_ROT "878f79"
+
+//DEFAULT ABYSSARIAD SKIN TONES
+#define SKIN_COLOR_OATHBOUND_MUQIAN "ffe0d1"
+#define SKIN_COLOR_OATHBOUND_KAIZOKU "fcccb3"
+#define SKIN_COLOR_OATHBOUND_SHUHEN "edc6b3"
+#define SKIN_COLOR_OATHBOUND_LINYOU "e2b9a3"
+#define SKIN_COLOR_OATHBOUND_DUSTWALKER "d9a284"
+#define SKIN_COLOR_WARPCASTER_MUQIAN "c9a893"
+#define SKIN_COLOR_WARPCASTER_KAIZOKU "ba9882"
+#define SKIN_COLOR_WARPCASTER_SHUHEN "99745d"
+#define SKIN_COLOR_WARPCASTER_LINYOU "745441"
+#define SKIN_COLOR_WARPCASTER_DUSTWALKER "302017"
+
+//KENKU UNIQUE SKIN TONE
+#define SKIN_COLOR_PEPPERSBLOW "771111"
+
+//OGRE SKIN TONES
+#define SKIN_COLOR_DEFIANCE "bb5155" //RED DEFAULT
+#define SKIN_COLOR_DEFIANCE_SANGUINE "771111"
+#define SKIN_COLOR_STABILITY "6a9479"
+#define SKIN_COLOR_STABILITY_INTELLECT "286940"
+#define SKIN_COLOR_SERENITY "65a9ad"
+#define SKIN_COLOR_SERENITY_PEACE "5958a3"
+#define SKIN_COLOR_AUDACY "aa8e3a"
+#define SKIN_COLOR_AUDACY_MYSTERY "635834"
+#define SKIN_COLOR_BLANK_PURIFICATED "d8e1e2"
+
+
+//UNDINE SKIN TONES
+#define SKIN_COLOR_SWAMPCLAN "728400" //GREEN DEFAULT
+#define SKIN_COLOR_JUNGLECLAN "7a5e1b"
+#define SKIN_COLOR_LEAFCLAN "5ea889"
+#define SKIN_COLOR_BOGCLAN "1b7a5e"
+#define SKIN_COLOR_FORESTCLAN "5FB098"
+#define SKIN_COLOR_SHADOWCLAN "60609e"
+#define SKIN_COLOR_FIREBLOOMCLAN "E26846"
+#define SKIN_COLOR_ABYSSALCLAN "a198b8"
+

code/__DEFINES/roguetown.dm

@@ -1,7 +1,7 @@
 //used in various places
-#define ALL_RACES_LIST			list("human", "dwarf", "elf", "tiefling", "aasimar", "orc", "zizombie")
+#define ALL_RACES_LIST			list("human", "dwarf", "elf", "tiefling", "aasimar", "orc", "zizombie", "abyssariad")
 
-#define ALL_PLAYER_RACES_BY_NAME		list("Humen", "Half-Elf", "Dark Elf", "Elf", "Dwarf","Tiefling", "Aasimar")
+#define ALL_PLAYER_RACES_BY_NAME		list("Humen", "Half-Elf", "Dark Elf", "Elf", "Dwarf", "Tiefling", "Aasimar", "Changeling", "Kenku", "Ogrun", "Undine")
 
 #define ALL_TEMPLE_PATRONS 		list(/datum/patron/divine/astrata, /datum/patron/divine/noc, /datum/patron/divine/eora, /datum/patron/divine/pestra, /datum/patron/divine/malum)
 #define ALL_CLERIC_PATRONS 		list(/datum/patron/divine/astrata, /datum/patron/divine/noc, /datum/patron/divine/eora, /datum/patron/divine/necra, /datum/patron/divine/pestra, /datum/patron/divine/dendor, /datum/patron/divine/malum)

code/__DEFINES/say.dm

@@ -66,6 +66,7 @@
 #define SPAN_DELF "delf"
 #define SPAN_HELL "hellspeak"
 #define SPAN_BEAST "beast"
+#define SPAN_ABYSSAL "abyssal"
 
 //bitflag #defines for return value of the radio() proc.
 #define ITALICS 1

code/__DEFINES/traits.dm

@@ -45,6 +45,7 @@
 #define TRAIT_SHOCKIMMUNE				"Shock Immunity"
 #define TRAIT_LONGSTRIDER 				"Longstrider"
 #define TRAIT_MOB_FIRE_IMMUNE			"Fire Immune" // Not actual full immunity but reduces effect of fire_act()
+#define TRAIT_KAIZOKU					"Foglander Cultured"
 
 #define TRAIT_BASHDOORS "bashdoors"
 #define TRAIT_NOMOOD "no_mood"
@@ -54,6 +55,7 @@
 #define TRAIT_VAMPMANSION "vampiremansion"
 #define TRAIT_INHUMENCAMP "inhumencamp"
 #define TRAIT_LIMPDICK "limp_dick"
+#define TRAIT_MINCED "minced" // Punishment that exists only because I am evil. Try NOT using the mouth of MONSTER PEOPLE THAT EATS FLESH ON A WHIM next time.
 #define TRAIT_SEXPASS "sexpass"
 #define TRAIT_INTRAINING "intraining" //allows certain roles to bypass the average skill limitation of training dummies
 #define TRAIT_STEELHEARTED "steelhearted" //no bad mood from dismembering or seeing this
@@ -65,7 +67,7 @@
 
 #define TRAIT_MALUMFIRE "Professional Smith"
 
 GLOBAL_LIST_INIT(roguetraits, list(
 	TRAIT_WEBWALK = "I can move freely between webs.",
 	TRAIT_NOSTINK = span_dead("My nose is numb to the smell of decay."),
 	TRAIT_ZJUMP = "Time to reach a new high.",
@@ -110,8 +112,9 @@
 	TRAIT_SHOCKIMMUNE = "I am immune to electrical shocks.",
 	TRAIT_INTRAINING = "I'm going to be a knight someday! I can use training dummies more effectively than others.",
 	TRAIT_MALUMFIRE = "My hands are blessed by Malum to forge items of superb quality.",
+	TRAIT_KAIZOKU = "Whether by birth or by learning, I've inherited the Islander ways at cost of the Imperial culture."
 	TRAIT_MOB_FIRE_IMMUNE = span_info("I am not easily burned by flames."),
 	))
 
 // trait accessor defines
 #define ADD_TRAIT(target, trait, source) \

code/controllers/subsystem/rogue/triumphs/triumph_buy_datums/character/pick_any_class.dm

@@ -38,7 +38,11 @@
 	"Dwarf",
 	"Tiefling",
 	"Dark Elf",
-	"Aasimar"
+	"Aasimar",
+	"Changeling",
+	"Kenku",
+	"Ogrun",
+	"Undine"
 	)
 	maximum_possible_slots = 0
 

code/controllers/subsystem/ticker.dm

@@ -558,6 +558,7 @@ SUBSYSTEM_DEF(ticker)
 		CHECK_TICK
 
 /datum/controller/subsystem/ticker/proc/select_ruler()
+/*
 	switch(rulertype)
 		if("King")
 			for(var/mob/living/carbon/human/K in world)
@@ -573,7 +574,7 @@ SUBSYSTEM_DEF(ticker)
 				if(H.job == "Hand")
 					rulermob = H
 					return
-
+*/
 /datum/controller/subsystem/ticker/proc/collect_minds()
 	for(var/i in GLOB.new_player_list)
 		var/mob/dead/new_player/P = i

code/datums/components/crafting/crafting.dm

@@ -209,6 +209,14 @@
 			if(M.density)
 				to_chat(user, "<span class='warning'>Something in the way.</span>")
 				return
+	if(R.req_kaizoku) //Requires Fog-island/Heartfell culture.
+		if(HAS_TRAIT(user, TRAIT_KAIZOKU))
+			to_chat(user, "<span class='warning'>I literally can't fanthom how imperials do this. Case hardening? Riveting? Fullering? Fluting? What is that?</span>")
+			return //If abyssariad of someone from Heartfell, you can't make imperial crafts. Hopefully this will be brought over to Smithing too.
+	if(R.req_antikaizoku) //Requires Imperial or 'else' culture.
+		if(!HAS_TRAIT(user, TRAIT_KAIZOKU))
+			to_chat(user, "<span class='warning'>I literally can't fathom how islanders do this. Differential hardening? Steel folding? Lost-wax casting? Tatami? What is that?</span>")
+			return //If not Abyssariad or someone from Heartfell, you can't make islander crafts. Hopefully this will be brought over to Smithing too.
 	if(R.req_table)
 		if(!(locate(/obj/structure/table) in T))
 			to_chat(user, "<span class='warning'>I need to make this on a table.</span>")

code/datums/components/crafting/recipes.dm

@@ -23,6 +23,8 @@
 	var/wallcraft = FALSE
 	var/craftdiff = 1
 	var/sellprice = 0
+	var/req_kaizoku = FALSE
+	var/req_antikaizoku = FALSE
 	//crafting diff, every diff removes 25% chance to craft
 /*
 /datum/crafting_recipe/example

code/datums/gods/patrons/divine_pantheon.dm

@@ -40,13 +40,18 @@
 	t2 = /obj/effect/proc_holder/spell/targeted/beasttame
 	t3 = /obj/effect/proc_holder/spell/targeted/conjure_kneestingers
 
-/datum/patron/divine/abyssor
+/datum/patron/divine/abyssor //I really gotta make this different for Abyssariads and normal Abyssor.
 	name = "Abyssor"
 	domain = "Force of Seas and Storms"
 	desc = "The World-Whale, the sovereign of the seas and storms."
 	flaws= "Reckless, Stubborn, Destructive"
 	worshippers = "Sailors of the Sea and Sky, Horrid Sea-Creachers, Fog Islanders"
 	sins = "Fear, Hubris, Trying to Tame the Seas"
+	t0 = /obj/effect/proc_holder/spell/invoked/lesser_heal/abyssal
+	t1 = /obj/effect/proc_holder/spell/invoked/projectile/purify //Unfinished
+	t2 = /obj/effect/proc_holder/spell/invoked/icebind //Unfinished
+	t3 = null
+//	t3 = /obj/effect/proc_holder/spell/invoked/elemental //Not finished.
 
 /datum/patron/divine/necra
 	name = "Necra"

code/datums/sexcon.dm

@@ -165,6 +165,12 @@
 	if(HAS_TRAIT(owner, TRAIT_LIMPDICK))
 		to_chat(owner, "<span class='warning'>My soldier won't stand up for me.</span>")
 		return
+	if(HAS_TRAIT(owner, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>My genitals got MINCED by that slackjaw freek!</span>")
+		return
+	if(HAS_TRAIT(user, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>All I see is a open wound.</span>")
+		return
 	if(user.sexcon.inpussy)
 		if(user.sexcon.inpussy != owner)
 			testing("fuckfail5")
@@ -241,6 +247,9 @@
 	if(HAS_TRAIT(owner, TRAIT_LIMPDICK))
 		to_chat(owner, "<span class='warning'>My soldier won't stand up for me.</span>")
 		return
+	if(HAS_TRAIT(owner, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>My genitals got MINCED by that slackjaw freek!</span>")
+		return
 	if(user.loc != owner.loc)
 		return
 	if(fucking)
@@ -291,6 +300,9 @@
 	if(HAS_TRAIT(owner, TRAIT_LIMPDICK))
 		to_chat(owner, "<span class='warning'>My soldier won't stand up for me.</span>")
 		return
+	if(HAS_TRAIT(owner, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>My genitals got MINCED by that slackjaw freek!</span>")
+		return
 	if(!user.lying && !user.wallpressed && !owner.wallpressed && !owner.lying)
 		return
 	if(user.loc != owner.loc)
@@ -348,6 +360,9 @@
 	if(HAS_TRAIT(owner, TRAIT_LIMPDICK))
 		to_chat(owner, "<span class='warning'>My soldier won't stand up for me.</span>")
 		return
+	if(HAS_TRAIT(owner, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>My genitals got MINCED by that slackjaw freek!</span>")
+		return
 	if(gender != MALE)
 		return
 	if(fucking)
@@ -373,6 +388,20 @@
 	owner.visible_message("<span class='[!user.cmode ? "love" : "warning"]'>[owner] feeds [user].</span>")
 	START_PROCESSING(SSsex, user.sexcon)
 	START_PROCESSING(SSsex, src)
+	if(ishuman(user))
+		var/mob/living/carbon/human/H = user //owner feeds user. Owner has genital exposed, so user must be Changeling.
+		if(H.dna?.species?.name == "Changeling") //They have an eldritch mouth. Neither THEY control it properly imagine YOU.
+			if(prob(15))
+				to_chat(owner, "<span class='userdanger'>You witness your genitals snap, sinews pulled free with unnatural ease as if it were never bound at all.</span>")
+				to_chat(user, "<span class='userdanger'>The fleshy taste drives you into a trance, involuntary, carnivorous hunger. Your jaws became unbidden.</span>")
+				playsound(owner, 'sound/combat/dismemberment/dismem (1).ogg', 100, TRUE, ignore_walls = FALSE)
+				ADD_TRAIT(owner, TRAIT_MINCED, TRAIT_GENERIC)
+				owner.emote("scream")
+				owner.apply_damage(80, BRUTE, BODY_ZONE_PRECISE_GROIN)
+				owner.Stun(60)
+				return
+			else
+				to_chat(user, "<span class='info'>You suppress the primal instinct, though this strain feels unnatural to your biology.</span>")
 
 /datum/sex_controller/proc/begin_mouthride(mob/living/user)
 	if(!user)
@@ -388,6 +417,9 @@
 		return
 	if(!user.lying || owner.lying)
 		return
+	if(HAS_TRAIT(owner, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>My genitals got MINCED by that slackjaw freek!</span>")
+		return
 	if(inpussy)
 		testing("mridefail2")
 		return
@@ -423,6 +455,20 @@
 	user.sexcon.eatspeed = initial(user.sexcon.eatspeed)
 	user.sexcon.lasteat = world.time
 	user.sexcon.weeating = owner
+	if(ishuman(user))
+		var/mob/living/carbon/human/H = user //owner rides = owner genital is exposed. User must be abyssariad.
+		if(H.dna?.species?.name == "Changeling") //They have an eldritch mouth. Neither THEY control it properly imagine YOU.
+			if(prob(15))
+				to_chat(owner, "<span class='userdanger'>You witness your genitals snap, sinews pulled free with unnatural ease as if it were never bound at all.</span>")
+				to_chat(user, "<span class='userdanger'>The fleshy taste drives you into a trance, involuntary, carnivorous hunger. Your jaws became unbidden.</span>")
+				playsound(owner, 'sound/combat/dismemberment/dismem (1).ogg', 100, TRUE, ignore_walls = FALSE)
+				ADD_TRAIT(owner, TRAIT_MINCED, TRAIT_GENERIC)
+				owner.emote("scream")
+				owner.apply_damage(80, BRUTE, BODY_ZONE_PRECISE_GROIN)
+				owner.Stun(60)
+				return
+			else
+				to_chat(user, "<span class='info'>You suppress the primal instinct, though this strain feels unnatural to your biology.</span>")
 	riding = user
 	owner.visible_message("<span class='[!user.cmode ? "love" : "warning"]'>[owner] rides [riding]'s face.</span>")
 	START_PROCESSING(SSsex, user.sexcon)
@@ -450,6 +496,12 @@
 	if(HAS_TRAIT(user, TRAIT_LIMPDICK))
 		to_chat(owner, "<span class='warning'>The soldier won't stand up for me.</span>")
 		return
+	if(HAS_TRAIT(owner, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>My genitals got MINCED by that slackjaw freek!</span>")
+		return
+	if(HAS_TRAIT(user, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>All I see is a open wound.</span>")
+		return
 	if(inpussy && !riding)
 		if(inpussy != user)
 			return
@@ -497,6 +549,9 @@
 	if(!get_location_accessible(user, BODY_ZONE_PRECISE_GROIN))
 		testing("eatfail13")
 		return
+	if(HAS_TRAIT(user, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>I will not put my mouth on a open wound.</span>")
+		return
 	if(eatingus)
 		if(eatingus == user)
 			if(!(user.lying && owner.lying))
@@ -534,6 +589,20 @@
 	weeating = user
 	user.sexcon.lasteat = world.time
 	user.sexcon.eatingus = owner
+	if(ishuman(owner))
+		var/mob/living/carbon/human/H = owner //owner is the one sugging. Owner must be the Changeling.
+		if(H.dna?.species?.name == "Changeling") //They have an eldritch mouth. Neither THEY control it properly imagine YOU.
+			if(prob(15))
+				to_chat(user, "<span class='userdanger'>You witness your genitals snap, sinews pulled free with unnatural ease as if it were never bound at all.</span>") //Functions perfectly for male AND females.
+				to_chat(owner, "<span class='userdanger'>The fleshy taste drives you into a trance, involuntary, carnivorous hunger. Your jaws became unbidden.</span>")
+				playsound(owner, 'sound/combat/dismemberment/dismem (1).ogg', 100, TRUE, ignore_walls = FALSE)
+				ADD_TRAIT(user, TRAIT_MINCED, TRAIT_GENERIC)
+				user.emote("scream")
+				user.apply_damage(80, BRUTE, BODY_ZONE_PRECISE_GROIN)
+				user.Stun(60)
+				return
+			else
+				to_chat(owner, "<span class='info'>You suppress the primal instinct, though this strain feels unnatural to your biology.</span>")
 	if(weeating.gender == MALE)
 		owner.visible_message("<span class='[!weeating.cmode ? "love" : "warning"]'>[owner] sucks [weeating].</span>")
 	else
@@ -557,6 +626,9 @@
 	if(HAS_TRAIT(owner, TRAIT_LIMPDICK))
 		to_chat(user, "<span class='warning'>The soldier won't stand up for me.</span>")
 		return
+	if(HAS_TRAIT(owner, TRAIT_MINCED))
+		to_chat(owner, "<span class='warning'>My genitals got MINCED by that slackjaw freek!</span>")
+		return
 	if(fapping)
 		testing("fapfail6")
 		if(fapping == G)
@@ -812,6 +884,8 @@
 						var/usedsource = "fuckmouth"
 						if(adjust_horny(3, usedsource))
 							stop_fucking()
+						//if race here if(D.owner.)
+							//if abyssariad, perform the funny perk-giver.
 	if(riding)
 		if(riding.sexcon.weeating == owner)
 			var/datum/sex_controller/D = riding.sexcon