Initial commit of Computer 3 from Paradise, along with a bunch of fixes.

code/WorkInProgress/computer3/computers/shuttle.dm

@@ -0,0 +1,75 @@
+/*
+	This may not migrate to C3.  It's basically a machine in the guise of a computer;
+	there is nothing interactive about it.
+*/
+
+/obj/machinery/computer3/shuttle
+	name = "Shuttle"
+	desc = "For shuttle control."
+	icon_state = "shuttle"
+	var/auth_need = 3.0
+	var/list/authorized = list(  )
+
+
+	attackby(var/obj/item/card/W as obj, var/mob/user as mob)
+		if(stat & (BROKEN|NOPOWER))	return
+		if ((!( istype(W, /obj/item/card) ) || !( ticker ) || emergency_shuttle.location != 1 || !( user )))	return
+		if (istype(W, /obj/item/card/id)||istype(W, /obj/item/device/pda))
+			if (istype(W, /obj/item/device/pda))
+				var/obj/item/device/pda/pda = W
+				W = pda.id
+			if (!W:access) //no access
+				user << "The access level of [W:registered_name]\'s card is not high enough. "
+				return
+
+			var/list/cardaccess = W:access
+			if(!istype(cardaccess, /list) || !cardaccess.len) //no access
+				user << "The access level of [W:registered_name]\'s card is not high enough. "
+				return
+
+			if(!(access_heads in W:access)) //doesn't have this access
+				user << "The access level of [W:registered_name]\'s card is not high enough. "
+				return 0
+
+			var/choice = alert(user, text("Would you like to (un)authorize a shortened launch time? [] authorization\s are still needed. Use abort to cancel all authorizations.", src.auth_need - src.authorized.len), "Shuttle Launch", "Authorize", "Repeal", "Abort")
+			if(emergency_shuttle.location != 1 && user.get_active_hand() != W)
+				return 0
+			switch(choice)
+				if("Authorize")
+					src.authorized -= W:registered_name
+					src.authorized += W:registered_name
+					if (src.auth_need - src.authorized.len > 0)
+						message_admins("[key_name_admin(user)] has authorized early shuttle launch")
+						log_game("[user.ckey] has authorized early shuttle launch")
+						world << text("\blue <B>Alert: [] authorizations needed until shuttle is launched early</B>", src.auth_need - src.authorized.len)
+					else
+						message_admins("[key_name_admin(user)] has launched the shuttle")
+						log_game("[user.ckey] has launched the shuttle early")
+						world << "\blue <B>Alert: Shuttle launch time shortened to 10 seconds!</B>"
+						emergency_shuttle.online = 1
+						emergency_shuttle.settimeleft(10)
+						//src.authorized = null
+						del(src.authorized)
+						src.authorized = list(  )
+
+				if("Repeal")
+					src.authorized -= W:registered_name
+					world << text("\blue <B>Alert: [] authorizations needed until shuttle is launched early</B>", src.auth_need - src.authorized.len)
+
+				if("Abort")
+					world << "\blue <B>All authorizations to shorting time for shuttle launch have been revoked!</B>"
+					src.authorized.len = 0
+					src.authorized = list(  )
+
+		else if (istype(W, /obj/item/card/emag) && !emagged)
+			var/choice = alert(user, "Would you like to launch the shuttle?","Shuttle control", "Launch", "Cancel")
+
+			if(!emagged && emergency_shuttle.location == 1 && user.get_active_hand() == W)
+				switch(choice)
+					if("Launch")
+						world << "\blue <B>Alert: Shuttle launch time shortened to 10 seconds!</B>"
+						emergency_shuttle.settimeleft( 10 )
+						emagged = 1
+					if("Cancel")
+						return
+		return