[fixes] drinking beer in several locations

locations/gdksex.qsrc

@@ -66,7 +66,16 @@ if $ARGS[0] = 'outside':
 		end
 		act 'Have a beer':
 			*clr & cla
-			alko += rand(1,2)
+			frost = 0
+			alko += 1
+			fat += 3
+			pcs_health -= 5
+			pcs_energy -= 4
+			if pcs_hydra >= 100:
+				pcs_hydra += 5
+			else
+				pcs_hydra += 10
+			end
 			cumspclnt = 2
 			gs 'cum_cleanup'
 			pcs_breath = 0

locations/shulga_room.qsrc

@@ -777,7 +777,18 @@ if $ARGS[0] = 'shulga_beer':
 	menu_off = 1
 	if alko < 6:
 		minut += 5
-		alko += RAND(1,2)
+		*clr & cla
+		frost = 0
+		alko += 1
+		fat += 3
+		pcs_health -= 5
+		pcs_mood += 5
+		pcs_energy -= 4
+		if pcs_hydra >= 100:
+			pcs_hydra += 5
+		else
+			pcs_hydra += 10
+		end
 		cumspclnt = 2
 		gs 'cum_cleanup'
 		pcs_breath = 0

locations/sister.qsrc

@@ -40,10 +40,20 @@ if $ARGS[0] = 'gdk':
 		'Anya sits with some girls and boys, drinking beer. "Hey <<$pcs_nickname>>!" Anya smiles, "Want some beer?"'
 
 		act 'Drink beer':
-			cls
 			minut += 60
 			npc_rel['A33'] += 5
 			alko += 3
+			*clr & cla
+			frost = 0
+			fat += 3
+			pcs_health -= 5
+			pcs_mood += 5
+			pcs_energy -= 4
+			if pcs_hydra >= 100:
+				pcs_hydra += 5
+			else
+				pcs_hydra += 10
+			end
 			cumspclnt = 2
 			gs 'cum_cleanup'
 			pcs_breath = 0

locations/sister_party.qsrc

@@ -85,13 +85,18 @@ if $ARGS[0] = 'talk':
 end
 
 if $ARGS[0] = 'drink':
-	cls
 	minut += 5
-	alko +=1
+	*clr & cla
+	frost = 0
+	alko += 1
+	fat += 3
+	pcs_health -= 5
+	pcs_mood += 5
+	pcs_energy -= 4
 	if pcs_hydra >= 100:
-		pcs_hydra -= 5
+		pcs_hydra += 5
 	else
-		pcs_hydra -= 10
+		pcs_hydra += 10
 	end
 	cumspclnt = 2
 	gs 'cum_cleanup'