cyberpresidentvanellope/Paradise
1
0
Fork 0
mirror of https://github.com/ParadiseSS13/Paradise.git synced 2026-08-24 04:27:35 +01:00
Code Issues Packages Projects Releases Wiki Activity
Files
dev-docs-readme
Paradise/code/modules/power/engines/tesla/energy_ball.dm
T
DaylightGitHubDGamerL
 74ad8c1463 Gives singularity engines a slight nudge towards the station (#25420) 
* Makes the singolo target

* Spelling

* Update code/modules/power/engines/singularity/singularity.dm

Co-authored-by: DGamerL <108773801+DGamerL@users.noreply.github.com>
Signed-off-by: Daylight <18598676+Daylight2@users.noreply.github.com>

* Fancy comments

---------

Signed-off-by: Daylight <18598676+Daylight2@users.noreply.github.com>
Co-authored-by: DGamerL <108773801+DGamerL@users.noreply.github.com>
2024-05-17 11:44:17 +00:00

476 lines
15 KiB
Plaintext
Raw Permalink Blame History

#define TESLA_DEFAULT_POWER 1738260
#define TESLA_MINI_POWER 869130
//Zap constants, speeds up targeting
#define COIL (ROD + 1)
#define ROD (RIDE + 1)
#define RIDE (LIVING + 1)
#define LIVING (APC + 1)
#define APC (MACHINERY + 1)
#define MACHINERY (BLOB + 1)
#define BLOB (STRUCTURE + 1)
#define STRUCTURE (1)
/// The Tesla engine
/obj/singularity/energy_ball
name = "energy ball"
desc = "An energy ball."
icon = 'icons/obj/tesla_engine/energy_ball.dmi'
icon_state = "energy_ball"
pixel_x = -32
pixel_y = -32
current_size = STAGE_TWO
move_self = TRUE
grav_pull = 0
density = TRUE
energy = 0
dissipate = FALSE
dissipate_delay = 5
dissipate_strength = 1
warps_projectiles = FALSE
var/list/orbiting_balls = list()
var/miniball = FALSE
var/produced_power
var/energy_to_raise = 32
var/energy_to_lower = -20
var/obj/singularity/energy_ball/parent_energy_ball
/// Turf where the tesla will move to if it's loose
var/turf/target_turf
/// Direction we have to go to go towards the target turf
var/movement_dir
/// Variable that defines whether it has a field generator close enough
var/has_close_field = FALSE
/// How many tiles do we move per movement step?
var/steps_per_move = 8
/obj/singularity/energy_ball/Initialize(mapload, starting_energy = 50, is_miniball = FALSE)
miniball = is_miniball
RegisterSignal(src, COMSIG_ATOM_ORBIT_BEGIN, PROC_REF(on_start_orbit))
RegisterSignal(src, COMSIG_ATOM_ORBIT_STOP, PROC_REF(on_stop_orbit))
RegisterSignal(parent_energy_ball, COMSIG_PARENT_QDELETING, PROC_REF(on_parent_delete))
. = ..()
if(!is_miniball)
set_light(10, 7, "#5e5edd")
else
// This gets added by the parent call
GLOB.poi_list -= src
all_possible_areas = findUnrestrictedEventArea()
/obj/singularity/energy_ball/ex_act(severity, target)
return
/obj/singularity/energy_ball/consume(severity, target)
return
/obj/singularity/energy_ball/Destroy()
UnregisterSignal(src, COMSIG_ATOM_ORBIT_BEGIN)
UnregisterSignal(src, COMSIG_ATOM_ORBIT_STOP)
if(parent_energy_ball && !QDELETED(parent_energy_ball))
UnregisterSignal(parent_energy_ball, COMSIG_PARENT_QDELETING)
parent_energy_ball.on_stop_orbit(src, TRUE)
parent_energy_ball.orbiting_balls -= src
parent_energy_ball = null
if(!miniball)
GLOB.poi_list -= src
QDEL_LIST_CONTENTS(orbiting_balls)
return ..()
/obj/singularity/energy_ball/admin_investigate_setup()
if(miniball)
return //don't annnounce miniballs
..()
/obj/singularity/energy_ball/process()
if(!parent_energy_ball)
handle_energy()
playsound(loc, 'sound/magic/lightningbolt.ogg', 100, TRUE, extrarange = 30, channel = CHANNEL_ENGINE)
pixel_x = 0
pixel_y = 0
var/list/shocking_info = list()
tesla_zap(src, 3, TESLA_DEFAULT_POWER, shocked_targets = shocking_info)
pixel_x = -32
pixel_y = -32
for(var/ball in orbiting_balls)
var/range = rand(1, clamp(length(orbiting_balls), 2, 3))
//We zap off the main ball instead of ourselves to make things looks proper
tesla_zap(src, range, TESLA_MINI_POWER / 7 * range)
move_the_basket_ball()
else
energy = 0 // ensure we dont have miniballs of miniballs //But it'll be cool broooooooooooooooo
/obj/singularity/energy_ball/examine(mob/user)
. = ..()
if(length(orbiting_balls))
. += "There are [length(orbiting_balls)] mini-balls orbiting it."
/obj/singularity/energy_ball/proc/move_the_basket_ball()
has_close_field = FALSE
for(var/i in 1 to length(GLOB.field_generator_fields))
var/temp_distance = get_dist(src, GLOB.field_generator_fields[i])
if(temp_distance <= 15)
has_close_field = TRUE
break
if(has_close_field)
var/turf/T = get_step(src, pick(GLOB.alldirs))
if(can_move(T))
forceMove(T)
for(var/mob/living/carbon/C in loc)
dust_mobs(C)
return
if(!target_turf || loc == target_turf)
find_the_basket()
return
var/turf/move_target = next_move_target()
movement_beam(move_target, 1.5 SECONDS)
sleep(0.5 SECONDS)
// MORE POWER
movement_beam(move_target, 1 SECONDS)
sleep(0.5 SECONDS)
walk_towards(src, move_target, 0, 10)
/datum/move_with_corner
var/turf/start
var/turf/end
var/turf/corner
var/pre_corner_x_unit
var/pre_corner_y_unit
var/pre_corner_dist
var/post_corner_x_unit
var/post_corner_y_unit
var/post_corner_dist
/datum/move_with_corner/New(atom/start_in, atom/end_in)
start = start_in
end = end_in
pre_corner_x_unit = (end.x > start.x) ? 1 : -1
pre_corner_y_unit = (end.y > start.y) ? 1 : -1
if(start.x == end.x)
// Moving along y
corner = end
pre_corner_x_unit = 0
pre_corner_dist = abs(start.y - end.y)
return
if(start.y == end.y)
// Moving along x
corner = end
pre_corner_y_unit = 0
pre_corner_dist = abs(start.x - end.x)
return
pre_corner_dist = min(abs(start.x-end.x), abs(start.y-end.y))
corner = locate(start.x + pre_corner_x_unit * pre_corner_dist, start.y + pre_corner_y_unit * pre_corner_dist, start.z)
if(start.x + pre_corner_x_unit * pre_corner_dist == end.x)
// x finished first, move along y
post_corner_x_unit = 0
post_corner_dist = abs(start.y - end.y) - pre_corner_dist
else
// y finished first, move along x
post_corner_y_unit = 0
post_corner_dist = abs(start.x - end.x) - pre_corner_dist
/datum/move_with_corner/proc/get_early_end(dist)
if(dist <= pre_corner_dist)
return locate(start.x + pre_corner_x_unit * dist, start.y + pre_corner_y_unit * dist, start.z)
else if(dist == pre_corner_dist)
return corner
else if(dist >= pre_corner_dist + post_corner_dist)
return end
var/remaining_dist = dist - pre_corner_dist
return locate(corner.x + remaining_dist * post_corner_x_unit, corner.y + remaining_dist * post_corner_y_unit, corner.z)
/obj/singularity/energy_ball/proc/next_move_target()
var/datum/move_with_corner/path = new(loc, target_turf)
return path.get_early_end(steps_per_move)
/obj/singularity/energy_ball/proc/movement_beam(turf/move_target, duration)
var/datum/move_with_corner/path = new(loc, move_target)
loc.Beam(path.corner, "lightning[rand(1, 12)]", 'icons/effects/effects.dmi', duration, INFINITY)
if(path.corner != move_target)
path.corner.Beam(move_target, "lightning[rand(1, 12)]", 'icons/effects/effects.dmi', duration, INFINITY)
/obj/singularity/energy_ball/proc/find_the_basket()
var/area/where_to_move = pick(all_possible_areas) // Grabs a random area that isn't restricted
var/turf/target_area_turfs = get_area_turfs(where_to_move) // Grabs the turfs from said area
target_turf = pick(target_area_turfs) // Grabs a single turf from the entire list
/obj/singularity/energy_ball/Move(target, direction)
// Energy balls move through everything, make it a forceMove.
if(miniball)
return ..()
forceMove(target, direction)
return TRUE
// This handles mobs crossing us. For us crossing mobs, see /mob/living/Crossed.
// (It also dusts them.)
/obj/singularity/energy_ball/Crossed(atom/thing)
if(isliving(thing))
var/mob/victim = thing
victim.dust()
/obj/singularity/energy_ball/proc/handle_energy()
if(energy >= energy_to_raise)
energy_to_lower = energy_to_raise - 20
energy_to_raise = energy_to_raise * 1.25
playsound(src.loc, 'sound/magic/lightning_chargeup.ogg', 100, TRUE, extrarange = 30, channel = CHANNEL_ENGINE)
addtimer(CALLBACK(src, PROC_REF(new_mini_ball)), 100)
else if(energy < energy_to_lower && length(orbiting_balls))
energy_to_raise = energy_to_raise / 1.25
energy_to_lower = (energy_to_raise / 1.25) - 20
var/Orchiectomy_target = pick(orbiting_balls)
qdel(Orchiectomy_target)
else if(length(orbiting_balls))
do_dissipate() //sing code has a much better system.
/obj/singularity/energy_ball/proc/new_mini_ball()
if(!loc)
return
var/obj/singularity/energy_ball/EB = new(loc, 0, TRUE)
EB.transform *= pick(0.3, 0.4, 0.5, 0.6, 0.7)
var/icon/I = icon(icon,icon_state,dir)
var/orbitsize = (I.Width() + I.Height()) * pick(0.4, 0.5, 0.6, 0.7, 0.8)
orbitsize -= (orbitsize / world.icon_size) * (world.icon_size * 0.25)
EB.parent_energy_ball = src
EB.orbit(src, orbitsize, pick(FALSE, TRUE), rand(10, 25), pick(3, 4, 5, 6, 36), orbit_layer = EB.layer)
/obj/singularity/energy_ball/Bump(atom/A)
dust_mobs(A)
/obj/singularity/energy_ball/Bumped(atom/movable/AM)
dust_mobs(AM)
/obj/singularity/energy_ball/attack_tk(mob/user)
if(!iscarbon(user))
return
var/mob/living/carbon/C = user
investigate_log("has consumed the brain of [key_name(C)] after being touched with telekinesis", "singulo")
C.visible_message("<span class='danger'>[C] suddenly slumps over.</span>", \
"<span class='userdanger'>As you mentally focus on the energy ball you feel the contents of your skull become overcharged. That was shockingly stupid.</span>")
var/obj/item/organ/internal/brain/B = C.get_int_organ(/obj/item/organ/internal/brain)
C.ghostize(0)
if(B)
B.remove(C)
qdel(B)
/// When we get orbited, add the orbiter to our tracked balls
/obj/singularity/energy_ball/proc/on_start_orbit(atom/movable/this, atom/orbiter)
SIGNAL_HANDLER // COMSIG_ATOM_ORBIT_BEGIN
if(istype(orbiter, /obj/singularity/energy_ball))
var/obj/singularity/energy_ball/ball = orbiter
orbiting_balls += ball
dissipate_strength = length(orbiting_balls)
/obj/singularity/energy_ball/proc/on_stop_orbit(atom/movable/this, atom/orbiter)
SIGNAL_HANDLER // COMSIG_ATOM_ORBIT_END
if(istype(orbiter, /obj/singularity/energy_ball))
var/obj/singularity/energy_ball/ball = orbiter
orbiting_balls -= ball
dissipate_strength = length(orbiting_balls)
ball.parent_energy_ball = null
if(!loc || !QDELETED(ball))
qdel(ball)
/obj/singularity/energy_ball/proc/on_parent_delete(obj/singularity/energy_ball/target)
SIGNAL_HANDLER
parent_energy_ball = null
/obj/singularity/energy_ball/proc/dust_mobs(atom/A)
if(isliving(A))
var/mob/living/L = A
if(L.incorporeal_move || L.status_flags & GODMODE)
return
if(!iscarbon(A))
return
for(var/obj/machinery/power/grounding_rod/GR in orange(src, 2))
if(GR.anchored)
return
var/mob/living/carbon/C = A
C.dust()
/proc/tesla_zap(atom/source, zap_range = 3, power, zap_flags = ZAP_DEFAULT_FLAGS, list/shocked_targets = list())
if(QDELETED(source))
return
if(!(zap_flags & ZAP_ALLOW_DUPLICATES))
LAZYSET(shocked_targets, source, TRUE) //I don't want no null refs in my list yeah?
. = source.dir
if(power < 1000)
return
/*
THIS IS SO FUCKING UGLY AND I HATE IT, but I can't make it nice without making it slower, check*N rather then n. So we're stuck with it.
*/
var/atom/closest_atom
var/closest_type = 0
var/static/things_to_shock = typecacheof(list(/obj/machinery, /mob/living, /obj/structure, /obj/vehicle))
var/static/blacklisted_tesla_types = typecacheof(list(/obj/machinery/atmospherics,
/obj/machinery/atmospherics/portable,
/obj/machinery/power/emitter,
/obj/machinery/field/generator,
/mob/living/simple_animal/slime,
/obj/machinery/particle_accelerator/control_box,
/obj/structure/particle_accelerator/fuel_chamber,
/obj/structure/particle_accelerator/particle_emitter/center,
/obj/structure/particle_accelerator/particle_emitter/left,
/obj/structure/particle_accelerator/particle_emitter/right,
/obj/structure/particle_accelerator/power_box,
/obj/structure/particle_accelerator/end_cap,
/obj/machinery/field/containment,
/obj/structure/disposalpipe,
/obj/structure/disposaloutlet,
/obj/machinery/disposal/deliveryChute,
/obj/machinery/camera,
/obj/structure/sign,
/obj/structure/lattice,
/obj/structure/grille,
/obj/structure/cable,
/obj/machinery/the_singularitygen/tesla,
/obj/machinery/constructable_frame/machine_frame))
//Ok so we are making an assumption here. We assume that view() still calculates from the center out.
//This means that if we find an object we can assume it is the closest one of its type. This is somewhat of a speed increase.
//This also means we have no need to track distance, as the doview() proc does it all for us.
//Darkness fucks oview up hard. I've tried dview() but it doesn't seem to work
//I hate existance // Range() lets us see through walls, please direct all screaming players to me - DGL
for(var/a in typecache_filter_multi_list_exclusion(range(zap_range + 2, source), things_to_shock, blacklisted_tesla_types))
var/atom/A = a
if(!(zap_flags & ZAP_ALLOW_DUPLICATES) && LAZYACCESS(shocked_targets, A))
continue
if(closest_type >= COIL)
continue //no need checking these other things
else if(istype(A, /obj/machinery/power/tesla_coil))
var/obj/machinery/power/tesla_coil/C = A
if(!C.being_shocked)
closest_type = COIL
closest_atom = C
else if(closest_type >= ROD)
continue
else if(istype(A, /obj/machinery/power/grounding_rod))
closest_type = ROD
closest_atom = A
else if(closest_type >= RIDE)
continue
else if(istype(A, /obj/vehicle))
var/obj/vehicle/R = A
if(R.can_buckle && !R.being_shocked)
closest_type = RIDE
closest_atom = A
else if(closest_type >= LIVING)
continue
else if(isliving(A))
var/mob/living/L = A
if(L.stat != DEAD && !(HAS_TRAIT(L, TRAIT_TESLA_SHOCKIMMUNE)) && !(L.flags_2 & SHOCKED_2))
closest_type = LIVING
closest_atom = A
else if(closest_type >= APC)
continue
else if(istype(A, /obj/machinery/power/apc))
closest_type = APC
closest_atom = A
else if(closest_type >= MACHINERY)
continue
else if(ismachinery(A))
var/obj/machinery/M = A
if(!M.being_shocked)
closest_type = MACHINERY
closest_atom = A
else if(closest_type >= BLOB)
continue
else if(istype(A, /obj/structure/blob))
var/obj/structure/blob/B = A
if(!B.being_shocked)
closest_type = BLOB
closest_atom = A
else if(closest_type >= STRUCTURE)
continue
else if(isstructure(A))
var/obj/structure/S = A
if(!S.being_shocked)
closest_type = STRUCTURE
closest_atom = A
//Alright, we've done our loop, now lets see if was anything interesting in range
if(!closest_atom)
return
//common stuff
source.Beam(closest_atom, icon_state = "lightning[rand(1, 12)]", icon = 'icons/effects/effects.dmi', time = 5, maxdistance = INFINITY)
var/zapdir = get_dir(source, closest_atom)
if(zapdir)
. = zapdir
var/next_range = 2
if(closest_type == COIL)
next_range = 5
if(closest_type == LIVING)
var/mob/living/closest_mob = closest_atom
closest_mob.set_shocked()
addtimer(CALLBACK(closest_mob, TYPE_PROC_REF(/mob/living, reset_shocked)), 10)
var/shock_damage = (zap_flags & ZAP_MOB_DAMAGE) ? (min(round(power / 600), 90) + rand(-5, 5)) : 0
closest_mob.electrocute_act(shock_damage, source, 1, SHOCK_TESLA | ((zap_flags & ZAP_MOB_STUN) ? NONE : SHOCK_NOSTUN))
if(issilicon(closest_mob))
var/mob/living/silicon/S = closest_mob
if((zap_flags & ZAP_MOB_STUN) && (zap_flags & ZAP_MOB_DAMAGE))
S.emp_act(EMP_LIGHT)
next_range = 7 // metallic folks bounce it further
else
next_range = 5
power /= 1.5
else
power = closest_atom.zap_act(power, zap_flags)
if(prob(20)) //I know I know
var/list/shocked_copy = shocked_targets.Copy()
tesla_zap(closest_atom, next_range, power * 0.5, zap_flags, shocked_copy) //Normally I'd copy here so grounding rods work properly, but it fucks with movement
tesla_zap(closest_atom, next_range, power * 0.5, zap_flags, shocked_targets)
shocked_targets += shocked_copy
else
tesla_zap(closest_atom, next_range, power, zap_flags)
#undef COIL
#undef ROD
#undef RIDE
#undef LIVING
#undef APC
#undef MACHINERY
#undef BLOB
#undef STRUCTURE
#undef TESLA_DEFAULT_POWER
#undef TESLA_MINI_POWER
Reference in New Issue View Git Blame Copy Permalink