cyberpresidentvanellope/GS13
1
0
Fork 0
mirror of https://github.com/KabKebab/GS13.git synced 2026-07-09 15:05:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

Crystalline Tendril (wip)

Browse Source
This commit is contained in:
Archie
2021-06-09 00:40:31 -03:00
parent 553c9b6941
commit d31ae1f352
1 changed files with 112 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
hyperstation/code/modules/events/crystalline_reentry.dm
+112 -5
View File
@@ -15,7 +15,7 @@
special_target = get_turf(usr)
/datum/round_event/crystalline_reentry
announceWhen = 5
announceWhen = 0
/datum/round_event/crystalline_reentry/announce(fake)
priority_announce("A crystalline asteroid has suffered a violent atmospheric entry. Brace for possible impact.", "General Alert")
@@ -45,8 +45,9 @@
var/destination
var/notify = TRUE
var/atom/special_target
var/dropamt = 3
var/dropamt = 5
var/droptype = list(/obj/item/stack/ore/bluespace_crystal)
var/meteorsound = 'sound/effects/meteorimpact.ogg'
/obj/effect/crystalline_reentry/New(atom/start, atom/end, aimed_at)
..()
@@ -106,6 +107,7 @@
/obj/effect/crystalline_reentry/Bump(atom/clong)
asteroidhealth = asteroidhealth - rand(7,14)
if(prob(10))
playsound(src, 'sound/effects/bang.ogg', 50, 1)
audible_message("<span class='danger'>You hear a BONK!</span>")
@@ -133,15 +135,26 @@
qdel(src)
qdel(other)
if(asteroidhealth <= 0)
collision_effect()
atmos_spawn_air("water_vapor=1000;TEMP=0") //brr
make_debris()
explosion(src.loc, 1, 2, 3, 3, 1, 0, 0, 0, 0)
switch(rand(1,100))
if(1 to 20)
var/obj/structure/spawner/crystalline/M = new(src.loc)
visible_message("<span class='danger'>A [M] emerges from the asteroid's rubble!</span>")
if(prob(50))
priority_announce("Unknown organic entities have been detected in the vincinity of [station_name()]. General caution is advised.", "General Alert")
if(21 to 99)
visible_message("The asteroid collapses into nothing...")
if(100)
var/mob/living/simple_animal/bot/hugbot/M = new(src.loc)
visible_message("<span class='danger'>A [M] emerges from the asteroid's rubble! Wait... What?</span>")
qdel(src)
else
atmos_spawn_air("water_vapor=100;TEMP=0") //brr
atmos_spawn_air("water_vapor=75;TEMP=0") //brr
/obj/effect/crystalline_reentry/proc/penetrate(mob/living/L)
L.visible_message("<span class='danger'>[L] is smashed by an crystalline asteroid!</span>" , "<span class='userdanger'>The crystalline asteroid smashes you!</span>" , "<span class ='danger'>You hear a BONK!</span>")
L.visible_message("<span class='danger'>[L] is smashed by a crystalline asteroid!</span>" , "<span class='userdanger'>The crystalline asteroid smashes you!</span>" , "<span class ='danger'>You hear a BONK!</span>")
if(ishuman(L))
var/mob/living/carbon/human/H = L
H.adjustBruteLoss(160)
@@ -150,3 +163,97 @@
for(var/throws = dropamt, throws > 0, throws--)
var/thing_to_spawn = pick(droptype)
new thing_to_spawn(get_turf(src))
/obj/effect/crystalline_reentry/proc/collision_effect()
var/sound/meteor_sound = sound(meteorsound)
var/random_frequency = get_rand_frequency()
explosion(src.loc, 0, 0, 5, 3, 1, 0, 0, 0, 0)
for(var/mob/living/M in range(9, src.loc))
shake_camera(M, 3, 7)
M.playsound_local(src.loc, null, 50, 1, random_frequency, 10, S = meteor_sound)
/mob/living/simple_animal/hostile/asteroid/basilisk/tendril
fromtendril = TRUE
//Crystalline Tendrils, which spawn crystalline monsters
/obj/structure/spawner/crystalline
name = "crystalline tendril"
desc = "A vile tendril of corruption, originating from gods know where. Terrible monsters are pouring out of it."
icon = 'icons/mob/nest.dmi'
icon_state = "tendril"
faction = list("mining")
max_mobs = 3
max_integrity = 250
mob_types = list(/mob/living/simple_animal/hostile/asteroid/basilisk/tendril)
move_resist=INFINITY // just killing it tears a massive hole in the ground, let's not move it
anchored = TRUE
resistance_flags = FIRE_PROOF | LAVA_PROOF | INDESTRUCTIBLE
var/gps = null
var/obj/effect/light_emitter/tendril/emitted_light
/obj/structure/spawner/crystalline/Initialize()
. = ..()
emitted_light = new(loc)
for(var/F in RANGE_TURFS(1, src))
if(iswallturf(F))
var/turf/closed/M = F
M.ScrapeAway(null, CHANGETURF_IGNORE_AIR)
if(iscloudturf(F))
var/turf/open/chasm/cloud/M = F
M.TerraformTurf(/turf/open/floor/plating/asteroid/layenia, /turf/open/floor/plating/asteroid/layenia)
gps = new /obj/item/gps/internal(src)
addtimer(CALLBACK(src, .proc/delayedInitialize), 2 SECONDS)
/obj/structure/spawner/crystalline/deconstruct(disassembled)
new /obj/effect/cloud_collapse(loc)
new /obj/structure/closet/crate/necropolis/tendril(loc)
return ..()
/obj/structure/spawner/crystalline/Destroy()
QDEL_NULL(emitted_light)
QDEL_NULL(gps)
return ..()
/obj/structure/spawner/crystalline/proc/delayedInitialize()
//Why is this needed? Simple, because apparently explosion is so slow that it triggers after the spawner spawns and kills it on the spot. This just makes it killable.
resistance_flags = FIRE_PROOF | LAVA_PROOF
max_integrity = 250
obj_integrity = max_integrity
/obj/effect/light_emitter/crystalline
set_luminosity = 4
set_cap = 2.5
light_color = LIGHT_COLOR_LIGHT_CYAN
/obj/effect/cloud_collapse
name = "collapsing crystalline tendril"
desc = "Get clear!"
layer = TABLE_LAYER
icon = 'icons/mob/nest.dmi'
icon_state = "tendril"
anchored = TRUE
density = TRUE
var/obj/effect/light_emitter/crystalline/emitted_light
/obj/effect/cloud_collapse/Initialize()
. = ..()
emitted_light = new(loc)
visible_message("<span class='boldannounce'>The tendril writhes in fury as the earth around it begins to crack and break apart! Get back!</span>")
visible_message("<span class='warning'>Something falls free of the tendril!</span>")
playsound(loc,'sound/effects/tendril_destroyed.ogg', 200, 0, 50, 1, 1)
addtimer(CALLBACK(src, .proc/collapse), 50)
/obj/effect/cloud_collapse/Destroy()
QDEL_NULL(emitted_light)
return ..()
/obj/effect/cloud_collapse/proc/collapse()
for(var/mob/M in range(7,src))
shake_camera(M, 15, 1)
playsound(get_turf(src),'sound/effects/explosionfar.ogg', 200, 1)
visible_message("<span class='boldannounce'>The tendril falls into the clouds below!</span>")
for(var/turf/T in range(1,src))
if(!T.density)
T.TerraformTurf(/turf/open/chasm/cloud, /turf/open/chasm/cloud)
qdel(src)