Also refactors them all a lil.

code/game/objects/items/weapons/id cards/station_ids_vr.dm

@@ -1,7 +1,52 @@
+/obj/item/weapon/card/id/event
+	var/configured = 0
+	var/accessset = 0
+	sprite_stack = list("")
+	var/list/title_strings = list()
+	var/preset_rank = FALSE
+
+/obj/item/weapon/card/id/event/attack_self(mob/user as mob)
+	if(configured == 1)
+		return ..()
+
+	if(preset_rank)
+		var/title
+		if(user.client.prefs.player_alt_titles[user.job])
+			title = user.client.prefs.player_alt_titles[user.job]
+		else
+			title = user.job
+		assignment = title
+	user.set_id_info(src)
+	if(user.mind && user.mind.initial_account)
+		associated_account_number = user.mind.initial_account.account_number
+	if(title_strings.len)
+		var/tempname = pick(title_strings)
+		name = tempname + " ([assignment])"
+	else
+		name = user.name + "'s ID card" + " ([assignment])"
+
+	configured = 1
+	to_chat(user, "<span class='notice'>Card settings set.</span>")
+
+/obj/item/weapon/card/id/event/attackby(obj/item/I as obj, mob/user as mob)
+	if(istype(I, /obj/item/weapon/card/id) && !accessset)
+		var/obj/item/weapon/card/id/O = I
+		access |= O.access
+		to_chat(user, "<span class='notice'>You copy the access from \the [I] to \the [src].</span>")
+		user.drop_from_inventory(I)
+		qdel(I)
+		accessset = 1
+	..()
+
+/obj/item/weapon/card/id/event/accessset
+	accessset = 1
+
+
+
 /obj/item/weapon/card/id/gold/captain/spare/fakespare
 	rank = "null"
 
-/obj/item/weapon/card/id/itg
+/obj/item/weapon/card/id/event/accessset/itg
 	name = "identification card"
 	desc = "A small card designating affiliation with the Ironcrest Transport Group."
 	icon = 'icons/obj/card_vr.dmi'
@@ -10,43 +55,44 @@
 	item_state = "itg_id"
 	sprite_stack = list("")
 
-/obj/item/weapon/card/id/itg/green
+/obj/item/weapon/card/id/event/accessset/itg/green
 	icon_state = "itg_green"
 	item_state = "itg_green_id"
 
-/obj/item/weapon/card/id/itg/red
+/obj/item/weapon/card/id/event/accessset/itg/red
 	icon_state = "itg_red"
 	item_state = "itg_red_id"
 
-/obj/item/weapon/card/id/itg/purple
+/obj/item/weapon/card/id/event/accessset/itg/purple
 	icon_state = "itg_purple"
 	item_state = "itg_purple_id"
 
-/obj/item/weapon/card/id/itg/white
+/obj/item/weapon/card/id/event/accessset/itg/white
 	icon_state = "itg_white"
 	item_state = "itg_white_id"
 
-/obj/item/weapon/card/id/itg/orange
+/obj/item/weapon/card/id/event/accessset/itg/orange
 	icon_state = "itg_orange"
 	item_state = "itg_orange_id"
 
-/obj/item/weapon/card/id/itg/blue
+/obj/item/weapon/card/id/event/accessset/itg/blue
 	icon_state = "itg_blue"
 	item_state = "itg_blue_id"
 
-/obj/item/weapon/card/id/itg/event
+/obj/item/weapon/card/id/event/accessset/itg/crew
 	name = "\improper ITG Crew ID"
 	assignment = "Crew"
 	rank = "Crew"
 	access = list(777)
+	preset_rank = TRUE
 
-/obj/item/weapon/card/id/itg/event/pilot
+/obj/item/weapon/card/id/event/accessset/itg/crew/pilot
 	name = "\improper ITG Pilot's ID"
 	desc = "An ID card belonging to the Pilot of an ITG vessel. The Pilot's responsibility is primarily to fly the ship. They may also be tasked to assist with cargo movement duties."
 	assignment = "Pilot"
 	rank = "Pilot"
 
-/obj/item/weapon/card/id/itg/event/service
+/obj/item/weapon/card/id/event/accessset/itg/crew/service
 	name = "\improper ITG Cook's ID"
 	desc = "An ID card belonging to the Cook of an ITG vessel. The Cook's responsibility is primarily to provide sustinence to the crew and passengers. The Cook answers to the Passenger Liason. In the absence of a Passenger Liason, the Cook is also responsible for tending to passenger related care and duties."
 	assignment = "Cook"
@@ -54,7 +100,7 @@
 	icon_state = "itg_green"
 	item_state = "itg_green_id"
 
-/obj/item/weapon/card/id/itg/event/security
+/obj/item/weapon/card/id/event/accessset/itg/crew/security
 	name = "\improper ITG Security's ID"
 	desc = "An ID card belonging to Security of an ITG vessel. Security's responsibility is primarily to protect the ship, cargo, or facility. They may also be tasked to assist with cargo movement duties and rescue operations. ITG Security is almost exclusively defensive. They should not start fights, but they are very capable of finishing them."
 	assignment = "Security"
@@ -62,7 +108,7 @@
 	icon_state = "itg_red"
 	item_state = "itg_red_id"
 
-/obj/item/weapon/card/id/itg/event/research
+/obj/item/weapon/card/id/event/accessset/itg/crew/research
 	name = "\improper ITG Research's ID"
 	desc = "An ID card belonging to ITG Research staff. ITG Research staff primarily specializes in starship and starship engine design, and overcoming astronomic phenomena."
 	assignment = "Research"
@@ -70,7 +116,7 @@
 	icon_state = "itg_purple"
 	item_state = "itg_purple_id"
 
-/obj/item/weapon/card/id/itg/event/medical
+/obj/item/weapon/card/id/event/accessset/itg/crew/medical
 	name = "\improper ITG Medic's ID"
 	desc = "An ID card belonging to the Medic of an ITG vessel. The Medic's responsibility is primarily to treat crew and passenger injuries. They may also be tasked with rescue operations."
 	assignment = "Medic"
@@ -78,7 +124,7 @@
 	icon_state = "itg_white"
 	item_state = "itg_white_id"
 
-/obj/item/weapon/card/id/itg/event/engineer
+/obj/item/weapon/card/id/event/accessset/itg/crew/engineer
 	name = "\improper ITG Engineer's ID"
 	desc = "An ID card belonging to the Engineer of an ITG vessel. The Engineer's responsibility is primarily to maintain the ship. They may also be tasked to assist with cargo movement duties."
 	assignment = "Engineer"
@@ -86,7 +132,7 @@
 	icon_state = "itg_orange"
 	item_state = "itg_orange_id"
 
-/obj/item/weapon/card/id/itg/event/passengerliason
+/obj/item/weapon/card/id/event/accessset/itg/crew/passengerliason
 	name = "\improper ITG Passenger Liason's ID"
 	desc = "An ID card belonging to the Passenger Liason of an ITG vessel. The Passenger Liason's responsibility is primarily to manage and tend to passenger needs and maintain supplies and facilities for passenger use."
 	assignment = "Passenger Liason"
@@ -94,7 +140,7 @@
 	icon_state = "itg_blue"
 	item_state = "itg_blue_id"
 
-/obj/item/weapon/card/id/itg/event/captain
+/obj/item/weapon/card/id/event/accessset/itg/crew/captain
 	name = "\improper ITG Captain's ID"
 	desc = "An ID card belonging to the Captain of an ITG vessel. The Captain's responsibility is primarily to manage crew to ensure smooth ship operations. Captains often also often pilot the vessel when no dedicated pilot is assigned."
 	assignment = "Captain"