cyberpresidentvanellope/goonstation-2020
1
0
Fork 0
mirror of https://github.com/goonstation/goonstation-2020.git synced 2026-07-14 00:22:21 +01:00
Code Issues Packages Projects Releases Wiki Activity
Files
master
goonstation-2020/code/modules/power/solar.dm
T
ZeWaka f5ad1c4ae4 Adds all my changes since Jan1
2020-02-19 19:48:29 -08:00

472 lines
11 KiB
Plaintext
Raw Permalink Blame History

/* Contains;
- Solar tracker
- Solar panel
- Solar control computer
*/
/////////////////////////////////// Solar tracker //////////////////////////////////////////////////////
//Machine that tracks the sun and reports it's direction to the solar controllers
//As long as this is working, solar panels on same powernet will track automatically
/obj/machinery/power/tracker
name = "solar tracker"
desc = "A solar directional tracker."
icon = 'icons/obj/power.dmi'
icon_state = "tracker"
anchored = 1
density = 1
directwired = 1
var/id = 1
var/sun_angle = 0 // sun angle as set by sun datum
north
id = "north"
south
id = "south"
alt
id = "alt"
east
id = "east"
west
id = "west"
small_backup1
id = "small_backup1"
small_backup2
id = "small_backup2"
small_backup3
id = "small_backup3"
small_backup4
id = "small_backup4"
diner
id = "diner"
// called by datum/sun/calc_position() as sun's angle changes
proc/set_angle(var/angle)
sun_angle = angle
//set icon dir to show sun illumination
dir = turn(NORTH, -angle - 22.5) // 22.5 deg bias ensures, e.g. 67.5-112.5 is EAST
// find all solar controls and update them
// currently, just update all controllers in world
// ***TODO: better communication system using network
for (var/obj/machinery/power/solar_control/C in powernet.nodes)
if (!isnull(src.id) && src.id == C.id)
C.tracker_update(angle)
LAGCHECK(LAG_HIGH)
// override power change to do nothing since we don't care about area power
// (and it would be pointless anyway given that solar panels and the associated tracker are usually on a separate powernet)
power_change()
return
/////////////////////////////////////////////// Solar panel /////////////////////////////////////////////////////
/obj/machinery/power/solar
name = "solar panel"
desc = "A solar electrical generator."
icon = 'icons/obj/power.dmi'
icon_state = "solar_panel"
anchored = 1
density = 1
directwired = 1
var/health = 10.0
var/id = 1
var/obscured = 0
var/sunfrac = 0
var/adir = SOUTH
var/ndir = SOUTH
var/turn_angle = 0
var/obj/machinery/power/solar_control/control
north
id = "north"
south
id = "south"
alt
id = "alt"
east
id = "east"
west
id = "west"
small_backup1
id = "small_backup1"
small_backup2
id = "small_backup2"
small_backup3
id = "small_backup3"
small_backup4
id = "small_backup4"
diner
id = "diner"
/obj/machinery/power/solar/New()
..()
SPAWN_DBG(1 SECOND)
updateicon()
update_solar_exposure()
if(powernet)
for(var/obj/machinery/power/solar_control/SC in powernet.nodes)
if(SC.id == id)
control = SC
/obj/machinery/power/solar/attackby(obj/item/W, mob/user)
..()
src.add_fingerprint(user)
src.health -= W.force
src.healthcheck()
return
/obj/machinery/power/solar/proc/healthcheck()
if (src.health <= 0)
if(!(status & BROKEN))
broken()
else
var/obj/item/raw_material/shard/glass/G = unpool(/obj/item/raw_material/shard/glass)
G.set_loc(src.loc)
G = unpool(/obj/item/raw_material/shard/glass)
G.set_loc(src.loc)
qdel(src)
return
return
/obj/machinery/power/solar/proc/updateicon()
//overlays = null
if(status & BROKEN)
icon_state = "solar_panel-b"
//overlays += image('icons/obj/power.dmi', icon_state = "solar_panel-b", layer = FLY_LAYER)
else
//overlays += image('icons/obj/power.dmi', icon_state = "solar_panel", layer = FLY_LAYER)
src.icon_state = "solar_panel"
src.dir = angle2dir(adir)
return
/obj/machinery/power/solar/proc/update_solar_exposure()
if(obscured)
sunfrac = 0
return
if(isnull(sun)) return
var/p_angle = abs((360+adir)%360 - (360+sun.angle)%360)
if(p_angle > 90) // if facing more than 90deg from sun, zero output
sunfrac = 0
return
sunfrac = cos(p_angle) ** 2
#define SOLARGENRATE 1500
/obj/machinery/power/solar/process()
if(status & BROKEN)
return
//return //TODO: FIX
if(!obscured)
var/sgen = SOLARGENRATE * sunfrac
add_avail(sgen)
if(powernet && control)
if(control in powernet.nodes) //this line right here...
control.gen += sgen
if(adir != ndir)
SPAWN_DBG(10+rand(0,15))
adir = (360+adir+CLAMP(ndir-adir,-10,10))%360
updateicon()
update_solar_exposure()
/obj/machinery/power/solar/proc/broken()
status |= BROKEN
updateicon()
return
/obj/machinery/power/solar/meteorhit()
if(status & !BROKEN)
broken()
else
qdel(src)
/obj/machinery/power/solar/ex_act(severity)
switch(severity)
if(1.0)
qdel(src)
if(prob(15))
var/obj/item/raw_material/shard/glass/G = unpool(/obj/item/raw_material/shard/glass)
G.set_loc(src.loc)
return
if(2.0)
if (prob(50))
broken()
if(3.0)
if (prob(25))
broken()
return
/obj/machinery/power/solar/blob_act(var/power)
if(prob(power * 2.5))
broken()
src.set_density(0)
/////////////////////////////////////////////////// Solar control computer /////////////////////////////////////////
/obj/machinery/power/solar_control
name = "solar panel control"
desc = "A controller for solar panel arrays."
icon = 'icons/obj/computer.dmi'
icon_state = "solar"
anchored = 1
density = 1
directwired = 1
//var/obj/overlay/solcon
var/id = 1
var/cdir = 0
var/gen = 0
var/lastgen = 0
var/track = 2 // 0= off 1=timed 2=auto (tracker)
var/trackrate = 600 // 300-900 seconds
var/trackdir = 1 // 0 =CCW, 1=CW
var/nexttime = 0
north
id = "north"
south
id = "south"
alt
id = "alt"
east
id = "east"
west
id = "west"
small_backup1
id = "small_backup1"
small_backup2
id = "small_backup2"
small_backup3
id = "small_backup3"
small_backup4
id = "small_backup4"
diner
id = "diner"
/obj/machinery/power/solar_control/New()
..()
SPAWN_DBG(1.5 SECONDS)
if(!powernet) return
for(var/obj/machinery/power/solar/S in powernet.nodes)
if(S.id != id) continue
cdir = S.adir
updateicon()
/obj/machinery/power/solar_control/proc/updateicon()
if(status & BROKEN)
icon_state = "broken"
//overlays = null
return
if(status & NOPOWER)
icon_state = "c_unpowered"
//overlays = null
return
icon_state = "solar"
/*
overlays = null
if(cdir > 0)
if (!solcon)
solcon = new /obj/overlay {icon='icons/obj/computer.dmi'; icon_state="solcon-o";} (src)
solcon.dir = angle2dir(cdir)
overlays += solcon
*/
return
/obj/machinery/power/solar_control/attack_ai(mob/user)
add_fingerprint(user)
if(status & (BROKEN | NOPOWER)) return
interact(user)
/obj/machinery/power/solar_control/attack_hand(mob/user)
add_fingerprint(user)
if(status & (BROKEN | NOPOWER)) return
interact(user)
/obj/machinery/power/solar_control/process()
lastgen = gen
gen = 0
if(status & (NOPOWER | BROKEN))
return
use_power(250)
if(track==1 && nexttime < world.timeofday && trackrate)
nexttime = world.timeofday + 3600/abs(trackrate)
cdir = (cdir+trackrate/abs(trackrate)+360)%360
set_panels(cdir)
updateicon()
src.updateDialog()
// called by solar tracker when sun position changes
/obj/machinery/power/solar_control/proc/tracker_update(var/angle)
if(track != 2 || status & (NOPOWER | BROKEN))
return
cdir = angle
set_panels(cdir)
updateicon()
src.updateDialog()
/obj/machinery/power/solar_control/proc/interact(mob/user)
if(status & (BROKEN | NOPOWER)) return
if ( (get_dist(src, user) > 1 ))
if (!isAI(user))
user.machine = null
user.Browse(null, "window=solcon")
return
add_fingerprint(user)
user.machine = src
var/t = "<TT><B>Solar Generator Control</B><HR><PRE>"
t += "Generated power : [round(lastgen)] W<BR><BR>"
t += "<B>Orientation</B>: [rate_control(src,"cdir","[cdir]&deg",1,15)] ([angle2text(cdir)])<BR><BR><BR>"
t += "<BR><HR><BR><BR>"
t += "Tracking: "
switch(track)
if(0)
t += "<B>Off</B> <A href='?src=\ref[src];track=1'>Timed</A> <A href='?src=\ref[src];track=2'>Auto</A><BR>"
if(1)
t += "<A href='?src=\ref[src];track=0'>Off</A> <B>Timed</B> <A href='?src=\ref[src];track=2'>Auto</A><BR>"
if(2)
t += "<A href='?src=\ref[src];track=0'>Off</A> <A href='?src=\ref[src];track=1'>Timed</A> <B>Auto</B><BR>"
t += "Tracking Rate: [rate_control(src,"tdir","[trackrate] deg/h ([trackrate<0 ? "CCW" : "CW"])",5,30,180)]<BR><BR>"
t += "<A href='?src=\ref[src];close=1'>Close</A></TT>"
user.Browse(t, "window=solcon")
onclose(user, "solcon")
return
/obj/machinery/power/solar_control/Topic(href, href_list)
if(..())
usr.Browse(null, "window=solcon")
usr.machine = null
return
if(href_list["close"] )
usr.Browse(null, "window=solcon")
usr.machine = null
return
if(href_list["dir"])
cdir = text2num(href_list["dir"])
SPAWN_DBG(1 DECI SECOND)
set_panels(cdir)
updateicon()
if(href_list["rate control"])
if(href_list["cdir"])
src.cdir = CLAMP((360+src.cdir+text2num(href_list["cdir"]))%360, 0, 359)
SPAWN_DBG(1 DECI SECOND)
set_panels(cdir)
updateicon()
if(href_list["tdir"])
src.trackrate = CLAMP(src.trackrate+text2num(href_list["tdir"]), -7200,7200)
if(src.trackrate) nexttime = world.timeofday + 3600/abs(trackrate)
if(href_list["track"])
if(src.trackrate) nexttime = world.timeofday + 3600/abs(trackrate)
track = text2num(href_list["track"])
if(track == 2)
var/obj/machinery/power/tracker/T = locate() in machines//world
if(T)
cdir = T.sun_angle
src.updateUsrDialog()
return
/obj/machinery/power/solar_control/proc/set_panels(var/cdir)
if(!powernet) return
for(var/obj/machinery/power/solar/S in powernet.nodes)
if(S.id != id) continue
S.control = src
S.ndir = cdir
LAGCHECK(LAG_HIGH)
/obj/machinery/power/solar_control/power_change()
if(powered())
status &= ~NOPOWER
updateicon()
else
SPAWN_DBG(rand(0, 15))
status |= NOPOWER
updateicon()
/obj/machinery/power/solar_control/proc/broken()
status |= BROKEN
updateicon()
/obj/machinery/power/solar_control/meteorhit()
broken()
return
/obj/machinery/power/solar_control/ex_act(severity)
switch(severity)
if(1.0)
//SN src = null
qdel(src)
return
if(2.0)
if (prob(50))
broken()
if(3.0)
if (prob(25))
broken()
return
/obj/machinery/power/solar_control/blob_act(var/power)
if (prob(power * 2.5))
broken()
src.set_density(0)
// solar panels which ignore occlusion
/obj/machinery/power/solar/owl_cheat
id = "owl"
update_solar_exposure()
if(isnull(sun)) return
var/p_angle = abs((360+adir)%360 - (360+sun.angle)%360)
if(p_angle > 90) // if facing more than 90deg from sun, zero output
sunfrac = 0
return
sunfrac = cos(p_angle) ** 2
process()
if(status & BROKEN)
return
var/sgen = SOLARGENRATE * sunfrac
add_avail(sgen)
if(powernet && control)
if(control in powernet.nodes) //this line right here...
control.gen += sgen
if(adir != ndir)
SPAWN_DBG(10+rand(0,15))
adir = (360+adir+CLAMP(ndir-adir,-10,10))%360
updateicon()
update_solar_exposure()
Reference in New Issue View Git Blame Copy Permalink