More arcane tamper stuff

code/__HELPERS/game.dm

@@ -20,11 +20,17 @@
 			return A
 	return 0
 
-/proc/get_area_name(atom/X, format_text = FALSE)
+/proc/get_area_name(atom/X, format_text = FALSE, short = FALSE)
 	var/area/A = isarea(X) ? X : get_area(X)
 	if(!A)
 		return null
-	return format_text ? format_text(A.name) : A.name
+	if(short)
+		if(A.short_name)
+			. = A.short_name
+		else
+			. = replacetext(format_text(get_first_word(A.name)),"'s","")
+	else
+		. = format_text ? format_text(A.name) : A.name
 
 /proc/get_coordinates_string(var/atom/A)
 	var/turf/T = get_turf(A)

code/datums/gamemode/factions/bloodcult/bloodcult_effects.dm

@@ -66,7 +66,7 @@
 			qdel(src)
 
 /obj/effect/cult_shortcut/attack_hand(var/mob/living/user)
-	if (!iscultist(user))
+	if (!iscultist(user) && !arcanetampered)
 		to_chat(user, "<span class='warning'>The markings on this wall are peculiar. You don't feel comfortable staring at them.</span>")
 		return
 	var/turf/T = get_turf(user)
@@ -79,7 +79,23 @@
 		user.forceMove(loc)
 		sleep(1)
 		new /obj/effect/afterimage/red(loc,user)
-		user.forceMove(get_step(loc,jump_dir))
+		if(!arcanetampered)
+			user.forceMove(get_step(loc,jump_dir))
+		else
+			user.dimensional_push()
+			if(!iscultist(user))
+				user.Knockdown(3)
+				user.Stun(3)
+				if(ishuman(user))
+					shake_camera(user, 20, 1)
+					spawn(20)
+						if(user)
+							to_chat(user,"<span class='danger'>You vomit from travelling through \the [src]!</span>")
+							user.nutrition = max(user.nutrition-20,0)
+							user.adjustToxLoss(-3)
+							var/turf/V = get_turf(user) //V for Vomit
+							V.add_vomit_floor(user)
+							playsound(V, 'sound/effects/splat.ogg', 50, 1)
 
 /obj/effect/cult_shortcut/cultify()
 	return

code/datums/gamemode/factions/bloodcult/bloodcult_runespells.dm

@@ -312,15 +312,21 @@
 		R.active_spell.midcast(user)
 		return
 
-	switch(structure)
-		if("Altar")
-			spawntype = /obj/structure/cult/altar
-		if("Spire")
-			spawntype = /obj/structure/cult/spire
-		if("Forge")
-			spawntype = /obj/structure/cult/forge
-		if("Pylon")
-			spawntype = /obj/structure/cult/pylon
+	if(spell_holder?.arcanetampered)
+		spawntype = pick(/obj/item/weapon/reagent_containers/food/snacks/badrecipe,\
+			/obj/item/weapon/bikehorn/rubberducky,\
+			/obj/item/weapon/bikehorn,\
+			/obj/item/weapon/card/fake_emag)
+	else
+		switch(structure)
+			if("Altar")
+				spawntype = /obj/structure/cult/altar
+			if("Spire")
+				spawntype = /obj/structure/cult/spire
+			if("Forge")
+				spawntype = /obj/structure/cult/forge
+			if("Pylon")
+				spawntype = /obj/structure/cult/pylon
 
 	if(!spell_holder)
 		return
@@ -413,6 +419,8 @@
 	for(var/mob/living/L in contributors)
 		var/datum/role/cultist/C = L.mind.GetRole(CULTIST)
 		C.gain_devotion(10, DEVOTION_TIER_1,"raise_structure",structure)
+	if(spell_holder.arcanetampered)
+		playsound(spell_holder.loc, 'sound/misc/fart.ogg', 50, 1)
 	new spawntype(spell_holder.loc)
 	qdel(spell_holder) //Deletes the datum as well.
 
@@ -444,6 +452,7 @@
 	R.one_pulse()
 	var/mob/living/user = activator
 	comms = new /obj/effect/cult_ritual/cult_communication(spell_holder.loc,user,src)
+	comms.arcanetampered = spell_holder?.arcanetampered
 
 /datum/rune_spell/communication/midcast(var/mob/living/user)
 	var/datum/faction/bloodcult/cult = find_active_faction_by_type(/datum/faction/bloodcult)
@@ -538,6 +547,13 @@
 			speaker_name = H.real_name
 			L = speech.speaker
 		rendered_message = speech.render_message()
+		if(arcanetampered)
+			if(prob(50))
+				speech.message = derpspeech(speech.message)
+			else
+				speech.message = tumblrspeech(speech.message)
+				speech.message = nekospeech(speech.message)
+			speaker_name = pick(clown_names)
 		var/datum/faction/bloodcult = find_active_faction_by_member(iscultist(L))
 		for(var/datum/role/cultist/C in bloodcult.members)
 			var/datum/mind/M = C.antag
@@ -549,6 +565,8 @@
 			to_chat(A, "<span class='game say'><b>[speaker_name]</b> communicates, <span class='sinisterbig'>[speech.message]</span></span>")
 		for(var/mob/dead/observer/O in player_list)
 			to_chat(O, "<span class='game say'><b>[speaker_name]</b> communicates, <span class='sinisterbig'>[speech.message]</span></span>")
+		if(arcanetampered && prob(50))
+			L.radio(speech,MODE_HEADSET) //busted!
 		log_cultspeak("[key_name(speech.speaker)] Cult Communicate Rune: [rendered_message]")
 
 /obj/effect/cult_ritual/cult_communication/HasProximity(var/atom/movable/AM)
@@ -2303,7 +2321,9 @@ var/list/seer_rituals = list()
 				L.stat = CONSCIOUS
 				if (L.reagents)
 					L.reagents.del_reagent(HOLYWATER)
-					if (!L.reagents.has_any_reagents(HYPERZINES))
+					if(spell_holder.arcanetampered && !L.reagents.has_any_reagents(HONKSERUM))
+						L.reagents.add_reagent(HONKSERUM,1)
+					else if (!L.reagents.has_any_reagents(HYPERZINES))
 						L.reagents.add_reagent(HYPERZINE,1,"no motor mouth")
 		qdel(spell_holder)
 	qdel(src)
@@ -2495,6 +2515,11 @@ var/list/seer_rituals = list()
 		for(var/mob/living/L in contributors)
 			to_chat(activator, "<span class='warning'>The ritual failed, the target seems to be under a curse that prevents us from reaching them through the veil.</span>")
 	else
+		if(spell_holder?.arcanetampered) // send in the clowns!
+			for (var/mob/living/carbon/human/H in player_list)
+				if(istype(H) && !H.stat && istype(H.get_item_by_slot(slot_wear_mask),/obj/item/clothing/mask/gas/clown_hat))
+					target = H
+					break
 		if (rejoin)
 			var/list/valid_turfs = list()
 			for(var/turf/T in orange(target,1))
@@ -3084,6 +3109,8 @@ var/list/bloodcult_exitportals = list()
 			newCultist.tattoos[TATTOO_MANIFEST] = new /datum/cult_tattoo/manifest()
 
 			vessel.equip_or_collect(new /obj/item/clothing/under/leather_rags(vessel), slot_w_uniform)
+			if(spell_holder?.arcanetampered)
+				vessel.adjustBrainLoss(100)
 
 		M.regenerate_icons()
 

code/game/area/Space Station 13 areas.dm

@@ -98,6 +98,8 @@ NOTE: there are two lists of areas in the end of this file: centcom and station
 
 	var/destroy_after_marker = FALSE	//The area is deleted after its holomap marker is created. Useful for shuttle docking zones that need to remain area-free.
 
+	var/short_name
+
 /*Adding a wizard area teleport list because motherfucking lag -- Urist*/
 /*I am far too lazy to make it a proper list of areas so I'll just make it run the usual telepot routine at the start of the game*/
 var/list/teleportlocs = list()
@@ -661,6 +663,7 @@ var/global/list/adminbusteleportlocs = list()
 
 /area/asteroid					// -- TLE
 	name = "\improper Asteroid"
+	short_name = "Roid"
 	icon_state = "asteroid"
 	requires_power = 0
 	shuttle_can_crush = FALSE
@@ -872,6 +875,7 @@ var/global/list/adminbusteleportlocs = list()
 //Maintenance
 
 /area/maintenance
+	short_name = "Maint"
 	shuttle_can_crush = FALSE
 	ambient_sounds = list(
 		/datum/ambience/maint1,
@@ -1112,6 +1116,7 @@ var/global/list/adminbusteleportlocs = list()
 
 /area/crew_quarters/sleep
 	name = "\improper Dormitories"
+	short_name = "Dorms"
 	icon_state = "Sleep"
 
 /area/crew_quarters/sleep_male
@@ -1363,6 +1368,7 @@ var/global/list/adminbusteleportlocs = list()
 //Solars
 
 /area/solar
+	short_name = "Solars"
 	requires_power = 0
 	holomap_color = HOLOMAP_AREACOLOR_ENGINEERING
 	shuttle_can_crush = FALSE
@@ -1605,6 +1611,7 @@ var/global/list/adminbusteleportlocs = list()
 
 /area/security/perma
 	name = "\improper Permanent Confinement"
+	short_name = "Perma"
 	icon_state = "sec_perma"
 
 /area/security/gas_chamber
@@ -1659,6 +1666,7 @@ var/global/list/adminbusteleportlocs = list()
 
 /area/security/armory
 	name = "\improper Secure Armory"
+	short_name = "Armory"
 	icon_state = "Armory"
 	holomap_color = HOLOMAP_AREACOLOR_COMMAND
 	jammed=1
@@ -1800,6 +1808,7 @@ var/global/list/adminbusteleportlocs = list()
 
 /area/science/xenobiology
 	name = "\improper Xenobiology Lab"
+	short_name = "Xenobio"
 	icon_state = "xenobio"
 
 /area/science/xenobiology/specimen_1
@@ -1871,6 +1880,7 @@ var/global/list/adminbusteleportlocs = list()
 //Storage
 
 /area/storage
+	short_name = "Storage"
 	shuttle_can_crush = FALSE
 
 /area/storage/tools
@@ -1909,6 +1919,7 @@ var/global/list/adminbusteleportlocs = list()
 
 /area/storage/nuke_storage
 	name = "\improper Vault"
+	short_name = null
 	icon_state = "nuke_storage"
 	holomap_color = HOLOMAP_AREACOLOR_COMMAND
 

code/game/atoms.dm

@@ -882,15 +882,23 @@ its easier to just keep the beam vertical.
 /mob/var/list/atom/arcane_tampered_atoms = list()
 
 /atom/proc/arcane_act(var/mob/user, var/recursive = FALSE)
-	if(user)
+	if(ismob(user))
 		arcanetampered = user
 		user.arcane_tampered_atoms.Add(src)
 	else
 		arcanetampered = TRUE
+	. = "E'MAGI!"
 	if(recursive)
 		for(var/atom/A in contents)
-			A.arcane_act(user,TRUE)
-	return "E'MAGI!"
+			var/invoke = A.arcane_act(user,TRUE)
+			if(invoke != "E'MAGI!") //anything other than the default recursively? return that instead
+				. = invoke
+	if(reagents)
+		for(var/datum/reagent/R in reagents.reagent_list)
+			if(R.arcane_id)
+				var/oldamt = R.volume
+				reagents.remove_reagent(R.id, oldamt*R.arcane_ratio)
+				reagents.add_reagent(R.arcane_id, oldamt*R.arcane_ratio)
 
 //Called on holy_water's reaction_obj()
 /atom/proc/bless()

code/game/machinery/computer/arcade/arcade.dm

@@ -70,8 +70,8 @@
 	game.emag_act(user)
 
 /obj/machinery/computer/arcade/arcane_act(mob/user)
-	game.emag_act(user) // until i come up with something better, reward differs for now though
-	return ..()
+	game.arcane_act(user)
+	return "H'NK!"
 
 /obj/machinery/computer/arcade/bless()
 	return