mirror of
https://github.com/yogstation13/Yogstation.git
synced 2025-02-26 09:04:50 +00:00
138 lines
5.1 KiB
Plaintext
138 lines
5.1 KiB
Plaintext
GLOBAL_LIST_EMPTY(doppler_arrays)
|
|
|
|
/obj/machinery/doppler_array
|
|
name = "tachyon-doppler array"
|
|
desc = "A highly precise directional sensor array which measures the release of quants from decaying tachyons. The doppler shifting of the mirror-image formed by these quants can reveal the size, location and temporal affects of energetic disturbances within a large radius ahead of the array.\n"
|
|
icon = 'icons/obj/machines/research.dmi'
|
|
icon_state = "tdoppler"
|
|
density = TRUE
|
|
var/cooldown = 10
|
|
var/next_announce = 0
|
|
var/integrated = FALSE
|
|
var/max_dist = 150
|
|
verb_say = "states coldly"
|
|
|
|
/obj/machinery/doppler_array/Initialize()
|
|
. = ..()
|
|
RegisterSignal(SSdcs, COMSIG_GLOB_EXPLOSION, .proc/sense_explosion)
|
|
|
|
/obj/machinery/doppler_array/ComponentInitialize()
|
|
AddComponent(/datum/component/simple_rotation,ROTATION_ALTCLICK | ROTATION_CLOCKWISE,null,null,CALLBACK(src,.proc/rot_message))
|
|
|
|
/obj/machinery/doppler_array/examine(mob/user)
|
|
..()
|
|
to_chat(user, span_notice("Its dish is facing to the [dir2text(dir)]."))
|
|
|
|
/obj/machinery/doppler_array/process()
|
|
return PROCESS_KILL
|
|
|
|
/obj/machinery/doppler_array/attackby(obj/item/I, mob/user, params)
|
|
if(I.tool_behaviour == TOOL_WRENCH)
|
|
if(!anchored && !isinspace())
|
|
anchored = TRUE
|
|
power_change()
|
|
to_chat(user, span_notice("You fasten [src]."))
|
|
else if(anchored)
|
|
anchored = FALSE
|
|
power_change()
|
|
to_chat(user, span_notice("You unfasten [src]."))
|
|
I.play_tool_sound(src)
|
|
else
|
|
return ..()
|
|
|
|
/obj/machinery/doppler_array/proc/rot_message(mob/user)
|
|
to_chat(user, span_notice("You adjust [src]'s dish to face to the [dir2text(dir)]."))
|
|
playsound(src, 'sound/items/screwdriver2.ogg', 50, 1)
|
|
|
|
/obj/machinery/doppler_array/proc/sense_explosion(datum/source, turf/epicenter, devastation_range, heavy_impact_range, light_impact_range,
|
|
took, orig_dev_range, orig_heavy_range, orig_light_range)
|
|
if(stat & NOPOWER)
|
|
return FALSE
|
|
var/turf/zone = get_turf(src)
|
|
if(zone.z != epicenter.z)
|
|
return FALSE
|
|
|
|
if(next_announce > world.time)
|
|
return FALSE
|
|
next_announce = world.time + cooldown
|
|
|
|
var/distance = get_dist(epicenter, zone)
|
|
var/direct = get_dir(zone, epicenter)
|
|
|
|
if(distance > max_dist)
|
|
return FALSE
|
|
if(!(direct & dir))
|
|
return FALSE
|
|
|
|
|
|
var/list/messages = list("Explosive disturbance detected.",
|
|
"Epicenter at: grid ([epicenter.x],[epicenter.y]). Temporal displacement of tachyons: [took] seconds.", \
|
|
"Factual: Epicenter radius: [devastation_range]. Outer radius: [heavy_impact_range]. Shockwave radius: [light_impact_range].")
|
|
|
|
// If the bomb was capped, say its theoretical size.
|
|
if(devastation_range < orig_dev_range || heavy_impact_range < orig_heavy_range || light_impact_range < orig_light_range)
|
|
messages += "Theoretical: Epicenter radius: [orig_dev_range]. Outer radius: [orig_heavy_range]. Shockwave radius: [orig_light_range]."
|
|
|
|
for(var/message in messages)
|
|
say(message)
|
|
return TRUE
|
|
|
|
/obj/machinery/doppler_array/powered()
|
|
if(!anchored)
|
|
return FALSE
|
|
return ..()
|
|
|
|
/obj/machinery/doppler_array/update_icon()
|
|
if(stat & BROKEN)
|
|
icon_state = "[initial(icon_state)]-broken"
|
|
else if(powered())
|
|
icon_state = initial(icon_state)
|
|
else
|
|
icon_state = "[initial(icon_state)]-off"
|
|
|
|
/obj/machinery/doppler_array/research
|
|
name = "tachyon-doppler research array"
|
|
desc = "A specialized tachyon-doppler bomb detection array that uses the results of the highest yield of explosions for research."
|
|
var/datum/techweb/linked_techweb
|
|
|
|
|
|
/obj/machinery/doppler_array/research/sense_explosion(datum/source, turf/epicenter, dev, heavy, light, time, orig_dev, orig_heavy, orig_light) //probably needs a way to ignore admin explosives later on
|
|
. = ..()
|
|
if(!.)
|
|
return
|
|
if(!istype(linked_techweb))
|
|
say("Warning: No linked research system!")
|
|
return
|
|
|
|
var/point_gain = 0
|
|
|
|
/*****The Point Calculator*****/
|
|
|
|
if(orig_light < 5)
|
|
say("Explosion not large enough for research calculations.")
|
|
return
|
|
else if(orig_light < BOMB_TARGET_SIZE) // we want to give fewer points if below the target; this curve does that
|
|
point_gain = (BOMB_TARGET_POINTS * orig_light ** BOMB_SUB_TARGET_EXPONENT) / (BOMB_TARGET_SIZE**BOMB_SUB_TARGET_EXPONENT)
|
|
else // once we're at the target, switch to a hyperbolic function so we can't go too far above it, but bigger bombs always get more points
|
|
point_gain = (BOMB_TARGET_POINTS * 2 * orig_light) / (orig_light + BOMB_TARGET_SIZE)
|
|
|
|
/*****The Point Capper*****/
|
|
if(point_gain > linked_techweb.largest_bomb_value)
|
|
var/old_tech_largest_bomb_value = linked_techweb.largest_bomb_value //held so we can pull old before we do math
|
|
linked_techweb.largest_bomb_value = point_gain
|
|
point_gain -= old_tech_largest_bomb_value
|
|
var/datum/bank_account/D = SSeconomy.get_dep_account(ACCOUNT_CAR)
|
|
if(D)
|
|
D.adjust_money(point_gain)
|
|
linked_techweb.add_point_type(TECHWEB_POINT_TYPE_DEFAULT, point_gain)
|
|
say("Explosion details and mixture analyzed and sold to the highest bidder for [point_gain], with a reward of [point_gain] points.")
|
|
|
|
else //you've made smaller bombs
|
|
say("Data already captured. Aborting.")
|
|
return
|
|
|
|
|
|
/obj/machinery/doppler_array/research/science/Initialize()
|
|
. = ..()
|
|
linked_techweb = SSresearch.science_tech
|