Paradise/code/game/gamemodes/wizard/raginmages.dm

/datum/game_mode/wizard/raginmages
	name = "ragin' mages"
	config_tag = "raginmages"
	but_wait_theres_more = TRUE
	var/max_mages = 0
	var/making_mage = FALSE
	var/mages_made = 1
	COOLDOWN_DECLARE(time_checked)
	var/players_per_mage = 10 // If the admin wants to tweak things or something
	var/delay_per_mage = 7 MINUTES // Every 7 minutes by default
	var/time_till_chaos = 30 MINUTES // Half-hour in
	/// Tracks a one-time restock of all magivends once we get a second wizard
	var/have_we_populated_magivends = FALSE

/datum/game_mode/wizard/raginmages/announce()
	to_chat(world, "<B>The current game mode is - Ragin' Mages!</B>")
	to_chat(world, "<B>The <font color='red'>Space Wizard Federation</font> is pissed, crew must help defeat all the Space Wizards invading the station!</B>")

/datum/game_mode/wizard/raginmages/check_finished()
	var/wizards_alive = 0
	var/wizard_cap = CEILING((num_players_started() / players_per_mage), 1)
	max_mages = wizard_cap
	for(var/datum/mind/wizard in wizards)
		if(isnull(wizard.current))
			continue
		if(wizard.current.stat == DEAD || isbrain(wizard.current) || !iscarbon(wizard.current))
			if(squabble_helper(wizard))
				continue
		if(wizard.current.stat != CONSCIOUS)
			if(wizard.current.health < HEALTH_THRESHOLD_DEAD || wizard.current.stat == DEAD) //Lets make this not get funny rng crit involved
				if(!squabble_helper(wizard))
					to_chat(wizard.current, "<span class='warning'><font size='4'>The Space Wizard Federation is upset with your performance and have terminated your employment.</font></span>")
					wizard.current.dust() // *REAL* ACTION!! *REAL* DRAMA!! *REAL* BLOODSHED!!
				continue

		if(!wizard.current.client)
			continue // Could just be a bad connection, so SSD wiz's shouldn't be gibbed over it, but they're not "alive" either
		if(wizard.current.client.is_afk() > 10 MINUTES)
			to_chat(wizard.current, "<span class='warning'><font size='4'>The Space Wizard Federation is upset with your performance and have terminated your employment.</font></span>")
			wizard.current.dust() // Let's keep the round moving
			continue
		wizards_alive++

	if(wizards_alive)
		if(!time_checked)
			COOLDOWN_START(src, time_checked, delay_per_mage)
		if(world.time > time_till_chaos && COOLDOWN_FINISHED(src, time_checked) && (mages_made < wizard_cap))
			COOLDOWN_START(src, time_checked, delay_per_mage)
			make_more_mages()
	else
		if(length(wizards) >= wizard_cap)
			finished = TRUE
			return TRUE
		else
			make_more_mages()
	return ..()

/datum/game_mode/wizard/raginmages/proc/squabble_helper(datum/mind/wizard)
	if(istype(get_area(wizard.current), /area/wizard_station)) // We don't want people camping other wizards
		to_chat(wizard.current, "<span class='warning'>If there aren't any admins on and another wizard is camping you in the wizard lair, report them on the forums.</span>")
		message_admins("[wizard.current] died in the wizard lair, another wizard is likely camping")
		end_squabble(get_area(wizard.current))
		return TRUE

// To silence all struggles within the wizard's lair
/datum/game_mode/wizard/raginmages/proc/end_squabble(area/wizard_station/A)
	if(!istype(A))
		return // You could probably do mean things with this otherwise
	var/list/marked_for_death = list()
	for(var/mob/living/L in A) // To hit non-wizard griefers
		if(L.mind || L.client)
			marked_for_death |= L
	for(var/datum/mind/M in wizards)
		if(istype(M.current) && istype(get_area(M.current), /area/wizard_station))
			mages_made -= 1
			wizards -= M // No, you don't get to occupy a slot
			marked_for_death |= M.current
	for(var/mob/living/L in marked_for_death)
		if(L.stat == CONSCIOUS) // Probably a troublemaker - I'd like to see YOU fight when unconscious
			to_chat(L, "<span class='userdanger'>STOP FIGHTING.</span>")
		L.ghostize()
		if(isbrain(L))
			// diediedie
			var/mob/living/brain/B = L
			if(isitem(B.loc))
				qdel(B.loc)
			if(B && B.container)
				qdel(B.container)
		if(L)
			qdel(L)
	for(var/obj/item/spellbook/B in A)
		// No goodies for you
		qdel(B)

/datum/game_mode/wizard/raginmages/proc/make_more_mages()
	if(making_mage || SSshuttle.emergency.mode >= SHUTTLE_ESCAPE)
		return FALSE
	making_mage = TRUE
	if(!have_we_populated_magivends)
		populate_magivends()

	var/image/source = image('icons/obj/cardboard_cutout.dmi', "cutout_wizard")
	var/list/mob/dead/observer/candidates = SSghost_spawns.poll_candidates("Do you want to play as a raging Space Wizard?", ROLE_WIZARD, TRUE, poll_time = 20 SECONDS, source = source)
	var/mob/dead/observer/harry = null
	message_admins("SWF is still pissed, sending another wizard - [max_mages - mages_made] left.")

	if(!length(candidates))
		message_admins("This is awkward, sleeping until another mage check..")
		making_mage = FALSE
		sleep(300)
		return
	harry = pick(candidates)
	making_mage = FALSE
	if(harry)
		var/mob/living/carbon/human/new_character = makeBody(harry)
		var/datum/antagonist/wizard/wizard = new /datum/antagonist/wizard()
		wizard.additional_text = "Make sure the station pays for its actions against our diplomats. We might send more Wizards to the station if the situation is not developing in our favour."
		new_character.mind.add_antag_datum(wizard)
		new_character.forceMove(pick(GLOB.wizardstart))
		new_character.equip_to_slot_or_del(new /obj/item/reagent_containers/drinks/mugwort(harry), ITEM_SLOT_IN_BACKPACK)
		// The first wiznerd can get their mugwort from the wizard's den, new ones will also need mugwort!
		mages_made++
		dust_if_respawnable(harry)
		return TRUE
	else
		. = FALSE
		CRASH("The candidates list for ragin' mages contained non-observer entries!")

// ripped from -tg-'s wizcode, because whee lets make a very general proc for a very specific gamemode
// This probably wouldn't do half bad as a proc in __HELPERS
// Lemme know if this causes species to mess up spectacularly or anything
/datum/game_mode/wizard/raginmages/proc/makeBody(mob/dead/observer/G)
	if(!G || !G.key)
		return // Let's not steal someone's soul here
	var/mob/living/carbon/human/new_character = new(pick(GLOB.latejoin))
	G.client.prefs.active_character.copy_to(new_character)
	new_character.key = G.key
	return new_character

/datum/game_mode/wizard/raginmages/declare_completion()
	if(finished)
		SSticker.mode_result = "raging wizard loss - wizard killed"
		to_chat(world, "<span class='warning'><font size = 3><b>The crew has managed to hold off the Wizard attack! The Space Wizard Federation has been taught a lesson they will not soon forget!</b></font></span>")
	..(1)

/datum/game_mode/wizard/raginmages/proc/populate_magivends()
	// Makes magivends PLENTIFUL
	for(var/obj/machinery/economy/vending/magivend/magic in SSmachines.get_by_type(/obj/machinery/economy/vending/magivend))
		for(var/key in magic.products)
			magic.products[key] = 20 // and so, there was prosperity for ragin mages everywhere
		magic.product_records.Cut()
		magic.build_inventory(magic.products, magic.product_records)

	have_we_populated_magivends = TRUE