initialize $boozeVar

locations/beverage.qsrc

@@ -198,6 +198,7 @@ if $ARGS[0] = 'bev_vod':
 		else
 			act 'Finish':gt $loc, $loc_arg
 		end
+		$boozeVar = 'vodka'
 	else
 		msg 'You don''t feel well enough to drink alcohol.'
 		gt $loc, $loc_arg
@@ -221,6 +222,7 @@ if $ARGS[0] = 'bev_bla':
 		else
 			act 'Finish': gt $loc, $loc_arg
 		end
+		$boozeVar = 'spirit'
 	else
 		msg 'You don''t feel well enough to drink alcohol.'
 		gt $loc, $loc_arg
@@ -244,6 +246,7 @@ if $ARGS[0] = 'bev_sco':
 		else
 			act 'Finish':gt $loc, $loc_arg
 		end
+		$boozeVar = 'spirit'
 	else
 		msg 'You don''t feel well enough to drink alcohol.'
 		gt $loc, $loc_arg
@@ -267,6 +270,7 @@ if $ARGS[0] = 'bev_win':
 		else
 			act 'Finish':gt $loc, $loc_arg
 		end
+		$boozeVar = 'wine'
 	else
 		msg 'You don''t feel well enough to drink alcohol.'
 		gt $loc, $loc_arg
@@ -336,6 +340,7 @@ if $ARGS[0] = 'bev_bee':
 		else
 			act 'Finish':gt $loc, $loc_arg
 		end
+		$boozeVar = 'beer'
 	else
 		msg 'You don''t feel well enough to drink alcohol.'
 		gt $loc, $loc_arg

locations/qwBarEncounters.qsrc

@@ -125,25 +125,23 @@ if $ARGS[0] = '':
 			act 'Finish your drink': gt 'qwBarPolet', 'bar'
 		end
 
+        
+
 		act 'Accept':
 			cla
 			if $boozeVar = 'beer':
-				money -= 140
 				agil_exp += rand(0,1)
 				react_exp += rand(0,1)
 				gs 'drugs', 'alcohol', 'beer'
 			elseif $boozeVar = 'vodka':
-				money -= 150
 				stren_exp += rand(0,1)
 				vital_exp += rand(0,1)
 				gs 'drugs', 'alcohol', 'vodka'
 			elseif $boozeVar = 'wine':
-				money -= 180
 				chrsm_exp += rand(0,1)
 				prcptn_exp += rand(0,1)
 				gs 'drugs', 'alcohol', 'wine'
 			elseif $boozeVar = 'spirit':
-				money -= 200
 				intel_exp += rand(0,1)
 				sprt_exp += rand(0,1)
 				gs 'drugs', 'alcohol', 'vodka'