[MIRROR] Rebuilds Luxury Shuttle (mostly), makes it emag-only [MDB IGNORE] (#19229)

* Rebuilds Luxury Shuttle (mostly), makes it emag-only (#72940)

## About The Pull Request
![2023 02 07-06 49
54](https://user-images.githubusercontent.com/70376633/217159751-790e6ded-8525-4d13-a5b5-6a3d8076a00e.png)
Changes the really goofy old lux shuttle to a cooler layout with some
additions to make it a luxury and not just
"anti-poor-people protection + food"

Shuttle was made bigger to make it less cramped for the luxury class,
pool was moved to its own room, added an arcade
and a bar corner, has real lasers to shoot poors with (20c each shot),
has fire extinguishers now
Adds a new preopen variant of hardened shutters
Adds a paywall pin subtype for the luxury shuttle, and a laser gun
subtype

Made emag-only at a price of 10000 credits
## Why It's Good For The Game

The old luxury shuttle looked REALLY awful with its pool, was pretty
cramped even in the luxury section and BARELY resembled a luxury..
This luxury shuttle provides luxuries such as a less poorly designed
pool, more space for legs, arcade, to make it resemble a luxury unlike
the old one

## Changelog
🆑
add: Luxury Shuttle is now bigger, and less ugly! Poor people still get
it rough though...
/🆑

* Rebuilds Luxury Shuttle (mostly), makes it emag-only

---------

Co-authored-by: jimmyl <70376633+mc-oofert@users.noreply.github.com>

code/modules/projectiles/guns/energy/laser.dm

@@ -200,3 +200,14 @@
 	desc = "A modified handcannon with a self-replicating reserve of decommissioned weaponized nanites. Spit shards of frozen angry robots into the bad guys. While it doesn't manipulate temperature in of itself, it does cause an internal explosion in anyone who is severely hot."
 	icon_state = "cryopistol"
 	ammo_type = list(/obj/item/ammo_casing/energy/nanite/cryo)
+
+// luxury shuttle funnies
+/obj/item/firing_pin/paywall/luxury
+	multi_payment = TRUE
+	owned = TRUE
+	payment_amount = 20
+
+/obj/item/gun/energy/laser/luxurypaywall
+	name = "luxurious laser gun"
+	desc = "A laser gun modified to cost 20 credits to fire. Point towards poor people."
+	pin = /obj/item/firing_pin/paywall/luxury

code/modules/projectiles/pins.dm

@@ -280,7 +280,8 @@
 	if(user in gun_owners)
 		if(multi_payment && credit_card_details)
 			if(credit_card_details.adjust_money(-payment_amount, "Firing Pin: Gun Rent"))
-				pin_owner.registered_account.adjust_money(payment_amount, "Firing Pin: Payout For Gun Rent")
+				if(pin_owner)
+					pin_owner.registered_account.adjust_money(payment_amount, "Firing Pin: Payout For Gun Rent")
 				return TRUE
 			to_chat(user, span_warning("ERROR: User balance insufficent for successful transaction!"))
 			return FALSE
@@ -294,7 +295,8 @@
 		switch(license_request)
 			if("Yes")
 				if(credit_card_details.adjust_money(-payment_amount, "Firing Pin: Gun License"))
-					pin_owner.registered_account.adjust_money(payment_amount, "Firing Pin: Gun License Bought")
+					if(pin_owner)
+						pin_owner.registered_account.adjust_money(payment_amount, "Firing Pin: Gun License Bought")
 					gun_owners += user
 					to_chat(user, span_notice("Gun license purchased, have a secure day!"))
 					active_prompt = FALSE