mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2025-12-12 03:02:54 +00:00
2224916ab9
Moved the spacecraft folder into the unused section, moved syndiebeacon into machinery. Research moved into Modules. Virus2 moved into WIP - is anyone even working on this, it looks almost done? Computer2,optics,pda2,experimental moved unto unused. WIP Chemistry things moved into Chemical Module Cameras.dm moved into weapons GameKit.dm moved into unused BrokenInHands.dm moved into unused Removed Grillify.dm Moved all of the files listed as unused in the mining module to unused Removed several empty folders in modules Moved cloning.dm into machinery Moved NewBan.dm into admin Changed humanoid aliens new_life.dm into life.dm Moved beast mob into unused Moved hivebot into unused Moved carpedexplosion.dm into unused Moved ai_lockdown.dm verb into unused and removed it from the AIs verb list as it didn't actually do anything. Removed mastercontroler2.dm Moved savefile.dm from human to new_player Bugfix People spawning on the starting screen on rev/cult should be fixed. git-svn-id: http://tgstation13.googlecode.com/svn/trunk@1964 316c924e-a436-60f5-8080-3fe189b3f50e
102 lines
2.9 KiB
Plaintext
102 lines
2.9 KiB
Plaintext
//CONTENTS:
|
|
//Base scanner stuff
|
|
//Health scanner
|
|
//Forensic scanner
|
|
//Reagent scanner
|
|
|
|
/datum/computer/file/pda_program/scan
|
|
return_text()
|
|
return src.return_text_header()
|
|
|
|
proc/scan_atom(atom/A as mob|obj|turf|area)
|
|
|
|
if( !A || (!src.holder) || (!src.master))
|
|
return 1
|
|
|
|
if((!istype(holder)) || (!istype(master)))
|
|
return 1
|
|
|
|
if(!(holder in src.master.contents))
|
|
if(master.scan_program == src)
|
|
master.scan_program = null
|
|
return 1
|
|
|
|
return 0
|
|
|
|
//Health analyzer program
|
|
health_scan
|
|
name = "Health Scan"
|
|
size = 8.0
|
|
|
|
scan_atom(atom/A as mob|obj|turf|area)
|
|
if(..())
|
|
return
|
|
|
|
var/mob/living/carbon/C = A
|
|
if(!istype(C))
|
|
return
|
|
|
|
var/dat = "\blue Analyzing Results for [C]:\n"
|
|
dat += "\blue \t Overall Status: [C.stat > 1 ? "dead" : "[C.health]% healthy"]\n"
|
|
dat += "\blue \t Damage Specifics: [C.oxyloss > 50 ? "\red" : "\blue"][C.oxyloss]-[C.toxloss > 50 ? "\red" : "\blue"][C.toxloss]-[C.fireloss > 50 ? "\red" : "\blue"][C.fireloss]-[C.bruteloss > 50 ? "\red" : "\blue"][C.bruteloss]\n"
|
|
dat += "\blue \t Key: Suffocation/Toxin/Burns/Brute\n"
|
|
dat += "\blue \t Body Temperature: [C.bodytemperature-T0C]°C ([C.bodytemperature*1.8-459.67]°F)"
|
|
if(C.virus)
|
|
dat += "\red \n<b>Warning Virus Detected.</b>\nName: [C.virus.name].\nType: [C.virus.spread].\nStage: [C.virus.stage]/[C.virus.max_stages].\nPossible Cure: [C.virus.cure]"
|
|
|
|
return dat
|
|
|
|
//Forensic scanner
|
|
forensic_scan
|
|
name = "Forensic Scan"
|
|
size = 8.0
|
|
|
|
scan_atom(atom/A as mob|obj|turf|area)
|
|
if(..())
|
|
return
|
|
var/dat = null
|
|
|
|
if(istype(A,/mob/living/carbon/human))
|
|
var/mob/living/carbon/human/H = A
|
|
if (!istype(H.dna, /datum/dna) || !isnull(H.gloves))
|
|
dat += "\blue Unable to scan [A]'s fingerprints.\n"
|
|
else
|
|
dat += "\blue [H]'s Fingerprints: [md5(H.dna.uni_identity)]\n"
|
|
if ( !(H.blood_DNA) )
|
|
dat += "\blue No blood found on [H]\n"
|
|
else
|
|
dat += "\blue Blood type: [H.blood_type]\nDNA: [H.blood_DNA]\n"
|
|
|
|
if (!A.fingerprints)
|
|
dat += "\blue Unable to locate any fingerprints on [A]!\n"
|
|
else
|
|
var/list/L = params2list(A:fingerprints)
|
|
dat += "\blue Isolated [L.len] fingerprints.\n"
|
|
for(var/i in L)
|
|
dat += "\blue \t [i]\n"
|
|
|
|
return dat
|
|
|
|
|
|
//Reagent scanning program
|
|
reagent_scan
|
|
name = "Reagent Scan"
|
|
size = 6.0
|
|
|
|
scan_atom(atom/A as mob|obj|turf|area)
|
|
if(..())
|
|
return
|
|
var/dat = null
|
|
if(!isnull(A.reagents))
|
|
if(A.reagents.reagent_list.len > 0)
|
|
var/reagents_length = A.reagents.reagent_list.len
|
|
dat += "\blue [reagents_length] chemical agent[reagents_length > 1 ? "s" : ""] found.\n"
|
|
for (var/datum/reagent/re in A.reagents.reagent_list)
|
|
dat += "\blue \t [re] - [re.volume]\n"
|
|
else
|
|
dat = "\blue No active chemical agents found in [A]."
|
|
else
|
|
dat = "\blue No significant chemical agents found in [A]."
|
|
|
|
return dat
|