Emag Changes

- Trash pile Emags are a lot rarer now.
- Gun Permits are no longer gamma trash pile loot
- You can now find out how many uses are remaining on an emag
- Adds a 'used' variant of emag for adminbus purposes

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

@@ -0,0 +1,10 @@
+/obj/item/weapon/card/emag/examine(mob/user)
+	. = ..()
+	. += "[uses] uses remaining."
+
+/obj/item/weapon/card/emag/used
+	uses = 1
+
+/obj/item/weapon/card/emag/used/Initialize()
+	. = ..()
+	uses = rand(1, 5)

code/game/objects/structures/trash_pile_vr.dm

@@ -23,8 +23,8 @@
 		/obj/item/clothing/glasses/thermal/syndi,
 		/obj/item/weapon/gun/energy/netgun,
 		/obj/item/weapon/gun/projectile/pirate,
-		/obj/item/clothing/accessory/permit/gun,
-		/obj/item/weapon/gun/projectile/dartgun
+		/obj/item/weapon/gun/projectile/dartgun,
+		/obj/item/weapon/card/emag
 		)
 
 	var/global/list/allocated_gamma = list()
@@ -214,7 +214,7 @@
 					prob(1);/obj/item/device/flashlight/glowstick/yellow,
 					prob(1);/obj/item/device/flashlight/pen,
 					prob(1);/obj/item/device/paicard,
-					prob(1);/obj/item/weapon/card/emag,
+					prob(1);/obj/item/clothing/accessory/permit/gun,
 					prob(1);/obj/item/clothing/mask/gas/voice,
 					prob(1);/obj/item/weapon/spacecash/c100,
 					prob(1);/obj/item/weapon/spacecash/c50,