cyberpresidentvanellope/Paradise
1
0
Fork 0
mirror of https://github.com/ParadiseSS13/Paradise.git synced 2026-01-09 17:13:36 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
da4e51930fa4fd2befe1db6bf3c91dbf261b4a63
Paradise/code/modules/power/smes.dm
Migratingcocofruit 6f1a90c59d Documents and standardizes power and energy units. Fixes a pulse demon bug. (#26560) 
* Documents units of electrical power storage and production. Defines KJ. SMES properly convert watt ticks to KJ. Pulse demon bugfix

* extra documentation

* corrected pulse watt tick to joule conversion location on the pulse demon code

* oops

* Fixes nomenclature formats

* fixes some comments, consolidates power defines in the power defines file
2024-09-03 13:13:24 +00:00

468 lines
15 KiB
Plaintext
Raw Blame History

#define SMESMAXCHARGELEVEL 200000
#define SMESMAXOUTPUT 200000
/// Conversion ratio between a Watt-tick and SMES capacity units (should be the same as power cells)
#define SMESRATE GLOB.CELLRATE
/obj/machinery/power/smes
name = "power storage unit"
desc = "A high-capacity superconducting magnetic energy storage (SMES) unit."
icon_state = "smes"
density = TRUE
/// Maximum amount of energy the SMES can store (kilojoules)
var/capacity = 0.2e6
/// Current charge level
var/charge = 0
/// Set TRUE if SMES attempting to charge, FALSE if not
var/input_attempt = TRUE
/// Set TRUE if SMES is inputting, FALSE if not
var/inputting = TRUE
/// How much power the SMES will draw from the grid to recharge itself (Watts)
var/input_level = 50000
/// Maximum input level (Watts)
var/input_level_max = 200000
/// Charge amount available from input last tick
var/input_available = 0
// TRUE = attempting to output, FALSE = not attempting to output
var/output_attempt = TRUE
/// TRUE = actually outputting, FALSE = not outputting
var/outputting = TRUE
/// Amount of power the SMES attempts to output (Watts)
var/output_level = 50000
/// Cap on output_level (Watts)
var/output_level_max = 200000
/// Amount of power actually outputted. may be less than output_level if the powernet returns excess power
var/output_used = 0
/// The terminal that is connected to this SMES unit
var/obj/machinery/power/terminal/terminal
/obj/machinery/power/smes/Initialize(mapload)
. = ..()
component_parts = list()
component_parts += new /obj/item/circuitboard/smes(null)
component_parts += new /obj/item/stock_parts/cell/high(null)
component_parts += new /obj/item/stock_parts/cell/high(null)
component_parts += new /obj/item/stock_parts/cell/high(null)
component_parts += new /obj/item/stock_parts/cell/high(null)
component_parts += new /obj/item/stock_parts/cell/high(null)
component_parts += new /obj/item/stock_parts/capacitor(null)
component_parts += new /obj/item/stack/cable_coil(null, 5)
RefreshParts()
// When (re)built, try to connect to the powernet under us.
connect_to_network()
dir_loop:
for(var/direction in GLOB.cardinal)
var/turf/T = get_step(src, direction)
for(var/obj/machinery/power/terminal/term in T)
if(term && term.dir == turn(direction, 180))
terminal = term
break dir_loop
if(!terminal)
stat |= BROKEN
return
terminal.master = src
update_icon()
/obj/machinery/power/smes/upgraded/Initialize(mapload)
. = ..()
component_parts = list()
component_parts += new /obj/item/circuitboard/smes(null)
component_parts += new /obj/item/stock_parts/cell/hyper(null)
component_parts += new /obj/item/stock_parts/cell/hyper(null)
component_parts += new /obj/item/stock_parts/cell/hyper(null)
component_parts += new /obj/item/stock_parts/cell/hyper(null)
component_parts += new /obj/item/stock_parts/cell/hyper(null)
component_parts += new /obj/item/stock_parts/capacitor/super(null)
component_parts += new /obj/item/stack/cable_coil(null, 5)
RefreshParts()
/obj/machinery/power/smes/RefreshParts()
var/IO = 0
var/C = 0
for(var/obj/item/stock_parts/capacitor/CP in component_parts)
IO += CP.rating
input_level_max = 200000 * IO
output_level_max = 200000 * IO
for(var/obj/item/stock_parts/cell/PC in component_parts)
C += PC.maxcharge
capacity = C * 1e3 / 375
/obj/machinery/power/smes/update_overlays()
. = ..()
if(stat & BROKEN)
return
. += "smes-op[outputting ? TRUE : FALSE]"
. += "smes-oc[inputting ? TRUE : FALSE]"
var/charge_level = charge_display()
if(charge_level > 0)
. += "smes-og[charge_level]"
/obj/machinery/power/smes/attackby(obj/item/I, mob/user, params)
// Opening using screwdriver
if(default_deconstruction_screwdriver(user, "[initial(icon_state)]-o", initial(icon_state), I))
update_icon()
return
// Changing direction using wrench
if(default_change_direction_wrench(user, I))
terminal = null
var/turf/T = get_step(src, dir)
for(var/obj/machinery/power/terminal/term in T)
if(term && term.dir == turn(dir, 180))
terminal = term
terminal.master = src
to_chat(user, "<span class='notice'>Terminal found.</span>")
break
if(!terminal)
to_chat(user, "<span class='alert'>No power source found.</span>")
return
stat &= ~BROKEN
update_icon()
return
// Building and linking a terminal
if(istype(I, /obj/item/stack/cable_coil))
var/dir = get_dir(user, src)
if(dir & (dir - 1)) // Checks for diagonal interaction
return
if(terminal) // Checks for an existing terminal
to_chat(user, "<span class='alert'>This SMES already has a power terminal!</span>")
return
if(!panel_open) // Checks to see if the panel is closed
to_chat(user, "<span class='alert'>You must open the maintenance panel first!</span>")
return
var/turf/T = get_turf(user)
if(T.intact) // Checks to see if floor plating is present
to_chat(user, "<span class='alert'>You must first remove the floor plating!</span>")
return
var/obj/item/stack/cable_coil/C = I
if(C.get_amount() < 10)
to_chat(user, "<span class='alert'>You need more wires.</span>")
return
if(user.loc == loc)
to_chat(user, "<span class='warning'>You must not be on the same tile as [src].</span>")
return
// Direction the terminal will face to
var/temporary_direction = get_dir(user, src)
switch(temporary_direction)
if(NORTHEAST, SOUTHEAST)
temporary_direction = EAST
if(NORTHWEST, SOUTHWEST)
temporary_direction = WEST
var/turf/temporary_location = get_step(src, REVERSE_DIR(temporary_direction))
if(isspaceturf(temporary_location))
to_chat(user, "<span class='warning'>You can't build a terminal on space.</span>")
return
else if(istype(temporary_location))
if(temporary_location.intact)
to_chat(user, "<span class='warning'>You must remove the floor plating first.</span>")
return
to_chat(user, "<span class='notice'>You start adding cable to [src].</span>")
playsound(loc, C.usesound, 50, TRUE)
if(do_after(user, 5 SECONDS, target = src))
if(!terminal && panel_open)
T = get_turf(user)
var/obj/structure/cable/N = T.get_cable_node() //get the connecting node cable, if there's one
if(prob(50) && electrocute_mob(usr, N, N, 1, TRUE)) //animate the electrocution if uncautious and unlucky
do_sparks(5, TRUE, src)
return
C.use(10) // make sure the cable gets used up
user.visible_message(\
"<span class='notice'>[user.name] adds the cables and connects the power terminal.</span>",\
"<span class='notice'>You add the cables and connect the power terminal.</span>")
make_terminal(user, temporary_direction, temporary_location)
terminal.connect_to_network()
return
// Disassembling the terminal
if(istype(I, /obj/item/wirecutters) && terminal && panel_open)
var/turf/T = get_turf(terminal)
if(T.intact) //is the floor plating removed ?
to_chat(user, "<span class='alert'>You must first expose the power terminal!</span>")
return
to_chat(user, "<span class='notice'>You begin to dismantle the power terminal...</span>")
playsound(src.loc, I.usesound, 50, TRUE)
if(do_after(user, 5 SECONDS * I.toolspeed, target = src))
if(terminal && panel_open)
if(prob(50) && electrocute_mob(usr, terminal.powernet, terminal, 1, TRUE)) // Animate the electrocution if uncautious and unlucky
do_sparks(5, TRUE, src)
return
// Returns wires on deletion of the terminal
new /obj/item/stack/cable_coil(T, 10)
user.visible_message(\
"<span class='alert'>[user.name] cuts the cables and dismantles the power terminal.</span>",\
"<span class='notice'>You cut the cables and dismantle the power terminal.</span>")
inputting = FALSE // Set input FALSE when the terminal no longer exists
qdel(terminal)
return
// Crowbarring it !
if(default_deconstruction_crowbar(user, I))
return
return ..()
/obj/machinery/power/smes/disconnect_terminal()
if(terminal)
terminal.master = null
terminal = null
return TRUE
return FALSE
/obj/machinery/power/smes/proc/make_terminal(user, temporary_direction, temporary_location)
// Create a terminal object at the same position as original turf loc
// Wires will attach to this
terminal = new /obj/machinery/power/terminal(temporary_location)
terminal.dir = temporary_direction
terminal.master = src
/obj/machinery/power/smes/Destroy()
if(SSticker && SSticker.current_state == GAME_STATE_PLAYING)
var/area/area = get_area(src)
if(area)
message_admins("SMES deleted at (<a href='byond://?_src_=holder;adminplayerobservecoodjump=1;X=[x];Y=[y];Z=[z]'>[area.name]</a>)")
log_game("SMES deleted at ([area.name])")
investigate_log("<font color='red'>deleted</font> at ([area.name])", "singulo")
if(terminal)
disconnect_terminal()
return ..()
/obj/machinery/power/smes/proc/charge_display()
return clamp(round(ceil(charge * 5 / capacity)), 0, 5)
/obj/machinery/power/smes/process()
if(stat & BROKEN)
return
// Store machine state to see if we need to update the icon overlays
var/last_disp = charge_display()
var/last_chrg = inputting
var/last_onln = outputting
// Inputting
if(terminal && input_attempt)
input_available = terminal.get_power_balance()
if(inputting)
if(input_available > 0) // Checks power availability before attempting to charge
var/load = min(min((capacity - charge) / SMESRATE, input_level), input_available) // Charge at set rate, limited to spare capacity
charge += load * SMESRATE // Increase the charge
terminal.consume_direct_power(load) // Add the load to the terminal side network
else
inputting = FALSE // Set inputting FALSE if not enough capacity
else
if(input_attempt && input_available > 0)
inputting = TRUE
else
inputting = FALSE
//outputting
if(output_attempt && powernet)
if(outputting)
output_used = min( charge/SMESRATE, output_level) // Limit output to that stored
if(produce_direct_power(output_used)) // Add output to powernet if it exists (smes side)
charge -= output_used * SMESRATE // Reduce the storage (may be recovered in /restore() if excessive)
else
outputting = FALSE
if(output_used < 0.0001) // Either from no charge or set to 0
outputting = FALSE
investigate_log("lost power and turned <font color='red'>off</font>", "singulo")
else if(output_attempt && charge > output_level && output_level > 0)
outputting = TRUE
else
output_used = 0
else
outputting = FALSE
// Only update icon if state changed
if(last_disp != charge_display() || last_chrg != inputting || last_onln != outputting)
update_icon()
// Called after all power processes are finished
// Restores charge level to smes if there was excess this ptick
/obj/machinery/power/smes/proc/restore()
if(stat & BROKEN)
return
if(!outputting)
output_used = 0
return
var/excess = powernet.excess_power // This was how much wasn't used on the network last ptick, minus any removed by other SMESes
excess = min(output_used, excess) // Clamp it to how much was actually output by this SMES last ptick
excess = min((capacity-charge)/SMESRATE, excess) // For safety, also limit recharge by space capacity of SMES (shouldn't happen)
// now recharge this amount
var/clev = charge_display()
charge += excess * SMESRATE // Restore unused power
powernet.excess_power -= excess // Remove the excess from the powernet, so later SMESes don't try to use it
output_used -= excess
if(clev != charge_display()) // If needed updates the icons overlay
update_icon()
return
/obj/machinery/power/smes/attack_ai(mob/user)
add_hiddenprint(user)
ui_interact(user)
/obj/machinery/power/smes/attack_ghost(mob/user)
ui_interact(user)
/obj/machinery/power/smes/attack_hand(mob/user)
add_fingerprint(user)
ui_interact(user)
/obj/machinery/power/smes/ui_state(mob/user)
return GLOB.default_state
/obj/machinery/power/smes/ui_interact(mob/user, datum/tgui/ui = null)
if(stat & BROKEN)
return
ui = SStgui.try_update_ui(user, src, ui)
if(!ui)
ui = new(user, src, "Smes", name)
ui.open()
/obj/machinery/power/smes/ui_data(mob/user)
var/list/data = list(
"capacity" = capacity,
"capacityPercent" = round(100 * charge / capacity, 0.1),
"charge" = charge,
"inputAttempt" = input_attempt,
"inputting" = inputting,
"inputLevel" = input_level,
"inputLevel_text" = DisplayPower(input_level),
"inputLevelMax" = input_level_max,
"inputAvailable" = input_available,
"outputPowernet" = !isnull(powernet),
"outputAttempt" = output_attempt,
"outputting" = outputting,
"outputLevel" = output_level,
"outputLevel_text" = DisplayPower(output_level),
"outputLevelMax" = output_level_max,
"outputUsed" = round(output_used),
)
return data
/obj/machinery/power/smes/ui_act(action, params)
if(..())
return
. = TRUE
switch(action)
if("tryinput")
inputting(!input_attempt)
update_icon()
if("tryoutput")
outputting(!output_attempt)
update_icon()
if("input")
var/target = params["target"]
var/adjust = text2num(params["adjust"])
if(target == "min")
target = 0
else if(target == "max")
target = input_level_max
else if(adjust)
target = input_level + adjust
else if(text2num(target) != null)
target = text2num(target)
else
. = FALSE
if(.)
input_level = clamp(target, 0, input_level_max)
if("output")
var/target = params["target"]
var/adjust = text2num(params["adjust"])
if(target == "min")
target = 0
else if(target == "max")
target = output_level_max
else if(adjust)
target = output_level + adjust
else if(text2num(target) != null)
target = text2num(target)
else
. = FALSE
if(.)
output_level = clamp(target, 0, output_level_max)
else
. = FALSE
if(.)
log_smes(usr)
/obj/machinery/power/smes/proc/log_smes(mob/user)
investigate_log("input/output; [input_level>output_level?"<font color='green'>":"<font color='red'>"][input_level]/[output_level]</font> | Charge: [charge] | Output-mode: [output_attempt?"<font color='green'>on</font>":"<font color='red'>off</font>"] | Input-mode: [input_attempt?"<font color='green'>auto</font>":"<font color='red'>off</font>"] by [user ? key_name(user) : "outside forces"]", "singulo")
/obj/machinery/power/smes/proc/inputting(do_input)
input_attempt = do_input
if(!input_attempt)
inputting = 0
/obj/machinery/power/smes/proc/outputting(do_output)
output_attempt = do_output
if(!output_attempt)
outputting = 0
/obj/machinery/power/smes/emp_act(severity)
inputting(rand(0, 1))
outputting(rand(0, 1))
output_level = rand(0, output_level_max)
input_level = rand(0, input_level_max)
charge -= 1e6 / severity
if(charge < 0)
charge = 0
update_icon()
log_smes()
..()
/obj/machinery/power/smes/engineering
charge = 0.08e6 // Engineering starts with some charge for singulo
/obj/machinery/power/smes/magical
name = "magical power storage unit"
desc = "A high-capacity superconducting magnetic energy storage (SMES) unit. Magically produces power."
capacity = 9000000
output_level = 250000
/obj/machinery/power/smes/magical/process()
capacity = INFINITY
charge = INFINITY
..()
#undef SMESRATE
#undef SMESMAXCHARGELEVEL
#undef SMESMAXOUTPUT
Reference in New Issue View Git Blame Copy Permalink