locations/Nord.qsrc

@@ -119,7 +119,7 @@ if $ARGS[0] = 'redlight':
 	gs 'stat'
 	'<center><h2>St. Petersburg</h2></center>'
 	'<center><b>Red Light District</b></center>'
-	if hour >= 15 or hour <= 2:'The <a href="exec:gt ''stripclub'', ''start''">Strip Clubs</a> red lights, attracting men from all over the city.'
+	'The <a href="exec:gt ''stripclub'', ''start''">Strip Clubs</a> red lights, attracting men from all over the city.'
 	if pornstudio >= 1 and hour >= 10 and hour < 22:'At the <a href="exec:gt ''pornstudio'', ''start''">Porn Studio</a>, where a variety of naughty movies are created'
 	'A shop for <a href="exec:gt ''sexshop'', ''start''">sex toys</a> is open for perverts from all around the city.'
 	if bordel > 0 and hour >= 20 or bordel > 0 and hour <= 3:'Inside the courtyard is the entrance to the <a href="exec:gt ''bordel''">brothel</a>.'

locations/_attributes_exercise.qsrc

@@ -6,244 +6,244 @@ if ARGS[1] = 1:
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 2:
 	CloQuality = 3
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 3:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 4:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 4
 	CloPantsShortness = 4
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 5:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 6:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 7:
 	CloQuality = 5
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 4
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 8:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 2
 	CloPantsShortness = 5
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 9:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
 	CloPantsShortness = 2
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 10:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 11:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 3
 	CloPantsShortness = 4
-	CloExhibit = 20
+	CloInhibit = 20
 elseif ARGS[1] = 12:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
 	CloPantsShortness = 5
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 13:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 14:
 	CloQuality = 5
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 15:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 4
 	CloPantsShortness = 5
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 16:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 17:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 18:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 2
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 19:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 20:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 5
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 21:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 5
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 22:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 23:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 5
+	CloInhibit = 5
 elseif ARGS[1] = 24:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 25:
 	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 26:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 2
 	CloPantsShortness = 6
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 27:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 1
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 28:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 29:
 	CloQuality = 5
 	CloThinness = 2
 	CloTopCut = 1
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 30:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 3
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 30
+	CloInhibit = 30
 elseif ARGS[1] = 31:
 	CloQuality = 3
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 5
-	CloExhibit = 25
+	CloInhibit = 25
 elseif ARGS[1] = 32:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 1
-	CloExhibit = 0
+	CloInhibit = 0
 elseif ARGS[1] = 33:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 1
 	CloPanties = 1
 	CloOnePiece = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 34:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 2
 	CloPantsShortness = 4
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 35:
 	CloQuality = 4
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 36:
 	CloQuality = 5
 	CloThinness = 4
 	CloBra = 1
 	CloPantsShortness = 1
-	CloExhibit = 15
+	CloInhibit = 15
 elseif ARGS[1] = 37:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
 	CloPantsShortness = 1
-	CloExhibit = 10
+	CloInhibit = 10
 elseif ARGS[1] = 38:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 39:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 40:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 	CloBimbo = 1
 	CloBra = 1
@@ -251,256 +251,256 @@ elseif ARGS[1] = 41:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 	CloBimbo = 1
 elseif ARGS[1] = 42:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 43:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 44:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 45:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 2
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 46:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 47:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 4
 elseif ARGS[1] = 48:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 49:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 50:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 2
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 51:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 52:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 53:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 54:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 55:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 56:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 57:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 58:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 elseif ARGS[1] = 59:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 60:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 2
 elseif ARGS[1] = 61:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 	CloBimbo = 1
 elseif ARGS[1] = 62:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 2
 elseif ARGS[1] = 63:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 64:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 65:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 2
 elseif ARGS[1] = 66:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 67:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 elseif ARGS[1] = 68:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 69:
 	CloQuality = 4
 	CloThinness = 3
 	CloTopCut = 1
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 5
 elseif ARGS[1] = 70:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 20
+	CloInhibit = 20
 	CloPantsShortness = 5
 elseif ARGS[1] = 71:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 6
 	CloOnePiece = 1
 elseif ARGS[1] = 72:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 2
 elseif ARGS[1] = 73:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 2
 elseif ARGS[1] = 74:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 75:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 76:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 77:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 78:
 	CloQuality = 4
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 79:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 80:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 81:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 82:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 25
+	CloInhibit = 25
 	CloPantsShortness = 5
 	CloBimbo = 1
 	CloBra = 1
@@ -508,187 +508,187 @@ elseif ARGS[1] = 83:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 84:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 85:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 1
 elseif ARGS[1] = 86:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 1
-	CloExhibit = 0
+	CloInhibit = 0
 	CloPantsShortness = 1
 elseif ARGS[1] = 87:
 	CloQuality = 3
 	CloThinness = 3
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 88:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 2
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 1
 elseif ARGS[1] = 89:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 90:
 	CloQuality = 4
 	CloThinness = 2
 	CloTopCut = 1
-	CloExhibit = 5
+	CloInhibit = 5
 	CloPantsShortness = 4
 elseif ARGS[1] = 91:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 92:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 93:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 94:
 	CloQuality = 3
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 95:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 96:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 97:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 98:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 3
 elseif ARGS[1] = 99:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 100:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 101:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 5
 elseif ARGS[1] = 102:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 103:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 104:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 15
+	CloInhibit = 15
 	CloPantsShortness = 4
 elseif ARGS[1] = 105:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 106:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 107:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 108:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 109:
 	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 110:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 4
 elseif ARGS[1] = 111:
 	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 112:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 2
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 elseif ARGS[1] = 113:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 4
-	CloExhibit = 10
+	CloInhibit = 10
 	CloPantsShortness = 1
 
 end

locations/andrey.qsrc

@@ -8,7 +8,9 @@ if $ARGS[0] = '':
 		'You knock on Mr. Sobulyagin''s office door and when he sees you enter, his expression hardens. "What do you want?" he asks with a scowl.'
 	end
 
-	if (hour >= 18 and (week ! 5 or young_shop_salary = 0)) or hour > 18:
+	if (young_shop_work = 1 and week = 5 and hour = 20) or (young_shop_work1 = 1 and week = 7 and hour = 15) or (young_shop_work2 = 1 and week = 5 and hour = 15):
+		gs 'andrey', 'regular'
+	elseif hour >= 20 or (week > 4 and hour >= 16):
 		msg '<center>Andrew M. Sobulyagin says goodbye and leaves. His workday has ended.</center>'
 		gt 'young_shop', 'start'
 	end

locations/brother.qsrc

@@ -59,10 +59,13 @@ if $ARGS[0] = 'start':
 	elseif npc_rel['A34'] >= 60 and npc_rel['A34'] < 80:
 		'You have a good relationship with your brother.'
 	elseif npc_rel['A34'] >= 80:
-		'You have a great relationship with your brother.'
+		'Your brother is practically one of your closest friends.'
 	end
+	
+	act 'Move away':gt $loc, $metka
+	
 	*nl
-	if hour >= 7 and hour < 21:
+	if hour >= 7 and hour < 23:
 		! WD: Fix old nude variable
 		if (cumloc[1] > 0 or cumloc[4] > 0 or cumloc[8] > 0 or cumloc[9] > 0 or cumloc[10] > 0 or cumloc[14] > 0 or cumloc[15] > 0) and $clothingworntype = 'nude':
 			if $pantyworntype = 'none' and cumloc[1] = 1:
@@ -274,6 +277,9 @@ if $ARGS[0] = 'start':
 
 					act 'Move away':gt $loc, $metka
 				end
+				!if brotherSex >= 5:
+				!	act'Ask him if he wants to sneak off to fool around':
+				!end
 			end
 		end
 	end
@@ -282,8 +288,16 @@ if $ARGS[0] = 'start':
 
 		gs 'brother', 'pregreact'
 		gs 'brother', 'brotherSexCount'
+		
+		if hour >= 7 and hour < 23:
+			act'Chat with him':gt'brother2','chat'
+		end
+		
+		!if father_go = 1 and hour >= 7:
+		!	act'Play video games with him':gt'video_games','brother'
+		!end
 
-		if indorf = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and father_go = 1 and npc_rel['A34'] > 85 and hour >= 18 and hour < 21 and pirsF > 0:
+		if indorf = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and father_go = 1 and npc_rel['A34'] > 85 and hour >= 18 and hour < 23 and pirsF > 0:
 			act 'Show off your nipple piercings ':
 				cls
 				gs 'stat'
@@ -322,14 +336,14 @@ if $ARGS[0] = 'start':
 					exit
 				end
 			else
-				if father_go = 1 and hour >= 18 and hour < 21:
+				if father_go = 1 and hour >= 18 and hour < 23:
 					'"How lovely." Kolka plays with your pierced nipples'
 					npc_rel['A34'] += 3
 					brothersawpirsF = 1
 					pcs_horny += 10
 					act '<B>Move away</B>':gt 'sitrPar'
 					exit
-				elseif father_go = 0 and hour >= 18 and hour < 21:
+				elseif father_go = 0 and hour >= 18 and hour < 23:
 					'"Beautiful." Kolka gently cups your breasts and strokes your pierced nipples.'
 					npc_rel['A34'] += 3
 					brothersawpirsF=1
@@ -348,12 +362,22 @@ if $ARGS[0] = 'start':
 				if brotherRand < 5:'As you look, you can also clearly see the outline of his morning wood pitching a tent under the blanket.'
 				if week < 6 and kanikuli = 0:
 					act'Wake him up for breakfast':gt'brother2','wakeup'
+					if brotherwakeup >= 10:
+						if brotherSex >= 5:
+							act'Wake him up with a handjob':gt'brother2','morninghj'
+						end
+						if brotherSex >= 6:
+							act'Wake him up with a blowjob':gt'brother2','morningbj'
+						end
+					end
 				end
 			elseif hour < 7 and brotherMorningSex = daystart:
-				'Your brother is busying himself getting ready for school.'
+				'Your brother is busy getting ready for school.'
+			elseif hour < 23 and father_go = 1:
+				'Your brother is playing video games.'
 			end
 
-			if hour >= 21 and hour < 24 and brotherSex > 4 and brotherNightSex ! daystart:
+			if hour >= 23 and hour < 24 and brotherSex > 4 and brotherNightSex ! daystart:
 				'When you get close, he suddenly opens his eyes and says,:'
 				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
 					'"<<$pcs_nickname>>, help me sleep." Then he throws back the blanket, revealing his erection.'
@@ -374,7 +398,7 @@ if $ARGS[0] = 'start':
 						gs 'brother', 'brotherSexStart'
 					end
 					act 'He''s on his own there':
-						'"You''ve got 2 perfectly good hands, I mean eww...", You turn around and leave.'
+						'"You''ve got 2 perfectly good hands to do that yourself. I mean, <i>eww...</i>", You turn around and leave.'
 						cla
 						act '<B>Move away</B>':gt 'sitrPar'
 						exit
@@ -382,7 +406,7 @@ if $ARGS[0] = 'start':
 				end
 			end
 
-			if father_go = 1 and hour >= 18 and hour < 21 and brotherSex > 0 and brotherEvSex ! daystart:
+			if father_go = 1 and hour >= 18 and hour < 23 and brotherSex > 0 and brotherEvSex ! daystart:
 				'When you get close, He turns to you and says,:'
 				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
 					gs 'boyStat', 'A34'
@@ -434,8 +458,6 @@ if $ARGS[0] = 'start':
 			act'Offer help with homework': gt 'brother_lessons', 'homework'
 		end
 	end
-
-	act 'Move away':gt $loc, $metka
 end
 
 if $ARGS[0] = 'sleepsexcum':
@@ -580,6 +602,7 @@ if $ARGS[0] = 'brotherSexStart':
 		cls
 		minut += 5
 		stat['hj'] += 1
+		npc_rel['A34'] += 2
 		if brotherSex < 5:brotherSex = 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj1.jpg"></center>'
@@ -594,7 +617,8 @@ if $ARGS[0] = 'brotherSexStart':
 			cls
 			minut += 5
 			pcs_horny += 10
-			brotherfuck += 1
+			brotherbj += 1
+			npc_rel['A34'] += 5
 			stat['bj'] += 1
 			if brotherSex < 6:brotherSex = 6
 			gs 'stat'
@@ -629,6 +653,7 @@ if $ARGS[0] = 'brotherSexStart':
 				minut += 5
 				pcs_horny += 10
 				brotherfuck += 1
+				npc_rel['A34'] += 5
 				gs 'boyStat', 'A34'
 				spafinloc = 11
 				sexpartkno = 1
@@ -648,6 +673,7 @@ if $ARGS[0] = 'brotherSexStart':
 					minut += 5
 					pcs_horny += 10
 					brotherfuck += 1
+					npc_rel['A34'] += 5
 					gs 'boyStat', 'A34'
 
 					gs 'stat'
@@ -668,6 +694,7 @@ if $ARGS[0] = 'brotherSexStart':
 					cls
 					minut += 5
 					pcs_horny += 10
+					npc_rel['A34'] += 5
 					brotherfuck += 1
 					if brotherSex < 8:brotherSex = 8
 					gs 'boyStat', 'A34'
@@ -688,6 +715,7 @@ if $ARGS[0] = 'brotherSexStart':
 	if brotherSex >= 6:
 		act 'Give yourself to your brother':
 			brotherfuck += 1
+			npc_rel['A34'] += 5
 			if brotherSex < 7:brotherSex = 7
 			cls
 			minut += 5
@@ -710,6 +738,7 @@ if $ARGS[0] = 'brotherSexStart':
 	if brotherSex >= 7:
 		act 'Offer your ass to your brother':
 			brotherfuck += 1
+			npc_rel['A34'] += 5
 			cls
 			minut += 5
 			pcs_horny += 10
@@ -730,13 +759,18 @@ end
 
 if $ARGS[0] = 'brotherSexEnd':
 	if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
-		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 21:
+		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
 			minut += 15
 
 			gs 'stat'
 
 			'Kolka catches his breath, then says, "Nice one <<$pcs_nickname>>, good job. Just remember this is our little secret!" He continues to go about his business.'
 			act 'Leave': gt 'sitrPar'
+		elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
+			minut += 15
+			gs 'stat'
+			'"Thanks <<$pcs_nickname>>," he yawns, tucking his member back into his pants. Mumbling, "You''re the best..." he curls back up underneath his blanket and begins to doze off.'
+			act 'Leave': gt 'sitrPar'
 		elseif $loc = 'sitrPar':
 			minut += 15
 			gs 'stat'
@@ -748,11 +782,16 @@ if $ARGS[0] = 'brotherSexEnd':
 			act 'Continue':gt $loc, $metka
 		end
 	else
-		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 21:
+		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
 			minut += 15
 			gs 'stat'
 			'Kolka catches his breath, then says, "Many thanks, <<$pcs_nickname>>, you helped me a lot." He continues to go about his business.'
 			act 'Leave': gt 'sitrPar'
+		elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
+			minut += 15
+			gs 'stat'
+			'"Thanks <<$pcs_nickname>>," he yawns, tucking his member back into his pants. Mumbling, "You''re the best..." he curls back up underneath his blanket and begins to doze off.'
+			act 'Leave': gt 'sitrPar'
 		elseif $loc = 'sitrPar':
 			minut += 15
 			gs 'stat'

locations/brother2.qsrc

@@ -1,5 +1,86 @@
 # brother2
 
+if $ARGS[0] = 'chat':
+	'<center><b><font color="maroon">Kolka</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+	'You casually talk to him about whatever topics come up.'
+	*nl
+	brotherchat = rand(1,8)
+	if brotherchat = 1:
+		'"... so, yeah. Mom wants me to clean up my stuff on the couch, but if I''m going to sleep there anyways, why does it matter?" he asks, snapping you out of your idle thoughts and bringing you back to the room.'
+		*nl
+		if npc_rel['A29'] >= 40:
+			'"I know it seems pointless but you should listen to mom. You''ll get in trouble otherwise," you admonish him.'
+		elseif npc_rel['A29'] < 40:
+			'"Ugh, I know! Mom is always nagging me about everything! She can be such a pain in the ass sometimes!" you '
+		end
+
+	elseif brotherchat = 2:
+		'"... and dad asked me if I want to help him work on the Gazelle but I don''t know. I''d rather go play football with Zhendos and Mishan," he finishes, snapping you out of your idle thoughts and bringing you back to the room.'
+		*nl
+		'"It''s good to have fun with your friends but it might also be good to work with dad. It''s a good life skill. Besides, there''s nothing girls love more than a man who knows how to work a car!" you wink at him.'
+	
+	elseif brotherchat = 3:
+		'"I hate math so much!" he moans. "Math sucks! It can go die in a hole!"'
+		*nl
+		if pcs_grades >= 50:
+			'"Oh Kolka, you shouldn''t think like that. Math is important!"'
+		elseif pcs_grades < 50:
+			'"Blegh! Yeah, you''re right. Math sucks!" you grumble in agreement.'
+		end
+	
+	elseif brotherchat = 4:
+		'Kolka starts telling you a story about him and his friends. As it goes on longer and all over the place, you find yourself zoning out and not really paying attention to what he''s saying.'
+		'"... and then he ripped his pants!" he giggles, snapping you out of your idle thoughts and bringing you back to the room. "Isn''t that hilarious?"'
+		*nl
+		'"Uhh, yeah! That''s pretty funny!" you fake laugh as best you can.'
+
+	elseif brotherchat = 5 and brothersexed >= 1:
+		'"... so I''m enjoying science a lot more," he says, snapping you out of your idle thoughts and bringing you back to the room. "My grades have gotten better since you started helping me with my homework but I''m still not sure I completely get it..." He hesitates. "Could you maybe... give me another anatomy lesson? Like you did before?" he says, looking at you meaningfully.'
+		*nl
+		'"I''m thinking about it..." you say slyly.'
+	elseif brotherchat = 5:
+		'"... so science class is alright," he says. "I''m really having trouble with my anatomy homework though. The diagrams in the book aren''t very good, I don''t understand it."'
+		*nl
+		'"Hmm. Well maybe I could help you with it sometime? Do something to help you understand it better?"'
+		anatomyhomeworkhelp = 1
+
+	elseif brotherchat = 6:
+		'... and then he sprayed milk all over his locker!" he says with a burst of laughter "It was <i>so</i> funny!"'
+		*nl
+		'"I bet it was," you say.'
+		'<i>What weird kids he and his friends are...</i> you think to yourself.'
+
+	elseif brotherchat = 7:
+		'"... so the plan is while he''s showering to take his underwear and replace them with girls panties," he says. "Zhendos says that I should just steal some of yours out of your drawer but-" he stops dead with wide eyes and the realization of what he just said.'
+		*nl
+		if npc_rel['A34'] < 80:
+			'"<i>Excuse me?</i> You were planning to do <i>what</i> with my underwear??" you say, sternly staring at him while he twiddles his thumbs and tries to pretend he didn''t say anything.'
+		else
+			'"Woah woah woah!" you say. "Hold up! I love you Kolka, but I am not about to let you put my panties on some juvenile boy!"'
+		end
+
+	elseif brotherchat = 8:
+		'"... I just want more time to play football with Zhendos and Mishan though," he moans. "I can''t do anything with them when mom is dragging us to boring old Gadyukino every other weekend."'
+		*nl
+		if seepornofut = 0:
+			'"It''s okay Kolka," you console him. "Just enjoy the time you have with them. In a couple years mom might not force you to go anymore but you all might end up too busy to hang out."'
+		elseif seepornofut >= 1:
+			'"Pfft! More like you want more time to watch porn with them!" you laugh scoffingly.'
+			*nl
+			if pornMagazine = 0:
+				'	"We play football too!" Kolka protests while you tease him with a silly face and fake jerk off motions.'
+			elseif pornMagazine > 0:
+				'	"We play football too!" Kolka protests while you tease him with silly face and fake jerk off motions. "Hrmph! You''re one to talk anyways," he grumbles. "I know about that magazine you hide under your bed."'
+				*nl
+				'	"I don''t know what you''re talking about," you say with an air of feigned innocence and superiority. "I have never been anything other than ladylike!"'
+				*nl
+				'	"Come on sis," he says with a look. "We were just talking about this. I watch porn. I know what girls do when no one is looking. Furiously schlicking it while biting down on your pillow <i>is</i> your version of ladylike."'
+			end
+		end
+	end
+	act'Continue':gt'brother','start'
+end
 
 if $ARGS[0] = 'wakeup':
 	cla & *clr
@@ -211,8 +292,10 @@ if $ARGS[0] = 'wakeup':
 	
 	if brotherSex >= 5 or pcs_inhib >= 50 or npc_rel['A34'] >= 85:
 		act'Tell him you''ll give him a handjob':
+			npc_rel['A34'] += 5
 			cla
 			brotherMorningSex = daystart
+			brotherwakeup += 1
 			'"I''ll tell you what Kolka, if you get up now, I''ll help you deal with your morning wood before mom and dad come out of their room."'
 			'His eye cracks open to look at you, seemingly intrigued.'
 			'"How?"'
@@ -236,6 +319,8 @@ if $ARGS[0] = 'wakeup':
 		act'Tell him you''ll give him a blowjob':
 			cla
 			brotherMorningSex = daystart
+			brotherwakeup += 1
+			npc_rel['A34'] += 5
 			'"Okay Kolka, if you get up now, before mom and dad come out of their room, I''ll give you a blowjob."'
 			'His eye cracks open to look at you, seemingly intrigued.'
 			'"How does that sound?"'
@@ -245,6 +330,7 @@ if $ARGS[0] = 'wakeup':
 				gs 'arousal', 'hj', 5
 				gs 'cum_call','mouth', $boy
 				swallow += 1
+				brotherbj += 1
 				if brotherSex < 6:brotherSex = 6
 				if $clothingworntype = 'nude' and $braworntype = 'none':
 					'<center><video src="images/characters/pavlovsk/resident/kolka/bj1.mp4"></center>'
@@ -262,5 +348,46 @@ if $ARGS[0] = 'wakeup':
 	end
 end
 
+if $ARGS[0] = 'morninghj':
+	cla & *clr
+	gs 'arousal', 'hj', 5
+	gs 'cum_call','hands', $boy
+	npc_rel['A34'] += 5
+	if brotherSex < 5:brotherSex = 5
+	'<center><img <<$set_imgh>> src="images/shared/sex/handjob/kotovhj.jpg"></center>'
+	'Kneeling down next to the sofa, you carefully pull back his blanket to see his morning erection sticking through his pants. Slipping his cock out, you wrap your hand around it and begin to gently work it up and down, feeling it harden even more under your grip.'
+	'Kolka starts to stir and blearily opens his eyes in confusion to see you giving him head.'
+	'"Whaa-? What''s happening? What are you doing?"'
+	'"I thought that would be obvious. I''m giving you a handjob to wake you up!" You smile at him, not for a moment stopping your jerking hand. "This little guy got up even earlier than you did."'
+	'Your brother sighs in satisfaction, your hand continuing to work his cock. After several minutes he orgasms, his sticky cum spilling all over your hand.'
+	'As you think about what you should do to clean it off, you hear him saying, "Handjobs are great and everything, but do you think you could try a blowjob next time instead?"'
+	'"I''ll think about it," you say, rolling your eyes in amusement as you walk away, your brother automatically beginning to get ready for school.'
+	act'Move away':gt $loc, $metka
+end
+
+if $ARGS[0] = 'morningbj':
+	brotherwakeup += 1
+	cla & *clr
+	gs 'arousal', 'hj', 5
+	gs 'cum_call','mouth', $boy
+	swallow += 1
+	brotherbj += 1
+	npc_rel['A34'] += 10
+	if brotherSex < 6:brotherSex = 6
+	if $clothingworntype = 'nude' and $braworntype = 'none':
+		'<center><video src="images/characters/pavlovsk/resident/kolka/bj1.mp4"></center>'
+	else
+		'<center><video src="images/characters/pavlovsk/resident/kolka/bj2.mp4"></center>'
+	end
+	'Kneeling down, you carefully pull back his blanket to see his morning erection sticking through his pants. Slipping his cock out, you wrap your lips around it and begin to suck gently.'
+	'Kolka starts to stir and blearily opens his eyes in confusion to see you giving him head.'
+	'"Whaa-? What''s happening? What are you doing?"'
+	'"What''s it look like I''m doing?" you say after removing his cock from your mouth so you can speak. "I''m giving you your morning blowjob so you can get up in time for school."'
+	'With no further explanations, you get back to blowing your brother. A few more minutes go by and you hear Kolka groan as his hot cum shoots into your mouth.'
+	'"You''re the best sister ever..."'
+	'Swallowing his cum, you flash him a toothy grin. "I know. Now up an at''em kiddo! I don''t do this just so you can go back to sleep."'
+	'Having been given sufficient positive reinforcement, he obediently gets up and starts going about tidying the sofa and getting ready to go to school.'
+	act'Move away':gt $loc, $metka
+end
 --- brother2 ---------------------------------
 

locations/brother_voyeur.qsrc

@@ -69,10 +69,8 @@ if $ARGS[0] = 'showertalk1':
 				bro_ass_compliment = rand(1,3)
 				if bro_ass_compliment = 1:
 					act'Continue':gt'brother_voyeur','ass_compliment'
-				elseif pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
 				else
-					act'Continue':gt'brother_voyeur','dryoff'
+					act'Continue':gt'brother_voyeur','shave'
 				end
 			end
 		end
@@ -82,7 +80,7 @@ if $ARGS[0] = 'showertalk1':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			'	You casually talk to him about his day while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
 			if pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Look at your legs':gt'brother_voyeur','shave'
+				act'Continue':gt'brother_voyeur','shave'
 			else
 				act'Finish showering':gt'brother_voyeur','dryoff'
 			end
@@ -93,7 +91,7 @@ if $ARGS[0] = 'showertalk1':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			'	You casually chat with him about how he''s doing in school while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
 			if pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Look at your legs':gt'brother_voyeur','shave'
+				act'Continue':gt'brother_voyeur','shave'
 			else
 				act'Finish showering':gt'brother_voyeur','dryoff'
 			end
@@ -104,7 +102,7 @@ if $ARGS[0] = 'showertalk1':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			'	You chat with him about his friends and what he does for fun with them while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
 			if pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Look at your legs':gt'brother_voyeur','shave'
+				act'Continue':gt'brother_voyeur','shave'
 			else
 				act'Finish showering':gt'brother_voyeur','dryoff'
 			end
@@ -156,10 +154,8 @@ if $ARGS[0] = 'showertalk2':
 			'	<i>Boys will be boys after all...</i> you muse to yourself, a smile subconsciously turning the corners of your own lips.'
 			if bro_ass_compliment = 1:
 				act'Continue':gt'brother_voyeur','ass_compliment'
-			elseif pcs_pubes >= 4 or pcs_leghair >= 4:
-				act'Continue':gt'brother_voyeur','shave'
 			else
-				act'Continue':gt'brother_voyeur','dryoff'
+				act'Continue':gt'brother_voyeur','shave'
 			end
 		end
 
@@ -168,11 +164,7 @@ if $ARGS[0] = 'showertalk2':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			if brothershowertalk <= 5:
 				'	You casually talk to him about his day while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
-				else
-					act'Continue':gt'brother_voyeur','dryoff'
-				end
+				act'Continue':gt'brother_voyeur','shave'
 
 			elseif brothershowertalk > 5:
 				'	He happily talks to you about his day, though he still sits on the toilet facing away. He also still takes a few looks at you now and again but they aren''t as sneaky and they mostly seem to be glances to see your face. <i>Not that his eyes don''t wander downward anyways...</i> you notice with a smile.'
@@ -182,11 +174,7 @@ if $ARGS[0] = 'showertalk2':
 					'	"... but, yeah. It was a pretty good day overall," he finishes, snapping you out of your idle thoughts and bringing you back to the room.'
 					*nl
 					'	"That''s always good to hear!" you reply.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerdaytalk = 2:
 					'	"... so, yeah. Mom wants me to clean up my stuff on the couch, but if I''m going to sleep there anyways, why does it matter?" he asks, snapping you out of your idle thoughts and bringing you back to the room.'
@@ -196,21 +184,13 @@ if $ARGS[0] = 'showertalk2':
 					elseif npc_rel['A29'] < 40:
 						'	"Ugh, I know! Mom is always nagging me about everything! She can be such a pain in the ass sometimes!" you '
 					end
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerdaytalk = 3:
 					'	"... and dad asked me if I want to help him work on the Gazelle but I don''t know. I''d rather go play football with Zhendos and Mishan," he finishes, snapping you out of your idle thoughts and bringing you back to the room.'
 					*nl
 					'	"It''s good to have fun with your friends but it might also be good to work with dad. It''s a good life skill. Besides, girls love nothing more than a man who knows how to work a car!" you wink at him.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 				end
 			end
 		end
@@ -220,12 +200,8 @@ if $ARGS[0] = 'showertalk2':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			if brothershowertalk <= 5:
 				'	You casually chat with him about how he''s doing in school while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
-				else
-					act'Continue':gt'brother_voyeur','dryoff'
-				end
-
+				act'Continue':gt'brother_voyeur','shave'
+				
 			elseif brothershowertalk > 5:
 				'	He energetically talks to you about school and how it''s going for him, though he still sits on the toilet facing away. He also still takes a few looks at you now and again but they aren''t as sneaky and they mostly seem to be glances to see your face. <i>Not that his eyes don''t wander downward anyways...</i> you notice with a smile.'
 				brothershowerschooltalk = rand(1,3)
@@ -238,42 +214,27 @@ if $ARGS[0] = 'showertalk2':
 					elseif pcs_grades < 50:
 						'	"Blegh! Yeah, you''re right. Math sucks!" you grumble in agreement.'
 					end
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerschooltalk = 2:
 					'	"... and then he ripped his pants!" he giggles, snapping you out of your idle thoughts and bringing you back to the room. "Isn''t that hilarious?"'
 					*nl
 					'	"Uhh, yeah! That''s pretty funny!" you fake laugh as best you can.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerschooltalk = 3 and brothersexed < 1:
 					'	"... so science class is alright," he says, snapping you out of your idle thoughts and bringing you back to the room. "I''m really having trouble with my anatomy homework though. The diagrams in the book aren''t very good, I don''t understand it."'
 					*nl
 					'	"Hmm. Well maybe I could help you with it sometime? Do something to help you understand it better?"'
 					anatomyhomeworkhelp = 1
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerschooltalk = 3 and brothersexed >= 1:
 					'	"... so I''m enjoying science a lot more," he says, snapping you out of your idle thoughts and bringing you back to the room. "My grades have gotten better since you started helping me with my homework but I''m still not sure I completely get it..." He hesitates. "Could you maybe... give me another anatomy lesson? Like you did before?" he says, looking at you meaningfully.'
 					*nl
 					'	"I''ll think about it..." you say slyly.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 				end
 			end
 		end
@@ -283,11 +244,7 @@ if $ARGS[0] = 'showertalk2':
 			'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
 			if brothershowertalk <= 5:
 				'	You chat with him about his friends and what he does for fun with them while you shower. He sits on the toilet seat and faces away from you, awkwardly answering all your questions and queries, but you still see him occasionally stealing glances at your naked body. Not that it bothers you any, as you simply smile to yourself, amused that he thinks he''s still being sneaky.'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:
-					act'Continue':gt'brother_voyeur','shave'
-				else
-					act'Continue':gt'brother_voyeur','dryoff'
-				end
+				act'Continue':gt'brother_voyeur','shave'
 
 			elseif brothershowertalk > 5:
 				'	He cheerfully talks to you about him and his friends and what they get up to together, though he still sits on the toilet facing away. He also still takes a few looks at you now and again but they aren''t as sneaky and they mostly seem to be glances to see your face. <i>Not that his eyes don''t wander downward anyways...</i> you notice with a smile.'
@@ -297,41 +254,25 @@ if $ARGS[0] = 'showertalk2':
 					'	... and then he sprayed milk all over his locker!" he says with a burst of laughter, snapping you out of your idle thoughts and bringing you back to the room. "It was <i>so</i> funny! Hey, are you listening?"'
 					*nl
 					'	"Uhmm, yeah! Of course!" you say, trying to maintain your poker face as best you can while he frowns at you suspiciously.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerfriendtalk = 2:
 					'	"... so the plan is while he''s showering to take his underwear and replace them with girls panties," he says, snapping you out of your idle thoughts and bringing you back into the room. "Zhendos says that I should just steal some of yours out of your drawer but-" he stops dead with wide eyes and the realization of what he just said.'
 					*nl
 					'	"<i>Excuse me?</i> You were planning to do <i>what</i> with my underwear??" you say, sternly staring at him while he twiddles his thumbs and tries to pretend he didn''t say anything.'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:
-						act'Continue':gt'brother_voyeur','shave'
-					else
-						act'Continue':gt'brother_voyeur','dryoff'
-					end
+					act'Continue':gt'brother_voyeur','shave'
 
 				elseif brothershowerfriendtalk = 3:
 					'	"... I wish I had more time to play football with Zhendos and Mishan though," he says, snapping you out of your idle thoughts and bringing you back to the room. "I can''t do anything with them when mom is dragging us to Gadyukino every other weekend."'
 					*nl
 					if seepornofut = 0:
 						'	"It''s okay Kolka," you console him. "Just enjoy the time you have with them. In a couple years mom might not force you to go anymore but you all might end up too busy to hang out."'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:
-							act'Continue':gt'brother_voyeur','shave'
-						else
-							act'Continue':gt'brother_voyeur','dryoff'
-						end
+						act'Continue':gt'brother_voyeur','shave'
 					elseif seepornofut >= 1:
 						'	"Pfft! More like you want more time to watch porn with them!" you laugh scoffingly.'
 						*nl
 						'	"We play football too!" Kolka turns to cry out in protest while you tease him with a silly face and fake jerk off motions. He blushes deeply and quickly turns back to face the wall.'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:
-							act'Continue':gt'brother_voyeur','shave'
-						else
-							act'Continue':gt'brother_voyeur','dryoff'
-						end
+						act'Continue':gt'brother_voyeur','shave'
 					end
 				end
 			end
@@ -374,9 +315,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"That''s always good to hear!" you reply.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerdaytalk = 2:
@@ -386,9 +329,11 @@ if $ARGS[0] = 'brothershowerlook':
 			if npc_rel['A29'] < 40:'	"Ugh, I know! Mom is always nagging me about everything! She can be such a pain in the ass sometimes!" you grumble in agreement.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerdaytalk = 3:
@@ -397,9 +342,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"It''s good to have fun with your friends but it might also be good to work with dad. It''s a good life skill. Besides, girls love nothing more than a man who knows how to work a car!" you wink at him. "It just makes them want to..." you trail off, grabbing your breast with one hand and putting the other between your legs with an open mouth in a silent moan, pretending to masturbate. After a couple seconds of gyrating your hips in the motion, you spread your hands out over your hips and say, "Sploosh." He laughs at your act and gives you a golf clap while you bow in appreciation.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 		end
 	end
@@ -421,9 +368,11 @@ if $ARGS[0] = 'brothershowerlook':
 			if pcs_grades < 50:'	"Blegh! Yeah, you''re right. Math sucks!" you grumble in agreement.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerschooltalk = 2:
@@ -432,9 +381,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"Uhh, yeah! That''s pretty funny!" you fake laugh as best you can.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerschooltalk = 3 and brothersexed = 0:
@@ -444,9 +395,11 @@ if $ARGS[0] = 'brothershowerlook':
 			anatomyhomeworkhelp = 1
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerschooltalk = 3 and brothersexed >= 1:
@@ -455,9 +408,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"I''ll think about it..." you say slyly.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 		end
 	end
@@ -478,9 +433,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"Uhmm, yeah! Of course!" you say, trying to maintain your poker face as best you can while he frowns at you suspiciously.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerfriendtalk = 2:
@@ -489,9 +446,11 @@ if $ARGS[0] = 'brothershowerlook':
 			'	"<i>Excuse me?</i> You were planning to do <i>what</i> with my underwear??" you say, staring at him sternly while he twiddles his thumbs and tries to pretend he didn''t say anything.'
 			act'Continue':
 				bro_ass_compliment = rand(1,3)
-				if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-				if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-				if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+				if bro_ass_compliment = 1:
+					gt'brother_voyeur','ass_compliment'
+				else
+					gt'brother_voyeur','shave'
+				end
 			end
 
 		elseif brothershowerfriendtalk = 3:
@@ -501,9 +460,11 @@ if $ARGS[0] = 'brothershowerlook':
 				'	"It''s okay Kolka," you console him. "Just enjoy the time you have with them. In a couple years mom might not force you to go anymore but you all might end up too busy to hang out."'
 				act'Continue':
 					bro_ass_compliment = rand(1,3)
-					if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-					if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-					if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+					if bro_ass_compliment = 1:
+						gt'brother_voyeur','ass_compliment'
+					else
+						gt'brother_voyeur','shave'
+					end
 				end
 
 			elseif seepornofut >= 1:
@@ -513,9 +474,11 @@ if $ARGS[0] = 'brothershowerlook':
 					'	"We play football too!" Kolka protests while you tease him with a silly face and fake jerk off motions.'
 					act'Continue':
 						bro_ass_compliment = rand(1,3)
-						if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-						if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+						if bro_ass_compliment = 1:
+							gt'brother_voyeur','ass_compliment'
+						else
+							gt'brother_voyeur','shave'
+						end
 					end
 				elseif pornMagazine > 0:
 					'	"We play football too!" Kolka protests while you tease him with silly face and fake jerk off motions. "Hrmph! You''re one to talk anyways," he grumbles. "I know about that magazine you hide under your bed."'
@@ -527,9 +490,11 @@ if $ARGS[0] = 'brothershowerlook':
 					'	The two of you continue to playfully sling accusations and lewd gestures at each other for the rest of your shower, giggling the whole time.'
 					act'Continue':
 						bro_ass_compliment = rand(1,3)
-						if bro_ass_compliment = 1:gt'brother_voyeur','ass_compliment'
-						if pcs_pubes >= 4 or pcs_leghair >= 4:gt'brother_voyeur','shave'
-						if pcs_pubes < 4 and pcs_leghair < 4:gt'brother_voyeur','dryoff'
+						if bro_ass_compliment = 1:
+							gt'brother_voyeur','ass_compliment'
+						else
+							gt'brother_voyeur','shave'
+						end
 					end
 				end
 			end
@@ -621,6 +586,7 @@ end
 if $ARGS[0] = 'brother_shower_together':
 	brothergrope = rand(0,1)
 	inhib_exp += rand(1,3)
+	brother_shower_times += 1
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershower.jpg"></center>'
 	'	Kolka clambers into the shower with you, doing his best to get under the water. The bath tub isn''t very big and it''s a tight squeeze for both of you to be in there.'
@@ -734,7 +700,7 @@ if $ARGS[0] = 'brother_shower_together':
 				if brotherbj < 1 and brotherfuck < 1:
 					'	"Hey Kolka, want to see something cool?"'
 					'	"Huh?" He asks, confused. "What is it?"'
-					'	His eyes go wide when you grab him by the cock. Slightly panicked, he looks back at you when you start to kneel.'
+					'	His eyes go wide when as your hand slips up his leg and grips his member. Slightly panicked, he looks back at you when you start to kneel.'
 					'	"It''s my mouth around your cock!"'
 					act'Blow him':gt'brother_voyeur','brother_shower_bj'
 				else
@@ -804,7 +770,7 @@ if $ARGS[0] = 'brother_wash':
 				if brothersex > 0 or brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 					act'Have some fun':
 						cla & *clr
-						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
 						act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -823,7 +789,7 @@ if $ARGS[0] = 'brother_wash':
 				if brothersex > 0 or brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 					act'Have some fun':
 						cla & *clr
-						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
 						act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -842,7 +808,7 @@ if $ARGS[0] = 'brother_wash':
 				if brothersex > 0 or brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 					act'Have some fun':
 						cla & *clr
-						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
 						act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1926,23 +1892,7 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 			'	"It''s okay Kolka. I''m not mad. Let''s get you into the club. Why don''t I show you the <b>member only</b> entrance?"'
 			'	"Don''t you mean member<b>s</b> only entrance sis?" he asks, confused.'
 			'	"That''s not what I said," you whisper, pushing your hips back and swallowing him straight to the hilt.'
-			act'Continue':
-				guy += 1
-				gs 'arousal', 'vaginal', rand(5,10)
-				gs 'stat'
-				eff_contra = iif(argc > 1,ARGS[1],sexcontra)
-				tmp = func('pregriskeval',eff_contra)
-				cla & *clr
-				'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
-				'	Barely giving him any time at all to recover from your sudden start, you immediately break into a hard rhythm, thrusting your hips back and giving it your all. He''s your little brother after all. You should try to make his first time special. Soon enough, you start giving him tips.'
-				'	"Hold my hips so you have more control."'
-				'	"Grab my boobs if you like. Boobs are meant to be grabbed during sex.'
-				'	"Don''t worry if you feel like you''re going to cum. It''s your first time so just let me kn-OW-OW-WOAH!"'
-				'	Kolka''s really getting into it. He pumps in and out you, member slick with your juices. His hands come up to grab your breasts and you gasp when they''re used as leverage to fuck you harder, his cock reaching even deeper inside you. His cock! Oh god! It''s driving you insane! Even though it''s his first time, he''s actually pretty good! Fuck! You should have jumped on his dick ages ago!'
-				'	Several minutes go by with you unable to think about anything except how good fucking your brother feels.'
-				'	Suddenly, you feel him urgently tapping you on the shoulder.'
-				act'Continue':gt'brother_voyeur','brother_fuck_cum'
-			end
+			act'Continue':gt'brother_voyeur','brother_shower_fuck_first3'
 		end
 		act'This doesn''t make you''re special':
 			cla
@@ -1951,24 +1901,8 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 			'	"What do you mean?" he asks, grin disappearing.'
 			'	"There''s been a lot of members in that club." You position his tip at your entrance, lining him up for what you''re about to do next.'
 			'	"A <b>lot.</b> Of <b>members.</b>" On your emphasized words, you thrust your hips backward to take his entire cock inside you in one go, causing your brother to gasp and grab you by the hips to steady himself.'
-			'	"Inside. <b>my ''club.''</b>" you whisper into his ear.'
-			act'Continue':
-				guy += 1
-				gs 'arousal', 'vaginal', rand(5,10)
-				gs 'stat'
-				eff_contra = iif(argc > 1,ARGS[1],sexcontra)
-				tmp = func('pregriskeval',eff_contra)
-				cla & *clr
-				'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
-				'	Barely giving him any time at all to recover from your sudden start, you immediately break into a hard rhythm, thrusting your hips back and giving it your all. He''s your little brother after all. You should try to make his first time special. Soon enough, you start giving him tips.'
-				'	"Hold my hips so you have more control."'
-				'	"Grab my boobs if you like. Boobs are meant to be grabbed during sex.'
-				'	"Don''t worry if you feel like you''re going to cum. It''s your first time so just let me kn-OW-OW-WOAH!"'
-				'	Kolka''s really getting into it. He pumps in and out you, member slick with your juices. His hands come up to grab your breasts and you gasp when they''re used as leverage to fuck you harder, his cock reaching even deeper inside you. His cock! Oh god! It''s driving you insane! Even though it''s his first time, he''s actually pretty good! Fuck! You should have jumped on his dick ages ago!'
-				'	Several minutes go by with you unable to think about anything except how good fucking your brother feels.'
-				'	Suddenly, you feel him urgently tapping you on the shoulder.'
-				act'Continue':gt'brother_voyeur','brother_fuck_cum'
-			end
+			'	"Inside. <i>My. <b>''Club.''</i></b>" you whisper into his ear.'
+			act'Continue':gt'brother_voyeur','brother_shower_fuck_first3'
 		end
 	else
 		brotherfuck += 1
@@ -2010,9 +1944,10 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 
 			act'No, I''m a slut':
 				cla
+				brother_knows_not_virgin = 1
 				'	"Nope!" You smile at him. "Sorry to disappoint, but yours is just going to be one more of many different dicks that have been inside my pussy little brother."'
-				'	You''re not really sure why you''re telling him about this, especially with the implication that you''re a huge slut, but there''s no time to think about that as you push your ass towards him and swallow his cock with your pussy.'
-				act'Continue':gt'brother_voyeur','brother_shower_fuck_first2'
+				'	You''re not really sure why you''re telling him about this, especially with the implication that you''re a huge slut, but there''s no time to think about that as you thrust your hips backward to take his entire length inside you in one go. Your brother gasps at the rush of having his cock entirely swallowed by your pussy, grabbing you by the hips to steady himself.'
+				act'Continue':gt'brother_voyeur','brother_shower_fuck_first3'
 			end
 
 			act'Yes, you''re my first time (lie)':
@@ -2079,7 +2014,23 @@ if $ARGS[0] = 'brother_shower_fuck_first2':
 		end
 	end
 end
-
+if $ARGS[0] = 'brother_shower_fuck_first3':
+	guy += 1
+	gs 'arousal', 'vaginal', rand(5,10)
+	gs 'stat'
+	eff_contra = iif(argc > 1,ARGS[1],sexcontra)
+	tmp = func('pregriskeval',eff_contra)
+	cla & *clr
+	'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
+	'	Barely giving him any time at all to recover from your sudden start, you immediately break into a hard rhythm, thrusting your hips back and giving it your all. He''s your little brother after all. You should try to make his first time special. Soon enough, you start giving him tips.'
+	'	"Hold my hips so you have more control."'
+	'	"Grab my boobs if you like. Boobs are meant to be grabbed during sex.'
+	'	"Don''t worry if you feel like you''re going to cum. It''s your first time so just let me kn-OW-OW-WOAH!"'
+	'	Kolka''s really getting into it. He pumps in and out you, member slick with your juices. His hands come up to grab your breasts and you gasp when they''re used as leverage to fuck you harder, his cock reaching even deeper inside you. His cock! Oh god! It''s driving you insane! Even though it''s his first time, he''s actually pretty good! Fuck! You should have jumped on his dick ages ago!'
+	'	Several minutes go by with you unable to think about anything except how good fucking your brother feels.'
+	'	Suddenly, you feel him urgently tapping you on the shoulder.'
+	act'Continue':gt'brother_voyeur','brother_fuck_cum'
+end
 
 if $ARGS[0] = 'brother_shower_fuck':
 	broshowerfuck = daystart
@@ -2375,6 +2326,7 @@ end
 if $ARGS[0] = 'brother_shower_fuck_end':
 	cla & *clr
 	dynamic $showerdin
+	brother_shower_times += 1
 	minut += 2
 	gs 'arousal','end'
 	if brotherfuck = 1 and brother_knows_not_virgin >= 1:
@@ -2495,7 +2447,6 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 						'	A sly smile on your face, you step forward to grab him by the cock.'
 						'	"Until next time little brother," you murmur into his ear, giving his dick a hard squeeze. Then, you slap his ass and push him towards the door. "Now, shoo! Before someone catches us in here together."'
 						'	Startled, he does as you say, picking up his clothes and peeking into the hallway to make sure no one is there before slipping out the door.'
-						brotherSex += 1
 						brothervirginlie = 0
 						act'Finish drying off':mirror_steam = hour & gt $loc
 					end
@@ -2531,6 +2482,7 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 				'	"Pfft~! It''s not like I''m gonna marry you or anything like that. You''re still my sister. And I''m still gonna fuck lots of other girls once they start looking my way! But..." he trails off again.'
 				'	"... now we have a bond that other siblings don''t have," you finish. "And no matter what else happens, we''ll carry each other''s virginities for the rest of our lives." He nods.'
 				act'Continue':
+					brotherSex = 9
 					minut += 5
 					gs 'stat'
 					cla & *clr
@@ -2588,7 +2540,6 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 
 				act'Until next time (grab his cock)':
 					cla
-					brotherSex += 1
 					brothervirginlie = 0
 					'	A sly smile on your face, you step forward to grab him by the cock.'
 					'	"Until next time little brother," you murmur into his ear, giving his dick a hard squeeze. Then, you slap his ass and push him towards the door. "Now, shoo! Before someone catches us in here together."'
@@ -2628,16 +2579,11 @@ if $ARGS[0] = 'ass_compliment':
 	'	"Hmm? Sure, what is it Kolka?"'
 	'	"You have a great ass!"'
 	'	Feeling his smile radiating from behind you, you look over your shoulder and give him a grin and a little shake of your ass to show your appreciation for his compliment.'
-	act'Continue':
-		if pcs_pubes >= 4 or pcs_leghair >= 4:
-			gt'brother_voyeur','shave'
-		else
-			gt'brother_voyeur','dryoff'
-		end
-	end
+	act'Continue':gt'brother_voyeur','shave'
 end
 
 if $ARGS[0] = 'shave':
+	if pcs_pubes < 4 or pcs_leghair < 4:gt'brother_voyeur','dryoff'
 	cla & *clr
 	if brothershowerlook = 1:
 		if pcs_leghair > 0 or pcs_pubes > 0:
@@ -2645,7 +2591,7 @@ if $ARGS[0] = 'shave':
 		'	You''re rinsing off when you notice Kolka staring at your legs and what''s between them.'
 		'	"Excuse me?" you ask him pointedly. "Can I help you with something?"'
 		elseif pcs_pubes < 11 and pcs_leghair > 3:
-			'	His lips twisted in thought, he says, "You''re looking kind of stubbly down there." You follow his gaze to look at your legs and pussy. "Aren''t you going to shave?"'
+			'	His lips twisted in thought, he says, "You''re looking kind of stubbly down there." You follow his gaze to Continue and pussy. "Aren''t you going to shave?"'
 		elseif pcs_pubes >= 11 and pcs_pubes < 21 and pcs_leghair > 3:
 			'	His lips twisted in thought, he says, "You''re growing a bit of a bush down there." You follow his gaze to look at your <<$pcdesc_legs>> legs and your trimmed pussy hair. "Looks like your legs are growing grass to match. Aren''t you going to shave?"'
 		elseif pcs_pubes >= 21 and pcs_leghair > 3:
@@ -2811,10 +2757,10 @@ if $ARGS[0] = 'shave':
 					inhib_exp += 1
 					gs 'stat'
 					'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
-					if pcs_pubes < 11:
+					if pcs_pubes =< 10:
 						'<br>	"Hmm." You think to yourself for a moment. "Maybe you''re right after all," you say and start lathering up your crotch.'
 						'<br>	Kolka stares at you intensely as you carefully remove the bits of stubble from around your pussy.'
-					elseif pcs_pubes > 10:
+					elseif pcs_pubes >= 11:
 						'<br>	"Hmm." You think to yourself for a moment. "Yeah, you''re right. Maybe it''s time to get rid of this bush," you say and start lathering up your crotch.'
 						'<br>	Kolka stares at you intensely as you carefully remove the hair from around your pussy.'
 						'<br>	"Enjoying the show?" you say teasingly. He doesn''t say anything except nod, not looking away for a second. You have to admit, it''s a little bit exciting having someone watch you do this. You might be enjoying this almost as much as your brother is.'

locations/buklinik.qsrc

@@ -1,4 +1,5 @@
 # buklinik
+
 if $ARGS[0] = 'start':
 	cla
 	clr
@@ -388,5 +389,6 @@ if $ARGS[0] = 'olga2':
 
 	act 'In the corridor':gt 'buklinik', 'holl'
 end
+
 --- buklinik ---------------------------------
 

locations/buklinik_event.qsrc

@@ -1,4 +1,4 @@
-# buklinik_event
+# buklinik_event
 
 if $ARGS[0] = 'pos1':
 	cla

locations/cikl.qsrc

@@ -1,1418 +1,1418 @@
-# cikl
-
-!!----------------------------------------------------------------------------
-!! Time calculations
-
-day += 1
-week += 1
-hour -= 24
-
-if day > monthsEnd[month]:
-	day -= monthsEnd[month]
-	month += 1
-
-	if month > 12: month = 1 & year += 1
-
-	!!MJ: Dont think that one is needed. But it was in the original loop.
-	if month < 1: month = 1
-
-	$month = $monthName[month]
-
-	!! new years party calculation
-	temp = func('shortgs','dow',year,12,31)
-	if temp < 6:
-		nyp_day = 31
-	elseif temp = 6:
-		nyp_day = 30
-	else
-		nyp_day = 29
-	end
-
-end
-
-!!MJ: Dont think that one is needed. But it was here already.
-if day <= 0:day = 1
-
-if week > 7:
-	:loopweek
-	week -= 7
-	husbandrink = 0
-
-	if military = 1:military = 0
-
-	if week > 7:jump 'loopweek'
-end
-
-!!----------------------------------------------------------------------------
-
-!!Fame call to update all the fame variables
-gs 'fame'
-
-!!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
-if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
-	if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
-	gs 'pornschedule', 'schedule'
-end
-
-!!modelling job check
-if model_week ! (daystart - week) / 7:model_job_week = 0
-
-!!acting strings to set available jobs
-if casting = 1:
-	acting_string1 = rand(10000000000,199999999999)
-	acting_string2 = rand(10000000000,199999999999)
-end
-
-gs 'daystart'
-dynamic $hypnoDaychange
-
-!!phone reset for bf
-ringA = 0
-ringB = 0
-ringC = 0
-
-if home_owned[1] = 1 and ArendHouseSL <= 0: ArendHouseSL = 0 & home_owned[1] = 0
-if home_owned[4] > 0 and ArendHouseSL4 <= 0: ArendHouseSL4 = 0 & home_owned[4] = 0
-
-if home_owned[1] = 1: ArendHouseSL -= 1
-if home_owned[4] > 0: ArendHouseSL4 -= 1
-
-!!Appearance Age
-vidageday -= 1
-if vidageday <= 0:
-	vidageday = 360
-	vidage += 1
-end
-!!Birthday
-age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
-if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
-
-if workDolgDay > 0: workDolgDay -= 1
-if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
-if husband > 0: husbanday += 1
-if husband > 10 and husbanday > 0: husband -= 15
-if fingal > 0: fingal -= 1
-
-if husbandMark = 1 and husband <= 10:
-	husbizvradd = 0
-	husbharmin = 0
-	husbandMark = 0
-	husband = 0
-	divorced += 1
-
-	if KFOnLineReaga > 0:KFOnLineReaga -= 1
-
-	'<b><font color="red">Your husband has filed for a divorce.</font></b>'
-end
-
-if katjaPreg = 0 and month >= 2:
-	if school_year = 2001 and year > 2016:
-		katjaPreg = 1
-	elseif school_year = 2000 and year > 2017:
-		katjaPreg = 1
-	end
-end
-
-!! after having surgery you will be in recuperation for a few days
-
-if surgeryday ! '':
-	if daystart - 7 <= surgeryday:
-		dailyhealthimprov = (daystart - surgeryday) * 50
-		pcs_health = dailyhealthimprov
-		recuperation = 1
-	else
-		killvar 'recuperation'
-		killvar 'dailyhealthimprov'
-	end
-end
-
-!!Street events daily reset
-streetevent_hour = -2
-
-!!Clothing stock and price randomizers
-Clothingstock = rand (0,23)
-i = 1
-:loopprice
-Clothingstock[i] = rand (0,500)
-i += 1
-if i <= 147:jump 'loopprice'
-
-if coatH[defaultcoat] <= 0: defaultcoat = 0
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Bimbo
-!!------------------------------------------------------------------------------------------------------------
-
-!!Bonus from clothing and shoes
-if succubusflag = 0 and $cheatBimbo ! '<b>ON</b>':
-	if bimbocl = 1:
-		bimbocl = 0
-		bimbo += 2
-	end
-	if bimbosh = 1:
-		bimbosh = 0
-		bimbo += 1
-	end
-else
-	bimbocl = 0
-end
-
-!!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
-if bimbo > 0 or bimbolevel > 0:
-    if bimbo < 10:
-        bimbo -= 1
-    elseif bimbo < 20:
-    	bimbolevel = 1
-    elseif bimbo < 30:
-    	bimbolevel = 2
-    else
-        bimbolevel = 3
-    end
-end
-
-if bimbo >= 40: bimbo = 40
-
-!!Bimbo levels. They use custom variables so they won''t permanently change character stats
-if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
-if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
-if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
-if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
-
-!!A Succubus cannot be a Bimbo
-if succubusflag = 1:
-	if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
-elseif bimbolevel >= 1:
-!!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
-	bimbo += ((stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX) - 3
-	if bimbo > snapshotY:
-		bimbowithdrawal = 0
-	else
-		bimbowithdrawal += 1
-	end
-end
-
-if bimbo < 0: bimbo = 0
-snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
-snapshotY = bimbo
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Exhibitionism
-!!------------------------------------------------------------------------------------------------------------
-
-if pcs_exhib > 0 or exhibitionist_lvl > 0:
-    if pcs_exhib < 10:
-        pcs_exhib -= 1
-    elseif pcs_exhib < 20:
-    	exhibitionist_lvl = 1
-    elseif pcs_exhib < 30:
-    	exhibitionist_lvl = 2
-    else
-        exhibitionist_lvl = 3
-    end
-end
-
-!!Inhibition increases from wearing revealing clothing
-
-if exhibition_outdoors > 0:
-	if pcs_inhib > 90:
-		exhibition_outdoors = exhibition_outdoors * 3
-	elseif pcs_inhib > 75:
-		exhibition_outdoors = exhibition_outdoors * 5 / 2
-	elseif pcs_inhib > 60:
-		exhibition_outdoors = exhibition_outdoors * 2
-	elseif pcs_inhib > 30:
-		exhibition_outdoors = exhibition_outdoors * 3 / 2
-	end
-
-	if exhibition_outdoors <= 5:
-		inhib_exp += rand(3,6)
-	elseif exhibition_outdoors <= 10:
-		inhib_exp += rand(5,9)
-	elseif exhibition_outdoors <= 15:
-		inhib_exp += rand(7,12)
-	elseif exhibition_outdoors <= 20:
-		inhib_exp += rand(9,15)
-	elseif exhibition_outdoors <= 25:
-		inhib_exp += rand(12,20)
-	elseif exhibition_outdoors <= 30:
-		inhib_exp += rand(16,25)
-	elseif exhibition_outdoors <= 35:
-		inhib_exp += rand(20,30)
-	elseif exhibition_outdoors <= 40:
-		inhib_exp += rand(25,40)
-	elseif exhibition_outdoors <= 50:
-		inhib_exp += rand(35,50)
-	elseif exhibition_outdoors <= 65:
-		inhib_exp += rand(50,75)
-	else
-		inhib_exp += rand(70,100)
-	end
-end
-
-exhibition_outdoors = 0
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Succubus
-!!------------------------------------------------------------------------------------------------------------
-
-!!Succubus Level & hunger calcs
-if succubusflag = 1:
-
-	cheatHealth = 1
-	dynamic $cheatmenu['std_cure']
-
-!!	Hunger handling
-	if sucxpsnapshot >= succubxp: succhungry += 1
-	sucxpsnapshot = succubxp
-	if succubxp < 0: succubxp = 0
-
-!!	Level handling
-	if succubxp < 60:
-		succublvl = 1
-		$sucself1 = 'that feeling'
-		sucstorecap = 0
-		if bimbolevel <= 0: supnatvnesh = 1
-	elseif succubxp < 150:
-		succublvl = 2
-		$sucself1 = 'the power'
-		sucstorecap = 0
-		if bimbolevel <= 0: supnatvnesh = 3
-	elseif succubxp < 270:
-		succublvl = 3
-		$sucself1 = 'your other self'
-		sucstorecap = 100
-		if bimbolevel <= 0: supnatvnesh = 6
-	else
-		succublvl = 4
-		$sucself1 = 'your true self'
-		sucstorecap = 200
-		if bimbolevel <= 0: supnatvnesh = 10
-	end
-
-	if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
-	if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
-
-	if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
-	if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
-	if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
-	if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
-	if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
-	if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
-	if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
-	if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
-
-	if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
-		if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
-		if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
-		if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
-		if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
-		if pcs_react < 250: react_exp += 20 & sucexcess -= 10
-		if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
-		if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
-		if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
-		if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
-		if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
-!!		This is to drive the Succubus vidage into the max appearance range
-		if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
-		if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
-		if vidageday >= 720 and vidage > 28:
-			vidageday -= 360
-			vidage -= 1
-		end
-		if sucexcess > sucstorecap: sucexcess = sucstorecap
-	elseif sucexcess < 0 and succhungry < 0:
-		succhungry += 1
-		if (0 - sucexcess) < (10 * succublvl):
-			sucexcess = 0
-		else
-			sucexcess += (10 * succublvl)
-		end
-	end
-	if sucexcess < 0: sucpowzeroed += 1
-	if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
-
-!!	This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
-	if sucskill >= 4:
-		if pcs_vag - 2 >= 13:
-			pcs_vag -= 2
-		elseif pcs_vag + 2 <= 13:
-			pcs_vag += 2
-		end
-		if pcs_ass - 2 >= 8:
-			pcs_ass -= 2
-		elseif pcs_ass + 2 <= 8:
-			pcs_ass += 2
-		end
-	end
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-if defcurly = 0 and curly > 0:curly -= 1
-if defcurly = 1:
-	if straight > 0: straight -= 1
-	if straight = 0: curly = 2147483647
-end
-
-! WD: Added daily reduction of braids for Maruda Hair Mod
-if hbraids > 0: hbraids -= 1
-
-
-pcs_sweat += 2
-
-if pcs_tan > 0: pcs_tan -= 1
-
-if prezikmsg = 2: prezikmsg = 3
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Birth control
-!!------------------------------------------------------------------------------------------------------------
-!!	Birth Control Management variables
-!!
-!!	tabletkimm		: The modifier for the current mood of the MC.
-!!	tabletkiap		: Autopill factor affecting the liklihood you took your pill as you should have
-!!	tabletkipt		: Pill Dicipline Take increase
-!!	tabletkipi		: Pill Dicipline Dont take increase
-!!	tabletkicpd		: Current MC Pill Dicipline
-!!	tabletkichday	: Current day that the Birth Control is being evaluated for
-!!	tabletkicheck	: If the birth control is automatically handled
-!!	tabletki		: How many packages of Birth Control Pills there are
-!!	tabletkiold		: Total number packages of expired pills
-!!	tabletkifake	: Total number packages of fake/counterfeit pills
-!!	tabletkirej		: Total number packages of factory rejected pills
-!!	tabletkifert	: Total number packages of subsituted fertility pills
-!!	tabletkisug		: Total number packages of sugar pills
-!!	pillsleft		: Total number packages of pills in current package
-!!	tabletkishot	: The flag for being on the Birth Control shot.
-!!	pillcon			: The number for the current birth control chemical level.
-!!	pilldays		: The number of consecutive days (you believe) you have taken your pill
-
-if Luth > (LutH_Max-75) and placebopart <= 0: placebopart = 8
-placebopart -= 1
-
-if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
-if pillcon < 0:	pillcon = 0
-if pillcon2 < 0: pillcon2 = 0
-
-if tabletkicheck = 2:
-	if tabletkishot ! 0:
-		!!cycle = 1
-		mesec = 0
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH = EggRH
-	end
-	if tabletkishot <= 0:
-		pillcon -= 29000
-		pillcon2 -= 29000
-		if tabletkishot < 0: tabletkishot = 0
-	end
-	if shotdays = -8:
-		tabletkicheck = 0
-		shotdue = 0
-		'Your birth control shot is no longer protecting you.'
-	elseif shotdays <= 0:
-		if shotdays = 0:
-			shotdue = 7
-		else
-			shotdue -= 1
-		end
-		'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
-	elseif shotdays > 1 and shotdays < 5:
-		'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
-	elseif shotdays = 1:
-		'Your birth control shot is due for renewal tomorrow.'
-	end
-
-	if shotdays > -100:shotdays -=1
-	if tabletkishot > 0:tabletkishot -= 1
-end
-
-tabletkipd += tabletkipi
-tabletkipi = 0
-tabletkipt = 0
-if tabletkicheck = 1:
-	if tabletki = 0 and pillsleft[ptype] = 0:
-		tabletkicheck = 0
-		'You are out of birth control pills.'
-		tabletkipi = -5
-	elseif tabletki = 0 and pillsleft[ptype] = 28:
-		'You have just opened your last package of birth control pills. You need to buy more.'
-	elseif tabletki = 0 and pillsleft[ptype] <= 5:
-		'You are running out of birth control pills, you only have a few left.'
-	end
-end
-
-if tabletkicheck = 1 and tabletkichday < daystart:
-	tabletkichday = daystart
-	tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
-	if pcs_sleep < 10:
-		tabletkimm -= (100- (pcs_sleep * 10))
-	end
-	if pcs_willpwr < willpowermax / 4:
-		tabletkimm = tabletkimm / 4
-	elseif pcs_mood < 10:
-		tabletkimm = tabletkimm / 2
-	end
-	tabletkiap = tabletkimm
-	tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
-	tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
-	temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
-	tabletkiap += temprand
-	if tabletkiap < 300:
-		if tabletkipd > -10:
-			if pcs_willpwr < willpowermax / 4:
-				pilldaychk = 0
-				'You stare at your package of birth control pills, you know you should take one but you can''t quite work up enough effort to care.'
-			elseif pcs_mood < 10:
-				pilldaychk = 0
-				'You stare at your package of birth control pills, but you don''t open it.'
-			elseif pcs_sleep < 10:
-				pilldaychk = 0
-				'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
-			else
-				pilldaychk = 0
-				'You just realized you forgot to take your birth control pill today.'
-			end
-		end
-		tabletkipt = 2
-		tabletkipi = -4
-	else
-		if tabletkiap < 350:
-			temprand = rand(0,5)
-		else
-			temprand = rand(0,1000)
-		end
-		if temprand = 0:
-			temprand = rand(0,1)
-			if temprand = 0:
-				gs 'din_bad','takepill'
-				tabletkipt = -2
-				tabletkipi = 1
-			else
-				tabletkipt = 3
-				tabletkipi = -3
-			end
-
-			if tabletkipd > -10:
-				pilldaychk = 0
-				'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
-			end
-			if tabletkipd > 0:
-				if rand(0,9) = 0:
-					if tabletkipt < 0:
-						pilldaychk = 0
-						'You don''t think you have taken your pill today.'
-					else
-						pilldaychk = 1
-						'You think you have taken your pill today.'
-					end
-				else
-					if tabletkipt > 0:
-						pilldaychk = 0
-						'You don''t think you have taken your pill today.'
-					else
-						pilldaychk = 1
-						'You think you have taken your pill today.'
-					end
-				end
-			end
-		else
-			'You take your birth control pill for the day.'
-			pilldaychk = 1
-			gs 'din_bad','takepill'
-			if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
-			tabletkiday = daystart
-			tabletkipt = 0
-			tabletkipi = 0
-		end
-	end
-elseif tabletkicheck = 0:
-	if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
-	if pillcon > 0 and tabletkipi = 0 and rand(0,3) = 0 and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
-end
-
-if pilldaychk = 1:
-	pilldays += 1
-else
-	pilldays -= 1
-end
-
-pilldaychk = 0
-if pilldays > 18: pilldays = 18
-if pilldays < 0: pilldays = 0
-!!
-$MenCal[] = $str(cycle)
-if ArrSize('$MenCal') = 60: killvar '$MenCal',0
-
-
-!!------------------------------------------------------------------------------------------------------------
-
-if lashair ! 1:
-	pcs_leghair += 1
-	pcs_pubes += 1
-end
-
-if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
-
-if pcs_breath = 1:pcs_breath = 0
-
-if cheatNoEat = 1 and dounspell = 1:fat += 15
-
-!!STD check
-if SifacOnce = 1:Sifilis += 1
-if GerpesOnce = 1:Gerpes += 1
-if TriperOnce = 1:
-	if Triper > 0:
-		Triper += 1
-	end
-	if TriperOral > 0:
-		TriperOral += 1
-	end
-	If TriperOral > 14 and TriperNapr = 0:
-		if rand(TriperOral,100) > 80:
-		TriperOral = 0
-		if Triper = 0:TriperOnce = 0
-		TriperOralSigns = 0
-		end
-	end
-end
-if KandidozOnce = 1:Kandidoz += 1
-
-VeneraN = 0
-
-if VeneraOnce > 0:VeneraOnce = 0
-if SifacOnce = 1:VeneraN += 1
-if GerpesOnce = 1:VeneraN += 1
-if TriperOnce = 1:VeneraN += 1
-
-Venera = VeneraN
-
-if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
-	if anusK < 0:anusK = 0
-	if anusK < ashrinkdays:anusK += 1
-	if anusK >= ashrinkdays:pcs_ass -= ashrink & anusK = 0
-	if pcs_ass < 0: pcs_ass = 0
-end
-if pcs_vag > 10 and vshrink > 0:
-	if vaginaK < 0:vaginaK = 0
-	if vaginaK < vshrinkdays:vaginaK += 1
-	if vaginaK >= vshrinkdays:vaginaK = 0 & pcs_vag -= vshrink
-end
-
-lipkoef -= rand(0,1)
-if lipkoef <= 0: lipkoef = 0
-
-if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
-if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
-
-if preg = 1:
-	pregtime = pregchem / 24
-
-	if pregtimes = 0:pregtimes = 1
-
-elseif preg = 2 and pregminut < totminut:
-	if Enable_nogameover = 0 :
-		cla
-		*clr
-		over = 4
-		MSG '<center><b>A horrible pain shoots through your body.</b></center>'
-		xgt 'gameover'
-		exit
-	else
-		MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
-		pregminut = totminut + 1440
-	end
-elseif preg = 0:
-	KILLVAR 'pregTalkBrother'
-	KILLVAR 'pregTalkSister'
-	KILLVAR 'pregTalkFather'
-	!{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
-	KILLVAR 'pregTalkMom'
-	KILLVAR 'pregTalk'
-	KILLVAR 'pregTalkNat'
-	KILLVAR 'pregTalkKatja'
-	KILLVAR 'pregTalkAlbina'
-	KILLVAR 'pregTalkPC'
-	KILLVAR 'pregTalkStarlets'
-	KILLVAR 'pregTalkvball'
-	KILLVAR 'pregTalkTrack'
-	killvar 'pregtalkStarlets'
-	killvar 'pregtalkvball'
-	killvar 'pregtime'
-	killvar 'knowpreg'
-	killvar 'denypreg'
-	killvar '$wombthfath'
-end
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Arousal
-!!------------------------------------------------------------------------------------------------------------
-
-if magikDostup = 0:
-	if pcs_horny < 100:pcs_horny += pcs_vag
-else
-	if pcs_vag = 0:
-		razeba = 0
-
-		if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
-		if pcs_horny > 50:pcs_horny -= 25
-	elseif pcs_vag > 0:
-		if pregtimes = 0:
-			if age < 18:
-				razeba = 1
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
-				if pcs_horny >= 80:pcs_horny -= 20
-			elseif age >= 18 and age < 21:
-				razeba = 2
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
-				if pcs_horny >= 80:pcs_horny -= 10
-			elseif age >= 21 and age < 25:
-				razeba = 3
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
-				if pcs_horny >= 80:pcs_horny -= 5
-			elseif age >= 25 and age < 30:
-				razeba = 4
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
-				if pcs_horny >= 80:pcs_horny -= 5
-			elseif age >= 30:
-				razeba = 5
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
-				if pcs_horny >= 80:pcs_horny += 1
-			end
-		elseif pregtimes > 0:
-			if preg = 0:
-				razeba = 5
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
-				if pcs_horny >= 80:pcs_horny += 1
-			elseif preg > 0:
-				razeba = 6
-
-				if pcs_horny < 100:pcs_horny += pregtime / 10
-			end
-		end
-	end
-end
-
-if pcs_horny < 0:pcs_horny = 0
-
-!!------------------------------------------------------------------------------------------------------------
-
-!counter for Dimka avoidance
-if dimaFilm = 1 and dimaRudeBlock = 0:
-	nodimkaK += 1
-	DimkaWarnedToday = 0
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-!!Fame degradation
-gs 'fame', 'deg'
-
-!!Traits
-gs 'traits', 'overnight'
-
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Maruda hair mod
-!!------------------------------------------------------------------------------------------------------------
-!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
-!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
-if pcs_hairlng < 1001 and hairgrowcht = 0:pcs_hairlng += 1
-
-if pcs_haircol ! nathcol:
-	dyefade -=1
-	if dyefade < 0: dyefade = 0
-	if dyefade > 0 and dyefade < 7: dyevmod = 5
-	if dyefade = 0: dyevmod = 15
-end
-
-if hscrunch > 0:
-	hscrunchrand = rand(1, 100)
-
-	if hscrunchrand <= 8:hscrunch -= 1
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-!! Clothing wear and tear
-gs 'starenie'
-
-if nark > 60:
-	nark = 60
-elseif nark > 30:
-	nark -= 3
-elseif nark > 0:
-	nark -= 1
-end
-
-if pregtime > 10:fat += 1
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Pain
-!!------------------------------------------------------------------------------------------------------------
-
-if pain['head'] > 0:pain['head'] -= rand(1,3)
-if pain['hair'] > 0:pain['hair'] -= rand(1,3)
-if pain['ears'] > 0:pain['ears'] -= rand(1,3)
-if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
-if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
-if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
-if pain['nose'] > 0:pain['nose'] -= rand(1,3)
-if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
-if pain['lips'] > 0:pain['lips'] -= rand(1,3)
-if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
-if pain['throat'] > 0:pain['throat'] -= rand(1,3)
-if pain['neck'] > 0:pain['neck'] -= rand(1,3)
-if pain['back'] > 0:pain['back'] -= rand(1,3)
-if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
-if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
-if pain['hips'] > 0:pain['hips'] -= rand(1,3)
-if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
-if pain['legL'] > 0:pain['legL'] -= rand(1,3)
-if pain['legR'] > 0:pain['legR'] -= rand(1,3)
-if pain['feet'] > 0:pain['feet'] -= rand(1,3)
-if pain['toes'] > 0:pain['toes'] -= rand(1,3)
-if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
-if pain['armL'] > 0:pain['armL'] -= rand(1,3)
-if pain['armR'] > 0:pain['armR'] -= rand(1,3)
-if pain['hands'] > 0:pain['hands'] -= rand(1,3)
-if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
-if pain['chest'] > 0:pain['chest'] -= rand(1,3)
-if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
-if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
-if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
-if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
-if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
-if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
-if pain['labia'] > 0:pain['labia'] -= rand(1,3)
-if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
-if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
-if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
-
-if painpub = 2:
-	if painpubday + 5 < daystart:
-		$painpub = 'Your vulva is painfully sore.'
-		painpub = 1
-		painpubday = daystart
-	elseif painpubday + 5 >= daystart:
-		$painpub = 'Your vulva is painfully sore.'
-	end
-elseif painpub = 1:
-	if painpubday + 5 < daystart:
-		$painpub = ''
-		painpub = 0
-		painpubday = daystart
-	elseif painpubday + 5 >= daystart:
-		$painpub = 'Your vulva is a little sore.'
-	end
-end
-
-!!---- Calculation of lash extension degradation and false lash removal
-if pcs_lashes > 2:
-	if lashextensionstyle >= 1:
-		lashextensionduration -= 1
-		if lashextensionduration >= 1 and lashextensionduration <= 4:
-			'It''s time for you to do your maintenance on your lash extensions; you should go to the salon or you risk growing them all out.'
-		end
-		if lashextensionduration <= 0:
-			'You waited too long to do maintenance on your lash extensions; there''s too little there to notice or work with at this point.'
-			pcs_lashes = pcs_naturallashes
-			killvar 'lashextensionstyle'
-			killvar 'lashextensionduration'
-			killvar 'lashextensionnew'
-		end
-	end
-	if false_lashes > 0:
-		false_lashes -= 1
-		if false_lashes = 0:
-			'Your false lashes came off in the night; there''s no recovering them now.'
-			pcs_lashes = pcs_naturallashes
-		else
-			'Somehow, your lashes managed to stay attached throughout the night. You might be able to get away with wearing them another day straight.'
-		end
-	end
-end
-
-
-prezikProver += 1
-if pirs_pain_ton > 0:pirs_pain_ton -= 1
-if shorthair = 1:
-	shorthairday += 1
-	if shorthairday >= 45:shorthairday = 0 & shorthair = 0
-end
-!!------------------------------------------------------------------------------------------------------------
-
-if KatjaOTN > 0:
-	if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
-	if KatjaLust >= 40:KatjaHorny += rand(1, 3)
-	if KatjaHorny < 0:KatjaHorny = 0
-	if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
-end
-
-if npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
-
-!!Counter for dimka/igor date
-if igor_DimaNos = 2 or igor_DimaNos = 3: $igor_DimaNos_day += 1
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Generation
-!!------------------------------------------------------------------------------------------------------------
-if NPCnum < 290:
-	NPCnow = NPCnum
-	NPCnum += rand(1, 3)
-	gs 'npc'
-elseif NPCnum < 300:
-	NPCnow = NPCnum
-	NPCnum += 1
-	gs 'npc'
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-if kanikuli = 0:pcs_grades -= 1
-dmishaevent = 0
-
-if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
-if GspravkaT = 1:Gspravka -= 1
-if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
-if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
-
-!!remove degradation for inhibition
-inhib_flr = inhib_lvl
-
-gs 'stat_sklattrib', 'daycall'
-
-if dounspell = 1:
-	if strenbuf > 90:
-		strenbuf -= 2
-	elseif strenbuf > 80:
-		strenbuf -= 1
-	end
-
-	if vitalbuf > 90:
-		vitalbuf -= 2
-	elseif vitalbuf > 80:
-		vitalbuf -= 1
-	end
-
-	if strenbuf > pcs_stren: strenbuf -= 1
-	if strenbuf < pcs_stren: strenbuf += 1
-	if vitalbuf > pcs_vital: vitalbuf -= 1
-	if vitalbuf < pcs_vital: vitalbuf += 1
-	if agilbuf > pcs_agil: agilbuf -= 1
-	if agilbuf < pcs_agil: agilbuf += 1
-else
-	gs 'body_shape'
-end
-
-
-if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
-
-!!Pussy_Kats job settings
-inWorkYoungShop = 0
-if week = 1 and young_shop_work = 100: young_shop_work = 1
-if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
-if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
-
-husbandsexday = 0
-borsexkol = 0
-givisexday = 0
-
-if shantsr > 0:
-	pay = shantsr * 5000
-	karta += pay
-	shantsr = 0
-end
-
-if shantbog > 0:
-	:shantftb
-	shantftbgrand = rand(0, 10)
-	if shantftbgrand > 2:
-		shantpopala += 1
-		shantbog -= 1
-		if shantbog > 0:jump 'shantftb'
-	elseif shantftbgrand <= 2:
-		karta += 30000
-		shantbog -= 1
-		if shantbog > 0:jump 'shantftb'
-	end
-end
-
-petersexday = 0
-klismaday1 = 0
-
-!! Resetting relationships that go over the max
-
-:toptemprel
-if temprel < 250:
-	temprel +=1
-	if npc_rel['A'+'<<temprel>>'] > 100:npc_rel['A'+'<<temprel>>'] = 100
-	jump 'toptemprel'
-end
-killvar 'temprel'
-!!------------------------------------------------------------------------------------------------------------
-!!	Banking
-!!------------------------------------------------------------------------------------------------------------
-
-!!MJ: Add some (daily) interest to the bank account.
-!!Not very realistic but won''t make anyone too rich.
-
-if bankAccount = 1:
-	kartatotal = karta
-	:kartaloop
-	if kartatotal > 20000000:
-		kartacount += 1
-		largekarta[kartacount] = 20000000
-		kartatotal -= 20000000
-		jump 'kartaloop'
-	else
-		largekarta[0] = kartatotal
-	end
-	if karta >= 2000000:
-		!! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
-		intrate = 60
-	elseif karta >= 0:
-		!! yearly interest of 1.15% recalculated into daily interest = 0.003% daily
-		intrate = 30
-	else
-		!! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
-		intrate = 550
-	end
-	:intloop
-	if kartacount > 0:
-		smallmoneypos += (largekarta[kartacount] * intrate)
-		if smallmoneypos >= 1000000 or smallmoneypos <= -1000000: karta += smallmoneypos / 1000000 & smallmoneypos = smallmoneypos mod 1000000
-		largekarta[kartacount] = 0
-		kartacount -= 1
-		jump 'intloop'
-	else
-		smallmoneypos += (largekarta[0] * intrate)
-		largekarta[0] = 0
-		if kartacount ! 0: kartacount = 0
-	end
-
-	if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
-		karta += smallmoneypos / 1000000
-		smallmoneypos = smallmoneypos mod 1000000
-	end
-
-	if atmDeposit > 0 and atmDepositDate <= daystart:
-		karta += atmDeposit
-		atmDeposit = 0
-	end
-end
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Payments
-!!------------------------------------------------------------------------------------------------------------
-
-if day = 25:
-	!! meynold payment
-	if mey_vika_qw >= 35 and mey_tamara_help_count >= 10 and mey_tamara_qw_end = 0:
-		money += 5000
-		'<b><font color=green>For your efforts aunt Tamara gave you 5,000 rubles</font></b>'
-		mey_tamara_help_count = 0
-	end
-
-	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
-		Pay = PersSecWorkTimes * 1250
-		PersSecWorkTimes = 0
-		karta += Pay
-		paydaybistrosec = 1
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
-	end
-
-	if workKafe = 1 and paydayKafe = 0:
-		paydayKafe = 1
-		pay = smenaKafe * 600
-		karta += pay
-		smenaKafe = 0
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a waitress in a cafe.</font></b>'
-	end
-
-	if workhosp = 1 and nopaypoly = 0:
-		pay = smena * 1000
-		karta += pay
-		smena = 0
-		nopaypoly = 1
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in the clinic.</font></b>'
-	end
-
-	if worksalon = 1 and nopaysalon = 0:
-		pay = smenaSalon * 1560
-		karta += pay
-		smenaSalon = 0
-		nopaysalon = 1
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in a beauty salon.</font></b>'
-	end
-
-	if tanwork = 1 and nopaytanwork = 0:
-		nopaytanwork = 1
-		karta += 10000
-		'<b><font color="green">Your salary of 10,000 <b>₽</b> has been paid into your bank account for your work as a house maid.</font></b>'
-	end
-
-	if workSec = 1 and paydaySec = 0:
-		paydaySec = 1
-		pay = sekDay * 800
-
-		if officebestslut >= 3:pay += 10000
-		karta += pay
-		sekDay = 0
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
-	end
-
-	if workFabrika = 1:
-		pay = smenaFabrika * 420
-		smenaFabrika = 0
-		karta += pay
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job at the garment factory.</font></b>'
-	end
-
-	if husband > 0 and paydayHusb = 0:
-		paydayHusb = 1
-
-		if husbFin = 0:huspay = 20000
-		if husbFin = 1:huspay = 30000
-		if husbFin = 2:huspay = 40000
-
-		karta += huspay
-		'<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
-	end
-
-	if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
-
-	if haday = 0:
-		gs 'housing', 'rent'
-		! Rent for the city apartment
-		if home_owned[1] = 1:
-			if ArendHouseSL < 31:
-				!From bank
-				if bankAccount = 1 and karta >= home_rent[1]:
-					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account.</font></b>'
-					haday = 1
-					karta -= home_rent[1]
-					ArendHouseSL += ArendHouseSL_due
-				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[1]:
-					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
-					haday = 1
-					karta -= home_rent[1]
-					ArendHouseSL += ArendHouseSL_due
-				elseif bankAccount = 0:
-					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
-				else
-					nl
-					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
-				end
-			elseif home_owned[1] = 1 and ArendHouseSL >= 31:
-				'<b><font color="yellow">Your rent for your city apartment is already paid in full for this month.</font></b>'
-				haday = 1
-			end
-		end
-
-		! Rent for the Pushkin apartment
-		if home_owned[4] > 0:
-			if ArendHouseSL4 < 31:
-				!From bank
-				if bankAccount = 1 and karta >= home_rent[4] and ArendHouseSL4 <= 30:
-					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account.</font></b>'
-					haday = 1
-					karta -= home_rent[4]
-					ArendHouseSL4 += ArendHouseSL4_due
-				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[4] and ArendHouseSL4 <= 30:
-					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
-					haday = 1
-					karta -= home_rent[4]
-					ArendHouseSL4 += ArendHouseSL4_due
-				elseif bankAccount = 0 and ArendHouseSL4 <= 30:
-					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
-				else
-					nl
-					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
-				end
-			elseif home_owned[4] > 0 and ArendHouseSL4 >= 31:
-				'<b><font color="yellow">Your rent for your Pushkin apartment is already paid in full this month.</font></b>'
-				haday = 1
-			end
-		end
-	end
-
-	! Utilities for all apartments.
-	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 0:
-		gs 'housing', 'util'
-		if bankAccount = 1 and karta >= elektro:
-			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account.</font></b>'
-			electroday = 1
-			if elektro >= 2000:
-				elektro = 2000 + rand(0, 100)
-				karta -= elektro * hcount_util
-			end
-		elseif bankAccount = 1 and karta + bankDebtLimit >= elektro:
-			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account and overdraw facility. Please contact your bank.</font></b>'
-			electroday = 1
-			if elektro >= 2000:
-				elektro = 2000 + rand(0, 100)
-				karta -= elektro * hcount_util
-			end
-		elseif bankAccount = 0 and money >= elektro:
-			'<b><font color="red">You currently do not have a bank account setup for automatic utilities payments. <<elektro>> <b>₽</b> has been deducted from your cash holdings.</font></b>'
-			electroday = 1
-			if elektro >= 2000:
-				elektro = 2000 + rand(0, 100)
-				money -= elektro * hcount_util
-			end
-		else
-			'<b><font color="red">You''re card was declined during automatic debit of <<elektro>> <b>₽</b>, for automatic utilities payment.</font></b>'
-		end
-	end
-
-	! Cable for all apartments
-	if kabel > 0 and kabelday = 0:
-		gs 'housing', 'cable'
-		if bankAccount = 1 and karta >= (300 * hcount_cable):
-			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
-			kabelday = 1
-			karta -= 300 * hcount_cable
-			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
-		elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
-			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
-			kabelday = 1
-			karta -= 300 * hcount_cable
-		elseif bankAccount = 0 and money >= (300 * hcount_cable):
-			'<b><font color="red">You currently do not have a bank account setup for automatic payment of your cable TV subscription. 300 <b>₽</b> has been deducted from your cash holdings.</font></b>'
-			kabelday = 1
-			money -= 300 * hcount_cable
-		else
-			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
-		end
-	end
-end
-
-if day ! 25:
-	if paydayHusb = 1:paydayHusb = 0
-	if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
-	if workSec = 1 and paydaySec = 1:paydaySec = 0
-	if (home_owned[1] = 1 or home_owned[4] > 0) and haday = 1:haday = 0
-	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 1:electroday = 0
-	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 3) and kabel > 0 and kabelday = 1:kabelday = 0
-	if stipuhaday = 1:stipuhaday = 0
-	if nopaytanwork = 1:nopaytanwork = 0
-	if nopaypoly = 1:nopaypoly = 0
-	if nopaysalon = 1:nopaysalon = 0
-	if paydaybistrosec = 1:paydaybistrosec = 0
-end
-
-if sdaday = day and sdamonth = month and home_owned[1] = 0:
-	home_owned[1] = 2
-	'<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
-	!msg 'Your tenants have moved out and your apartment is now vacant.'
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-killvar 'holyday'
-killvar 'kanikuli'
-
-!!sisboyparty
-!!-1 - don''t go to the party
-!!0 - don''t know about parties
-!!1 - knows about the parties
-!!2 - agreed to go to the party
-!!3 - Missed the party
-
-if storyline = 1:
-!!Party refresh if you didn''t see sis
-	if week = 1 and sisboyparty ! 2:
-		if sisboyparty = -1: sisboyparty = 1
-
-		if sisboypartyQW >= 2 and sisboyparty > 0:
-			sisboyparty_day = daystart + rand(3,5)
-		end
-	end
-
-	if sisboyparty = 2 and sisboyparty_day + 1 < daystart: sisboyparty = 3
-
-!!missed graduation
-	if month = 5 and day = 26:
-		if school_year = 2001 and year = 2018 and kanikuli ! 7:
-			grad_miss = daystart + 1
-		elseif school_year = 2000 and year = 2017 and kanikuli ! 7:
-			grad_miss = daystart + 1
-		end
-	end
-
-	if SchoolAtestat = 0:
-		if month = 12 and day > 25:
-			if day < 31:
-				$holyday = '<b>Winter Break in <<32-day>> days.</b>'
-			else
-				$holyday = '<b>Winter Break starts tomorrow.</b>'
-			end
-		elseif month = 1 and day <= 15:
-			kanikuli = 2
-			if day < 13:
-				$holyday = '<b>Winter Break.</b>'
-			elseif day < 15:
-				$holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
-			else
-				$holyday = '<b>Last day of Winter Break.</b>'
-			end
-		elseif month = 3 and day > 13:
-			if day < 19:
-				$holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
-			elseif day = 19:
-				$holyday = '<b>Spring Break starts tomorrow.</b>'
-			elseif day >= 20 and day <= 26:
-				kanikuli = 3
-				if day < 24:
-					$holyday = '<b>Spring Break.</b>'
-				elseif day < 26:
-					$holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
-				else
-					$holyday = '<b>Last day of Spring Break.</b>'
-				end
-			end
-		elseif month = 5:
-			if ( (school_year = 2000 and year = 2017) or (school_year = 2001 and year = 2018) ) and day >= 19 and day <= 25:
-				if day = 25:
-					kanikuli = 6
-					$holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
-				elseif day = 24:
-					$holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
-				else
-					$holyday = '<b>Your graduation is in <<26-day>> days.</b>'
-				end
-			elseif day >= 25:
-				if day = 31:
-					$holyday = '<b>Summer Break starts tomorrow.</b>'
-				else
-					$holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
-				end
-			end
-		elseif month = 6 or month = 7 or month = 8:
-			kanikuli = 4
-			if month = 8 and day >= 25:
-				if day = 31:
-					$holyday = '<b>Last day of Summer Break.</b>'
-				else
-					$holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
-				end
-			else
-				$holyday = '<b>Summer Break.</b>'
-			end
-		elseif month = 10 and day >= 29:
-			$holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
-		elseif month = 11:
-			if day < 3:
-				$holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
-			elseif day = 3:
-				$holyday = '<b>Autumn Break starts tomorrow.</b>'
-			elseif day < 6:
-				kanikuli = 1
-				$holyday = '<b>Autumn Break.</b>'
-			elseif day < 11:
-				kanikuli = 1
-				$holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
-			elseif day = 11:
-				kanikuli = 1
-				$holyday = '<b>Last day of Autumn Break.</b>'
-			end
-		end
-	end
-	!!Brother''s dick growth as he gets older
-	kolka_dick_month = daystart/30
-	if kolka_dick_month > daystart/30 and npc_dick['A34'] < 26: npc_dick['A34'] += 1
-	if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
-		$npc_thdick['A34'] = 'well proportioned'
-	elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
-		$npc_thdick['A34'] = 'thick'
-	end
-end
-
-killvar 'natholi'
-if month = 1 and day >= 1 and day <= 8:
-	$natholi = 'New Year holidays'
-	natholi = 1
-	if day = 1:$natholi += ', New Year'
-	if day = 7:$natholi += ', Christmas'
-end
-if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
-if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
-if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
-if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
-if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
-if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
-if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
-if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
-if natholi = 1:
-	if $holyday ! '': $holyday += '<br>'
-	$holiday += $natholi
-end
-
-if bcream_used >= 1:
-    bcream_used = 0
-    temp = rand(0,5)
-    nbsize += temp
-    if temp > 0:'Feels like your breasts have grown slightly.'
-end
-if steroid_dose >= 1:
-    if lashair < 1:
-        pcs_pubes += steroid_dose
-        pcs_leghair += steroid_dose
-    end
-    steroid_dose = 0
-end
-if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
-if aphrodisiac_timer ! 0:aphrodisiac_timer  = 0
-
-if mentats_dose = 1:
-    mentats_dose = 0
-elseif mentats_dose > 1:
-    pain['head'] += 20 * mentats_dose
-    mentats_dose = 0
-end
-
-!!Appearance base calculation call
-gs 'body_shape', 'basebeautycalc'
-
-!! vovan, from 1.2.5
-hanters_check = 0
-mushroom_pickers = 0
-horse_river = 0
-haying_time = 0
-mira_go_river = 0
-forestpicnic = 0
-if Mira_no > 0: Mira_no -= 1
-if Mira_no < 0: Mira_no = 0
-if catout ! 0: catout = 0
-if feedcat ! 0: feedcat = 0
-
-loc_count = ARRSIZE('$CloLosLoc')
-i = loc_count - 1
-:loopCloLoc
-	$CloLoc = $CloLosLoc[i]
-	CloLostOn = CloLosDay[$CloLoc]
-	if CloLostOn + RAND(7,14) < daystart :
-		gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
-	end
-	i -=1
-if i > -1 :jump 'loopCloLoc'
-
---- cikl ---------------------------------
-
+# cikl
+
+!!----------------------------------------------------------------------------
+!! Time calculations
+
+day += 1
+week += 1
+hour -= 24
+
+if day > monthsEnd[month]:
+	day -= monthsEnd[month]
+	month += 1
+
+	if month > 12: month = 1 & year += 1
+
+	!!MJ: Dont think that one is needed. But it was in the original loop.
+	if month < 1: month = 1
+
+	$month = $monthName[month]
+
+	!! new years party calculation
+	temp = func('shortgs','dow',year,12,31)
+	if temp < 6:
+		nyp_day = 31
+	elseif temp = 6:
+		nyp_day = 30
+	else
+		nyp_day = 29
+	end
+
+end
+
+!!MJ: Dont think that one is needed. But it was here already.
+if day <= 0:day = 1
+
+if week > 7:
+	:loopweek
+	week -= 7
+	husbandrink = 0
+
+	if military = 1:military = 0
+
+	if week > 7:jump 'loopweek'
+end
+
+!!----------------------------------------------------------------------------
+
+!!Fame call to update all the fame variables
+gs 'fame'
+
+!!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
+if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
+	if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
+	gs 'pornschedule', 'schedule'
+end
+
+!!modelling job check
+if model_week ! (daystart - week) / 7:model_job_week = 0
+
+!!acting strings to set available jobs
+if casting = 1:
+	acting_string1 = rand(10000000000,199999999999)
+	acting_string2 = rand(10000000000,199999999999)
+end
+
+gs 'daystart'
+dynamic $hypnoDaychange
+
+!!phone reset for bf
+ringA = 0
+ringB = 0
+ringC = 0
+
+if home_owned[1] = 1 and ArendHouseSL <= 0: ArendHouseSL = 0 & home_owned[1] = 0
+if home_owned[4] > 0 and ArendHouseSL4 <= 0: ArendHouseSL4 = 0 & home_owned[4] = 0
+
+if home_owned[1] = 1: ArendHouseSL -= 1
+if home_owned[4] > 0: ArendHouseSL4 -= 1
+
+!!Appearance Age
+vidageday -= 1
+if vidageday <= 0:
+	vidageday = 360
+	vidage += 1
+end
+!!Birthday
+age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
+if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
+
+if workDolgDay > 0: workDolgDay -= 1
+if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
+if husband > 0: husbanday += 1
+if husband > 10 and husbanday > 0: husband -= 15
+if fingal > 0: fingal -= 1
+
+if husbandMark = 1 and husband <= 10:
+	husbizvradd = 0
+	husbharmin = 0
+	husbandMark = 0
+	husband = 0
+	divorced += 1
+
+	if KFOnLineReaga > 0:KFOnLineReaga -= 1
+
+	'<b><font color="red">Your husband has filed for a divorce.</font></b>'
+end
+
+if katjaPreg = 0 and month >= 2:
+	if school_year = 2001 and year > 2016:
+		katjaPreg = 1
+	elseif school_year = 2000 and year > 2017:
+		katjaPreg = 1
+	end
+end
+
+!! after having surgery you will be in recuperation for a few days
+
+if surgeryday ! '':
+	if daystart - 7 <= surgeryday:
+		dailyhealthimprov = (daystart - surgeryday) * 50
+		pcs_health = dailyhealthimprov
+		recuperation = 1
+	else
+		killvar 'recuperation'
+		killvar 'dailyhealthimprov'
+	end
+end
+
+!!Street events daily reset
+streetevent_hour = -2
+
+!!Clothing stock and price randomizers
+Clothingstock = rand (0,23)
+i = 1
+:loopprice
+Clothingstock[i] = rand (0,500)
+i += 1
+if i <= 147:jump 'loopprice'
+
+if coatH[defaultcoat] <= 0: defaultcoat = 0
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Bimbo
+!!------------------------------------------------------------------------------------------------------------
+
+!!Bonus from clothing and shoes
+if succubusflag = 0 and $cheatBimbo ! '<b>ON</b>':
+	if bimbocl = 1:
+		bimbocl = 0
+		bimbo += 2
+	end
+	if bimbosh = 1:
+		bimbosh = 0
+		bimbo += 1
+	end
+else
+	bimbocl = 0
+end
+
+!!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
+if bimbo > 0 or bimbolevel > 0:
+    if bimbo < 10:
+        bimbo -= 1
+    elseif bimbo < 20:
+    	bimbolevel = 1
+    elseif bimbo < 30:
+    	bimbolevel = 2
+    else
+        bimbolevel = 3
+    end
+end
+
+if bimbo >= 40: bimbo = 40
+
+!!Bimbo levels. They use custom variables so they won''t permanently change character stats
+if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
+if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
+if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
+if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
+
+!!A Succubus cannot be a Bimbo
+if succubusflag = 1:
+	if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
+elseif bimbolevel >= 1:
+!!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
+	bimbo += ((stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX) - 3
+	if bimbo > snapshotY:
+		bimbowithdrawal = 0
+	else
+		bimbowithdrawal += 1
+	end
+end
+
+if bimbo < 0: bimbo = 0
+snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
+snapshotY = bimbo
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Exhibitionism
+!!------------------------------------------------------------------------------------------------------------
+
+if pcs_exhib > 0 or exhibitionist_lvl > 0:
+    if pcs_exhib < 10:
+        pcs_exhib -= 1
+    elseif pcs_exhib < 20:
+    	exhibitionist_lvl = 1
+    elseif pcs_exhib < 30:
+    	exhibitionist_lvl = 2
+    else
+        exhibitionist_lvl = 3
+    end
+end
+
+!!Inhibition increases from wearing revealing clothing
+
+if exhibition_outdoors > 0:
+	if pcs_inhib > 90:
+		exhibition_outdoors = exhibition_outdoors * 3
+	elseif pcs_inhib > 75:
+		exhibition_outdoors = exhibition_outdoors * 5 / 2
+	elseif pcs_inhib > 60:
+		exhibition_outdoors = exhibition_outdoors * 2
+	elseif pcs_inhib > 30:
+		exhibition_outdoors = exhibition_outdoors * 3 / 2
+	end
+
+	if exhibition_outdoors <= 5:
+		inhib_exp += rand(3,6)
+	elseif exhibition_outdoors <= 10:
+		inhib_exp += rand(5,9)
+	elseif exhibition_outdoors <= 15:
+		inhib_exp += rand(7,12)
+	elseif exhibition_outdoors <= 20:
+		inhib_exp += rand(9,15)
+	elseif exhibition_outdoors <= 25:
+		inhib_exp += rand(12,20)
+	elseif exhibition_outdoors <= 30:
+		inhib_exp += rand(16,25)
+	elseif exhibition_outdoors <= 35:
+		inhib_exp += rand(20,30)
+	elseif exhibition_outdoors <= 40:
+		inhib_exp += rand(25,40)
+	elseif exhibition_outdoors <= 50:
+		inhib_exp += rand(35,50)
+	elseif exhibition_outdoors <= 65:
+		inhib_exp += rand(50,75)
+	else
+		inhib_exp += rand(70,100)
+	end
+end
+
+exhibition_outdoors = 0
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Succubus
+!!------------------------------------------------------------------------------------------------------------
+
+!!Succubus Level & hunger calcs
+if succubusflag = 1:
+
+	cheatHealth = 1
+	dynamic $cheatmenu['std_cure']
+
+!!	Hunger handling
+	if sucxpsnapshot >= succubxp: succhungry += 1
+	sucxpsnapshot = succubxp
+	if succubxp < 0: succubxp = 0
+
+!!	Level handling
+	if succubxp < 60:
+		succublvl = 1
+		$sucself1 = 'that feeling'
+		sucstorecap = 0
+		if bimbolevel <= 0: supnatvnesh = 1
+	elseif succubxp < 150:
+		succublvl = 2
+		$sucself1 = 'the power'
+		sucstorecap = 0
+		if bimbolevel <= 0: supnatvnesh = 3
+	elseif succubxp < 270:
+		succublvl = 3
+		$sucself1 = 'your other self'
+		sucstorecap = 100
+		if bimbolevel <= 0: supnatvnesh = 6
+	else
+		succublvl = 4
+		$sucself1 = 'your true self'
+		sucstorecap = 200
+		if bimbolevel <= 0: supnatvnesh = 10
+	end
+
+	if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
+	if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
+
+	if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
+	if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
+	if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
+	if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
+	if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
+	if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
+	if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
+	if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
+
+	if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
+		if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
+		if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
+		if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
+		if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
+		if pcs_react < 250: react_exp += 20 & sucexcess -= 10
+		if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
+		if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
+		if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
+		if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
+		if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
+!!		This is to drive the Succubus vidage into the max appearance range
+		if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
+		if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
+		if vidageday >= 720 and vidage > 28:
+			vidageday -= 360
+			vidage -= 1
+		end
+		if sucexcess > sucstorecap: sucexcess = sucstorecap
+	elseif sucexcess < 0 and succhungry < 0:
+		succhungry += 1
+		if (0 - sucexcess) < (10 * succublvl):
+			sucexcess = 0
+		else
+			sucexcess += (10 * succublvl)
+		end
+	end
+	if sucexcess < 0: sucpowzeroed += 1
+	if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
+
+!!	This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
+	if sucskill >= 4:
+		if pcs_vag - 2 >= 13:
+			pcs_vag -= 2
+		elseif pcs_vag + 2 <= 13:
+			pcs_vag += 2
+		end
+		if pcs_ass - 2 >= 8:
+			pcs_ass -= 2
+		elseif pcs_ass + 2 <= 8:
+			pcs_ass += 2
+		end
+	end
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+if defcurly = 0 and curly > 0:curly -= 1
+if defcurly = 1:
+	if straight > 0: straight -= 1
+	if straight = 0: curly = 2147483647
+end
+
+! WD: Added daily reduction of braids for Maruda Hair Mod
+if hbraids > 0: hbraids -= 1
+
+
+pcs_sweat += 2
+
+if pcs_tan > 0: pcs_tan -= 1
+
+if prezikmsg = 2: prezikmsg = 3
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Birth control
+!!------------------------------------------------------------------------------------------------------------
+!!	Birth Control Management variables
+!!
+!!	tabletkimm		: The modifier for the current mood of the MC.
+!!	tabletkiap		: Autopill factor affecting the liklihood you took your pill as you should have
+!!	tabletkipt		: Pill Dicipline Take increase
+!!	tabletkipi		: Pill Dicipline Dont take increase
+!!	tabletkicpd		: Current MC Pill Dicipline
+!!	tabletkichday	: Current day that the Birth Control is being evaluated for
+!!	tabletkicheck	: If the birth control is automatically handled
+!!	tabletki		: How many packages of Birth Control Pills there are
+!!	tabletkiold		: Total number packages of expired pills
+!!	tabletkifake	: Total number packages of fake/counterfeit pills
+!!	tabletkirej		: Total number packages of factory rejected pills
+!!	tabletkifert	: Total number packages of subsituted fertility pills
+!!	tabletkisug		: Total number packages of sugar pills
+!!	pillsleft		: Total number packages of pills in current package
+!!	tabletkishot	: The flag for being on the Birth Control shot.
+!!	pillcon			: The number for the current birth control chemical level.
+!!	pilldays		: The number of consecutive days (you believe) you have taken your pill
+
+if Luth > (LutH_Max-75) and placebopart <= 0: placebopart = 8
+placebopart -= 1
+
+if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
+if pillcon < 0:	pillcon = 0
+if pillcon2 < 0: pillcon2 = 0
+
+if tabletkicheck = 2:
+	if tabletkishot ! 0:
+		!!cycle = 1
+		mesec = 0
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH = EggRH
+	end
+	if tabletkishot <= 0:
+		pillcon -= 29000
+		pillcon2 -= 29000
+		if tabletkishot < 0: tabletkishot = 0
+	end
+	if shotdays = -8:
+		tabletkicheck = 0
+		shotdue = 0
+		'Your birth control shot is no longer protecting you.'
+	elseif shotdays <= 0:
+		if shotdays = 0:
+			shotdue = 7
+		else
+			shotdue -= 1
+		end
+		'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
+	elseif shotdays > 1 and shotdays < 5:
+		'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
+	elseif shotdays = 1:
+		'Your birth control shot is due for renewal tomorrow.'
+	end
+
+	if shotdays > -100:shotdays -=1
+	if tabletkishot > 0:tabletkishot -= 1
+end
+
+tabletkipd += tabletkipi
+tabletkipi = 0
+tabletkipt = 0
+if tabletkicheck = 1:
+	if tabletki = 0 and pillsleft[ptype] = 0:
+		tabletkicheck = 0
+		'You are out of birth control pills.'
+		tabletkipi = -5
+	elseif tabletki = 0 and pillsleft[ptype] = 28:
+		'You have just opened your last package of birth control pills. You need to buy more.'
+	elseif tabletki = 0 and pillsleft[ptype] <= 5:
+		'You are running out of birth control pills, you only have a few left.'
+	end
+end
+
+if tabletkicheck = 1 and tabletkichday < daystart:
+	tabletkichday = daystart
+	tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
+	if pcs_sleep < 10:
+		tabletkimm -= (100- (pcs_sleep * 10))
+	end
+	if pcs_willpwr < willpowermax / 4:
+		tabletkimm = tabletkimm / 4
+	elseif pcs_mood < 10:
+		tabletkimm = tabletkimm / 2
+	end
+	tabletkiap = tabletkimm
+	tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
+	tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
+	temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
+	tabletkiap += temprand
+	if tabletkiap < 300:
+		if tabletkipd > -10:
+			if pcs_willpwr < willpowermax / 4:
+				pilldaychk = 0
+				'You stare at your package of birth control pills, you know you should take one but you can''t quite work up enough effort to care.'
+			elseif pcs_mood < 10:
+				pilldaychk = 0
+				'You stare at your package of birth control pills, but you don''t open it.'
+			elseif pcs_sleep < 10:
+				pilldaychk = 0
+				'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
+			else
+				pilldaychk = 0
+				'You just realized you forgot to take your birth control pill today.'
+			end
+		end
+		tabletkipt = 2
+		tabletkipi = -4
+	else
+		if tabletkiap < 350:
+			temprand = rand(0,5)
+		else
+			temprand = rand(0,1000)
+		end
+		if temprand = 0:
+			temprand = rand(0,1)
+			if temprand = 0:
+				gs 'din_bad','takepill'
+				tabletkipt = -2
+				tabletkipi = 1
+			else
+				tabletkipt = 3
+				tabletkipi = -3
+			end
+
+			if tabletkipd > -10:
+				pilldaychk = 0
+				'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
+			end
+			if tabletkipd > 0:
+				if rand(0,9) = 0:
+					if tabletkipt < 0:
+						pilldaychk = 0
+						'You don''t think you have taken your pill today.'
+					else
+						pilldaychk = 1
+						'You think you have taken your pill today.'
+					end
+				else
+					if tabletkipt > 0:
+						pilldaychk = 0
+						'You don''t think you have taken your pill today.'
+					else
+						pilldaychk = 1
+						'You think you have taken your pill today.'
+					end
+				end
+			end
+		else
+			'You take your birth control pill for the day.'
+			pilldaychk = 1
+			gs 'din_bad','takepill'
+			if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
+			tabletkiday = daystart
+			tabletkipt = 0
+			tabletkipi = 0
+		end
+	end
+elseif tabletkicheck = 0:
+	if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
+	if pillcon > 0 and tabletkipi = 0 and rand(0,3) = 0 and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
+end
+
+if pilldaychk = 1:
+	pilldays += 1
+else
+	pilldays -= 1
+end
+
+pilldaychk = 0
+if pilldays > 18: pilldays = 18
+if pilldays < 0: pilldays = 0
+!!
+$MenCal[] = $str(cycle)
+if ArrSize('$MenCal') = 60: killvar '$MenCal',0
+
+
+!!------------------------------------------------------------------------------------------------------------
+
+if lashair ! 1:
+	pcs_leghair += 1
+	pcs_pubes += 1
+end
+
+if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
+
+if pcs_breath = 1:pcs_breath = 0
+
+if cheatNoEat = 1 and dounspell = 1:fat += 15
+
+!!STD check
+if SifacOnce = 1:Sifilis += 1
+if GerpesOnce = 1:Gerpes += 1
+if TriperOnce = 1:
+	if Triper > 0:
+		Triper += 1
+	end
+	if TriperOral > 0:
+		TriperOral += 1
+	end
+	If TriperOral > 14 and TriperNapr = 0:
+		if rand(TriperOral,100) > 80:
+		TriperOral = 0
+		if Triper = 0:TriperOnce = 0
+		TriperOralSigns = 0
+		end
+	end
+end
+if KandidozOnce = 1:Kandidoz += 1
+
+VeneraN = 0
+
+if VeneraOnce > 0:VeneraOnce = 0
+if SifacOnce = 1:VeneraN += 1
+if GerpesOnce = 1:VeneraN += 1
+if TriperOnce = 1:VeneraN += 1
+
+Venera = VeneraN
+
+if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
+	if anusK < 0:anusK = 0
+	if anusK < ashrinkdays:anusK += 1
+	if anusK >= ashrinkdays:pcs_ass -= ashrink & anusK = 0
+	if pcs_ass < 0: pcs_ass = 0
+end
+if pcs_vag > 10 and vshrink > 0:
+	if vaginaK < 0:vaginaK = 0
+	if vaginaK < vshrinkdays:vaginaK += 1
+	if vaginaK >= vshrinkdays:vaginaK = 0 & pcs_vag -= vshrink
+end
+
+lipkoef -= rand(0,1)
+if lipkoef <= 0: lipkoef = 0
+
+if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
+if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
+
+if preg = 1:
+	pregtime = pregchem / 24
+
+	if pregtimes = 0:pregtimes = 1
+
+elseif preg = 2 and pregminut < totminut:
+	if Enable_nogameover = 0 :
+		cla
+		*clr
+		over = 4
+		MSG '<center><b>A horrible pain shoots through your body.</b></center>'
+		xgt 'gameover'
+		exit
+	else
+		MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
+		pregminut = totminut + 1440
+	end
+elseif preg = 0:
+	KILLVAR 'pregTalkBrother'
+	KILLVAR 'pregTalkSister'
+	KILLVAR 'pregTalkFather'
+	!{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
+	KILLVAR 'pregTalkMom'
+	KILLVAR 'pregTalk'
+	KILLVAR 'pregTalkNat'
+	KILLVAR 'pregTalkKatja'
+	KILLVAR 'pregTalkAlbina'
+	KILLVAR 'pregTalkPC'
+	KILLVAR 'pregTalkStarlets'
+	KILLVAR 'pregTalkvball'
+	KILLVAR 'pregTalkTrack'
+	killvar 'pregtalkStarlets'
+	killvar 'pregtalkvball'
+	killvar 'pregtime'
+	killvar 'knowpreg'
+	killvar 'denypreg'
+	killvar '$wombthfath'
+end
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Arousal
+!!------------------------------------------------------------------------------------------------------------
+
+if magikDostup = 0:
+	if pcs_horny < 100:pcs_horny += pcs_vag
+else
+	if pcs_vag = 0:
+		razeba = 0
+
+		if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
+		if pcs_horny > 50:pcs_horny -= 25
+	elseif pcs_vag > 0:
+		if pregtimes = 0:
+			if age < 18:
+				razeba = 1
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
+				if pcs_horny >= 80:pcs_horny -= 20
+			elseif age >= 18 and age < 21:
+				razeba = 2
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
+				if pcs_horny >= 80:pcs_horny -= 10
+			elseif age >= 21 and age < 25:
+				razeba = 3
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
+				if pcs_horny >= 80:pcs_horny -= 5
+			elseif age >= 25 and age < 30:
+				razeba = 4
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
+				if pcs_horny >= 80:pcs_horny -= 5
+			elseif age >= 30:
+				razeba = 5
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
+				if pcs_horny >= 80:pcs_horny += 1
+			end
+		elseif pregtimes > 0:
+			if preg = 0:
+				razeba = 5
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
+				if pcs_horny >= 80:pcs_horny += 1
+			elseif preg > 0:
+				razeba = 6
+
+				if pcs_horny < 100:pcs_horny += pregtime / 10
+			end
+		end
+	end
+end
+
+if pcs_horny < 0:pcs_horny = 0
+
+!!------------------------------------------------------------------------------------------------------------
+
+!counter for Dimka avoidance
+if dimaFilm = 1 and dimaRudeBlock = 0:
+	nodimkaK += 1
+	DimkaWarnedToday = 0
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+!!Fame degradation
+gs 'fame', 'deg'
+
+!!Traits
+gs 'traits', 'overnight'
+
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Maruda hair mod
+!!------------------------------------------------------------------------------------------------------------
+!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
+!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
+if pcs_hairlng < 1001 and hairgrowcht = 0:pcs_hairlng += 1
+
+if pcs_haircol ! nathcol:
+	dyefade -=1
+	if dyefade < 0: dyefade = 0
+	if dyefade > 0 and dyefade < 7: dyevmod = 5
+	if dyefade = 0: dyevmod = 15
+end
+
+if hscrunch > 0:
+	hscrunchrand = rand(1, 100)
+
+	if hscrunchrand <= 8:hscrunch -= 1
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+!! Clothing wear and tear
+gs 'starenie'
+
+if nark > 60:
+	nark = 60
+elseif nark > 30:
+	nark -= 3
+elseif nark > 0:
+	nark -= 1
+end
+
+if pregtime > 10:fat += 1
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Pain
+!!------------------------------------------------------------------------------------------------------------
+
+if pain['head'] > 0:pain['head'] -= rand(1,3)
+if pain['hair'] > 0:pain['hair'] -= rand(1,3)
+if pain['ears'] > 0:pain['ears'] -= rand(1,3)
+if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
+if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
+if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
+if pain['nose'] > 0:pain['nose'] -= rand(1,3)
+if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
+if pain['lips'] > 0:pain['lips'] -= rand(1,3)
+if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
+if pain['throat'] > 0:pain['throat'] -= rand(1,3)
+if pain['neck'] > 0:pain['neck'] -= rand(1,3)
+if pain['back'] > 0:pain['back'] -= rand(1,3)
+if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
+if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
+if pain['hips'] > 0:pain['hips'] -= rand(1,3)
+if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
+if pain['legL'] > 0:pain['legL'] -= rand(1,3)
+if pain['legR'] > 0:pain['legR'] -= rand(1,3)
+if pain['feet'] > 0:pain['feet'] -= rand(1,3)
+if pain['toes'] > 0:pain['toes'] -= rand(1,3)
+if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
+if pain['armL'] > 0:pain['armL'] -= rand(1,3)
+if pain['armR'] > 0:pain['armR'] -= rand(1,3)
+if pain['hands'] > 0:pain['hands'] -= rand(1,3)
+if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
+if pain['chest'] > 0:pain['chest'] -= rand(1,3)
+if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
+if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
+if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
+if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
+if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
+if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
+if pain['labia'] > 0:pain['labia'] -= rand(1,3)
+if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
+if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
+if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
+
+if painpub = 2:
+	if painpubday + 5 < daystart:
+		$painpub = 'Your vulva is painfully sore.'
+		painpub = 1
+		painpubday = daystart
+	elseif painpubday + 5 >= daystart:
+		$painpub = 'Your vulva is painfully sore.'
+	end
+elseif painpub = 1:
+	if painpubday + 5 < daystart:
+		$painpub = ''
+		painpub = 0
+		painpubday = daystart
+	elseif painpubday + 5 >= daystart:
+		$painpub = 'Your vulva is a little sore.'
+	end
+end
+
+!!---- Calculation of lash extension degradation and false lash removal
+if pcs_lashes > 2:
+	if lashextensionstyle >= 1:
+		lashextensionduration -= 1
+		if lashextensionduration >= 1 and lashextensionduration <= 4:
+			'It''s time for you to do your maintenance on your lash extensions; you should go to the salon or you risk growing them all out.'
+		end
+		if lashextensionduration <= 0:
+			'You waited too long to do maintenance on your lash extensions; there''s too little there to notice or work with at this point.'
+			pcs_lashes = pcs_naturallashes
+			killvar 'lashextensionstyle'
+			killvar 'lashextensionduration'
+			killvar 'lashextensionnew'
+		end
+	end
+	if false_lashes > 0:
+		false_lashes -= 1
+		if false_lashes = 0:
+			'Your false lashes came off in the night; there''s no recovering them now.'
+			pcs_lashes = pcs_naturallashes
+		else
+			'Somehow, your lashes managed to stay attached throughout the night. You might be able to get away with wearing them another day straight.'
+		end
+	end
+end
+
+
+prezikProver += 1
+if pirs_pain_ton > 0:pirs_pain_ton -= 1
+if shorthair = 1:
+	shorthairday += 1
+	if shorthairday >= 45:shorthairday = 0 & shorthair = 0
+end
+!!------------------------------------------------------------------------------------------------------------
+
+if KatjaOTN > 0:
+	if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
+	if KatjaLust >= 40:KatjaHorny += rand(1, 3)
+	if KatjaHorny < 0:KatjaHorny = 0
+	if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
+end
+
+if npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
+
+!!Counter for dimka/igor date
+if igor_DimaNos = 2 or igor_DimaNos = 3: $igor_DimaNos_day += 1
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Generation
+!!------------------------------------------------------------------------------------------------------------
+if NPCnum < 290:
+	NPCnow = NPCnum
+	NPCnum += rand(1, 3)
+	gs 'npc'
+elseif NPCnum < 300:
+	NPCnow = NPCnum
+	NPCnum += 1
+	gs 'npc'
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+if kanikuli = 0:pcs_grades -= 1
+dmishaevent = 0
+
+if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
+if GspravkaT = 1:Gspravka -= 1
+if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
+if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
+
+!!remove degradation for inhibition
+inhib_flr = inhib_lvl
+
+gs 'stat_sklattrib', 'daycall'
+
+if dounspell = 1:
+	if strenbuf > 90:
+		strenbuf -= 2
+	elseif strenbuf > 80:
+		strenbuf -= 1
+	end
+
+	if vitalbuf > 90:
+		vitalbuf -= 2
+	elseif vitalbuf > 80:
+		vitalbuf -= 1
+	end
+
+	if strenbuf > pcs_stren: strenbuf -= 1
+	if strenbuf < pcs_stren: strenbuf += 1
+	if vitalbuf > pcs_vital: vitalbuf -= 1
+	if vitalbuf < pcs_vital: vitalbuf += 1
+	if agilbuf > pcs_agil: agilbuf -= 1
+	if agilbuf < pcs_agil: agilbuf += 1
+else
+	gs 'body_shape'
+end
+
+
+if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
+
+!!Pussy_Kats job settings
+inWorkYoungShop = 0
+if week = 1 and young_shop_work = 100: young_shop_work = 1
+if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
+if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
+
+husbandsexday = 0
+borsexkol = 0
+givisexday = 0
+
+if shantsr > 0:
+	pay = shantsr * 5000
+	karta += pay
+	shantsr = 0
+end
+
+if shantbog > 0:
+	:shantftb
+	shantftbgrand = rand(0, 10)
+	if shantftbgrand > 2:
+		shantpopala += 1
+		shantbog -= 1
+		if shantbog > 0:jump 'shantftb'
+	elseif shantftbgrand <= 2:
+		karta += 30000
+		shantbog -= 1
+		if shantbog > 0:jump 'shantftb'
+	end
+end
+
+petersexday = 0
+klismaday1 = 0
+
+!! Resetting relationships that go over the max
+
+:toptemprel
+if temprel < 250:
+	temprel +=1
+	if npc_rel['A'+'<<temprel>>'] > 100:npc_rel['A'+'<<temprel>>'] = 100
+	jump 'toptemprel'
+end
+killvar 'temprel'
+!!------------------------------------------------------------------------------------------------------------
+!!	Banking
+!!------------------------------------------------------------------------------------------------------------
+
+!!MJ: Add some (daily) interest to the bank account.
+!!Not very realistic but won''t make anyone too rich.
+
+if bankAccount = 1:
+	kartatotal = karta
+	:kartaloop
+	if kartatotal > 20000000:
+		kartacount += 1
+		largekarta[kartacount] = 20000000
+		kartatotal -= 20000000
+		jump 'kartaloop'
+	else
+		largekarta[0] = kartatotal
+	end
+	if karta >= 2000000:
+		!! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
+		intrate = 60
+	elseif karta >= 0:
+		!! yearly interest of 1.15% recalculated into daily interest = 0.003% daily
+		intrate = 30
+	else
+		!! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
+		intrate = 550
+	end
+	:intloop
+	if kartacount > 0:
+		smallmoneypos += (largekarta[kartacount] * intrate)
+		if smallmoneypos >= 1000000 or smallmoneypos <= -1000000: karta += smallmoneypos / 1000000 & smallmoneypos = smallmoneypos mod 1000000
+		largekarta[kartacount] = 0
+		kartacount -= 1
+		jump 'intloop'
+	else
+		smallmoneypos += (largekarta[0] * intrate)
+		largekarta[0] = 0
+		if kartacount ! 0: kartacount = 0
+	end
+
+	if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
+		karta += smallmoneypos / 1000000
+		smallmoneypos = smallmoneypos mod 1000000
+	end
+
+	if atmDeposit > 0 and atmDepositDate <= daystart:
+		karta += atmDeposit
+		atmDeposit = 0
+	end
+end
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Payments
+!!------------------------------------------------------------------------------------------------------------
+
+if day = 25:
+	!! meynold payment
+	if mey_vika_qw >= 35 and mey_tamara_help_count >= 10 and mey_tamara_qw_end = 0:
+		money += 5000
+		'<b><font color=green>For your efforts aunt Tamara gave you 5,000 rubles</font></b>'
+		mey_tamara_help_count = 0
+	end
+
+	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
+		Pay = PersSecWorkTimes * 1250
+		PersSecWorkTimes = 0
+		karta += Pay
+		paydaybistrosec = 1
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
+	end
+
+	if workKafe = 1 and paydayKafe = 0:
+		paydayKafe = 1
+		pay = smenaKafe * 600
+		karta += pay
+		smenaKafe = 0
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a waitress in a cafe.</font></b>'
+	end
+
+	if workhosp = 1 and nopaypoly = 0:
+		pay = smena * 1000
+		karta += pay
+		smena = 0
+		nopaypoly = 1
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in the clinic.</font></b>'
+	end
+
+	if worksalon = 1 and nopaysalon = 0:
+		pay = smenaSalon * 1560
+		karta += pay
+		smenaSalon = 0
+		nopaysalon = 1
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in a beauty salon.</font></b>'
+	end
+
+	if tanwork = 1 and nopaytanwork = 0:
+		nopaytanwork = 1
+		karta += 10000
+		'<b><font color="green">Your salary of 10,000 <b>₽</b> has been paid into your bank account for your work as a house maid.</font></b>'
+	end
+
+	if workSec = 1 and paydaySec = 0:
+		paydaySec = 1
+		pay = sekDay * 800
+
+		if officebestslut >= 3:pay += 10000
+		karta += pay
+		sekDay = 0
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
+	end
+
+	if workFabrika = 1:
+		pay = smenaFabrika * 420
+		smenaFabrika = 0
+		karta += pay
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job at the garment factory.</font></b>'
+	end
+
+	if husband > 0 and paydayHusb = 0:
+		paydayHusb = 1
+
+		if husbFin = 0:huspay = 20000
+		if husbFin = 1:huspay = 30000
+		if husbFin = 2:huspay = 40000
+
+		karta += huspay
+		'<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
+	end
+
+	if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
+
+	if haday = 0:
+		gs 'housing', 'rent'
+		! Rent for the city apartment
+		if home_owned[1] = 1:
+			if ArendHouseSL < 31:
+				!From bank
+				if bankAccount = 1 and karta >= home_rent[1]:
+					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account.</font></b>'
+					haday = 1
+					karta -= home_rent[1]
+					ArendHouseSL += ArendHouseSL_due
+				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[1]:
+					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
+					haday = 1
+					karta -= home_rent[1]
+					ArendHouseSL += ArendHouseSL_due
+				elseif bankAccount = 0:
+					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
+				else
+					nl
+					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
+				end
+			elseif home_owned[1] = 1 and ArendHouseSL >= 31:
+				'<b><font color="yellow">Your rent for your city apartment is already paid in full for this month.</font></b>'
+				haday = 1
+			end
+		end
+
+		! Rent for the Pushkin apartment
+		if home_owned[4] > 0:
+			if ArendHouseSL4 < 31:
+				!From bank
+				if bankAccount = 1 and karta >= home_rent[4] and ArendHouseSL4 <= 30:
+					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account.</font></b>'
+					haday = 1
+					karta -= home_rent[4]
+					ArendHouseSL4 += ArendHouseSL4_due
+				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[4] and ArendHouseSL4 <= 30:
+					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
+					haday = 1
+					karta -= home_rent[4]
+					ArendHouseSL4 += ArendHouseSL4_due
+				elseif bankAccount = 0 and ArendHouseSL4 <= 30:
+					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
+				else
+					nl
+					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
+				end
+			elseif home_owned[4] > 0 and ArendHouseSL4 >= 31:
+				'<b><font color="yellow">Your rent for your Pushkin apartment is already paid in full this month.</font></b>'
+				haday = 1
+			end
+		end
+	end
+
+	! Utilities for all apartments.
+	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 0:
+		gs 'housing', 'util'
+		if bankAccount = 1 and karta >= elektro:
+			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account.</font></b>'
+			electroday = 1
+			if elektro >= 2000:
+				elektro = 2000 + rand(0, 100)
+				karta -= elektro * hcount_util
+			end
+		elseif bankAccount = 1 and karta + bankDebtLimit >= elektro:
+			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account and overdraw facility. Please contact your bank.</font></b>'
+			electroday = 1
+			if elektro >= 2000:
+				elektro = 2000 + rand(0, 100)
+				karta -= elektro * hcount_util
+			end
+		elseif bankAccount = 0 and money >= elektro:
+			'<b><font color="red">You currently do not have a bank account setup for automatic utilities payments. <<elektro>> <b>₽</b> has been deducted from your cash holdings.</font></b>'
+			electroday = 1
+			if elektro >= 2000:
+				elektro = 2000 + rand(0, 100)
+				money -= elektro * hcount_util
+			end
+		else
+			'<b><font color="red">You''re card was declined during automatic debit of <<elektro>> <b>₽</b>, for automatic utilities payment.</font></b>'
+		end
+	end
+
+	! Cable for all apartments
+	if kabel > 0 and kabelday = 0:
+		gs 'housing', 'cable'
+		if bankAccount = 1 and karta >= (300 * hcount_cable):
+			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
+			kabelday = 1
+			karta -= 300 * hcount_cable
+			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
+		elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
+			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
+			kabelday = 1
+			karta -= 300 * hcount_cable
+		elseif bankAccount = 0 and money >= (300 * hcount_cable):
+			'<b><font color="red">You currently do not have a bank account setup for automatic payment of your cable TV subscription. 300 <b>₽</b> has been deducted from your cash holdings.</font></b>'
+			kabelday = 1
+			money -= 300 * hcount_cable
+		else
+			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
+		end
+	end
+end
+
+if day ! 25:
+	if paydayHusb = 1:paydayHusb = 0
+	if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
+	if workSec = 1 and paydaySec = 1:paydaySec = 0
+	if (home_owned[1] = 1 or home_owned[4] > 0) and haday = 1:haday = 0
+	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 1:electroday = 0
+	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 3) and kabel > 0 and kabelday = 1:kabelday = 0
+	if stipuhaday = 1:stipuhaday = 0
+	if nopaytanwork = 1:nopaytanwork = 0
+	if nopaypoly = 1:nopaypoly = 0
+	if nopaysalon = 1:nopaysalon = 0
+	if paydaybistrosec = 1:paydaybistrosec = 0
+end
+
+if sdaday = day and sdamonth = month and home_owned[1] = 0:
+	home_owned[1] = 2
+	'<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
+	!msg 'Your tenants have moved out and your apartment is now vacant.'
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+killvar 'holyday'
+killvar 'kanikuli'
+
+!!sisboyparty
+!!-1 - don''t go to the party
+!!0 - don''t know about parties
+!!1 - knows about the parties
+!!2 - agreed to go to the party
+!!3 - Missed the party
+
+if storyline = 1:
+!!Party refresh if you didn''t see sis
+	if week = 1 and sisboyparty ! 2:
+		if sisboyparty = -1: sisboyparty = 1
+
+		if sisboypartyQW >= 2 and sisboyparty > 0:
+			sisboyparty_day = daystart + rand(3,5)
+		end
+	end
+
+	if sisboyparty = 2 and sisboyparty_day + 1 < daystart: sisboyparty = 3
+
+!!missed graduation
+	if month = 5 and day = 26:
+		if school_year = 2001 and year = 2018 and kanikuli ! 7:
+			grad_miss = daystart + 1
+		elseif school_year = 2000 and year = 2017 and kanikuli ! 7:
+			grad_miss = daystart + 1
+		end
+	end
+
+	if SchoolAtestat = 0:
+		if month = 12 and day > 25:
+			if day < 31:
+				$holyday = '<b>Winter Break in <<32-day>> days.</b>'
+			else
+				$holyday = '<b>Winter Break starts tomorrow.</b>'
+			end
+		elseif month = 1 and day <= 15:
+			kanikuli = 2
+			if day < 13:
+				$holyday = '<b>Winter Break.</b>'
+			elseif day < 15:
+				$holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
+			else
+				$holyday = '<b>Last day of Winter Break.</b>'
+			end
+		elseif month = 3 and day > 13:
+			if day < 19:
+				$holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
+			elseif day = 19:
+				$holyday = '<b>Spring Break starts tomorrow.</b>'
+			elseif day >= 20 and day <= 26:
+				kanikuli = 3
+				if day < 24:
+					$holyday = '<b>Spring Break.</b>'
+				elseif day < 26:
+					$holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
+				else
+					$holyday = '<b>Last day of Spring Break.</b>'
+				end
+			end
+		elseif month = 5:
+			if ( (school_year = 2000 and year = 2017) or (school_year = 2001 and year = 2018) ) and day >= 19 and day <= 25:
+				if day = 25:
+					kanikuli = 6
+					$holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
+				elseif day = 24:
+					$holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
+				else
+					$holyday = '<b>Your graduation is in <<26-day>> days.</b>'
+				end
+			elseif day >= 25:
+				if day = 31:
+					$holyday = '<b>Summer Break starts tomorrow.</b>'
+				else
+					$holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
+				end
+			end
+		elseif month = 6 or month = 7 or month = 8:
+			kanikuli = 4
+			if month = 8 and day >= 25:
+				if day = 31:
+					$holyday = '<b>Last day of Summer Break.</b>'
+				else
+					$holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
+				end
+			else
+				$holyday = '<b>Summer Break.</b>'
+			end
+		elseif month = 10 and day >= 29:
+			$holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
+		elseif month = 11:
+			if day < 3:
+				$holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
+			elseif day = 3:
+				$holyday = '<b>Autumn Break starts tomorrow.</b>'
+			elseif day < 6:
+				kanikuli = 1
+				$holyday = '<b>Autumn Break.</b>'
+			elseif day < 11:
+				kanikuli = 1
+				$holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
+			elseif day = 11:
+				kanikuli = 1
+				$holyday = '<b>Last day of Autumn Break.</b>'
+			end
+		end
+	end
+	!!Brother''s dick growth as he gets older
+	kolka_dick_month = daystart/30
+	if kolka_dick_month > daystart/30 and npc_dick['A34'] < 26: npc_dick['A34'] += 1
+	if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
+		$npc_thdick['A34'] = 'well proportioned'
+	elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
+		$npc_thdick['A34'] = 'thick'
+	end
+end
+
+killvar 'natholi'
+if month = 1 and day >= 1 and day <= 8:
+	$natholi = 'New Year holidays'
+	natholi = 1
+	if day = 1:$natholi += ', New Year'
+	if day = 7:$natholi += ', Christmas'
+end
+if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
+if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
+if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
+if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
+if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
+if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
+if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
+if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
+if natholi = 1:
+	if $holyday ! '': $holyday += '<br>'
+	$holiday += $natholi
+end
+
+if bcream_used >= 1:
+    bcream_used = 0
+    temp = rand(0,5)
+    nbsize += temp
+    if temp > 0:'Feels like your breasts have grown slightly.'
+end
+if steroid_dose >= 1:
+    if lashair < 1:
+        pcs_pubes += steroid_dose
+        pcs_leghair += steroid_dose
+    end
+    steroid_dose = 0
+end
+if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
+if aphrodisiac_timer ! 0:aphrodisiac_timer  = 0
+
+if mentats_dose = 1:
+    mentats_dose = 0
+elseif mentats_dose > 1:
+    pain['head'] += 20 * mentats_dose
+    mentats_dose = 0
+end
+
+!!Appearance base calculation call
+gs 'body_shape', 'basebeautycalc'
+
+!! vovan, from 1.2.5
+hanters_check = 0
+mushroom_pickers = 0
+horse_river = 0
+haying_time = 0
+mira_go_river = 0
+forestpicnic = 0
+if Mira_no > 0: Mira_no -= 1
+if Mira_no < 0: Mira_no = 0
+if catout ! 0: catout = 0
+if feedcat ! 0: feedcat = 0
+
+loc_count = ARRSIZE('$CloLosLoc')
+i = loc_count - 1
+:loopCloLoc
+	$CloLoc = $CloLosLoc[i]
+	CloLostOn = CloLosDay[$CloLoc]
+	if CloLostOn + RAND(7,14) < daystart :
+		gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
+	end
+	i -=1
+if i > -1 :jump 'loopCloLoc'
+
+--- cikl ---------------------------------
+

locations/din_van.qsrc

@@ -207,40 +207,49 @@ $bath = {
 
 $brit = {
 	'Your razor blade looks in good enough shape for <b><<stanok>></b> more shaves.'
-
+	!pubestyle
 	if pcs_leghair > 3 and pcs_pubes > 3 and stanok > 1:
-		act 'Shave your legs and pussy (0:15)':
-			cla
-			*clr
-			minut += 15
-			pcs_leghair = 0
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 2
+		if pubestyle > 1 or pubestyle = 0:
+			act 'Shave your legs and pussy (0:15)':
+				cla
+				*clr
+				minut += 15
+				pcs_leghair = 0
+				if pubestyle = 3 or pubestyle = 0:
+					pcs_pubes = 0
+				elseif pubestyle = 2 and pcs_pubes > 11:
+					pcs_pubes = 11
+				end
+				pcs_horny += 5
+				stanok -= 2
 
-			if obdysh = 1 and rand(0, 5) = 0:gt 'vann', 'brit1'
+				if obdysh = 1 and rand(0, 5) = 0:gt 'vann', 'brit1'
 
-			if $loc ='Gadbana':
-				'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
-			end
+				if $loc ='Gadbana':
+					'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
+				else
+					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				end
 
-			*nl
-			if daystart < 10 and StoryLine = 0 and ntstart = 0:
-				'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
-				'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
-			elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
-				pcs_mood += 10
-				'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
-			else
-				'You lather up your legs and crotch and then start carefully shaving them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
-			end
+				*nl
+				if daystart < 10 and StoryLine = 0 and ntstart = 0:
+					'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
+					'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
+				elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
+					pcs_mood += 10
+					'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
+				elseif pubestyle = 2:
+					'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your bush as well.'
+				else
+					'You lather up your legs and crotch and carefully shave them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
+				end
 
-			dynamic $dryOff
+				dynamic $dryOff
+			end
 		end
 	end
-
+	
+	
 	if pcs_leghair > 3 and stanok > 0:
 		act 'Shave your legs (0:10)':
 			cla
@@ -266,26 +275,42 @@ $brit = {
 	end
 
 	if pcs_pubes > 3 and stanok > 0:
-		act 'Shave your pussy (0:10)':
-			cla
-			*clr
-			minut += 10
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 1
+		if pubestyle = 3 or pubestyle = 0:
+			act 'Shave your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 0
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+
+				if $loc ='Gadbana':
+					'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
+				else
+					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				end
 
-			if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+				*nl
+				'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
 
-			if $loc ='Gadbana':
-				'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				dynamic $dryOff
+			end
+			
+		elseif pubestyle = 2 and pcs_pubes > 15:
+			act 'Trim your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 11
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
+				*nl
+				'You spend some time trimming back your bush, not shaving it away completely but careful to make it neat and tidy.'
+				dynamic $dryOff
 			end
-
-			*nl
-			'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
-
-			dynamic $dryOff
 		end
 	end
 }
@@ -622,7 +647,13 @@ $pirManage = {
 
 if $ARGS[0] = 'private':
 	if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings.'
-
+	
+	'Pubic Shaving Style:'
+	if pubestyle = 0:'<a href="exec:pubestyle = 3 & gt $loc, $metka">Clean Shave</a> | <a href="exec:pubestyle = 2 & gt $loc, $metka">Trimmed</a> | <a href="exec:pubestyle = 1 & gt $loc, $metka">Never Shave</a> | <u>None</u>'
+	if pubestyle = 1:'<a href="exec:pubestyle = 3 & gt $loc, $metka">Clean Shave</a> | <a href="exec:pubestyle = 2 & gt $loc, $metka">Trimmed</a> | <u>Never Shave</u> | <a href="exec:pubestyle = 0 & gt $loc, $metka">None</a>'
+	if pubestyle = 2:'<a href="exec:pubestyle = 3 & gt $loc, $metka">Clean Shave</a> | <u>Trimmed</u> | <a href="exec:pubestyle = 1 & gt $loc, $metka">Never Shave</a> | <a href="exec:pubestyle = 0 & gt $loc, $metka">None</a>'
+	if pubestyle = 3:'<u>Clean Shave</u> | <a href="exec:pubestyle = 2 & gt $loc, $metka">Trimmed</a> | <a href="exec:pubestyle = 1 & gt $loc, $metka">Never Shave</a> | <a href="exec:pubestyle = 0 & gt $loc, $metka">None</a>'
+	
 	!WD: heal chafe
 	if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
 
@@ -704,29 +735,37 @@ if $ARGS[0] = 'private':
 	dynamic $basin
 
 	if pcs_leghair > 3 and pcs_pubes > 3 and stanok > 1:
-		act 'Shave your legs and pussy (0:15)':
-			cla
-			*clr
-			minut += 15
-			pcs_leghair = 0
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 2
-			if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+		if pubestyle > 1 or pubestyle = 0:
+			act 'Shave your legs and pussy (0:15)':
+				cla
+				*clr
+				minut += 15
+				pcs_leghair = 0
+				if pubestyle = 3 or pubestyle = 0:
+					pcs_pubes = 0
+				elseif pubestyle = 2 and pcs_pubes > 11:
+					pcs_pubes = 11
+				end
+				pcs_horny += 5
+				stanok -= 2
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
 
-			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
-			*nl
-			if daystart < 10 and StoryLine = 0 and ntstart = 0:
-				'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
-				'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
-			elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
-				pcs_mood += 10
-				'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
-			else
-				'You lather up your legs and crotch and then start carefully shaving them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
-			end
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				*nl
+				if daystart < 10 and StoryLine = 0 and ntstart = 0:
+					'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
+					'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
+				elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
+					pcs_mood += 10
+					'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
+				elseif pubestyle = 2:
+					'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your bush as well.'
+				else
+					'You lather up your legs and crotch and carefully shave them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
+				end
 
-			act 'Return to showering':gt $loc, $metka
+				act 'Return to showering':gt $loc, $metka
+			end
 		end
 	end
 
@@ -747,20 +786,38 @@ if $ARGS[0] = 'private':
 	end
 
 	if pcs_pubes > 3 and stanok > 0:
-		act 'Shave your pussy (0:10)':
-			cla
-			*clr
-			minut += 10
-			pcs_pubes = 0
-			pcs_horny += 5
-			stanok -= 1
-			if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+		if pubestyle = 3 or pubestyle = 0:
+			act 'Shave your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 0
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
 
-			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
-			*nl
-			'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
+				*nl
+				'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
 
-			act 'Return to showering':gt $loc, $metka
+				act 'Return to showering':gt $loc, $metka
+			end
+		elseif pubestyle = 2 and pcs_pubes > 15:
+			act 'Trim your pussy (0:10)':
+				cla
+				*clr
+				minut += 10
+				pcs_pubes = 11
+				pcs_horny += 5
+				stanok -= 1
+				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
+				*nl
+				'You spend some time trimming back your bush, not shaving it away completely but careful to make it neat and tidy.'
+
+				act 'Return to showering':gt $loc, $metka
+			end
 		end
 	end
 

locations/etoexhib.qsrc

@@ -1624,8 +1624,8 @@ if $ARGS[0] = 'pos53':
 			cla
 			*clr
 			minut += 60
-			if inhib_exp += rand(1,3)
-			if pcs_sweat < 35 : pcs_sweat += 5
+			inhib_exp += rand(1,3)
+			if pcs_sweat < 35: pcs_sweat += 5
 			pcs_mood += 5
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/zagar1.jpg"></center>'
 

locations/family.qsrc

@@ -120,7 +120,11 @@ if StoryLine = 1:
 		end
 
 		 if $loc = 'sitrPar' or ($loc = 'family' and $metka = 'sofa'):
-			if hour < 7 or hour >= 21:
+			if hour < 7 and brothemorningsex = daystart:
+				'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is getting ready for school.'
+			elseif hour < 7 and brothermorningsex ! daystart:
+				'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
+			elseif hour >= 23:
 				ocpd_room = 1
 				'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sleeping on the sofa.'
 			end
@@ -136,15 +140,15 @@ if StoryLine = 1:
 				if hour >= 18 and hour < 20:
 					if kanikuli > 0:
 						ocpd_room = 1
-						'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
+						'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
 					else
 						ocpd_room = 1
 						'Your little brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting by the table and doing his homework.'
 					end
 				end
-				if hour = 20:
+				if hour > 20 and hour < 23:
 					ocpd_room = 1
-					'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
+					'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, playing video games.'
 				end
 			end
 
@@ -161,7 +165,7 @@ if StoryLine = 1:
 					end
 				end
 
-				if hour >= 18 and hour <= 20:
+				if hour >= 18 and hour <= 23:
 					ocpd_room = 1
 					'Your younger brother <a href="exec:gt ''brother'', ''start''">Kolka</a> is sitting on the sofa, watching TV.'
 				end

locations/femcyc.qsrc

@@ -1,946 +1,946 @@
-# femcyc
-
-!! I have to initialize the variables somewhere, maybe in preCUST?
-if Luth_Max = 0: LutH_Max = rand(312,360) & !! 13-15 days including ovulation
-if Foch_Max = 0: FocH_Max = rand(312,360) & !! 13-15 days including menstruation
-
-if $ARGS[0] = '':
-	!{Hourly reduction in semen potency}
-	!{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 144 hours. If it is 144 hours old, it kills that index, which should shift the index up. If it is less than 144 hours old, it sets a current potency drop. The drop is 2x or 3x regularly, but during ovulation it is only 1x, to represent the better environment from fertile cervical mucus.}
-	!{144 hours was selected due to that being approximately the maximum amount of time sperm is viable in the womb (120 would be more accurate, but there is leeway). PLEASE DO NOT CHANGE IT.}
-	!{The potency drop may seem small in game-time, but is meant to be a reasonable approximation to real life. Avoid unprotected sex within 5 days of ovulation if you want to mitigate your risk.}
-	!{the 'rcntorgzm' variable is set to determine whether Sveta has orgasmed within the last hour. If she has, a small potency boost for the guys she has slept with in that hour.}
-
-	if rcntorgzm = 1:
-		if rcntorgzmtmp = 1: rcntorgzm = 0 & rcntorgzmtmp = 0
-		if rcntorgzmtmp = 0: rcntorgzmtmp = 1
-
-	end
-
-	cumarr_idx = 0
-
-	:cumarrloop
-	if cumarr_idx < arrsize('$cumarrnam'):
-		if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 144:
-			if rcntorgzm = 1 and cumarrcpt[cumarr_idx] < cumarrppt[cumarr_idx] and cumarrage[cumarr_idx] < 1: cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx] / 12
-			cumpdrop = cumarrcpt[cumarr_idx] / (144 - cumarrage[cumarr_idx])
-			if cycle ! 2: cumpdrop += cumpdrop * rand(0, 2)
-			cumarrcpt[cumarr_idx] -= cumpdrop
-			if cumarrcpt[cumarr_idx] <= 0:
-				gs 'cum_cleanup', 'cleanwomb', cumarr_idx
-			else
-				cumarrage[cumarr_idx] += 1
-				cumarr_idx += 1
-			end
-		else
-			gs 'cum_cleanup', 'cleanwomb', cumarr_idx
-		end
-
-		jump 'cumarrloop'
-
-	end
-
-	!!Succubus absorption of sperm in womb
-	if succubusflag = 1:
-		if arrsize('cumarrppt') > 0:
-			succycletmp = 0
-			:sucvagabs
-			if cumarrdel[succycletmp] = 0:
-				if cumarrcpt[succycletmp] > 10000:
-					sexnutrition += 30 * succublvl
-					succubxp += 3
-				elseif cumarrcpt[succycletmp] < 3000 and cumarrcpt[succycletmp] > 1000:
-					sexnutrition += 5 * succublvl
-					succubxp += 2
-				elseif cumarrcpt[succycletmp] =< 1000:
-					 sexnutrition += succublvl
-				else
-					sexnutrition += 25 * succublvl
-					succubxp += 3
-				end
-				gs 'cum_cleanup', 'cleanwomb', succycletmp
-				sucabscum = 1
-			else
-				succycletmp += 1
-			end
-			if succycletmp < arrsize('cumarrppt'): jump 'sucvagabs'
-		end
-		killvar 'succycletmp'
-	end
-
-	cumarrtemp = 0
-	cumcondslip = 0
-	cumcondslip_aware = 0
-	if arrsize('sparrvol') > 0:
-		:cumspaloop
-		!!Succubus absorption for internal locations other than womb
-		if succubusflag = 1:
-			if sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
-				sexnutrition += 25*succublvl
-				succubxp += 3
-				sucabscum = 1
-				if sparrvol[cumarrtemp] > 0: sparrvol[cumarrtemp] = 0
-			end
-		end
-		!!{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
-			sexnutrition += 30*succublvl
-			sparrvol[cumarrtemp] -= 30*succublvl
-			if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
-		end}
-		!!{ Process spatter until it has volume or is too old in vagina. }
-		if sparrvol[cumarrtemp] > 0 or (sparrloc[cumarrtemp] = 0 and sparrage[cumarrtemp] < 10):
-			sparrtmpv = arrsize('$cumarrnam')
-			if sparrloc[cumarrtemp] = 17:
-				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
-				if sparrtmpv >= 0:
-					!!'Found guy id <<sparrtmpv>>'
-					if sparrage[cumarrtemp] < 4:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
-					elseif sparrage[cumarrtemp] < 10:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
-					end
-				end
-			elseif sparrloc[cumarrtemp] = 0:
-				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
-				if sparrtmpv >= 0:
-					!!'Found guy id' & sparrtmpv
-					if sparrage[cumarrtemp] < 4:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
-					elseif sparrage[cumarrtemp] < 10:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
-					end
-				end
-			elseif sparrslc[cumarrtemp] = 1 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 1:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 1
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				end
-			elseif sparrslc[cumarrtemp] = 3 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 2:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 3
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				elseif sparrloc[cumarrtemp] = 4:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 2
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				end
-			elseif sparrslc[cumarrtemp] = 5 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 3:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 2
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				elseif sparrloc[cumarrtemp] = 5:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 3
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				elseif sparrloc[cumarrtemp] = 6:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 3
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				end
-			end
-
-			if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
-				sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
-				if sparrvol[cumarrtemp] < 0:sparrvol[cumarrtemp] = 0
-			end
-			if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc[cumarrtemp] = 1
-			if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc[cumarrtemp] = 1
-			if sparrloc[cumarrtemp] = 17:
-				cumcondslip += 1
-				if sparridt[cumarrtemp] >= 0:
-					cumcondslip_aware = 1
-				end
-				if sparrage[cumarrtemp] > 48:
-					cumcondslip_aware = 1
-					pcs_health -= rand(3,sparrage[cumarrtemp] - 45)
-					'<br><b><font color="red">You feel nauseous.</font></b>'
-				end
-			end
-			if sparrloc[cumarrtemp] ! 0 and sparrloc[cumarrtemp] ! 3 and sparrloc[cumarrtemp] ! 12 and isprok = 0 and sparrage < 5: sparrslc[cumarrtemp] += 1
-			sparrage[cumarrtemp] += 1
-			cumarrtemp += 1
-			ctemp[0] += sparrvol[cumarrtemp]
-			if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
-			if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
-		else
-			gs 'cum_cleanup', 'cleandeposit', cumarrtemp
-		end
-		if cumarrtemp < arrsize('sparrvol'): jump 'cumspaloop'
-		cumsumbod = ctemp[0]
-		cumsumvag = ctemp[1]
-		cumsumass = ctemp[2]
-		KILLVAR 'ctemp'
-	end
-
-
-	!! new milkgrowday function.
-	!! Not lactating yet, but there was milkdemand, meaning someone worked your nipples and breasts.
-	if lactate = 0 and milkoverdemand >= 0 and prolactinlvl >= 0:
-		if milkgrowday < daystart:
-			prolactinlvl += milkoverdemand/200
-			!! as long as your tits are not over 11 growth will happen to them. If you do not pump or no pregnancy happens, no growth will happen.
-			if milkoverdemand = 0 and pregchem = 0 and tits < 11:
-				temp_var = prolactinlvl - 10
-				if temp_var < 0:
-					prolactinlvl = 0
-				end
-				!! if prolactinlvl is sinking too much, the aveoli will deflate and thus the breasts growth is reverted. This only counts for induced lactation. If natural lactation occurs breasts will shrink a bit too, but stay bigger in total.
-				if prolactinlvl < 75 and total_milkinduce_growth > 0:
-					nbsize -= total_milkinduce_growth
-					prolactinlvl -= 10
-					total_milkinduce_growth = 0
-				else
-					prolactinlvl -= 10
-				end
-				milkoverdemand = 0
-				milkgrowday = daystart
-			elseif milkoverdemand > 0 and pregchem = 0 and tits < 11:
-				!! inducing without ever being pregnant
-				if prolactinlvl > 75 and kid <= 0:
-					if total_milkinduce_growth < 8:
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					else
-						pumpinggrowth = 0
-					end
-				!! inducing after being pregnant
-				elseif prolactinlvl > 75 and kid > 0:
-					if total_milkinduce_growth < (total_preg_growth/2):
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					end
-				end
-				milkoverdemand = 0
-			elseif milkoverdemand >= 0 and pregchem > 0 and tits < 11:
-				if prolactinlvl > 75 and pregchem < 3000 and kid <= 0:
-					if total_milkinduce_growth < 8:
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					else
-						pumpinggrowth = 0
-					end
-				!! first breast growth with first pregnancy
-				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
-					if rand(0,100) > 55:
-						first_preg_growth += 1
-						total_preg_growth += 1
-						if total_preg_growth > total_milkinduce_growth: nbsize += 1
-					end
-				!! there is little chance your breast grow additional sizes if you have more kids.
-				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid > 0:
-					if first_preg_growth > total_preg_growth:
-						total_preg_growth += 1
-						if total_preg_growth > total_milkinduce_growth: nbsize += 1
-					else
-						if rand(0,100) > 95:
-							total_preg_growth += 1
-							if total_preg_growth > total_milkinduce_growth: nbsize += 1
-						end
-					end
-				!! inducing after being pregnant
-				elseif prolactinlvl > 75 and pregchem =< 3000 and kid > 0:
-					if total_milkinduce_growth < (total_preg_growth/2):
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					end
-				end
-				milkoverdemand = 0
-				milkgrowday = daystart
-			end
-			milkgrowday = daystart
-		else
-			milkgrowday = daystart
-		end
-	elseif lactate > 0 and milkoverdemand => 0 and prolactinlvl >= 0:
-		lactatemm = func('lact_lib','$calc_lactatemm')
-		!! checking if induced or not and if girl went through pregnancy already.
-		if lactateinduced > 0 and kid <= 0:
-			if milkgrowday < daystart:
-				!! first breast growth with first pregnancy
-				if prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
-					if rand(0,100) > 55:
-						first_preg_growth += 1
-						total_preg_growth += 1
-						if total_preg_growth > total_milkinduce_growth: nbsize += 1
-					end
-				end
-				if lactatemm > lactatemv:
-					lactatemv += lactaterate
-					temp_var = lactaterate/100
-					if temp_var <= 0: temp_var = 1
-					pcs_energy -= temp_var
-					if lactatemv > lactatemm: lactatemv = lactatemm
-				end
-				if milkoverdemand > 0 and breastpumped > 0:
-					!! lactationrate growing, so you make more milk the more demand there was in the day before.
-					temp_var = prolactinlvl + milkoverdemand/20
-					if  temp_var > 120:
-						prolactinlvl += milkoverdemand/20
-						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know
-						if lactaterate > 3500:
-							lactaterate += 5*(prolactinlvl/200)
-						elseif lactaterate > 6000:
-							lactaterate += prolactinlvl/200
-						else
-							lactaterate += 10*(prolactinlvl/200)
-						end
-						prolactinlvl = 100
-					else
-						prolactinlvl = 100
-					end
-					'Your breasts tingle a bit more from milkproduction.'
-				elseif milkoverdemand = 0 and breastpumped > 0:
-					prolactinlvl = 100
-				elseif milkoverdemand = 0 and breastpumped = 0:
-					if lactaterate > 0 and pregchem >=0:
-						temp_var = lactaterate/4
-						if temp_var < 1:temp_var = 0
-						lactaterate = temp_var
-						'Your breasts tingle a little less from milkproduction.'
-					elseif lactaterate = 0 and pregchem < 1000:
-						lactate = 0
-						lactateinduced = 0
-						nbsize -= total_milkinduce_growth
-						'You notice that you stopped lactating.'
-					elseif lactaterate = 0 and pregchem >= 1000:
-						lactaterate = 1
-					else
-						lactaterate = 0
-					end
-				end
-				milkgrowday = daystart
-				milkoverdemand = 0
-				breastpumped = 0
-			else
-				milkgrowday = daystart
-				if lactatemm >= lactatemv:
-					lactatemv += lactaterate
-					if lactatemv > lactatemm:
-						lactatemv = lactatemm
-						lact_engorgement += 1
-						if lact_engorgement > 2: lactatemess += 1
-					end
-				end
-			end
-			milkgrowday = daystart
-		else
-			if milkgrowday < daystart:
-				if lactatemm > lactatemv:
-					lactatemv += lactaterate
-					temp_var = lactaterate/100
-					if temp_var <= 0: temp_var = 1
-					pcs_energy -= temp_var
-					if lactatemv > lactatemm: lactatemv = lactatemm
-				end
-				if milkoverdemand > 0 and breastpumped > 0:
-					!! lactationrate growing, so you make more milk the more demand there was in the day before.
-					temp_var = prolactinlvl + milkoverdemand/10
-					if  temp_var > rand(150,200):
-						prolactinlvl += milkoverdemand/20
-						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know :D
-						if lactaterate > 3500:
-							lactaterate += 5*(prolactinlvl/200)
-						elseif lactaterate > 6000:
-							lactaterate += prolactinlvl/200
-						else
-							lactaterate += 10*(prolactinlvl/200)
-						end
-						prolactinlvl = 100
-					else
-						prolactinlvl = 100
-					end
-					'Your breasts tingle a bit more from milkproduction.'
-				elseif milkoverdemand = 0 and breastpumped > 0:
-					prolactinlvl = 100
-				else
-					if lactaterate > 0 and pregchem >= 0:
-						temp_var = lactaterate/8
-						if temp_var < 1:temp_var = 0
-						lactaterate = temp_var
-						milkoverdemand = 0
-						'Your breasts tingle a little less from milkproduction.'
-					elseif lactaterate = 0 and pregchem < 1000:
-						lactate = 0
-						lactateinduced = 0
-						if total_milkinduce_growth > 0: nbsize -= total_milkinduce_growth
-						if total_preg_growth > 0:
-							nbsize -= total_preg_growth
-							nbsize += first_preg_growth/2
-						end
-						total_milkinduce_growth = 0
-						milkoverdemand = 0
-						'You stopped lactating.'
-					elseif lactaterate = 0 and pregchem >= 1000:
-						lactaterate = 1
-					else
-						lactaterate = 0
-					end
-				end
-				milkgrowday = daystart
-				milkoverdemand = 0
-				breastpumped = 0
-			else
-				milkgrowday = daystart
-				if lactatemm >= lactatemv:
-					lactatemv += lactaterate
-					if lactatemv > lactatemm:
-						lactatemv = lactatemm
-						lact_engorgement += 1
-						if lact_engorgement > 2: lactatemess += 1
-					end
-				end
-			end
-			milkgrowday = daystart
-		end
-		milkgrowday = daystart
-	end
-
-	if cycle <= 0:
-		gs 'femcyc', 'cyc0'
-	elseif cycle = 1:
-		gs 'femcyc', 'cyc1'
-	elseif cycle = 2:
-		gs 'femcyc', 'cyc2'
-	elseif cycle = 3:
-		gs 'femcyc', 'cyc3'
-	elseif cycle = 4:
-		gs 'femcyc', 'cyc4'
-	elseif cycle = 5:
-		gs 'femcyc', 'preg'
-	end
-
-	dynamic $d_cycreport_update
-end
-
-
-!{Menstruation to Follicular. Verifies that the cycle is in the bloody phase. It then checks to see if you are done bleeding. If you are, it starts the Follicular phase. There is a small chance your follcular phase will be anywhere from a day to 3 days short, done by the random release of a boosted EggRH. Otherwise, it just starts it clean.}
-
-if $ARGS[0] = 'cyc0':
-	if mesec <= 0:
-		lastmens = daystart
-		cycle = 1
-		mesec = 0
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH += EggRH
-	else
-		mesec -= 1
-		FocH += 1
-	end
-end
-
-
-!{Follicular to Ovulation. It checks to see if you are on the Follicular phase. If you are, it checks to see if you are ready to ovulate. If you arent, it increases your ovulation ticker by 1, then gives a random chance to increase it again. Then it checks to see if you have ovarian problems, and if you do, decreases your ovulation ticker. When all that is done, it checks to see if you have any birth control chemical, and if its above a certain amount, it reduces your ovulation ticker.}
-
-if $ARGS[0] = 'cyc1':
-	FertEgg = 0
-	if FocH <= FocH_Max:
-		if pillcon <= 7000: EggRH += 1
-		if rand(0,9) = 0: EggRH += 1
-		FocH += 1
-		temprand = rand(0,9) - sterileov + tempovbonus
-		if temprand < 0:
-			EggRH -= 1
-		elseif temprand > 9:
-			EggRH += 1
-		end
-	else
-		!! the setting of the max_time can be here although it can be changed in the future
-		LutH_Max = rand(312,360) & !! 13-15 days including ovulation
-		!{If you are ready to ovulate, it creates a chance to double ovulate. That chance is increased by your age. Then it does the same for a triple ovulation. Then it sets the ovulation tag, ovulation hour count, and begins a ticker for the life of the eggs.}
-		Temprand = rand(0,20)
-		Temprand += age/15
-		Temprand -= pillcon/1000
-		if temprand > 20:
-			EggRH += 205
-			Temprand = rand(0,20)
-			Temprand += age/15
-			if temprand > 20: EggRH += 410
-		end
-		FocH = 0
-		Ovulate = 24 + rand(0,20)
-		cycle = 2
-		ferteggage = 0
-	end
-end
-
-
-!!{Fertilization.}
-
-if $ARGS[0] = 'cyc2':
-	can_sz = arrsize('$cumarrnam')
-	if Ovulate > 0 and can_sz > 0 and UnfertEgg > 0:
-		KILLVAR 'cumtime'
-		KILLVAR 'cumfthname'
-		KILLVAR '$wombpotfath'
-		$cumfthname[0] = 'unknown'
-		cumtime[0] = 0
-		can_idx = 0
-		cum_total = 0
-!!{Compute array of unique fathers known to PC and another two arrays of unique total fathers and their individual sperm totals from all entries in cumarrcpt for that father. Also tally all cum present.}
-		:FatherCumAnalyze
-			!! If the current DNA is new (no occurence in the womb array), it is added to the end of $wombDNA array, and added the amount of cum to the end of cumamount array.
-			!! If exists, just increase the amount of cum in the womb.
-
-			!! $wombDNA: sperm in womb potent enough to cause pregnancy
-			!! wombAmount: how potent is the sperm of a guy
-			!! $wombName: the name of the NPC
-			y = arrsize('$wombDNA')
-			if arrpos('$wombDNA',$npc_dna[$cumarrnam[can_idx]]) = -1:
-				!! New guy, create place for him at the end of the array, storing his DNA, sperm amount and name
-				$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
-				wombAmount[y] = cumarrcpt[can_idx]
-				$wombName[y] = $cumarrnam[can_idx]
-
-			else
-				!! This DNA is in the womb, but does it belong to the same guy?
-				x = 0
-				z = 0
-				:LocalizeLoop
-					if $wombDNA[x] = $npc_dna[$cumarrnam[can_idx]] and $wombName[x] = $cumarrnam[can_idx]: wombAmount[x] += cumarrcpt[can_idx] & z = 1
-				if z = 0 and x < (y - 1):x += 1 & jump 'LocalizeLoop'
-				killvar 'x'
-				if z = 0:
-					!! Since the DNA and the stored name does not match at the same time, it means this is a twin situation where the twin is not in array, so put him in
-					$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
-					$wombName[y] = $cumarrnam[can_idx]
-					wombAmount[y] = cumarrcpt[can_idx]
-				end
-				killvar 'z'
-			end
-			killvar 'y'
-
-			if cumarrkno[can_idx] = 1 and arrpos('$wombpotfath', $cumarrnam[can_idx]) < 0:$wombpotfath[arrsize('$wombpotfath')] = $cumarrnam[can_idx]
-
-			!! If the guy is a known/possible element (PC know about the sex, it was actual sex, condom/pill was not used or condom was broken, etc.), he can be considered as father.
-			if instr('14570',str(cumarrcon[can_idx])) > 0 and cumarrdel[can_idx] = 0 and cumarrkno[can_idx] >= 0:
-				!! If guy is recorded already, increase his cumtime, else record him for the first time.
-				if arrpos('$cumfthname', $cumarrnam[can_idx]) = -1:
-					$cumfthname[arrsize('$cumfthname')] = $cumarrnam[can_idx]
-					cumtime[arrsize('$cumfthname')] = 1
-				else
-					cumtime[arrpos('$cumfthname', $cumarrnam[can_idx])] += 1
-				end
-			end
-
-			cum_total += cumarrcpt[can_idx]
-
-		if can_idx < can_sz:can_idx += 1 & jump 'FatherCumAnalyze'
-
-		!! setting the default believed father if there is no difficult choice or there is no choice
-		if arrsize('$cumfthname') = 2 and cumtime[0] = 0:
-			$wombpotfath[0] = $cumfthname[1]
-		elseif arrsize('$cumfthname') = 1:
-			$wombpotfath[0] = $cumfthname[0]
-		end
-
-!!{Create lotto of potential fathers based on each potential fathers sperm as a percentage of the total. The higher percentage of sperm from a given father, the more lotto entries he will have.}
-		KILLVAR '$cumfathlotto'
-		cfw_idx = 0
-		cfw_sz = arrsize('wombAmount')
-		:FathLottoLoop
-		if cfw_idx < cfw_sz:
-			cfl_ct = (wombAmount[cfw_idx] * 100) / cum_total
-			if cfl_ct < 1: cfl_ct = 1
-			cfl_idx = arrsize('$cumfathlotto')
-			:FathLottoAdd
-			if cfl_ct > 0:
-				$cumfathlotto[cfl_idx] = $wombName[cfw_idx]
-				$cumfatherDNA[cfl_idx] = $wombDNA[cfw_idx]
-				cfl_idx += 1
-				cfl_ct -= 1
-				jump 'FathLottoAdd'
-			end
-			cfw_idx += 1
-			jump 'FathLottoLoop'
-		end
-		killvar '$wombDNA'
-		killvar '$wombName'
-		killvar 'wombAmount'
-		cfl_sz = arrsize('$cumfathlotto')
-
-		egg_idx = 0
-		egg_sz = UnfertEgg
-		if cheat_NoPregnancy = 1:egg_idx = egg_sz
-		:FertLoop
-		if egg_idx < egg_sz:
-!!{fert_thresh is the chance this specific egg is fertilized. Its modified by being on the pill, being sterilized, the brood curse, and so on. If it computes to less than the cum total calculated above, the egg is fertilized by a father randomly drawn from the lotto array.}
-			fert_thresh = rand(1,250000)
-			if pillcon < 0: pillcon = 0
-			!!fert_thresh += pillcon
-			if steriletu = 1: fert_thresh += fert_thresh*30
-			if fert_thresh > 0 and broodcurse > 0: fert_thresh = fert_thresh / 2
-			if fert_thresh <= cum_total:
-				lotto_idx = rand(0, cfl_sz-1)
-				UnfertEgg -= 1
-				FertEgg += 1
-				nextbaby = arrsize('$ChildFath')
-				polkid[nextbaby] = rand(0, 1)
-				$kidname[nextbaby] = 'unborn'
-				kidage[nextbaby] = 0
-				daykid[nextbaby] = 0
-				monthkid[nextbaby] = 0
-				yearkid[nextbaby] = 0
-				Babyptype[nextbaby] = 0
-				$kid_dna[nextbaby] = func('DNA', 'generate', $pcs_dna, $npc_dna[$cumfathlotto[lotto_idx]])
-				$ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
-				$ChildFathDNA[nextbaby] = $cumfatherDNA[lotto_idx]
-				if arrsize('$wombpotfath') = 1:
-					$ChildThFath[nextbaby] = $wombpotfath[0]
-				else
-					$ChildThFath[nextbaby] = 'unknown'
-				end
-				hairkid[nextbaby] = rand(0, 3)
-				eyeskid[nextbaby] = rand(0, 3)
-				ChildConType[nextbaby] = cumarrcon[nextbaby]
-				if fertegg > 1:
-					$childtype[nextbaby] = 'paternal twin'
-					$childtype[nextbaby-1] = 'paternal twin'
-				else
-					$childtype[nextbaby] = ''
-				end
-			end
-			egg_idx += 1
-			jump 'FertLoop'
-		end
-		killvar 'temp'
-		tempovbonus = 0
-	end
-
-!!{Ovulation to Luteal. It checks to see if you are on the ovulation cycle. If you are, it checks you for your pillcon. If it is high enough, no egg is released. Under high concentrations of pill chemical, ovulation ticks away quicker. Otherwise, it checks to see if your ovulation hormone is high enough, and if it is it gives you an egg and drops a good chunk down on your ovulation hormone. if its still high, it drops another egg. Then it checks your ovulation hours. If its down to 0, it starts the Luteal phase. Otherwise, it adds an hour to the egg age and reduces the ovulation window by an hour.}
-	if pillcon > 26000 and rand(0,400) ! 0: EggRH = 0
-	:OviLoop
-	If EggRH > ((UnfertEgg + FertEgg) * 150):
-		UnfertEgg += 1
-		EggRH -= (200 * UnfertEgg)
-		jump 'OviLoop'
-	end
-	If ovulate <= 0:
-		cycle = 3
-		UnfertEgg = 0
-	end
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			fertegg += 1
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
-			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	ferteggage += 1
-	Ovulate -= 1
-	LutH += 1
-end
-
-
-!{Luteal to Menstration or Pregnancy. First it verifies this is the Luteal phase. Then it adds an hour to the age of the eggs. Then if there is a fertized egg, it rolls a random chance. if the egg age is low, it checks for risk of an entopic pregnancy. This is increased with older age and if you have a tubal ligation sterilization.}
-!{If there is a ectopic pregnancy, it sets the first unborn baby in the array to this. Ectopic pregnancies occur when the fertilized egg implants "too early" after fertlization (and therefore in the fallopian tube). The risk is higher with age, but this is also a common complication with certain forms of birth control, notably tubal ligation. Each egg could be different. It then removes the fertilized egg, adds an embryo, Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
-!{Otherwise, it adds your womb sterility factor to the imp_rand. Then it checks if your imp_rand crosses a threshold for implantation. Younger women implant easier. It then sets the next baby to the next unimplanted baby in your kid array. It registers the kid as a normal pregnancy, removes a fertilized egg and adds an embryo. Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
-
-if $ARGS[0] = 'cyc3':
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			fertegg += 1
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
-			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	ferteggage += 1
-	implant_idx = 0
-	implant_sz = arrsize('Babyptype')
-
-	:implant_loop
-	if implant_idx < implant_sz:
-
-		if Babyptype[implant_idx] = 0:
-			imp_rand = rand(0,120000)
-
-			if ferteggage < 120 and broodcurse <= 0:
-				imp_rand += 170
-				imp_rand -= age * 10
-				if steriletu = 1: imp_rand -= 200
-
-				if imp_rand <= 0:
-					Babyptype[implant_idx] = 2
-					FertEgg -= 1
-					babyembryo += 1
-					PregChem = rand(10,30)
-					if preg = 0: preg = 1
-					implant_day = daystart
-					implant_hour = hour
-
-				end
-
-			else
-				imp_rand += sterilewb
-				imp_rand -= tempwbbonus
-				if broodcurse > 0 and ferteggage >= 120: imp_rand = 0
-
-				if imp_rand <= (1200 - (age * 7)):
-					Babyptype[implant_idx] = 1
-					FertEgg -= 1
-					babyembryo += 1
-					PregChem = rand(10,30)
-					if preg = 0: preg = 1
-					implant_day = daystart
-					implant_hour = hour
-
-				end
-				tempwbbonus = 0
-
-			end
-
-		end
-
-		implant_idx += 1
-		jump 'implant_loop'
-
-	end
-
-!!{Then, it progresses the Luteal phase. It checks to see if you are pregnant. If you are, it ends the cycle and sets preg if your Luteal hormone is at the max as well as cleans out any unimplanted eggs. Otherwise, it just progresses pregnancy chemical and Luteal Hormone. If you arent pregnant, it checks your Luteal hormone. If its at the maximum, it adds 3-5 days of bleeding, clears out your unimplanted eggs, and clears out your Luteal hormone, or ends your cycle if you are past your menopausal age. Otherwise it will just progress the Luteal hormone.}
-	if LutH > LutH_Max:
-		rej_idx = 0
-		rej_sz = arrsize('Babyptype')
-		:lutcycloop
-		if rej_idx < rej_sz:
-			if Babyptype[rej_idx] = 0:
-				KILLVAR 'polkid',tempbabyi
-				KILLVAR '$kidname',tempbabyi
-				KILLVAR 'kidage',tempbabyi
-				KILLVAR 'daykid',tempbabyi
-				KILLVAR 'monthkid',tempbabyi
-				KILLVAR 'yearkid',tempbabyi
-				KILLVAR 'Babyptype',tempbabyi
-				KILLVAR '$ChildFath',tempbabyi
-				KILLVAR '$ChildThFath',tempbabyi
-				KILLVAR 'hairkid',tempbabyi
-				KILLVAR 'eyeskid',tempbabyi
-				KILLVAR 'cumarrcon',tempbabyi
-				FertEgg -= 1
-			end
-			rej_idx += 1
-			jump 'lutcycloop'
-		end
-		LutH = 0
-		if preg = 1:
-			cycle = 5
-		elseif menoage <= age:
-			KILLVAR '$wombpotfath'
-			killvar '$cumfthname'
-			killvar '$cumfthusedname'
-			killvar 'cumtime'
-			cycle = 6
-		else
-			KILLVAR '$wombpotfath'
-			killvar '$cumfthname'
-			killvar '$cumfthusedname'
-			killvar 'cumtime'
-			!! the setting of the max_time can be here although it can be changed in the future
-			FocH_Max = rand(312,360) & !! 13-15 days including menstruation
-			temprand = rand(0,10)
-			if pillcon >= 38000 or rand(1,24) = 1:
-				EggRH = 0
-				cycle = 1
-				mesec = 0
-			else
-				cycle = 0
-				killvar 'abortionbirthdate'
-				if cyccustom = 1: daylastperiod = daystart
-				firstmens = daystart
-				temprand = rand(0,10)
-				if temprand = 0 and pillcon < 10000:
-					mesec = rand(104,136) & !! 120
-				elseif temprand < 9 and pillcon < 15000:
-					mesec = rand(76,104) & !!  96
-				elseif pillcon < 20000:
-					mesec = rand(52,76) & !! 72
-				else
-					mesec = rand(44,52) & !! 48
-				end
-			end
-		end
-	else
-		if preg = 1:PregChem += 1+pregspeedcheat
-		if rand(0,100) < 100: LutH += 1
-	end
-end
-
-!{Recovery to Follicular. It checks to see if you are in the recovery phase after a pregnancy. If you are, it checks to see if you still have recovery hormone. If you dont, it sets you into the follicular phase with a chance of a boosted Egg releasing hormone. Otherwise it decreases your recovery hormone with a chance to decrease it twice.}
-
-if $ARGS[0] = 'cyc4':
-	if RecovH <= 0:
-		cycle = 1
-		if cyccustom = 1:
-			knowpregloss = 0
-			knowpregrecover = 0
-		end
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH = EggRH
-	else
-		RecovH -= 1
-		if rand(0,10) = 0: RecovH -= 1
-	end
-end
-
-
-!{Pregnancy Progression. It checks to see if you are in the pregnancy phase of a cycle. If you are, it progresses your pregnancy chemical. Then it gives a fluxuation of possible due dates. If you cross the due date threshold, you enter labor, marked by preg = 2. Other milestones will also be placed in here, including body deformations. Right now this is mostly an empty placeholder.}
-
-if $ARGS[0] = 'preg':
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			babyembryo += 1
-			PregChem += rand(10,30)
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	PregChem += (1+pregspeedcheat)
-	temprand = rand(-400,800)
-	temprand -= (babyembryo-1)*588
-	if PregChem > 6573 + temprand and preg ! 2:
-		'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
-		$cycreport_txt = 'In labour'
-		arrmodtmp =arrsize('$ChildFath')
-		arrmodtmp -= (babyembryo+1)
-		:babyfinalpreploop
-		if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
-			daykid[arrmodtmp] = 42
-			$ChildThFath[arrmodtmp] = $wombthfath
-			arrmodtmp += 1
-			jump 'babyfinalpreploop'
-		end
-		KILLVAR '$wombpotfath'
-		KILLVAR '$wombthfath'
-		preg = 2
-		pregminut = totminut + 1440
-		if babyembryo > 1:
-			'Your babies are coming...'
-		else
-			'Your baby is coming...'
-		end
-		if PregChem < 3885:
-			'Way too early!'
-		elseif PregChem < 5229:
-			'Very early!'
-		elseif PregChem < 6069:
-			'Early.'
-		elseif PregChem > 6959:
-			'Late.'
-		elseif PregChem > 7245:
-			'Very Late!'
-		end
-		'You need to get to a clinic.'
-	end
-	if PregChem > 3887:
-		if lactate <= 0:
-			'You begin lactating'
-			lactate = 1
-			lactatemv = 0
-			lactatemm = func('lact_lib','$calc_lactatemm')
-			lacaterate = 10
-			prolactinlvl = 150
-		else
-			if lactate < 1: lactate = 1
-		end
-	end
-	if PregChem > 1000:
-		if prolactinlvl < 100 and lactate <= 0:
-			if rand(0,100) > 50:
-				prolactinlvl +=1
-			end
-		end
-	end
-	if PregChem > 2203:
-		if pregchem > 2853 or kid > 0:
-			if rand(0,7) = 0: dynamic $d_pregmovement
-		else
-			if rand(0,500) = 0: dynamic $d_pregmovement
-		end
-	end
-end
-
---- femcyc ---------------------------------
-
+# femcyc
+
+!! I have to initialize the variables somewhere, maybe in preCUST?
+if Luth_Max = 0: LutH_Max = rand(312,360) & !! 13-15 days including ovulation
+if Foch_Max = 0: FocH_Max = rand(312,360) & !! 13-15 days including menstruation
+
+if $ARGS[0] = '':
+	!{Hourly reduction in semen potency}
+	!{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 144 hours. If it is 144 hours old, it kills that index, which should shift the index up. If it is less than 144 hours old, it sets a current potency drop. The drop is 2x or 3x regularly, but during ovulation it is only 1x, to represent the better environment from fertile cervical mucus.}
+	!{144 hours was selected due to that being approximately the maximum amount of time sperm is viable in the womb (120 would be more accurate, but there is leeway). PLEASE DO NOT CHANGE IT.}
+	!{The potency drop may seem small in game-time, but is meant to be a reasonable approximation to real life. Avoid unprotected sex within 5 days of ovulation if you want to mitigate your risk.}
+	!{the 'rcntorgzm' variable is set to determine whether Sveta has orgasmed within the last hour. If she has, a small potency boost for the guys she has slept with in that hour.}
+
+	if rcntorgzm = 1:
+		if rcntorgzmtmp = 1: rcntorgzm = 0 & rcntorgzmtmp = 0
+		if rcntorgzmtmp = 0: rcntorgzmtmp = 1
+
+	end
+
+	cumarr_idx = 0
+
+	:cumarrloop
+	if cumarr_idx < arrsize('$cumarrnam'):
+		if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 144:
+			if rcntorgzm = 1 and cumarrcpt[cumarr_idx] < cumarrppt[cumarr_idx] and cumarrage[cumarr_idx] < 1: cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx] / 12
+			cumpdrop = cumarrcpt[cumarr_idx] / (144 - cumarrage[cumarr_idx])
+			if cycle ! 2: cumpdrop += cumpdrop * rand(0, 2)
+			cumarrcpt[cumarr_idx] -= cumpdrop
+			if cumarrcpt[cumarr_idx] <= 0:
+				gs 'cum_cleanup', 'cleanwomb', cumarr_idx
+			else
+				cumarrage[cumarr_idx] += 1
+				cumarr_idx += 1
+			end
+		else
+			gs 'cum_cleanup', 'cleanwomb', cumarr_idx
+		end
+
+		jump 'cumarrloop'
+
+	end
+
+	!!Succubus absorption of sperm in womb
+	if succubusflag = 1:
+		if arrsize('cumarrppt') > 0:
+			succycletmp = 0
+			:sucvagabs
+			if cumarrdel[succycletmp] = 0:
+				if cumarrcpt[succycletmp] > 10000:
+					sexnutrition += 30 * succublvl
+					succubxp += 3
+				elseif cumarrcpt[succycletmp] < 3000 and cumarrcpt[succycletmp] > 1000:
+					sexnutrition += 5 * succublvl
+					succubxp += 2
+				elseif cumarrcpt[succycletmp] =< 1000:
+					 sexnutrition += succublvl
+				else
+					sexnutrition += 25 * succublvl
+					succubxp += 3
+				end
+				gs 'cum_cleanup', 'cleanwomb', succycletmp
+				sucabscum = 1
+			else
+				succycletmp += 1
+			end
+			if succycletmp < arrsize('cumarrppt'): jump 'sucvagabs'
+		end
+		killvar 'succycletmp'
+	end
+
+	cumarrtemp = 0
+	cumcondslip = 0
+	cumcondslip_aware = 0
+	if arrsize('sparrvol') > 0:
+		:cumspaloop
+		!!Succubus absorption for internal locations other than womb
+		if succubusflag = 1:
+			if sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
+				sexnutrition += 25*succublvl
+				succubxp += 3
+				sucabscum = 1
+				if sparrvol[cumarrtemp] > 0: sparrvol[cumarrtemp] = 0
+			end
+		end
+		!!{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
+			sexnutrition += 30*succublvl
+			sparrvol[cumarrtemp] -= 30*succublvl
+			if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
+		end}
+		!!{ Process spatter until it has volume or is too old in vagina. }
+		if sparrvol[cumarrtemp] > 0 or (sparrloc[cumarrtemp] = 0 and sparrage[cumarrtemp] < 10):
+			sparrtmpv = arrsize('$cumarrnam')
+			if sparrloc[cumarrtemp] = 17:
+				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
+				if sparrtmpv >= 0:
+					!!'Found guy id <<sparrtmpv>>'
+					if sparrage[cumarrtemp] < 4:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
+					elseif sparrage[cumarrtemp] < 10:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
+					end
+				end
+			elseif sparrloc[cumarrtemp] = 0:
+				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
+				if sparrtmpv >= 0:
+					!!'Found guy id' & sparrtmpv
+					if sparrage[cumarrtemp] < 4:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
+					elseif sparrage[cumarrtemp] < 10:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
+					end
+				end
+			elseif sparrslc[cumarrtemp] = 1 and sparrage < 5:
+				if sparrloc[cumarrtemp] = 1:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 1
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				end
+			elseif sparrslc[cumarrtemp] = 3 and sparrage < 5:
+				if sparrloc[cumarrtemp] = 2:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 3
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				elseif sparrloc[cumarrtemp] = 4:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 2
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				end
+			elseif sparrslc[cumarrtemp] = 5 and sparrage < 5:
+				if sparrloc[cumarrtemp] = 3:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 2
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				elseif sparrloc[cumarrtemp] = 5:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 3
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				elseif sparrloc[cumarrtemp] = 6:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 3
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				end
+			end
+
+			if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
+				sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
+				if sparrvol[cumarrtemp] < 0:sparrvol[cumarrtemp] = 0
+			end
+			if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc[cumarrtemp] = 1
+			if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc[cumarrtemp] = 1
+			if sparrloc[cumarrtemp] = 17:
+				cumcondslip += 1
+				if sparridt[cumarrtemp] >= 0:
+					cumcondslip_aware = 1
+				end
+				if sparrage[cumarrtemp] > 48:
+					cumcondslip_aware = 1
+					pcs_health -= rand(3,sparrage[cumarrtemp] - 45)
+					'<br><b><font color="red">You feel nauseous.</font></b>'
+				end
+			end
+			if sparrloc[cumarrtemp] ! 0 and sparrloc[cumarrtemp] ! 3 and sparrloc[cumarrtemp] ! 12 and isprok = 0 and sparrage < 5: sparrslc[cumarrtemp] += 1
+			sparrage[cumarrtemp] += 1
+			cumarrtemp += 1
+			ctemp[0] += sparrvol[cumarrtemp]
+			if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
+			if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
+		else
+			gs 'cum_cleanup', 'cleandeposit', cumarrtemp
+		end
+		if cumarrtemp < arrsize('sparrvol'): jump 'cumspaloop'
+		cumsumbod = ctemp[0]
+		cumsumvag = ctemp[1]
+		cumsumass = ctemp[2]
+		KILLVAR 'ctemp'
+	end
+
+
+	!! new milkgrowday function.
+	!! Not lactating yet, but there was milkdemand, meaning someone worked your nipples and breasts.
+	if lactate = 0 and milkoverdemand >= 0 and prolactinlvl >= 0:
+		if milkgrowday < daystart:
+			prolactinlvl += milkoverdemand/200
+			!! as long as your tits are not over 11 growth will happen to them. If you do not pump or no pregnancy happens, no growth will happen.
+			if milkoverdemand = 0 and pregchem = 0 and tits < 11:
+				temp_var = prolactinlvl - 10
+				if temp_var < 0:
+					prolactinlvl = 0
+				end
+				!! if prolactinlvl is sinking too much, the aveoli will deflate and thus the breasts growth is reverted. This only counts for induced lactation. If natural lactation occurs breasts will shrink a bit too, but stay bigger in total.
+				if prolactinlvl < 75 and total_milkinduce_growth > 0:
+					nbsize -= total_milkinduce_growth
+					prolactinlvl -= 10
+					total_milkinduce_growth = 0
+				else
+					prolactinlvl -= 10
+				end
+				milkoverdemand = 0
+				milkgrowday = daystart
+			elseif milkoverdemand > 0 and pregchem = 0 and tits < 11:
+				!! inducing without ever being pregnant
+				if prolactinlvl > 75 and kid <= 0:
+					if total_milkinduce_growth < 8:
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					else
+						pumpinggrowth = 0
+					end
+				!! inducing after being pregnant
+				elseif prolactinlvl > 75 and kid > 0:
+					if total_milkinduce_growth < (total_preg_growth/2):
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					end
+				end
+				milkoverdemand = 0
+			elseif milkoverdemand >= 0 and pregchem > 0 and tits < 11:
+				if prolactinlvl > 75 and pregchem < 3000 and kid <= 0:
+					if total_milkinduce_growth < 8:
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					else
+						pumpinggrowth = 0
+					end
+				!! first breast growth with first pregnancy
+				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
+					if rand(0,100) > 55:
+						first_preg_growth += 1
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					end
+				!! there is little chance your breast grow additional sizes if you have more kids.
+				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid > 0:
+					if first_preg_growth > total_preg_growth:
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					else
+						if rand(0,100) > 95:
+							total_preg_growth += 1
+							if total_preg_growth > total_milkinduce_growth: nbsize += 1
+						end
+					end
+				!! inducing after being pregnant
+				elseif prolactinlvl > 75 and pregchem =< 3000 and kid > 0:
+					if total_milkinduce_growth < (total_preg_growth/2):
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					end
+				end
+				milkoverdemand = 0
+				milkgrowday = daystart
+			end
+			milkgrowday = daystart
+		else
+			milkgrowday = daystart
+		end
+	elseif lactate > 0 and milkoverdemand => 0 and prolactinlvl >= 0:
+		lactatemm = func('lact_lib','$calc_lactatemm')
+		!! checking if induced or not and if girl went through pregnancy already.
+		if lactateinduced > 0 and kid <= 0:
+			if milkgrowday < daystart:
+				!! first breast growth with first pregnancy
+				if prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
+					if rand(0,100) > 55:
+						first_preg_growth += 1
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					end
+				end
+				if lactatemm > lactatemv:
+					lactatemv += lactaterate
+					temp_var = lactaterate/100
+					if temp_var <= 0: temp_var = 1
+					pcs_energy -= temp_var
+					if lactatemv > lactatemm: lactatemv = lactatemm
+				end
+				if milkoverdemand > 0 and breastpumped > 0:
+					!! lactationrate growing, so you make more milk the more demand there was in the day before.
+					temp_var = prolactinlvl + milkoverdemand/20
+					if  temp_var > 120:
+						prolactinlvl += milkoverdemand/20
+						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know
+						if lactaterate > 3500:
+							lactaterate += 5*(prolactinlvl/200)
+						elseif lactaterate > 6000:
+							lactaterate += prolactinlvl/200
+						else
+							lactaterate += 10*(prolactinlvl/200)
+						end
+						prolactinlvl = 100
+					else
+						prolactinlvl = 100
+					end
+					'Your breasts tingle a bit more from milkproduction.'
+				elseif milkoverdemand = 0 and breastpumped > 0:
+					prolactinlvl = 100
+				elseif milkoverdemand = 0 and breastpumped = 0:
+					if lactaterate > 0 and pregchem >=0:
+						temp_var = lactaterate/4
+						if temp_var < 1:temp_var = 0
+						lactaterate = temp_var
+						'Your breasts tingle a little less from milkproduction.'
+					elseif lactaterate = 0 and pregchem < 1000:
+						lactate = 0
+						lactateinduced = 0
+						nbsize -= total_milkinduce_growth
+						'You notice that you stopped lactating.'
+					elseif lactaterate = 0 and pregchem >= 1000:
+						lactaterate = 1
+					else
+						lactaterate = 0
+					end
+				end
+				milkgrowday = daystart
+				milkoverdemand = 0
+				breastpumped = 0
+			else
+				milkgrowday = daystart
+				if lactatemm >= lactatemv:
+					lactatemv += lactaterate
+					if lactatemv > lactatemm:
+						lactatemv = lactatemm
+						lact_engorgement += 1
+						if lact_engorgement > 2: lactatemess += 1
+					end
+				end
+			end
+			milkgrowday = daystart
+		else
+			if milkgrowday < daystart:
+				if lactatemm > lactatemv:
+					lactatemv += lactaterate
+					temp_var = lactaterate/100
+					if temp_var <= 0: temp_var = 1
+					pcs_energy -= temp_var
+					if lactatemv > lactatemm: lactatemv = lactatemm
+				end
+				if milkoverdemand > 0 and breastpumped > 0:
+					!! lactationrate growing, so you make more milk the more demand there was in the day before.
+					temp_var = prolactinlvl + milkoverdemand/10
+					if  temp_var > rand(150,200):
+						prolactinlvl += milkoverdemand/20
+						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know :D
+						if lactaterate > 3500:
+							lactaterate += 5*(prolactinlvl/200)
+						elseif lactaterate > 6000:
+							lactaterate += prolactinlvl/200
+						else
+							lactaterate += 10*(prolactinlvl/200)
+						end
+						prolactinlvl = 100
+					else
+						prolactinlvl = 100
+					end
+					'Your breasts tingle a bit more from milkproduction.'
+				elseif milkoverdemand = 0 and breastpumped > 0:
+					prolactinlvl = 100
+				else
+					if lactaterate > 0 and pregchem >= 0:
+						temp_var = lactaterate/8
+						if temp_var < 1:temp_var = 0
+						lactaterate = temp_var
+						milkoverdemand = 0
+						'Your breasts tingle a little less from milkproduction.'
+					elseif lactaterate = 0 and pregchem < 1000:
+						lactate = 0
+						lactateinduced = 0
+						if total_milkinduce_growth > 0: nbsize -= total_milkinduce_growth
+						if total_preg_growth > 0:
+							nbsize -= total_preg_growth
+							nbsize += first_preg_growth/2
+						end
+						total_milkinduce_growth = 0
+						milkoverdemand = 0
+						'You stopped lactating.'
+					elseif lactaterate = 0 and pregchem >= 1000:
+						lactaterate = 1
+					else
+						lactaterate = 0
+					end
+				end
+				milkgrowday = daystart
+				milkoverdemand = 0
+				breastpumped = 0
+			else
+				milkgrowday = daystart
+				if lactatemm >= lactatemv:
+					lactatemv += lactaterate
+					if lactatemv > lactatemm:
+						lactatemv = lactatemm
+						lact_engorgement += 1
+						if lact_engorgement > 2: lactatemess += 1
+					end
+				end
+			end
+			milkgrowday = daystart
+		end
+		milkgrowday = daystart
+	end
+
+	if cycle <= 0:
+		gs 'femcyc', 'cyc0'
+	elseif cycle = 1:
+		gs 'femcyc', 'cyc1'
+	elseif cycle = 2:
+		gs 'femcyc', 'cyc2'
+	elseif cycle = 3:
+		gs 'femcyc', 'cyc3'
+	elseif cycle = 4:
+		gs 'femcyc', 'cyc4'
+	elseif cycle = 5:
+		gs 'femcyc', 'preg'
+	end
+
+	dynamic $d_cycreport_update
+end
+
+
+!{Menstruation to Follicular. Verifies that the cycle is in the bloody phase. It then checks to see if you are done bleeding. If you are, it starts the Follicular phase. There is a small chance your follcular phase will be anywhere from a day to 3 days short, done by the random release of a boosted EggRH. Otherwise, it just starts it clean.}
+
+if $ARGS[0] = 'cyc0':
+	if mesec <= 0:
+		lastmens = daystart
+		cycle = 1
+		mesec = 0
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH += EggRH
+	else
+		mesec -= 1
+		FocH += 1
+	end
+end
+
+
+!{Follicular to Ovulation. It checks to see if you are on the Follicular phase. If you are, it checks to see if you are ready to ovulate. If you arent, it increases your ovulation ticker by 1, then gives a random chance to increase it again. Then it checks to see if you have ovarian problems, and if you do, decreases your ovulation ticker. When all that is done, it checks to see if you have any birth control chemical, and if its above a certain amount, it reduces your ovulation ticker.}
+
+if $ARGS[0] = 'cyc1':
+	FertEgg = 0
+	if FocH <= FocH_Max:
+		if pillcon <= 7000: EggRH += 1
+		if rand(0,9) = 0: EggRH += 1
+		FocH += 1
+		temprand = rand(0,9) - sterileov + tempovbonus
+		if temprand < 0:
+			EggRH -= 1
+		elseif temprand > 9:
+			EggRH += 1
+		end
+	else
+		!! the setting of the max_time can be here although it can be changed in the future
+		LutH_Max = rand(312,360) & !! 13-15 days including ovulation
+		!{If you are ready to ovulate, it creates a chance to double ovulate. That chance is increased by your age. Then it does the same for a triple ovulation. Then it sets the ovulation tag, ovulation hour count, and begins a ticker for the life of the eggs.}
+		Temprand = rand(0,20)
+		Temprand += age/15
+		Temprand -= pillcon/1000
+		if temprand > 20:
+			EggRH += 205
+			Temprand = rand(0,20)
+			Temprand += age/15
+			if temprand > 20: EggRH += 410
+		end
+		FocH = 0
+		Ovulate = 24 + rand(0,20)
+		cycle = 2
+		ferteggage = 0
+	end
+end
+
+
+!!{Fertilization.}
+
+if $ARGS[0] = 'cyc2':
+	can_sz = arrsize('$cumarrnam')
+	if Ovulate > 0 and can_sz > 0 and UnfertEgg > 0:
+		KILLVAR 'cumtime'
+		KILLVAR 'cumfthname'
+		KILLVAR '$wombpotfath'
+		$cumfthname[0] = 'unknown'
+		cumtime[0] = 0
+		can_idx = 0
+		cum_total = 0
+!!{Compute array of unique fathers known to PC and another two arrays of unique total fathers and their individual sperm totals from all entries in cumarrcpt for that father. Also tally all cum present.}
+		:FatherCumAnalyze
+			!! If the current DNA is new (no occurence in the womb array), it is added to the end of $wombDNA array, and added the amount of cum to the end of cumamount array.
+			!! If exists, just increase the amount of cum in the womb.
+
+			!! $wombDNA: sperm in womb potent enough to cause pregnancy
+			!! wombAmount: how potent is the sperm of a guy
+			!! $wombName: the name of the NPC
+			y = arrsize('$wombDNA')
+			if arrpos('$wombDNA',$npc_dna[$cumarrnam[can_idx]]) = -1:
+				!! New guy, create place for him at the end of the array, storing his DNA, sperm amount and name
+				$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
+				wombAmount[y] = cumarrcpt[can_idx]
+				$wombName[y] = $cumarrnam[can_idx]
+
+			else
+				!! This DNA is in the womb, but does it belong to the same guy?
+				x = 0
+				z = 0
+				:LocalizeLoop
+					if $wombDNA[x] = $npc_dna[$cumarrnam[can_idx]] and $wombName[x] = $cumarrnam[can_idx]: wombAmount[x] += cumarrcpt[can_idx] & z = 1
+				if z = 0 and x < (y - 1):x += 1 & jump 'LocalizeLoop'
+				killvar 'x'
+				if z = 0:
+					!! Since the DNA and the stored name does not match at the same time, it means this is a twin situation where the twin is not in array, so put him in
+					$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
+					$wombName[y] = $cumarrnam[can_idx]
+					wombAmount[y] = cumarrcpt[can_idx]
+				end
+				killvar 'z'
+			end
+			killvar 'y'
+
+			if cumarrkno[can_idx] = 1 and arrpos('$wombpotfath', $cumarrnam[can_idx]) < 0:$wombpotfath[arrsize('$wombpotfath')] = $cumarrnam[can_idx]
+
+			!! If the guy is a known/possible element (PC know about the sex, it was actual sex, condom/pill was not used or condom was broken, etc.), he can be considered as father.
+			if instr('14570',str(cumarrcon[can_idx])) > 0 and cumarrdel[can_idx] = 0 and cumarrkno[can_idx] >= 0:
+				!! If guy is recorded already, increase his cumtime, else record him for the first time.
+				if arrpos('$cumfthname', $cumarrnam[can_idx]) = -1:
+					$cumfthname[arrsize('$cumfthname')] = $cumarrnam[can_idx]
+					cumtime[arrsize('$cumfthname')] = 1
+				else
+					cumtime[arrpos('$cumfthname', $cumarrnam[can_idx])] += 1
+				end
+			end
+
+			cum_total += cumarrcpt[can_idx]
+
+		if can_idx < can_sz:can_idx += 1 & jump 'FatherCumAnalyze'
+
+		!! setting the default believed father if there is no difficult choice or there is no choice
+		if arrsize('$cumfthname') = 2 and cumtime[0] = 0:
+			$wombpotfath[0] = $cumfthname[1]
+		elseif arrsize('$cumfthname') = 1:
+			$wombpotfath[0] = $cumfthname[0]
+		end
+
+!!{Create lotto of potential fathers based on each potential fathers sperm as a percentage of the total. The higher percentage of sperm from a given father, the more lotto entries he will have.}
+		KILLVAR '$cumfathlotto'
+		cfw_idx = 0
+		cfw_sz = arrsize('wombAmount')
+		:FathLottoLoop
+		if cfw_idx < cfw_sz:
+			cfl_ct = (wombAmount[cfw_idx] * 100) / cum_total
+			if cfl_ct < 1: cfl_ct = 1
+			cfl_idx = arrsize('$cumfathlotto')
+			:FathLottoAdd
+			if cfl_ct > 0:
+				$cumfathlotto[cfl_idx] = $wombName[cfw_idx]
+				$cumfatherDNA[cfl_idx] = $wombDNA[cfw_idx]
+				cfl_idx += 1
+				cfl_ct -= 1
+				jump 'FathLottoAdd'
+			end
+			cfw_idx += 1
+			jump 'FathLottoLoop'
+		end
+		killvar '$wombDNA'
+		killvar '$wombName'
+		killvar 'wombAmount'
+		cfl_sz = arrsize('$cumfathlotto')
+
+		egg_idx = 0
+		egg_sz = UnfertEgg
+		if cheat_NoPregnancy = 1:egg_idx = egg_sz
+		:FertLoop
+		if egg_idx < egg_sz:
+!!{fert_thresh is the chance this specific egg is fertilized. Its modified by being on the pill, being sterilized, the brood curse, and so on. If it computes to less than the cum total calculated above, the egg is fertilized by a father randomly drawn from the lotto array.}
+			fert_thresh = rand(1,250000)
+			if pillcon < 0: pillcon = 0
+			!!fert_thresh += pillcon
+			if steriletu = 1: fert_thresh += fert_thresh*30
+			if fert_thresh > 0 and broodcurse > 0: fert_thresh = fert_thresh / 2
+			if fert_thresh <= cum_total:
+				lotto_idx = rand(0, cfl_sz-1)
+				UnfertEgg -= 1
+				FertEgg += 1
+				nextbaby = arrsize('$ChildFath')
+				polkid[nextbaby] = rand(0, 1)
+				$kidname[nextbaby] = 'unborn'
+				kidage[nextbaby] = 0
+				daykid[nextbaby] = 0
+				monthkid[nextbaby] = 0
+				yearkid[nextbaby] = 0
+				Babyptype[nextbaby] = 0
+				$kid_dna[nextbaby] = func('DNA', 'generate', $pcs_dna, $npc_dna[$cumfathlotto[lotto_idx]])
+				$ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
+				$ChildFathDNA[nextbaby] = $cumfatherDNA[lotto_idx]
+				if arrsize('$wombpotfath') = 1:
+					$ChildThFath[nextbaby] = $wombpotfath[0]
+				else
+					$ChildThFath[nextbaby] = 'unknown'
+				end
+				hairkid[nextbaby] = rand(0, 3)
+				eyeskid[nextbaby] = rand(0, 3)
+				ChildConType[nextbaby] = cumarrcon[nextbaby]
+				if fertegg > 1:
+					$childtype[nextbaby] = 'paternal twin'
+					$childtype[nextbaby-1] = 'paternal twin'
+				else
+					$childtype[nextbaby] = ''
+				end
+			end
+			egg_idx += 1
+			jump 'FertLoop'
+		end
+		killvar 'temp'
+		tempovbonus = 0
+	end
+
+!!{Ovulation to Luteal. It checks to see if you are on the ovulation cycle. If you are, it checks you for your pillcon. If it is high enough, no egg is released. Under high concentrations of pill chemical, ovulation ticks away quicker. Otherwise, it checks to see if your ovulation hormone is high enough, and if it is it gives you an egg and drops a good chunk down on your ovulation hormone. if its still high, it drops another egg. Then it checks your ovulation hours. If its down to 0, it starts the Luteal phase. Otherwise, it adds an hour to the egg age and reduces the ovulation window by an hour.}
+	if pillcon > 26000 and rand(0,400) ! 0: EggRH = 0
+	:OviLoop
+	If EggRH > ((UnfertEgg + FertEgg) * 150):
+		UnfertEgg += 1
+		EggRH -= (200 * UnfertEgg)
+		jump 'OviLoop'
+	end
+	If ovulate <= 0:
+		cycle = 3
+		UnfertEgg = 0
+	end
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			fertegg += 1
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
+			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	ferteggage += 1
+	Ovulate -= 1
+	LutH += 1
+end
+
+
+!{Luteal to Menstration or Pregnancy. First it verifies this is the Luteal phase. Then it adds an hour to the age of the eggs. Then if there is a fertized egg, it rolls a random chance. if the egg age is low, it checks for risk of an entopic pregnancy. This is increased with older age and if you have a tubal ligation sterilization.}
+!{If there is a ectopic pregnancy, it sets the first unborn baby in the array to this. Ectopic pregnancies occur when the fertilized egg implants "too early" after fertlization (and therefore in the fallopian tube). The risk is higher with age, but this is also a common complication with certain forms of birth control, notably tubal ligation. Each egg could be different. It then removes the fertilized egg, adds an embryo, Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
+!{Otherwise, it adds your womb sterility factor to the imp_rand. Then it checks if your imp_rand crosses a threshold for implantation. Younger women implant easier. It then sets the next baby to the next unimplanted baby in your kid array. It registers the kid as a normal pregnancy, removes a fertilized egg and adds an embryo. Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
+
+if $ARGS[0] = 'cyc3':
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			fertegg += 1
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
+			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	ferteggage += 1
+	implant_idx = 0
+	implant_sz = arrsize('Babyptype')
+
+	:implant_loop
+	if implant_idx < implant_sz:
+
+		if Babyptype[implant_idx] = 0:
+			imp_rand = rand(0,120000)
+
+			if ferteggage < 120 and broodcurse <= 0:
+				imp_rand += 170
+				imp_rand -= age * 10
+				if steriletu = 1: imp_rand -= 200
+
+				if imp_rand <= 0:
+					Babyptype[implant_idx] = 2
+					FertEgg -= 1
+					babyembryo += 1
+					PregChem = rand(10,30)
+					if preg = 0: preg = 1
+					implant_day = daystart
+					implant_hour = hour
+
+				end
+
+			else
+				imp_rand += sterilewb
+				imp_rand -= tempwbbonus
+				if broodcurse > 0 and ferteggage >= 120: imp_rand = 0
+
+				if imp_rand <= (1200 - (age * 7)):
+					Babyptype[implant_idx] = 1
+					FertEgg -= 1
+					babyembryo += 1
+					PregChem = rand(10,30)
+					if preg = 0: preg = 1
+					implant_day = daystart
+					implant_hour = hour
+
+				end
+				tempwbbonus = 0
+
+			end
+
+		end
+
+		implant_idx += 1
+		jump 'implant_loop'
+
+	end
+
+!!{Then, it progresses the Luteal phase. It checks to see if you are pregnant. If you are, it ends the cycle and sets preg if your Luteal hormone is at the max as well as cleans out any unimplanted eggs. Otherwise, it just progresses pregnancy chemical and Luteal Hormone. If you arent pregnant, it checks your Luteal hormone. If its at the maximum, it adds 3-5 days of bleeding, clears out your unimplanted eggs, and clears out your Luteal hormone, or ends your cycle if you are past your menopausal age. Otherwise it will just progress the Luteal hormone.}
+	if LutH > LutH_Max:
+		rej_idx = 0
+		rej_sz = arrsize('Babyptype')
+		:lutcycloop
+		if rej_idx < rej_sz:
+			if Babyptype[rej_idx] = 0:
+				KILLVAR 'polkid',tempbabyi
+				KILLVAR '$kidname',tempbabyi
+				KILLVAR 'kidage',tempbabyi
+				KILLVAR 'daykid',tempbabyi
+				KILLVAR 'monthkid',tempbabyi
+				KILLVAR 'yearkid',tempbabyi
+				KILLVAR 'Babyptype',tempbabyi
+				KILLVAR '$ChildFath',tempbabyi
+				KILLVAR '$ChildThFath',tempbabyi
+				KILLVAR 'hairkid',tempbabyi
+				KILLVAR 'eyeskid',tempbabyi
+				KILLVAR 'cumarrcon',tempbabyi
+				FertEgg -= 1
+			end
+			rej_idx += 1
+			jump 'lutcycloop'
+		end
+		LutH = 0
+		if preg = 1:
+			cycle = 5
+		elseif menoage <= age:
+			KILLVAR '$wombpotfath'
+			killvar '$cumfthname'
+			killvar '$cumfthusedname'
+			killvar 'cumtime'
+			cycle = 6
+		else
+			KILLVAR '$wombpotfath'
+			killvar '$cumfthname'
+			killvar '$cumfthusedname'
+			killvar 'cumtime'
+			!! the setting of the max_time can be here although it can be changed in the future
+			FocH_Max = rand(312,360) & !! 13-15 days including menstruation
+			temprand = rand(0,10)
+			if pillcon >= 38000 or rand(1,24) = 1:
+				EggRH = 0
+				cycle = 1
+				mesec = 0
+			else
+				cycle = 0
+				killvar 'abortionbirthdate'
+				if cyccustom = 1: daylastperiod = daystart
+				firstmens = daystart
+				temprand = rand(0,10)
+				if temprand = 0 and pillcon < 10000:
+					mesec = rand(104,136) & !! 120
+				elseif temprand < 9 and pillcon < 15000:
+					mesec = rand(76,104) & !!  96
+				elseif pillcon < 20000:
+					mesec = rand(52,76) & !! 72
+				else
+					mesec = rand(44,52) & !! 48
+				end
+			end
+		end
+	else
+		if preg = 1:PregChem += 1+pregspeedcheat
+		if rand(0,100) < 100: LutH += 1
+	end
+end
+
+!{Recovery to Follicular. It checks to see if you are in the recovery phase after a pregnancy. If you are, it checks to see if you still have recovery hormone. If you dont, it sets you into the follicular phase with a chance of a boosted Egg releasing hormone. Otherwise it decreases your recovery hormone with a chance to decrease it twice.}
+
+if $ARGS[0] = 'cyc4':
+	if RecovH <= 0:
+		cycle = 1
+		if cyccustom = 1:
+			knowpregloss = 0
+			knowpregrecover = 0
+		end
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH = EggRH
+	else
+		RecovH -= 1
+		if rand(0,10) = 0: RecovH -= 1
+	end
+end
+
+
+!{Pregnancy Progression. It checks to see if you are in the pregnancy phase of a cycle. If you are, it progresses your pregnancy chemical. Then it gives a fluxuation of possible due dates. If you cross the due date threshold, you enter labor, marked by preg = 2. Other milestones will also be placed in here, including body deformations. Right now this is mostly an empty placeholder.}
+
+if $ARGS[0] = 'preg':
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			babyembryo += 1
+			PregChem += rand(10,30)
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	PregChem += (1+pregspeedcheat)
+	temprand = rand(-400,800)
+	temprand -= (babyembryo-1)*588
+	if PregChem > 6573 + temprand and preg ! 2:
+		'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
+		$cycreport_txt = 'In labour'
+		arrmodtmp =arrsize('$ChildFath')
+		arrmodtmp -= (babyembryo+1)
+		:babyfinalpreploop
+		if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
+			daykid[arrmodtmp] = 42
+			$ChildThFath[arrmodtmp] = $wombthfath
+			arrmodtmp += 1
+			jump 'babyfinalpreploop'
+		end
+		KILLVAR '$wombpotfath'
+		KILLVAR '$wombthfath'
+		preg = 2
+		pregminut = totminut + 1440
+		if babyembryo > 1:
+			'Your babies are coming...'
+		else
+			'Your baby is coming...'
+		end
+		if PregChem < 3885:
+			'Way too early!'
+		elseif PregChem < 5229:
+			'Very early!'
+		elseif PregChem < 6069:
+			'Early.'
+		elseif PregChem > 6959:
+			'Late.'
+		elseif PregChem > 7245:
+			'Very Late!'
+		end
+		'You need to get to a clinic.'
+	end
+	if PregChem > 3887:
+		if lactate <= 0:
+			'You begin lactating'
+			lactate = 1
+			lactatemv = 0
+			lactatemm = func('lact_lib','$calc_lactatemm')
+			lacaterate = 10
+			prolactinlvl = 150
+		else
+			if lactate < 1: lactate = 1
+		end
+	end
+	if PregChem > 1000:
+		if prolactinlvl < 100 and lactate <= 0:
+			if rand(0,100) > 50:
+				prolactinlvl +=1
+			end
+		end
+	end
+	if PregChem > 2203:
+		if pregchem > 2853 or kid > 0:
+			if rand(0,7) = 0: dynamic $d_pregmovement
+		else
+			if rand(0,500) = 0: dynamic $d_pregmovement
+		end
+	end
+end
+
+--- femcyc ---------------------------------
+

locations/foto.qsrc

@@ -378,12 +378,12 @@ if $ARGS[0] = 'studio':
 		if first_fame_event = 2:
 			act'Ask if there''s special work available':gt'foto_events','special'
 		end
-		if model = 1:act 'Go to the showers':gt'foto','showers'
-		if model = 1:act 'Go to your makeup station':gt'foto','makeup'
 	else
 		*nl
 		'	There is no way anyone is going to want to see pictures of you while your std is so obvious, you should see a doctor.'
 	end
+	if model = 1:act 'Go to the showers':gt'foto','showers'
+	if model = 1:act 'Go to your makeup station':gt'foto','makeup'
 end
 
 if $ARGS[0] = 'gave_passport':
@@ -405,32 +405,14 @@ end
 if $ARGS[0] = 'interview':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
-	if howoldareyou = 0:
-		'	"You want to work here? How old are you?"'
-		if age >= 18:
-			howoldareyou = 2
-			'	I''m <<age>>.'
-			'	"I see. Alright, undress. Let me take a look at you."'
-			gs 'foto', 'interview_undress'
-		elseif fakepassport = 1:
+	'	"You want to work here? How old are you?"'
+	if age >= 18:
+		act'I''m <<age>>':
 			howoldareyou = 2
-			'	"I''m 18."'
-			'	"I see. Alright, undress. Let me take a look at you."'
-			gs 'foto', 'interview_undress'
-		else
-			act 'Tell the truth':
-				age_truth = 1
-				howoldareyou = 1
-				cla
-				gs'foto','interview'
-			end
-			act 'Lie':
-				age_lie = 1
-				howoldareyou = 1
-				cla
-				gs'foto','interview'
-			end
+			gt'foto','interview2'
 		end
+	elseif fakepassport = 1:
+		act'I''m 18':gt'foto','interview2'
 	else
 		howoldareyou = 2
 		if age_truth = 1 or age >= 18:
@@ -441,11 +423,29 @@ if $ARGS[0] = 'interview':
 			'	"I''m 18."'
 			'	"I see. Alright, undress. Let me take a look at you."'
 			gs 'foto', 'interview_undress'
+		else
+			fakepassport = 2
+			'	"You look a little young, do you have any ID?"'
+			'	Not having any, you feign surprise and tell him you didn''t realise you needed it.'
+			'	"Sorry love, no ID no modelling. If it turned out you were underage I''d end up in jail."'
+			'	Now how are you going to find a way around this?'
+			act 'Continue': gt 'foto', 'start'
 		end
 	end
 end
-
-if $ARGS[0] = 'interview_undress':
+	
+if $ARGS[0] = 'interview2':
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
+	if age_truth = 1 or age >= 18:
+		*nl
+		'	"I''m <<age>>."'
+		'	"I see. Alright, undress. Let me take a look at you."'
+	elseif fakepassport = 1 or age_lie = 1:
+		*nl
+		'	"I''m 18."'
+		'	"I see. Alright, undress. Let me take a look at you."'
+	end
 	if undress_ask = 0:
 		act'What? Why?':
 			undress_ask = 1
@@ -454,7 +454,6 @@ if $ARGS[0] = 'interview_undress':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
 			'	"What?? Why?"'
 			'	"Hmm? This is a modelling studio. That means sometimes we dress our models up in skimpy clothes and lingerie. Our studio is also popular for its nude spreads. You don''t necessarily need to do shoots with nudity, but you need to have your body inspected to make sure you match the criteria for working here."'
-			gs 'foto', 'interview_undress'
 		end
 	end
 	if why_here = 0:
@@ -467,7 +466,6 @@ if $ARGS[0] = 'interview_undress':
 			'	"Might as well be here," he shrugs. "If you want to work here, we have a dress code policy for the models."'
 			'	"So? What does that have to do with me getting naked in the middle of a workplace?"'
 			'	"The policy is that models don''t wear clothes while on the premises. It makes the logistics of dressing and undressing them for shoots easier. Come on. You want to work for a modelling studio that specializes in nude spreads. Don''t get shy about showing your body to a few people here when you might be on a magazine cover showing it to the entire country. Now are you going to undress so I can do my job or are you going to keep wasting my time here?"'
-			gs 'foto', 'interview_undress'
 		end
 	end
 	if pcs_inhib >= 40:
@@ -477,7 +475,11 @@ if $ARGS[0] = 'interview_undress':
 			gs 'underwear', 'remove'
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
-			'	You take off your clothes and leave them on the floor while the photographer examines you.'
+			if undress_ask = 0 and why_here = 0:
+				'	You unquestioningly take off your clothes and leave them on the floor while the photographer examines you.'
+			else
+				'	You take off your clothes and leave them on the floor while the photographer examines you.'
+			end
 			'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
 			'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
 			act'Continue':gt'foto','job_offer'
@@ -731,7 +733,7 @@ if $ARGS[0] = 'showers':
 				gs 'exhibitionism', 1
 				'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video></center>'
 				*nl
-				'Despite the openness of the shower area, you can''t help yourself and place the shower head between your legs, massaging your pussy with powerful jets of warm water and fingers.'
+				'Despite the openness of the shower area, you can''t help yourself and place the shower head between your legs, massaging your pussy with powerful jets of warm water and fingers. '
 
 				if hypnoAddict > 0:
 					minut += 10
@@ -948,7 +950,7 @@ if $ARGS[0] = 'practicemodel':
 	'	"Hello <<$pcs_firstname>>. We''ve already done a paid shoot with you this week, so we can''t do another one. '
 	'	But would you like to get some practice in?"'
 	act '"Maybe not today"' :gt 'foto','studio'
-	act '"Yes, please."':
+	act '"Yes, please"':
 		cla
 		'	"What kind of shoot would you like to do today? With nudity or without?"'
 		*nl
@@ -969,12 +971,12 @@ if $ARGS[0] = 'practicemodel':
 					mdlng_exp += rand(3,5)
 					fashionshoot = rand(1,4)
 					gs 'stat'
-					if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2>>.mp4"></video></center>'
+					if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2)>>.mp4"></video></center>'
 					if fashionshoot >= 3 and fashionshoot < 5:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion<<rand(1,3)>>.jpg"></center>'
 					if fashionshoot < 5:'	You dress up in the latest in fashion wear and spend the next two hours sexily posing for the photographer.'
 					if fashionshoot = 5:
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion4.mp4"></video></center>'
-						'	You spend the next two hours putting on various dresses, practicing modelling for the online catalogs of retail clothing stores. Apparently for consistency they want you to have the exact same expression on your face every time, so you spend most of the time practicing that.'
+						'	You spend two hours putting on various dresses, practicing modelling for the online catalogs of retail clothing stores. Apparently for consistency they want you to have the exact same expression on your face every time, so you spend most of the time practicing that.'
 					end
 					if pcs_mdlng < 20:
 						act'Continue':
@@ -1406,7 +1408,7 @@ if $ARGS[0] = 'practicemodel':
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/model4.mp4"></video></center>'
 						'	A topless shoot without even a bikini or a loose shirt to hide your breasts... Unthinkable that you could ever do it for real! But it''s only a practice shoot right now. You''re not comfortable with it, but if you want to grow as a model, this is what you have to do.'
 						*nl
-						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend the next two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
+						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
 						if pcs_inhib < 20:
 							act'Continue':
 								cla
@@ -1443,7 +1445,7 @@ if $ARGS[0] = 'practicemodel':
 						inhib_exp += 3
 						gs 'stat'
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/model4.mp4"></video></center>'
-						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend the next two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
+						'	You put on the bottoms the photographer chose for you and omit a top leaving your breasts exposed. You spend two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
 						if pcs_mdlng < 20:
 							act'Continue':
 								cla
@@ -1474,38 +1476,9 @@ if $ARGS[0] = 'practicemodel':
 				end
 			end
 			
-			
-			
-				
-					cla
-					act 'Not for me':gt 'foto','studio'
-
-					act 'Agree (2:00)':
-						*clr & cla
-						minut += 120
-						modelpayfin = 0
-						mdlng_exp += rand(8,10)
-						inhib_exp += 4
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie_trans<<rand(1,3)>>.mp4"></video></center>'
-						'	You put on some very lacy, very transparent underwear and get to posing, your nipples often showing through the thin fabric.'
-						*nl
-						'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
-						*nl
-						if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
-						if pcs_mdlng >= 40 and commercial = 0:
-							act 'Leave':gt'foto','commercial'
-						else
-							act 'Leave':gt 'foto', 'end'
-						end
-					end
-				end
-			end
-			
 			act 'Transparent Lingerie':
 				cla
 				act 'Not for me':gt 'foto','studio'
-
 				if pcs_inhib < 55:
 					act 'Practice (2:00)':
 						*clr & cla
@@ -1819,12 +1792,12 @@ if $ARGS[0] = 'model':
 				pav_modelling += rand(1,city_modelling)/10
 				fashionshoot = rand(1,5)
 				gs 'stat'
-				if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2>>.mp4"></video></center>'
+				if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2)>>.mp4"></video></center>'
 				if fashionshoot >= 3 and fashionshoot < 5:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion<<rand(1,3)>>.jpg"></center>'
 				if fashionshoot < 5:'	You dress up in the latest in fashion wear and spend the next two hours sexily posing for the photographer.'
 				if fashionshoot = 5:
 					'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion3.mp4"></video></center>'
-					'	You spend the next two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
+					'	You spend two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
 				end
 				*nl
 				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
@@ -2034,7 +2007,7 @@ if $ARGS[0] = 'nude_shoot':
 				inhib_exp += 3
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/model4.mp4"></video></center>'
-				'	You put on some pants and omit a top leaving your breasts exposed. You spend the next two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
+				'	You put on some pants and omit a top leaving your breasts exposed. You spend two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
 				*nl
 				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				if pcs_mdlng >= 40 and commercial = 0:
@@ -2107,26 +2080,26 @@ if $ARGS[0] = 'nude_shoot':
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(1,3)>>.jpg"></center>'
 						'	Already naked, you step onto set and begin the shoot immediately.'
 						*nl
-						'	You spend the next two hours posing confidently for a photographer taking pictures of you that fully expose your breasts and pussy. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+						'	You spend two hours posing confidently for a photographer taking pictures of you that fully expose your breasts and pussy. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 					else
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(13,15)>>.jpg"></center>'
 						'	Already naked, you step onto set and begin the shoot immediately.'
 						*nl
-						'	You spend the next two hours posing confidently for a photographer taking pictures of you, your thick bush being used as a simple censor of your pussy and make it more "acceptable" as art while still maintaining the feeling of eroticism. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+						'	You spend two hours posing confidently for a photographer taking pictures of you, your thick bush being used as a simple censor of your pussy and make it more "acceptable" as art while still maintaining the feeling of eroticism. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 					end
 				elseif shoot_type = 2:
 					modelfoto_nip += 1
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(4,11)>>.jpg"></center>'
 					'	Already naked, you step onto set and begin the shoot immediately.'
 					*nl
-					'	You spend the next two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully shields your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+					'	You spend two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully shields your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 				else
 					city_modelling += rand(0,5)
 					pav_modelling += rand(0,2)
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude12.jpg"></center>'
 					'	Already naked, you step onto set and begin the shoot immediately.'
 					*nl
-					'	You spend the next two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully hides your pussy and nipples. These images, though incredibly provocative, are still somehow considered to be conservative enough to be allowed on the front cover of fashion, sports, and other tabloid magazines. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+					'	You spend two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully hides your pussy and nipples. These images, though incredibly provocative, are still somehow considered to be conservative enough to be allowed on the front cover of fashion, sports, and other tabloid magazines. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
 				end
 				*nl
 				if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
@@ -2163,7 +2136,7 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_pussy += 1
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/vmodel.mp4"></video></center>'
-				'	You spend the next two hours posing for the photographer, changing in and out of various underwears, sexy clothings, and lingeries until you end the shoot fully striped down and dancing naked.'
+				'	You spend two hours posing for the photographer, changing in and out of various underwears, sexy clothings, and lingeries until you end the shoot fully striped down and dancing naked.'
 				*nl
 				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				if pcs_mdlng >= 40 and commercial = 0:

locations/foto_events.qsrc

@@ -310,7 +310,7 @@ if $ARGS[0] = 'high_fasion':
 			mdlng_exp += rand(1,2)
 			city_modelling += rand(5,25)
 			pav_modelling += rand(0,city_modelling)/6
-			gs 'exhibitionism', 1
+			pcs_exhib += rand(0,1)
 			money += modelpayfin
 			modelfotomoney += modelpayfin
 			'	You spend the duration of the shoot changing in and out of designer bodices, corsets, and other tops, all of which conspicuously lack any kind of bottom, leaving your pussy exposed.'
@@ -578,7 +578,7 @@ if $ARGS[0] = 'modern_art':
 				modelfoto_nude += 1
 				mdlng_exp += rand(9,10)
 				city_modelling += rand(1,21)
-				gs 'exhibitionism', 3
+				pcs_exhib += 5
 				modern_art_projet = 1
 				pcs_horny += 20
 				'	The girl has you and the other model lie down on your sides and then wrap your legs your heads, both of you grabbing the other''s foot with your hand in a way that allows you to perfectly mirror each other''s position. At the client''s insistence, you bury your face between between the other girl''s legs. The aroma of her sex fills your nostrils and you can feel her breath on your own pussy as well.'
@@ -1325,7 +1325,7 @@ if $ARGS[0] = 'wet':
 							mdlng_exp += rand(9,10)
 							city_modelling += rand(18,21)
 							pav_modelling += rand(0,city_modelling)/4
-							gs 'exhibitionism', 3
+							pcs_exhib += 5
 							money += modelpayfin
 							modelfotomoney += modelpayfin
 							'	Eventually, the shoot is over and they leave you cold, shivering, and with really hard nipples. But at least you''ve also got a dry wad of cash that counts out to <<modelpayfin>> <b>₽</b>.'

locations/foto_models.qsrc

@@ -419,6 +419,11 @@ if $ARGS[0] = 'mari_chat':
 			'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading2.jpg"></center>'
 			'	"Hey Mari, how come you don''t shave your bush?"'
 			'	"The photographers actually ask me not to shave. They say it helps sell my ''farm girl'' look," she says, causing you both to giggle a little. "Besides, I tried shaving once when I still lived in Gadyukino and I hated that prickly feeling when it would start to grow back as stubble. It''s too much of a hassle to keep it smooth down there so since then I just decided to keep it trimmed."'
+			if pubestyle = 2:
+				'	"I know what you mean! Keeping it clean-shaven is too much work. What''s wrong with having a bit of bush?"'
+				'	"Right???"'
+				'	The two of you laugh together over your agreement in pubic hair fashion.'
+			end
 			act 'Keep chatting':gt 'foto_models','mari_chat'
 		end
 
@@ -458,62 +463,52 @@ if $ARGS[0] = 'mari_chat':
 					'	"Ugh! Everything! He''s an annoying little brat! He just spends all his time playing football with his friends and if I''m around he''ll scream at me until I go away. He''s always asking me to do his homework for him and worst of all he''s always trying to spy on me in the shower!"'
 					'	"What? You don''t have a latch or something to stop him?"'
 					'	You blush. "Uh, yeah I do, but I, uh, forget to lock it sometimes..."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif npc_rel['A34'] < 40:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my annoying little brother."'
 					'	Mari sits up a bit. "Really? What''s so irritating about him?"'
 					'	"Oh, nothing much. Just sibling squabbles. He''s not all that bad, just gets on my nerves sometimes."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif npc_rel['A34'] < 60:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my little brother."'
 					'	"That sounds nice. What are they like?"'
 					'	"Well to be honest, my sister can be a bit of a slut, but she''s still the best one I could ask for. My brother loves playing football so sometimes I join him and his friends at the field."'
 					'	"Maybe I''ll get to meet them one day!"'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif npc_rel['A34'] < 80:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
 					'	Mari smiles at you. "That''s sounds nice."'
 					'	You think of your siblings and smile. "Yeah. It is."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
-
+					
 				elseif sisterLesb >= 5:
-					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
-					'	Mari smiles at you. "You sound close."'
-					'	Your mind wanders back to your sister and how you sometimes wake her up in the middle of the night to fool around with her. "You could say that..."'
+                    '    "Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
+                    '    Mari smiles at you. "You sound close."'
+                    '    Your mind wanders back to your sister and how you sometimes wake her up in the middle of the night to fool around with her. "You could say that..."'
 
-					act 'Keep chatting':gt 'foto_models','mari_chat'
-
-				elseif brothersex < 1:
-					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
-					'	Mari smiles at you. "You sound close."'
-					'	You think of your siblings and smile, "Yeah. We are."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
+                elseif brothersex < 1:
+					'    "Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
+                    '    Mari smiles at you. "You sound close."'
+                    '    You think of your siblings and smile, "Yeah. We are."'
 
 				elseif sisterLesb >= 5 and brotherSex < 7:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
 					'	Your mind wanders back to your siblings and how you''ve fooled around with both of them separately.'
 					'	"You could say that..."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
 
 				elseif sisterLesb >= 5:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
 					'	Your mind wanders back to your siblings and how you''ve fooled around with your sister and even had full fledged intercourse with your brother. Your thoughts wander to the memory of the last time his cock was inside you and it causes you to blush.'
 					'	"You could say that..."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
-
-				else
-					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
-					'	Mari smiles at you. "That''s sounds nice."'
-					'	You think of your siblings and smile. "Yeah. It is."'
-					act 'Keep chatting':gt 'foto_models','mari_chat'
+                else
+                    '    "Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
+                    '    Mari smiles at you. "That''s sounds nice."'
+                    '    You think of your siblings and smile. "Yeah. It is."'
 				end
+					act 'Keep chatting':gt 'foto_models','mari_chat'
 			else
-				'	"No, there''s just me.'
+				'	"No, there''s just me."'
 				act 'Keep chatting':gt 'foto_models','mari_chat'
 			end
 		end
@@ -687,7 +682,11 @@ if $ARGS[0] = 'mari_modelling_chat':
 		act'"What''s that?"':
 			*clr & cla
 			'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading6.jpg"></center>'
-			'	She stands up and gives you a tight hug. Once again you feel her soft breasts molding into yours and her hot skin rubbing against you. Her hug is so tight that your hips are being pressed together and you can feel her bush between your legs.'
+			if pcs_pubes < 11:
+				'	She stands up and gives you a tight hug. Once again you feel her soft breasts molding into yours and her hot skin rubbing against you. Her hug is so tight that your hips are being pressed together and you can feel her bush between your legs.'
+			else
+				'	She stands up and gives you a tight hug. Once again you feel her soft breasts molding into yours and her hot skin rubbing against you. Her hug is so tight that your hips are being pressed together and you can feel her bush brushing against your own.'
+			end
 			'	Pulling back with a smile she says, "Always make friends with your co-workers. Especially girls. We have to stick together you know!"'
 			'	You can''t help but smile back, saying, "We sure do Mari!"'
 			act'Continue':gt 'foto_models','mari_modelling_chat'
@@ -718,7 +717,7 @@ if $ARGS[0] = 'mari_modelling_chat':
 					'	"So then how <i>did</i> you get hired here?"'
 					'	Mari looks down at her book smiling in a way that looks like she''s slightly embarrassed. "I just... kind of... walked in... I saw some of the albums they have by the entrance, thought, ''Hey, maybe I can do this?'' and asked if I could get hired here."'
 					'	"And they hired you just like that?" you ask.'
-					'	"Well... There were a couple hoops I had to jump through. I wasn''t exactly legal yet, so I had to buy a fake passport that said I was just to get started. But as you can see, it was well worth it!"'
+					'	"Well... There were a couple hoops I had to jump through. Don''t tell anyone but I was 17 at the time so I had to buy a fake passport just to get started. But as you can see, it was well worth it!"'
 					mari_fakepassport = 1
 					act'Keep chatting':gt 'foto_models','mari_modelling_chat'
 				end
@@ -731,11 +730,16 @@ if $ARGS[0] = 'mari_modelling_chat':
 			*clr & cla
 			mari_modelling_ask = 1
 			'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading2.jpg"></center>'
-			'	"Wait, so how old were you when you started working here?"'
-			if year = 2016:'	"I was 17. I actually only just turned 18 this year."'
-			if year > 2016:'	"I was 17."'
-			'	"And you said you bought a fake passport to work here?"'
-			'	"Yup!"'
+			'	"Wait, you used a fake passport to start working here?"'
+			'	"Yeah."'
+			'	"So how old are you now?'
+			if year = 2016:
+				'	"I''m 18 now, thankfully. My birthday was actually just this last May."'
+			elseif year > 2016 and month > 5:
+				'	"I''m <<2016 - 1998>>. I turned 18 back in 2016."'
+			else
+				'	"I''m <<2016 - 1999>>. I turned 18 back in 2016."'
+			end
 			if age < 18 and fakepassport = 1:
 				act '"Did you buy it from that suspicious guy at the train station?"':
 					*clr & cla
@@ -743,20 +747,36 @@ if $ARGS[0] = 'mari_modelling_chat':
 					'	"Hey, did you buy it from that suspicious guy at the train station?" you ask her.'
 					'	She perks up as you say this.'
 					'	"I did! How did you know? Are you using one now? How old are you?"'
-					act'"I''m <<age>>."':
+					act'Tell her shyly':
 						cla
+						*nl
 						'	"I''m <<age>>... You''re not going to tell anyone are you?"'
-						'	"How could I? You basically did the same thing I did. Besides, girls like us have to stick together you know!"'
+						'	"Are you kidding? How could I? You basically did the same thing I did. We''d both get in trouble!" she laughs.'
 						act '"Hey..."':
 							*clr & cla
 							'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading6.jpg"></center>'
-							'	"Hey... this reminds me for some reason... The guy who auditioned you... Did he also make you strip down before telling you how old you needed to be to work here?"'
+							'	"Hey... this reminds me for some reason... The guy who interviewed you... Did he also make you strip down before telling you how old you needed to be to work here?"'
 							'	Mari jumps up out of her seat to finish your sentence, "And then told you that he liked your naked body so you should go to the train station and buy a fake passport??"'
 							'	"Yeah he did!" you cry out. "What a perv! Going out of his way to make excuses to take pictures of underage girls like us!"'
 							'	You laugh about it together and then try to quiet down a bit, remembering you should probably not spread it around that you''re only <<age>>...'
 							act'Keep chatting':gt 'foto_models','mari_modelling_chat'
 						end
 					end
+					act'Tell her excitedly':
+						*clr & cla
+						'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading6.jpg"></center>'
+						'	"I''m <<age>>!"'
+						'	"What??" she cries, jumping up excitedly. "That''s crazy!"'
+						'	"I know right? What are the odds that two girls like us from outside the city would both buy fake passports to end up here?"'
+						'	"You said you visit your grandparents in Gadyukino sometimes right? Maybe it''s something in the water!" she laughs.'
+						'	You laugh with her for a moment before the both of you calm down again.'
+						'	"Hey... this reminds me for some reason... The guy who auditioned you... Did he also make you strip down before telling you how old you needed to be to work here?"'
+						'	"And then told you that he liked your naked body so you should go to the train station and buy a fake passport??"'
+						'	"Yeah he did! What a perv! Going out of his way to make excuses to take pictures of underage girls like us!"'
+						'	You both burst into fits of laughter before clapping your hands over your mouths and trying to stifle your hysterics. You probably shouldn''t spread it around that you''re only <<age>>...'
+						act'Keep chatting':gt 'foto_models','mari_modelling_chat'
+						end
+					end
 				end
 			end
 
@@ -788,7 +808,7 @@ if $ARGS[0] = 'mari_modelling_chat':
 					act '"I''m <<age>>, I never used a fake passport."':
 						*clr & cla
 						'<center><img src="images/locations/city/citycenter/photo/portraits/mari_e/talking/reading3.jpg"></center>'
-						'	"Oh no, I''ve never bought a fake passport. I''m <<age>> and I''ve always been legal to work here, I just know about the guy. It was where the Gopniks in my school would go to get their fakes so they could buy booze," you say with a laugh.'
+						'	"Oh no, I''ve never bought a fake passport. I''m <<age>> and I''ve always been working here legally, I just know about the guy. It was where the Gopniks in my school would go to get their fakes so they could buy booze," you say with a laugh.'
 						'	"Oh! I didn''t realize he was that well known."'
 						act'Continue':
 							*clr & cla
@@ -1483,7 +1503,7 @@ if $ARGS[0] = 'krystal_chat':
 						'	Suddenly you realize Krystal is giving you a weird look.'
 						'	"W-What...?" you stammer. "Is there something on my face?"'
 						'	"No..." she says while eyeing you up. "I just wanted you to know that if you ever want to do some uhh... ''fat burning exercises'' with me and Ben... you''re more than welcome to join us." She gives you another smirk as she bites her lip.'
-						if exhibitionist_lvl < 2:
+						if pcs_inhib < 50:
 							'	You break eye contact with her and look away, blushing furiously and try to mumble some kind of response. "I... uhh... ummm... yeah..."'
 							'	<i>What the hell am I even supposed to say to that?</i> you think to yourself.'
 							act'Keep chatting':gt'foto_models','krystal_chat'

locations/husb.qsrc

@@ -16,7 +16,32 @@ CLOSE ALL
 	end
 	'<<$husb_loc>>'
 !! {end}
-$d_husb_discription = {
+
+if $ARGS[0] = 'start':
+	cls
+	cla
+	gs'stat'
+	'<center><B><font color = maroon><<$husName>></font></B></center>'
+	'<center><img <<$set_imgh>> src="images/characters/shared/<<HusbPic>>.jpg"></center>'
+	gs 'husb', 'husb_discription'
+	gs 'husb', 'husb_action'
+
+	if $clothingworntype = 'nude':
+		if $braworntype = 'none' and $pantyworntype = 'none':
+			'Your husband, seeing you naked, says - "You are very beautiful."'
+		else
+			'Your husband smiles, "It''s always nice to see you in your underwear honey."'
+		end
+	end
+
+	act '<B>Move away</B>':gt $loc, $metka
+
+	if husbandsexday < 4:
+		act 'Sex with your husband':gt'husbsex','room'
+	end
+end
+
+if $ARGS[0] = 'husb_discription':
 	if birthyear < husb_birth_year:
 		age_diff = husbAge - age
 		$h_age = '<<$husName>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. He is <<age_diff>> years older than you.'
@@ -33,9 +58,9 @@ $d_husb_discription = {
 	if husband>=60 and husband<80:'You have a good relationship with your husband.'
 	if husband>=80:'You have a great relationship with your husband.'
 	''
-}
+end
 
-$d_husb_action = {
+if $ARGS[0] = 'husb_action':
 	if $loc = 'korr':$husb_action = ''
 	if $loc = 'bedr':
 		if hour > 22 or hour < 7: $husb_action = 'Your husband <<$husName>> is lying in bed, eyes open. "What do you want? It is late, go to sleep."'
@@ -49,26 +74,7 @@ $d_husb_action = {
 		if hour = 17 or hour = 7:$husb_action = '<<$husName>> is sitting at the kitchen table.'
 	end
 	'<<$husb_action>>'
-}
-
-if $ARGS[0] = 'start':
-	cls
-	cla
-	gs'stat'
-	'<center><B><font color = maroon><<$husName>></font></B></center>'
-	'<center><img <<$set_imgh>> src="images/characters/shared/<<HusbPic>>.jpg"></center>'
-	dynamic $d_husb_discription
-	dynamic $d_husb_action
-
-	if nude = 1:'Your husband, seeing you naked, says - "You are very beautiful."'
-
-	act '<B>Move away</B>':gt $loc, $metka
-
-	if husbandsexday < 4:
-		act 'Sex with your husband':gt'husbsex','room'
-	end
 end
 
-
 --- husb ---------------------------------
 

locations/kafe2.qsrc

@@ -1,852 +1,852 @@
-# kafe2
-
-if $ARGS[0] = 'toilet':
-
-	$location_type = 'bathroom'
-	$locM = 'kafe2'
-	$metkaM = 'toilet'
-
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
-	'Dirty and smelly toilet that seems to have never been cleaned'
-	turand = rand(0, 100)
-
-	if turand = 0:
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand.jpg"></center>'
-		'Going to the toilet you see in one of the booths, a drunk girl with bottle in hand riding a guys dick standing over the toilet facing away from him.'
-
-		act 'Leave':gt 'kafe', 'workPred'
-
-		exit
-	elseif turand = 1:
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand1.jpg"></center>'
-		'Going to the toilet you see a skinny girl sucking dick as the guy photographs everything in the mirror.'
-
-		act 'Leave':gt 'kafe', 'workPred'
-
-		exit
-	elseif turand = 2:
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand2.jpg"></center>'
-		'Going to the toilet you catch a redhead sucking her boyfriends cock.'
-
-		act 'Leave':gt 'kafe', 'workPred'
-
-		exit
-	end
-
-	act 'Leave':gt 'kafe', 'workPred'
-
-	act 'Look in the mirror': gt 'mirror', 'start'
-	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
-
-	dynamic $tampon
-	dynamic $quickwash
-	dynamic $basin
-end
-
-if $ARGS[0] = 'givi':
-	cls
-	gs 'stat'
-
-	if hour < 22:
-		'You go to the bar, behind which stands the cafe owner Givi K., he looks up from wiping glasses to look at you.'
-
-		if hour = 20 and npc_rel['A41'] >= 90:
-			act 'Beg for time off':
-				cla
-				minut += 5
-				npc_rel['A41'] -= 5
-				'You take time off to leave early, Givi was a little angry but let you go.'
-
-				act 'Move away':gt 'street'
-			end
-		end
-
-		if Kavslut > 0 and IrinaQW >= 10 and IrinaSlut = 0 and hour <= 20:
-			act 'Ask Givi go give Ira a raise':
-				cla
-				IrinaSlut = 1
-				minut += 30
-				gs 'stat'
-				'You Givi if he will give Ira a raise. Givi grunts, "What for?" You appeal to his better nature, saying that she is your close friend and you want to help her. Givi promise to think about a wage increase.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			end
-		end
-
-		act 'Chat with Givi':
-			cla
-			minut += 30
-			pcs_mood += 5
-
-			if GiviSex = 0:
-
-				if npc_rel['A41'] <= 90:npc_rel['A41'] += rand(10, 25)
-				if npc_rel['A41'] > 90 and GiviSex = 0:npc_rel['A41'] = 90
-
-				'You talk at the bar with the cafe owner and part-time bartender Givi.'
-
-				if npc_rel['A41'] = 90:'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif GiviSex >= 1 and kavslut = 0:
-				npc_rel['A41'] = 100
-				'You talk at the bar with the cafe owner and part-time bartender Givi.'
-				'"Hey <<$pcs_nickname>>, I enjoyed it so much last time. Stay with me tonight and help."'
-				'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif GiviSex >= 1 and kavslut > 0:
-				npc_rel['A41'] = 100
-				givirand = rand(0, 100)
-
-				if givirand < 10 and Venera < 4:
-					'"<<$pcs_nickname>> I what that sexy body, come and relieve my stress." With these words, Givi takes you by the hand.'
-
-					act 'Kneel':
-						cla
-						*clr
-						smenaKafe += 1
-
-						if giviSex < 2:GiviSex = 2
-
-						gs 'bdman', 'givi'
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/barbj.jpg"></center>'
-						'You bend down behind the bar, out of view of the customers, kneel before Givi and take out his member.'
-						gs 'bdsex', 'autobj'
-						'Givi grabs you hard by the hair and pulls your mouth deeper onto his cock.'
-
-						gs 'arousal', 'bj', 10, 'sub'
-						gs 'stat'
-
-						act 'Continue to suck.':
-							cla
-							*clr
-							swallow += 1
-							gs 'boyStat', 'A41'
-							sexpartkno = 1
-							spafinloc = 12
-							gs 'cum_manage'
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum31.jpg"></center>'
-							'A hot jet of sperm hits the back of your throat. You start to swallow cum, and Givi continues to cum in your mouth. Finally the flow of hot, pungent liquid stops.'
-
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Move away':gt 'kafe', 'workPred'
-						end
-					end
-
-					if GiviSex < 2:
-						act 'Excuse me':
-							cla
-							'"Wow, <<$pcs_nickname>> you dirty slut, if you spend some quality time with me I could give you a pay rise, think of all the pretty dresses you could buy." Says Givi.'
-
-							act 'Move away':gt 'kafe', 'workPred'
-						end
-					end
-				elseif givirand >= 10 or Venera >= 4:
-					'Givi slaps you on the ass strongly and whinnied. "<<$pcs_nickname>>, that''s one fine ass!"'
-
-					act 'Move away':gt 'kafe', 'workPred'
-				end
-			end
-		end
-	else
-		if pcs_apprnc < 0:
-			'Givi nods his head at you, "<<$pcs_nickname>>."'
-
-			act 'Leave':
-				cla
-				minut += 5
-				gt 'kafeend'
-			end
-		else
-			gt 'kafe2', 'givipredlog'
-		end
-	end
-end
-
-if $ARGS[0] = 'ashot':
-	$loc = 'kafe2'
-	$metka = 'ashot'
-	cls
-	gs 'stat'
-	'You go into the kitchen where trainee chef Ashot is cooking. Dishwasher <a href="exec:gt ''kafe2'', ''tamdin''">Tamara</a> as always stands near the sink and washes the dishes.'
-
-	if hour < 22:
-		act 'Eat some food (0:30)':
-			gs 'food', 'm_meal'
-		end
-
-		act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
-
-		act 'Chat with Ashot':
-			cla
-			minut += 30
-			pcs_mood += 5
-			gs 'stat'
-
-			if npc_rel['A42'] <= 90:npc_rel['A42'] += rand(0, 5)
-
-			if giviSex > 0 and Ashotsex = 0:
-				if npc_rel['A42'] <= 90:npc_rel['A42'] = 90
-
-				pcs_horny += 10
-				'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass really tight, it makes you squeal. Ashot laughs.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif giviSex = 0 and Ashotsex = 0:
-				'You talk in the kitchen with chef Ashot.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif giviSex > 0 and Ashotsex > 0:
-				Ashotrand = rand(0, 100)
-
-				if Ashotrand > 20:
-					'"You''re a cool bitch" says Ashot grabbing your ass.'
-
-					gs 'arousal', 'foreplay', 10, 'sub'
-					gs 'stat'
-
-					act 'Move away':gt 'kafe', 'workPred'
-				elseif Ashotrand <= 20:
-					*clr
-					cla
-					'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass, "My poor dick, it really misses your ass."'
-
-					act 'Allow':
-						*clr
-						cla
-
-						if analplugin = 1 :
-							*clr
-							cla
-							analplugin = 0
-							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analplug.jpg"></center>'
-							'"That''s very considerate!" Ashot swiftly pulls out your anal plug.'
-
-							act 'What the ...?':
-								*clr
-								cla
-								'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
-								'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
-
-								gs 'arousal', 'anal', 10, 'sub'
-								gs 'stat'
-
-								act 'Moan':
-									*clr
-									cla
-
-									pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
-									Ashotsex += 1
-									gs 'boyStat', 'A42'
-									sexpartkno = 1
-									spafinloc = 3
-									gs 'cum_manage'
-
-									if pcs_ass < 18:pcs_ass += 1
-
-									'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
-									'Ashot leans forward thrusting his cock as deeply as possible.'
-
-									gs 'arousal', 'anal', 10, 'sub'
-									gs 'stat'
-
-									if pcs_horny >= 100 :
-										analorgasm += 1
-										$orgasm_or = 'custom'
-										$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
-									end
-
-									'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
-
-									act 'Move away':gt 'kafe', 'workPred'
-								end
-							end
-						else
-							*clr
-							cla
-							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
-							'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
-
-							gs 'arousal', 'anal', 10, 'sub'
-							gs 'stat'
-
-							act 'Moan':
-								*clr
-								cla
-								pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
-								Ashotsex += 1
-								spafinloc = 3
-								gs 'cum_manage'
-
-								if 18 > pcs_ass:pcs_ass += 1
-
-								'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
-								'Ashot leans forward thrusting his cock as deeply as possible.'
-
-								gs 'arousal', 'anal', 10, 'sub'
-								gs 'stat'
-
-								if pcs_horny >= 100 :
-									analorgasm += 1
-									$orgasm_or = 'custom'
-									$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
-								end
-
-								'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
-
-								act 'Move away':gt 'kafe', 'workPred'
-							end
-						end
-					end
-				end
-			elseif giviSex = 0 and Ashotsex > 0:
-				'"Sexy girl, with your lovely juicy ass, my dick still remembers skewering it." Says Ashot grabbing your ass.'
-
-				gs 'arousal', 'foreplay', 10, 'sub'
-				gs 'stat'
-
-			end
-		end
-	else
-		'Ashot is putting away his cooking equipment, getting ready to go.'
-
-	end
-
-	gs 'arousal', 'end'
-	gs 'stat'
-
-	act 'Move away':gt 'kafe', 'workPred'
-end
-
-if $ARGS[0] = 'ira':
-	cls
-	gs 'stat'
-
-	'Ira is not currently busy and stands waiting at the counter.'
-
-	if hour < 22:
-		act 'Chat with Irina':
-			cla
-			minut += 30
-			pcs_mood += 5
-			gs 'stat'
-			pcs_willpwr += rand(0, 1)
-
-			npc_rel['A93'] += rand(0, 5)
-
-			gs 'stat'
-			'You chat with the waitress Ira at the bar.'
-
-			if IrinaQW ! 10 or IrinaLesbSex >= 3:
-				if GiviSex >= 1 and Kavslut = 0:
-					'Ira, with round eyes tells you the rumor going around is that you are blowing Givi.'
-				elseif Kavslut > 0:
-					'Ira tells you that she knows that you are fucking Caucasians in the evenings.'
-				end
-			elseif IrinaQW = 10 and IrinaLesbSex = 2:
-				IrinaLesbSex = 3
-				'Irina is a bit more relaxed and has stopped fidgeting when you are around.'
-			elseif IrinaQW = 10 and IrinaLesbSex = 1:
-				IrinaLesbSex = 2
-				'Irina and you smile and try to communicate, but it is awkward and strained.'
-			elseif IrinaQW = 10 and IrinaLesbSex = 0:
-				IrinaLesbSex = 1
-				'Irina clearly looks apprehensive and tries not to look you in the eye. You approach her and try to calm her down. Irina dismissively nods and says, "I''m willing to pretend that nothing ever happened. I don''t want anybody to know about it." You agree with Ira.'
-			end
-
-			act 'Move away':gt 'kafe', 'workPred'
-		end
-	else
-		if IrinaSlut >= 2:
-			gt 'kafe2', 'givipredlog'
-		elseif IrinaSlut < 2:
-			act 'Go home with Irina':
-				cla
-				npc_rel['A93'] += 5
-				minut += 5
-				gs 'stat'
-
-				if npc_rel['A93'] < 100:
-					if npc_rel['A93'] < 50:
-						if GiviSex >= 1 and Kavslut = 0:
-							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
-						elseif Kavslut > 0:
-							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
-						else
-							$irinatalk = 'Irina is mostly silent the whole way.'
-						end
-
-						$irinaend = 'Near the entrance is quickly says goodbye and goes to her home.'
-					else
-						if GiviSex >= 1 and Kavslut = 0:
-							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your relationship with Givi.'
-						elseif Kavslut > 0:
-							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your sexaual adventures at the cafe, wondering how she could be a little more like you.'
-						else
-							$irinatalk = 'The two of you gossip the whole way.'
-						end
-
-						$irinaend = 'Near the entrance she waves her hand at you goes to her home.'
-					end
-				elseif npc_rel['A93'] >= 100 and IrinaQW = 0:
-					IrinaQW = 1
-
-					$irinatalk = 'Ira is fun and chatters all the way.'
-					$irinaend = 'She invites you to visit her on Saturday and goes to her door.'
-				elseif npc_rel['A93'] >= 100 and IrinaQW = 1:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'On the way Irina talks about her ex-boyfriend.'
-					elseif Kavslut > 0:
-						$irinatalk = 'On the way Irina talks about her ex-boyfriend. She also tells you about how she once gave a blowjob in the toilet of the club when drunk with that guy.'
-					else
-						$irinatalk = 'Irina chatted all the way to the home.'
-					end
-
-					$irinaend = 'Ira standing by her door invites you to come in with her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				elseif npc_rel['A93'] >= 100 and IrinaQW = 2:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect you to be not only sleeping with men, but also with women. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
-					elseif Kavslut > 0:
-						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, that from such a whore as you of course it was only to be expected that you would be sleeping with everyone. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
-					else
-						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect that such a nice girl like you, would actually be a lesbian. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
-					end
-
-					$irinaend = 'Going to the door she says goodbye to you and leaves.'
-				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut >= 2:
-					if Kavslut > 0:
-						$irinatalk = 'Ira, smiling, tells that she had long wanted to stop living like a nun and live freely and she thanks you for your help ..'
-					end
-
-					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 1:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
-					elseif Kavslut > 0:
-						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure. She notes that you obviously have more experience, for example she has never slept with two men at once.'
-					else
-						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
-					end
-
-					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 0:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
-					elseif Kavslut > 0:
-						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman such pleasure. she notices, which, so il will never slept with two men at once. She also asked her to speak to her word Givi, she also wants a pay rise.'
-					else
-						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
-					end
-
-					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				end
-
-				'You make your way home with Irina. <<$irinatalk>> You get to the house where she lives. <<$irinaend>>'
-
-				act 'Say goodbye':gt 'street'
-			end
-		end
-	end
-end
-
-
-if $ARGS[0] = 'tamdin':
-	cls
-	gs 'stat'
-	'Tamara carries on washing the dishes as she turns to you.'
-
-	if hour < 22:
-		act 'Chat with Tamara':
-			cla
-			minut += 30
-			pcs_mood += 5
-			pcs_willpwr += rand(0, 2)
-
-			npc_rel['A43'] += rand(0, 5)
-
-			'You talk in the kitchen with Tamara the dishwasher.'
-
-			if GiviSex >= 1 and Kavslut = 0:
-				'Tamara snorts. It is really necessary, and you''re not even ashamed to suck Givi for wages, how disgusting!'
-			elseif Kavslut > 0:
-				'Caucasian slut you, fuck off.'
-			end
-
-			act 'Move away':gt 'kafe', 'workPred'
-		end
-	else
-		'She already going home and offers to walk with you.'
-
-		act 'Go home with Tamara':
-			cla
-			minut += 5
-
-			if clener = 1:'You walk down the street with Tamara, she does not live far from you and when you get to her house she stops and says goodbye.'
-			if clener = 0:clener = 1 & 'You walk down the street with Tamara, Tamara tells you that she sometimes works as a cleaner in an office building nearby.'
-
-			act 'Say goodbye':gt 'street'
-		end
-	end
-end
-
-if $ARGS[0] = 'givipredlog':
-	if IrinaSlut >= 2:
-		'Givi circles around Ira and brazenly squeezes her ass, snorting "Whoa, Ira, you''re a real slut." He turns to you, "Hey <<$pcs_nickname>> stay this evening, earn bonuses."'
-
-		act 'Stay with them':gt 'kavkazkafe', 'podgivi'
-
-		act 'Go home':
-			cla
-			minut += 5
-			gt 'kafeend'
-		end
-
-		exit
-	end
-
-	'Givi is holding a notepad and counting bottles. "Hey <<$pcs_nickname>>, you''re good with numbers, help me count bottles.'
-
-	act 'Apologize and leave':
-		cla
-		minut += 5
-		'You apologize and tell him you you counted enough during your shift.'
-
-		if GiviSex > 0:
-			'OK <<$pcs_nickname>>. How about you earn by staying and entertaining me?'
-				act 'I can''t tonight':
-					cla
-					minut += 5
-					gt 'kafeend'
-				end
-
-				act 'Help Givi':gt 'kavkazkafe', 'podgivi'
-
-				exit
-		elseif GiviSex = 0:
-			'Whoa <<$pcs_nickname>>, did I offend you? I look out for like a mother. And you do not want to help the old man.'
-
-			act 'I''ve got to get home':
-				cla
-				npc_rel['A41'] = 0
-				minut += 5
-				gt 'kafeend'
-			end
-
-			act 'Help Givi':gt 'kavkazkafe', 'podgivi'
-
-			exit
-		end
-
-		act 'Go home':
-			cla
-			minut += 5
-			gt 'kafeend'
-		end
-	end
-
-	act 'Help Givi':gt 'kavkazkafe', 'podgivi'
-end
-
-if $ARGS[0] = 'margo':
-	cls
-	minut += 15
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/beast/zoo/margo.jpg"></center>'
-	'You are about to summon the waitress but here comes Margaret, on noticing you she immediately comes to your table.'
-	'"Hi sorry that I took so long" Margaret sits down at the table'
-
-	if MargoSex = 0:
-		'And so you wanted to talk to me? you really took the bull by the horns.'
-		'"About the animal sex... you''re practicing it?" Margaret Asked.'
-		'"Yeah, no, you saw?" You decide to show a bit of character.'
-		'"I like the dog" Margaret said without confidence. "and I would like to try."'
-		'"Do you have a dog?" you smirk, amused by her words'
-		'"Unfortunately no," Margaret sighs sadly "I live with my parents and we are not allowed to have a dog"'
-		'"And you want to fuck my dog?" you say with undisguised sarcasm.'
-		'"Well, yes." Margaret says, your sarcasm falling on deaf ears.'
-	else
-		'You sit at the table with Margot and she admits that she liked with the dog and she wants more.'
-	end
-
-	act 'Leave':gt 'street'
-
-	if husbandMark <= 0 and husband <= 0:
-		act 'Come with me':
-			cls
-			minut += 15
-			gs 'stat'
-			'You and Margaret rise from the table and go to your home. when you get in the apartment Margaret goes into the shower.'
-
-			act 'Peek in the bathroom':gt 'kafe2', 'margoroom'
-			act 'Wait in the room':gt 'kafe2', 'margoroom2'
-
-			if pcs_horny >= 50:act 'Walk in on Margaret in the shower':gt 'kafe2', 'margoroom3'
-		end
-	end
-end
-
-if $ARGS[0] = 'margoroom':
-	cls
-	minut += 15
-	gs 'stat'
-	'You open the door a little bit and look in after her but nothing happens. Margaret just looks at you and you notice that she beautiful body.'
-
-	act 'Walk into the room':gt 'kafe2', 'margoroom2'
-end
-
-if $ARGS[0] = 'margoroom2':
-	cls
-	minut += 15
-	gs 'stat'
-	'-I''m ready:Margaret says entering the hall'
-	'A very good start, you answer Margaret.'
-
-	act 'Suck the dog''s dick':
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo6.jpg"></center>'
-		'Margot leans towards the male and shifts to an excellent position to start sucking him. Finally the member of the dog is alert.'
-
-		gs 'arousal', 'voyeur', 15, 'beast'
-		gs 'stat'
-
-		act 'Insert the dog''s dick in her ass.':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/beast/zoo/anal.jpg"></center>'
-			'Margaret gets on all fours and you direct the cock into her anus, the dog''s fleshy bulb slides slowly inside her tight hole. After only two thrusts, Margaret  was already squealing like the most natural bitch.'
-			'Margaret suddenly starts crying, then as the dog thrust in, abruptly moaned as her eyes welled up with tears.'
-			'"Margaret, what happened, did you cum?"'
-			'"<<$pcs_nickname>> it stuck in me" Margaret said quietly licking her lips, "It feels unusual, something is pushing against the walls of my anus and feels painful and pleasant at the same time, I did not yet cum."'
-			'"Yes, it is an unusual and pleasant feelings, I completely agree, do not make any sudden movements or jerks, or the dog can break your wonderful ass. Show some care Margaret.'
-			'"<<$pcs_nickname>> you know, I watched a zooporno with a 19 year old girl that had 17 orgasms in 3 hours" then as she moves Margaret licks her lip "Yeah, this would kill her record."'
-			'"Right, a video like what would certainly be...interesting " you say skeptically "my father would love that video personally." Margaret said, trying to change positions but the dog viciously thrust inside and Margaret could not be freed so that she couldn''t move'
-			'The unexpected knot in Margaret''s ass loosened and the member of the dog come out with a strange "SCHLPOP!" sound and out of Margarets ass flowed sperm and blood.'
-			'"Ohrenet, (Jeeze,)" Margaret sighed in delight. "I''ll do this kind of stuff more often. I''m going to bathe, and then I''ll head home."'
-
-			gs 'arousal', 'voyeur', 15, 'beast'
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Walk into the shower with Margaret':gt 'kafe2', 'margoshower'
-		end
-	end
-end
-
-if $ARGS[0] = 'margoshower':
-	cls
-	QWdogreiqTimer = 7
-	QWdogReiq = 2
-	gs 'stat'
-	'You undress and start to follow Margaret into the shower. You didn''t really have time for a bath since Margaret pulls your head in for kiss.'
-
-	gs 'arousal', 'kiss', 15, 'lesbian'
-	gs 'stat'
-
-	act '<font color="magenta">Have her lick your nipples</font>':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
-		'Margaret takes your swollen nipples into her mouth. She begins to lick them and their sharp little edges'
-
-		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if lactate = 1:
-			'You feel your breasts let down, as Margaret continues to suck on your nipples'
-			temp_var = lactatemv + lactaterate
-			if tempvar > 8000:
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
-				'She sucks for a long while, drinking a full belly of your ample milk.'
-
-			else
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
-				'She empties your breasts, and then smiles at you.'
-
-			end
-		end
-		act 'Carry her out':gt 'korr'
-	end
-
-	act '<font color="magenta">Have her lick your pussy</font>':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
-		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-
-		act 'Carry her out':gt 'korr'
-	end
-
-	act '<font color="magenta">Have her lick your ass</font>':
-		cls
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
-		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'arousal', 'anal_finger', 15, 'lesbian', 'dom'
-		minut -= 15
-		gs 'stat'
-
-		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Carry her out':gt 'korr'
-
-		if pcs_ass > 15 and pcs_horny > 0:
-			act '<font color="magenta">Stick your hand in the ass</font>':
-				cls
-				pcs_ass += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
-				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
-
-				gs 'arousal', 'anal_fist', 15, 'lesbian'
-				gs 'stat'
-
-				if pcs_horny >= 90:pcs_horny = 0 & analorgasm += 1 & 'You covered orgasm.'
-
-				$orgasm_or = 'yes'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Carry her out':gt 'korr'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'margoroom3':
-	cls
-	gs 'stat'
-	'You start to undress and go to the shower, following Margaret. You do not have time to really get into the bath since Margaret pulls your head in for a kiss.'
-
-	gs 'arousal', 'kiss', 15, 'lesbian'
-	gs 'stat'
-
-	act 'Have her lick your nipples':
-		cls
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
-		'Margaret takes your swollen nipples into her mouth. She begins to lick and nibble on them with her sharp little teeth'
-
-		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if lactate = 1:
-			'You feel your breasts let down, as Margaret continues to suck on your nipples'
-			temp_var = lactatemv + lactaterate
-			if tempvar > 8000:
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
-				'She sucks for a long while, drinking a full belly of your ample milk.'
-
-			else
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
-				'She empties your breasts, and then smiles at you.'
-
-			end
-		end
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-	end
-
-	act 'Have her lick your vagina':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
-		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
-
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-	end
-
-	act 'Have her lick your ass':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
-		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
-
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-
-		if pcs_ass > 15 and pcs_horny > 0:
-			act 'Stick me in the ass hand':
-				cls
-				minut += 15
-				pcs_horny += 60
-				pcs_ass += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
-				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
-
-				gs 'arousal', 'anal_fist', 15, 'lesbian', 'dom'
-				gs 'stat'
-
-				if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-
-				$orgasm_or = 'yes'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Walk into the room':gt 'kafe2', 'margoroom2'
-			end
-		end
-	end
-end
-
---- kafe2 ---------------------------------
-
+# kafe2
+
+if $ARGS[0] = 'toilet':
+
+	$location_type = 'bathroom'
+	$locM = 'kafe2'
+	$metkaM = 'toilet'
+
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
+	'Dirty and smelly toilet that seems to have never been cleaned'
+	turand = rand(0, 100)
+
+	if turand = 0:
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand.jpg"></center>'
+		'Going to the toilet you see in one of the booths, a drunk girl with bottle in hand riding a guys dick standing over the toilet facing away from him.'
+
+		act 'Leave':gt 'kafe', 'workPred'
+
+		exit
+	elseif turand = 1:
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand1.jpg"></center>'
+		'Going to the toilet you see a skinny girl sucking dick as the guy photographs everything in the mirror.'
+
+		act 'Leave':gt 'kafe', 'workPred'
+
+		exit
+	elseif turand = 2:
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand2.jpg"></center>'
+		'Going to the toilet you catch a redhead sucking her boyfriends cock.'
+
+		act 'Leave':gt 'kafe', 'workPred'
+
+		exit
+	end
+
+	act 'Leave':gt 'kafe', 'workPred'
+
+	act 'Look in the mirror': gt 'mirror', 'start'
+	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
+
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin
+end
+
+if $ARGS[0] = 'givi':
+	cls
+	gs 'stat'
+
+	if hour < 22:
+		'You go to the bar, behind which stands the cafe owner Givi K., he looks up from wiping glasses to look at you.'
+
+		if hour = 20 and npc_rel['A41'] >= 90:
+			act 'Beg for time off':
+				cla
+				minut += 5
+				npc_rel['A41'] -= 5
+				'You take time off to leave early, Givi was a little angry but let you go.'
+
+				act 'Move away':gt 'street'
+			end
+		end
+
+		if Kavslut > 0 and IrinaQW >= 10 and IrinaSlut = 0 and hour <= 20:
+			act 'Ask Givi go give Ira a raise':
+				cla
+				IrinaSlut = 1
+				minut += 30
+				gs 'stat'
+				'You Givi if he will give Ira a raise. Givi grunts, "What for?" You appeal to his better nature, saying that she is your close friend and you want to help her. Givi promise to think about a wage increase.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			end
+		end
+
+		act 'Chat with Givi':
+			cla
+			minut += 30
+			pcs_mood += 5
+
+			if GiviSex = 0:
+
+				if npc_rel['A41'] <= 90:npc_rel['A41'] += rand(10, 25)
+				if npc_rel['A41'] > 90 and GiviSex = 0:npc_rel['A41'] = 90
+
+				'You talk at the bar with the cafe owner and part-time bartender Givi.'
+
+				if npc_rel['A41'] = 90:'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif GiviSex >= 1 and kavslut = 0:
+				npc_rel['A41'] = 100
+				'You talk at the bar with the cafe owner and part-time bartender Givi.'
+				'"Hey <<$pcs_nickname>>, I enjoyed it so much last time. Stay with me tonight and help."'
+				'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif GiviSex >= 1 and kavslut > 0:
+				npc_rel['A41'] = 100
+				givirand = rand(0, 100)
+
+				if givirand < 10 and Venera < 4:
+					'"<<$pcs_nickname>> I what that sexy body, come and relieve my stress." With these words, Givi takes you by the hand.'
+
+					act 'Kneel':
+						cla
+						*clr
+						smenaKafe += 1
+
+						if giviSex < 2:GiviSex = 2
+
+						gs 'bdman', 'givi'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/barbj.jpg"></center>'
+						'You bend down behind the bar, out of view of the customers, kneel before Givi and take out his member.'
+						gs 'bdsex', 'autobj'
+						'Givi grabs you hard by the hair and pulls your mouth deeper onto his cock.'
+
+						gs 'arousal', 'bj', 10, 'sub'
+						gs 'stat'
+
+						act 'Continue to suck.':
+							cla
+							*clr
+							swallow += 1
+							gs 'boyStat', 'A41'
+							sexpartkno = 1
+							spafinloc = 12
+							gs 'cum_manage'
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum31.jpg"></center>'
+							'A hot jet of sperm hits the back of your throat. You start to swallow cum, and Givi continues to cum in your mouth. Finally the flow of hot, pungent liquid stops.'
+
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Move away':gt 'kafe', 'workPred'
+						end
+					end
+
+					if GiviSex < 2:
+						act 'Excuse me':
+							cla
+							'"Wow, <<$pcs_nickname>> you dirty slut, if you spend some quality time with me I could give you a pay rise, think of all the pretty dresses you could buy." Says Givi.'
+
+							act 'Move away':gt 'kafe', 'workPred'
+						end
+					end
+				elseif givirand >= 10 or Venera >= 4:
+					'Givi slaps you on the ass strongly and whinnied. "<<$pcs_nickname>>, that''s one fine ass!"'
+
+					act 'Move away':gt 'kafe', 'workPred'
+				end
+			end
+		end
+	else
+		if pcs_apprnc < 0:
+			'Givi nods his head at you, "<<$pcs_nickname>>."'
+
+			act 'Leave':
+				cla
+				minut += 5
+				gt 'kafeend'
+			end
+		else
+			gt 'kafe2', 'givipredlog'
+		end
+	end
+end
+
+if $ARGS[0] = 'ashot':
+	$loc = 'kafe2'
+	$metka = 'ashot'
+	cls
+	gs 'stat'
+	'You go into the kitchen where trainee chef Ashot is cooking. Dishwasher <a href="exec:gt ''kafe2'', ''tamdin''">Tamara</a> as always stands near the sink and washes the dishes.'
+
+	if hour < 22:
+		act 'Eat some food (0:30)':
+			gs 'food', 'm_meal'
+		end
+
+		act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
+
+		act 'Chat with Ashot':
+			cla
+			minut += 30
+			pcs_mood += 5
+			gs 'stat'
+
+			if npc_rel['A42'] <= 90:npc_rel['A42'] += rand(0, 5)
+
+			if giviSex > 0 and Ashotsex = 0:
+				if npc_rel['A42'] <= 90:npc_rel['A42'] = 90
+
+				pcs_horny += 10
+				'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass really tight, it makes you squeal. Ashot laughs.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif giviSex = 0 and Ashotsex = 0:
+				'You talk in the kitchen with chef Ashot.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif giviSex > 0 and Ashotsex > 0:
+				Ashotrand = rand(0, 100)
+
+				if Ashotrand > 20:
+					'"You''re a cool bitch" says Ashot grabbing your ass.'
+
+					gs 'arousal', 'foreplay', 10, 'sub'
+					gs 'stat'
+
+					act 'Move away':gt 'kafe', 'workPred'
+				elseif Ashotrand <= 20:
+					*clr
+					cla
+					'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass, "My poor dick, it really misses your ass."'
+
+					act 'Allow':
+						*clr
+						cla
+
+						if analplugin = 1 :
+							*clr
+							cla
+							analplugin = 0
+							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analplug.jpg"></center>'
+							'"That''s very considerate!" Ashot swiftly pulls out your anal plug.'
+
+							act 'What the ...?':
+								*clr
+								cla
+								'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
+								'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
+
+								gs 'arousal', 'anal', 10, 'sub'
+								gs 'stat'
+
+								act 'Moan':
+									*clr
+									cla
+
+									pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
+									Ashotsex += 1
+									gs 'boyStat', 'A42'
+									sexpartkno = 1
+									spafinloc = 3
+									gs 'cum_manage'
+
+									if pcs_ass < 18:pcs_ass += 1
+
+									'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
+									'Ashot leans forward thrusting his cock as deeply as possible.'
+
+									gs 'arousal', 'anal', 10, 'sub'
+									gs 'stat'
+
+									if pcs_horny >= 100 :
+										analorgasm += 1
+										$orgasm_or = 'custom'
+										$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
+									end
+
+									'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
+
+									act 'Move away':gt 'kafe', 'workPred'
+								end
+							end
+						else
+							*clr
+							cla
+							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
+							'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
+
+							gs 'arousal', 'anal', 10, 'sub'
+							gs 'stat'
+
+							act 'Moan':
+								*clr
+								cla
+								pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
+								Ashotsex += 1
+								spafinloc = 3
+								gs 'cum_manage'
+
+								if 18 > pcs_ass:pcs_ass += 1
+
+								'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
+								'Ashot leans forward thrusting his cock as deeply as possible.'
+
+								gs 'arousal', 'anal', 10, 'sub'
+								gs 'stat'
+
+								if pcs_horny >= 100 :
+									analorgasm += 1
+									$orgasm_or = 'custom'
+									$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
+								end
+
+								'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
+
+								act 'Move away':gt 'kafe', 'workPred'
+							end
+						end
+					end
+				end
+			elseif giviSex = 0 and Ashotsex > 0:
+				'"Sexy girl, with your lovely juicy ass, my dick still remembers skewering it." Says Ashot grabbing your ass.'
+
+				gs 'arousal', 'foreplay', 10, 'sub'
+				gs 'stat'
+
+			end
+		end
+	else
+		'Ashot is putting away his cooking equipment, getting ready to go.'
+
+	end
+
+	gs 'arousal', 'end'
+	gs 'stat'
+
+	act 'Move away':gt 'kafe', 'workPred'
+end
+
+if $ARGS[0] = 'ira':
+	cls
+	gs 'stat'
+
+	'Ira is not currently busy and stands waiting at the counter.'
+
+	if hour < 22:
+		act 'Chat with Irina':
+			cla
+			minut += 30
+			pcs_mood += 5
+			gs 'stat'
+			pcs_willpwr += rand(0, 1)
+
+			npc_rel['A93'] += rand(0, 5)
+
+			gs 'stat'
+			'You chat with the waitress Ira at the bar.'
+
+			if IrinaQW ! 10 or IrinaLesbSex >= 3:
+				if GiviSex >= 1 and Kavslut = 0:
+					'Ira, with round eyes tells you the rumor going around is that you are blowing Givi.'
+				elseif Kavslut > 0:
+					'Ira tells you that she knows that you are fucking Caucasians in the evenings.'
+				end
+			elseif IrinaQW = 10 and IrinaLesbSex = 2:
+				IrinaLesbSex = 3
+				'Irina is a bit more relaxed and has stopped fidgeting when you are around.'
+			elseif IrinaQW = 10 and IrinaLesbSex = 1:
+				IrinaLesbSex = 2
+				'Irina and you smile and try to communicate, but it is awkward and strained.'
+			elseif IrinaQW = 10 and IrinaLesbSex = 0:
+				IrinaLesbSex = 1
+				'Irina clearly looks apprehensive and tries not to look you in the eye. You approach her and try to calm her down. Irina dismissively nods and says, "I''m willing to pretend that nothing ever happened. I don''t want anybody to know about it." You agree with Ira.'
+			end
+
+			act 'Move away':gt 'kafe', 'workPred'
+		end
+	else
+		if IrinaSlut >= 2:
+			gt 'kafe2', 'givipredlog'
+		elseif IrinaSlut < 2:
+			act 'Go home with Irina':
+				cla
+				npc_rel['A93'] += 5
+				minut += 5
+				gs 'stat'
+
+				if npc_rel['A93'] < 100:
+					if npc_rel['A93'] < 50:
+						if GiviSex >= 1 and Kavslut = 0:
+							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
+						elseif Kavslut > 0:
+							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
+						else
+							$irinatalk = 'Irina is mostly silent the whole way.'
+						end
+
+						$irinaend = 'Near the entrance is quickly says goodbye and goes to her home.'
+					else
+						if GiviSex >= 1 and Kavslut = 0:
+							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your relationship with Givi.'
+						elseif Kavslut > 0:
+							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your sexaual adventures at the cafe, wondering how she could be a little more like you.'
+						else
+							$irinatalk = 'The two of you gossip the whole way.'
+						end
+
+						$irinaend = 'Near the entrance she waves her hand at you goes to her home.'
+					end
+				elseif npc_rel['A93'] >= 100 and IrinaQW = 0:
+					IrinaQW = 1
+
+					$irinatalk = 'Ira is fun and chatters all the way.'
+					$irinaend = 'She invites you to visit her on Saturday and goes to her door.'
+				elseif npc_rel['A93'] >= 100 and IrinaQW = 1:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'On the way Irina talks about her ex-boyfriend.'
+					elseif Kavslut > 0:
+						$irinatalk = 'On the way Irina talks about her ex-boyfriend. She also tells you about how she once gave a blowjob in the toilet of the club when drunk with that guy.'
+					else
+						$irinatalk = 'Irina chatted all the way to the home.'
+					end
+
+					$irinaend = 'Ira standing by her door invites you to come in with her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				elseif npc_rel['A93'] >= 100 and IrinaQW = 2:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect you to be not only sleeping with men, but also with women. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
+					elseif Kavslut > 0:
+						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, that from such a whore as you of course it was only to be expected that you would be sleeping with everyone. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
+					else
+						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect that such a nice girl like you, would actually be a lesbian. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
+					end
+
+					$irinaend = 'Going to the door she says goodbye to you and leaves.'
+				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut >= 2:
+					if Kavslut > 0:
+						$irinatalk = 'Ira, smiling, tells that she had long wanted to stop living like a nun and live freely and she thanks you for your help ..'
+					end
+
+					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 1:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
+					elseif Kavslut > 0:
+						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure. She notes that you obviously have more experience, for example she has never slept with two men at once.'
+					else
+						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
+					end
+
+					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 0:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
+					elseif Kavslut > 0:
+						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman such pleasure. she notices, which, so il will never slept with two men at once. She also asked her to speak to her word Givi, she also wants a pay rise.'
+					else
+						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
+					end
+
+					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				end
+
+				'You make your way home with Irina. <<$irinatalk>> You get to the house where she lives. <<$irinaend>>'
+
+				act 'Say goodbye':gt 'street'
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'tamdin':
+	cls
+	gs 'stat'
+	'Tamara carries on washing the dishes as she turns to you.'
+
+	if hour < 22:
+		act 'Chat with Tamara':
+			cla
+			minut += 30
+			pcs_mood += 5
+			pcs_willpwr += rand(0, 2)
+
+			npc_rel['A43'] += rand(0, 5)
+
+			'You talk in the kitchen with Tamara the dishwasher.'
+
+			if GiviSex >= 1 and Kavslut = 0:
+				'Tamara snorts. It is really necessary, and you''re not even ashamed to suck Givi for wages, how disgusting!'
+			elseif Kavslut > 0:
+				'Caucasian slut you, fuck off.'
+			end
+
+			act 'Move away':gt 'kafe', 'workPred'
+		end
+	else
+		'She already going home and offers to walk with you.'
+
+		act 'Go home with Tamara':
+			cla
+			minut += 5
+
+			if clener = 1:'You walk down the street with Tamara, she does not live far from you and when you get to her house she stops and says goodbye.'
+			if clener = 0:clener = 1 & 'You walk down the street with Tamara, Tamara tells you that she sometimes works as a cleaner in an office building nearby.'
+
+			act 'Say goodbye':gt 'street'
+		end
+	end
+end
+
+if $ARGS[0] = 'givipredlog':
+	if IrinaSlut >= 2:
+		'Givi circles around Ira and brazenly squeezes her ass, snorting "Whoa, Ira, you''re a real slut." He turns to you, "Hey <<$pcs_nickname>> stay this evening, earn bonuses."'
+
+		act 'Stay with them':gt 'kavkazkafe', 'podgivi'
+
+		act 'Go home':
+			cla
+			minut += 5
+			gt 'kafeend'
+		end
+
+		exit
+	end
+
+	'Givi is holding a notepad and counting bottles. "Hey <<$pcs_nickname>>, you''re good with numbers, help me count bottles.'
+
+	act 'Apologize and leave':
+		cla
+		minut += 5
+		'You apologize and tell him you you counted enough during your shift.'
+
+		if GiviSex > 0:
+			'OK <<$pcs_nickname>>. How about you earn by staying and entertaining me?'
+				act 'I can''t tonight':
+					cla
+					minut += 5
+					gt 'kafeend'
+				end
+
+				act 'Help Givi':gt 'kavkazkafe', 'podgivi'
+
+				exit
+		elseif GiviSex = 0:
+			'Whoa <<$pcs_nickname>>, did I offend you? I look out for like a mother. And you do not want to help the old man.'
+
+			act 'I''ve got to get home':
+				cla
+				npc_rel['A41'] = 0
+				minut += 5
+				gt 'kafeend'
+			end
+
+			act 'Help Givi':gt 'kavkazkafe', 'podgivi'
+
+			exit
+		end
+
+		act 'Go home':
+			cla
+			minut += 5
+			gt 'kafeend'
+		end
+	end
+
+	act 'Help Givi':gt 'kavkazkafe', 'podgivi'
+end
+
+if $ARGS[0] = 'margo':
+	cls
+	minut += 15
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/beast/zoo/margo.jpg"></center>'
+	'You are about to summon the waitress but here comes Margaret, on noticing you she immediately comes to your table.'
+	'"Hi sorry that I took so long" Margaret sits down at the table'
+
+	if MargoSex = 0:
+		'And so you wanted to talk to me? you really took the bull by the horns.'
+		'"About the animal sex... you''re practicing it?" Margaret Asked.'
+		'"Yeah, no, you saw?" You decide to show a bit of character.'
+		'"I like the dog" Margaret said without confidence. "and I would like to try."'
+		'"Do you have a dog?" you smirk, amused by her words'
+		'"Unfortunately no," Margaret sighs sadly "I live with my parents and we are not allowed to have a dog"'
+		'"And you want to fuck my dog?" you say with undisguised sarcasm.'
+		'"Well, yes." Margaret says, your sarcasm falling on deaf ears.'
+	else
+		'You sit at the table with Margot and she admits that she liked with the dog and she wants more.'
+	end
+
+	act 'Leave':gt 'street'
+
+	if husbandMark <= 0 and husband <= 0:
+		act 'Come with me':
+			cls
+			minut += 15
+			gs 'stat'
+			'You and Margaret rise from the table and go to your home. when you get in the apartment Margaret goes into the shower.'
+
+			act 'Peek in the bathroom':gt 'kafe2', 'margoroom'
+			act 'Wait in the room':gt 'kafe2', 'margoroom2'
+
+			if pcs_horny >= 50:act 'Walk in on Margaret in the shower':gt 'kafe2', 'margoroom3'
+		end
+	end
+end
+
+if $ARGS[0] = 'margoroom':
+	cls
+	minut += 15
+	gs 'stat'
+	'You open the door a little bit and look in after her but nothing happens. Margaret just looks at you and you notice that she beautiful body.'
+
+	act 'Walk into the room':gt 'kafe2', 'margoroom2'
+end
+
+if $ARGS[0] = 'margoroom2':
+	cls
+	minut += 15
+	gs 'stat'
+	'-I''m ready:Margaret says entering the hall'
+	'A very good start, you answer Margaret.'
+
+	act 'Suck the dog''s dick':
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo6.jpg"></center>'
+		'Margot leans towards the male and shifts to an excellent position to start sucking him. Finally the member of the dog is alert.'
+
+		gs 'arousal', 'voyeur', 15, 'beast'
+		gs 'stat'
+
+		act 'Insert the dog''s dick in her ass.':
+			cls
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/beast/zoo/anal.jpg"></center>'
+			'Margaret gets on all fours and you direct the cock into her anus, the dog''s fleshy bulb slides slowly inside her tight hole. After only two thrusts, Margaret  was already squealing like the most natural bitch.'
+			'Margaret suddenly starts crying, then as the dog thrust in, abruptly moaned as her eyes welled up with tears.'
+			'"Margaret, what happened, did you cum?"'
+			'"<<$pcs_nickname>> it stuck in me" Margaret said quietly licking her lips, "It feels unusual, something is pushing against the walls of my anus and feels painful and pleasant at the same time, I did not yet cum."'
+			'"Yes, it is an unusual and pleasant feelings, I completely agree, do not make any sudden movements or jerks, or the dog can break your wonderful ass. Show some care Margaret.'
+			'"<<$pcs_nickname>> you know, I watched a zooporno with a 19 year old girl that had 17 orgasms in 3 hours" then as she moves Margaret licks her lip "Yeah, this would kill her record."'
+			'"Right, a video like what would certainly be...interesting " you say skeptically "my father would love that video personally." Margaret said, trying to change positions but the dog viciously thrust inside and Margaret could not be freed so that she couldn''t move'
+			'The unexpected knot in Margaret''s ass loosened and the member of the dog come out with a strange "SCHLPOP!" sound and out of Margarets ass flowed sperm and blood.'
+			'"Ohrenet, (Jeeze,)" Margaret sighed in delight. "I''ll do this kind of stuff more often. I''m going to bathe, and then I''ll head home."'
+
+			gs 'arousal', 'voyeur', 15, 'beast'
+			gs 'arousal', 'end'
+			gs 'stat'
+
+			act 'Walk into the shower with Margaret':gt 'kafe2', 'margoshower'
+		end
+	end
+end
+
+if $ARGS[0] = 'margoshower':
+	cls
+	QWdogreiqTimer = 7
+	QWdogReiq = 2
+	gs 'stat'
+	'You undress and start to follow Margaret into the shower. You didn''t really have time for a bath since Margaret pulls your head in for kiss.'
+
+	gs 'arousal', 'kiss', 15, 'lesbian'
+	gs 'stat'
+
+	act '<font color="magenta">Have her lick your nipples</font>':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
+		'Margaret takes your swollen nipples into her mouth. She begins to lick them and their sharp little edges'
+
+		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if lactate = 1:
+			'You feel your breasts let down, as Margaret continues to suck on your nipples'
+			temp_var = lactatemv + lactaterate
+			if tempvar > 8000:
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
+				'She sucks for a long while, drinking a full belly of your ample milk.'
+
+			else
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
+				'She empties your breasts, and then smiles at you.'
+
+			end
+		end
+		act 'Carry her out':gt 'korr'
+	end
+
+	act '<font color="magenta">Have her lick your pussy</font>':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
+		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
+
+		act 'Carry her out':gt 'korr'
+	end
+
+	act '<font color="magenta">Have her lick your ass</font>':
+		cls
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
+		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'arousal', 'anal_finger', 15, 'lesbian', 'dom'
+		minut -= 15
+		gs 'stat'
+
+		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
+
+		$orgasm_or = 'yes'
+		gs 'stat'
+
+		act 'Carry her out':gt 'korr'
+
+		if pcs_ass > 15 and pcs_horny > 0:
+			act '<font color="magenta">Stick your hand in the ass</font>':
+				cls
+				pcs_ass += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
+				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
+
+				gs 'arousal', 'anal_fist', 15, 'lesbian'
+				gs 'stat'
+
+				if pcs_horny >= 90:pcs_horny = 0 & analorgasm += 1 & 'You covered orgasm.'
+
+				$orgasm_or = 'yes'
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				act 'Carry her out':gt 'korr'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'margoroom3':
+	cls
+	gs 'stat'
+	'You start to undress and go to the shower, following Margaret. You do not have time to really get into the bath since Margaret pulls your head in for a kiss.'
+
+	gs 'arousal', 'kiss', 15, 'lesbian'
+	gs 'stat'
+
+	act 'Have her lick your nipples':
+		cls
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
+		'Margaret takes your swollen nipples into her mouth. She begins to lick and nibble on them with her sharp little teeth'
+
+		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if lactate = 1:
+			'You feel your breasts let down, as Margaret continues to suck on your nipples'
+			temp_var = lactatemv + lactaterate
+			if tempvar > 8000:
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
+				'She sucks for a long while, drinking a full belly of your ample milk.'
+
+			else
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
+				'She empties your breasts, and then smiles at you.'
+
+			end
+		end
+		act 'Walk into the room':gt 'kafe2', 'margoroom2'
+	end
+
+	act 'Have her lick your vagina':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
+		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
+
+		$orgasm_or = 'yes'
+		gs 'stat'
+
+		act 'Walk into the room':gt 'kafe2', 'margoroom2'
+	end
+
+	act 'Have her lick your ass':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
+		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
+
+		$orgasm_or = 'yes'
+		gs 'stat'
+
+		act 'Walk into the room':gt 'kafe2', 'margoroom2'
+
+		if pcs_ass > 15 and pcs_horny > 0:
+			act 'Stick me in the ass hand':
+				cls
+				minut += 15
+				pcs_horny += 60
+				pcs_ass += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
+				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
+
+				gs 'arousal', 'anal_fist', 15, 'lesbian', 'dom'
+				gs 'stat'
+
+				if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
+
+				$orgasm_or = 'yes'
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				act 'Walk into the room':gt 'kafe2', 'margoroom2'
+			end
+		end
+	end
+end
+
+--- kafe2 ---------------------------------
+

locations/kid.qsrc

@@ -1,265 +1,265 @@
-# kid
-
-$breastfeed = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/pc/body/tits/breast_feed.jpg"></center>'
-	'You pick up <<$kidname[ks]>> from <<$kidPosPro[ks]>> crib and cuddle for a moment before exposing your breast.'
-	if rand(1,10) = 10:
-		'You lift <<$kidname[ks]>> to your breast but your <<$sdtext[ks]>> doesn''t latch on.'
-		mood -= 5
-		minut += 5
-	else
-		minut += 15
-
-		breastcounter += 1
-		milkedvolume = func('lact_lib','$get_breastmilk', 2, 15)
-		if milkedvolume < 800:
-			'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. Your baby doesn''t seem to be satisfied with the amount of milk.'
-		else
-			'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. Your baby seems satisfied with the amount of your milk.'
-		end
-	end
-	'You gently lay <<$kidname[ks]>> back <<$babyloc>>.'
-	act 'Done':
-		gt 'kid', 'start'
-	end
-}
-
-$play = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/pc/activities/baby_play.jpg"></center>'
-	'You get down on the floor with your <<$sdtext[ks]>> and begin to make face and noises to your little <<$polreb[ks]>>.'
-	'<<$kidname[ks]>> giggles in delight and squirms on the floor in response to you.'
-	'After a while you get up and straighten your clothes before going on with your day.'
-	pcs_mood += 20
-	minut += 20
-	act 'Done':
-		gt 'kid', 'start'
-	end
-}
-
-$totplay = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/pc/activities/tot_play.jpg"></center>'
-	'"Mom! Mom! Mom! Mom!" Yells <<$kidname[ks]>>, "Come play with me!"'
-	'"Ok <<$kidname[ks]>>!" You reply.'
-	'You pull out a bin of blocks and spend a period of time playing and building with your child.'
-	'After a short time, <<$kidname[ks]>> pushes over the small tower you have built, snickers and runs off'
-	'You get up, straighten up your clothes, laugh, and move on with your day'
-	pcs_mood += 20
-	minut += 20
-	act 'Done':
-		gt 'kid', 'start'
-	end
-}
-$tottv = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv.jpg"></center>'
-	'You pull <<$kidname[ks]>> up onto the couch with you and cuddle up to watch TV'
-	'You watch a cartoon featuring a Rabbit, a Duck, and a Pig that is quite silly'
-	mood += 10
-	minut += 60
-	act 'Done':
-		gt 'kid', 'start'
-	end
-}
-$kidtv = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv2.jpg"></center>'
-	'You attempt to curl up on the couch with <<$kidname[ks]>>'
-	'"Mom! I''m trying to watch TV!" <<$kidname[ks]>> says.'
-	'"Well I am gonna watch with you." You reply, followed by tickling <<$kidname[ks]>> to open up a spot on the couch for you to sit.'
-	'You watch a kids TV show about two American teenagers that barely catches your interest.'
-	minut += 60
-	act 'Done':
-		gt 'kid', 'start'
-	end
-}
-
-$homework = {
-	cla
-	*clr
-	if polkid[k] = 0:
-			$kidPosPronn[ks] = 'her'
-		else
-			$kidPosPronn[ks] = 'him'
-	end
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/homework1.jpg"></center>'
-	'You see that <<$kidname[ks]>> is working on a pile of homework. They give kids so much homework now days.'
-	'"Can mommy help you with some of that?" you ask'
-	'<<$kidname[ks]>> replies, "Mommy?!... Mom stop treating me like a baby... but yes, I would like some help."'
-	'<br>'
-	'You sit down at the table next to <<$kidname[ks]>> and begin to help <<$kidPosPronn[ks]>> with the homework'
-	if pcs_grades > 50:
-		'The homework is completed quickly thanks to the attention you payed in school. An A should be an easy achievement.'
-	else
-		'You really wish you had payed more attention in school. The homework is not overly complex but is still not the easiest thing for you.'
-	end
-	homework[ks] = daystart
-	minut += rand(30,80)
-	act 'Done':
-		gt 'kid', 'start'
-	end
-}
-
-if $ARGS[0] = 'start':
-	gs 'stat'
-	if kid > 0:
-		k = 0
-		end
-		if lactate > 0 and pain['nipples'] > 60:
-			'You cannot breast feed right now. Your nipples are too sore.'
-		end
-		:loop
-		if k < kid:
-			gs 'kid','kidlist'
-			k += 1
-			jump 'loop'
-		end
-		'Child Selected: <<$kidname[ks]>>'
-		if ks > 0:'<a href="exec:ks -= 1& gt ''kid'', ''start'' ">Select Previous Child</a>'
-		if ks < (kid - 1):'<a href="exec:ks += 1& gt ''kid'', ''start'' ">Select Next Child</a>'
-
-	act 'Leave':
-		cla
-		killvar 'ks'
-		gt $loc, $metka
-	end
-end
-
-if $ARGS[0] = 'kidlist':
-		if kidage[k] < 1:
-			if (month - monthkid[k]) < 1 and (day-daykid[k]) < 7:
-				kiddaycalc[k] = day - daykid[k]
-				if kiddaycalc[k] = 1:
-					$kidagetext[k] = '<<kiddaycalc[k]>> day old'
-				else
-					$kidagetext[k] = '<<kiddaycalc[k]>> days old'
-				end
-			elseif (month - monthkid[k]) < 1 :
-				kiddaycalc[k] = (day - daykid[k]) / 7
-				if kiddaycalc[k] = 1:
-					$kidagetext[k] = '<<kiddaycalc[k]>> week old'
-				else
-					$kidagetext[k] = '<<kiddaycalc[k]>> weeks old'
-				end
-			else
-				kidmonthcalc[k] = (month - monthkid[k])
-				if kidmonthcalc[k] = 1:
-					$kidagetext[k] = '<<kidmonthcalc[k]>> month old'
-				else
-					$kidagetext[k] = '<<kidmonthcalc[k]>> months old'
-				end
-			end
-		else
-			if kidage[k] = 1:
-			$kidagetext[k] = '<<kidage[k]>> year old'
-			else
-			$kidagetext[k] = '<<kidage[k]>> years old'
-			end
-		end
-		if $polreb[k] = 'girl':
-			$sdtext[k] = 'daughter'
-		elseif $polreb[k] = 'boy':
-			$sdtext[k] = 'son'
-		end
-		if polkid[k] = 0:
-			$kidPosPro[k] = 'her'
-		else
-			$kidPosPro[k] = 'his'
-		end
-		if polkid[k] = 0:
-			$kidPosProC[k] = 'Her'
-		else
-			$kidPosProC[k] = 'His'
-		end
-		if polkid[k] = 0:
-			$kidPosProPN[k] = 'She'
-		else
-			$kidPosProPN[k] = 'He'
-		end
-		if ks = k:
-		'<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
-		else:
-		'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.'
-		end
-
-		if kidage[k] < 1:
-			if hour >= 12 and hour < 18:
-			$babyloc = 'onto the blanket'
-			'<<$kidname[k]>></a> is laying on a blanket'
-			else:
-			$babyloc = 'into the crib'
-			'<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
-			end
-
-		elseif kidage[k] >= 1 and kidage[k] < 7:
-			if hour >= 9 and hour < 21 and rkidloc < 8:
-			$totloc = 'playing with toys on the floor'
-			'<<$kidname[k]>> is playing with toys.'
-			elseif hour < 9 or hour >= 21:
-			'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
-			else
-			$totloc = 'watching TV'
-			'<<$kidname[k]>> is watching TV.'
-			end
-		elseif kidage[k] >= 7 and kidage[k] < 18:
-			if hour >= 21 or hour < 8:
-				'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
-			elseif hour >= 8 and hour < 9:
-				'<<$kidname[k]>> is getting ready for school.'
-			elseif hour >= 9 and hour < 16:
-				'<<$kidname[k]>> is at school.'
-			elseif hour >= 16 and hour < 18 and homework[k] < daystart:
-				$kidloc = 'working on homework'
-				'<<$kidname[k]>> is working on homework.'
-			else
-				$kidloc = 'watching TV'
-				'<<$kidname[k]>> is watching TV.'
-			end
-		end
-		if kid > 0 and kidage[ks] < 1:
-
-			if lactate > 0:
-				act 'Breast Feed <<$kidname[ks]>>':dyneval($breastfeed)
-			end
-			if $babyloc = 'onto the blanket':
-				act 'Play with <<$kidname[ks]>> (0:20)': dyneval($play)
-			end
-		end
-		if kid > 0 and kidage[ks] >=1 and kidage[ks] <7:
-			if $totloc = 'playing with toys on the floor':
-				act 'Play with <<$kidname[ks]>>(0:30)':dyneval($totplay)
-			elseif $totloc = 'watching tv':
-				act 'Watch TV with <<$kidname[ks]>>(1:00)':dyneval($tottv)
-			end
-		end
-		if kid > 0 and kidage[ks] >=7 and kidage[ks] < 18:
-			if $kidloc = 'watching TV':
-				act 'Watch TV with <<$kidname[ks]>> (1:00)':dyneval($kidtv)
-			elseif $kidloc = 'working on homework':
-				act 'Help <<$kidname[ks]>> with homework.':dyneval($homework)
-			end
-		end
-			"<hr>"
-	end
-
---- kid ---------------------------------
-
+# kid
+
+$breastfeed = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/pc/body/tits/breast_feed.jpg"></center>'
+	'You pick up <<$kidname[ks]>> from <<$kidPosPro[ks]>> crib and cuddle for a moment before exposing your breast.'
+	if rand(1,10) = 10:
+		'You lift <<$kidname[ks]>> to your breast but your <<$sdtext[ks]>> doesn''t latch on.'
+		mood -= 5
+		minut += 5
+	else
+		minut += 15
+
+		breastcounter += 1
+		milkedvolume = func('lact_lib','$get_breastmilk', 2, 15)
+		if milkedvolume < 800:
+			'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. Your baby doesn''t seem to be satisfied with the amount of milk.'
+		else
+			'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. Your baby seems satisfied with the amount of your milk.'
+		end
+	end
+	'You gently lay <<$kidname[ks]>> back <<$babyloc>>.'
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+$play = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/pc/activities/baby_play.jpg"></center>'
+	'You get down on the floor with your <<$sdtext[ks]>> and begin to make face and noises to your little <<$polreb[ks]>>.'
+	'<<$kidname[ks]>> giggles in delight and squirms on the floor in response to you.'
+	'After a while you get up and straighten your clothes before going on with your day.'
+	pcs_mood += 20
+	minut += 20
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+$totplay = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/pc/activities/tot_play.jpg"></center>'
+	'"Mom! Mom! Mom! Mom!" Yells <<$kidname[ks]>>, "Come play with me!"'
+	'"Ok <<$kidname[ks]>>!" You reply.'
+	'You pull out a bin of blocks and spend a period of time playing and building with your child.'
+	'After a short time, <<$kidname[ks]>> pushes over the small tower you have built, snickers and runs off'
+	'You get up, straighten up your clothes, laugh, and move on with your day'
+	pcs_mood += 20
+	minut += 20
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+$tottv = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv.jpg"></center>'
+	'You pull <<$kidname[ks]>> up onto the couch with you and cuddle up to watch TV'
+	'You watch a cartoon featuring a Rabbit, a Duck, and a Pig that is quite silly'
+	mood += 10
+	minut += 60
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+$kidtv = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv2.jpg"></center>'
+	'You attempt to curl up on the couch with <<$kidname[ks]>>'
+	'"Mom! I''m trying to watch TV!" <<$kidname[ks]>> says.'
+	'"Well I am gonna watch with you." You reply, followed by tickling <<$kidname[ks]>> to open up a spot on the couch for you to sit.'
+	'You watch a kids TV show about two American teenagers that barely catches your interest.'
+	minut += 60
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+$homework = {
+	cla
+	*clr
+	if polkid[k] = 0:
+			$kidPosPronn[ks] = 'her'
+		else
+			$kidPosPronn[ks] = 'him'
+	end
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/homework1.jpg"></center>'
+	'You see that <<$kidname[ks]>> is working on a pile of homework. They give kids so much homework now days.'
+	'"Can mommy help you with some of that?" you ask'
+	'<<$kidname[ks]>> replies, "Mommy?!... Mom stop treating me like a baby... but yes, I would like some help."'
+	'<br>'
+	'You sit down at the table next to <<$kidname[ks]>> and begin to help <<$kidPosPronn[ks]>> with the homework'
+	if pcs_grades > 50:
+		'The homework is completed quickly thanks to the attention you payed in school. An A should be an easy achievement.'
+	else
+		'You really wish you had payed more attention in school. The homework is not overly complex but is still not the easiest thing for you.'
+	end
+	homework[ks] = daystart
+	minut += rand(30,80)
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+if $ARGS[0] = 'start':
+	gs 'stat'
+	if kid > 0:
+		k = 0
+		end
+		if lactate > 0 and pain['nipples'] > 60:
+			'You cannot breast feed right now. Your nipples are too sore.'
+		end
+		:loop
+		if k < kid:
+			gs 'kid','kidlist'
+			k += 1
+			jump 'loop'
+		end
+		'Child Selected: <<$kidname[ks]>>'
+		if ks > 0:'<a href="exec:ks -= 1& gt ''kid'', ''start'' ">Select Previous Child</a>'
+		if ks < (kid - 1):'<a href="exec:ks += 1& gt ''kid'', ''start'' ">Select Next Child</a>'
+
+	act 'Leave':
+		cla
+		killvar 'ks'
+		gt $loc, $metka
+	end
+end
+
+if $ARGS[0] = 'kidlist':
+		if kidage[k] < 1:
+			if (month - monthkid[k]) < 1 and (day-daykid[k]) < 7:
+				kiddaycalc[k] = day - daykid[k]
+				if kiddaycalc[k] = 1:
+					$kidagetext[k] = '<<kiddaycalc[k]>> day old'
+				else
+					$kidagetext[k] = '<<kiddaycalc[k]>> days old'
+				end
+			elseif (month - monthkid[k]) < 1 :
+				kiddaycalc[k] = (day - daykid[k]) / 7
+				if kiddaycalc[k] = 1:
+					$kidagetext[k] = '<<kiddaycalc[k]>> week old'
+				else
+					$kidagetext[k] = '<<kiddaycalc[k]>> weeks old'
+				end
+			else
+				kidmonthcalc[k] = (month - monthkid[k])
+				if kidmonthcalc[k] = 1:
+					$kidagetext[k] = '<<kidmonthcalc[k]>> month old'
+				else
+					$kidagetext[k] = '<<kidmonthcalc[k]>> months old'
+				end
+			end
+		else
+			if kidage[k] = 1:
+			$kidagetext[k] = '<<kidage[k]>> year old'
+			else
+			$kidagetext[k] = '<<kidage[k]>> years old'
+			end
+		end
+		if $polreb[k] = 'girl':
+			$sdtext[k] = 'daughter'
+		elseif $polreb[k] = 'boy':
+			$sdtext[k] = 'son'
+		end
+		if polkid[k] = 0:
+			$kidPosPro[k] = 'her'
+		else
+			$kidPosPro[k] = 'his'
+		end
+		if polkid[k] = 0:
+			$kidPosProC[k] = 'Her'
+		else
+			$kidPosProC[k] = 'His'
+		end
+		if polkid[k] = 0:
+			$kidPosProPN[k] = 'She'
+		else
+			$kidPosProPN[k] = 'He'
+		end
+		if ks = k:
+		'<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
+		else:
+		'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.'
+		end
+
+		if kidage[k] < 1:
+			if hour >= 12 and hour < 18:
+			$babyloc = 'onto the blanket'
+			'<<$kidname[k]>></a> is laying on a blanket'
+			else:
+			$babyloc = 'into the crib'
+			'<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
+			end
+
+		elseif kidage[k] >= 1 and kidage[k] < 7:
+			if hour >= 9 and hour < 21 and rkidloc < 8:
+			$totloc = 'playing with toys on the floor'
+			'<<$kidname[k]>> is playing with toys.'
+			elseif hour < 9 or hour >= 21:
+			'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
+			else
+			$totloc = 'watching TV'
+			'<<$kidname[k]>> is watching TV.'
+			end
+		elseif kidage[k] >= 7 and kidage[k] < 18:
+			if hour >= 21 or hour < 8:
+				'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
+			elseif hour >= 8 and hour < 9:
+				'<<$kidname[k]>> is getting ready for school.'
+			elseif hour >= 9 and hour < 16:
+				'<<$kidname[k]>> is at school.'
+			elseif hour >= 16 and hour < 18 and homework[k] < daystart:
+				$kidloc = 'working on homework'
+				'<<$kidname[k]>> is working on homework.'
+			else
+				$kidloc = 'watching TV'
+				'<<$kidname[k]>> is watching TV.'
+			end
+		end
+		if kid > 0 and kidage[ks] < 1:
+
+			if lactate > 0:
+				act 'Breast Feed <<$kidname[ks]>>':dyneval($breastfeed)
+			end
+			if $babyloc = 'onto the blanket':
+				act 'Play with <<$kidname[ks]>> (0:20)': dyneval($play)
+			end
+		end
+		if kid > 0 and kidage[ks] >=1 and kidage[ks] <7:
+			if $totloc = 'playing with toys on the floor':
+				act 'Play with <<$kidname[ks]>>(0:30)':dyneval($totplay)
+			elseif $totloc = 'watching tv':
+				act 'Watch TV with <<$kidname[ks]>>(1:00)':dyneval($tottv)
+			end
+		end
+		if kid > 0 and kidage[ks] >=7 and kidage[ks] < 18:
+			if $kidloc = 'watching TV':
+				act 'Watch TV with <<$kidname[ks]>> (1:00)':dyneval($kidtv)
+			elseif $kidloc = 'working on homework':
+				act 'Help <<$kidname[ks]>> with homework.':dyneval($homework)
+			end
+		end
+			"<hr>"
+	end
+
+--- kid ---------------------------------
+

locations/lact_lib.qsrc

@@ -1,437 +1,437 @@
-# lact_lib
-
-if $ARGS[0] = '$calc_lactatemm':
-
-	!! func('lact_lib', 'calc_lactatemm')
-	!! No arguments at the moment. Information is taken from the global variables 'nbsize', 'lactate','lactateinduced','kid'.
-	!! lactatemm should be calculated every day, so if the breasts size is changed naturally the lactatemm will get higher. No change when silicone tits happen. Only natural breast tissue should make milk.
-	!! Usage: lactatemm = func('lact_lib','$calc_lactatemm')
-	!! RESULT = lactatemm in ml*10
-
-	if lactate = 0:
-		RESULT = 0
-	elseif lactate >0:
-		temp_breastsize = 0
-		temp_breastsize += nbsize
-		temp_var = 0
-		if lactateinduced > 0 and kid <= 0:
-			temp_var = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))/4
-			RESULT = temp_var
-		else
-			RESULT = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))
-		end
-	else
-		cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_lactatemm</i>!</font></b>'
-	end
-end
-
-if $ARGS[0] = '$get_breastmilk':
-
-	!!	func('lact_lib','$get_breastmilk', sucktion_type, sucktion_time)
-	!!	ARGS[1] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6]
-	!!	ARGS[2] = sucktion_time: how many minutes the sucking/pumping takes place
-	!!	Usage: breastmilkvolume = func('lact_lib','$get_breastmilk', 4, 20)
-	!! 	RESULT = Milk in ml*10
-	!! what type of sucktion is happening? different sucktion can cause a different demand of breastmilk. Base rate of sucktion is 10ml/minute.
-
-	soreness_mod = 10
-	breastpumped = 1
-	!! 'suck_flow_rate initialized'
-	if ARGS[1] = 0:
-		!! 'adult sucking'
-		suck_flow_rate = 12 + rand(0,4)
-		temp_var = pcs_mood +(ARGS[2]/8)
-		if temp_var > 100:
-			pcs_mood = 100
-		else
-			pcs_mood += ARGS[2]/8
-		end
-	elseif ARGS[1] = 1:
-		!! 'child sucking'
-		suck_flow_rate = 8 + rand(0,2)
-		temp_var = pcs_mood + (ARGS[2]/2)
-		if temp_var > 100:
-			pcs_mood = 100
-		else
-			pcs_mood += ARGS[2]/2
-		end
-	elseif ARGS[1] = 2:
-		!!	'baby sucking'
-		suck_flow_rate = 6 + (rand(0,2))
-		temp_var = pcs_mood + ARGS[2]
-		if temp_var > 100:
-			pcs_mood = 100
-		else
-			pcs_mood += ARGS[2]
-		end
-	elseif ARGS[1] = 3:
-		!!	'manual_breastpump sucking'
-		suck_flow_rate = 9
-	elseif ARGS[1] = 4:
-		!!	'electric_breastpump sucking'
-		suck_flow_rate = 10
-	elseif ARGS[1] = 5:
-		!! 'hand expression'
-		suck_flow_rate = 3 + rand(1,2)
-	elseif ARGS[1] = 6:
-		!! 'cow milker sucking'
-		suck_flow_rate = 100
-	else
-		!! 'suck flow else branch'
-		suck_flow_rate = 10
-	end
-	!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
-	if breastcounter > 0:
-		temp_var = breastcounter/10
-		soreness_mod += temp_var
-		if soreness_mod > 20: soreness_mod = 20
-		if nipple_cream = 1:
-			soreness_mod += 10
-			nipple_cream = 0
-		end
-	end
-	!! No lactation, no milk, but stimulus is applied, so some things are going to happen here.
-	if lactate = 0:
-		if milkoverdemand <= 0: milkoverdemand = 0
-		pump_stop_brake = 0
-		!!	This is how much milk demand is applied to the breasts. In this function it is needed to calculate the nipple pain and breast pain.
-		max_sucktion_demand = 10*suck_flow_rate*ARGS[2]
-		if pain['nipples'] <= 60:
-			suck_until_pain = ((60 - pain['nipples'])*10*(soreness_mod/10))/suck_flow_rate
-		end
-		temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
-		if temp_var > 60:
-			pain['nipples'] = 65
-			pump_stop_brake = 1
-			pumptime = suck_until_pain
-			max_sucktion_demand = 10*suck_flow_rate*pumptime
-		else
-			pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
-		end
-
-		temp_var = pain['breasts'] + max_sucktion_demand/1000
-		if temp_var > 20:
-			pain['breasts'] = 25
-		else
-			pain['breasts'] += max_sucktion_demand/1000
-		end
-		!! Pumping breasts is exhausting even if no milk comes. so this is handled here.
-
-		temp_var = pcs_energy - max_sucktion_demand/1500
-		if temp_var < 0:
-			pcs_energy = 0
-			!! energy usage flag on.
-			energytomilkpump = 1
-		else
-			pcs_energy -= max_sucktion_demand/1500
-			!! energy usage flag on.
-			energytomilkpump = 1
-		end
-
-		if pumptime < 10:
-			breastcounter += 1
-		else
-			breastcounter += pumptime/10
-		end
-
-		milkoverdemand += max_sucktion_demand
-		RESULT = 0
-	!! If there is lactation, do the magic
-	elseif lactate >0:
-		!!	How much milk can go through the nipple. Base rate is 10ml/minute when sucktion is applied to the nipple. If the demand is higher than the nipple can push through, nipple soreness will happen more quickly.
-		if pcs_nips > 0:
-			max_nip_flow_rate = 6
-		elseif pcs_nips > 20:
-			max_nip_flow_rate = 8
-		elseif pcs_nips > 40:
-			max_nip_flow_rate = 10
-		elseif pcs_nips > 60:
-			max_nip_flow_rate = 12
-		elseif pcs_nips > 80:
-			max_nip_flow_rate = 14
-		elseif pcs_nips > 100:
-			max_nip_flow_rate = 16
-		else
-			max_nip_flow_rate = 10
-		end
-
-		!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
-		if breastcounter > 0:
-			temp_var = breastcounter/10
-			soreness_mod += temp_var
-			if soreness_mod > 20: soreness_mod = 20
-			if nipple_cream = 1:
-				soreness_mod += 10
-				nipple_cream = 0
-			end
-		end
-
-		!!	If you pump more, more milk will come, disregarding nipplesize. Things will get used to milking and be more loose.
-		nip_flow_mod = 1
-		temp_var = breastcounter/10
-		nip_flow_mod += temp_var
-		if nip_flow > 30: nip_flow_mod = 30
-		max_nip_flow_rate += nip_flow_mod
-
-		!!	How much milk demand is applied to the breasts. We want to know if we can just suck out what is already stored or if additional milk production is needed to go through the whole pumping/sucking.
-		!!	If we only need 20ml from a 100ml storage, we would only substract 20ml, leaving 80ml inside the breasts.
-		
-		max_sucktion_demand = 10*suck_flow_rate*ARGS[2]
-		!!	Is enough milk already in the breasts?
-		if lactatemv > max_sucktion_demand:
-			!! can the nipples handle the flow?
-			if max_nip_flow_rate >= suck_flow_rate:
-				milkedvolume = max_sucktion_demand
-				lactatemv -= max_sucktion_demand
-			elseif max_nip_flow_rate < suck_flow_rate:
-				milkedvolume = max_nip_flow_rate*10*ARGS[2]
-				lactatemv -= milkedvolume
-				!!	time for sore nipples. We apply more sucking than the nipples can handle. So it hurts more. if nipple pain over 60, then it goes to 65. else it just adds soreness.
-				max_sucktion_demand -= milkedvolume
-				temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
-				if temp_var > 60:
-					pain['nipples'] = 65
-				else
-					pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
-				end
-			else
-				cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv bigger than max_sucktion_demand fork.</b>'
-			end
-		elseif lactatemv < max_sucktion_demand:
-			!!	Magic!
-			temp_var = (lactatemv/(max_nip_flow_rate*10))
-			if temp_var <= 0 and lactatemv > 0: temp_var = 1
-			pumptime_left = ARGS[2] - temp_var
-			if pumptime_left <= 0 and lactatemv > 0: pumptime_left = 1
-			temp_var = lactaterate/60
-			if temp_var <= 0 and lactaterate > 0: temp_var = 1
-			if temp_var >= max_nip_flow_rate:
-				if ARGS[1] = 2: breastcounter += 50
-				milkedvolume = (max_nip_flow_rate * 10 * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
-				lactatemv -= (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
-			elseif temp_var < max_nip_flow_rate:
-				!!with a baby sucking, more milk should be made due to nature ...
-				if ARGS[1] = 2: milkoverdemand += 100000
-				milkedvolume = (temp_var * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
-				lactatemv -= (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
-			else
-				cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv smaller than max_sucktion_demand fork.</b>'
-			end
-			if lactatemv <= 0: lactatemv = 0
-			!!	the breasts had to produce milk, so energy is used.
-			temp_var = pcs_energy - milkedvolume/1000
-			if temp_var < 0:
-				pcs_energy = 0
-				if rand(0,100) > 90: fat -= 1
-				!!	this is checking if pcs_energy was impacted during milking.
-				energytomilkpump = 1
-			else
-				pcs_energy -= milkedvolume/1000
-				!!	this is checking if pcs_energy was impacted during milking.
-				energytomilkpump = 1
-			end
-			!! the breasts had to produce milk, so hydration is used.
-			temp_var = pcs_hydra - milkedvolume/500
-			if temp_var < 0:
-				pcs_hydra = 0
-				energytomilkpump = 1
-			else
-				pcs_hydra -= milkedvolume/500
-				energytomilkpump = 1
-			end
-			!!	if more is pumped than produced the breasts will hurt too.
-			if milkedvolume < max_sucktion_demand:
-				!!	milkoverdemand: This is used for the daily milk growth. If there is overdemand, the lactaterate will change the next day. Will be set to 0 every day.
-				milkoverdemand += max_sucktion_demand - milkedvolume
-				temp_var = pain['breasts'] + (max_sucktion_demand - milkedvolume)/1000
-				if temp_var > 20:
-					pain['breasts'] = 20
-				else
-					pain['breasts'] += (max_sucktion_demand - milkedvolume)/1000
-				end
-			end
-			if max_nip_flow_rate < suck_flow_rate:
-				!!	sore nipples again. "used to breastpumping" variable needs to come in here too!
-				temp_var = pain['nipples'] + ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
-				if temp_var > 60:
-					pain['nipples'] = 65
-				else
-					pain['nipples'] += ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
-				end
-			end
-		end
-		!! The standard nipple pain applied due to pumping. Adding to the pain that is calculated above
-		temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
-		if temp_var > 60:
-			pain['nipples'] = 65
-		else
-			pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
-		end
-
-		if pumptime < 10:
-			breastcounter += 1
-		else
-			breastcounter += pumptime/10
-		end
-
-		RESULT = milkedvolume
-	else
-		cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b>'
-	end
-end
-
-!! lact_lib
-
-!!	bp_milking - breast pump milking
-!!	use href="exec:gt ''lact_lib'',''bp_milking''"
-
-if $ARGS[0] = 'bp_milking':
-	pumptime = 0
-	pumptype = 0
-	if $location_type ! 'bathroom' and exhibitionist_lvl < 1:
-		'You can''t use it here.'
-	else
-		*clr
-		cla
-		pumptime = input ("How long do you plan to pump your breasts? (Not more than 60 minutes)")
-		if pumptime <= 0 or pumptime > 60:
-			minut += 2
-			act 'Don''t pump':gt $loc, $metka
-		elseif pumptime > 0 and pumptime <= 60:
-			gt 'lact_lib', 'milking'
-		end
-	end
-end
-
-!!	man_milking - manual (with hands) milking
-!!	use href="exec:gt ''lact_lib'',''man_milking''"
-
-if $ARGS[0] = 'man_milking':
-	pumptime = 0
-	pumptype = 1
-	if $location_type ! 'bathroom' and exhibitionist_lvl < 1:
-		'You can''t do this here.'
-	else
-		*clr
-		cla
-		pumptime = input ("How long would you like to milk your breasts? (Not more than 60 minutes)")
-		if pumptime <= 0 or pumptime > 60:
-			minut += 2
-			act 'Don''t milk':gt $loc, $metka
-		elseif pumptime > 0 and pumptime <= 60:
-			gt 'lact_lib', 'milking'
-		end
-	end
-end
-
-!!	milking
-!!	never use directly. Always use bp_milking, man_milking or sex_milking
-
-if $ARGS[0] = 'milking':
-	if pumptime <= 0 or pumptime > 60:
-		act 'Finish':gt $loc, $metka
-	end
-	if pumptype = 1:
-		pumptime = (pumptime*6)/10
-	end
-	if lactate > 0 and pain['nipples'] < 60:
-		milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
-		'<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
-		'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.<br>You give it a few more pumps and detach the pump.<br>You filled the bottle with <<milkedvolume/10>>ml of your milk.'
-		breastcounter += 1
-		if energytomilkpump > 0 and pcs_energy = 0:
-			'<br>During pumping you feel really hungry, producing breast milk seems to be more exhausing then thought.'
-			energytomilkpump = 0
-		elseif energytomilkpump > 0:
-			'<br>You feel a bit thirsty after pumping.'
-			energytomilkpump = 0
-		end
-		if bcream_used = 1:
-			pcs_nips += rand(0,2)
-			bcream_used = 0
-		end
-		minut += pumptime
-	elseif lactate = 0 and pain['nipples'] < 60:
-		if rand(1,50) + prolactinlvl >= rand(200,250):
-			'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
-			'As usual, you attach the pump but after a few pumps white liquid suddenly starts flowing from your nipples.<br>You started lactating!'
-			lactateinduced = 1
-			lactate = 1
-			if func('lact_lib','$calc_lactatemm') > 0: lactatemm = func('lact_lib','$calc_lactatemm')
-			if prolactinlvl < 200: prolactinlvl = 200
-			lactaterate = 10*(prolactinlvl/200)
-			pcs_nips += 2
-			pumpinggrowth = 0
-		else
-			milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
-			'<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
-			'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
-			if prolactinlvl > 70: 'A few droplets of liquid come out of your nipples but it is not milk.'
-			breastcounter += 1
-			if pump_stop_brake = 1:
-				'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
-			end
-			if prolactinlvl > 75:
-				if rand(0,10) > 9:
-					pumpinggrowth += 1
-				end
-				'After finishing, your breasts feel weirdly engorged.'
-			end
-			if bcream_used = 1:
-				pcs_nips += rand(0,2)
-				bcream_used = 0
-			end
-		end
-		minut += pumptime
-	else
-		'Your nipples feel too sore to use the pump right now.'
-	end
-	if milkedvolume > 0:
-		lact_engorgement = 0
-		lactatemess = 0
-		act 'Pour it into the sink':
-			*clr
-			cla
-			'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
-			'<center>You pour <<milkedvolume/10>>ml of your breast milk into the sink and clean up your breastpump.</center>'
-			minute += 5
-			act 'Finish':
-				milkedvolume = 0
-				gt $loc, $metka
-			end
-		end
-		if pcs_hydra < 100:
-			act 'Drink it':
-				*clr
-				cla
-				'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
-				'<center>You drink your own breast milk and clean up your breastpump.</center>'
-				'<center>The milk is still warm from your breasts.</center>'
-				if pcs_hydra < 90:
-					pcs_hydra += 10
-				else
-					pcs_hydra = 100
-				end
-				minute += 7
-				act 'Finish':
-					milkedvolume = 0
-					gt $loc, $metka
-				end
-			end
-		end
-	else
-		act 'Finish':gt $loc, $metka
-	end
-end
-
-!!	engorged_morning
-!!	use href="exec:gt ''lact_lib'',''engorged_morning''"
-
-if $ARGS[0] = 'engorged_morning':
-	minut += 5
-	'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
-	'You wake up and your breasts hurt. As you look down, you can see that you have a heavy letdown. You should pump your breasts as soon as possible.'
-	act 'Finish':gt $loc, $metka
-end
-
+# lact_lib
+
+if $ARGS[0] = '$calc_lactatemm':
+
+	!! func('lact_lib', 'calc_lactatemm')
+	!! No arguments at the moment. Information is taken from the global variables 'nbsize', 'lactate','lactateinduced','kid'.
+	!! lactatemm should be calculated every day, so if the breasts size is changed naturally the lactatemm will get higher. No change when silicone tits happen. Only natural breast tissue should make milk.
+	!! Usage: lactatemm = func('lact_lib','$calc_lactatemm')
+	!! RESULT = lactatemm in ml*10
+
+	if lactate = 0:
+		RESULT = 0
+	elseif lactate >0:
+		temp_breastsize = 0
+		temp_breastsize += nbsize
+		temp_var = 0
+		if lactateinduced > 0 and kid <= 0:
+			temp_var = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))/4
+			RESULT = temp_var
+		else
+			RESULT = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))
+		end
+	else
+		cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_lactatemm</i>!</font></b>'
+	end
+end
+
+if $ARGS[0] = '$get_breastmilk':
+
+	!!	func('lact_lib','$get_breastmilk', sucktion_type, sucktion_time)
+	!!	ARGS[1] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6]
+	!!	ARGS[2] = sucktion_time: how many minutes the sucking/pumping takes place
+	!!	Usage: breastmilkvolume = func('lact_lib','$get_breastmilk', 4, 20)
+	!! 	RESULT = Milk in ml*10
+	!! what type of sucktion is happening? different sucktion can cause a different demand of breastmilk. Base rate of sucktion is 10ml/minute.
+
+	soreness_mod = 10
+	breastpumped = 1
+	!! 'suck_flow_rate initialized'
+	if ARGS[1] = 0:
+		!! 'adult sucking'
+		suck_flow_rate = 12 + rand(0,4)
+		temp_var = pcs_mood +(ARGS[2]/8)
+		if temp_var > 100:
+			pcs_mood = 100
+		else
+			pcs_mood += ARGS[2]/8
+		end
+	elseif ARGS[1] = 1:
+		!! 'child sucking'
+		suck_flow_rate = 8 + rand(0,2)
+		temp_var = pcs_mood + (ARGS[2]/2)
+		if temp_var > 100:
+			pcs_mood = 100
+		else
+			pcs_mood += ARGS[2]/2
+		end
+	elseif ARGS[1] = 2:
+		!!	'baby sucking'
+		suck_flow_rate = 6 + (rand(0,2))
+		temp_var = pcs_mood + ARGS[2]
+		if temp_var > 100:
+			pcs_mood = 100
+		else
+			pcs_mood += ARGS[2]
+		end
+	elseif ARGS[1] = 3:
+		!!	'manual_breastpump sucking'
+		suck_flow_rate = 9
+	elseif ARGS[1] = 4:
+		!!	'electric_breastpump sucking'
+		suck_flow_rate = 10
+	elseif ARGS[1] = 5:
+		!! 'hand expression'
+		suck_flow_rate = 3 + rand(1,2)
+	elseif ARGS[1] = 6:
+		!! 'cow milker sucking'
+		suck_flow_rate = 100
+	else
+		!! 'suck flow else branch'
+		suck_flow_rate = 10
+	end
+	!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
+	if breastcounter > 0:
+		temp_var = breastcounter/10
+		soreness_mod += temp_var
+		if soreness_mod > 20: soreness_mod = 20
+		if nipple_cream = 1:
+			soreness_mod += 10
+			nipple_cream = 0
+		end
+	end
+	!! No lactation, no milk, but stimulus is applied, so some things are going to happen here.
+	if lactate = 0:
+		if milkoverdemand <= 0: milkoverdemand = 0
+		pump_stop_brake = 0
+		!!	This is how much milk demand is applied to the breasts. In this function it is needed to calculate the nipple pain and breast pain.
+		max_sucktion_demand = 10*suck_flow_rate*ARGS[2]
+		if pain['nipples'] <= 60:
+			suck_until_pain = ((60 - pain['nipples'])*10*(soreness_mod/10))/suck_flow_rate
+		end
+		temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+		if temp_var > 60:
+			pain['nipples'] = 65
+			pump_stop_brake = 1
+			pumptime = suck_until_pain
+			max_sucktion_demand = 10*suck_flow_rate*pumptime
+		else
+			pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+		end
+
+		temp_var = pain['breasts'] + max_sucktion_demand/1000
+		if temp_var > 20:
+			pain['breasts'] = 25
+		else
+			pain['breasts'] += max_sucktion_demand/1000
+		end
+		!! Pumping breasts is exhausting even if no milk comes. so this is handled here.
+
+		temp_var = pcs_energy - max_sucktion_demand/1500
+		if temp_var < 0:
+			pcs_energy = 0
+			!! energy usage flag on.
+			energytomilkpump = 1
+		else
+			pcs_energy -= max_sucktion_demand/1500
+			!! energy usage flag on.
+			energytomilkpump = 1
+		end
+
+		if pumptime < 10:
+			breastcounter += 1
+		else
+			breastcounter += pumptime/10
+		end
+
+		milkoverdemand += max_sucktion_demand
+		RESULT = 0
+	!! If there is lactation, do the magic
+	elseif lactate >0:
+		!!	How much milk can go through the nipple. Base rate is 10ml/minute when sucktion is applied to the nipple. If the demand is higher than the nipple can push through, nipple soreness will happen more quickly.
+		if pcs_nips > 0:
+			max_nip_flow_rate = 6
+		elseif pcs_nips > 20:
+			max_nip_flow_rate = 8
+		elseif pcs_nips > 40:
+			max_nip_flow_rate = 10
+		elseif pcs_nips > 60:
+			max_nip_flow_rate = 12
+		elseif pcs_nips > 80:
+			max_nip_flow_rate = 14
+		elseif pcs_nips > 100:
+			max_nip_flow_rate = 16
+		else
+			max_nip_flow_rate = 10
+		end
+
+		!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
+		if breastcounter > 0:
+			temp_var = breastcounter/10
+			soreness_mod += temp_var
+			if soreness_mod > 20: soreness_mod = 20
+			if nipple_cream = 1:
+				soreness_mod += 10
+				nipple_cream = 0
+			end
+		end
+
+		!!	If you pump more, more milk will come, disregarding nipplesize. Things will get used to milking and be more loose.
+		nip_flow_mod = 1
+		temp_var = breastcounter/10
+		nip_flow_mod += temp_var
+		if nip_flow > 30: nip_flow_mod = 30
+		max_nip_flow_rate += nip_flow_mod
+
+		!!	How much milk demand is applied to the breasts. We want to know if we can just suck out what is already stored or if additional milk production is needed to go through the whole pumping/sucking.
+		!!	If we only need 20ml from a 100ml storage, we would only substract 20ml, leaving 80ml inside the breasts.
+		
+		max_sucktion_demand = 10*suck_flow_rate*ARGS[2]
+		!!	Is enough milk already in the breasts?
+		if lactatemv > max_sucktion_demand:
+			!! can the nipples handle the flow?
+			if max_nip_flow_rate >= suck_flow_rate:
+				milkedvolume = max_sucktion_demand
+				lactatemv -= max_sucktion_demand
+			elseif max_nip_flow_rate < suck_flow_rate:
+				milkedvolume = max_nip_flow_rate*10*ARGS[2]
+				lactatemv -= milkedvolume
+				!!	time for sore nipples. We apply more sucking than the nipples can handle. So it hurts more. if nipple pain over 60, then it goes to 65. else it just adds soreness.
+				max_sucktion_demand -= milkedvolume
+				temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+				if temp_var > 60:
+					pain['nipples'] = 65
+				else
+					pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+				end
+			else
+				cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv bigger than max_sucktion_demand fork.</b>'
+			end
+		elseif lactatemv < max_sucktion_demand:
+			!!	Magic!
+			temp_var = (lactatemv/(max_nip_flow_rate*10))
+			if temp_var <= 0 and lactatemv > 0: temp_var = 1
+			pumptime_left = ARGS[2] - temp_var
+			if pumptime_left <= 0 and lactatemv > 0: pumptime_left = 1
+			temp_var = lactaterate/60
+			if temp_var <= 0 and lactaterate > 0: temp_var = 1
+			if temp_var >= max_nip_flow_rate:
+				if ARGS[1] = 2: breastcounter += 50
+				milkedvolume = (max_nip_flow_rate * 10 * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+				lactatemv -= (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+			elseif temp_var < max_nip_flow_rate:
+				!!with a baby sucking, more milk should be made due to nature ...
+				if ARGS[1] = 2: milkoverdemand += 100000
+				milkedvolume = (temp_var * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+				lactatemv -= (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+			else
+				cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv smaller than max_sucktion_demand fork.</b>'
+			end
+			if lactatemv <= 0: lactatemv = 0
+			!!	the breasts had to produce milk, so energy is used.
+			temp_var = pcs_energy - milkedvolume/1000
+			if temp_var < 0:
+				pcs_energy = 0
+				if rand(0,100) > 90: fat -= 1
+				!!	this is checking if pcs_energy was impacted during milking.
+				energytomilkpump = 1
+			else
+				pcs_energy -= milkedvolume/1000
+				!!	this is checking if pcs_energy was impacted during milking.
+				energytomilkpump = 1
+			end
+			!! the breasts had to produce milk, so hydration is used.
+			temp_var = pcs_hydra - milkedvolume/500
+			if temp_var < 0:
+				pcs_hydra = 0
+				energytomilkpump = 1
+			else
+				pcs_hydra -= milkedvolume/500
+				energytomilkpump = 1
+			end
+			!!	if more is pumped than produced the breasts will hurt too.
+			if milkedvolume < max_sucktion_demand:
+				!!	milkoverdemand: This is used for the daily milk growth. If there is overdemand, the lactaterate will change the next day. Will be set to 0 every day.
+				milkoverdemand += max_sucktion_demand - milkedvolume
+				temp_var = pain['breasts'] + (max_sucktion_demand - milkedvolume)/1000
+				if temp_var > 20:
+					pain['breasts'] = 20
+				else
+					pain['breasts'] += (max_sucktion_demand - milkedvolume)/1000
+				end
+			end
+			if max_nip_flow_rate < suck_flow_rate:
+				!!	sore nipples again. "used to breastpumping" variable needs to come in here too!
+				temp_var = pain['nipples'] + ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
+				if temp_var > 60:
+					pain['nipples'] = 65
+				else
+					pain['nipples'] += ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
+				end
+			end
+		end
+		!! The standard nipple pain applied due to pumping. Adding to the pain that is calculated above
+		temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+		if temp_var > 60:
+			pain['nipples'] = 65
+		else
+			pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+		end
+
+		if pumptime < 10:
+			breastcounter += 1
+		else
+			breastcounter += pumptime/10
+		end
+
+		RESULT = milkedvolume
+	else
+		cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b>'
+	end
+end
+
+!! lact_lib
+
+!!	bp_milking - breast pump milking
+!!	use href="exec:gt ''lact_lib'',''bp_milking''"
+
+if $ARGS[0] = 'bp_milking':
+	pumptime = 0
+	pumptype = 0
+	if $location_type ! 'bathroom' and exhibitionist_lvl < 1:
+		'You can''t use it here.'
+	else
+		*clr
+		cla
+		pumptime = input ("How long do you plan to pump your breasts? (Not more than 60 minutes)")
+		if pumptime <= 0 or pumptime > 60:
+			minut += 2
+			act 'Don''t pump':gt $loc, $metka
+		elseif pumptime > 0 and pumptime <= 60:
+			gt 'lact_lib', 'milking'
+		end
+	end
+end
+
+!!	man_milking - manual (with hands) milking
+!!	use href="exec:gt ''lact_lib'',''man_milking''"
+
+if $ARGS[0] = 'man_milking':
+	pumptime = 0
+	pumptype = 1
+	if $location_type ! 'bathroom' and exhibitionist_lvl < 1:
+		'You can''t do this here.'
+	else
+		*clr
+		cla
+		pumptime = input ("How long would you like to milk your breasts? (Not more than 60 minutes)")
+		if pumptime <= 0 or pumptime > 60:
+			minut += 2
+			act 'Don''t milk':gt $loc, $metka
+		elseif pumptime > 0 and pumptime <= 60:
+			gt 'lact_lib', 'milking'
+		end
+	end
+end
+
+!!	milking
+!!	never use directly. Always use bp_milking, man_milking or sex_milking
+
+if $ARGS[0] = 'milking':
+	if pumptime <= 0 or pumptime > 60:
+		act 'Finish':gt $loc, $metka
+	end
+	if pumptype = 1:
+		pumptime = (pumptime*6)/10
+	end
+	if lactate > 0 and pain['nipples'] < 60:
+		milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
+		'<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
+		'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.<br>You give it a few more pumps and detach the pump.<br>You filled the bottle with <<milkedvolume/10>>ml of your milk.'
+		breastcounter += 1
+		if energytomilkpump > 0 and pcs_energy = 0:
+			'<br>During pumping you feel really hungry, producing breast milk seems to be more exhausing then thought.'
+			energytomilkpump = 0
+		elseif energytomilkpump > 0:
+			'<br>You feel a bit thirsty after pumping.'
+			energytomilkpump = 0
+		end
+		if bcream_used = 1:
+			pcs_nips += rand(0,2)
+			bcream_used = 0
+		end
+		minut += pumptime
+	elseif lactate = 0 and pain['nipples'] < 60:
+		if rand(1,50) + prolactinlvl >= rand(200,250):
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
+			'As usual, you attach the pump but after a few pumps white liquid suddenly starts flowing from your nipples.<br>You started lactating!'
+			lactateinduced = 1
+			lactate = 1
+			if func('lact_lib','$calc_lactatemm') > 0: lactatemm = func('lact_lib','$calc_lactatemm')
+			if prolactinlvl < 200: prolactinlvl = 200
+			lactaterate = 10*(prolactinlvl/200)
+			pcs_nips += 2
+			pumpinggrowth = 0
+		else
+			milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
+			'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
+			if prolactinlvl > 70: 'A few droplets of liquid come out of your nipples but it is not milk.'
+			breastcounter += 1
+			if pump_stop_brake = 1:
+				'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
+			end
+			if prolactinlvl > 75:
+				if rand(0,10) > 9:
+					pumpinggrowth += 1
+				end
+				'After finishing, your breasts feel weirdly engorged.'
+			end
+			if bcream_used = 1:
+				pcs_nips += rand(0,2)
+				bcream_used = 0
+			end
+		end
+		minut += pumptime
+	else
+		'Your nipples feel too sore to use the pump right now.'
+	end
+	if milkedvolume > 0:
+		lact_engorgement = 0
+		lactatemess = 0
+		act 'Pour it into the sink':
+			*clr
+			cla
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
+			'<center>You pour <<milkedvolume/10>>ml of your breast milk into the sink and clean up your breastpump.</center>'
+			minute += 5
+			act 'Finish':
+				milkedvolume = 0
+				gt $loc, $metka
+			end
+		end
+		if pcs_hydra < 100:
+			act 'Drink it':
+				*clr
+				cla
+				'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
+				'<center>You drink your own breast milk and clean up your breastpump.</center>'
+				'<center>The milk is still warm from your breasts.</center>'
+				if pcs_hydra < 90:
+					pcs_hydra += 10
+				else
+					pcs_hydra = 100
+				end
+				minute += 7
+				act 'Finish':
+					milkedvolume = 0
+					gt $loc, $metka
+				end
+			end
+		end
+	else
+		act 'Finish':gt $loc, $metka
+	end
+end
+
+!!	engorged_morning
+!!	use href="exec:gt ''lact_lib'',''engorged_morning''"
+
+if $ARGS[0] = 'engorged_morning':
+	minut += 5
+	'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
+	'You wake up and your breasts hurt. As you look down, you can see that you have a heavy letdown. You should pump your breasts as soon as possible.'
+	act 'Finish':gt $loc, $metka
+end
+
 --- lac_lib ---------------------------------

locations/lover_change.qsrc

@@ -473,7 +473,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
 						end
 					elseif randchan = 1 and tatass = 0:
-						randchan = rand(1, 24)
+						randchan = rand(1, 25)
 						!!randchan = 21
 						if tatass = 0 and tattCount < tattPrefTmpMin:
 							tatass = randchan
@@ -482,7 +482,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
 						end
 					elseif randchan = 2 and tatback = 0:
-						randchan = rand(1, 56)
+						randchan = rand(1, 61)
 						!!randchan = 2
 						if tatback = 0 and tattCount < tattPrefTmpMin:
 							tatback = randchan
@@ -502,7 +502,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
 						end
 					elseif randchan = 4 and tatbrst = 0:
-						randchan = rand(1, 10)
+						randchan = rand(1, 11)
 						!!randchan = 8
 						if tatbrst = 0 and tattCount < tattPrefTmpMin:
 							tatbrst = randchan
@@ -538,7 +538,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
 						end
 					elseif randchan = 8 and tatleg = 0:
-						randchan = rand(1, 37)
+						randchan = rand(1, 47)
 						!!randchan = 2
 						if tatleg = 0 and tattCount < tattPrefTmpMin:
 							tatleg = randchan
@@ -565,7 +565,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
 						end
 					elseif randchan = 11 and tatvag = 0:
-						randchan = rand(1, 47)
+						randchan = rand(1, 53)
 						!!randchan = 6
 						if tatvag = 0 and tattCount < tattPrefTmpMin:
 							tatvag = randchan

locations/pirsingsalon.qsrc

@@ -650,7 +650,7 @@ if $ARGS[0] = 'ass':
 		:looptatass
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''ass_get''"><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 24:jump 'looptatass'
+		if n <= 25:jump 'looptatass'
 		*nl
 
 	else
@@ -692,7 +692,7 @@ if $ARGS[0] = 'back':
 		:looptatback
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''back_get''"><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 56:jump 'looptatback'
+		if n <= 61:jump 'looptatback'
 		*nl
 
 	else
@@ -776,7 +776,7 @@ if $ARGS[0] = 'breast':
 		:looptatbreast
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''breast_get''"><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 10:jump 'looptatbreast'
+		if n <= 11:jump 'looptatbreast'
 		*nl
 
 	else
@@ -944,7 +944,7 @@ if $ARGS[0] = 'leg':
 		:looptatleg
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''leg_get''"><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 37:jump 'looptatleg'
+		if n <= 47:jump 'looptatleg'
 		*nl
 
 	else
@@ -1070,7 +1070,7 @@ if $ARGS[0] = 'pubic':
 		:looptatvag
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''vag_get''"><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 47:jump 'looptatvag'
+		if n <= 53:jump 'looptatvag'
 		*nl
 
 	else

locations/preTG.qsrc

@@ -436,15 +436,15 @@ if $ARGS[0] = 'sleepPRE':
 		*nl
 		'"Well, yes. I won''t argue about that." Tatiana agrees. "It''s your life and you decide what you do with it, but for the time being, you cannot go back to your old life, so deal with it. On a side note, I already took care of an alibi. Today Michael crashed his car into the pit and died, it''s on the news." With these words, Tatiana picked up the remote and turned on the TV.'
 
-		$pcs_firstname = input("What is your first name? (Leave blank for default)")
+		$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
 
 		if $pcs_firstname = '': $pcs_firstname = 'Svetlana'
 
-		$pcs_lastname = input("What is your last name? (Leave blank for default)")
+		$pcs_lastname = input("What is your last name? (Leave blank for Lebedev)")
 
 		if $pcs_lastname = '': $pcs_lastname = 'Lebedev'
 
-		$pcs_nickname = input("What is your nickname? (Note: If you chose a custom name, you have to enter something here!)")
+		$pcs_nickname = input("What is your alternative first name? (Leave blank for Sveta - this is your familiar name so re-enter first name if you do not want one)")
 
 		if $pcs_nickname = '': $pcs_nickname = 'Sveta'
 

locations/saveupdater.qsrc

@@ -343,14 +343,13 @@ if $home_town = '':
 end
 
 !! exhibition to inhib
-if exhibition_to_inhib = 0:
+if pcs_exhibition ! 0:
 	pcs_inhib = pcs_exhibition
 	inhib_exp = exhibition_exp
 	inhib_lvlst = pcs_exhibition
 	inhib_lvl = pcs_exhibition
 	killvar 'pcs_exhibition'
 	killvar 'exhibition_exp'
-	exhibition_to_inhib = 1
 end
 
 --- saveupdater ---------------------------------

locations/sexshop.qsrc

@@ -192,7 +192,7 @@ if $ARGS[0] = 'start':
 				lubri += portion * 5
 				money -= portion * 300
 				minut += 5
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 				'You bought some lubricant and paid the cashier.'
 			end
 
@@ -224,7 +224,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			dildo = 1
 			money -= 800
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
@@ -240,7 +240,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			middildo = 1
 			money -= 850
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 15cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -256,7 +256,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			largedildo = 1
 			money -= 900
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 20cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -272,7 +272,7 @@ if $ARGS[0] = 'start':
 			minut += 15
 			bigdildo = 1
 			money -= 950
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 25cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -288,7 +288,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			extradildo = 1
 			money -= 1000
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 30cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -304,7 +304,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			superdildo = 1
 			money -= 1100
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 35cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -320,7 +320,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			maddildo = 1
 			money -= 1200
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a 40cm long dildo and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop','start'
@@ -336,7 +336,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			vibrator = 1
 			money -= 800
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a vibrator and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
@@ -352,19 +352,19 @@ if $ARGS[0] = 'start':
 			minut += 5
 			strapon = 1
 			money -= 1200
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a strapon and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
 		end
-	elseif money >= 500 and strapon = 0:
+	elseif money >= 500 and strapon = 0 and dildo = 1:
 		act 'Buy a strapon harness (500 <b>₽</b>)':
 			cla
 			*clr
 			minut += 5
 			strapon = 1
 			money -= 500
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a strapon and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'
@@ -380,7 +380,7 @@ if $ARGS[0] = 'start':
 			minut += 5
 			analplug = 1
 			money -= 800
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 			'You bought a butt plug and paid the cashier.'
 
 			act 'Move away from the counter':gt 'sexshop', 'start'

locations/stat_display.qsrc

@@ -1329,4 +1329,3 @@ end
 
 --- stat_display ---------------------------------
 
->>>>>>> 48c11b415a2f0467c4e8bcf088acba01ca5cc362

locations/stripclub.qsrc

@@ -19,20 +19,9 @@ if $ARGS[0] = 'start':
 	
 	if hour = 2:
 		'The strip club is closing and security guard ushers everyone out.'
-	elseif hour > 2 and hour < 15:
+	elseif hour > 2 and hour < 11:
 		'The strip club is closed. You notice a sign on the door: The business hours are between 15 - 02.'
 	else
-
-		if rand(1, 100) <= 30 and stripday ! daystart:
-			stripday = daystart
-			cfnm = 1
-		elseif stripday ! daystart:
-			stripday = daystart
-			cfnm = 0
-		end
-
-		if cfnm = 1:'Tonight''s performance will only feature male strippers. The entrance fee is 500 <b>₽</b>.'
-		if cfnm = 0:'Tonight''s performance will only feature female strippers. The entrance fee is 300 <b>₽</b>.'
 		
 		if stripdolg > 0:
 			if money >= 50000:
@@ -144,13 +133,7 @@ if $ARGS[0] = 'start':
 					end
 				end
 			end
-
-			if cfnm = 0 and stripwork > 0:
-				act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
-			
-			elseif cfnm > 0 and stripwork > 0:
-				'The strip club is closed off to female employees today, male strippers only.'
-			end
+			act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
 		end
 	end
 

locations/stwork.qsrc

@@ -38,46 +38,45 @@ if $ARGS[0] = 'start':
 
 	publichot = pcs_dancero/2 + pcs_apprnc/4 + city_stripping/4 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5 + stripKoef6 + stripKoef7
 	publichotstart = publichot
-
-	if hour >= 18 or hour <= 2:
-		if cumloc[1] = 0 and cumloc[2] = 0 and cumloc[4] = 0 and cumloc[5] = 0 and cumloc[6] = 0 and cumloc[7] = 0 and cumloc[11] = 0 and cumloc[14] = 0:
-			if pcs_makeup >= 4:
-				if pcs_hairbsh = 1:
-					if pcs_sweat < 20:
-						if pcs_leghair <= 3 and pcs_pubes <= 3:
-							if fingal <= 0:
-								act '<b>Go on stage</b>':stpredmet = 3 & gt 'stwork2', 'strip'
+	act 'Exit the club':gt 'stripclub', 'start'
+	act '<b>Go on stage</b>':
+		if hour >= 11 or hour <= 2:
+			if cumloc[1] = 0 and cumloc[2] = 0 and cumloc[4] = 0 and cumloc[5] = 0 and cumloc[6] = 0 and cumloc[7] = 0 and cumloc[11] = 0 and cumloc[14] = 0:
+				if pcs_makeup >= 4:
+					if pcs_hairbsh = 1:
+						if pcs_sweat < 20:
+							if pcs_leghair <= 3 and pcs_pubes <= 19:
+								if fingal <= 0:
+									stpredmet = 3 & gt 'stwork2', 'strip'
+								else
+									'You aren''t allowed on stage, because of the black eye.'
+								end
 							else
-								'You aren''t allowed on stage, because of the black eye.'
+								'Nobody wants to see a stripper with hairy legs and untrimmed pubes. Have a shave before you go on stage!'
 							end
 						else
-							'Nobody wants to see a stripper with hairy legs and hairy pubes. Have a shave before you go on stage.'
+							'Damn, you stink like a pigsty, take a shower before going on stage.'
 						end
 					else
-						'Damn, you stink like a pigsty, take a shower before going on stage.'
+						'The least you can do is brush your hair.'
 					end
 				else
-					'The least you can do is brush your hair.'
+					'You need to put on very thick makeup if you want people to be impressed by your beauty.'
 				end
 			else
-				'You need to put on very thick makeup if you want people to be impressed by your beauty.'
+				'There is some visible semen on your body. Wash yourself off before going on stage.'
 			end
 		else
-			'There is some visible semen on your body. Wash yourself off before going on stage.'
+			'You''re done for today. Time to head home.'
 		end
-	else
-		'You''re done for today. Time to head home.'
 	end
-	
+	act 'Use staff toilet':gt 'stwork', 'toilet'
+	act 'Look in the mirror': gt 'mirror', 'start'
+	act 'Change your clothes':gt 'wardrobe', 'start'
 	act 'Have a cup of water (0:05)':gs 'beverage', 'bev_wat'
 	if money >= 100:
 		act 'Have a snack (0:05) (100 <b>₽</b>)': money -= 100 & gs 'food', 'snack'
 	end
-	act 'Look in the mirror': gt 'mirror', 'start'
-	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
-	act 'Change your clothes':gt 'wardrobe', 'start'
-	act 'Use staff toilet':gt 'stwork', 'toilet'
-	act 'Exit the club':gt 'stripclub', 'start'
 end
 
 if $ARGS[0] = 'stripgirl':
@@ -122,14 +121,31 @@ if $ARGS[0] = 'toilet':
 	''
 	'You enter a dirty and smelly staff bathroom that''s probably never been cleaned.'
 	'There is no mirror, only a grimy shower, toilet, and basin'
-
+	act 'Leave the toilet':gt 'stwork', 'start'
+	act 'Have a shower and get ready for work':
+		cls
+		dynamic $showerdin
+		minut += 10
+		makupskl_exp += rand(1,3)
+		kosmetica -= 3
+		vidageday -= 1
+		pcs_makeup = 4
+		pcs_hairbsh = 1
+		'<h3>Staf Toilet</h3>'
+		'<h5>Shower</h5>'
+		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelShower.jpg"></center>'
+		*nl
+		'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly, brush your hair, and put on heavy you makeup for the customers.'
+		dynamic $brit
+		act 'Get out and dry off':gt $locM, $metkaM
+	end
 	act 'Have a shower':
 		cls
 		dynamic $showerdin
 		'<h3>Staf Toilet</h3>'
 		'<h5>Shower</h5>'
 		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelShower.jpg"></center>'
-		''
+		*nl
 		'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly to be as clean as possible for potential customers.'
 		dynamic $brit
 		act 'Get out and dry off':gt $locM, $metkaM
@@ -157,8 +173,6 @@ if $ARGS[0] = 'toilet':
 	dynamic $tampon
 	dynamic $quickwash
 	dynamic $basin
-
-	act 'Leave the toilet':gt 'stwork', 'start'
 end
 
 --- stwork ---------------------------------

locations/stwork2.qsrc

@@ -6,18 +6,19 @@ if $ARGS[0] = 'strip':
 	'<center><b><font color="maroon">Stage</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'
 
-	if publichot < 10:$pubhot = 'booing you, you hear someone shout, "Get this stupid cow off the stage."'
-	if publichot >= 10 and publichot < 20:$pubhot = 'clearly showing discontent with your dancing. They want you off the stage as quickly as possible.'
-	if publichot >= 20 and publichot < 30:$pubhot = 'clearly looking bored, drinking and talking among themselves, ignoring you.'
-	if publichot >= 30 and publichot < 60:$pubhot = 'sometime looking at you, smiling and enjoy the performance.'
-	if publichot >= 60 and publichot < 70:$pubhot = 'watching you with genuine interest while conversing with each other over their beers.'
-	if publichot >= 70 and publichot < 80:$pubhot = 'having their attention focused on you.'
-	if publichot >= 80 and publichot < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
-	if publichot >= 90:$pubhot = 'completely indulged in you. They''re clapping and waving money at you trying to get you attention.'
+	if striptip < 10:$pubhot = 'booing you, you hear someone shout, "Get this stupid cow off the stage."'
+	if striptip >= 10 and striptip < 20:$pubhot = 'clearly showing discontent with your dancing. They want you off the stage as quickly as possible.'
+	if striptip >= 20 and striptip < 30:$pubhot = 'clearly looking bored, drinking and talking among themselves, ignoring you.'
+	if striptip >= 30 and striptip < 60:$pubhot = 'sometime looking at you, smiling and enjoy the performance.'
+	if striptip >= 60 and striptip < 70:$pubhot = 'watching you with genuine interest while conversing with each other over their beers.'
+	if striptip >= 70 and striptip < 80:$pubhot = 'having their attention focused on you.'
+	if striptip >= 80 and striptip < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
+	if striptip >= 90:$pubhot = 'completely indulged in you. They''re clapping and waving money at you trying to get you attention.'
 
 	'There are men sitting in front of the stage <<$pubhot>>.'
 
-	if hour >= 18 or hour <= 2:
+	if hour >= 11 or hour <= 2:
+		if stpredmet = 3:lapdance = 0
 		if stpredmet > 0:
 			act 'Striptease 5 minutes (<<stpredmet>> items of clothing)':
 				cls
@@ -25,7 +26,6 @@ if $ARGS[0] = 'strip':
 				stpredmet -= 1
 				pcs_sweat += 5
 				fat -= 3
-				pcs_mood -= rand(2, 6)
 				dancero_exp += rand(2, 4)
 				inhib_exp += rand(2,5)
 				city_stripping += rand(1,2)
@@ -33,9 +33,8 @@ if $ARGS[0] = 'strip':
 				if stpredmet = 1:pcs_sweat += 5
 				if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
 
-				publichot += rand(pcs_dancero/5, pcs_dancero/3)
-
-				if publichotstart = publichot: publichot -= rand(5, 10) & publichotstart = publichot
+				striptip = rand(pcs_dancero,100)
+				lapdance += striptip
 
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
@@ -45,7 +44,7 @@ if $ARGS[0] = 'strip':
 					vesrand = rand(0, 100)
 
 					if vesrand >= 75:
-						publichot -= rand(5, 10)
+						striptip -= rand(5, 10)
 						'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
 					end
 				end
@@ -70,10 +69,9 @@ if $ARGS[0] = 'strip':
 				if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
 
 				!pcs_hairbsh = 0
-				publichot += rand(pcs_dancero / 10, pcs_dancero / 5)+ rand(pcs_dancpol / 5, pcs_dancpol / 2)
-
-				if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
-
+				striptip = rand(pcs_dancpol,100)
+				lapdance += striptip
+				
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
 				'You step up on the stage and the music starts. You grab hold of the pole and acrobatically slide around it while you teasingly undress.'
@@ -83,7 +81,7 @@ if $ARGS[0] = 'strip':
 
 					if vesrand >= 75:
 						'Performing another trick on the pole you can not support your weight and fall flat to the floor. The crowd laughs, "Hey, hippopotamus, stomp back to the swamp where you came from."'
-						publichot -= 15
+						striptip -= 15
 						fingalrand = rand(0, 100)
 						if fingalrand >= 75:
 							fingal += rand(2, 5)
@@ -93,7 +91,7 @@ if $ARGS[0] = 'strip':
 						end
 					end
 					if vesrand >= 50:
-						publichot -= rand(5, 10)
+						striptip -= rand(5, 10)
 						'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
 					end
 				end
@@ -105,9 +103,9 @@ if $ARGS[0] = 'strip':
 		end
 
 		if stpredmet = 0:
-			if publichot >= 70:
+			if lapdance >= 150:
 				privatrand = rand(0, 100)
-				if privatrand >= 70:
+				if privatrand >= 50:
 					'After you finish dance, the security guard approaches you and tells you that you have a customer wanting a private show.'
 					gs 'stwork2', 'privatdance'
 					exit
@@ -126,19 +124,19 @@ if $ARGS[0] = 'tipcalculator':
 	paymin = 0
 	paymax = 0
 	
-	if publichot < 30:
+	if striptip < 30:
 		'Nobody even noticed you or your efforts on the stage.'
-	elseif publichot < 60:
+	elseif striptip < 60:
 		'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
-	elseif publichot < 70:
+	elseif striptip < 70:
 		paymax = 1
 		if payrand = 0: 'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
-	elseif publichot < 80:
+	elseif striptip < 80:
 		chance = 5
 		paymin = 3
 		paymax = 10
 		'The customers are pleased with your performance. They give you a small tip.'
-	elseif publichot < 90:
+	elseif striptip < 90:
 		chance = 10
 		paymin = 10
 		paymax = 50

locations/vanrPar.qsrc

@@ -64,7 +64,7 @@ if $ARGS[0] = 'peek':
 				end
 			end
 		end
-	elseif hour >= 18 and hour <= 21 and brother_ev1 ! daystart and rand(0,2) = 1:
+	elseif hour >= 18 and hour <= 23 and brother_ev1 ! daystart and rand(0,4) < 2:
 		cla
 		*clr
 		brother_ev1 = daystart

locations/young_shop.qsrc

@@ -19,7 +19,7 @@ if $ARGS[0] = 'start':
 
 	if young_shop_work = 0 and young_shop_work1 = 0 and young_shop_work2 = 0:
 		*nl
-		'As you enter, you notice a for hire sign with a note scribbled on it that reads, "<b>The Manager Mr. Sobulyagin works weekdays from 09:00 to 18:00; Applicants should speak to him weekdays BEFORE 14:30!</b>"'
+		'As you enter, you notice a for hire sign with a note scribbled on it that reads, "<b>The Manager Mr. Sobulyagin works weekdays from 09:00 to 20:00, weekends 09:00 to 15:00; Applicants should speak to him weekdays BEFORE 14:30!</b>"'
 		if hour >= 9 and (hour < 15 or (hour = 14 and minut <= 30)) and week < 6:
 			act 'Talk to the manager':
 				minut += 1
@@ -124,27 +124,27 @@ end
 if $ARGS[0] = 'events':
 	random = rand(1, 80)
 
-	if random < 75:
+	if random > 75:
 		gs 'young_shop', '0'
-	elseif random < 70:
+	elseif random > 70:
 		gs 'young_shop', '1'
-	elseif random < 65:
+	elseif random > 65:
 		gs 'young_shop', '2'
-	elseif random < 60:
+	elseif random > 60:
 		gs 'young_shop', '3'
-	elseif random < 55:
+	elseif random > 55:
 		gs 'young_shop', '4'
-	elseif random < 55:
+	elseif random > 55:
 		gs 'young_shop', '5'
-	elseif random < 45:
+	elseif random > 45 and week ! 5 and work ! 7:
 		gs 'young_shop', '6'
-	elseif random < 40:
+	elseif random > 40:
 		gs 'young_shop', '7'
-	elseif random < 35:
+	elseif random > 35:
 		gs 'young_shop', '8'
-	elseif random < 30:
+	elseif random > 30:
 		gs 'young_shop', '9'
-	elseif random < 27:
+	elseif random > 27:
 		gs 'young_shop', '10'
 	elseif random = 27:
 		gs 'young_shop', '11'
@@ -351,7 +351,7 @@ if $ARGS[0] = '6':
 
 	act 'Stay for another hour':
 		cla
-		minut+= 70
+		minut += 70
 		young_shop_bonus += 3
 		gs 'stat'
 		'It seems that you have no choice. You can''t let down your co-workers.'