TG: Not a whole lot going on in this commit, just more work on preparation for the

traitor factions update. Added some new sprites and weapons.

New weapon: Delivery grenade. Can spawn an x amount of mob/object y in a
constant radius. It is currently used for carp and manhack delivery grenades.

!! Important !!: Certain telecomms computers were causing very nasty machine
disruption through some very silly mishap involving re-programming a computer's
network. Basically, it was breaking machine procs every time you messed with
them. This should hopefully make telecomms a lot more stable.

Fixed a bug where the reflexes nanoaug would not actually dodge the projectile
if the person was clicking directly inside the target's 32x32 border.

I changed around some core PDA messaging functions in preparation to PDA
Chatrooms (yes Legality it's happening). However I'm going to hold off actually
implementing it until Messycakes is either completed with his PDA UI overhaul or
just stops working on it.

Committed two patches from separate people in the forums. Chemical Cigarettes by
Neek (http://nanotrasen.com/phpBB3/viewtopic.php?f=16&t=8775) and Clicking
genetics blocks by Willox
(http://nanotrasen.com/phpBB3/viewtopic.php?f=16&t=8857). Check their respective
threads for more details. Sorry I couldn't get this earlier, guys!
Revision: r3755
Author: 	 vageyenaman

code/game/objects/devices/PDA/PDA.dm

@@ -243,6 +243,7 @@
 				dat += "<li><a href='byond://?src=\ref[src];choice=1'><img src=pda_notes.png> Notekeeper</a></li>"
 				dat += "<li><a href='byond://?src=\ref[src];choice=2'><img src=pda_mail.png> Messenger</a></li>"
 				dat += "<li><a href='byond://?src=\ref[src];choice=41'><img src=pda_notes.png> View Crew Manifest</a></li>"
+				//dat += "<li><a href='byond://?src=\red[src];choice=chatroom'><img src=pda_chatroom.png> Nanotrasen Relay Chat</a></li>"
 
 				if (cartridge)
 					if (cartridge.access_clown)
@@ -382,6 +383,17 @@
 							dat += "OTHER: [round(unknown_level)]%<br>"
 					dat += "Temperature: [round(environment.temperature-T0C)]&deg;C<br>"
 				dat += "<br>"
+
+			if (5)
+				dat += "<h4><img src=pda_chatroom.png> Nanotrasen Relay Chat</h4>"
+
+				dat += "<h4><img src=pda_menu.png> Detected Channels</h4>: <li>"
+				for(var/datum/chatroom/C in chatrooms)
+					dat += "<a href='byond://?src=\ref[src];pdachannel=[C.name]'>#[html_encode(lowertext(C.name))]"
+					if(C.password != "")
+						dat += " <img src=pda_locked.png>"
+					dat += "</li>"
+
 			if (41) //crew manifest
 
 				dat += "<h4><img src=pda_notes.png> Crew Manifest</h4>"
@@ -454,12 +466,14 @@
 					mode = 2
 				if("21")//Read messeges
 					mode = 21
-				if("41")//Read messeges
+				if("41")//Check Manifest
 					mode = 41
 				if("3")//Atmos scan
 					mode = 3
 				if("4")//Redirects to hub
 					mode = 0
+				if("chatroom") // chatroom hub
+					mode = 5
 
 
 //MAIN FUNCTIONS===================================
@@ -555,70 +569,84 @@
 							return
 
 						last_text = world.time
+						// check if telecomms I/O route 1459 is stable
+						//var/telecomms_intact = telecomms_process(P.owner, owner, t)
+						var/obj/machinery/message_server/useMS = null
+						if(message_servers)
+							for (var/obj/machinery/message_server/MS in message_servers)
+							//PDAs are now dependant on the Message Server.
+								if(MS.active)
+									useMS = MS
+									break
+						if(useMS) // only send the message if it's stable
+							useMS.send_pda_message("[P.owner]","[owner]","[t]")
 
+							tnote += "<i><b>&rarr; To [P.owner]:</b></i><br>[t]<br>"
+							P.tnote += "<i><b>&larr; From <a href='byond://?src=\ref[P];choice=Message;target=\ref[src]'>[owner]</a> ([ownjob]):</b></i><br>[t]<br>"
 
-						var/AnsweringMS = 0
-						for (var/obj/machinery/message_server/MS in world)
-							MS.send_pda_message("[P.owner]","[owner]","[t]")
-							if(MS.active)
-								AnsweringMS++
+							// Give every ghost the ability to see all messages
+							for (var/mob/dead/observer/G in world)
+								G.show_message("<i>PDA message from <b>[src.owner]</b> to <b>[P:owner]</b>: [t]</i>")
+	
+							if (prob(15)) //Give the AI a chance of intercepting the message
+								var/who = src.owner
+								if(prob(50))
+									who = P:owner
+								for(var/mob/living/silicon/ai/ai in world)
+									ai.show_message("<i>Intercepted message from <b>[who]</b>: [t]</i>")
 
-						if(!AnsweringMS)
-							return
-
-						tnote += "<i><b>&rarr; To [P.owner]:</b></i><br>[t]<br>"
-						P.tnote += "<i><b>&larr; From <a href='byond://?src=\ref[P];choice=Message;target=\ref[src]'>[owner]</a> ([ownjob]):</b></i><br>[t]<br>"
-
-						// Give every ghost the ability to see all messages
-						for (var/mob/dead/observer/G in world)
-							G.show_message("<i>PDA message from <b>[src.owner]</b> to <b>[P:owner]</b>: [t]</i>")
-
-						if (prob(15)) //Give the AI a chance of intercepting the message
-							var/who = src.owner
-							if(prob(50))
-								who = P:owner
-							for(var/mob/living/silicon/ai/ai in world)
-								ai.show_message("<i>Intercepted message from <b>[who]</b>: [t]</i>")
-
-						if (!P.silent)
-							playsound(P.loc, 'twobeep.ogg', 50, 1)
-							for (var/mob/O in hearers(3, P.loc))
-								O.show_message(text("\icon[P] *[P.ttone]*"))
-							if( P.loc && ishuman(P.loc) )
-								var/mob/living/carbon/human/H = P.loc
-								H << "\icon[P] <b>Message from [src.owner] ([ownjob]), </b>\"[t]\" (<a href='byond://?src=\ref[P];choice=Message;skiprefresh=1;target=\ref[src]'>Reply</a>)"
-
-						P.overlays = null
-						P.overlays += image('pda.dmi', "pda-r")
+							if (!P.silent)
+								playsound(P.loc, 'twobeep.ogg', 50, 1)
+								for (var/mob/O in hearers(3, P.loc))
+									O.show_message(text("\icon[P] *[P.ttone]*"))
+								if( P.loc && ishuman(P.loc) )
+									var/mob/living/carbon/human/H = P.loc
+									H << "\icon[P] <b>Message from [src.owner] ([ownjob]), </b>\"[t]\" (<a href='byond://?src=\ref[P];choice=Message;skiprefresh=1;target=\ref[src]'>Reply</a>)"
+							log_pda("[usr] (PDA: [src.name]) sent \"[t]\" to [P.name]")
+							P.overlays = null
+							P.overlays += image('pda.dmi', "pda-r")
+						else
+							U << "ERROR: Server isn't responding."
 
 					// pAI Message
 					else
 
-						var/AnsweringMS = 0
-						for (var/obj/machinery/message_server/MS in world)
-							MS.send_pda_message("[P]","[src]","[t]")
-							if(MS.active)
-								AnsweringMS++
+						//var/telecomms_intact = telecomms_process(P.owner, owner, t)
+						var/obj/machinery/message_server/useMS = null
+						if(message_servers)
+							for (var/obj/machinery/message_server/MS in message_servers)
+							//PDAs are now dependant on the Message Server.
+								if(MS.active)
+									useMS = MS
+									break
+						if(useMS) // only send the message if it's stable
+							useMS.send_pda_message("[P.owner]","[owner]","[t]")
+							tnote += "<i><b>&rarr; To [P]:</b></i><br>[t]<br>"
+							P.tnote += "<i><b>&larr; From <a href='byond://?src=\ref[P];soft=pdamessage;target=\ref[src]'>[src]</a>:</b></i><br>[t]<br>"
 
-						if(!AnsweringMS)
-							return
+							// Give every ghost the ability to see all messages
+							for (var/mob/dead/observer/G in world)
+								G.show_message("<i>PDA message from <b>[src.owner]</b> to <b>[P:owner]</b>: [t]</i>")
 
+							if (prob(15)) //Give the AI a chance of intercepting the message
+								var/who = src
+								if(prob(50))
+									who = P
+								for (var/mob/living/silicon/ai/ai in world)
+									ai.show_message("<i>Intercepted message from <b>[who]</b>: [t]</i>")
 
-						tnote += "<i><b>&rarr; To [P]:</b></i><br>[t]<br>"
-						P.tnote += "<i><b>&larr; From <a href='byond://?src=\ref[P];soft=pdamessage;target=\ref[src]'>[src]</a>:</b></i><br>[t]<br>"
+							if (!P.silent)
+								playsound(P.loc, 'twobeep.ogg', 50, 1)
+								for (var/mob/O in hearers(3, P.loc))
+									O.show_message(text("\icon[P] *[P.ttone]*"))
+								if( P.loc && ishuman(P.loc) )
+									var/mob/living/carbon/human/H = P.loc
+									H << "\icon[P] <b>Message from [src.owner] ([ownjob]), </b>\"[t]\" (<a href='byond://?src=\ref[P];choice=Message;skiprefresh=1;target=\ref[src]'>Reply</a>)"
+							log_pda("[usr] (PDA: [src.name]) sent \"[t]\" to [P.name]")
+						else
+							U << "ERROR: Server isn't responding."
 
 
-						if (prob(15)) //Give the AI a chance of intercepting the message
-							var/who = src
-							if(prob(50))
-								who = P
-							for (var/mob/living/silicon/ai/ai in world)
-								ai.show_message("<i>Intercepted message from <b>[who]</b>: [t]</i>")
-
-						playsound(P.loc, 'twobeep.ogg', 50, 1)
-
-					log_pda("[usr] (PDA: [src.name]) sent \"[t]\" to [P.name]")
-
 
 				if("Send Honk")//Honk virus
 					if(istype(cartridge, /obj/item/weapon/cartridge/clown))//Cartridge checks are kind of unnecessary since everything is done through switch.
@@ -756,6 +784,37 @@
 		id.loc = get_turf(src)
 		id = null
 
+/obj/item/device/pda/proc/telecomms_process(var/receipent, var/originator, var/data)
+	var/telecomms_intact = 0
+	/* Make sure telecomms is intact */
+	for (var/obj/machinery/telecomms/receiver/R in world)
+
+		if((1459 in R.freq_listening) && R.on)
+
+			for (var/obj/machinery/telecomms/bus/B in R.links)
+
+				if((1459 in B.freq_listening) && B.on)
+
+					for(var/obj/machinery/telecomms/server/S in B.links)
+
+						if((1459 in S.freq_listening) && S.on)
+							// Add a log
+							S.add_entry("[originator] sent to [receipent]: \"[data]\"", "PDA log")
+
+							for(var/obj/machinery/telecomms/broadcaster/C in S.links)
+
+								if(((1459 in C.freq_listening  || C.freq_listening.len == 0)) && C.on)
+
+									telecomms_intact = 1
+									break
+
+							break
+					break
+			break
+
+	return telecomms_intact
+
+
 /obj/item/device/pda/verb/verb_remove_id()
 	set category = "Object"
 	set name = "Remove id"

code/game/objects/items/weapons/cigs_lighters.dm

@@ -122,9 +122,17 @@ ZIPPO
 	var/icon_butt = "cigbutt"
 	var/lastHolder = null
 	var/smoketime = 300
+	var/chem_volume = 15
 	var/butt_count = 5  //count of butt sprite variations
 
+/obj/item/clothing/mask/cigarette/New()
+	..()
+	flags |= NOREACT // so it doesn't react until you light it
+	create_reagents(chem_volume) // making the cigarrete a chemical holder with a maximum volume of 15
 
+/obj/item/clothing/mask/cigarette/Del()
+	..()
+	del(reagents)
 
 /obj/item/clothing/mask/cigarette/attackby(obj/item/weapon/W as obj, mob/user as mob)
 	..()
@@ -155,10 +163,37 @@ ZIPPO
 	return
 
 
+/obj/item/clothing/mask/cigarette/afterattack(obj/item/weapon/reagent_containers/glass/glass, mob/user as mob)
+	..()
+	if(istype(glass)) // you can dip cigarettes into beakers
+		var/transfered = glass.reagents.trans_to(src, chem_volume)
+		if(transfered) // if reagents were transfered, show the message
+			user << "\blue You dip \the [src] into \the [glass]."
+		else // if not, either the beaker was empty, or the cigarette was full
+			if(!glass.reagents.total_volume)
+				user << "\red [glass] is empty."
+			else
+				user << "\red [src] is full."
+
+
 /obj/item/clothing/mask/cigarette/proc/light(var/flavor_text = "[usr] lights the [name].")
 	if(!src.lit)
 		src.lit = 1
 		src.damtype = "fire"
+		if(reagents.get_reagent_amount("plasma")) // the plasma explodes when exposed to fire
+			var/datum/effect/effect/system/reagents_explosion/e = new()
+			e.set_up(round (src.reagents.get_reagent_amount("plasma")/2.5, 1), get_turf(src), 0, 0)
+			e.start()
+			del(src)
+			return
+		if(reagents.get_reagent_amount("fuel")) // the fuel explodes, too, but much less violently
+			var/datum/effect/effect/system/reagents_explosion/e = new()
+			e.set_up(round (src.reagents.get_reagent_amount("fuel")/5, 1), get_turf(src), 0, 0)
+			e.start()
+			del(src)
+			return
+		src.flags &= ~NOREACT // allowing reagents to react after being lit
+		src.reagents.handle_reactions()
 		src.icon_state = icon_on
 		src.item_state = icon_on
 		for(var/mob/O in viewers(usr, null))
@@ -181,6 +216,14 @@ ZIPPO
 		return
 	if(location)
 		location.hotspot_expose(700, 5)
+	if(reagents && reagents.total_volume)	//	check if it has any reagents at all
+		if( iscarbon(src.loc) && (src == loc:wear_mask) ) // if it's in the human/monkey mouth, transfer reagents to the mob
+			var/mob/living/carbon/C = loc
+			if(prob(15)) // so it's not an instarape in case of acid
+				reagents.reaction(C, INGEST)
+			reagents.trans_to(C, REAGENTS_METABOLISM)
+		else // else just remove some of the reagents
+			reagents.remove_any(REAGENTS_METABOLISM)
 	return
 
 
@@ -214,6 +257,7 @@ ZIPPO
 	throw_speed = 0.5
 	item_state = "cigaroff"
 	smoketime = 1500
+	chem_volume = 20
 	butt_count = 0
 
 /obj/item/clothing/mask/cigarette/cigar/cohiba
@@ -230,6 +274,7 @@ ZIPPO
 	icon_on = "cigar2on"
 	icon_off = "cigar2off"
 	smoketime = 7200
+	chem_volume = 30
 
 /obj/item/weapon/cigbutt
 	name = "cigarette butt"
@@ -360,6 +405,14 @@ ZIPPO
 	slot_flags = SLOT_BELT
 	var/cigcount = 6
 
+	New()
+		..()
+		flags |= NOREACT
+		create_reagents(15)//so people can inject cigarettes without opening a packet
+
+	Del()
+		..()
+		del(reagents)
 
 	update_icon()
 		icon_state = "[initial(icon_state)][cigcount]"
@@ -375,6 +428,7 @@ ZIPPO
 			else
 				cigcount--
 				var/obj/item/clothing/mask/cigarette/W = new /obj/item/clothing/mask/cigarette(user)
+				reagents.trans_to(W, reagents.total_volume)
 				user.put_in_hand(W)
 		else
 			return ..()

code/game/objects/items/weapons/grenades.dm

@@ -2,6 +2,7 @@
 CONTAINS:
 EMP GRENADE
 FLASHBANG
+CRITTER GRENADE
 
 */
 
@@ -231,6 +232,7 @@ FLASHBANG
 		else
 			if (M.ear_damage >= 5)
 				M << "\red Your ears start to ring!"
+		M.update_icons()
 
 	prime()													// Prime now just handles the two loops that query for people in lockers and people who can see it.
 		var/turf/T = get_turf(src)
@@ -289,7 +291,7 @@ FLASHBANG
 
 /obj/item/weapon/flashbang/clusterbang
 	desc = "Use of this weapon may constiute a war crime in your area, consult your local captain."
-	name = "Clusterbang"
+	name = "clusterbang"
 	icon = 'grenade.dmi'
 	icon_state = "clusterbang"
 	var/child = 0
@@ -367,6 +369,159 @@ FLASHBANG
 
 
 
+/****************************Critter Grenades***********************************************/
+
+
+/obj/item/weapon/spawnergrenade
+	desc = "It is set to detonate in 3 seconds. It will unleash unleash an unspecified anomaly into the vicinity."
+	name = "delivery grenade"
+	icon = 'grenade.dmi'
+	icon_state = "delivery"
+	w_class = 2.0
+	item_state = "flashbang"
+	throw_speed = 4
+	throw_range = 20
+	flags = FPRINT | TABLEPASS | CONDUCT
+	slot_flags = SLOT_BELT
+	origin_tech = "materials=3;magnets=4"
+	var/active = 0
+	var/det_time = 30
+	var/banglet = 0
+	var/spawner_type = null // must be an object path
+	var/deliveryamt = 1 // amount of type to deliver
+
+
+	proc/prime()
+		return
+
+	proc/clown_check(var/mob/living/user)
+		return
+
+	attackby(obj/item/weapon/W as obj, mob/user as mob)
+		if (isscrewdriver(W))
+			switch(src.det_time)
+				if ("1")
+					src.det_time = 30
+					user.show_message("\blue You set the delivery grenade for 3 second detonation time.")
+					src.desc = "It is set to detonate in 3 seconds."
+				if ("30")
+					src.det_time = 100
+					user.show_message("\blue You set the delivery grenade for 10 second detonation time.")
+					src.desc = "It is set to detonate in 10 seconds."
+				if ("100")
+					src.det_time = 1
+					user.show_message("\blue You set the delivery grenade for instant detonation.")
+					src.desc = "It is set to detonate instantly."
+			src.add_fingerprint(user)
+		..()
+		return
+
+
+	afterattack(atom/target as mob|obj|turf|area, mob/user as mob)
+		if (istype(target, /obj/item/weapon/storage)) return ..() // Trying to put it in a full container
+		if (istype(target, /obj/item/weapon/gun/grenadelauncher)) return ..()
+		if((user.equipped() == src)&&(!active)&&(clown_check(user)))
+			user << "\red You prime the delivery grenade! [det_time/10] seconds!"
+			src.active = 1
+			src.icon_state = "delivery1"
+			playsound(src.loc, 'armbomb.ogg', 75, 1, -3)
+			spawn(src.det_time)
+				prime()
+				return
+			user.dir = get_dir(user, target)
+			user.drop_item()
+			var/t = (isturf(target) ? target : target.loc)
+			walk_towards(src, t, 3)
+		return
+
+
+	attack_paw(mob/user as mob)
+		return src.attack_hand(user)
+
+
+	attack_hand()
+		walk(src, null, null)
+		..()
+		return
+
+	prime()													// Prime now just handles the two loops that query for people in lockers and people who can see it.
+
+		if(spawner_type && deliveryamt)
+			// Make a quick flash
+			var/turf/T = get_turf(src)
+			playsound(T, 'phasein.ogg', 100, 1)
+			for(var/mob/living/carbon/human/M in viewers(T, null))
+				if(M:eyecheck() <= 0)
+					flick("e_flash", M.flash) // flash dose faggots
+
+			for(var/i=1, i<=deliveryamt, i++)
+				var/atom/movable/x = new spawner_type
+				x.loc = T
+				if(prob(50))
+					for(var/j = 1, j <= rand(1, 3), j++)
+						step(x, pick(NORTH,SOUTH,EAST,WEST))
+
+				// Spawn some hostile syndicate critters
+				if(istype(x, /obj/effect/critter))
+					var/obj/effect/critter/C = x
+
+					C.atkcarbon = 1
+					C.atksilicon = 1
+					C.atkmech = 0
+					C.atksynd = 0
+					C.aggressive = 1
+
+		del(src)
+		return
+
+
+	attack_self(mob/user as mob)
+		if(!active)
+			if(clown_check(user))
+				user << "\red You prime the delivery grenade! [det_time/10] seconds!"
+				src.active = 1
+				src.icon_state = "delivery1"
+				add_fingerprint(user)
+				spawn( src.det_time )
+					prime()
+					return
+		return
+
+
+	attack_hand()
+		walk(src, null, null)
+		..()
+		return
+
+
+	clown_check(var/mob/living/user)
+		if ((CLUMSY in user.mutations) && prob(50))
+			user << "\red Huh? How does this thing work?!"
+			src.active = 1
+			src.icon_state = "delivery1"
+			playsound(src.loc, 'armbomb.ogg', 75, 1, -3)
+			spawn( 5 )
+				prime()
+			return 0
+		return 1
+
+/obj/item/weapon/spawnergrenade/manhacks
+	name = "manhack delivery grenade"
+	spawner_type = /obj/effect/critter/manhack
+	deliveryamt = 5
+	origin_tech = "materials=3;magnets=4;syndicate=4"
+
+/obj/item/weapon/spawnergrenade/spesscarp
+	name = "carp delivery grenade"
+	spawner_type = /obj/effect/critter/spesscarp
+	deliveryamt = 5
+	origin_tech = "materials=3;magnets=4;syndicate=4"
+
+/obj/item/weapon/spawnergrenade/elitespesscarp
+	name = "elite carp delivery grenade"
+	spawner_type = /obj/effect/critter/spesscarp/elite
+	deliveryamt = 2
+	origin_tech = "materials=3;magnets=4;syndicate=4"
 
 
 

code/game/objects/items/weapons/implants/implant.dm

@@ -1,5 +1,3 @@
-//This file was auto-corrected by findeclaration.exe on 29/05/2012 15:03:05
-
 /obj/item/weapon/implant
 	name = "implant"
 	desc = "An implant. Not usually seen outside a body."
@@ -240,6 +238,44 @@ the implant may become unstable and either pre-maturely inject the subject or si
 		H << "\blue You feel a surge of loyalty towards NanoTrasen."
 		return
 
+
+/obj/item/weapon/implant/adrenalin
+	name = "adrenalin"
+	desc = "Removes all stuns and knockdowns."
+	var/uses
+
+	get_data()
+		var/dat = {"
+<b>Implant Specifications:</b><BR>
+<b>Name:</b> Cybersun Industries Adrenalin Implant<BR>
+<b>Life:</b> Five days.<BR>
+<b>Important Notes:</b> <font color='red'>Illegal</font><BR>
+<HR>
+<b>Implant Details:</b> Subjects injected with implant can activate a massive injection of adrenalin.<BR>
+<b>Function:</b> Contains nanobots to stimulate body to mass-produce Adrenalin.<BR>
+<b>Special Features:</b> Will prevent and cure most forms of brainwashing.<BR>
+<b>Integrity:</b> 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)
+
+		return
+
+
+	implanted(mob/source as mob)
+		source.mind.store_memory("A implant can be activated by using the pale emote, <B>say *pale</B> to attempt to activate.", 0, 0)
+		source << "The implanted freedom implant can be activated by using the pale emote, <B>say *pale</B> to attempt to activate."
+		return
+
+
 //BS12 Explosive
 /obj/item/weapon/implant/explosive
 	name = "explosive implant"

code/game/objects/items/weapons/implants/implanter.dm

@@ -74,6 +74,15 @@
 	update()
 	return
 
+/obj/item/weapon/implanter/adrenalin
+	name = "implanter-adrenalin"
+
+/obj/item/weapon/implanter/adrenalin/New()
+	src.imp = new /obj/item/weapon/implant/adrenalin(src)
+	..()
+	update()
+	return
+
 /obj/item/weapon/implanter/compressed
 	name = "implanter (C)"
 	icon_state = "cimplanter0"