Preg reaction from lovelesspoison

locations/gdksport

@@ -80,16 +80,20 @@ if $ARGS[0] = 'start':
 		act 'Wash in the shower':gt 'gdksport', 'shower'
 	end
 	if hour < 16 or hour >= 20: exit
-	if gsAboDance > 0 and $clothingworntype = 'exercise' and albinaQWdance = 0: 
+	if gsAboDance > 0 and $clothingworntype = 'exercise' and albinaQWdance = 0 and pregTalkStarlets = 0: 
 		act 'Take a dance lesson, you have <<gsAboDance>> lessons remaining':gt 'gdksport', 'dance2'
 	end
-	if albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0 and $clothingworntype = 'exercise':
-		act 'Train with Starlets':gt 'gdksport', 'starlets'
+	if albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0 and $clothingworntype = 'exercise' and pregTalkStarlets = 0:
+		if pregtime >= 90:
+			act 'Train with Starlets':gt 'gdksport', 'Starletsreact'
+		else
+			act 'Train with Starlets':gt 'gdksport', 'starlets'
+		end
 	end
-	if gsAboBeg > 0 and $clothingworntype = 'exercise':
+	if gsAboBeg > 0 and $clothingworntype = 'exercise' and pregTalkTrack = 0:
 		act 'Take a track lesson, you have <<gsAboBeg>> lessons remaining':gt 'gdksport', 'racing2'
 	end
-	if gsAboVolley > 0 and volleysostav = 0 and $clothingworntype = 'exercise':
+	if gsAboVolley > 0 and volleysostav = 0 and $clothingworntype = 'exercise' and pregTalkvball = 0:
 		if week ! 5:
 			act 'Take a volleyball lesson, you have <<gsAboVolley>> lessons remaining':gt 'gdksport', 'vball2'
 		else
@@ -101,6 +105,8 @@ if $ARGS[0] = 'start':
 			act 'Play with the team':gt 'gdksport', 'vball4'
 		elseif week = 6 and sorevday ! daystart:
 			act 'Play in Tournament': gt 'gdksport', 'vball5'
+		elseif pregtime >= 90:
+			act 'Play with the team':gt 'gdksport', 'vballreact'
 		end
 	end
 end
@@ -1203,6 +1209,16 @@ if $ARGS[0] = 'fedor_date':
 		end
 	end
 end
+if $ARGS[0] = 'Starletsreact':
+	cla
+	'As you approach the Starlets, Albina looks at you in disgust. Loudly enough for the whole team to hear, she says "<<$pcs_nickname>>, no one wants to see some pregnant whore dance. Leave. You''re done." Tears welling in your eyes, you leave, the sound of laughter and taunting following your departure.'
+	act 'Continue':pregtalkStarlets = 1 & gt 'gdk'	
+end
+if $ARGS[0] = 'vballreact':
+	cla
+	'As you approach the team, your coach notices you and calls you aside. "<<$pcs_firstname>>, are you pregnant? I can''t let you play like that. Also, a pregnant teenager would definitely reflect poorly on me and the rest of the team. Sorry, but off the team." Tears welling in your eyes, you leave.'
+	act 'Continue':pregtalkvball = 1 & gt 'gdk'	
+end
 
 --- gdksport ---------------------------------