mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2025-12-10 18:22:39 +00:00
17ed3899c4
/obj/effects is now /obj/effect. /obj/station_objects is now /obj/structure. Did a bit of minor blob work. The Bay 12 body bags were replaced with closets because having two sets of code that do almost the same thing is silly. Changed back a few of the last jobproc edits as the remove from list before assign was a check to see if the mob was fucked up and if it was remove it so we did not check it again as it would still be fucked up. The medbay/tox monkeys names are random once more. More random name monkeys will help with changeling and clean up the observe/mob menus. git-svn-id: http://tgstation13.googlecode.com/svn/trunk@2324 316c924e-a436-60f5-8080-3fe189b3f50e
359 lines
7.0 KiB
Plaintext
359 lines
7.0 KiB
Plaintext
//#define AMAP
|
|
|
|
/obj/machinery/computer/security/verb/station_map()
|
|
set name = ".map"
|
|
set category = "Object"
|
|
set src in view(1)
|
|
usr.machine = src
|
|
|
|
log_game("[usr]([usr.key]) used station map L[maplevel] in [src.loc.loc]")
|
|
|
|
src.drawmap(usr)
|
|
|
|
/obj/machinery/computer/security/proc/drawmap(var/mob/user as mob)
|
|
|
|
var/icx = round(world.maxx/16) + 1
|
|
var/icy = round(world.maxy/16) + 1
|
|
|
|
var/xoff = round( (icx*16-world.maxx)-2)
|
|
var/yoff = round( (icy*16-world.maxy)-2)
|
|
|
|
var/icount = icx * icy
|
|
|
|
|
|
var/list/imap = list()
|
|
|
|
#ifdef AMAP
|
|
|
|
for(var/i = 0; i<icount; i++)
|
|
imap += icon('imap.dmi', "blank")
|
|
imap += icon('imap.dmi', "blank")
|
|
|
|
//world << "[icount] images in list"
|
|
|
|
|
|
for(var/wx = 1 ; wx <= world.maxx; wx++)
|
|
|
|
for(var/wy = 1; wy <= world.maxy; wy++)
|
|
|
|
var/turf/T = locate(wx, wy, maplevel)
|
|
|
|
var/colour
|
|
var/colour2
|
|
|
|
|
|
|
|
if(!T)
|
|
colour = rgb(0,0,0)
|
|
|
|
else
|
|
var/sense = 1
|
|
switch("[T.type]")
|
|
if("/turf/space")
|
|
colour = rgb(10,10,10)
|
|
sense = 0
|
|
|
|
if("/turf/simulated/floor")
|
|
colour = rgb(150,150,150)
|
|
var/turf/simulated/floor/TF = T
|
|
if(TF.burnt == 1)
|
|
sense = 0
|
|
colour = rgb(130,130,130)
|
|
|
|
if("/turf/simulated/floor/engine")
|
|
colour = rgb(128,128,128)
|
|
|
|
if("/turf/simulated/wall")
|
|
colour = rgb(96,96,96)
|
|
|
|
if("/turf/simulated/wall/r_wall")
|
|
colour = rgb(128,96,96)
|
|
|
|
if("/turf/unsimulated/floor")
|
|
colour = rgb(240,240,240)
|
|
|
|
if("/turf/unsimulated/wall", "/turf/unsimulated/wall/other")
|
|
colour = rgb(140,140,140)
|
|
|
|
else
|
|
colour = rgb(0,40,0)
|
|
|
|
|
|
|
|
|
|
if(sense)
|
|
|
|
for(var/atom/AM in T.contents)
|
|
|
|
if(istype(AM, /obj/machinery/door) && !istype(AM, /obj/machinery/door/window))
|
|
if(AM.density)
|
|
colour = rgb(96,96,192)
|
|
colour2 = colour
|
|
else
|
|
colour = rgb(128,192,128)
|
|
|
|
if(istype(AM, /obj/machinery/alarm))
|
|
colour = rgb(0,255,0)
|
|
colour2 = colour
|
|
if(AM.icon_state=="alarm:1")
|
|
colour = rgb(255,255,0)
|
|
colour2 = rgb(255,128,0)
|
|
|
|
if(istype(AM, /mob))
|
|
if(AM:client)
|
|
colour = rgb(255,0,0)
|
|
else
|
|
colour = rgb(255,128,128)
|
|
|
|
colour2 = rgb(192,0,0)
|
|
|
|
var/area/A = T.loc
|
|
|
|
if(A.fire)
|
|
|
|
var/red = getr(colour)
|
|
var/green = getg(colour)
|
|
var/blue = getb(colour)
|
|
|
|
|
|
green = min(255, green+40)
|
|
blue = min(255, blue+40)
|
|
|
|
colour = rgb(red, green, blue)
|
|
|
|
if(!colour2 && !T.density)
|
|
|
|
var/turf_total = T.co2 + T.oxygen + T.poison + T.sl_gas + T.n2
|
|
|
|
|
|
var/t1 = turf_total / MOLES_CELLSTANDARD * 150
|
|
|
|
|
|
if(t1<=100)
|
|
colour2 = rgb(t1*2.55,0,0)
|
|
else
|
|
t1 = min(100, t1-100)
|
|
colour2 = rgb(255, t1*2.55, t1*2.55)
|
|
|
|
if(!colour2)
|
|
colour2 = colour
|
|
|
|
var/ix = round((wx*2+xoff)/32)
|
|
var/iy = round((wy*2+yoff)/32)
|
|
|
|
var/rx = ((wx*2+xoff)%32) + 1
|
|
var/ry = ((wy*2+yoff)%32) + 1
|
|
|
|
//world << "trying [ix],[iy] : [ix+icx*iy]"
|
|
var/icon/I = imap[1+(ix + icx*iy)*2]
|
|
var/icon/I2 = imap[2+(ix + icx*iy)*2]
|
|
|
|
|
|
//world << "icon: \icon[I]"
|
|
|
|
I.DrawBox(colour, rx, ry, rx+1, ry+1)
|
|
|
|
I2.DrawBox(colour2, rx, ry, rx+1, ry+1)
|
|
|
|
|
|
user.clearmap()
|
|
|
|
user.mapobjs = list()
|
|
|
|
|
|
for(var/i=0; i<icount;i++)
|
|
var/obj/screen/H = new /obj/screen()
|
|
|
|
H.screen_loc = "[5 + i%icx],[6+ round(i/icx)]"
|
|
|
|
//world<<"\icon[I] at [H.screen_loc]"
|
|
|
|
H.name = (i==0)?"maprefresh":"map"
|
|
|
|
var/icon/HI = new/icon
|
|
|
|
var/icon/I = imap[i*2+1]
|
|
var/icon/J = imap[i*2+2]
|
|
|
|
HI.Insert(I, frame=1, delay = 5)
|
|
HI.Insert(J, frame=2, delay = 5)
|
|
|
|
del(I)
|
|
del(J)
|
|
H.icon = HI
|
|
H.layer = 25
|
|
usr.mapobjs += H
|
|
#else
|
|
|
|
for(var/i = 0; i<icount; i++)
|
|
imap += icon('imap.dmi', "blank")
|
|
|
|
for(var/wx = 1 ; wx <= world.maxx; wx++)
|
|
|
|
for(var/wy = 1; wy <= world.maxy; wy++)
|
|
|
|
var/turf/T = locate(wx, wy, maplevel)
|
|
|
|
var/colour
|
|
|
|
if(!T)
|
|
colour = rgb(0,0,0)
|
|
|
|
else
|
|
var/sense = 1
|
|
switch("[T.type]")
|
|
if("/turf/space")
|
|
colour = rgb(10,10,10)
|
|
sense = 0
|
|
|
|
if("/turf/simulated/floor", "/turf/simulated/floor/engine")
|
|
var/datum/gas_mixture/environment = T.return_air()
|
|
var/turf_total = environment.total_moles()
|
|
var/t1 = turf_total / MOLES_CELLSTANDARD * 175
|
|
|
|
if(t1<=100)
|
|
colour = rgb(0,0,t1*2.55)
|
|
else
|
|
t1 = min(100, t1-100)
|
|
colour = rgb( t1*2.55, t1*2.55, 255)
|
|
|
|
if("/turf/simulated/wall")
|
|
colour = rgb(96,96,96)
|
|
|
|
if("/turf/simulated/wall/r_wall")
|
|
colour = rgb(128,96,96)
|
|
|
|
if("/turf/unsimulated/floor")
|
|
colour = rgb(240,240,240)
|
|
|
|
if("/turf/unsimulated/wall", "/turf/unsimulated/wall/other")
|
|
colour = rgb(140,140,140)
|
|
|
|
else
|
|
colour = rgb(0,40,0)
|
|
|
|
|
|
if(sense)
|
|
|
|
for(var/atom/AM in T.contents)
|
|
|
|
if(istype(AM, /obj/machinery/door) && !istype(AM, /obj/machinery/door/window))
|
|
if(AM.density)
|
|
colour = rgb(0,96,192)
|
|
else
|
|
colour = rgb(96,192,128)
|
|
|
|
if(istype(AM, /obj/machinery/alarm))
|
|
colour = rgb(0,255,0)
|
|
|
|
if(AM.icon_state=="alarm:1")
|
|
colour = rgb(255,255,0)
|
|
|
|
if(istype(AM, /mob))
|
|
if(AM:client)
|
|
colour = rgb(255,0,0)
|
|
else
|
|
colour = rgb(255,128,128)
|
|
|
|
//if(istype(AM, /obj/effect/blob))
|
|
// colour = rgb(255,0,255)
|
|
|
|
var/area/A = T.loc
|
|
|
|
if(A.fire)
|
|
|
|
var/red = getr(colour)
|
|
var/green = getg(colour)
|
|
var/blue = getb(colour)
|
|
|
|
|
|
green = min(255, green+40)
|
|
blue = min(255, blue+40)
|
|
|
|
colour = rgb(red, green, blue)
|
|
|
|
var/ix = round((wx*2+xoff)/32)
|
|
var/iy = round((wy*2+yoff)/32)
|
|
|
|
var/rx = ((wx*2+xoff)%32) + 1
|
|
var/ry = ((wy*2+yoff)%32) + 1
|
|
|
|
//world << "trying [ix],[iy] : [ix+icx*iy]"
|
|
var/icon/I = imap[1+(ix + icx*iy)]
|
|
|
|
|
|
//world << "icon: \icon[I]"
|
|
|
|
I.DrawBox(colour, rx, ry, rx+1, ry+1)
|
|
|
|
|
|
user.clearmap()
|
|
|
|
user.mapobjs = list()
|
|
|
|
|
|
for(var/i=0; i<icount;i++)
|
|
var/obj/screen/H = new /obj/screen()
|
|
|
|
H.screen_loc = "[5 + i%icx],[6+ round(i/icx)]"
|
|
|
|
//world<<"\icon[I] at [H.screen_loc]"
|
|
|
|
H.name = (i==0)?"maprefresh":"map"
|
|
|
|
var/icon/I = imap[i+1]
|
|
|
|
H.icon = I
|
|
del(I)
|
|
H.layer = 25
|
|
usr.mapobjs += H
|
|
|
|
#endif
|
|
|
|
user.client.screen += user.mapobjs
|
|
|
|
src.close(user)
|
|
|
|
/* if(seccomp == src)
|
|
drawmap(user)
|
|
else
|
|
user.clearmap()*/
|
|
return
|
|
|
|
|
|
|
|
/obj/machinery/computer/security/proc/close(mob/user)
|
|
spawn(20)
|
|
var/using = null
|
|
if(user.mapobjs)
|
|
for(var/obj/machinery/computer/security/seccomp in oview(1,user))
|
|
if(seccomp == src)
|
|
using = 1
|
|
break
|
|
if(using)
|
|
close(user)
|
|
else
|
|
user.clearmap()
|
|
|
|
|
|
return
|
|
|
|
proc/getr(col)
|
|
return hex2num( copytext(col, 2,4))
|
|
|
|
proc/getg(col)
|
|
return hex2num( copytext(col, 4,6))
|
|
|
|
proc/getb(col)
|
|
return hex2num( copytext(col, 6))
|
|
|
|
|
|
/mob/proc/clearmap()
|
|
src.client.screen -= src.mapobjs
|
|
for(var/obj/screen/O in mapobjs)
|
|
del(O)
|
|
|
|
mapobjs = null
|
|
src.machine = null
|
|
|