mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2025-12-14 20:23:26 +00:00
c6a445e73d
- Added two max() things to lighting code. This should stop the negative luminosity error, which happens when large explosions happen, resulting in a large blob of permanently black space. Space will be black now, but when you go through it with a flashlight, it will actually be illuminated properly. git-svn-id: http://tgstation13.googlecode.com/svn/trunk@4232 316c924e-a436-60f5-8080-3fe189b3f50e
128 lines
3.5 KiB
Plaintext
128 lines
3.5 KiB
Plaintext
/* - uncomment this to test it out!
|
|
/mob/verb/kaboom()
|
|
var/power = input(src, "power?", "power?") as num
|
|
var/turf/T = get_turf(src)
|
|
explosion_rec(T, power)
|
|
*/
|
|
|
|
/datum/explosion_turf
|
|
var/turf/turf //The turf which will get ex_act called on it
|
|
var/max_power //The largest amount of power the turf sustained
|
|
|
|
New()
|
|
..()
|
|
max_power = 0
|
|
|
|
proc/save_power_if_larger(power)
|
|
if(power > max_power)
|
|
max_power = power
|
|
return 1
|
|
return 0
|
|
|
|
var/list/datum/explosion_turf/explosion_turfs = list()
|
|
var/explosion_in_progress = 0
|
|
|
|
proc/get_explosion_turf(var/turf/T)
|
|
for( var/datum/explosion_turf/ET in explosion_turfs )
|
|
if( T == ET.turf )
|
|
return ET
|
|
var/datum/explosion_turf/ET = new()
|
|
ET.turf = T
|
|
explosion_turfs += ET
|
|
return ET
|
|
|
|
proc/explosion_rec(turf/epicenter, power)
|
|
|
|
var/loopbreak = 0
|
|
while(explosion_in_progress)
|
|
if(loopbreak >= 15) return
|
|
sleep(10)
|
|
loopbreak++
|
|
|
|
if(power <= 0) return
|
|
epicenter = get_turf(epicenter)
|
|
if(!epicenter) return
|
|
|
|
message_admins("Explosion with size ([power]) in area [epicenter.loc.name] ([epicenter.x],[epicenter.y],[epicenter.z])")
|
|
log_game("Explosion with size ([power]) in area [epicenter.loc.name] ")
|
|
|
|
playsound(epicenter, 'explosionfar.ogg', 100, 1, round(power*2,1) )
|
|
playsound(epicenter, "explosion", 100, 1, round(power,1) )
|
|
|
|
explosion_in_progress = 1
|
|
explosion_turfs = list()
|
|
var/datum/explosion_turf/ETE = get_explosion_turf()
|
|
ETE.turf = epicenter
|
|
ETE.max_power = power
|
|
|
|
//This steap handles the gathering of turfs which will be ex_act() -ed in the next step. It also ensures each turf gets the maximum possible amount of power dealt to it.
|
|
for(var/direction in cardinal)
|
|
var/turf/T = get_step(epicenter, direction)
|
|
T.explosion_spread(power - epicenter.explosion_resistance)
|
|
|
|
//This step applies the ex_act effects for the explosion, as planned in the previous step.
|
|
for( var/datum/explosion_turf/ET in explosion_turfs )
|
|
if(ET.max_power <= 0) continue
|
|
if(!ET.turf) continue
|
|
|
|
var/severity = 4 - round(max(min( 3, (ET.max_power / 3) ) ,1), 1)
|
|
var/x = ET.turf.x
|
|
var/y = ET.turf.y
|
|
var/z = ET.turf.z
|
|
ET.turf.ex_act(severity)
|
|
if(!ET.turf)
|
|
ET.turf = locate(x,y,z)
|
|
for( var/atom/A in ET.turf )
|
|
A.ex_act(severity)
|
|
|
|
explosion_in_progress = 0
|
|
|
|
/turf
|
|
var/explosion_resistance
|
|
|
|
/turf/space
|
|
explosion_resistance = 10
|
|
|
|
/turf/simulated/floor
|
|
explosion_resistance = 1
|
|
|
|
/turf/simulated/mineral
|
|
explosion_resistance = 2
|
|
|
|
/turf/simulated/shuttle/floor
|
|
explosion_resistance = 1
|
|
|
|
/turf/simulated/shuttle/floor4
|
|
explosion_resistance = 1
|
|
|
|
/turf/simulated/shuttle/plating
|
|
explosion_resistance = 1
|
|
|
|
/turf/simulated/shuttle/wall
|
|
explosion_resistance = 5
|
|
|
|
/turf/simulated/wall
|
|
explosion_resistance = 5
|
|
|
|
/turf/simulated/r_wall
|
|
explosion_resistance = 25
|
|
|
|
/turf/simulated/wall/r_wall
|
|
explosion_resistance = 25
|
|
|
|
//Code-wise, a safe value for power is something up to ~25 or ~30.. This does quite a bit of damage to the station.
|
|
/turf/proc/explosion_spread(power)
|
|
if(power <= 0)
|
|
return
|
|
|
|
var/datum/explosion_turf/ET = get_explosion_turf(src)
|
|
if(ET.max_power >= power)
|
|
return //The turf already sustained and spread a power greated than what we are dealing with. No point spreading again.
|
|
ET.max_power = power
|
|
|
|
for(var/direction in cardinal)
|
|
var/turf/T = get_step(src, direction)
|
|
T.explosion_spread(power - src.explosion_resistance)
|
|
|
|
/turf/unsimulated/explosion_spread(power)
|
|
return //So it doesn't get to the parent proc, which simulates explosions |