CHOMPStation2/maps/gateway_vr/wildwest.dm

/* Code for the Wild West map by Brotemis
 * Contains:
 *		Wish Granter
 *		Meat Grinder
 */

/*
 * Wish Granter
 */

//I copied this from the archive thingy for in case it goes missing. I would like to spice up the wish granter with some new, more appropriate stuff eventually
//At present neither of these things are on the map.
/*
/obj/machinery/wish_granter_dark
	name = "Wish Granter"
	desc = "You're not so sure about this, anymore..."
	icon = 'icons/obj/device.dmi'
	icon_state = "syndbeacon"

	anchored = 1
	density = 1
	use_power = USE_POWER_OFF

	var/chargesa = 1
	var/insistinga = 0

/obj/machinery/wish_granter_dark/attack_hand(var/mob/living/carbon/human/user)
	user.set_machine(src)

	if(chargesa <= 0)
		to_chat(user, "The Wish Granter lies silent.")
		return

	else if(!ishuman(user))
		to_chat(user, "You feel a dark stirring inside of the Wish Granter, something you want nothing of. Your instincts are better than any man's.")
		return

	else if(is_special_character(user))
		to_chat(user, "Even to a heart as dark as yours, you know nothing good will come of this.  Something instinctual makes you pull away.")

	else if (!insistinga)
		to_chat(user, "Your first touch makes the Wish Granter stir, listening to you.  Are you really sure you want to do this?")
		insistinga++

	else
		chargesa--
		insistinga = 0
		var/wish = tgui_input_list(user, "You want...","Wish", list("Power","Wealth","Immortality","To Kill","Peace"))
		switch(wish)
			if("Power")
				to_chat(user, span_boldwarning("Your wish is granted, but at a terrible cost..."))
				to_chat(user, span_warning("The Wish Granter punishes you for your selfishness, claiming your soul and warping your body to match the darkness in your heart."))
				if (!(LASER in user.mutations))
					user.mutations.Add(LASER)
					to_chat(user, span_notice("You feel pressure building behind your eyes."))
				if (!(COLD_RESISTANCE in user.mutations))
					user.mutations.Add(COLD_RESISTANCE)
					to_chat(user, span_notice("Your body feels warm."))
				if (!(XRAY in user.mutations))
					user.mutations.Add(XRAY)
					user.sight |= (SEE_MOBS|SEE_OBJS|SEE_TURFS)
					user.see_in_dark = 8
					user.see_invisible = SEE_INVISIBLE_LEVEL_TWO
					to_chat(user, span_notice("The walls suddenly disappear."))
				user.dna.mutantrace = "shadow"
				user.update_mutantrace()
			if("Wealth")
				to_chat(user, span_boldwarning("Your wish is granted, but at a terrible cost..."))
				to_chat(user, span_warning("The Wish Granter punishes you for your selfishness, claiming your soul and warping your body to match the darkness in your heart."))
				new /obj/structure/closet/syndicate/resources/everything(loc)
				user.dna.mutantrace = "shadow"
				user.update_mutantrace()
			if("Immortality")
				to_chat(user, span_boldwarning("Your wish is granted, but at a terrible cost..."))
				to_chat(user, span_warning("The Wish Granter punishes you for your selfishness, claiming your soul and warping your body to match the darkness in your heart."))
				add_verb(user, /mob/living/carbon/proc/immortality)
				user.dna.mutantrace = "shadow"
				user.update_mutantrace()
			if("To Kill")
				to_chat(user, span_boldwarning("Your wish is granted, but at a terrible cost..."))
				to_chat(user, span_warning("The Wish Granter punishes you for your wickedness, claiming your soul and warping your body to match the darkness in your heart."))
				SSticker.mode.traitors += user.mind
				user.mind.special_role = "traitor"
				var/datum/objective/hijack/hijack = new
				hijack.owner = user.mind
				user.mind.objectives += hijack
				to_chat(user, span_infoplain(span_bold("Your inhibitions are swept away, the bonds of loyalty broken, you are free to murder as you please!")))
				var/obj_count = 1
				for(var/datum/objective/OBJ in user.mind.objectives)
					to_chat(user, span_infoplain(span_bold("Objective #[obj_count]") + ": [OBJ.explanation_text]"))
					obj_count++
				user.dna.mutantrace = "shadow"
				user.update_mutantrace()
			if("Peace")
				to_chat(user, span_infoplain(span_bold("Whatever alien sentience that the Wish Granter possesses is satisfied with your wish. There is a distant wailing as the last of the Faithless begin to die, then silence.")))
				to_chat(user, span_infoplain("You feel as if you just narrowly avoided a terrible fate..."))
				for(var/mob/living/simple_mob/faithless/F in GLOB.living_mob_list)
					F.health = -10
					F.set_stat(DEAD)
					F.icon_state = "faithless_dead"


///////////////Meatgrinder//////////////


/obj/effect/meatgrinder
	name = "Meat Grinder"
	desc = "What is that thing?"
	density = 1
	anchored = 1
	icon = 'icons/mob/critter.dmi'
	icon_state = "blob"
	var/triggerproc = "explode" //name of the proc thats called when the mine is triggered
	var/triggered = 0

/obj/effect/meatgrinder/Initialize(mapload)
	icon_state = "blob"

/obj/effect/meatgrinder/HasEntered(AM as mob|obj)
	Bumped(AM)

/obj/effect/meatgrinder/Bumped(mob/M as mob|obj)

	if(triggered) return

	if(ishuman(M) || istype(M, /mob/living/carbon/monkey))
		for(var/mob/O in viewers(world.view, src.loc))
			to_chat(O, span_red("[M] triggered the [icon2html(src)] [src]"))
		triggered = 1
		call(src,triggerproc)(M)

/obj/effect/meatgrinder/proc/triggerrad1(mob)
	var/datum/effect/effect/system/spark_spread/s = new /datum/effect/effect/system/spark_spread
	for(var/mob/O in viewers(world.view, src.loc))
		s.set_up(3, 1, src)
		s.start()
		explosion(mob, 1, 0, 0, 0)
		spawn(0)
			qdel(src)

/obj/effect/meatgrinder
	name = "Meat Grinder"
	icon_state = "blob"
	triggerproc = "triggerrad1"


/////For the Wishgranter///////////

/mob/living/carbon/proc/immortality()
	set category = "Immortality"
	set name = "Resurrection"

	if(!stat)
		to_chat(src, span_notice("You're not dead yet!"))
		return FALSE
	to_chat(src, span_notice("Death is not your end!"))

	spawn(rand(800,1200))
		if(stat == DEAD)
			GLOB.dead_mob_list -= src
			GLOB.living_mob_list += src
		set_stat(CONSCIOUS)
		tod = null
		setToxLoss(0)
		setOxyLoss(0)
		setCloneLoss(0)
		SetParalysis(0)
		SetStunned(0)
		SetWeakened(0)
		radiation = 0
		heal_overall_damage(src.getBruteLoss(), src.getFireLoss())
		reagents.clear_reagents()
		to_chat(src, span_notice("You have regenerated."))
		visible_message(span_warning("[src] appears to wake from the dead, having healed all wounds."))
		update_canmove()
	return TRUE
*/

/obj/effect/overmap/visitable/sector/common_gateway/wildwest
	name = "redspace shimmer"
	desc = "The shimmering reflection of some sort of redspace phenomena."
	scanner_desc = @{"It is difficult to tell just what is beyond this strange shimmering shape. The air beyond seems breathable."}
	icon = 'icons/obj/overmap_vr.dmi'
	icon_state = "shimmer"
	color = "#8b0b0b" //red
	in_space = 1
	unknown_state = "field"
	known = FALSE

	skybox_icon = 'icons/skybox/anomaly.dmi'
	skybox_icon_state = "shimmer_r"
	skybox_pixel_x = 0
	skybox_pixel_y = 0

/obj/random/mob/semirandom_mob_spawner/wildwest
	name = "Wild west mob spawner"
	desc = "Spawns groups of mobs that are all of the same theme type/theme."
	icon = 'icons/mob/randomlandmarks.dmi'
	icon_state = "monster"
	mob_faction = "wildwest"
	mob_returns_home = 0
	overwrite_hostility = 1
	mob_hostile = 1

	possible_mob_types = list(
		list(
			/mob/living/simple_mob/humanoid/merc/melee = 100,
			/mob/living/simple_mob/humanoid/merc/ranged = 50,
			/mob/living/simple_mob/humanoid/merc/ranged/space = 5,
			/mob/living/simple_mob/vore/otie/feral = 10,
			/mob/living/simple_mob/vore/otie/feral/chubby = 5
			),

		list(
			/mob/living/simple_mob/animal/space/alien = 1000,
			/mob/living/simple_mob/animal/space/alien/drone = 500,
			/mob/living/simple_mob/animal/space/alien/sentinel = 100,
			/mob/living/simple_mob/animal/space/alien/sentinel/praetorian = 50,
			/mob/living/simple_mob/animal/space/alien/queen = 50,
			/mob/living/simple_mob/animal/space/alien/queen/empress = 1,
			/mob/living/simple_mob/animal/space/alien/queen/empress/mother = 1
			),
		list(
			/mob/living/simple_mob/humanoid/pirate = 100,
			/mob/living/simple_mob/humanoid/pirate/ranged = 50,
			/mob/living/simple_mob/vore/wolf = 10,
			/mob/living/simple_mob/vore/wolf/direwolf = 5
			)

	)

/obj/random/mob/semirandom_mob_spawner/wildwest/spawn_item()
	if(prob(25))
		return
	. = ..()