Adds ability ot changed folded pai access

Allows PAI access to be changed in folded form.

This is literally just a copy paste job with the variable paths changed.

Origin code can be found in pai.dm

code/game/objects/items/devices/paicard_ch.dm

@@ -0,0 +1,18 @@
+/obj/item/device/paicard/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	var/obj/item/weapon/card/id/ID = W.GetID()
+	if(ID)
+		if (src.pai.idaccessible == 1)
+			switch(alert(user, "Do you wish to add access to [src] or remove access from [src]?",,"Add Access","Remove Access", "Cancel"))
+				if("Add Access")
+					src.pai.idcard.access |= ID.access
+					to_chat(user, "<span class='notice'>You add the access from the [W] to [src].</span>")
+					return
+				if("Remove Access")
+					src.pai.idcard.access = list()
+					to_chat(user, "<span class='notice'>You remove the access from [src].</span>")
+					return
+				if("Cancel")
+					return
+		else if (istype(W, /obj/item/weapon/card/id) && src.pai.idaccessible == 0)
+			to_chat(user, "<span class='notice'>[src] is not accepting access modifcations at this time.</span>")
+			return

vorestation.dme

@@ -1203,6 +1203,7 @@
 #include "code\game\objects\items\devices\modkit.dm"
 #include "code\game\objects\items\devices\multitool.dm"
 #include "code\game\objects\items\devices\paicard.dm"
+#include "code\game\objects\items\devices\paicard_ch.dm"
 #include "code\game\objects\items\devices\pipe_painter.dm"
 #include "code\game\objects\items\devices\powersink.dm"
 #include "code\game\objects\items\devices\scanners.dm"