cyberpresidentvanellope/Polaris
1
0
Fork 0
mirror of https://github.com/PolarisSS13/Polaris.git synced 2026-01-03 05:52:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Adds interface to the helm console.

Browse Source
This commit is contained in:
Chinsky
2014-06-30 02:22:50 +04:00
parent 5df822f148
commit 7f8d2555e2
2 changed files with 88 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
code/WorkInProgress/Chinsky/overmap/helm.dm
View File

@@ -1,7 +1,12 @@
/obj/machinery/computer/helm
name = "helm control console"
icon_state = "id"
var/obj/effect/mapinfo/linked //connected overmap object
var/obj/effect/map/ship/linked //connected overmap object
var/autopilot = 0
var/manual_control = 0
var/dx //desitnation
var/dy //coordinates
/obj/machinery/computer/helm/initialize()
linked = map_sectors["[z]"]
@@ -11,30 +16,104 @@
testing("Helm console at level [z] found a corresponding overmap object '[linked.name]'.")
/obj/machinery/computer/helm/relaymove(var/mob/user, direction)
if(linked)
if(manual_control && linked)
linked.relaymove(user,direction)
return 1
/obj/machinery/computer/helm/check_eye(var/mob/user as mob)
if (get_dist(user, src) > 1 || user.blinded || !linked )
if (!manual_control)
return null
if (!get_dist(user, src) > 1 || user.blinded || !linked )
return null
user.reset_view(linked)
return 1
/obj/machinery/computer/helm/attack_hand(var/mob/user as mob)
if(!linked)
user << "<span class = 'warning'>Could not get navigation data!</span>"
return
if(stat & (NOPOWER|BROKEN))
if(..())
user.unset_machine()
manual_control = 0
return
if(!isAI(user))
user.set_machine(src)
var/dat = ""
if(!linked)
dat = "<center><span class = 'warning'>Could not get navigation data!</span><center>"
else
dat += "<table>"
dat += "<tr><td>Current sector:</td><td>[linked.current_sector ? linked.current_sector.name : "Deep Space"]"
dat += "</td></tr><tr><td>Sector information:</td><td>[linked.current_sector ? linked.current_sector.desc : "Not Available"]"
dat += "</td></tr><tr><td>Current coordinates:</td><td>\[[linked.x], [linked.y]\]"
dat += "</td></tr><tr><td>Current destination:</td><td>"
if (dx && dy)
dat += "\[<a href='?src=\ref[src];setx=1'>[dx]</a>, "
dat += "<a href='?src=\ref[src];sety=1'>[dy]</a>\]"
else
dat += "<a href='?src=\ref[src];sety=1;setx=1'>None</a>"
dat += "</td></tr></table>"
dat += "<br><hr><br>"
dat += "Known locations:<br>"
dat += "<table>"
for (var/lvl in map_sectors)
var/obj/effect/map/sector/S = map_sectors[lvl]
if (istype(S))
dat += "<tr><td>[S.name]:</td><td>\[[S.x], [S.y]\]</td><td><a href='?src=\ref[src];x=[S.x];y=[S.y]'>Plot course</a></td></tr>"
dat += "</table>"
dat += "<br><br><hr><br>"
dat += "<table>"
dat += "<tr><td>Autopilot:</td><td><a href='?src=\ref[src];apilot=1'>[autopilot ? "Engaged" : "Disengaged"]</a></td><td><a href='?src=\ref[src];reset=1'>Reset desetination</a>"
dat += "</td></tr><tr><td>Manual control:</td><td><a href='?src=\ref[src];manual=1'>[manual_control ? "Engaged" : "Disengaged"]</a>"
dat += "</td></tr></table>"
user << browse("<HEAD><TITLE>Helm Control</TITLE></HEAD><TT>[dat]</TT>", "window=helm")
onclose(user, "helm")
return
/obj/machinery/computer/helm/Topic(href, href_list)
if(..())
return
if (!linked)
return
if (href_list["setx"])
var/newx = input("Input new destiniation x coordinate", "Coordinate input", dx) as num|null
if (newx)
dx = Clamp(newx, 1, world.maxx)
if (href_list["sety"])
var/newy = input("Input new destiniation y coordinate", "Coordinate input", dy) as num|null
if (newy)
dy = Clamp(newy, 1, world.maxy)
if (href_list["x"] && href_list["y"])
dx = text2num(href_list["x"])
dy = text2num(href_list["y"])
if (href_list["reset"])
dx = 0
dy = 0
if (href_list["apilot"])
autopilot = !autopilot
manual_control = 0
if (href_list["manual"])
manual_control = !manual_control
autopilot = 0
add_fingerprint(usr)
updateUsrDialog()
/obj/machinery/computer/helm/process()
..()
if (autopilot && dx && dy)
return
//Shuttle controller computer for shuttles going from ship to sectors
/obj/machinery/computer/shuttle_control/explore

2
code/WorkInProgress/Chinsky/overmap/sectors.dm
View File

@@ -99,7 +99,7 @@ var/global/list/map_sectors = list()
desc = "Space faring vessel."
icon_state = "sheet-sandstone"
density = 1
var/current_sector
var/obj/effect/map/current_sector
/obj/effect/map/ship/relaymove(mob/user, direction)
step(src,direction)