#define MALFUNCTION_TEMPORARY 1 #define MALFUNCTION_PERMANENT 2 /obj/item/weapon/implant name = "implant" icon = 'icons/obj/device.dmi' icon_state = "implant" var/implanted = null var/mob/living/imp_in = null var/obj/item/organ/external/part = null _color = "b" var/allow_reagents = 0 var/malfunction = 0 proc/trigger(emote, source as mob) return proc/activate() return // What does the implant do upon injection? // return 0 if the implant fails (ex. Revhead and loyalty implant.) // return 1 if the implant succeeds (ex. Nonrevhead and loyalty implant.) proc/implanted(var/mob/source) return 1 proc/get_data() return "No information available" proc/hear(message, source as mob) return proc/islegal() return 0 proc/meltdown() //breaks it down, making implant unrecongizible imp_in << "\red You feel something melting inside [part ? "your [part.name]" : "you"]!" if (part) part.take_damage(burn = 15, used_weapon = "Electronics meltdown") else var/mob/living/M = imp_in M.apply_damage(15,BURN) name = "melted implant" desc = "Charred circuit in melted plastic case. Wonder what that used to be..." icon_state = "implant_melted" malfunction = MALFUNCTION_PERMANENT Destroy() if(part) part.implants.Remove(src) return ..() /obj/item/weapon/implant/tracking name = "tracking" desc = "Track with this." var/id = 1.0 get_data() var/dat = {"Implant Specifications:
Name: Tracking Beacon
Life: 10 minutes after death of host
Important Notes: None

Implant Details:
Function: Continuously transmits low power signal. Useful for tracking.
Special Features:
Neuro-Safe- Specialized shell absorbs excess voltages self-destructing the chip if a malfunction occurs thereby securing safety of subject. The implant will melt and disintegrate into bio-safe elements.
Integrity: Gradient creates slight risk of being overcharged and frying the circuitry. As a result neurotoxins can cause massive damage.

Implant Specifics:
"} return dat emp_act(severity) if (malfunction) //no, dawg, you can't malfunction while you are malfunctioning return malfunction = MALFUNCTION_TEMPORARY var/delay = 20 switch(severity) if(1) if(prob(60)) meltdown() if(2) delay = rand(5*60*10,15*60*10) //from 5 to 15 minutes of free time spawn(delay) malfunction-- /obj/item/weapon/implant/dexplosive name = "explosive" desc = "And boom goes the weasel." icon_state = "implant_evil" get_data() var/dat = {" Implant Specifications:
Name: Robust Corp RX-78 Employee Management Implant
Life: Activates upon death.
Important Notes: Explodes

Implant Details:
Function: Contains a compact, electrically detonated explosive that detonates upon receiving a specially encoded signal or upon host death.
Special Features: Explodes
Integrity: Implant will occasionally be degraded by the body's immune system and thus will occasionally malfunction."} return dat hear_talk(mob/M as mob, msg) hear(msg) return hear(var/msg) var/list/replacechars = list("'" = "","\"" = "",">" = "","<" = "","(" = "",")" = "") msg = sanitize_simple(msg, replacechars) if(findtext(msg,phrase)) activate() qdel(src) activate() if (malfunction == MALFUNCTION_PERMANENT) return var/need_gib = null if(istype(imp_in, /mob/)) var/mob/T = imp_in message_admins("Explosive implant triggered in [T] ([T.key]). (JMP) ") log_game("Explosive implant triggered in [T] ([T.key]).") need_gib = 1 if(ishuman(imp_in)) if (elevel == "Localized Limb") if(part) //For some reason, small_boom() didn't work. So have this bit of working copypaste. imp_in.visible_message("\red Something beeps inside [imp_in][part ? "'s [part.name]" : ""]!") playsound(loc, 'sound/items/countdown.ogg', 75, 1, -3) sleep(25) if (istype(part,/obj/item/organ/external/chest) || \ istype(part,/obj/item/organ/external/groin) || \ istype(part,/obj/item/organ/external/head)) part.createwound(BRUISE, 60) //mangle them instead explosion(get_turf(imp_in), -1, -1, 2, 3) qdel(src) else explosion(get_turf(imp_in), -1, -1, 2, 3) part.droplimb() qdel(src) if (elevel == "Destroy Body") explosion(get_turf(T), -1, 0, 1, 6) T.gib() if (elevel == "Full Explosion") explosion(get_turf(T), 0, 1, 3, 6) T.gib() else explosion(get_turf(imp_in), 0, 1, 3, 6) if(need_gib) imp_in.gib() var/turf/t = get_turf(imp_in) if(t) t.hotspot_expose(3500,125) implanted(mob/source as mob) elevel = alert("What sort of explosion would you prefer?", "Implant Intent", "Localized Limb", "Destroy Body", "Full Explosion") phrase = input("Choose activation phrase:") as text var/list/replacechars = list("'" = "","\"" = "",">" = "","<" = "","(" = "",")" = "") phrase = sanitize_simple(phrase, replacechars) usr.mind.store_memory("Explosive implant in [source] can be activated by saying something containing the phrase ''[src.phrase]'', say [src.phrase] to attempt to activate.", 0, 0) usr << "The implanted explosive implant in [source] can be activated by saying something containing the phrase ''[src.phrase]'', say [src.phrase] to attempt to activate." return 1 emp_act(severity) if (malfunction) return malfunction = MALFUNCTION_TEMPORARY switch (severity) if (2.0) //Weak EMP will make implant tear limbs off. if (prob(50)) small_boom() if (1.0) //strong EMP will melt implant either making it go off, or disarming it if (prob(70)) if (prob(50)) small_boom() else if (prob(50)) activate() //50% chance of bye bye else meltdown() //50% chance of implant disarming spawn (20) malfunction-- islegal() return 0 proc/small_boom() if (ishuman(imp_in) && part) imp_in.visible_message("\red Something beeps inside [imp_in][part ? "'s [part.name]" : ""]!") playsound(loc, 'sound/items/countdown.ogg', 75, 1, -3) spawn(25) if (ishuman(imp_in) && part) //No tearing off these parts since it's pretty much killing //and you can't replace groins if (istype(part,/obj/item/organ/external/chest) || \ istype(part,/obj/item/organ/external/groin) || \ istype(part,/obj/item/organ/external/head)) part.createwound(BRUISE, 60) //mangle them instead else part.droplimb() explosion(get_turf(imp_in), -1, -1, 2, 3) qdel(src) /obj/item/weapon/implant/chem name = "chem" desc = "Injects things." allow_reagents = 1 get_data() var/dat = {" Implant Specifications:
Name: Robust Corp MJ-420 Prisoner Management Implant
Life: Deactivates upon death but remains within the body.
Important Notes: Due to the system functioning off of nutrients in the implanted subject's body, the subject
will suffer from an increased appetite.

Implant Details:
Function: Contains a small capsule that can contain various chemicals. Upon receiving a specially encoded signal
the implant releases the chemicals directly into the blood stream.
Special Features: Micro-Capsule- Can be loaded with any sort of chemical agent via the common syringe and can hold 50 units.
Can only be loaded while still in its original case.
Integrity: Implant will last so long as the subject is alive. However, if the subject suffers from malnutrition,
the implant may become unstable and either pre-maturely inject the subject or simply break."} return dat New() ..() var/datum/reagents/R = new/datum/reagents(50) reagents = R R.my_atom = src trigger(emote, source as mob) if(emote == "deathgasp") src.activate(src.reagents.total_volume) return activate(var/cause) if((!cause) || (!src.imp_in)) return 0 var/mob/living/carbon/R = src.imp_in src.reagents.trans_to(R, cause) R << "You hear a faint *beep*." if(!src.reagents.total_volume) R << "You hear a faint click from your chest." spawn(0) qdel(src) return emp_act(severity) if (malfunction) return malfunction = MALFUNCTION_TEMPORARY switch(severity) if(1) if(prob(60)) activate(20) if(2) if(prob(30)) activate(5) spawn(20) malfunction-- /obj/item/weapon/implant/loyalty name = "loyalty" desc = "Makes you loyal or such." get_data() var/dat = {" Implant Specifications:
Name: Nanotrasen Employee Management Implant
Life: Ten years.
Important Notes: Personnel injected with this device tend to be much more loyal to the company.

Implant Details:
Function: Contains a small pod of nanobots that manipulate the host's mental functions.
Special Features: Will prevent and cure most forms of brainwashing.
Integrity: Implant will last so long as the nanobots are inside the bloodstream."} return dat implanted(mob/M) if(!istype(M, /mob/living/carbon/human)) return 0 var/mob/living/carbon/human/H = M if(H.mind in ticker.mode.head_revolutionaries) H.visible_message("[H] seems to resist the implant!", "You feel the corporate tendrils of Nanotrasen try to invade your mind!") return 0 else if(H.mind in ticker.mode:revolutionaries) ticker.mode:remove_revolutionary(H.mind) H << "You feel a surge of loyalty towards Nanotrasen." return 1 /obj/item/weapon/implant/traitor name = "Mindslave Implant" desc = "Divide and Conquer" icon_state = "implant_evil" get_data() var/dat = {" Implant Specifications:
Name: Mind-Slave Implant
Life: ???
Important Notes: Any humanoid injected with this implant will become loyal to the injector, unless of course the host is already loyal to someone else.

Implant Details:
Function: Contains a small pod of nanobots that manipulate the host's mental functions.
Special Features: Diplomacy was never so easy.
Integrity: Implant will last so long as the nanobots are inside the bloodstream."} return dat implanted(mob/M, mob/user) var/list/implanters var/ref = "\ref[user.mind]" if(!ishuman(M)) return 0 if(!M.mind) return 0 var/mob/living/carbon/human/H = M if(M == user) user << "Making yourself loyal to yourself was a great idea! Perhaps even the best idea ever! Actually, you just feel like an idiot." if(isliving(user)) user:brainloss += 20 return if(locate(/obj/item/weapon/implant/loyalty) in H.contents) H.visible_message("[H] seems to resist the implant!", "You feel a strange sensation in your head that quickly dissipates.") return 0 if(locate(/obj/item/weapon/implant/traitor) in H.contents) H.visible_message("[H] seems to resist the implant!", "You feel a strange sensation in your head that quickly dissipates.") return 0 H.implanting = 1 H << "You feel completely loyal to [user.name]." if(!(user.mind in ticker.mode:implanter)) ticker.mode:implanter[ref] = list() implanters = ticker.mode:implanter[ref] implanters.Add(H.mind) ticker.mode.implanted.Add(H.mind) ticker.mode.implanted[H.mind] = user.mind //ticker.mode:implanter[user.mind] += H.mind ticker.mode:implanter[ref] = implanters ticker.mode.traitors += H.mind H.mind.special_role = "traitor" H << "You're now completely loyal to [user.name]! You now must lay down your life to protect them and assist in their goals at any cost." var/datum/objective/protect/p = new p.owner = H.mind p.target = user:mind p.explanation_text = "Obey every order from and protect [user:real_name], the [user:mind:assigned_role=="MODE" ? (user:mind:special_role) : (user:mind:assigned_role)]." H.mind.objectives += p for(var/datum/objective/objective in H.mind.objectives) H << "Objective #1: [objective.explanation_text]" ticker.mode.update_traitor_icons_added(H.mind) ticker.mode.update_traitor_icons_added(user.mind) log_admin("[ckey(user.key)] has mind-slaved [ckey(H.key)].") return 1 /obj/item/weapon/implant/adrenalin name = "adrenalin" desc = "Removes all stuns and knockdowns." var/uses = 3 get_data() var/dat = {" Implant Specifications:
Name: Cybersun Industries Adrenalin Implant
Life: Five days.
Important Notes: Illegal

Implant Details: Subjects injected with implant can activate an injection of medical cocktails.
Function: Removes stuns, increases speed, and has a mild healing effect.
Special Features: Will prevent and cure most forms of brainwashing.
Integrity: Implant can only be used three times before the nanobots are depleted."} return dat trigger(emote, mob/source as mob) if (src.uses < 1) return 0 if (emote == "pale") src.uses-- source << "\blue You feel a sudden surge of energy!" source.SetStunned(0) source.SetWeakened(0) source.SetParalysis(0) imp_in.adjustStaminaLoss(-75) source.lying = 0 source.update_canmove() source.reagents.add_reagent("synaptizine", 10) source.reagents.add_reagent("omnizine", 10) source.reagents.add_reagent("methamphetamine", 10) return implanted(mob/source) source.mind.store_memory("A implant can be activated by using the pale emote, say *pale to attempt to activate.", 0, 0) source << "The implanted freedom implant can be activated by using the pale emote, say *pale to attempt to activate." return 1 /obj/item/weapon/implant/death_alarm name = "death alarm implant" desc = "An alarm which monitors host vital signs and transmits a radio message upon death." var/mobname = "Will Robinson" get_data() var/dat = {" Implant Specifications:
Name: Nanotrasen \"Profit Margin\" Class Employee Lifesign Sensor
Life: Activates upon death.
Important Notes: Alerts crew to crewmember death.

Implant Details:
Function: Contains a compact radio signaler that triggers when the host's lifesigns cease.
Special Features: Alerts crew to crewmember death.
Integrity: Implant will occasionally be degraded by the body's immune system and thus will occasionally malfunction."} return dat process() if (!implanted) return var/mob/M = imp_in if(isnull(M)) // If the mob got gibbed activate() else if(M.stat == 2) activate("death") activate(var/cause) var/mob/M = imp_in var/area/t = get_area(M) switch (cause) if("death") var/obj/item/device/radio/headset/a = new /obj/item/device/radio/headset(null) if(istype(t, /area/syndicate_station) || istype(t, /area/syndicate_mothership) || istype(t, /area/shuttle/syndicate_elite) ) //give the syndies a bit of stealth a.autosay("[mobname] has died in Space!", "[mobname]'s Death Alarm") else a.autosay("[mobname] has died in [t.name]!", "[mobname]'s Death Alarm") qdel(a) processing_objects.Remove(src) if ("emp") var/obj/item/device/radio/headset/a = new /obj/item/device/radio/headset(null) var/name = prob(50) ? t.name : pick(teleportlocs) a.autosay("[mobname] has died in [name]!", "[mobname]'s Death Alarm") qdel(a) else var/obj/item/device/radio/headset/a = new /obj/item/device/radio/headset(null) a.autosay("[mobname] has died-zzzzt in-in-in...", "[mobname]'s Death Alarm") qdel(a) processing_objects.Remove(src) emp_act(severity) //for some reason alarms stop going off in case they are emp'd, even without this if (malfunction) //so I'm just going to add a meltdown chance here return malfunction = MALFUNCTION_TEMPORARY activate("emp") //let's shout that this dude is dead if(severity == 1) if(prob(40)) //small chance of obvious meltdown meltdown() else if (prob(60)) //but more likely it will just quietly die malfunction = MALFUNCTION_PERMANENT processing_objects.Remove(src) spawn(20) malfunction-- implanted(mob/source as mob) mobname = source.real_name processing_objects.Add(src) return 1 /obj/item/weapon/implant/compressed name = "compressed matter implant" desc = "Based on compressed matter technology, can store a single item." icon_state = "implant_evil" var/activation_emote = "sigh" var/obj/item/scanned = null get_data() var/dat = {" Implant Specifications:
Name: Nanotrasen \"Profit Margin\" Class Employee Lifesign Sensor
Life: Activates upon death.
Important Notes: Alerts crew to crewmember death.

Implant Details:
Function: Contains a compact radio signaler that triggers when the host's lifesigns cease.
Special Features: Alerts crew to crewmember death.
Integrity: Implant will occasionally be degraded by the body's immune system and thus will occasionally malfunction."} return dat trigger(emote, mob/source as mob) if (src.scanned == null) return 0 if (emote == src.activation_emote) source << "The air glows as \the [src.scanned.name] uncompresses." activate() activate() var/turf/t = get_turf(src) if (imp_in) imp_in.put_in_hands(scanned) else scanned.loc = t qdel(src) implanted(mob/source as mob) src.activation_emote = input("Choose activation emote:") in list("blink", "blink_r", "eyebrow", "chuckle", "twitch_s", "frown", "nod", "blush", "giggle", "grin", "groan", "shrug", "smile", "pale", "sniff", "whimper", "wink") if (source.mind) source.mind.store_memory("Compressed matter implant can be activated by using the [src.activation_emote] emote, say *[src.activation_emote] to attempt to activate.", 0, 0) source << "The implanted compressed matter implant can be activated by using the [src.activation_emote] emote, say *[src.activation_emote] to attempt to activate." return 1 islegal() return 0 /obj/item/weapon/implant/cortical name = "cortical stack" desc = "A fist-sized mass of biocircuits and chips." icon_state = "implant_evil" /obj/item/weapon/implant/emp name = "emp implant" desc = "Triggers an EMP." var/activation_emote = "chuckle" var/uses = 2 /obj/item/weapon/implant/emp/New() activation_emote = pick("blink", "blink_r", "eyebrow", "chuckle", "twitch_s", "frown", "nod", "blush", "giggle", "grin", "groan", "smile", "pale", "sniff", "whimper", "wink") ..() return /obj/item/weapon/implant/emp/trigger(emote, mob/living/carbon/source as mob) if (src.uses < 1) return 0 if (emote == src.activation_emote) src.uses-- empulse(source, 3, 5) return /obj/item/weapon/implant/emp/implanted(mob/living/carbon/source) source.mind.store_memory("EMP implant can be activated [uses] time\s by using the [src.activation_emote] emote, say *[src.activation_emote] to attempt to activate.", 0, 0) source << "The implanted EMP implant can be activated [uses] time\s by using the [src.activation_emote] emote, say *[src.activation_emote] to attempt to activate." return 1