Properly counts stacked cash

code/modules/admin/fun_balloon.dm

@@ -132,15 +132,15 @@
 		total_cash += C.value
 		counted_money += C
 	for(var/obj/item/stack/spacecash/S in mover)
-		total_cash += S.value
+		total_cash += S.value * S.amount
 		counted_money += S
 
 	if(total_cash >= threshhold)
 		for(var/obj/I in counted_money)
-			qdel()
-			mover << "Thank you for your payment! Please enjoy your flight."
-			approved_passengers += mover
-			return 1
+			qdel(I)
+		mover << "Thank you for your payment! Please enjoy your flight."
+		approved_passengers += mover
+		return 1
 	else
 		mover << "You don't have enough money to enter the main shuttle. You'll have to fly coach."
 		return 0