Ports Psionics From Baystation (2 years later edition)

code/__DEFINES/atom_hud.dm

@@ -44,6 +44,8 @@
 #define DIAG_LAUNCHPAD_HUD "22"
 //for antag huds. these are used at the /mob level
 #define ANTAG_HUD		"23"
+/// psi control implant
+#define IMPPSI_HUD	"24"
 
 //by default everything in the hud_list of an atom is an image
 //a value in hud_list with one of these will change that behavior

code/__DEFINES/magic.dm

@@ -30,6 +30,8 @@
 #define SCHOOL_FORBIDDEN "forbidden"
 /// Blood magic, involves vampirism, draining blood, etc.
 #define SCHOOL_SANGUINE "sanguine"
+/// psionic powers, not *technically* magic
+#define SCHOOL_PSIONIC "psionic"
 
 // Invocation types - what does the wizard need to do to invoke (cast) the spell?
 /// Allows being able to cast the spell without saying or doing anything.

code/__DEFINES/modular_computer.dm

@@ -29,6 +29,7 @@
 #define PROGRAM_CATEGORY_ENGINEERING "Engineering"
 #define PROGRAM_CATEGORY_SUPPLY "Supply"
 #define PROGRAM_CATEGORY_SCIENCE "Science"
+#define PROGRAM_CATEGORY_CREW "Crew"
 
 ///The default amount a program should take in cell use.
 #define PROGRAM_BASIC_CELL_USE 15

code/__DEFINES/psi.dm

@@ -0,0 +1,34 @@
+#define PSI_COERCION           "coercion"
+#define PSI_PSYCHOKINESIS      "psychokinesis"
+#define PSI_REDACTION          "redaction"
+#define PSI_ENERGISTICS        "energistics"
+
+#define PSI_RANK_BLUNT         0
+#define PSI_RANK_LATENT        1
+#define PSI_RANK_OPERANT       2
+#define PSI_RANK_MASTER        3
+#define PSI_RANK_GRANDMASTER   4
+#define PSI_RANK_PARAMOUNT     5
+
+#define PSI_IMPLANT_AUTOMATIC  "Security Level Derived"
+#define PSI_IMPLANT_SHOCK      "Issue Neural Shock"
+#define PSI_IMPLANT_WARN       "Issue Reprimand"
+#define PSI_IMPLANT_LOG        "Log Incident"
+#define PSI_IMPLANT_DISABLED   "Disabled"
+
+#define INVOKE_PSI_POWERS(holder, powers, target, return_on_invocation) \
+	if(holder && holder.psi && holder.psi.can_use()) { \
+		for(var/thing in powers) { \
+			var/datum/psionic_power/power = thing; \
+			var/obj/item/result = power.invoke(holder, target); \
+			if(result) { \
+				power.handle_post_power(holder, target); \
+				if(istype(result)) { \
+					holder.playsound_local(soundin = 'sound/effects/psi/power_evoke.ogg'); \
+					LAZYADD(holder.psi.manifested_items, result); \
+					holder.put_in_hands(result); \
+				} \
+				return return_on_invocation; \
+			} \
+		} \
+	}

code/_onclick/hud/screen_objects.dm

@@ -284,6 +284,8 @@
 		var/obj/item/I = hud.mymob.get_active_held_item()
 		if(I)
 			I.Click(location, control, params)
+		else
+			hud.mymob.attack_empty_hand(hud.mymob.active_hand_index)
 	else
 		hud.mymob.swap_hand(held_index)
 	return 1

code/_onclick/other_mobs.dm

@@ -47,6 +47,10 @@
 
 	A.attack_hand(src, modifiers)
 
+/mob/living/carbon/human/attack_empty_hand()
+	if(psi)
+		INVOKE_PSI_POWERS(src, psi.get_manifestations(), src, FALSE)
+
 //Return TRUE to cancel other attack hand effects that respect it.
 /atom/proc/attack_hand(mob/user, modifiers)
 	. = FALSE
@@ -57,6 +61,9 @@
 	if(interaction_flags_atom & INTERACT_ATOM_ATTACK_HAND)
 		. = _try_interact(user, modifiers)
 
+/mob/proc/attack_empty_hand(hand)
+	return
+
 /// When the user uses their hand on an item while holding right-click
 /// Returns a SECONDARY_ATTACK_* value.
 /atom/proc/attack_hand_secondary(mob/user, modifiers)

code/controllers/subsystem/processing/psi.dm

@@ -0,0 +1,36 @@
+GLOBAL_LIST_INIT(psychic_ranks_to_strings, list("Latent", "Operant", "Masterclass", "Grandmasterclass", "Paramount"))
+
+PROCESSING_SUBSYSTEM_DEF(psi)
+	name = "Psychics"
+	// priority = SS_PRIORITY_PSYCHICS
+	flags = SS_POST_FIRE_TIMING | SS_BACKGROUND
+
+	var/list/faculties_by_id =        list()
+	var/list/faculties_by_name =      list()
+	var/list/all_aura_images =        list()
+	var/list/all_psi_complexes =      list()
+	var/list/psi_dampeners =          list()
+	var/list/psi_monitors =           list()
+	var/list/armour_faculty_by_type = list()
+
+/datum/controller/subsystem/processing/psi/New()
+	NEW_SS_GLOBAL(SSpsi)
+
+/datum/controller/subsystem/processing/psi/proc/get_faculty(faculty)
+	return faculties_by_name[faculty] || faculties_by_id[faculty]
+
+/datum/controller/subsystem/processing/psi/Initialize()
+	. = ..()
+
+	var/list/faculties = subtypesof(/datum/psionic_faculty)
+	for(var/ftype in faculties)
+		var/datum/psionic_faculty/faculty = new ftype
+		faculties_by_id[faculty.id] = faculty
+		faculties_by_name[faculty.name] = faculty
+
+	var/list/powers = subtypesof(/datum/psionic_power)
+	for(var/ptype in powers)
+		var/datum/psionic_power/power = new ptype
+		if(power.faculty)
+			var/datum/psionic_faculty/faculty = get_faculty(power.faculty)
+			faculty?.powers |= power

code/datums/mind.dm

@@ -465,6 +465,13 @@
 	if(!check_rights(R_ADMIN))
 		return
 
+	if(current && isliving(current))
+		if(href_list["set_psi_faculty"] && href_list["set_psi_faculty_rank"])
+			current.set_psi_rank(href_list["set_psi_faculty"], text2num(href_list["set_psi_faculty_rank"]))
+			message_admins("[key_name_admin(usr)] set [key_name(current)]'s [href_list["set_psi_faculty"]] faculty to [text2num(href_list["set_psi_faculty_rank"])].")
+			log_admin("[key_name_admin(usr)] set [key_name(current)]'s [href_list["set_psi_faculty"]] faculty to [text2num(href_list["set_psi_faculty_rank"])].")
+			return TRUE
+
 	var/self_antagging = usr == current
 
 	if(href_list["add_antag"])

code/game/atoms_movable.dm

@@ -1394,3 +1394,6 @@
 		if(destination)
 			forceMove(destination)
 			return TRUE
+
+/atom/movable/proc/do_simple_ranged_interaction(mob/user)
+	return FALSE

code/game/data_huds.dm

@@ -47,7 +47,7 @@
 	hud_icons = list(ID_HUD)
 
 /datum/atom_hud/data/human/security/advanced
-	hud_icons = list(ID_HUD, IMPTRACK_HUD, IMPLOYAL_HUD, IMPCHEM_HUD, WANTED_HUD, NANITE_HUD)
+	hud_icons = list(ID_HUD, IMPTRACK_HUD, IMPLOYAL_HUD, IMPCHEM_HUD, WANTED_HUD, NANITE_HUD, IMPPSI_HUD)
 
 /datum/atom_hud/data/human/security/advanced/hos
 	hud_icons = list(ID_HUD, IMPTRACK_HUD, IMPLOYAL_HUD, IMPCHEM_HUD, WANTED_HUD, NANITE_HUD, STATUS_HUD, HEALTH_HUD)
@@ -212,7 +212,7 @@ Security HUDs! Basic mode shows only the job.
 
 /mob/living/proc/sec_hud_set_implants()
 	var/image/holder
-	for(var/i in list(IMPTRACK_HUD, IMPLOYAL_HUD, IMPCHEM_HUD))
+	for(var/i in list(IMPTRACK_HUD, IMPLOYAL_HUD, IMPCHEM_HUD, IMPPSI_HUD))
 		holder = hud_list[i]
 		holder.icon_state = null
 		set_hud_image_inactive(i)
@@ -231,6 +231,12 @@ Security HUDs! Basic mode shows only the job.
 			holder.pixel_y = IC.Height() - world.icon_size
 			holder.icon_state = "hud_imp_chem"
 			set_hud_image_active(IMPCHEM_HUD)
+		else if(istype(I, /obj/item/implant/psi_control))
+			holder = hud_list[IMPPSI_HUD]
+			var/icon/IC = icon(icon, icon_state, dir)
+			holder.pixel_y = IC.Height() - world.icon_size
+			holder.icon_state = "hud_imp_psi"
+			set_hud_image_active(IMPPSI_HUD)
 
 	if(HAS_TRAIT(src, TRAIT_MINDSHIELD))
 		holder = hud_list[IMPLOYAL_HUD]

code/game/machinery/doors/door.dm

@@ -199,6 +199,14 @@
 		return
 	..()
 
+/obj/machinery/door/do_simple_ranged_interaction(mob/user)
+	if(!requiresID() || allowed(null))
+		if(density)
+			open()
+		else
+			close()
+	return TRUE
+
 /obj/machinery/door/proc/try_to_activate_door(mob/user)
 	add_fingerprint(user)
 	if(operating || (obj_flags & EMAGGED))

code/game/objects/items.dm

@@ -508,6 +508,11 @@ GLOBAL_VAR_INIT(rpg_loot_items, FALSE)
 			R.activate_module(src)
 			R.hud_used.update_robot_modules_display()
 
+/obj/item/do_simple_ranged_interaction(mob/user)
+	if(user)
+		attack_self(user)
+	return TRUE
+
 /obj/item/proc/GetDeconstructableContents()
 	return get_all_contents() - src
 

code/game/objects/items/implants/implant_psi.dm

@@ -0,0 +1,173 @@
+/obj/item/implant/psi_control
+	name = "psi dampener implant"
+	desc = "A safety implant for registered psi-operants."
+	implant_color = "n"
+
+	var/overload = 0
+	var/max_overload = 100
+	var/cooldown_rate = 10
+	var/psi_mode = PSI_IMPLANT_AUTOMATIC
+	var/list/logs
+
+/obj/item/implant/psi_control/get_data()
+	var/dat = {"<b>Implant Specifications:</b><BR>
+				<b>Name:</b> Nanotrasen Psionic Mitigation Implant<BR>
+				<b>Life:</b> Ten years.<BR>
+				<b>Important Notes:</b> Psionic personel injected with this device can have their psionic potental di.<BR>
+				<HR>
+				<b>Implant Details:</b><BR>
+				<b>Function:</b> Contains a small shard of nullglass that prevents those implanted from being able to use psionic powers.<BR>
+				<b>Special Features:</b> Will prevent and log the use of psionics.<BR>
+				<b>Integrity:</b> Implant will last so long as the device is inside the bloodstream."}
+	return dat
+
+/obj/item/implant/psi_control/Initialize()
+	. = ..()
+	SSpsi.psi_dampeners += src
+	SSpsi.processing += src
+
+/obj/item/implant/psi_control/Destroy()
+	SSpsi.psi_dampeners -= src
+	SSpsi.processing -= src
+	. = ..()
+
+/obj/item/implant/psi_control/process()
+	..()
+	overload = max(overload - cooldown_rate, 0)
+
+/obj/item/implant/psi_control/disrupts_psionics()
+	if(!imp_in)
+		return FALSE
+	var/use_psi_mode = get_psi_mode()
+	return (use_psi_mode == PSI_IMPLANT_SHOCK || use_psi_mode == PSI_IMPLANT_WARN) ? src : FALSE
+
+/obj/item/implant/psi_control/removed()
+	var/mob/living/M = imp_in
+	if(disrupts_psionics() && istype(M) && M.psi)
+		to_chat(M, span_notice("You feel the chilly shackles around your psionic faculties fade away."))
+	. = ..()
+
+/obj/item/implant/psi_control/proc/update_functionality(silent)
+	var/mob/living/M = imp_in
+	if(silent || !M || !M.psi)
+		return
+	if(get_psi_mode() == PSI_IMPLANT_DISABLED)
+		to_chat(M, span_notice("You feel the chilly shackles around your psionic faculties fade away."))
+	else
+		to_chat(M, span_notice("Bands of hollow ice close themselves around your psionic faculties."))
+
+/obj/item/implant/psi_control/proc/meltdown()
+	overload = 100
+	if(imp_in)
+		report_failure()
+	psi_mode = PSI_IMPLANT_DISABLED
+	update_functionality()
+
+/obj/item/implant/psi_control/proc/get_psi_mode()
+	if(psi_mode == PSI_IMPLANT_AUTOMATIC)
+		switch(SSsecurity_level.get_current_level_as_number())
+			if(SEC_LEVEL_GREEN)
+				return PSI_IMPLANT_SHOCK
+			if(SEC_LEVEL_BLUE)
+				return PSI_IMPLANT_WARN
+			else
+				return PSI_IMPLANT_LOG
+
+	return psi_mode
+
+/obj/item/implant/psi_control/withstand_psi_stress(stress, atom/source)
+	if(source != imp_in)
+		return
+
+	var/use_psi_mode = get_psi_mode()
+
+	if(use_psi_mode == PSI_IMPLANT_DISABLED)
+		return stress
+
+	. = 0
+
+	if(stress)
+
+		// If we're disrupting psionic attempts at the moment, we might overload.
+		if(disrupts_psionics())
+			var/overload_amount = FLOOR(stress, 10)
+			if(overload_amount)
+				overload += overload_amount
+				if(overload >= 100)
+					if(imp_in)
+						to_chat(imp_in, span_danger("Your psi dampener overloads violently!"))
+					meltdown()
+					update_functionality()
+					return
+				if(imp_in)
+					if(overload >= 75 && overload < 100)
+						to_chat(imp_in, span_danger("Your psi dampener is searing hot!"))
+					else if(overload >= 50 && overload < 75)
+						to_chat(imp_in, span_warning("Your psi dampener is uncomfortably hot..."))
+					else if(overload >= 25 && overload < 50)
+						to_chat(imp_in, span_warning("You feel your psi dampener heating up..."))
+
+		// If all we're doing is logging the incident then just pass back stress without changing it.
+		if(source && source == imp_in)
+			report_violation(stress)
+			switch(use_psi_mode)
+				if(PSI_IMPLANT_LOG)
+					return stress
+				if(PSI_IMPLANT_SHOCK)
+					to_chat(imp_in, span_danger("Your psi dampener punishes you with a violent neural shock!"))
+					imp_in.electrocute_act(5, src)
+					if(isliving(imp_in))
+						var/mob/living/M = imp_in
+						if(M.psi) M.psi.stunned(5)
+				if(PSI_IMPLANT_WARN)
+					to_chat(imp_in, span_warning("Your psi dampener primly informs you it has reported this violation."))
+
+/obj/item/implant/psi_control/proc/report_failure()
+	LAZYADD(logs, "Critical system failure - [imp_in.name].")
+
+/obj/item/implant/psi_control/proc/report_violation(stress)
+	LAZYADD(logs, "Sigma [round(stress/10)] event - [imp_in.name].")
+
+/obj/item/implant/psi_control/psych
+	psi_mode = PSI_IMPLANT_LOG
+
+/obj/item/implanter/psi_control
+	name = "implanter (psi dampener)"
+	imp_type = /obj/item/implant/psi_control
+
+/obj/item/implantcase/psi_control
+	name = "implant case - 'Psi Dampener'"
+	desc = "A glass case containing a psi dampener implant."
+	imp_type = /obj/item/implant/psi_control
+
+/obj/item/implant/nullglass
+	name = "nullglass shard"
+	desc = "A shard of psionic inhibiting glass."
+	implant_color = "n"
+	var/stress_left = 100
+	var/lifespan = 1 MINUTES
+
+/obj/item/implant/nullglass/Initialize()
+	. = ..()
+	QDEL_IN(src, lifespan)
+
+/obj/item/implant/nullglass/disrupts_psionics()
+	if(imp_in)
+		return src
+
+/obj/item/implant/nullglass/withstand_psi_stress(stress, atom/source)
+	if(source != imp_in)
+		return stress
+
+	. = max(stress - stress_left, 0)
+	stress_left -= stress
+	if(imp_in)
+		if(stress_left > 0 && stress_left < 25)
+			to_chat(imp_in, span_danger("You feel a searing hot piece of glass in your body!"))
+		else if(stress_left >= 25 && stress_left < 50)
+			to_chat(imp_in, span_warning("You feel a piece of glass in your body getting uncomfortably hot..."))
+		else if(stress_left >= 50)
+			to_chat(imp_in, span_warning("You feel a piece of glass in your body heating up..."))
+	if(stress_left <= 0)
+		to_chat(imp_in, span_danger("You hear a piece of glass shatter in your body!"))
+		qdel(src)