Files
vgstation13/code/unused/_debug.dm
elly1989@rocketmail.com 4073ac9b00 Replaced all 'file.extension' references with 'relativepath/file.extension' using a script by thvortex of ss13-daedalus.
All credits to the author for this handy little script.
I Committed the modified python script to tool directory. Although it needs to be in the root folder of your repo to work.

To notice the improved compile times, in dreammaker go to Build > Preferences > and untick "automatically set file_dir for subfolders"

If this commit inteferes with any large projects just revert it, do your thing, then rerun the script. Easy-peasy.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@4488 316c924e-a436-60f5-8080-3fe189b3f50e
2012-08-18 16:33:40 +00:00

616 lines
13 KiB
Plaintext

// NOTE WELL!
// Only include this file when debugging locally
// Do not include in release versions
#define VARSICON 1
#define SDEBUG 1
/client/verb/Debug()
set category = "Debug"
set name = "Debug-Debug"
if(src.holder.rank == "Game Admin")
Debug = !Debug
world << "Debugging [Debug ? "On" : "Off"]"
else
alert("Coders only baby")
return
/turf/verb/Flow()
set category = "Debug"
//set hidden = 1
if(Debug)
for(var/turf/T in range(5))
var/obj/effect/mark/O = locate(/obj/effect/mark/, T)
if(!O)
O = new /obj/effect/mark(T)
else
O.overlays = null
var/obj/move/OM = locate(/obj/move/, T)
if(OM)
if(! OM.updatecell)
O.icon_state = "x2"
else
O.icon_state = "blank"
/*
Doing this because FindTurfs() isn't even used
for(var/atom/U in OM.FindTurfs() )
var/dirn = get_dir(OM, U)
if(dirn == 1)
O.overlays += image('icons/misc/mark.dmi', OM.airdir==1?"up":"fup")
else if(dirn == 2)
O.overlays += image('icons/misc/mark.dmi', OM.airdir==2?"dn":"fdn")
else if(dirn == 4)
O.overlays += image('icons/misc/mark.dmi', OM.airdir==4?"rt":"frt")
else if(dirn == 8)
O.overlays += image('icons/misc/mark.dmi', OM.airdir==8?"lf":"flf")
*/
else
if(!(T.updatecell))
O.icon_state = "x2"
else
O.icon_state = "blank"
if(T.airN)
O.overlays += image('icons/misc/mark.dmi', T.airdir==1?"up":"fup")
if(T.airS)
O.overlays += image('icons/misc/mark.dmi', T.airdir==2?"dn":"fdn")
if(T.airW)
O.overlays += image('icons/misc/mark.dmi', T.airdir==8?"lf":"flf")
if(T.airE)
O.overlays += image('icons/misc/mark.dmi', T.airdir==4?"rt":"frt")
if(T.condN)
O.overlays += image('icons/misc/mark.dmi', T.condN == 1?"yup":"rup")
if(T.condS)
O.overlays += image('icons/misc/mark.dmi', T.condS == 1?"ydn":"rdn")
if(T.condE)
O.overlays += image('icons/misc/mark.dmi', T.condE == 1?"yrt":"rrt")
if(T.condW)
O.overlays += image('icons/misc/mark.dmi', T.condW == 1?"ylf":"rlf")
else
alert("Debugging off")
return
/turf/verb/Clear()
set category = "Debug"
//set hidden = 1
if(Debug)
for(var/obj/effect/mark/O in world)
del(O)
else
alert("Debugging off")
return
/proc/numbericon(var/tn as text,var/s = 0)
if(Debug)
var/image/I = image('icons/misc/mark.dmi', "blank")
if(lentext(tn)>8)
tn = "*"
var/len = lentext(tn)
for(var/d = 1 to lentext(tn))
var/char = copytext(tn, len-d+1, len-d+2)
if(char == " ")
continue
var/image/ID = image('icons/misc/mark.dmi', char)
ID.pixel_x = -(d-1)*4
ID.pixel_y = s
//if(d>1) I.Shift(WEST, (d-1)*8)
I.overlays += ID
return I
else
alert("Debugging off")
return
/*/turf/verb/Stats()
set category = "Debug"
for(var/turf/T in range(5))
var/obj/effect/mark/O = locate(/obj/effect/mark/, T)
if(!O)
O = new /obj/effect/mark(T)
else
O.overlays = null
var/temp = round(T.temp-T0C, 0.1)
O.overlays += numbericon("[temp]C")
var/pres = round(T.tot_gas() / CELLSTANDARD * 100, 0.1)
O.overlays += numbericon("[pres]", -8)
O.mark = "[temp]/[pres]"
*/
/*
/turf/verb/Pipes()
set category = "Debug"
for(var/turf/T in range(6))
//world << "Turf [T] at ([T.x],[T.y])"
for(var/obj/machinery/M in T)
//world <<" Mach [M] with pdir=[M.p_dir]"
if(M && M.p_dir)
//world << "Accepted"
var/obj/effect/mark/O = locate(/obj/effect/mark/, T)
if(!O)
O = new /obj/effect/mark(T)
else
O.overlays = null
if(istype(M, /obj/machinery/pipes))
var/obj/machinery/pipes/P = M
O.overlays += numbericon("[P.plnum] ", -20)
M = P.pl
var/obj/substance/gas/G = M.get_gas()
if(G)
var/cap = round( 100*(G.tot_gas()/ M.capmult / 6e6), 0.1)
var/temp = round(G.temperature - T0C, 0.1)
O.overlays += numbericon("[temp]C", 0)
O.overlays += numbericon("[cap]", -8)
break
*/
/turf/verb/Cables()
set category = "Debug"
if(Debug)
for(var/turf/T in range(6))
//world << "Turf [T] at ([T.x],[T.y])"
var/obj/effect/mark/O = locate(/obj/effect/mark/, T)
if(!O)
O = new /obj/effect/mark(T)
else
O.overlays = null
var/marked = 0
for(var/obj/M in T)
//world <<" Mach [M] with pdir=[M.p_dir]"
if(M && istype(M, /obj/structure/cable/))
var/obj/structure/cable/C = M
//world << "Accepted"
O.overlays += numbericon("[C.netnum] " , marked)
marked -= 8
else if(M && istype(M, /obj/machinery/power/))
var/obj/machinery/power/P = M
O.overlays += numbericon("*[P.netnum] " , marked)
marked -= 8
if(!marked)
del(O)
else
alert("Debugging off")
return
/turf/verb/Solar()
set category = "Debug"
if(Debug)
for(var/turf/T in range(6))
//world << "Turf [T] at ([T.x],[T.y])"
var/obj/effect/mark/O = locate(/obj/effect/mark/, T)
if(!O)
O = new /obj/effect/mark(T)
else
O.overlays = null
var/obj/machinery/power/solar/S
S = locate(/obj/machinery/power/solar, T)
if(S)
O.overlays += numbericon("[S.obscured] " , 0)
O.overlays += numbericon("[round(S.sunfrac*100,0.1)] " , -12)
else
del(O)
else
alert("Debugging off")
return
/mob/verb/Showports()
set category = "Debug"
if(Debug)
var/turf/T
var/obj/machinery/pipes/P
var/list/ndirs
for(var/obj/machinery/pipeline/PL in plines)
var/num = plines.Find(PL)
P = PL.nodes[1] // 1st node in list
ndirs = P.get_node_dirs()
T = get_step(P, ndirs[1])
var/obj/effect/mark/O = new(T)
O.overlays += numbericon("[num] * 1 ", -4)
O.overlays += numbericon("[ndirs[1]] - [ndirs[2]]",-16)
P = PL.nodes[PL.nodes.len] // last node in list
ndirs = P.get_node_dirs()
T = get_step(P, ndirs[2])
O = new(T)
O.overlays += numbericon("[num] * 2 ", -4)
O.overlays += numbericon("[ndirs[1]] - [ndirs[2]]", -16)
else
alert("Debugging off")
return
/atom/verb/delete()
set category = "Debug"
set src in view()
if(Debug)
del(src)
else
alert("Debugging off")
return
/area/verb/dark()
set category = "Debug"
if(Debug)
if(src.icon_state == "dark")
icon_state = null
else
icon_state = "dark"
else
alert("Debugging off")
return
/area/verb/power()
set category = "Debug"
if(Debug)
power_equip = !power_equip
power_environ = !power_environ
world << "Power ([src]) = [power_equip]"
power_change()
else
alert("Debugging off")
return
// *****RM
// *****
/mob/verb/ShowPlasma()
set category = "Debug"
if(Debug)
Plasma()
else
alert("Debugging off")
return
/mob/verb/Blobcount()
set category = "Debug"
if(Debug)
world << "Blob count: [blobs.len]"
else
alert("Debugging off")
return
/mob/verb/Blobkill()
set category = "Debug"
if(Debug)
blobs = list()
world << "Blob killed."
else
alert("Debugging off")
return
/mob/verb/Blobmode()
set category = "Debug"
if(Debug)
world << "Event=[ticker.event]"
world << "Time =[(ticker.event_time - world.realtime)/10]s"
else
alert("Debugging off")
return
/mob/verb/Blobnext()
set category = "Debug"
if(Debug)
ticker.event_time = world.realtime
else
alert("Debugging off")
return
/mob/verb/callshuttle()
set category = "Debug"
if(Debug)
ticker.timeleft = 300
ticker.timing = 1
else
alert("Debugging off")
return
/mob/verb/apcs()
set category = "Debug"
if(Debug)
for(var/obj/machinery/power/apc/APC in world)
world << APC.report()
else
alert("Debugging off")
return
/mob/verb/Globals()
set category = "Debug"
if(Debug)
debugobj = new()
debugobj.debuglist = list( powernets, plines, vote, config, admins, ticker, SS13_airtunnel, sun )
world << "<A href='?src=\ref[debugobj];Vars=1'>Debug</A>"
else
alert("Debugging off")
return
/*for(var/obj/O in plines)
world << "<A href='?src=\ref[O];Vars=1'>[O.name]</A>"
*/
/mob/verb/Mach()
set category = "Debug"
if(Debug)
var/n = 0
for(var/obj/machinery/M in world)
n++
if(! (M in machines) )
world << "[M] [M.type]: not in list"
world << "in world: [n]; in list:[machines.len]"
else
alert("Debugging off")
return
/*/mob/verb/air()
set category = "Debug"
Air()
/proc/Air()
var/area/A = locate(/area/airintake)
var/atot = 0
for(var/turf/T in A)
atot += T.tot_gas()
var/ptot = 0
for(var/obj/machinery/pipeline/PL in plines)
if(PL.suffix == "d")
ptot += PL.ngas.tot_gas()
var/vtot = 0
for(var/obj/machinery/atmoalter/V in machines)
if(V.suffix == "d")
vtot += V.gas.tot_gas()
var/ctot = 0
for(var/obj/machinery/connector/C in machines)
if(C.suffix == "d")
ctot += C.ngas.tot_gas()
var/tot = atot + ptot + vtot + ctot
diary << "A=[num2text(atot,10)] P=[num2text(ptot,10)] V=[num2text(vtot,10)] C=[num2text(ctot,10)] : Total=[num2text(tot,10)]"
*/
/mob/verb/Revive()
set category = "Debug"
if(Debug)
adjustFireLoss(0 - getBruteLoss())
setToxLoss(0)
adjustBruteLoss(0 - getBruteLoss())
setOxyLoss(0)
paralysis = 0
stunned = 0
weakened = 0
health = 100
if(stat > 1) stat=0
disabilities = initial(disabilities)
sdisabilities = initial(sdisabilities)
for(var/datum/organ/external/e in src)
e.brute_dam = 0.0
e.burn_dam = 0.0
e.bandaged = 0.0
e.wound_size = 0.0
e.max_damage = initial(e.max_damage)
e.update_icon()
if(src.type == /mob/living/carbon/human)
var/mob/living/carbon/human/H = src
H.UpdateDamageIcon()
else
alert("Debugging off")
return
/mob/verb/Smoke()
set category = "Debug"
if(Debug)
var/obj/effect/smoke/O = new /obj/effect/smoke( src.loc )
O.dir = pick(NORTH, SOUTH, EAST, WEST)
spawn( 0 )
O.Life()
else
alert("Debugging off")
return
/mob/verb/revent(number as num)
set category = "Debug"
set name = "Change event %"
if(!src.authenticated || !src.holder)
src << "Only administrators may use this command."
return
if(src.authenticated && src.holder)
eventchance = number
log_admin("[src.key] set the random event chance to [eventchance]%")
message_admins("[src.key] set the random event chance to [eventchance]%")
/* Does nothing but blow up the station.
/mob/verb/funbutton()
set category = "Admin"
set name = "Random Expl.(REMOVE ME)"
if(!src.authenticated || !src.holder)
src << "Only administrators may use this command."
return
for(var/turf/T in world)
if(prob(4) && T.z == 1 && istype(T,/turf/station/floor))
spawn(50+rand(0,3000))
var/obj/item/weapon/tank/plasmatank/pt = new /obj/item/weapon/tank/plasmatank( T )
pt.gas.temperature = 400+T0C
pt.ignite()
for(var/turf/P in view(3, T))
if (P.poison)
P.poison = 0
P.oldpoison = 0
P.tmppoison = 0
P.oxygen = 755985
P.oldoxy = 755985
P.tmpoxy = 755985
usr << "\blue Blowing up station ..."
world << "[usr.key] has used boom boom boom shake the room"
*/
/mob/verb/removeplasma()
set category = "Debug"
set name = "Stabilize Atmos."
if(!src.authenticated || !src.holder)
src << "Only administrators may use this command."
return
spawn(0)
for(var/turf/T in view())
T.poison = 0
T.oldpoison = 0
T.tmppoison = 0
T.oxygen = 755985
T.oldoxy = 755985
T.tmpoxy = 755985
T.co2 = 14.8176
T.oldco2 = 14.8176
T.tmpco2 = 14.8176
T.n2 = 2.844e+006
T.on2 = 2.844e+006
T.tn2 = 2.844e+006
T.tsl_gas = 0
T.osl_gas = 0
T.sl_gas = 0
T.temp = 293.15
T.otemp = 293.15
T.ttemp = 293.15
/mob/verb/fire(turf/T as turf in world)
set category = "Special Verbs"
set name = "Create Fire"
if(!src.authenticated || !src.holder)
src << "Only administrators may use this command."
return
world << "[usr.key] created fire"
spawn(0)
T.poison += 30000000
T.firelevel = T.poison
/mob/verb/co2(turf/T as turf in world)
set category = "Special Verbs"
set name = "Create CO2"
if(!src.authenticated || !src.holder)
src << "Only administrators may use this command."
return
world << "[usr.key] created CO2"
spawn(0)
T.co2 += 300000000
/mob/verb/n2o(turf/T as turf in world)
set category = "Special Verbs"
set name = "Create N2O"
if(!src.authenticated || !src.holder)
src << "Only administrators may use this command."
return
world << "[usr.key] created N2O"
spawn(0)
T.sl_gas += 30000000
/mob/verb/explosion(T as obj|mob|turf in world)
set category = "Special Verbs"
set name = "Create Explosion"
if(!src.authenticated || !src.holder)
src << "Only administrators may use this command."
return
world << "[usr.key] created an explosion"
var/obj/item/weapon/tank/plasmatank/pt = new /obj/item/weapon/tank/plasmatank( T )
playsound(pt.loc, "explosion", 100, 1,3)
playsound(pt.loc, 'sound/effects/explosionfar.ogg', 100, 1,10)
pt.gas.temperature = 500+T0C
pt.ignite()