Paradise/code/datums/spells/ethereal_jaunt.dm

/datum/spell/ethereal_jaunt
	name = "Ethereal Jaunt"
	desc = "This spell creates your ethereal form, temporarily making you invisible and able to pass through walls."

	base_cooldown = 300
	invocation = "none"
	cooldown_min = 100 //50 deciseconds reduction per rank
	nonabstract_req = TRUE
	centcom_cancast = FALSE //Prevent people from getting to centcom
	var/sound1 = 'sound/magic/ethereal_enter.ogg'
	var/sound2 = 'sound/magic/ethereal_exit.ogg'
	var/jaunt_duration = 50 //in deciseconds
	var/jaunt_in_time = 5
	var/jaunt_out_time = null
	var/jaunt_in_type = /obj/effect/temp_visual/wizard
	var/jaunt_out_type = /obj/effect/temp_visual/wizard/out
	var/jaunt_type_path = /obj/effect/dummy/spell_jaunt
	var/jaunt_water_effect = TRUE

	action_icon_state = "jaunt"

/datum/spell/ethereal_jaunt/create_new_targeting()
	return new /datum/spell_targeting/self

/datum/spell/ethereal_jaunt/cast(list/targets, mob/user = usr) //magnets, so mostly hardcoded
	playsound(get_turf(user), sound1, 50, TRUE, -1)
	for(var/mob/living/target in targets)
		if(SEND_SIGNAL(target, COMSIG_MOB_PRE_JAUNT, target) & COMPONENT_BLOCK_JAUNT)
			continue
		if(!target.can_safely_leave_loc()) // No more brainmobs hopping out of their brains
			to_chat(target, SPAN_WARNING("You are somehow too bound to your current location to abandon it."))
			continue
		INVOKE_ASYNC(src, PROC_REF(do_jaunt), target)

/datum/spell/ethereal_jaunt/proc/do_jaunt(mob/living/target)
	target.notransform = TRUE
	var/turf/mobloc = get_turf(target)
	var/obj/effect/dummy/spell_jaunt/holder = new jaunt_type_path(mobloc)
	new jaunt_out_type(mobloc, target.dir)
	target.ExtinguishMob()
	target.forceMove(holder)
	target.reset_perspective(holder)
	target.notransform = FALSE //mob is safely inside holder now, no need for protection.
	if(jaunt_water_effect)
		jaunt_steam(mobloc)

	sleep(jaunt_duration)

	if(target.loc != holder) //mob warped out of the warp
		qdel(holder)
		return
	mobloc = get_turf(target.loc)
	if(jaunt_water_effect)
		jaunt_steam(mobloc)
	ADD_TRAIT(target, TRAIT_IMMOBILIZED, "jaunt")
	holder.reappearing = 1
	playsound(get_turf(target), sound2, 50, TRUE, -1)
	sleep(jaunt_in_time * 4)
	new jaunt_in_type(mobloc, holder.dir)
	target.setDir(holder.dir)
	var/time_to_jaunt_out = jaunt_in_time
	if(jaunt_out_time)
		time_to_jaunt_out = jaunt_out_time
	sleep(time_to_jaunt_out)
	qdel(holder)
	if(!QDELETED(target))
		if(mobloc.is_blocked_turf(exclude_mobs = TRUE))
			for(var/turf/T in orange(7))
				if(isspaceturf(T))
					continue
				if(target.Move(T))
					target.remove_CC()
					REMOVE_TRAIT(target, TRAIT_IMMOBILIZED, "jaunt")
					return
			for(var/turf/space/S in orange(7))
				if(target.Move(S))
					break
		REMOVE_TRAIT(target, TRAIT_IMMOBILIZED, "jaunt")
		target.remove_CC()

/datum/spell/ethereal_jaunt/proc/jaunt_steam(mobloc)
	var/datum/effect_system/steam_spread/steam = new /datum/effect_system/steam_spread()
	steam.set_up(10, 0, mobloc)
	steam.start()

/obj/effect/dummy/spell_jaunt
	name = "water"
	icon_state = "nothing"
	var/reappearing = 0
	var/movedelay = 0
	var/movespeed = 2
	invisibility = 60
	resistance_flags = LAVA_PROOF | FIRE_PROOF | UNACIDABLE | ACID_PROOF

/obj/effect/dummy/spell_jaunt/Destroy()
	// Eject contents if deleted somehow
	for(var/atom/movable/AM in src)
		AM.forceMove(get_turf(src))
	return ..()

/obj/effect/dummy/spell_jaunt/relaymove(mob/user, direction)
	if((movedelay > world.time) || reappearing || !direction)
		return
	var/turf/newLoc = get_step(src,direction)
	setDir(direction)
	movedelay = world.time + movespeed
	if(can_move(newLoc))
		forceMove(newLoc)
		return
	if(!IS_DIR_DIAGONAL(direction))
		to_chat(user, SPAN_WARNING("Something is blocking the way!"))
		return
	var/turf/possible_1 = get_step(src, turn(direction, 45))
	var/turf/possible_2 = get_step(src, turn(direction, -45))
	if(can_move(possible_1))
		forceMove(possible_1)
		return
	if(can_move(possible_2))
		forceMove(possible_2)
		return
	to_chat(user, SPAN_WARNING("Something is blocking the way!"))

/obj/effect/dummy/spell_jaunt/proc/can_move(turf/T)
	return TRUE

/obj/effect/dummy/spell_jaunt/ex_act(blah)
	return

/obj/effect/dummy/spell_jaunt/bullet_act(blah)
	return

/obj/effect/dummy/spell_jaunt/blood_pool
	name = "sanguine pool"
	desc = "a pool of living blood."
	movespeed = 1.5

/obj/effect/dummy/spell_jaunt/blood_pool/relaymove(mob/user, direction)
	..()
	new /obj/effect/decal/cleanable/blood(loc)


/obj/effect/dummy/spell_jaunt/blood_pool/can_move(turf/T)
	if(isspaceturf(T) || T.density)
		return FALSE
	return TRUE

/obj/effect/dummy/spell_jaunt/wraith

/obj/effect/dummy/spell_jaunt/wraith/can_move(turf/T)
	if(!issimulatedturf(T))
		return TRUE

	var/turf/simulated/turf_to_move = T
	if(turf_to_move.flags & BLESSED_TILE)
		return FALSE
	return TRUE