12/21 modernizations from TG live (#103)

* sync (#3)

* shuttle auto call

* Merge /vore into /master (#39)

* progress

* Compile errors fixed

No idea if it's test worthy tho as conflicts with race overhaul and
narky removal.

* Update admins.txt

* efforts continue

Fuck grab code, seriously

* grab code is cancer

* Execute the Narkism

Do not hesitate.

Show no mercy.

* holy shit grab code is awful

* have I bitched about grab code

My bitching, let me show you it

* código de agarre es una mierda

No really it is

* yeah I don't even know anymore.

* Lolnope. Fuck grab code

* I'm not even sure what to fix anymore

* Self eating is not an acceptable fate

* Taste the void, son.

* My code doesn't pass it's own sanity check.

Maybe it's a sign of things to come.

* uncommented and notes

* It Works and I Don't Know Why (#38)

* shuttle auto call

* it works and I don't know why

* Subsystem 12/21

Most Recent TG subsystem folder

* globalvars 12/21

Tossed out the flavor_misc and parallax files

* Onclick 12/21

as well as .dme updates

* _defines 12/21

ommited old _MC.dm

* _HELPERS 12/21

Preserved snowflake placement of furry sprites

* _defeines/genetics

reapplied narkism holdover for snowflake races.

* Oops forgot mutant colors

* modules porting 12/21 + Sounds/icons

Admin, Client and most of mob life files ommitted

* enviroment file

* Admin optimizations

ahelp log system kept

* Mob ports 12/21

Flavor text preserved

* datums ported 12/21

* Game ported 12/21

* batch of duplicate fixes/dogborg work

Dogborgs need to be modernized to refractored borg standards.

* moar fixes

* Maps and futher compile fixes

code/modules/modular_computers/hardware/card_slot.dm

@@ -0,0 +1,104 @@
+/obj/item/weapon/computer_hardware/card_slot
+	name = "identification card authentication module"	// \improper breaks the find_hardware_by_name proc
+	desc = "A module allowing this computer to read or write data on ID cards. Necessary for some programs to run properly."
+	power_usage = 10 //W
+	icon_state = "card_mini"
+	w_class = WEIGHT_CLASS_TINY
+	origin_tech = "programming=2"
+	device_type = MC_CARD
+
+	var/obj/item/weapon/card/id/stored_card = null
+	var/obj/item/weapon/card/id/stored_card2 = null
+
+/obj/item/weapon/computer_hardware/card_slot/Destroy()
+	try_eject()
+	return ..()
+
+/obj/item/weapon/computer_hardware/card_slot/GetAccess()
+	if(stored_card && stored_card2) // Best of both worlds
+		return (stored_card.GetAccess() | stored_card2.GetAccess())
+	else if(stored_card)
+		return stored_card.GetAccess()
+	else if(stored_card2)
+		return stored_card2.GetAccess()
+	return ..()
+
+/obj/item/weapon/computer_hardware/card_slot/GetID()
+	if(stored_card)
+		return stored_card
+	else if(stored_card2)
+		return stored_card2
+	return ..()
+
+/obj/item/weapon/computer_hardware/card_slot/on_install(obj/item/device/modular_computer/M, mob/living/user = null)
+	M.add_verb(device_type)
+
+/obj/item/weapon/computer_hardware/card_slot/on_remove(obj/item/device/modular_computer/M, mob/living/user = null)
+	M.remove_verb(device_type)
+
+/obj/item/weapon/computer_hardware/card_slot/try_insert(obj/item/I, mob/living/user = null)
+	if(!holder)
+		return FALSE
+
+	if(!istype(I, /obj/item/weapon/card/id))
+		return FALSE
+
+	if(stored_card && stored_card2)
+		user << "<span class='warning'>You try to insert \the [I] into \the [src], but its slots are occupied.</span>"
+		return FALSE
+	if(user && !user.unEquip(I))
+		return FALSE
+
+	if(!stored_card)
+		stored_card = I
+	else
+		stored_card2 = I
+	I.forceMove(src)
+	user << "<span class='notice'>You insert \the [I] into \the [src].</span>"
+
+	return TRUE
+
+
+/obj/item/weapon/computer_hardware/card_slot/try_eject(slot=0, mob/living/user = null, forced = 0)
+	if(!stored_card && !stored_card2)
+		user << "<span class='warning'>There are no cards in \the [src].</span>"
+		return FALSE
+
+	var/ejected = 0
+	if(stored_card && (!slot || slot == 1))
+		stored_card.forceMove(get_turf(src))
+		stored_card.verb_pickup()
+		stored_card = null
+		ejected++
+
+	if(stored_card2 && (!slot || slot == 2))
+		stored_card2.forceMove(get_turf(src))
+		stored_card2.verb_pickup()
+		stored_card2 = null
+		ejected++
+
+	if(ejected)
+		if(holder)
+			if(holder.active_program)
+				holder.active_program.event_idremoved(0, slot)
+
+			for(var/I in holder.idle_threads)
+				var/datum/computer_file/program/P = I
+				P.event_idremoved(1, slot)
+
+		user << "<span class='notice'>You remove the card[ejected>1 ? "s" : ""] from \the [src].</span>"
+		return TRUE
+	return FALSE
+
+/obj/item/weapon/computer_hardware/card_slot/attackby(obj/item/I, mob/living/user)
+	if(..())
+		return
+	if(istype(I, /obj/item/weapon/screwdriver))
+		user << "<span class='notice'>You press down on the manual eject button with \the [I].</span>"
+		try_eject(0,user)
+		return
+
+/obj/item/weapon/computer_hardware/card_slot/examine(mob/user)
+	..()
+	if(stored_card || stored_card2)
+		user << "There appears to be something loaded in the card slots."