[fixed] Missing charging money for a private show.

locations/stripclub.qsrc

@@ -161,6 +161,7 @@ if $ARGS[0] = 'forman':
 		if money >= 5000:
 			act 'Order a special show (5,000 <b>₽</b>)':
 				stprrand = rand(0, 1)
+				money -= 5000
 
 				if stprrand = 0:gt 'stripclub', 'stpr1'
 				if stprrand = 1:gt 'stripclub', 'stpr2'