23 lines
726 B
Plaintext
23 lines
726 B
Plaintext
/proc/empulse(turf/epicenter, power, log=0)
|
|
if(!epicenter)
|
|
return
|
|
|
|
if(!isturf(epicenter))
|
|
epicenter = get_turf(epicenter.loc)
|
|
|
|
var/max_distance = round((power/7)^0.7)
|
|
|
|
if(log)
|
|
message_admins("EMP with power [power], max distance [max_distance] in area [epicenter.loc.name] ")
|
|
log_game("EMP with power [power], max distance [max_distance] in area [epicenter.loc.name] ")
|
|
|
|
if(power > 100)
|
|
new /obj/effect/temp_visual/emp/pulse(epicenter)
|
|
|
|
for(var/A in spiral_range(light_range, epicenter))
|
|
var/atom/T = A
|
|
var/distance = get_dist(epicenter, T)
|
|
var/severity = min(max((max_distance / distance^0.3) * (100/max_distance), 1),100) //if it goes below 1 or above 100 stuff gets bad
|
|
T.emp_act(severity)
|
|
return 1
|