Lots of fixes. Cum handling, implantation, moving redundant phrasing

into functions, lots of little tweaks & cleanup, reorganizing .gitignore
slightly, an experimental change to the taxi driver scene, etc.

.gitignore

@@ -1,7 +1,11 @@
-images
-sound
+images/
+sound/
+music/
+.*
 *.qsp
 *.sav
 glife.txt
 qgen.cfg
 qspgui.cfg
+avatar.*
+

glife.qproj

@@ -220,6 +220,7 @@
       <Location name="police"/>
       <Location name="qjob"/>
       <Location name="sex"/>
+      <Location name="sexprefrand"/>
       <Location name="sexdvanadva"/>
       <Location name="sexdvoe"/>
       <Location name="svidboy"/>
@@ -886,6 +887,8 @@
 		<Location name="cum_arrcheat"/>
 		<Location name="cum_cleanup"/>
 		<Location name="cum_call"/>
+		<Location name="pregriskeval"/>
+		<Location name="cuminsidereact"/>
     </Folder>
     <Location name="LBZhouse"/>
     <Location name="femcyc"/>

locations/BDsex

@@ -668,13 +668,7 @@ if $ARGS[0] = 'cum':
 
 			manna -= 15
 			willpower -= 15
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact'
 		elseif finrand = 1:
 			!!out
 			if pose = 0:

locations/Cum_Manage

@@ -19,49 +19,62 @@
 	16 = 'In your hair'
 	17 = 'In a condom in your vagina'}
 
+!{ values of 'sexcontra'
+	0 = 'No contraception used'
+	1 = 'You lied about being on the pill'
+	2 = 'You were on the pill'
+	3 = 'You used a condom'
+	4 = 'The condom broke'
+	5 = 'The condom slipped off inside you'
+	6 = 'The condom was sabotaged by someone else'
+	7 = 'You sabotaged the condom'}
+
+
 if $ARGS[0] = '':
 	!{Sets the cum array temp to the current size of the cum array, to add a new entry to the end of file. Then checks to see if you are on the pill. If you are and there is no contraception used, it flags this as a "done with pill" act, which means a pregnancy will be a pill failure.}
-	cumarrtemp = arrsize('$cumarrnam')
+	cumarr_idx = arrsize('$cumarrnam')
 	if sexcontra = 0 and pillcon > 0: sexcontra = 2
-	if vibratorIN = 1 and spafinloc = 0: vibratorIN = 0
-	if analplugIN = 1 and spafinloc = 3: analplugIN = 0
+	if vibratorIN = 1 and spafinloc = 0 and replace_vib = 0: vibratorIN = 0
+	if analplugIN = 1 and spafinloc = 3 and replace_analplug = 0: analplugIN = 0
 	!{It checks to see if this is flagged as a preejaculate emmission. All vaginal penetrations that flag this as cumprecheck contain preejaculate. Guidelines for calling it: If your boy is likely to have masterbated, had sex, or otherwise encouraged semen to leak out of their urethra in the last 48 hours, they probably have some fertile preejaculate. If in doubt, let it leak. The chances of pregnancy from it are low, and the MC should have been wearing protection.}
 	if cumprecheck ! 1:
-	!{Here it checks for vaginal deposit. If it is, it sees if theres a deposit made by someone named the same. If so, it checks if this new act is protected. If it isnt, it overwrites the old deposit.}
+		!{Here it checks for vaginal deposit. If it is, it sees if theres a deposit made by someone named the same. If so, it checks if this new act is protected. If it isnt, it overwrites the old deposit.}
 		if spafinloc <= 0:
-!			arrmodtmp = arrpos('$cumarrnam',$boy)
-!			if arrmodtmp >= 0:
-!				if $cumarrnam[arrmodtmp] = $boy and cumarrdel[arrmodtmp] = 0 and sexcontra < 3: cumarrtemp = arrmodtmp
-!			end
-	!{Next it sets the variables in the array. The cumming boys name first, sets the cum age to 0, then the cum delivery location to vaginally, then sees if its a unknowing sex act. If it is, it makes it so the MC doesnt know who did it. Then if the boy has a custom specified potency, it flags the potency. Otherwise it sets it to the default.}
-			$cumarrnam[cumarrtemp] = $boy
-			cumarrage[cumarrtemp] = 0
-			cumarrdel[cumarrtemp] = 0
-			if sexunaware > 0:
-				cumarrkno[cumarrtemp] = -2
-			elseif sexpartkno = 0:
-				cumarrkno[cumarrtemp] = 0
+			tmp_idx = arrpos('$cumarrnam',$boy)
+			if tmp_idx >= 0:
+				if $cumarrnam[tmp_idx] = $boy and cumarrdel[tmp_idx] = 0 and sexcontra < 3: cumarr_idx = tmp_idx
+			end
+
+			!{Next it sets the variables in the array. The cumming boys name first, sets the cum age to 0, then the cum delivery location to vaginally, then sees if its a unknowing sex act. If it is, it makes it so the MC doesnt know who did it. Then if the boy has a custom specified potency, it flags the potency. Otherwise it sets it to the default.}
+			$cumarrnam[cumarr_idx] = $boy
+			cumarrage[cumarr_idx] = 0
+			cumarrdel[cumarr_idx] = 0
+			if sexunaware > 0 and sexpartkno = 0:
+				cumarrkno[cumarr_idx] = 0
 			else
-				cumarrkno[cumarrtemp] = 1
+				cumarrkno[cumarr_idx] = 1
 			end
 			if sexspecpot ! 0:
-				cumarrppt[cumarrtemp] = sexspecpot
+				cumarrppt[cumarr_idx] = sexspecpot
 			else
-				cumarrppt[cumarrtemp] = 10000
+				cumarrppt[cumarr_idx] = 10000
 			end
-	!{Now it sets up the splatter and actual internal cum. First it sets the array to the spatter end of file. Then it checks for riding bareback. If theres a condom, it gives a chance for the condom to fail in general, slip off and remain in the vagina, or break. The cumarrcpt, or current internal potency of the sperm, is set dependent on what happened. the contraception type is also set. For bursting or slippage, a spatter is created.}
-			cumarrtemp2 = arrsize('sparrvol')
-			arrmodtmp = arrsize('sparrvol')
+
+			!{Now it sets up the splatter and actual internal cum. First it sets the array to the spatter end of file. Then it checks for riding bareback. If theres a condom, it gives a chance for the condom to fail in general, slip off and remain in the vagina, or break.}
+			sparr_idx = arrsize('sparrvol')
+			tmp_idx = arrsize('sparrvol')
 			:arrmodloop1
-			if sparrloc[arrmodtmp] = spafinloc and $sparrnam[arrmodtmp] = $boy and sexcontra < 3:
-			cumarrtemp2 = arrmodtmp
+			if sparrloc[tmp_idx] = spafinloc and $sparrnam[tmp_idx] = $boy and sexcontra < 3:
+				sparr_idx = tmp_idx
 			else
-			arrmodtmp -= 1
-			if arrmodtmp >= 0: jump 'arrmodloop1'
+				tmp_idx -= 1
+				if tmp_idx >= 0: jump 'arrmodloop1'
 			end
-			if sparrppt[0] = 0 and cumarrtemp2 = 1: cumarrtemp2 = 0
+
+			if sparrppt[0] = 0 and sparr_idx = 1: sparr_idx = 0
+			!{If a condom is used, determine if the condom broke or fell off}
 			if sexcontra > 2:
-				if sexcontra = 3:
+				if sexcontra = 3 or sexcontra = 6 or sexcontra = 7:
 					temprand = rand(0,1000)
 					dick_wid = 3
 					if $dick_girth = 'skinny': dick_wid = 2
@@ -72,138 +85,101 @@ if $ARGS[0] = '':
 					if $dick_girth = 'massive': dick_wid = 5
 					if $dick_girth = 'monstrous': dick_wid = 6
 
+					!{More likely to break with big dicks and tight pussies}
 					break_thresh = dick_wid * 2
 					break_thresh -= vagina / 4
 					break_thresh += dick / 4
+
+					!{More likely to slip with skinny dicks and tight pussies}
 					slip_thresh = 18 - (dick_wid * 2)
 					slip_thresh -= (vagina / 2)
 					slip_thresh -= dick / 4
 
 					if break_thresh < 4: break_thresh = 4
 					if slip_thresh < 1: slip_thresh = 1
+					!{Much more likely to break if sabotaged}
+					if sexcontra = 6 or sexcontra = 7: break_thresh += 10
 					break_thresh += slip_thresh
 
-					if temprand = 0:
-						cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/4
-						cumarrcon[cumarrtemp] = 3
-					elseif temprand < slip_thresh:
-						cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/200
-						cumarrcon[cumarrtemp] = 5
-						cumcondslip = 1
-						cumcondsanb = cumarrtemp
+					if temprand <= slip_thresh:
 						sexcontra = 5
-						sparrage[cumarrtemp2] = 0
-						sparrloc[cumarrtemp2] = 17
-						$sparrnam[cumarrtemp2] = $boy
-						if sexspecpot ! 0:
-							sparrppt[cumarrtemp2] = sexspecpot
-						else
-							sparrppt[cumarrtemp2] = 10000
-						end
-						sparrvol[cumarrtemp2] += sexvolume
-						cumsumbod += sexvolume
-						cumsumvag += sexvolume
-						if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
-						sparridt[cumarrtemp2] = sexpartkno
-						sparrslc[cumarrtemp2] = 0
 					elseif temprand <= break_thresh:
-						cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/2
-						cumarrcon[cumarrtemp] = 4
 						sexcontra = 4
-						sparrage[cumarrtemp2] = 0
-						sparrloc[cumarrtemp2] = 0
-						$sparrnam[cumarrtemp2] = $boy
-						if sexspecpot ! 0:
-							sparrppt[cumarrtemp2] = sexspecpot
-						else
-							sparrppt[cumarrtemp2] = 10000
-						end
-						sparrvol[cumarrtemp2] += sexvolume
-						cumsumbod += sexvolume
-						cumsumvag += sexvolume
-						if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
-						sparridt[cumarrtemp2] = sexpartkno
-						sparrslc[cumarrtemp2] = 0
-					else
-						cumarrcpt[cumarrtemp] = 5
-						cumarrcon[cumarrtemp] = 3
 					end
-	!{Next it checks to see if the event is calling specifically for a burst or slipped off condom. It treats them the same as if the condom above had a failure.}
+				end
+				!{Take final value of sexcontra and apply cum potency, age, etc. as appropriate.}
+				cumarrcon[cumarr_idx] = sexcontra
+				if sexcontra = 3:
+					cumarrcpt[cumarr_idx] += 0
 				elseif sexcontra = 4:
-					cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/2
-					cumarrcon[cumarrtemp] = 4
-					sparrage[cumarrtemp2] = 0
-					sparrloc[cumarrtemp2] = 0
-					$sparrnam[cumarrtemp2] = $boy
+					cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx]/2
+					sparrage[sparr_idx] = 0
+					sparrloc[sparr_idx] = 0
+					$sparrnam[sparr_idx] = $boy
 					if sexspecpot ! 0:
-						sparrppt[cumarrtemp2] = sexspecpot
+						sparrppt[sparr_idx] = sexspecpot
 					else
-						sparrppt[cumarrtemp2] = 10000
+						sparrppt[sparr_idx] = 10000
 					end
-					sparrvol[cumarrtemp2] += sexvolume
+					sparrvol[sparr_idx] += sexvolume
 					cumsumbod += sexvolume
 					cumsumvag += sexvolume
-					if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
-					sparridt[cumarrtemp2] = sexpartkno
-					sparrslc[cumarrtemp2] = 0
+					if sexvolume <= 0: sparrvol[sparr_idx] += 40 & cumsumbod += 40 & cumsumvag += 40
+					sparridt[sparr_idx] = sexpartkno
+					sparrslc[sparr_idx] = 0
 				elseif sexcontra = 5:
-					cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/200
-					cumarrcon[cumarrtemp] = 5
+					cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx]/20
 					cumcondslip = 1
-					cumcondsanb = cumarrtemp
-					sparrage[cumarrtemp2] = 0
-					sparrloc[cumarrtemp2] = 17
-					$sparrnam[cumarrtemp2] = $boy
+					cumcondsanb = cumarr_idx
+					sparrage[sparr_idx] = 0
+					sparrloc[sparr_idx] = 17
+					$sparrnam[sparr_idx] = $boy
 					if sexspecpot ! 0:
-						sparrppt[cumarrtemp2] = sexspecpot
+						sparrppt[sparr_idx] = sexspecpot
 					else
-						sparrppt[cumarrtemp2] = 10000
+						sparrppt[sparr_idx] = 10000
 					end
-					sparrvol[cumarrtemp2] += sexvolume
+					sparrvol[sparr_idx] += sexvolume
 					cumsumbod += sexvolume
 					cumsumvag += sexvolume
-					if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
-					sparridt[cumarrtemp2] = sexpartkno
-					sparrslc[cumarrtemp2] = 0
-	!{!Next it checks for sabotaged condoms. First sabotaged by you, then sabotaged by the guy. If they were sabotaged, it acts similar to a condom failure, but worse.}
-				elseif sexcontra = 6:
-					cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/3
-					cumarrcon[cumarrtemp] = 6
-				elseif sexcontra = 7:
-					cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/3
-					cumarrcon[cumarrtemp] = 7
+					if sexvolume <= 0: sparrvol[sparr_idx] += 40 & cumsumbod += 40 & cumsumvag += 40
+					sparridt[sparr_idx] = sexpartkno
+					sparrslc[sparr_idx] = 0
+					!{!Next it checks for sabotaged condoms. First sabotaged by you, then sabotaged by the guy. If they were sabotaged, it acts similar to a condom failure, but worse.}
+				elseif sexcontra = 6 or sexcontra = 7:
+					cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx]/3
 				end
-	!{If you have no protection, you get a nice full load of semen.}
+				!{If you have no protection, you get a nice full load of semen.}
 			else
-				sparrage[cumarrtemp2] = 0
-				sparrloc[cumarrtemp2] = 0
-				$sparrnam[cumarrtemp2] = $boy
+				sparrage[sparr_idx] = 0
+				sparrloc[sparr_idx] = 0
+				$sparrnam[sparr_idx] = $boy
 				if sexspecpot ! 0:
-					sparrppt[cumarrtemp2] = sexspecpot
+					sparrppt[sparr_idx] = sexspecpot
 				else
-					sparrppt[cumarrtemp2] = 10000
+					sparrppt[sparr_idx] = 10000
 				end
-				sparrvol[cumarrtemp2] += sexvolume
+				sparrvol[sparr_idx] += sexvolume
 				cumsumbod += sexvolume
 				cumsumvag += sexvolume
-				if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
-				sparridt[cumarrtemp2] = sexpartkno
-				sparrslc[cumarrtemp2] = 0
-				cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/5*4
-				cumarrcon[cumarrtemp] = sexcontra
+				if sexvolume <= 0: sparrvol[sparr_idx] += 40 & cumsumbod += 40 & cumsumvag += 40
+				sparridt[sparr_idx] = sexpartkno
+				sparrslc[sparr_idx] = 0
+				cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx]/5*4
+				cumarrcon[cumarr_idx] = sexcontra
 			end
-	!{If you arent getting it in the vagina, and the boy isnt pumping it into a condom, a spatter is made and applied. If you arent wearing any panties and it was called to hit your panties, it goes directly to your groin. If you are naked and it calls for a clothing strike, it will go to your body instead.}
+			!{If you arent getting it in the vagina, and the boy isnt pumping it into a condom, a spatter is made and applied. If you arent wearing any panties and it was called to hit your panties, it goes directly to your groin. If you are naked and it calls for a clothing strike, it will go to your body instead.}
 		elseif spafinloc > 0 and sexcontra < 3:
-			cumarrtemp2 = arrsize('sparrvol')
-			arrmodtmp = arrsize('sparrvol')
+			sparr_idx = arrsize('sparrvol')
+			tmp_idx = arrsize('sparrvol')
 			:arrmodloop2
-			if sparrloc[arrmodtmp] = spafinloc and $sparrnam[arrmodtmp] = $boy and sexcontra < 3:
-			cumarrtemp2 = arrmodtmp
+			if sparrloc[tmp_idx] = spafinloc and $sparrnam[tmp_idx] = $boy and sexcontra < 3:
+			sparr_idx = tmp_idx
 			else
-			arrmodtmp -= 1
-			if arrmodtmp >= 0: jump 'arrmodloop2'
+			tmp_idx -= 1
+			if tmp_idx >= 0: jump 'arrmodloop2'
 			end
-			sparrage[cumarrtemp2] = 0
+			sparrage[sparr_idx] = 0
 			if tanga = 0:
 				if spafinloc = 2:
 					spafinloc = 1
@@ -230,59 +206,57 @@ if $ARGS[0] = '':
 					end
 				end
 			end
-			sparrloc[cumarrtemp2] = spafinloc
+			sparrloc[sparr_idx] = spafinloc
 			if spafinloc = 12 and swallow >= 10 and rand(0,3) = 0: energy += 2
-			$sparrnam[cumarrtemp2] = $boy
+			$sparrnam[sparr_idx] = $boy
 			if sexspecpot ! 0:
-				sparrppt[cumarrtemp2] = sexspecpot
+				sparrppt[sparr_idx] = sexspecpot
 			else
-				sparrppt[cumarrtemp2] = 10000
+				sparrppt[sparr_idx] = 10000
 			end
-			sparrvol[cumarrtemp2] += sexvolume
+			sparrvol[sparr_idx] += sexvolume
 			cumsumbod += sexvolume
-			if sexvolume <= 0: sparrvol[cumarrtemp2] += 40 & cumsumbod += 40 & cumsumvag += 40
+			if sexvolume <= 0: sparrvol[sparr_idx] += 40 & cumsumbod += 40 & cumsumvag += 40
 			if spafinloc = 3:
 				cumsumass += sexvolume
 				if sexvolume <= 0: cumsumass += 40
 			end
-			sparridt[cumarrtemp2] = sexpartkno
-			sparrslc[cumarrtemp2] = 0
+			sparridt[sparr_idx] = sexpartkno
+			sparrslc[sparr_idx] = 0
 		end
 		sexpartkno = 0
 		sexunaware = 0
 		sexspecpot = 0
-	!{And this is the pre ejaculate release talked about above.}
-	elseif sexcontra < 3 and spafinloc = 0:
-!		arrmodtmp = arrpos('$cumarrnam',$boy)
-!		if arrmodtmp >= 0:
-!			if cumarrdel[arrmodtmp] = 0 and cumarrcpt[arrmodtmp] <= ((cumarrppt[arrmodtmp]/12) + 1) and sexcontra < 3: cumarrtemp = arrmodtmp
-!		end
-		$cumarrnam[cumarrtemp] = $boy
-		cumarrage[cumarrtemp] = 0
-		cumarrdel[cumarrtemp] = 0
-		cumarrkno[cumarrtemp] = -1
+	elseif (sexcontra < 3 or sexcontra > 5) and spafinloc = 0:
+		!{And this is the pre ejaculate release talked about above.}
+		tmp_idx = arrpos('$cumarrnam',$boy)
+		if tmp_idx ! -1 and cumarrdel[tmp_idx] = 0: cumarr_idx = tmp_idx
+		$cumarrnam[cumarr_idx] = $boy
+		cumarrage[cumarr_idx] = 0
+		cumarrdel[cumarr_idx] = 0
+		cumarrkno[cumarr_idx] = 0
 		if sexspecpot ! 0:
-			cumarrppt[cumarrtemp] = sexspecpot
+			cumarrppt[cumarr_idx] = sexspecpot
 		else
-			cumarrppt[cumarrtemp] = 10000
+			cumarrppt[cumarr_idx] = 10000
 		end
-		cumarrcon[cumarrtemp] = sexcontra
-		cumarrcpt[cumarrtemp] = cumarrppt[cumarrtemp]/12
+		cumarrcon[cumarr_idx] = sexcontra
+		cumarrcpt[cumarr_idx] = cumarrppt[cumarr_idx]/12
 	end
 
 	sexspecpot = 0
 	cumprecheck = 0
 	spafinloc = 0
 	sexvolume = 0
-	arrmodtmp = 0
+	tmp_idx = 0
 	dynamic $din_Update_Condom_Counts
 	if cumsumass >= 60:
-		arrmodtmp = arrpos('sparrloc',3)
-		if sparrslc[arrmodtmp] <= 0: sparrslc[arrmodtmp] += 1
+		tmp_idx = arrpos('sparrloc',3)
+		if sparrslc[tmp_idx] <= 0: sparrslc[tmp_idx] += 1
 	end
 	if cumsumvag >= 60:
-		arrmodtmp = arrpos('sparrloc',0)
-		if sparrslc[arrmodtmp] <= 0: sparrslc[arrmodtmp] += 1
+		tmp_idx = arrpos('sparrloc',0)
+		if sparrslc[tmp_idx] <= 0: sparrslc[tmp_idx] += 1
 	end
 end
 

locations/StasSex

@@ -36,13 +36,7 @@ if SStip = 0:
 
 			manna -= 15
 			willpower -= 15
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact'
 			
 			act 'Breathe':
 				cls

locations/brother

@@ -14,16 +14,16 @@ brotherknowslut: brother knowledge of your sexual activity (1 = seen cum, 2 = gr
 pregTalkBrother: Flag 0/1 Do your brother know you are pregnant
 brotherDay:
 brotherSexCount: the number of times left that you can have sex with your brother today (resets to 5 each day)
-brotherMorningSex: Last day this happend. Used to block to once a day. 
-brotherNightSex: Last day this happend. Used to block to once a day. 
-brotherEvSex: Last day this happend. Used to block to once a day. 
+brotherMorningSex: Last day this happend. Used to block to once a day.
+brotherNightSex: Last day this happend. Used to block to once a day.
+brotherEvSex: Last day this happend. Used to block to once a day.
 brother_homework: last day you helped your brother with homework. Used to block to once a day.
 brother_saw_analplug: 0/1 Have your brother seen you with analplug
 brother_body_show
 brother_knows_not_virgin
 natbro:  number of times Natasha sucked your brother (can only happen once at the moment)
 BrotherNo:
-brother_ev1 
+brother_ev1
 brotherConfidence: if it is over 10 he might try and touch you during a homework (not used yet)
 '!
 
@@ -95,7 +95,7 @@ if hour >= 7 and hour < 21:
 		'Surprised, your brother looks at your tummy. "<<$name>>, are you pregnant? '
 		pregTalkBrother = 1
 	end
-		
+
 		if $clothingworntype ! 'nude' and pregTalkBrother = 0 and pregchem > 3460:
 		'Surprised, your brother looks at your tummy, "<<$name>>, why didn''t you tell me I''m going to be an uncle? '
 		pregTalkBrother = 1
@@ -183,7 +183,7 @@ if $loc = 'gschool_grounds':
 									'You tell them that you are curious. The guys aren''t pleased, but Kolka persuades them.'
 									'They have found spare key for an AV lounge at the school that is not used in the evenings and you all sneak in.'
 
-									act 'Go watch porn':minut += 5 & gt 'seeporn'   
+									act 'Go watch porn':minut += 5 & gt 'seeporn'
 
 								end
 							else
@@ -239,7 +239,7 @@ if $loc = 'gschool_grounds':
 								gs 'stat'
 								'You tell them that you are curious. The guys aren''t pleased, but Kolka persuades them.'
 
-								act 'Go watch porn':minut += 5 & gt 'seeporn'   
+								act 'Go watch porn':minut += 5 & gt 'seeporn'
 
 							end
 						else
@@ -280,7 +280,7 @@ if $loc = 'sitrPar':
 			if  brotherSex = 0:
 				'He abruptly withdraws his hand and apologizes for his rudeness. You have no choice, but to apologise, that wasn''t fair. You cover your chest.'
 			else
-				'Seeing the pleasure playing with your nipples brings you, he begins to play harder with your piercings, sometimes squeezing your exposed Breasts. 
+				'Seeing the pleasure playing with your nipples brings you, he begins to play harder with your piercings, sometimes squeezing your exposed Breasts.
 				After playing for a while, he lets go of your breasts, and says, "I really like your new additions."'
 			end
 			horny+=10
@@ -339,17 +339,18 @@ if $loc = 'sitrPar':
 					dick = brotherDick
 					silavag = 0
 					pose = 0
-						
+
 					gs 'stat'
 
 					'<center><img src="images/img/sex/nae22.jpg"></center>'
 					'Approaching your brother, you gently pull back the covers and carefully straddle his sleeping body, taking care not to wake him.'
 					if son <= 50 and rand(0,4) =0:
-							
+
+						$risk_boy = 'your own brother'
 						dynamic $sexstart3
 						dynamic $sleepsexcum
 						dynamic $brothersleepSexEnd
-					else 
+					else
 						protect = 0
 						vidageday -= 1
 
@@ -363,14 +364,15 @@ if $loc = 'sitrPar':
 								sexcontra = 3
 								'You take a condom and put it on <<$boy>>.'
 							end
-							
+
 						end
+					$risk_boy = 'your own brother'
 					dynamic $sexstart3
-					dynamic $sleepsexcum	
+					dynamic $sleepsexcum
 					dynamic $brothersleepSexEnd
 					end
-				end	
-			else 
+				end
+			else
 				act 'Solve your brother''s morning problem':
 					cls
 					minut += 5
@@ -388,7 +390,7 @@ if $loc = 'sitrPar':
 
 					'<center><img src="images/qwest/alexey/bj6.jpg"></center>'
 					'Approaching your brother, you gently pull back the covers and begin to suck his <<brotherDick>> cm dick. After a few minutes, he moans softly in his sleep and his cock twitches.'
-					'Your mouth quickly fills with warm sperm and you feel its sharp taste.'			
+					'Your mouth quickly fills with warm sperm and you feel its sharp taste.'
 					'Swallowing the semen, you gently replace the blanket and, seeing a slight smile on your sleeping brother, you leave.'
 
 					act '<B>Move away</B>':gt 'sitrPar'
@@ -460,7 +462,7 @@ $sleepsexcum = {
 	if protect ! 1:
 		!!Unprotected sex
 
-		if rand(0, 2) < 2:
+		if rand(0, 100) > horny:
 			!!Inside
 			sexpartkno = 1
 			gs 'cum_manage'
@@ -468,13 +470,7 @@ $sleepsexcum = {
 			manna -= 15
 			willpower -= 15
 
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', 'your own brother'
 		else
 			!!Out
 
@@ -502,10 +498,10 @@ $sleepsexcum = {
 		end
 	elseif protect = 1:
 		protect = 0
-		
+
 		if rand(0, 89) = 0:sexcontra = 4
 		sexpartkno = 1
-		gs 'cum_manage'	
+		gs 'cum_manage'
 		if sexcontra = 4:
 			'You pull off of <<$boy>> and look at his dick. and think "Oh shit! The condom burst."'
 		elseif sexcontra = 5:
@@ -513,7 +509,7 @@ $sleepsexcum = {
 		else
 			'<<$boy>> groans and you realize that he came in the condom.'
 		end
-		sexcontra = 0
+		gs 'cuminsidereact', 'your own brother'
 	end
 
 	pose = 0
@@ -543,7 +539,7 @@ $brother_showbody = {
 		'"<<$nickname>>, I have to learn about human anatomy, but I am having trouble with it. Can you help me?'
 		'"What do you mean?" You ask, a little confused.'
 		'"Well, um..." Kolka hesitated, "Can you show me what girls look like...'
-		if sub < 30: 
+		if sub < 30:
 			act'No way':
 				cla
 				'"How the fuck can I do that? Should I just take my clothes off in front of you and let you gawk at me? I''m your sister!"'
@@ -552,7 +548,7 @@ $brother_showbody = {
 			end
 		end
 		if sub < 30: act'Takeout':gt $CURLOC
-		
+
 		act'Huh...':
 			cla
 			brotherQW = 4
@@ -561,7 +557,7 @@ $brother_showbody = {
 			'You sigh and shake your head, "Surely your text books have pictures"'
 			'"There are pictures, but everything is so badly written, and the teacher skipped the lesson, saying "You already know everything." He explains with flushed face.'
 			'"Okay, I will help you, but only if you don''t tell anyone. Agreed? I''m serious, not a single person!" You say in a strict tone.'
-			'"<<$nickname>>, I promise not a word to anyone!"' 
+			'"<<$nickname>>, I promise not a word to anyone!"'
 			'After his promise you consider what to do.'
 			act'Undress':gt'brother','brother_voyeur_ev4'
 		end
@@ -780,6 +776,7 @@ $brotherSexStart = {
 					'<center><img src="images/nigma/gor/ш1,<<rand(0,11)>>.gif"></center>'
 					'You lie on the sofa and brother lies on top of you.'
 
+					$risk_boy = 'your own brother'
 					dynamic $sexstart
 					dynamic $sexstart2
 					dynamic $sexcum
@@ -794,15 +791,15 @@ $brotherSexStart = {
 					horny += 10
 					$boy = 'Kolka'
 					dick = brotherDick
-		
+
 					gs 'stat'
-					
+
 					!Pictures already in folder - Gifs should be added.
 					'<center><img src="images/nigma/gor/ш3,<<rand(0,4)>>.gif"></center>'
 					'You turn away from Kolka and give him an inviting look while you spread your butt. He doesn''t need more encouragement than that.'
-		
+
 					dynamic $analsex
-		
+
 					dynamic $brotherSexEnd
 				end
 			end
@@ -823,6 +820,7 @@ $brotherSexStart = {
 			'<center><img src="images/nigma/gor/ш1,<<rand(0,11)>>.gif"></center>'
 			'You lie on the sofa and brother lies on top of you.'
 
+			$risk_boy = 'your own brother'
 			dynamic $sexstart
 			dynamic $sexstart2
 			dynamic $sexcum
@@ -839,7 +837,7 @@ $brotherSexStart = {
 			dick = brotherDick
 
 			gs 'stat'
-			
+
 			!Pictures already in folder - Gifs should be added.
 			'<center><img src="images/nigma/gor/ш3,<<rand(0,4)>>.gif"></center>'
 			'You turn away from Kolka and give him an inviting look while you spread your butt. He doesn''t need more encouragement than that.'
@@ -908,7 +906,7 @@ $brotherSexCount = {
 	end
 
 	if brotherDay = 0:brotherDay = 1
-	
+
 }
 
 
@@ -1039,7 +1037,7 @@ $brother_anus_check = {
 			'"And how does it feel?"'
 			'"Do you want to try?"'
 			'"Em... No, thank you. <<$nickname>>, do all girls like it?"'
-			'"I don''t know... I haven''t asked them all" you blush as the conversation continues.' 
+			'"I don''t know... I haven''t asked them all" you blush as the conversation continues.'
 		elseif brother_saw_analplug = 1:
 			'"There it is again with this thing in your ass?" asked Kolka, obviously referring to sex-toy in your ass.'
 			'"Aha..." you coquettishly answer.'
@@ -1164,7 +1162,7 @@ if $ARGS[0] = 'brother_voyeur_ev5':
 			'"Oh..."'
 		end
 		act'Further':gt 'brother','brother_voyeur_ev6'
-		
+
 	end
 end
 
@@ -1183,7 +1181,7 @@ if $ARGS[0] = 'brother_voyeur_ev6':
 		'"You know." Kolka points towards your vagina'
 		'"I don''t know, I think this has gone too far already." you answer indignantly.'
 		'"Please show me!" Kolka pleads'
-		if sub < 30: 
+		if sub < 30:
 			act'Refuse and dress':gt $CURLOC
 		end
 		act'Show':gt 'brother','brother_voyeur_ev7'
@@ -1191,7 +1189,7 @@ if $ARGS[0] = 'brother_voyeur_ev6':
 		'"<<$nickname>>, how about closer?"'
 		'"Closer again?"'
 		'"Again." He grins "Please?"'
-		if sub < 30: 
+		if sub < 30:
 			act'Refuse and dress':gt $CURLOC
 		end
 		act'Show':gt 'brother','brother_voyeur_ev7'
@@ -1218,7 +1216,7 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 		'"I said enough!" You say in a harsh tone and dress.'
 		act 'Move away':gt $CURLOC
 	elseif brotherQW > 4:
-		'You sit in the chair and spreads your legs wide. Using the tips of your fingers you part your labia slightly revealing your <<$vaginatipe2>> pussy:' 
+		'You sit in the chair and spreads your legs wide. Using the tips of your fingers you part your labia slightly revealing your <<$vaginatipe2>> pussy:'
 		'"Wow!" Your brother exclaims.'
 		'"Satisfied now?" You ask.'
 		'"Nearly..."'
@@ -1262,20 +1260,20 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 				'"Can you help me relieve some tension?" Kolka asks.'
 				'"How?"'
 				'"Just don''t get dressed and stay there, I will do everything myself."'
-				if sub < 30: 
+				if sub < 30:
 					act'Refuse and dress':gt $CURLOC
 				end
-				act'Help':gt 'brother','brother_voyeur_ev8' 
+				act'Help':gt 'brother','brother_voyeur_ev8'
 			elseif brotherQW > 5:
-				'"Anything else?"' 
+				'"Anything else?"'
 				'"Same as last time? I really liked it" Kolka asks.'
-				if sub < 30: 
+				if sub < 30:
 					act'Refuse and dress':gt $CURLOC
 				end
 				act'Help':gt 'brother','brother_voyeur_ev8'
 			end
 		end
-		
+
 	end
 end
 

locations/cum_call

@@ -12,7 +12,7 @@ ARGS[3] is contraception, if left blank it will use the default, if you want to
 	4 - the Condom Broke. This is mostly used to check if cum manage resulted in a broken condom.
 	5 - the Condom Slipped off. Like 4, this is mostly to check if the contraception of 3 had a failure. But both 4 and 5 can be specified if you want to write an event where it fails no matter what.
 	6 - the condom was Sabotaged but the main character shouldn't know that
-	7 - the Condom was Sabotaged by the main character.[/spoiler]
+	7 - the Condom was Sabotaged by the main character.
 ARGS[4] is for changing the potency, -1 for unable to impregnate, default is 10,000
 ARGS[5] is a special unaware, for things like unconscious sex, set to 1 for on
 For a simple call you only need the first 2, ie:
@@ -21,6 +21,8 @@ gs 'cum_call', 'anus' - for an unknown partner}
 
 if ARGS[5] = 1:
 	sexunaware = 1
+else:
+	sexpartkno = 1
 end
 
 if ARGS[4] ! 0:

locations/cum_cleanup

@@ -16,7 +16,7 @@ if sparrloc[temp] = 3: cumsumass += sparrvol[temp]
 
 !{Full Body Clean}
 if cumspclnt = 1:
-	if sparrloc[temp] = 0 or sparrloc[temp] = 1 or sparrloc[temp] = 3 or sparrloc[temp] = 4 or sparrloc[temp] >= 8:
+	if (sparrloc[temp] = 0 and vibratorIN = 0 and sparrage[temp] > 0) or sparrloc[temp] = 1 or (sparrloc[temp] = 3 and analplugIN = 0 and sparrage[temp] > 0) or sparrloc[temp] = 4 or sparrloc[temp] >= 8:
 		KILLVAR 'spafinloc',temp
 		KILLVAR 'sparrage',temp
 		KILLVAR 'sparrloc',temp

locations/cuminsidereact

@@ -0,0 +1,52 @@
+# cuminsidereact
+
+argc = arrsize('$ARGS')
+
+if $risk_boy = '':
+	if argc > 0:
+		$risk_boy = $ARGS[0]
+	else:
+		$risk_boy = ''
+	end
+end
+if argc > 1:
+	eff_contra = ARGS[1]
+else:
+	eff_contra = sexcontra
+end
+
+tmp = func 'pregriskeval'
+
+if ef_contra = 3:
+elseif tmp = -4:
+	'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+elseif tmp = -3:
+	'"I don''t think I can get pregnant on my period..." you think to yourself.'
+elseif tmp = -2:
+	'"I''m glad I got my birth control shot!" you think to yourself.'
+elseif tmp = -1:
+	'"Good thing I''m on the pill..." you think to yourself.'
+elseif tmp = 1:
+	if $risk_boy ! '':
+		'You unconsicously put a hand on your belly as you realize you could become pregnant with the child of <<$risk_boy>>.'
+	else:
+		'You unconsciously put a hand on your belly as you realize you could get pregnant if you do this too much.'
+	end
+elseif tmp = 2:
+	if $risk_boy ! '':
+		'You think about the load of sperm <<$risk_boy>> just pumped into your unprotected vagina ... and right now he has no clue.'
+	else:
+		'You think about the load of sperm swimming in your unprotected vagina ... and right now he has no clue.'
+	end
+else:
+	if $risk_boy ! '':
+		'"Oh, God!" You realize with horror that you could become pregnant with the child of <<$risk_boy>>.'
+	else:
+		'"Damn! I could get pregnant!" you think in horror.'
+	end
+end
+cuminside = 0
+$risk_boy = ''
+
+--- cuminsidereact ---------------------------------
+

locations/dinParty

@@ -303,13 +303,7 @@ if $ARGS[0] = 'dj_suck':
 				'You let him bend you over, as he begins to rub the head of his dick against your pussy lips.'
 				'He abruptly pushes his <<dick>>cm <<$dick_girth>> dick inside of you and starts fucking you with a fast pace.'
 				'With in just a few moments he grunts and shoots his load of sperm deep into your wet pussy'
-				if knowpreg = 0 and thinkpreg = 0:
-					if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-					if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-					if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-				else
-					'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-				end
+				gs 'cuminsidereact'
 				act 'Move away':gt $locM,$metkaM
 			end
 		end

locations/dinSex

@@ -1002,15 +1002,11 @@ $sexcum = {
 		finrand = rand(0, 1)
     
 		if finrand = 0:
-			!!Inside
-			'<<$boy>> groaned and you feel a jet of sperm fill your pussy.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			cumvag_text = RAND(0,2)
+			if cumvag_text = 0: 'His movements speed up and he drives his cock balls deep into you with a beatific smile, he cums deep inside you. You feel a warm jet pour into your womb.'
+			if cumvag_text = 1: 'He does not pull out and instead pulls you tightly against him and your pussy is filled with splashes of semen.'
+			if cumvag_text = 2: 'He groans, and you feel a jet of sperm hit you inside your body.'
+			gs 'cuminsidereact'
 		elseif finrand = 1:
 			!!Out
 			if pose = 0:
@@ -1022,75 +1018,71 @@ $sexcum = {
 			end
 		end
 		gs 'Cum_Manage'
-
 	elseif protect = 1:
-		'<<$boy>> groaned and you realized that he had came in the condom.'
+		$tmp = ''
+		if sexcontra = 7: $tmp = 'sabotaged '
+		'<<$boy>> groaned and you realized that he had came in the <<$tmp>>condom.'
 		gs 'Cum_Manage'
 		if sexcontra = 4:
 			'Pulling out of you and looking at his dick, <<$boy>> said "Hmm, the condom burst."'
 		elseif sexcontra = 5:
 			'Pulling out of you and looking at his dick, <<$boy>> said "Hmm, the condom is missing."'
 		end
+		gs 'cuminsidereact'
 		protect = 0
-		sexcontra = 0
 	end
-   pose = 0
+	sexcontra = 0
+	pose = 0
 }
 
 $sexcumsk = {
 	frost = 0
 	$boy = shultextrand33
 	sexpartkno = 1
-	
+
 	if protect ! 1:
 		!unprotected sex
 		finrand = RAND(0,1)
-      
+
 		if finrand = 0:
 			!inside
 			cumvag_text = RAND(0,2)
 			if cumvag_text = 0: 'His movements speed up and he drives his cock balls deep into you with a beatific smile, he cums deep inside you. You feel a warm jet pour into your womb.'
 			if cumvag_text = 1: 'He does not pull out and instead pulls you tightly against him and your pussy is filled with splashes of semen.'
 			if cumvag_text = 2: 'He groans, and you feel a jet of sperm hit you inside your body.'
-         
+
 			manna = manna - 15
 			willpower = willpower - 15
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
-      
+			gs 'cuminsidereact'
 		elseif finrand = 1:
 			!out
-        
+
 			if pose = 0:
 				spafinloc = 14
 				'<<$shultextrand33>> groans and pulls his cock out of you and cums on your stomach.'
-         
 			elseif pose = 1:
 				spafinloc = 4
 				'<<$shultextrand33>> groans and pulls his cock out of you and cums on your ass.'
 			end
 		end
 		gs 'Cum_Manage'
-	
+
 	elseif protect = 1:
-		'<<$shultextrand33>> groans and you realize that he came in the condom.'
+		$tmp = ''
+		if sexcontra = 7: $tmp = 'sabotaged '
+		'<<$shultextrand33>> groans and you realize that he came in the <<$tmp>>condom.'
 		gs 'Cum_Manage'
 		if sexcontra = 4:
 			'Pulls his cock out of you and, looking at his dick, <<$shultextrand33>> says "Hmm, the condom burst."'
-      
 		elseif sexcontra = 5
 			'Pulls his cock out of you and, looking at his dick, <<$shultextrand33>> says "Hmm, the condom is missing."'
 		end
+		gs 'cuminsidereact'
 		protect = 0
-		sexcontra = 0
 	end
 
-   pose = 0
+	sexcontra = 0
+	pose = 0
 }
 
 $analsex = {

locations/dinSex2

@@ -672,49 +672,13 @@ $stamina_npc = {
 !second argument ($ARGS[1]) can be left out, in that case it calls for '$boy'
 $CatName = {
 	if $ARGS[1] = '$boy1':
-		$boytemp1 = $ARGS[0]
 		$boy1 = $ARGS[0]
-		if arrpos('$cumarrnam',$boy1) ! -1:
-			CatName = iif(CatName >= 2,CatName + 1, 2)
-			:naming1
-				$boyname = '#<<CatName>> '+$boy1
-				arrmodtmp = arrpos('$cumarrnam',$boyname)
-			if $cumarrnam[arrmodtmp] = $boyname:CatName += 1 & jump 'naming1'
-			$boy1 = $boyname
-		end
 	elseif $ARGS[1] = '$boy2':
-		$boytemp2 = $ARGS[0]
 		$boy2 = $ARGS[0]
-		if arrpos('$cumarrnam',$boy2) ! -1:
-			CatName = iif(CatName >= 2,CatName + 1, 2)
-			:naming2
-				$boyname = '#<<CatName>> '+$boy2
-				arrmodtmp = arrpos('$cumarrnam',$boyname)
-			if $cumarrnam[arrmodtmp] = $boyname:CatName += 1 & jump 'naming2'
-			$boy2 = $boyname
-		end
 	elseif $ARGS[1] = '$boy3':
-		$boytemp3 = $ARGS[0]
 		$boy3 = $ARGS[0]
-		if arrpos('$cumarrnam',$boy3) ! -1:
-			CatName = iif(CatName >= 2,CatName + 1, 2)
-			:naming3
-				$boyname = '#<<CatName>> '+$boy3
-				arrmodtmp = arrpos('$cumarrnam',$boyname)
-			if $cumarrnam[arrmodtmp] = $boyname:CatName += 1 & jump 'naming3'
-			$boy3 = $boyname
-		end
 	else
-		$boytemp = $ARGS[0]
 		$boy = $ARGS[0]
-		if arrpos('$cumarrnam',$boy) ! -1:
-			CatName = iif(CatName >= 2,CatName + 1, 2)
-			:naming0
-				$boyname = '#<<CatName>> '+$boy
-				arrmodtmp = arrpos('$cumarrnam',$boyname)
-			if $cumarrnam[arrmodtmp] = $boyname:CatName += 1 & jump 'naming0'
-			$boy = $boyname
-		end
 	end
 }
 

locations/dinsexFX

@@ -129,13 +129,7 @@ $vagend = {
 				manna -= 15
 				willpower -= 15
 
-				if knowpreg = 0 and thinkpreg = 0:
-					if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-					if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-					if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-				else
-					'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-				end
+				gs 'cuminsidereact'
 			end
 		else
 			!!Out

locations/dinsister

@@ -107,58 +107,115 @@ $sischecks = {
 		'Your sister takes a good look at your eyebrow piercing and says, "Nice, but be careful, don''t accidentally get it caught on something!"'
 	end
 	
-	if $clothingworntype = 'nude' and pregTalkSister = 0 and pregtime > 90:
-		'You sister looks at your belly with surprise. "<<$name>>, are you pregnant? And from whom are you pregnant?'
-		if $wombthfath = 'Unknown' or $wombthfath = '':
-			'"Oh, sister, I have no idea whom the father could be!"'
+	if pregTalkSister = 0 and (($clothingworntype = 'nude' and pregtime > 90) or ($clothingworntype ! 'nude' and pregtime > 150)):
+		if $clothingworntype ! 'nude' and pregtime > 150:
+			'With surprise your sister says, "You''re pregnant <<$name>>."'
+			'"How the hell can you tell?"'
+			'With a smile, she says, "I have a bionic eye." As she reaches out and rubs your protruding belly, "So, do you know who the father is?"'
 		else
-			'"Oh, sister, I think the father is <<$wombthfath>>."'
+			'You sister looks at your belly with surprise. "<<$name>>, are you pregnant? And from whom are you pregnant?'
 		end
-		if $wombthfath = 'Roma':
-			'"You mean my Roma?"'
-			'You nod with a forced smile.'
-			'"Oh, I am so sorry, <<$nickname>>! This is probably my fault", she says and hugs you to her strongly.'
-			manna += 50
-		elseif $wombthfath = 'Stepfather':
-			'"Oh, what a slut you are!" she smiles happily. "You do know he will notice it too?"'
-		elseif $wombthfath = 'Kolka':
-			'"Seriously? Our little brother?" she asks with a little shock, then quitely asks you. "So, how is he in the bed?"'
-			'You feel yourself blushing, as you murmur, "He is really good."'
+		$tmpstr = ''
+		$tmpstr2 = ''
+		KILLVAR '$specfath'
+		KILLVAR '$regfath'
+
+		if arrpos('$wombpotfath', 'Unknown') < 0 or arrpos('$wombpotfath', '') < 0:
+			$tmpstr = 'I slept with a guy and didn''t even know his name, but '
 		end
-		pregTalkSister = 1
-	end
-	
-	if $clothingworntype ! 'nude' and pregTalkSister = 0 and pregtime > 150:
-		'With surprise your sister says, "You''re pregnant <<$name>>."'
-		'"How the hell can you tell?"'
-		'With a smile, she says, "I have a bionic eye." As she reaches out and rubs your protruding belly, "So, do you know who the father is?"'
-		if $wombthfath = 'Unknown' or $wombthfath = '':
-			'"Oh, sister, I have no idea whom the father could be!"'
-		else
-			'"Oh, sister, I think the father is <<$wombthfath>>."'
+
+		idx = 0
+		sz = arrsize('$wombpotfath')
+		:fathlistloop
+		if idx < sz:
+			$fath = $wombpotfath[idx]
+			if $fath = 'Roma' or $fath = 'Kolka' or $fath = 'Stepfather' or $fath = 'Mikhail, your birthfather':
+				if $fath = 'Mikhail, your birthfather': $fath = 'our real father'
+				$specfath[arrsize('$specfath')] = $fath
+			else
+				if $fath = 'Unknown' or $fath = '':
+					$fath = 'someone I don''t know'
+				else
+					if $tmpstr2 ! '': $tmpstr2 = '<<$tmpstr2>> or '
+					$tmpstr2 = '<<$tmpstr2>><<$fath>>'
+				end
+			end
+			idx += 1
+			jump 'fathlistloop'
 		end
-		if $wombthfath = 'Roma':
-			'"You mean my Roma?"'
-			'You nod with a forced smile.'
-			'"Oh, I am so sorry, <<$nickname>>! This is probably my fault", she says and hugs you to her strongly.'
-			manna += 50
-		elseif $wombthfath = 'Stepfather':
-			'"Oh, what a slut you are!" she smiles happily. "You do know he will notice it too?"'
-		elseif $wombthfath = 'Kolka':
-			'"Seriously? Our little brother?" she asks with a little shock, then quitely asks you. "So, how is he in the bed?"'
-			'You feel yourself blushing, as you murmur, "He is really good."'
+
+		if arrsize('$specfath') > 0 and sister > 50:
+			$tmpa = ''
+			if $tmpstr2 ! '':
+				$tmpa = ' You decide to start by telling her the easy news. "Oh, sister, <<$tmpstr>>it''s possible the father is <<$tmpstr2>>. I think it could also be someone we know.'
+			else
+				$tmpa = ' You look at her for a moment and then say, "Oh, sister, I think the father might be someone we know."'
+			end
+			'You realize that telling her who the father might be could be difficult.<<$tmpa>>'
+			idx = 0
+			sz = arrsize('$specfath')
+			if sz > 1:
+				$tmpb = 'begin by telling her '
+			else
+				$tmpb = 'tell her '
+			end
+			$tmpc = ''
+			:hardfathloop
+			if idx < sz:
+				$fath = $specfath[idx]
+				if $fath = 'Roma':
+					'You <<$tmpb>>the father might <<$tmpc>>be Roma.'
+					'"You mean my Roma?"'
+					'You nod with a forced smile.'
+					'"Oh, I am so sorry, <<$nickname>>! This is probably my fault", she says and hugs you to her strongly.'
+					manna += 50
+				elseif $fath = 'Kolka':
+					'You <<$tmpb>>the father could <<$tmpc>>be Kolka.'
+					'"Seriously? Our little brother?" she asks with a little shock, then quietly asks you. "So, how is he in the bed?"'
+					'You feel yourself blushing, as you murmur, "He is really good."'
+				elseif $fath = 'Stepfather':
+					'You <<$tmpb>>the father could <<$tmpc>>be your stepfather.'
+					'"Oh, what a slut you are!" she smiles happily. "You do think he will notice it too?"'
+				elseif $fath = 'our real father':
+					'You <<$tmpb>> the father might conceivably <<$tmpc>>be your real father.'
+					'Sister looks at you with shock-or maybe a little jealousy? "<<$name>>, how did you even find him?"'
+					'You explain how you tracked him down through the truck drivers to the where he works now, and how your relationship quickly grew into something unexpected for both of you. "I haven''t told him," you tell her. "Maybe I should. I don''t know."'
+					'She listens intently to your story and gives you a hug when you finish. "I don''t know either, <<$name>>, but I hope you take me to meet him someday."'
+				end
+				if idx = 0 and sz > 1:
+					$tmpc = 'also '
+					$tmpb = 'continue your confession by telling her '
+				elseif sz > 2 and idx = sz - 2:
+					$tmpb = 'finish your confession by saying that '
+				end
+				idx += 1
+				jump 'hardfathloop'
+			end
+		else
+			if arrsize('$wombpotfath') = 0:
+				'"Oh, sister, I have no idea who the father could be! I''m not even sure how I got pregnant!"'
+			elseif arrsize('$wombpotfath') = 1:
+				if $wombpotfath[0] = '' or $wombpotfath[0] = 'Unknown':
+					'"Oh, sister, I have no idea whom the father could be!"'
+				else
+					'"Oh, sister, <<$tmpstr>>I think the father is <<$wombpotfath[0]>>."'
+				end
+			else
+				'"Oh, sister, <<$tmpstr>>I think the father is <<$tmpstr2>>"'
+			end
 		end
+
 		pregTalkSister = 1
 	end
-
+	
 	if spdirtyb > 1 or spdirtyv > 0 or spdirtyc > 0 and gorslut < 3:
 		sisterknowslut = 1
 		'Sister looks at you, "<<$name>>, what is that?". Suddenly, her eyes narrow, "<<$nickname>>, yes it''s sperm! My little sister, well, well! It''s a good thing I noticed, what if it had been Mom?!"'
 	elseif spdirtyb > 1 or spdirtyv > 0 or spdirtyc > 0 and gorslut >= 3 and sisterknowslut = 0:
-	    sisterknowslut = 1
-	    'Sister looks at you, "<<$name>>, so the rumours are true, you are <<$gnikname>>"'
+		sisterknowslut = 1
+		'Sister looks at you, "<<$name>>, so the rumours are true, you are <<$gnikname>>"'
 	elseif spdirtyb > 1 or spdirtyv > 0 or spdirtyc > 0 and gorslut >= 3 and sisterknowslut > 0:
-	    'Sister looks at you, "<<$name>>, up to your usual tricks? You could at least wash yourself."'
+		'Sister looks at you, "<<$name>>, up to your usual tricks? You could at least wash yourself."'
 	end
 }
 
@@ -227,7 +284,7 @@ $d_sister[3]={
 	end
 	if sisterTalk = 2 and trfatherQW = 0:
 		trfatherQW = 1
-		'You ask about your real father, Anya grins, "<<$name>>, I was 4 the year when they broke up. I don''t even remember what he looks like. Mom does not like to talk about him, but as you know, our real father went to live in another town. I also remember, he worked as a long-distance truck driver, maybe sometimes he passes through Pavlovsky."'
+		'You ask about your real father, Anya grins, "<<$name>>, I was 4 years old when they broke up. I don''t even remember what he looks like. Mom does not like to talk about him, but as you know, our real father went to live in another town. I also remember, he worked as a long-distance truck driver, maybe sometimes he passes through Pavlovsky."'
 	elseif sisterTalk = 2 and trfatherQW >= 1:
 		sisterTalk += 1
 	end

locations/etoexhib

@@ -411,6 +411,10 @@ if $ARGS[0] = 'pos13':
 			gs 'cum_manage'
 			spafinloc = 12
 			gs 'cum_manage'
+			spafinloc = 3
+			gs 'cum_manage'
+			spafinloc = 0
+			gs 'cum_manage'
 			vagina += 1
 			gs 'stat'
 			'<center><img src="images/etogame/dachagang4.jpg"></center>'
@@ -454,6 +458,10 @@ if $ARGS[0] = 'pos14':
 			gs 'cum_manage'
 			spafinloc = 12
 			gs 'cum_manage'
+			spafinloc = 3
+			gs 'cum_manage'
+			spafinloc = 0
+			gs 'cum_manage'
 			vagina += 1
 			gs 'stat'
 			'<center><img src="images/etogame/dachagang4.jpg"></center>'

locations/femcyc

@@ -10,35 +10,27 @@ if $ARGS[0] = '':
 	ctemp = 0
 	ctemp[1] = 0
 	ctemp[2] = 0
-	cumarrtemp = 0
-	:cummarrpdloop1
-	:cummarrpdloop2
-	if cumarrage[cumarrtemp] < 136 and cumarrcpt[cumarrtemp] > 0:
-		if rcntorgzm = 1 and cumarrcpt[cumarrtemp] < cumarrppt[cumarrtemp] and cumarrage[cumarrtemp] < 1 and cumarrcon[cumarrtemp]: cumarrcpt[cumarrtemp] += cumarrppt[cumarrtemp] / 12
-		CumPDrop = cumarrcpt[cumarrtemp] / (144 - cumarrage[cumarrtemp])
-		if ovulate <= 0:
-			Temprand = rand(0,3)
-			if temprand <= 0:
-				CumPDrop = CumPDrop*3
-			elseif temprand = 1:
-				CumPDrop = CumPDrop*2
-			end
+	cumarr_idx = 0
+	:cumarrloop
+	if cumarr_idx < arrsize('$cumarrnam'):
+		if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 64:
+			cumpdrop = cumarrppt[cumarr_idx] * (cumarrage[cumarr_idx] / 10)
+			if cumpdrop < 10: cumpdrop = 10
+			cumpdrop += cumpdrop * rand(0, 2)
+			cumarrcpt[cumarr_idx] -= cumpdrop
+			cumarrage[cumarr_idx] += 1
+		else
+			KILLVAR 'cumarrcpt',cumarr_idx
+			KILLVAR 'cumarrppt',cumarr_idx
+			KILLVAR '$cumarrnam',cumarr_idx
+			KILLVAR 'cumarrage',cumarr_idx
+			KILLVAR 'cumarrdel',cumarr_idx
+			KILLVAR 'cumarrkno',cumarr_idx
+			KILLVAR 'cumarrcon',cumarrte_idx
 		end
-		cumarrcpt[cumarrtemp] -= CumPDrop
-		cumarrage[cumarrtemp] += 1
-		cumarrtemp += 1
-		arrmodtmp = arrsize('$cumarrnam')
-		if arrmodtmp > cumarrtemp: jump 'cummarrpdloop1'
-	else
-		KILLVAR 'cumarrcpt',cumarrtemp
-		KILLVAR 'cumarrppt',cumarrtemp
-		KILLVAR '$cumarrnam',cumarrtemp
-		KILLVAR 'cumarrage',cumarrtemp
-		KILLVAR 'cumarrdel',cumarrtemp
-		KILLVAR 'cumarrkno',cumarrtemp
-		KILLVAR 'cumarrcon',cumarrtemp    
-		arrmodtmp = arrsize('$cumarrnam')
-		if arrmodtmp > cumarrtemp: jump 'cummarrpdloop2'
+
+		cumarr_idx += 1
+		jump 'cumarrloop'
 	end
 
 	!!Succubus absorption of sperm in womb
@@ -74,98 +66,98 @@ if $ARGS[0] = '':
 		killvar 'succycletmp'
 	end
 
-	cumarrtemp = 0
+	cumarr_idx = 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:
+			if sparrloc[cumarr_idx] = 3 or sparrloc[cumarr_idx] = 12:
 				sexnutrition += 25*succublvl
 				succubxp += 3
 				sucabscum = 1
-				if sparrvol[cumarrtemp] > 0: sparrvol[cumarrtemp] = 0
+				if sparrvol[cumarr_idx] > 0: sparrvol[cumarr_idx] = 0
 			end
 		end
-		!!{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
+		!!{if sparrloc[cumarr_idx] = 0 or sparrloc[cumarr_idx] = 3 or sparrloc[cumarr_idx] = 12:
 			sexnutrition += 30*succublvl
-			sparrvol[cumarrtemp] -= 30*succublvl
-			if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
+			sparrvol[cumarr_idx] -= 30*succublvl
+			if sparrvol[cumarr_idx] < 0: sexnutrition += sparrvol[cumarr_idx] & sparrvol[cumarr_idx] = 0
 		end}
-		if sparrvol[cumarrtemp] > 0:
+		if sparrvol[cumarr_idx] > 0:
 			sparrtmpv = arrsize('$cumarrnam')
-			if sparrloc[cumarrtemp] = 17:
-				sparrtmpv = arrpos('$cumarrnam',$sparrnam[cumarrtemp])
-				if sparrage[cumarrtemp] < 4:
-					cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
-				elseif sparrage[cumarrtemp] < 10:
-					cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
+			if sparrloc[cumarr_idx] = 17:
+				sparrtmpv = arrpos('$cumarrnam',$sparrnam[cumarr_idx])
+				if sparrage[cumarr_idx] < 4:
+					cumarrcpt[sparrtmpv] += sparrppt[cumarr_idx]/5
+				elseif sparrage[cumarr_idx] < 10:
+					cumarrcpt[sparrtmpv] += sparrppt[cumarr_idx]/30
 				end
-			elseif sparrloc[cumarrtemp] = 0:
-				sparrtmpv = arrpos('$cumarrnam',$sparrnam[cumarrtemp])
-				if sparrage[cumarrtemp] < 4:
-					cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
-				elseif sparrage[cumarrtemp] < 10:
-					cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
+			elseif sparrloc[cumarr_idx] = 0:
+				sparrtmpv = arrpos('$cumarrnam',$sparrnam[cumarr_idx])
+				if sparrage[cumarr_idx] < 4:
+					cumarrcpt[sparrtmpv] += sparrppt[cumarr_idx]/40
+				elseif sparrage[cumarr_idx] < 10:
+					cumarrcpt[sparrtmpv] += sparrppt[cumarr_idx]/60
 				end
-			elseif sparrslc[cumarrtemp] = 1 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 1:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+			elseif sparrslc[cumarr_idx] = 1 and sparrage < 5:
+				if sparrloc[cumarr_idx] = 1:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarr_idx]/1000*sparrage[cumarr_idx]/sparrvol[cumarr_idx]
+					cumarrppt[sparrtmpv] = sparrppt[cumarr_idx]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarr_idx]
+					cumarrage[sparrtmpv] = sparrage[cumarr_idx]
 					cumarrdel[sparrtmpv] = 1
 					cumarrkno[sparrtmpv] = 0
 					cumarrcon[sparrtmpv] = 0
 				end
-			elseif sparrslc[cumarrtemp] = 3 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 2:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+			elseif sparrslc[cumarr_idx] = 3 and sparrage < 5:
+				if sparrloc[cumarr_idx] = 2:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarr_idx]/1000*sparrage[cumarr_idx]/sparrvol[cumarr_idx]
+					cumarrppt[sparrtmpv] = sparrppt[cumarr_idx]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarr_idx]
+					cumarrage[sparrtmpv] = sparrage[cumarr_idx]
 					cumarrdel[sparrtmpv] = 3
 					cumarrkno[sparrtmpv] = 0
 					cumarrcon[sparrtmpv] = 0
-				elseif sparrloc[cumarrtemp] = 4:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+				elseif sparrloc[cumarr_idx] = 4:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarr_idx]/1000*sparrage[cumarr_idx]/sparrvol[cumarr_idx]
+					cumarrppt[sparrtmpv] = sparrppt[cumarr_idx]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarr_idx]
+					cumarrage[sparrtmpv] = sparrage[cumarr_idx]
 					cumarrdel[sparrtmpv] = 2
 					cumarrkno[sparrtmpv] = 0
 					cumarrcon[sparrtmpv] = 0
 				end
-			elseif sparrslc[cumarrtemp] = 5 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 3:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+			elseif sparrslc[cumarr_idx] = 5 and sparrage < 5:
+				if sparrloc[cumarr_idx] = 3:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarr_idx]/1000*sparrage[cumarr_idx]/sparrvol[cumarr_idx]
+					cumarrppt[sparrtmpv] = sparrppt[cumarr_idx]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarr_idx]
+					cumarrage[sparrtmpv] = sparrage[cumarr_idx]
 					cumarrdel[sparrtmpv] = 2
 					cumarrkno[sparrtmpv] = 0
 					cumarrcon[sparrtmpv] = 0
-				elseif sparrloc[cumarrtemp] = 5:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+				elseif sparrloc[cumarr_idx] = 5:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarr_idx]/1000*sparrage[cumarr_idx]/sparrvol[cumarr_idx]
+					cumarrppt[sparrtmpv] = sparrppt[cumarr_idx]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarr_idx]
+					cumarrage[sparrtmpv] = sparrage[cumarr_idx]
 					cumarrdel[sparrtmpv] = 3
 					cumarrkno[sparrtmpv] = 0
 					cumarrcon[sparrtmpv] = 0
-				elseif sparrloc[cumarrtemp] = 6:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+				elseif sparrloc[cumarr_idx] = 6:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarr_idx]/1000*sparrage[cumarr_idx]/sparrvol[cumarr_idx]
+					cumarrppt[sparrtmpv] = sparrppt[cumarr_idx]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarr_idx]
+					cumarrage[sparrtmpv] = sparrage[cumarr_idx]
 					cumarrdel[sparrtmpv] = 3
 					cumarrkno[sparrtmpv] = 0
 					cumarrcon[sparrtmpv] = 0
 				end
 			end
-			if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
-			if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc = 1
-			if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc = 1
-			if sparrloc[cumarrtemp] = 17 and sparrage[cumarrtemp] > 48:
+			if sparrloc[cumarr_idx] = 0 or sparrloc[cumarr_idx] = 3 or sparrloc[cumarr_idx] = 12:sparrvol[cumarr_idx] -= sparrage[cumarr_idx]/2
+			if sparrloc[cumarr_idx] = 0 and cumsumvag > 60: sparrslc = 1
+			if sparrloc[cumarr_idx] = 3 and cumsumass > 60: sparrslc = 1
+			if sparrloc[cumarr_idx] = 17 and sparrage[cumarr_idx] > 48:
 				cumcondslip = 1
 				health -= 3
 				'You feel nauseous.'
@@ -173,23 +165,23 @@ if $ARGS[0] = '':
 			else
 				cumcondslip = 0
 			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 += sparrvol[cumarrtemp]
-			if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
-			if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
+			if sparrloc[cumarr_idx] ! 0 and sparrloc[cumarr_idx] ! 3 and sparrloc[cumarr_idx] ! 12 and isprok = 0 and sparrage < 5: sparrslc[cumarr_idx] += 1
+			sparrage[cumarr_idx] += 1
+			cumarr_idx += 1
+			ctemp += sparrvol[cumarr_idx]
+			if sparrloc[cumarr_idx] = 0: ctemp[1] += sparrvol[cumarr_idx]
+			if sparrloc[cumarr_idx] = 3: ctemp[2] += sparrvol[cumarr_idx]
 		else
-			KILLVAR 'spafinloc',cumarrtemp
-			KILLVAR 'sparrage',cumarrtemp
-			KILLVAR 'sparrloc',cumarrtemp
-			KILLVAR '$sparrnam',cumarrtemp
-			KILLVAR 'sparrppt',cumarrtemp
-			KILLVAR 'sparridt',cumarrtemp
-			KILLVAR 'sparrvol',cumarrtemp
-			KILLVAR 'sparrslc',cumarrtemp	
+			KILLVAR 'spafinloc',cumarr_idx
+			KILLVAR 'sparrage',cumarr_idx
+			KILLVAR 'sparrloc',cumarr_idx
+			KILLVAR '$sparrnam',cumarr_idx
+			KILLVAR 'sparrppt',cumarr_idx
+			KILLVAR 'sparridt',cumarr_idx
+			KILLVAR 'sparrvol',cumarr_idx
+			KILLVAR 'sparrslc',cumarr_idx	
 		end
-		if cumarrtemp < arrsize('sparrvol'): jump 'cumspaloop'
+		if cumarr_idx < arrsize('sparrvol'): jump 'cumspaloop'
 		cumsumbod = ctemp
 		cumsumvag = ctemp[1]
 		cumsumass = ctemp[2]
@@ -423,55 +415,52 @@ end
 
 if $ARGS[0] = 'cyc3':
 	ferteggage += 1
-	if FertEgg >= 1:
-		temprand = rand(170,100000)
-		if ferteggage < 120 and broodcurse <= 0:
-			temprand += 170
-			temprand -= age*10
-			if steriletu = 1: temprand -= 200
-			!{if there is a entopic pregnancy, it sets the first unborn baby in the array to this. 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.}
-			if temprand <= 0:
-				tempbabyi  = ARRPOS('Babyptype',0)
-				Babyptype[tempbabyi] = 2
-				FertEgg -= 1
-				BabyEmbryo += 1
-				PregChem = rand(10,30)
-				if preg = 0: preg = 1
-			end
-		else
-			!{Otherwise, it adds your womb sterilie factor to the temprand. Then it checks if your temprand 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.}
-			temprand += sterilewb
-			temprand -= tempwbbonus
-			if broodcurse > 0 and ferteggage >= 120: Temprand = 0
-			if temprand <= (1200-(Age*7)):
-				tempbabyi = ARRPOS('Babyptype',0)
-				Babyptype[tempbabyi] = 1
+	implant_idx = 0
+	implant_sz = arrsize('Babyptype')
+	:implant_loop
+	if implant_idx < implant_sz:
+		if Babyptype[implant_idx] = 0:
+			imp_thresh = (100 - (age + sterilewb))
+			if broodcurse ! 0: imp_thresh *= 2
+			imp_rand = rand(0, 120000)
+			if imp_rand < imp_thresh:
+				implant_day = daystart
+				implant_hour = hour
+				!{Egg implanted}
+				ent_thresh = age + (sterilewb * 5)
+				if broodcurse ! 0: ent_thresh = 0
+				if rand(0, 10000) < ent_thresh:
+					Babyptype[implant_idx] = 2
+				else:
+					Babyptype[implant_idx] = 1
+				end
 				FertEgg -= 1
-				BabyEmbryo += 1
-				PregChem += rand(10,30)
-				if preg = 0: preg = 1
 			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 > 300:
+		rej_idx = 0
+		rej_sz = arrsize('Babyptype')
 		:lutcycloop
-		if FertEgg > 0:
-			tempbabyi = ARRPOS('Babyptype',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
+		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
+			end
+			rej_idx += 1
 			jump 'lutcycloop'
 		end
 		LutH = 0

locations/frot

@@ -171,7 +171,12 @@ if $ARGS[0] = 'c':
 				clr
 				gs 'stat'
 				'<center><img src="images/picv/frotp3.jpg"></center>'
-				'You are bent forward and the man begins to caress your ass, you feel his hands clutching your pants trying to tear them.'
+				if PCloSkirt = 0:
+					'You are bent forward and the man begins to caress your ass, you feel his hands clutching your pants trying to tear them.'
+				else:
+					'You are bent forward and the man begins to caress your ass, you feel his hands start to lift your skirt.'
+				end
+					
 
 				act 'Move away':gt 'frot', 'fin'
 
@@ -187,34 +192,47 @@ if $ARGS[0] = 'c':
 					clr
 					gs 'stat'
 					'<center><img src="images/picv/frotp4.jpg"></center>'
-					'The man rips your pants between your legs, thereby exposing your wet pussy.'
+					if PCloSkirt = 0:
+						'The man rips your pants between your legs, thereby exposing your wet pussy.'
+					elseif tanga = 0:
+						'The man raises your skirt and you feel his hard cock brushing against your pussy lips.'
+					else:
+						'The man rips aside your panties, thereby exposing your wet pussy.'
+					end
 					
 					if dom > 0:act 'Move away':gt 'frot', 'fin'
 
 					act 'Submit':
 						cla
 						*clr
+
+						'<center><img src="images/picv/frotp5.jpg"></center>'
+
 						sub += 2
 						horny += 10
-						guy += 1
-						stat['vaginal'] += 1
-						vagina += 1
-						dynamic $CatName, 'Stranger on the Metro'
-						cumprecheck = 1
-						gs 'cum_call', '', $boy, svol,'', spot
-						gs 'stat'
-						'<center><img src="images/picv/frotp5.jpg"></center>'
-						'He turns you around to face him and his cock moves up your leg and pushes into your sweaty pussy.'
 
+						if stat['vaginal'] = 0:
+							'The idea of letting some stranger take your virginity makes you feel like a dirty slut, but also excites you more than you care to admit.'
+						end
+						'You widen your stance as much as possible in the crowded car and push back against him as he thrusts into your sweaty pussy.'
 						if horny >= 100:
 							horny = 0
 							manna += 15
 							willpower += 15
 							orgasm += 1
-							'You start to cum almost immediately as he enters you.'
-						else
+							'The wild excitement of sex with a stranger in a public place is too much and you start to cum almost immediately as he enters you.'
+						else:
 							'You are overwhelmed by the wild excitement of sex with a stranger in a public place.'
 						end
+
+						guy += 1
+						stat['vaginal'] += 1
+						vagina += 1
+						dynamic $CatName, 'Stranger on the Metro'
+						cumprecheck = 1
+						gs 'cum_call', '', $boy, svol,'', spot
+						gs 'stat'
+
 						
 						if dom > 0:act 'Move away':gt 'frot', 'fin'
 
@@ -227,14 +245,8 @@ if $ARGS[0] = 'c':
 							gs 'cum_call', '', $boy, svol,'', spot
 							gs 'stat'
 							'<center><img src="images/picv/frotp6.jpg"></center>'
-							'Stranger does not pull out of your pussy, your juices flow and he ends inside you. You feel like a strong jet of sperm filled your uterus.'
-							if knowpreg = 0 and thinkpreg = 0:
-								if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-								if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-								if tabletkishot = 0 and pillcon <=2000:sub += 3 & '"Oh, God!" You remember with horror that you could become pregnant with the child of some guy whos face you haven''t even seen.'
-							else
-								'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-							end
+							'The stranger does not pull out of your pussy, your juices flow and he finishes inside you. You feel like a strong jet of sperm filled your uterus.'
+							gs 'cuminsidereact', 'some guy whose face you haven''t even seen'
 							act 'Get out of the car':gt 'frot', 'fin2'
 						end
 					end

locations/garfather

@@ -166,13 +166,7 @@ if horny>50 and hadsexwithfather=1:
 						gs 'cum_manage'
 						manna -= 15
 						willpower -= 15
-						if knowpreg = 0 and thinkpreg = 0:
-							if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-							if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-							if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-						else
-							'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-						end
+						gs 'cuminsidereact', 'your stepfather'
 					else
 						'After a thorough fucking, you feel your stepfather''s cock begin to throb within you. Your stepfather''s body spasms, his cock filling the condom with his sperm.'
 						gs 'cum_manage'

locations/gdktoilet

@@ -94,7 +94,7 @@ if $ARGS[0] = 'mens':
 				'<center><img src="images/qwest/publicrest/smiling.jpg"></center>'
 				'You look over his naked body, biting your lower lip in appreciation. You''re not at all sure what he is doing though, is this a thing boys regularly do?'
 
-				act 'Continue':
+				act 'Look at him':
 					horny += 20
 					minut +=5
 					cla
@@ -112,7 +112,7 @@ if $ARGS[0] = 'mens':
 						'<center><img src="images/qwest/publicrest/1kissing.jpg"></center>'
 						'You return his kiss with a fierce passion you didn''t know you was feeling or maybe you are just turned on by naked guys. His hands gently roams all over  your body, finally ending up on your <<$titsize>> breasts where he play''s with them. His lips, hands, flutter of his tongue, all drive you crazy as you feel yourself getting more and more turned on.'
 
-						act 'Continue':
+						act 'Undressed':
 							horny += 20
 							minut +=5
 							cla
@@ -121,7 +121,7 @@ if $ARGS[0] = 'mens':
 							'<center><img src="images/qwest/publicrest/2turning.gif"></center>'
 							'He starts pulling your clothes off, once you are mostly naked, he turns you around against the wall. He presses your face and breasts to the wall, while pulling your hips back away from the wall. Despite his aggressive behavior you rather enjoy being man handled.'
 
-							act 'Continue':
+							act 'Submit':
 								horny += 20
 								minut +=5
 								guy += 1
@@ -130,7 +130,7 @@ if $ARGS[0] = 'mens':
 								'<center><img src="images/qwest/publicrest/3doggy.gif"></center>'
 								'He licks his fingers and coat''s the tip of his dick with his saliva. He then takes his <<dick>>cm <<$dick_girth>> dick and guides it into your wet pussy. Grabbing your hips he begins to thrust, into you hard and fast. You are so overwhelmed and turned on, that you fail to notice the other men that just walked in and are now watching.'
 
-								act 'Continue':
+								act 'Carried':
 									orgasm += 1
 									horny = 0
 									manna += 15
@@ -141,7 +141,10 @@ if $ARGS[0] = 'mens':
 									'<center><img src="images/qwest/publicrest/4standmiss.gif"></center>'
 									'He suddenly pulls out of you and roughly turns you back around, grabbing you, he lifts you up. You spread your legs and he lowers you back down, till you feel is <<dick>>cm <<$dick_girth>> dick slide back inside of your pussy. He carries you, fucking you the whole time, you are impressed by his strength, as he manages to not only carry you, but fuck you at the same time. He slams your back roughly but not painfully into a open stall door and presses your body against it, then he starts fucking you in earnest. It seems he is nowhere near ready to cum.'
 
-									act 'Continue':
+									act 'Suck':
+										minut +=5
+										stat['bj'] += 1
+										throat += 1
 										horny += 10
 										minut +=5
 										cls
@@ -149,24 +152,19 @@ if $ARGS[0] = 'mens':
 										'<center><img src="images/qwest/publicrest/5blowjob.gif"></center>'
 										'After some time, he pulls out of you and lets you down, you think he is getting a bit tired from holding you up. He pulls you along with him, as he backs up and half sits, half leans against the sinks. He puts his hand on your head and grabs and handful of hair, he pushes your head down and towards his dick. You understand what he wants and take his dick into your mouth. You start sucking him off, using your lips to stroke, his hands holds onto your hair, keeping your from pulling away. Not that you would, you are excited and love sucking his dick.'
 
-										act 'Continue':
-											stat['bj'] += 1
-											throat += 1
-											horny += 10
-											minut +=5
+										act 'Ride':
 											cls
-											gs 'stat'
 											'<center><img src="images/qwest/publicrest/6cowgirl.gif"></center>'
 											'He yanks your head away, as he turns and lays down on the floor, on his back. He pulls you down on top of him, you straddle him and take his dick back into your pussy and you start to ride him. With out warning you feel his hot sperm shooting into you, filling your pussy..'
+											spafinloc = 0
+											stat['vaginal'] += 1
+											if vagina < dick: vagina += 1
+											gs 'cum_manage'
+											gs 'cuminsidereact', 'a stranger you met in the men''s room'
+											gs 'stat'
 
-											act 'finish':
+											act 'Complain':
 												cls
-												minut +=5
-												spafinloc = 0
-												stat['vaginal'] += 1
-												if vagina < dick: vagina += 1
-												gs 'cum_manage'
-												gs 'stat'
 												'<center><img src="images/qwest/publicrest/misscream.gif"></center>'
 												'You pull off him, getting up and looking down at him and say."Why didn''t you tell me you were going to cum."  The man replies, "Sorry I was trying to hold back and thought I could." He continue''s to breath heavily and say''s "You were great, perhaps we''ll meet again" He gets up and gets dressed, that is when you finally notice the other men watching. You quickly get dressed and feel embarrassed you didn''t notice them before, leaving while your blushing.'
                                                 act 'Leave': gt'gdktoilet', 'mens'
@@ -560,24 +558,8 @@ if $ARGS[0] = 'pussy2':
 			gs 'cum_manage'
 			gs 'stat'
 			'<center><img src="images/qwest/publicrest/ghcreampie.gif"></center>'
-			'You feel his hot sperm fill your pussy in spurt after spurt, when you finally pull yourself off him. You can feel the sperm leaking out of your pussy.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot = 0:
-				!not on pill
-					if pillcon > 2000:
-						!on pill
-						'"Good thing I''m on the pill." you think to yourself.'
-					else
-						!not on pill
-						'"Damn! I could get pregnant!" you think in horror.'
-					end
-				else
-					!on pill
-					'"I''m glad I got my birth control shot." you think to yourself.'
-				end
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			'Instead of pulling away, you moan "Inside me, please" and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt, when you finally pull yourself off him. You can feel the sperm leaking out of your pussy.'
+			gs 'cuminsidereact', 'an unknown guy from the gloryhole'
 
 			act 'get dressed': gt'gdktoilet', 'emptystall'
 		end

locations/kisameQW

@@ -29,8 +29,12 @@ if $ARGS[0] = 'start':
 			guy += 1
 			stat['vaginal'] += 1
 			vagina += 1
+			spafinloc = 0
 			orgasm += 1
 			vaginalOrgasm += 1
+			sexpartkno = 1
+			$boy = 'Kisame'
+			gs 'cum_manage'
 
 			if KisameSex = 0:KisameSex = 1 & guy += 1
 

locations/kotovSex

@@ -521,9 +521,7 @@ if $ARGS[0] = 'cum11':
 		''
 		'Suddenly Vitek''s thrusts become shorter and more intense and while he hammers his cock into you, hot jets of his sperm are being squirted deep inside your body.'
 		'He puts you back on the ground, and supports your weight when you warn him you''re still a bit weak in the knees from the fucking he just gave you. You give him a kiss and idly run your finger over your pussy lips, enjoying the slippery feeling. After a moment you say you''re okay, and he kisses you again on the forehead before crashing down on his bed to relax for a while.'
-		if preg = 1 and pregtime >= 7:
-			'You chuckle to yourself, thinking: "Well, at least I can''t get any more pregnant than I already am!"'
-		end
+		gs 'cuminsidereact'
 		act 'Go freshen up':gt 'kotovdom','vann'
 	end
 end
@@ -575,9 +573,7 @@ if $ARGS[0] = 'cum9':
 		''
 		'Suddenly Vitek''s thrusts become shorter and more intense and while he hammers his cock into you, hot jets of his sperm are being squirted inside your body.'
 		'Eventually he pulls out, and watches his cum slowly dribble out of your pussy with a satisfied grin.'
-		if preg = 1 and pregtime >= 7:
-			'You chuckle to yourself, thinking: "Well, at least I can''t get any more pregnant than I already am!"'
-		end
+		gs 'cuminsidereact'
 		act 'Go freshen up':gt 'kotovdom','vann'
 	end
 end
@@ -615,9 +611,7 @@ if $ARGS[0] = 'cum81':
 		'Suddenly Vitek''s thrusts stop, and you grin when you realize he''s trying to postpone his orgasm. You squeeze your vaginal walls around his cock as tightly as you can and sure enough, within moments you feel hot jets of his sperm being squirted into your body.'
 		'"You horny little minx, you knew!" he gasps. You look over your shoulder and wink at him: "Of course I knew, baby. Did I make you feel good?"'
 		'Unable to produce a coherent reply, he just moans while he rests on the mattress in a euphoric haze. Feeling pleased with yourself for exhausting your boyfriend so thoroughly, you give him a kiss on the cheek and get up from the bed.'
-		if preg = 1 and pregtime >= 7:
-			'You chuckle to yourself, thinking: "Well, at least I can''t get any more pregnant than I already am!"'
-		end
+		gs 'cuminsidereact'
 	act 'Go freshen up':gt 'kotovdom','vann'
 	end
 end
@@ -654,9 +648,7 @@ if $ARGS[0] = 'cum8':
 		''
 		'Suddenly Vitek''s thrusts become shorter and more intense, and while he groans you feel hot jets of his sperm being squirted into your body. His cock remains erect for a while longer and you happily keep riding him while you can, not wanting to give up on this great feeling just yet.'
 		'Eventually you get up, and give him a kiss on the cheek while he just relaxes on the bed in a euphoric haze.'
-		if preg = 1 and pregtime >= 7:
-			'You chuckle to yourself, thinking: "Well, at least I can''t get any more pregnant than I already am!"'
-		end
+		gs 'cuminsidereact'
 		act 'Go freshen up':gt 'kotovdom','vann'  
 	end
 end
@@ -692,9 +684,7 @@ if $ARGS[0] = 'cum7':
 		'<center><img src="images/qwest/alter/ev/kotovsexsyst/cum7.gif"></center>'
 		''
 		'Suddenly Vitek''s thrusts become shorter and more intense, and while he groans you feel hot jets of his sperm being squirted into your body. Eventually he pulls out, and watches his cum slowly dribble out of your pussy with a satisfied grin.'
-		if preg = 1 and pregtime >= 7:
-			'You chuckle to yourself, thinking: "Well, at least I can''t get any more pregnant than I already am!"'
-		end
+		gs 'cuminsidereact'
 		act 'Go freshen up':gt 'kotovdom','vann'  
 	end
 end
@@ -730,9 +720,7 @@ if $ARGS[0] = 'cum6':
 		'<center><img src="images/qwest/alter/ev/kotovsexsyst/cum6.jpg"></center>'
 		''
 		'Suddenly Vitek''s thrusts become shorter and more intense, and while he groans you feel hot jets of his sperm being squirted into your body. Eventually he pulls out, and watches his cum slowly dribble out of your pussy with a satisfied grin.'
-		if preg = 1 and pregtime >= 7:
-			'You chuckle to yourself, thinking: "Well, at least I can''t get any more pregnant than I already am!"'
-		end
+		gs 'cuminsidereact'
 		act 'Go freshen up':gt 'kotovdom','vann'
 	end
 end

locations/metro

@@ -88,15 +88,19 @@ if $ARGS[0] = 'vagon':
 		frotrand = rand(0, 100)
 
 		if frotrand >= 90 - (frot * 10) and frot < 3:
+'FROT 1 <<frot>>'
 			gt 'frot', 'a'
 		elseif frotrand >= 90 - (frot * 10) and frot >= 3 and spdirtyc = 0 and PCloSkirt > 0:
-			tipfrot = rand(0, 1)
+'FROT 2 <<frot>>'
+			tipfrot = rand(0, 2)
 
 			if tipfrot = 0:gt 'frot', 'b'
 			if tipfrot = 1:gt 'frot', 'd1'
+			if tipfrot = 2:gt 'frot', 'c'
 
 			!!gt 'frot', 'b'
 		elseif frotrand >= 90 - (frot * 10) and frot >= 3 and spdirtyc = 0 and PCloSkirt = 0:
+'FROT 3 <<frot>>'
 			tipfrot = rand(0, 2)
 
 			if tipfrot =0:gt 'frot', 'c'

locations/misha

@@ -221,16 +221,12 @@ LColor = RGB(106,90,205)
 				end
 				
 				if stepmisha > 0 and stepmisha < 9:
-					if knowpreg = 0 and thinkpreg = 0:
-						if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-						if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-						if tabletkishot = 0 and pillcon <=2000:
-							if cump = 0:'<br>"Oh, shit!" You think, realizing with horror that you can become pregnant with the child of your stepfather.'
-							if cump = 1:'<br>"Oh, shit!" You think, realizing with horror that you can become pregnant with the child of uncle Misha.'
-							if cump = 3:'<br>"Oh, shit!" You think, realizing with horror that you can become pregnant with either the child of your stepfather, or uncle Misha.'
-						end
-					else
-						'You chuckle to yourself, "Well at least I cannot get more pregnant."'
+					if cump !2:
+						$tmp = ''
+						if cump = 0:$tmp = 'your stepfather'
+						if cump = 1:$tmp = 'your uncle Misha'
+						if cump = 3:$tmp = 'either your stepfather or your uncle Misha'
+						gs 'cuminsidereact', $tmp
 					end
 				end
 				act 'Regain your composure and get up':gt 'GarGazel'

locations/orgazm

@@ -174,16 +174,7 @@ if $ARGS[0] = 'start':
 
 			manna -= 15
 			willpower -= 15
-			if knowpreg = 0 and thinkpreg = 0 and succubusflag ! 1:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			elseif succubusflag = 1:
-				'You think to yourself, "This should be yummy!"'
-				manna += 15 & willpower += 15
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact'
 		
 		elseif finrand = 1:
 			!!out

locations/party_boys

@@ -192,13 +192,7 @@ if $ARGS[0] = 'out':
 			gs'stat'
 			'<center><img src="images/qwest/alter/sisterqw/rekshome/reksparty_party_kuh_4_8.gif"></center>'
 			'You dutifully oblige and bend over not letting the member out of your mouth. One of the guys enters your aching pussy. In time they switch positions and even start fucking you in the ass. You feel relaxed and relish having their cocks in every hole, completely giving yourself up to the boys. After playing with you the guys finish one by one. Half awake and drunk you hardly care where they cum on you. Exhausted and quite a mess you drunkenly stumble into a room.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', 'one of the guys from the party'
 			act 'Fall asleep':gt 'dinParty', 'sleep'
 		end
 	elseif i = 3:
@@ -225,13 +219,7 @@ if $ARGS[0] = 'out':
 			gs'stat'
 			'<center><img src="images/qwest/alter/sisterqw/rekshome/reksparty_party_kuh_4_10.jpg"></center>'
 			'The guys a very drunk and soon begin to focus on your pussy and ass, fucking you roughly. Enthralled by the moment the guys cum wherever they want. You feel hot jets of sperm hitting your back and ass. Some of them even cum inside of you. After they are done, one of them exclaims, "Uhh, the crown for the best whore of the evening certainly belongs to you, <<$nickname>>." Exhausted and quite a mess you drunkenly stumble into a room.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', 'one of the guys from the party'
 			act 'Fall asleep':gt 'dinParty', 'sleep'
 		end
 	elseif i = 4:

locations/party_girls

@@ -424,13 +424,7 @@ if $ARGS[0] = 'boys':
 			gs'stat'
 			'<center><img src="images/qwest/alter/sisterqw/rekshome/party_girls_party_gost_21_' + rand(1,6) + '.jpg"></center>'
 			'You don''t really recall how your adult game turned into a raging orgy. Everyone is divided into pairs who passionately fuck each other. There are not enough girls for every guy and you notice how they are huddling around your sister with Roma as Anya gladly accepts any dick that is put in front of her. The apartment is dipped into an atmosphere of wild and depraved sex, groans and cries of pleasure coming from every corner. Time seems to have stopped and eventually everyone is just fucking each other until they run out of energy.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', 'one of the guys from the party'
 			act 'Fall asleep':
 				cla
 				*clr

locations/podrsex

@@ -174,17 +174,27 @@ if $ARGS[0] = 'end':
 	if pos = 1:
 		'The man''s cock erupts, shooting his load over your face and the other girl. The two of you giggle and lick his cock clean, kissing each other in the process.'
 	elseif pos = 2:
-		if tabletki <= 0 and mesec <= 0 and knowpreg = 0:cuminside = 1
 		'The man groans, pumping his seed deep inside your pussy.'
+		tmp = func 'pregriskeval'
+		if tmp = 0:
+			'<br>"Oh, shit!" you think, when you feel his cock pumping his load deep inside you. Hopefully you won''t end up pregnant...'
+		elseif tmp > 0:
+			'<br>You push against him when you feel his cock pumping his load deep inside you. Maybe you''ll end up pregnant...'
+		end
 	elseif pos = 3:
 		spafinloc = 3
 		'The man groans, pumping his seed deep inside your ass.'
 	elseif pos = 4:
 		'He groans, pumping her pussy full of cum.'
+		tmp = func 'pregriskeval'
+		if tmp > 0:
+			'<br>It''s exciting to watch another woman being pumped full of sperm. Maybe''ll she end up pregnant with his bastard son... '
+		else:
+			'<br>It''s hot to see another woman being pumped full of cum, but You just hope she''s on the pill right now...'
+		end
 	elseif pos = 5:
 		'He groans, pumping her ass full of cum.'
 	end
-	if cuminside = 1:cuminside = 0 & '<br>"Oh, shit!" you think, when you feel his cock pumping his load deep inside you. Hopefully you won''t end up pregnant...'
 	pos = 0
 	gs 'stat'
 

locations/pornfilm

@@ -70,6 +70,7 @@ if $ARGS[0] = '1':
 			spafinloc = 15
 			gs 'cum_manage'
 			act 'Shower':gt 'pornstudio', 'shower'
+			act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 		end
 	end
 end
@@ -138,6 +139,7 @@ if $ARGS[0] = '2':
 						'<center><img src="images/studia/bj2.gif"></center>'
 						'You keep your eyes fixed on his, as you gently lick every last drop of sperm from his cock.'
 						act 'Shower':gt 'pornstudio', 'shower'
+						act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 					end
 				end
 			end
@@ -221,6 +223,7 @@ if $ARGS[0] = '3':
 							'Looking it to his eyes adoringly, you meticulously lick all the cum off his dick.'
 
 							act 'Shower':gt 'pornstudio', 'shower'
+							act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 						end
 					end
 				end
@@ -318,6 +321,7 @@ if $ARGS[0] = '4':
 								'You keep look deep into his eyes, then lick and kiss his sperm covered cock until it''s thoughly cleaned.'
 
 								act 'Shower':gt 'pornstudio', 'shower'
+								act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 							end
 						end
 					end
@@ -408,6 +412,7 @@ if $ARGS[0] = '5':
 						gs 'stat'
 
 						act 'Shower':gt 'pornstudio', 'shower'
+						act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 					end
 				end
 			end
@@ -509,6 +514,7 @@ if $ARGS[0] = '6':
 							gs 'stat'
 							
 							act 'Shower':gt 'pornstudio', 'shower'
+							act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 						end
 					end
 				end
@@ -571,6 +577,7 @@ if $ARGS[0] = '7':
 						'Finally you feel <<$pakter[1]>> cumming inside of you, so you fake a sreaming orgasm for the film. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you. He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
 						
 						act 'Shower':gt 'pornstudio', 'shower'
+						act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 					end
 				else									
 					act 'Orgasm':
@@ -588,6 +595,7 @@ if $ARGS[0] = '7':
 						'Finally you feel <<$pakter[1]>> cumming inside of you, which starts your own orgasm. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you. He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
 						
 						act 'Shower':gt 'pornstudio', 'shower'
+						act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 					end
 				end
 			end
@@ -674,6 +682,7 @@ if $ARGS[0] = '8':
 				end
 				gs 'stat'
 				act 'Shower':gt 'pornstudio', 'shower'
+				act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 			end
 		end
 	end
@@ -757,6 +766,7 @@ if $ARGS[0] = '9':
 				end
 				gs 'stat'
 				act 'Shower':gt 'pornstudio', 'shower'
+				act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 			end
 		end
 	end
@@ -924,6 +934,7 @@ if $ARGS[0] = '10':
 				gs 'stat'
 
 				act 'Shower':gt 'pornstudio', 'shower'
+				act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 			end
 		end
 	end
@@ -1021,6 +1032,7 @@ if $ARGS[0] = '11':
 				gs 'stat'
 
 				act 'Shower':gt 'pornstudio', 'shower'
+				act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 			end
 		end
 	end
@@ -1104,6 +1116,7 @@ if $ARGS[0] = '12':
 				gs 'stat'
 
 				act 'Shower':gt 'pornstudio', 'shower'
+				act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 			end
 		end
 	end
@@ -1200,6 +1213,7 @@ if $ARGS[0] = '13':
 				end
 
 				act 'Shower':gt 'pornstudio', 'shower'
+				act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 			end
 		end
 	end
@@ -1224,11 +1238,11 @@ if $ARGS[0] = '14':
 	act 'Undress and lie on the bed':
 		cla
 		*clr
-		bj50 = rand(0,10)
-		hj50 = rand(0,10)
-		lip50 = rand(0,10)
-		anal50 = rand(0,10)
-		bukk50 = rand(0,10)
+		bj50 = rand(0,7)
+		hj50 = rand(0,7)
+		lip50 = rand(0,7)
+		anal50 = rand(0,7)
+		bukk50 = rand(0,7)
 		sex50 = 50 - bj50 - hj50 - lip50 - anal50 - bukk50
 		stat['vaginal'] += 50
 		if bj50 > 5:pornbj += 1
@@ -1261,7 +1275,7 @@ if $ARGS[0] = '14':
 		:gbblow
 		if bj50 > 0:
 			pfcounter += 1
-			$boy = 'porn fan #<<pfcounter>>'
+			$boy = 'a porn fan'
 			cumprecheck = 1
 			gs 'cum_manage'
 			spafinloc = 12
@@ -1274,7 +1288,7 @@ if $ARGS[0] = '14':
 		:gbhand
 		if hj50 > 0:
 			pfcounter += 1
-			$boy = 'porn fan #<<pfcounter>>'
+			$boy = 'a porn fan'
 			cumprecheck = 1
 			gs 'cum_manage'
 			spafinloc = 13
@@ -1286,7 +1300,7 @@ if $ARGS[0] = '14':
 		:gbface
 		if lip50 > 0:
 			pfcounter += 1
-			$boy = 'porn fan #<<pfcounter>>'
+			$boy = 'a porn fan'
 			cumprecheck = 1
 			gs 'cum_manage'
 			if rand(0,1)=0:
@@ -1302,7 +1316,7 @@ if $ARGS[0] = '14':
 		:gbass
 		if anal50 > 0:
 			pfcounter += 1
-			$boy = 'porn fan #<<pfcounter>>'
+			$boy = 'a porn fan'
 			spafinloc = 3
 			gs 'cum_manage'
 			anal50 -= 1
@@ -1312,7 +1326,7 @@ if $ARGS[0] = '14':
 		:gbbukk
 		if bukk50 > 0:
 			pfcounter += 1
-			$boy = 'porn fan #<<pfcounter>>'
+			$boy = 'a porn fan'
 			cumprecheck = 1
 			gs 'cum_manage'
 			bukkloc = rand(0,6)
@@ -1338,7 +1352,8 @@ if $ARGS[0] = '14':
 		:gbsex
 		if sex50 > 0:
 			pfcounter += 1
-			$boy = 'porn fan #<<pfcounter>>'
+			sexpartkno = 1
+			$boy = 'a porn fan'
 			gs 'cum_manage'
 			sex50 -= 1
 		end
@@ -1346,7 +1361,7 @@ if $ARGS[0] = '14':
 		minut += 360
 
 		gangOrg = 0
-		if horny < 70 or exhibi < 4:gangOrg = rand(1,5) & orgazm += gangOrg & horny = rand(0,50)
+		if horny > 70 or exhibi > 4:gangOrg = rand(1,5) & orgazm += gangOrg & horny = rand(0,50)
 		if gangOrg = 1:
 			$gangorg = ' and you still managed to have an orgasm.'
 		elseif gangOrg > 0:
@@ -1361,7 +1376,8 @@ if $ARGS[0] = '14':
 		'Your fans gather around you, and starts to fuck you with great entusiasm, but little technique. Most of them cum almost immediately when they are in your body, but since they are many, it doesn''t hurt the shoot, even heightens the quality<<$gangorg>> It still takes about six hours of constant fucking to finish with all of the guys.'
 		
 		act 'Shower':gt 'pornstudio', 'shower'
+		act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
 	end
 end
 
---- pornfilm ---------------------------------
+--- pornfilm ---------------------------------

locations/pornstudio

@@ -877,9 +877,30 @@ if $ARGS[0] = 'postvideo':
 	
 	acting += actbonus
 	
-	if (knowpreg = 1 or thinkpreg = 1) and pregchem > 3500:pornfilmpreg[film] = 1
-
-	if pfType = 1 and tabletki <= 0 and mesec <= 0 and knowpreg = 0 and thinkpreg = 0: pornDanger[film] = 1
+	ppreg = func 'pregriskeval'
+	if ppreg = -4:
+		pornfilmpreg[film] = 1
+	elseif ppreg > -1:
+		pornDanger[film] = 1
+
+		if ppreg = 0:
+			if pfcash > 0:
+				$tmp = ' Was <<pfcash>> <b>₽</b> worth the risk of getting pregnant by porn actor you''ll probably never see again?'
+			else:
+				$tmp = ' You didn''t even get paid to risk pregnancy by a porn actor you''ll never see again.'
+			end
+			'With a growing sense of horror you realize that you aren''t on the shot and have no idea when you last took a birth control pill.<<$tmp>>'
+		else:
+			!{If she has birth control and deliberately isn''t using it, obviously she wants to get pregnant or just doesn''t care.}
+			if pfcash > 0:
+				$tmp = ' Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you end up pregnant.'
+			else:
+				$tmp = ' The fact that you weren''t even paid to take this risk excites you more than you''d like to admit.'
+			end
+			'From the moment you stepped onto the set you kept thinking about how you were completely unprotected during this shoot. You aren''t sure if you''re afraid of the consequences- or excited by them.<<$tmp>>'
+			horny += 10
+		end
+	end
 	
 	if pfactor = 50:
 		$pornfilmActor[film] = 'Fifty fans of <<$pfname>>, and of course <<$pfname>> herself.'

locations/pregriskeval

@@ -0,0 +1,29 @@
+# pregriskeval
+
+if argc > 0:
+	eff_contra = ARGS[1]
+else:
+	eff_contra = sexcontra
+end
+
+if knowpreg = 1 or thinkpreg = 1:
+	RESULT = -4
+elseif eff_contra = 2 or pillcon > 2000:
+	RESULT = -1
+elseif tabletkishot ! 0:
+	RESULT = -2
+elseif mesec > 0:
+	RESULT = -3
+elseif eff_contra = 0 or eff_contra = 4 or eff_contra = 5:
+	if ((preziktype = 1 and ((preziksabo + prezikcount) > 0)) or preziktype = 2) and tabletkicheck = 0 and tabletki > 0:
+		RESULT = 1
+	else:
+		RESULT = 0
+	end
+elseif eff_contra = 1 or eff_contra = 7:
+	!{Definitely delibarately trying to get pregnant.}
+	RESULT = 2
+end
+
+--- pregriskeval ---------------------------------
+

locations/sex

@@ -292,7 +292,8 @@ if $ARGS[0] = 'end':
 		spafinloc = 12
 		'He groans loudly, and you feel his hard cock erupting in your mouth. You swallow it obediently, figuring that is what he wants you to do.'
 	elseif pos < 7:
-		if tabletki <= 0 and mesec <= 0 and knowpreg = 0:cuminside = 1
+		spafinloc = 0
+		cuminside = 1
 		'He groans loudly, spraying his seed deep inside your pussy.'
 	else
 		spafinloc = 3
@@ -304,17 +305,8 @@ if $ARGS[0] = 'end':
 		orgasm += 1
 		'You feel so horny after bringing him to orgasm, you''re very close to having an orgasm also! You close your eyes and surrender yourself to the moment, quickly rubbing yourself to completion.'
 	end
-	if cuminside = 1:
-		cuminside = 0
-		if knowpreg = 0 and thinkpreg = 0:
-			if tabletkishot ! 0: '"I''m glad I got my birth control shot!" you think to yourself.'
-			if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill..." you think to yourself.'
-			if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
-		else
-			'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-		end
-	end
 	pos = 0
+	if cuminside = 1: gs 'cuminsidereact'
 	gs 'stat'
 	act 'Leave':
 		if picrand >= 54 and picrand <= 73:gt 'office', 'work'

locations/sexdvoe

@@ -244,88 +244,40 @@ if $ARGS[0] = 'end':
 		gs 'cum_call', 'anus', '<<$boy1>>','<<temp2>>'
 		if $boy = $boy1:
 			'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, shit!" You think, realizing with horror that you can become pregnant with the child of a guy whose name you don''t know.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
 		else
 			'They both groan, and you feel as <<$boytemp>> pump your pussy full of his seed, while <<$boytemp1>>''s semen is released in your ass.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, God!" You remember with horror that you could become pregnant with the child of <<$boy>>.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', $boytemp1
 		end
 	elseif sexdvoeloc = 2:
 		gs 'cum_call', '', '<<$boy1>>','<<temp2>>'
 		gs 'cum_call', 'anus', '<<$boy>>','<<temp1>>'		
 		if $boy = $boy1:
 			'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, shit!" You think, realizing with horror that you can become pregnant with the child of a guy whose name you don''t know.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
 		else
 			'They both groan, and you feel as <<$boytemp1>> pump your pussy full of his seed, while <<$boytemp>>''s semen is released in your ass.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, God!" You remember with horror that you could become pregnant with the child of <<$boytemp1>>.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', $boytemp1
 		end
 	elseif sexdvoeloc = 3:
 		gs 'cum_call', '', '<<$boy>>','<<temp1>>'
 		gs 'cum_call', 'mouth', '<<$boy1>>','<<temp2>>'
 		if $boy = $boy1:
 			'They groan, and you have to swallow one of the <<$boytemp>>''s seed while the other pumps your pussy full of his own.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, shit!" You think, realizing with horror that you can become pregnant with the child of a guy whose name you don''t know.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
 		else
 			'They both groan, and you have to swallow <<$boytemp1>>''s seed while <<$boytemp>> pumps your pussy full of his own.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, God!" You remember with horror that you could become pregnant with the child of <<$boytemp>>.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', $boytemp
 		end
 	elseif sexdvoeloc = 4:
 		gs 'cum_call', '', '<<$boy1>>','<<temp2>>'
 		gs 'cum_call', 'mouth', '<<$boy>>','<<temp1>>'
 		if $boy = $boy1:
 			'They groan, and you have to swallow one of the <<$boy>>''s seed while the other pumps your pussy full of his own.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, shit!" You think, realizing with horror that you can become pregnant with the child of a guy whose name you don''t know.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
 		else
 			'They both groan, and you have to swallow <<$boytemp>>''s seed while <<$boytemp1>> pumps your pussy full of his own.'
-			if knowpreg = 0 and thinkpreg = 0:
-				if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-				if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-				if tabletkishot = 0 and pillcon <=2000:'<br>"Oh, God!" You remember with horror that you could become pregnant with the child of <<$boytemp1>>.'
-			else
-				'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-			end
+			gs 'cuminsidereact', $boytemp1
 		end
 	elseif sexdvoeloc = 5:
 		gs 'cum_call', 'anus', '<<$boy>>','<<temp1>>'

locations/sexprefrand

@@ -0,0 +1,35 @@
+# sexprefrand
+
+
+bjctr = 0
+:sexprefrandbj
+if bjctr <= stat['bj']:
+	$spr[bjctr] = 'bj'
+	bjctr += 1
+	jump 'sexprefrandbj'
+end
+
+vagctr = 0
+tmp = 0
+:sexprefrandvag
+if vagctr <= stat['vaginal']:
+	$spr[tmp] = 'vaginal'
+	vagctr += 1
+	tmp += 1
+	jump 'sexprefrandvag'
+end
+
+analctr = 0
+:sexprefrandanal
+if vagctr <= stat['anal']:
+	$spr[tmp] = 'anal'
+	vagctr += 1
+	tmp += 1
+	jump 'sexprefrandanal'
+end
+
+$RESULT = $spr[rand(0, arrsize('$spr')-1)]
+
+
+--- sexprefrand ---------------------------------
+

locations/soba

@@ -69,7 +69,7 @@ if $ARGS[0] = 'polactdog':
 		act '....':
 			cls
 			minut += 10
-			$boy = 'Dog'
+			$boy = 'Your dog'
 			sexpartkno = 1
 			sexspecpot = -1
 			gs 'cum_manage'
@@ -95,7 +95,7 @@ if $ARGS[0] = 'polactdog':
 		act '....':
 			cls
 			minut += 10
-			$boy = 'Dog'
+			$boy = 'Your dog'
 			sexpartkno = 1
 			sexspecpot = -1
 			spafinloc = 3
@@ -190,6 +190,7 @@ if $ARGS[0] = 'gamedog':
 				minut += 5
 				zoo += 1
 				spafinloc = 11
+				$boy = 'Your dog'
 				gs 'cum_manage'
 				throat += 1
 				os = 0
@@ -302,6 +303,7 @@ if $ARGS[0] = 'hardcoredog':
 											orgasm += 1
 											minut += 10
 											horny = 0
+											$boy = 'Your dog'
 											gs 'cum_manage'
 											gs 'stat'
 											'<center><img src="images/zoo/spa7.jpg"></center>'
@@ -420,6 +422,9 @@ if $ARGS[0] = 'cumshot2':
 	*clr
 	zoo += 1
 	vagina += 1
+	$boy = 'Your dog'
+	spafinloc = 0
+	sexspecpot = -1
 	gs 'cum_manage'
 	orgasm += 1
 	horny = 0
@@ -441,6 +446,7 @@ if $ARGS[0] = 'cumshot1':
 	swallow += 1
 	throat += 1
 	spafinloc = 12
+	$boy = 'Your dog'
 	gs 'cum_manage'
 	orgasm += 1
 	horny = 0
@@ -463,6 +469,9 @@ if $ARGS[0] = 'zoof14':
 	minut += 5
 	zoo += 1
 	vagina += 1
+	sexspecpot = -1
+	spafinloc = 0
+	$boy = 'Your dog'
 	gs 'cum_manage'
 	gs 'stat'
 	'<center><img src="images/zoo/yl4.jpg"></center>'
@@ -481,8 +490,11 @@ if $ARGS[0] = 'zoof15':
 	horny = 0
 	minut += 5
 	zoo += 1
-	gs 'cum_call', '', 'Rex', '', '', '-1'
+	sexspecpot = -1
+	spafinloc = 0
+	$boy = 'Your dog'
 	vagina += 1
+	gs 'cum_manage'
 	gs 'stat'
 	'<center><img src="images/zoo/yl5.jpg"></center>'
 	'You turn your back on <<$namesob>>, he jumps on you and starts to fuck you.'
@@ -547,10 +559,16 @@ if $ARGS[0] = 'zoof27':
 		minut += 10
 		vagina += 1
 		orgasm += 1
+		minut += 5
+		zoo += 1
+		sexspecpot = -1
+		spafinloc = 0
+		$boy = 'Your dog'
+		gs 'cum_manage'
 		gs 'stat'
 		'<center><img src="images/zoo/kuh.jpg"></center>'
 		'You assume the position, doggy ​​jumps on you and starts fucking'
-		'It doesn''t take long for you to orgasm.'
+		'It doesn''t take for <<$namesob>> to cum inside you.'
 
 		if REXQW = 1:act 'Call Sonia':gt 'soba', 'dzoof1'
 
@@ -587,8 +605,8 @@ if $ARGS[0] = 'zoof30':
 			'Your dog stands over you and you rub his member.'
 			'Your juices start to flow.'
 
-			act 'Doggy doggy':gt 'soba', 'doganalstile'
-			act 'Face to face fuck':gt 'soba', 'dogpussystile'
+			act 'Doggy doggy':gt 'soba', 'dogcancerstyle'
+			act 'Face to face fuck':gt 'soba', 'dogmissionarystyle'
 		end
 	end
 
@@ -612,23 +630,29 @@ if $ARGS[0] = 'zoof30':
 			'Your dog stands over you and you rub his member.'
 			'Your juices start to flow.'
 
-			act 'Doggy doggy':gt 'soba', 'doganalstile'
-			act 'Face to face fuck':gt 'soba', 'dogpussystile'
+			act 'Doggy doggy':gt 'soba', 'dogcancerstyle'
+			act 'Face to face fuck':gt 'soba', 'dogmissionarystyle'
 		end
 	end
 end
 
-if $ARGS[0] = 'doganalstile':
+if $ARGS[0] = 'dogcancerstyle':
 	cla
 	*clr
 	zoo += 1
 	minut += 10
 	vagina += 1
 	orgasm += 1
+	minut += 5
+	zoo += 1
+	sexspecpot = -1
+	spafinloc = 0
+	$boy = 'Your dog'
+	gs 'cum_manage'
 	gs 'stat'
 	'<center><img src="images/zoo/zal3.jpg"></center>'
-	'You get on all fours and your dog ​​jumps you and starts fucking'
-	'It doesn''t take long for you to orgasm.'
+	'You get on all fours and your dog ​​jumps you and starts fucking your pussy.'
+	'It doesn''t take for <<$namesob>> to cum inside you.'
 
 	if REXQW = 1:act 'Call Sonia':gt 'soba', 'dzoof1'
 
@@ -636,17 +660,23 @@ if $ARGS[0] = 'doganalstile':
 end
 
 
-if $ARGS[0] = 'dogpussystile':
+if $ARGS[0] = 'dogmissionarystyle':
 	cla
 	*clr
 	zoo += 1
 	minut += 10
 	vagina += 1
 	orgasm += 1
+	minut += 5
+	zoo += 1
+	sexspecpot = -1
+	spafinloc = 0
+	$boy = 'Your dog'
+	gs 'cum_manage'
 	gs 'stat'
 	'<center><img src="images/zoo/zal2.jpg"></center>'
 	'You push yourself up on ti your feet, from this better angle <<$namesob>> easily finds his way into your pussy.'
-	'It doesn''t take long for you to orgasm.'
+	'It doesn''t take for <<$namesob>> to cum inside you.'
 
 	if REXQW = 1:act 'Call Sonia':xgt 'soba', 'dzoof1'
 

locations/stat_display

@@ -303,9 +303,9 @@ if opPRE = 0 :
 	    elseif horny < 90 and tanga = 0:
 		    $stat_msg += '<BR><font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/picb/briefs1a.jpg''">itchy</a> from arousal.</font>'
 	    elseif tanga = 1:
-		    $stat_msg += '<BR><font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2.jpg''">soaked</a> from your juices.</font>'
+		    $stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/picb/briefs2.jpg''">soaked</a> from your juices.</font>'
 	    else
-		    $stat_msg += '<BR><font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2a.jpg''">soaked</a> from your juices.</font>' 
+		    $stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/picb/briefs2a.jpg''">soaked</a> from your juices.</font>' 
 	    end
     end
 end
@@ -407,7 +407,12 @@ $stat_msg += '<BR>'
 if prezikmsg = 2:$stat_msg += '<BR><b><font color="red">You have run out of condoms.</font></b>' & $stat_msg += '<BR>'
 
 if opPRE = 0 :
-    if mesec > 0:
+	if implant_day > 0:
+		implant_since = (((daystart+1) - implant_day) * 24) - (24 - implant_hour)
+		if implant_since < 5:
+			$stat_msg += '<BR><font color="pink">You feel a slight twinge in your abdomen.</font>'
+		end
+    elseif mesec > 0:
         $stat_msg += '<BR><font color="red">You are currently having your period. '
         if isprok = 0 and isprokp = 0:
             $stat_msg += '<b>You need to use your feminine hygiene products.</b>'
@@ -479,111 +484,113 @@ if body_write > 0 or face_write > 0:
 	end
 end
 
-$temp[1] = {
-	if sparridt[temp1arr] = 1:
-		temp2arr = temp1arr + 1
+$cumdescribe = {
+	if sparridt[cumres_idx] = 1:
+		cumres_idx2 = cumres_idx + 1
 		if Enable_Android = 1:
-			temp3arr = arrpos('sparrloc',i,temp2arr)
+			cumres_idx3 = arrpos('sparrloc',i,cumres_idx2)
 			!May need to use this after Quest player 6+
 		else
-			temp3arr = arrpos(temp2arr,'sparrloc',i)
+			cumres_idx3 = arrpos(cumres_idx2,'sparrloc',i)
 		end  
-		if temp3arr > 0 and sparrvol[temp3arr] > 0 and sparrloc[temp3arr] = i and $sparrnam[temp3arr] ! $sparrnam[temp1arr]:
-			$cumtemp[1] = 'Multiple men'
+		if cumres_idx3 > 0 and sparrvol[cumres_idx3] > 0 and sparrloc[cumres_idx3] = i and $sparrnam[cumres_idx3] ! $sparrnam[cumres_idx]:
+			$cumres['name'] = 'Multiple men'
 		else
-			$cumtemp[1] = $sparrnam[temp1arr]
+			$cumres['name'] = $sparrnam[cumres_idx]
 		end
 	else
-		$cumtemp[1] = 'Somebody'
+		$cumres['name'] = 'Somebody'
 	end
-	if sparrage[temp1arr] < temp[2]:
-		$cumtemp[2] = 'fresh '
-	elseif sparrage[temp1arr] < temp[3]:
-		$cumtemp[2] = ''
+	if sparrage[cumres_idx] < cumres['new_thresh']:
+		$cumres['desc'] = 'fresh '
+	elseif sparrage[cumres_idx] < cumres['crusty_thresh']:
+		$cumres['desc'] = ''
 	else
-		temp[4] = sparrloc[temp1arr]
-		if temp[4] ! 0 and temp ! 3:
-			$cumtemp[2] = 'crusty '
+		if sparrloc[cumres_idx] ! 0 and sparr_idx ! 3:
+			$cumres['desc'] = 'crusty '
 		else
-			$cumtemp[2] = 'stale '
+			$cumres['desc'] = 'stale '
 		end
 	end
 }
-temp = arrsize('sparrvol')
-if temp > 0:
+if arrsize('sparrvol') > 0:
 	!{index for use in dynamic}
 	i = 0
 	!{values for fresh and crusty, only updated where needed}
-	temp[2] = 4
-	temp[3] = 10
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		$cumtemp[3] = 'fills your '
-		if sparrslc[temp1arr] > 0:
-			$cumtemp[3] = 'slowly flows from your '
-			spdirtyn = 1
-		elseif sparrslc[temp] > 0 and sparrloc[temp] = 0:
-			$cumtemp[3] = 'slowly flows from your '
-			spdirtyn = 1
-		end
-		if swallow >= 10:
-			$stat_msg += '<BR><a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',0) & gs ''cum_manage'', ''cumeater2''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>>pussy.</a></font></b>'
-		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumpussy.jpg''">pussy.</a></font></b>'
+	cumres['new_thresh'] = 4
+	cumres['crusty_thresh'] = 10
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if vibratorIN = 1:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm fills your pussy, corked in by your vibrator.</font></b>'
+		else:
+			$cumres['state'] = 'fills your '
+			if sparrslc[cumres_idx] > 0:
+				$cumres['state'] = 'slowly flows from your '
+				spdirtyn = 1
+			elseif sparrslc[sparr_idx] > 0 and sparrloc[sparr_idx] = 0:
+				$cumres['state'] = 'slowly flows from your '
+				spdirtyn = 1
+			end
+			if swallow >= 10:
+				$stat_msg += '<BR><a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',0) & gs ''cum_manage'', ''cumeater2''"><b><font color="blue">sperm</font></b></a><b> <<$cumres[''state'']>>pussy.</a></font></b>'
+			else
+				$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm <<$cumres[''state'']>><a href="exec:view''images/body/cumpussy.jpg''">pussy.</a></font></b>'
+			end
+			cumloc[0] = 1
+			spdirty = 1
 		end
-		cumloc[0] = 1
-		spdirty = 1
 		spdirtyi = 1
 	end
 	i = 1
-	temp[2] = 1
-	temp[3] = 5
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',1) & gs ''cum_manage'', ''cumeater2''"><b><font color="blue">sperm</font></b></a><b> is smeared across your pussy lips.</font></b>.'
+	cumres['new_thresh'] = 1
+	cumres['crusty_thresh'] = 5
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',1) & gs ''cum_manage'', ''cumeater2''"><b><font color="blue">sperm</font></b></a><b> is smeared across your pussy lips.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your pussy lips.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your pussy lips.</a></font></b>'
 		end
 		cumloc[1] = 1
 		spdirty = 1
 		spdirtyn = 1
 	end
 	i = 2
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',2) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your panties.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',2) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your panties.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your panties.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your panties.</a></font></b>'
 		end
 		cumloc[2] = 1
 		spdirtyc = 1
 	end
 	i = 3
-	temp[2] = 4
-	temp[3] = 10
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
+	cumres['new_thresh'] = 4
+	cumres['crusty_thresh'] = 10
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
 		if analplugin = 1:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
 		else
-			$cumtemp[3] = 'fills your '
-			if sparrslc[temp1arr] > 0:
-				$cumtemp[3] = 'slowly flows from your '
+			$cumres['state'] = 'fills your '
+			if sparrslc[cumres_idx] > 0:
+				$cumres['state'] = 'slowly flows from your '
 				spdirtyn = 1
-			elseif sparrslc[temp] > 0 and sparrloc[temp] = 3:
-				$cumtemp[3] = 'slowly flows from your '
+			elseif sparrslc[sparr_idx] > 0 and sparrloc[sparr_idx] = 3:
+				$cumres['state'] = 'slowly flows from your '
 				spdirtyn = 1
 			end
 			if swallow >= 10:
-				$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',3) & gs ''cum_manage'', ''cumeater6''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+				$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',3) & gs ''cum_manage'', ''cumeater6''"><b><font color="blue">sperm</font></b></a><b> <<$cumres[''state'']>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
 			else
-				$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+				$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm <<$cumres[''state'']>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
 			end
 		end
 		cumloc[3] = 1
@@ -591,103 +598,103 @@ if temp > 0:
 		spdirtyi = 1
 	end
 	i = 4
-	temp[2] = 1
-	temp[3] = 5
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',4) & gs ''cum_manage'', ''cumeater3''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</font></b>.'
+	cumres['new_thresh'] = 1
+	cumres['crusty_thresh'] = 5
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',4) & gs ''cum_manage'', ''cumeater3''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</a></font></b>'
 		end
 		cumloc[4] = 1
 		spdirty = 1
 		spdirtyn = 1
 	end
 	i = 5
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',5) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the ass of your panties.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',5) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the ass of your panties.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the ass of your panties.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the ass of your panties.</a></font></b>'
 		end
 		cumloc[5] = 1
 		spdirtyc = 1
 	end
 	i = 6
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',6) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',6) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</a></font></b>'
 		end
 		cumloc[6] = 1
 		spdirtyc = 1
 	end
 	i = 7
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',7) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',7) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</a></font></b>'
 		end
 		cumloc[7] = 1
 		spdirtyc = 1
 	end
 	i = 8
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',8) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your back.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',8) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your back.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your back.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your back.</a></font></b>'
 		end
 		cumloc[8] = 1
 		spdirty = 1
 		spdirtyn = 1
 	end
 	i = 9
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',9) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your legs.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',9) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your legs.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your legs.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your legs.</a></font></b>'
 		end
 		cumloc[9] = 1
 		spdirty = 1
 		spdirtyn = 1
 	end
 	i = 10
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',10) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your arms.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',10) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your arms.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your arms.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your arms.</a></font></b>'
 		end
 		cumloc[10] = 1
 		spdirty = 1
 		spdirtyn = 1
 	end
 	i = 11
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',11) & gs ''cum_manage'', ''cumeater4''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',11) & gs ''cum_manage'', ''cumeater4''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</a></font></b>'
 		end
 		cumloc[11] = 1
 		spdirty = 1
@@ -695,23 +702,23 @@ if temp > 0:
 		spdirtyv = 1
 	end
 	i = 12
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		$stat_msg += '<BR><b><font color="red">Your mouth smells like <<$cumtemp[1]>>''s sperm.</a></font></b>'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		$stat_msg += '<BR><b><font color="red">Your mouth smells like <<$cumres[''name'']>>''s sperm.</a></font></b>'
 		cumloc[12] = 1
 		spdirty = 1
 		spdirtyb = 1
 		fbreath = 0
 	end
 	i = 13
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',13) & gs ''cum_manage'', ''cumeater8''"><b><font color="blue">sperm</font></b></a><b> is smeared across your hands.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',13) & gs ''cum_manage'', ''cumeater8''"><b><font color="blue">sperm</font></b></a><b> is smeared across your hands.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your hands.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your hands.</a></font></b>'
 		end
 		cumloc[13] = 1
 		spdirty = 1
@@ -720,39 +727,39 @@ if temp > 0:
 		spdirtyf = 1
 	end
 	i = 14
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',14) & gs ''cum_manage'', ''cumeater1''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',14) & gs ''cum_manage'', ''cumeater1''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach.</a></font></b>'
 		end
 		cumloc[14] = 1
 		spdirty = 1
 		spdirtyn = 1
 	end
 	i = 15
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',15) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your breasts.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',15) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your breasts.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your breasts.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your breasts.</a></font></b>'
 		end
 		cumloc[15] = 1
 		spdirty = 1
 		spdirtyn = 1
 	end
 	i = 16
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		dynamic $temp[1]
-		if swallow >= 10 and sparrage[temp1arr] < 5:
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',16) & gs ''cum_manage'', ''cumeater9''"><b><font color="blue">sperm</font></b></a><b> is smeared in your hair.</font></b>.'
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		dynamic $cumdescribe
+		if swallow >= 10 and sparrage[cumres_idx] < 5:
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:cumres_idx = arrpos(''sparrloc'',16) & gs ''cum_manage'', ''cumeater9''"><b><font color="blue">sperm</font></b></a><b> is smeared in your hair.</font></b>.'
 		else
-			$stat_msg += '<BR><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared in your hair.</a></font></b>'
+			$stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared in your hair.</a></font></b>'
 		end
 		cumloc[16] = 1
 		spdirty = 1
@@ -760,32 +767,30 @@ if temp > 0:
 		spdirtyv = 1
 	end
 	i = 17
-	temp1arr = arrpos('sparrloc',i)
-	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
-		if sparridt[temp1arr] = 1:
-			$cumtemp[1] = $sparrnam[temp1arr]
+	cumres_idx = arrpos('sparrloc',i)
+	if cumres_idx >= 0 and sparrloc[cumres_idx] = i and sparrvol[cumres_idx] > 0:
+		if sparridt[cumres_idx] = 1:
+			$cumres['name'] = $sparrnam[cumres_idx]
 		else
-			$cumtemp[1] = 'Somebody'
+			$cumres['name'] = 'Somebody'
 		end
-		if sparrage[temp1arr] < 1:
-			$cumtemp[2] = 'freshly buried'
-		elseif sparrage[temp1arr] < 13:
-			$cumtemp[2] = 'buried'
+		if sparrage[cumres_idx] < 1:
+			$cumres['desc'] = 'freshly buried'
+		elseif sparrage[cumres_idx] < 13:
+			$cumres['desc'] = 'buried'
 		else
-			$cumtemp[2] = 'marinating '
+			$cumres['desc'] = 'marinating '
 		end
-		$stat_msg += '<BR><b><font color="red">A spent condom full of <<$cumtemp[1]>>''s sperm is <<$cumtemp[2]>> deep in your vagina.</a></font></b>'
+		$stat_msg += '<BR><b><font color="red">A spent condom full of <<$cumres[''name'']>>''s sperm is <<$cumres[''desc'']>> deep in your vagina.</a></font></b>'
 		cumloc[17] = 1
 		spdirty = 1
 		spdirtyi = 1
 	end
 end
 !{should kill all temp values}
-killvar '$temp'
-killvar '$cumtemp'
-temp1arr = 0
-temp2arr = 0
-temp3arr = 0
+cumres_idx = 0
+cumres_idx2 = 0
+cumres_idx3 = 0
 cumfrot = 0
 cumpussy = 0
 cumbelly = 0

locations/taxi

@@ -68,71 +68,134 @@ if $ARGS[0] = 'ride':
 	gs 'stat'
 	gs 'boyStat', 58
 	temp = rand(0,2)
+	$temp = func 'sexprefrand'
 	'<center><img src="images/Nigma/city/taxi/showtits.jpg"></center>'
 	'Once seated in the back seat you blurt out."I don''t have any money" The driver turns and glares back at you. "Why did you wave me down then, get out!" You quickly pull your top down showing him your tits. "Maybe we can work something out?" He looks you over for a moment and then nods. "Ok you give me a ride then I''ll give you a ride." He says with a leer and drives you back to his garage.'
 	
-	if vagina = 0:temp = rand(0,1) & 'When he stops in his garage, you say."I''m still a virgin." Seeing the look at his face, you hastily add with a sweet smile."We can still have fun in other ways." He grunts and nods accepting the condition.' 
+	if stat['vaginal'] = 0:
+		$temp = 'bj' & 'When he stops in his garage, you say."I''m still a virgin." Seeing the look at his face, you hastily add with a sweet smile."We can still have fun in other ways." He grunts and nods accepting the condition.' 
+	else:
+		act 'Suggest he fuck you': gt 'taxi', 'vag1'
+	end
+	act 'Suggest you blow him': gt 'taxi', 'bj'
+	act 'Suggest anal': gt 'taxi', 'anal'
+
 	
-	act 'Continue':
-		cla
-		*clr
-		taxioffer = 1
-		if temp = 0:
-			spafinloc = 12
-			gs 'cum_manage'
-			stat['bj'] += 1
-			gs 'stat'
-			'<center><img src="images/Nigma/city/taxi/тк0,'+rand(0,2)+'.gif"></center>'
-			'He turns the taxi off and tells you to come up to the front seat. You get out and crawl into the passenger seat, he already has his <<dick>>cm <<$dick_girth>> cock out of his pants stroking it. He doesn''t say a word, just gives you a look. You scurry over at once and wrap your lips around his cock. You begin sucking his cock while your hand fondles his balls.'
-			'He moans and leans back to give you more room to work. Some time later he grabs your hair with his hand and forces you head down, ramming his <<dick>>cm <<$dick_girth>> cock down your throat. "That''s a good little slut." This makes your eyes water and you gag, he doesn''t seem to care, as this causes you to almost uncontrollable slobbery.'
-			'Several minutes later, your throat begins to feel raw. He suddenly stops and holds your head still, his cock still in your mouth. "I''m cumming and you better swallow every drop of it bitch." His body spasms, almost at once you feel the spurts of cum blasting into your mouth, once he is done cumming her jerks your head away and pushes you away. You swallow his sperm like he told you as he puts his dick away.'
-			'Looking at you with irritation, "What the fuck are you still sitting there for, get in the fucking back." You quickly do as he says and he drives you to where you need to go.'
-			act 'Choose destination':
-				cla
-				gs 'taxi', 'locations'
-			end
-		elseif temp = 1:
-			guy+=1
-			spafinloc = 3
-			gs 'cum_manage'
-			gs 'stat'
-			'<center><img src="images/Nigma/city/taxi/taxi3,'+rand(0,5)+'.jpg"></center>'
-			'He turns off the taxi and gets out, walking around to the back door. He already has his cock out, rubbing some hand lotion on it for lubrication, as he strokes it.'
-			'He half pulls you out of the taxi and pulls your clothes aside and your panties down just enough to completely bare your ass, which he gives a hard slap to. He rubs the tip of his <<dick>>cm <<$dick_girth>> cock against your anus, while you start to rub your clit with your hand, as you bite your lower lip, trying to prepare yourself mentally for what is about to come.'
-			'Then with a grunt he shoves his <<dick>>cm <<$dick_girth>> cock up your ass, pushing it balls deep in your ass. You grunt in pain and bite your lip nearly hard enough to draw blood, as he begins to furiously fuck you, obviously not caring if you are enjoying it or not.'
-			'As your asshole begins to loosen a bit and the ministrations of your fingers on your clit, turn you on, it begins to hurt less and feel better, as a slight moan of pleasure escapes your lips. For several minutes he pounds your ass, until he finally stops cock buried balls deep in your ass. He grunts as you feel the spurts of cum shooting deep into your ass.'
-			'With a final moan and spurt, he stands up. Pushing you back inside he slams the door and gets back in the drivers seat, starting the taxi up and then takes you to where you need to go.'
-			act 'Choose destination':
-				cla
-				gs 'taxi', 'locations'
-			end
+	act 'Let him decide':
+		if $temp = 'bj': gt 'taxi', 'bj'
+		if $temp = 'vaginal': gt 'taxi', 'vag1'
+		if $temp = 'anal': gt 'taxi', 'anal'
+	end
+	act 'Chicken out':gt $loc,$metka
+end
+
+if $ARGS[0] = 'vag1':
+	cla
+	*clr
+	taxioffer = 1
+	guy+=1
+	stat['vaginal'] += 1
+	ending = rand(0,1)
+	cumprecheck = 1
+	gs 'cum_manage'
+	'<center><img src="images/Nigma/city/taxi/taxi1,'+rand(0,5)+'.jpg"></center>'
+	'He turns off the taxi and gets out. He comes around and opens the back door, he already has his cock out stroking it, rubbing some hand lotion on it for lubrication.'
+	'He half pulls you out of the taxi and starts pulling your clothes off just enough to give him a clear path to your pussy. He rubs the tip of his <<dick>>cm <<$dick_girth>> cock against your pussy lips.'
+	'Without even checking to see if your wet, he shoves his dick in, driving himself balls deep in you. At first it hurts as he begins to furiously fuck your unprepared pussy, obviously not caring if you are enjoying it or not, luckily you find yourself getting turned on at being used and your pussy becomes soaking wet, you begin to moan in pleasure.'
+	act 'Beg him not to come inside you':
+		if ending = 0 or rand(0, 2) ! 0:
+			gs 'taxi', 'cum1'
 		else
-			guy+=1
-			stat['vaginal'] += 1
-			ending = rand(0,1)
-			cumprecheck = 1
-			gs 'cum_manage'
-			if ending = 0:
-				spafinloc = 14
-				gs 'cum_manage'
-				$ending = 'For several minutes he pounds your pussy, as your pleasure mounts, you feel yourself close to climax, then suddenly he pulls out and starts shooting spurts of cum all over your stomach. With a final moan and spurt, he stands up, leering down at you and his handy work as he pushes you back inside the taxi and slams the door shut.'
-			else
-				gs 'cum_manage'
-				$ending = 'For several minutes he pounds your pussy, as your pleasure mounts, you feel yourself close to climax, then suddenly he starts shooting spurts of cum deep inside you. After a final moan and spurt he stands up, leering down at you as he pushes you back inside the taxi and slams the door shut.'
-			end
-			gs 'stat'
-			'<center><img src="images/Nigma/city/taxi/taxi1,'+rand(0,5)+'.jpg"></center>'
-			'He turns off the taxi and gets out. He comes around and opens the back door, he already has his cock out stroking it, rubbing some hand lotion on it for lubrication.'
-			'He half pulls you out of the taxi and starts pulling your clothes off just enough to give him a clear path to your pussy. He rubs the tip of his <<dick>>cm <<$dick_girth>> cock against your pussy lips.'
-			'Without even checking to see if your wet, he shoves his dick in, driving himself balls deep in you. At first it hurts as he begins to furiously fuck your unprepared pussy, obviously not caring if you are enjoying it or not, luckily you find yourself getting turned on at being used and your pussy becomes soaking wet, you begin to moan in pleasure.'
-			$ending
-			'He walks back to the drivers door, putting his dick away as he gets in and starts the taxi up, then takes you to where you need to go.'
-			act 'Choose destination':
-				cla
-				gs 'taxi', 'locations'
-			end
+			gs 'taxi', 'cum2'
 		end
 	end
+	act 'Wrap your legs around him':
+		gs 'taxi', 'cum3'
+	end
+	act 'Finish':
+
+		if horny > 95 and rand(0, 4) < 1:
+			ending = 2
+		end
+
+		if ending = 0: gs 'taxi', 'cum1'
+		if ending = 1: gs 'taxi', 'cum2'
+		if ending = 2: gs 'taxi', 'cum3'
+	end
+end
+
+if $ARGS[0] = 'cum1':
+	spafinloc = 14
+	gs 'cum_manage'
+	'For several minutes he pounds your pussy, as your pleasure mounts, you feel yourself close to climax, then suddenly he pulls out and starts shooting spurts of cum all over your stomach. With a final moan and spurt, he stands up, leering down at you and his handy work as he pushes you back inside the taxi and slams the door shut.'
+	gs 'stat'
+	gs 'taxi', 'end'
+end
+
+if $ARGS[0] = 'cum3':
+	spafinloc = 0
+	gs 'cum_manage'
+	'For several minutes he pounds your pussy, as your pleasure mounts, you feel yourself close to climax, and you wrap your legs around him to pull him deeper inside. Suddenly he moans and begins pumping his sperm deep inside you. '
+	gs 'cuminsidereact'
+	gs 'stat'
+	gs 'taxi', 'end'
+end
+
+if $ARGS[0] = 'cum2':
+	spafinloc = 0
+	gs 'cum_manage'
+	'For several minutes he pounds your pussy, as your pleasure mounts, you feel yourself close to climax, then suddenly he starts shooting spurts of cum deep inside you. After a final moan and spurt he stands up, leering down at you as he pushes you back inside the taxi and slams the door shut.'
+	gs 'cuminsidereact'
+	gs 'stat'
+	gs 'taxi', 'end'
+end
+
+if $ARGS[0] = 'end':
+	cla
+	'He walks back to the drivers door, putting his dick away as he gets in and starts the taxi up, then takes you to where you need to go.'
+	act 'Choose destination':
+		cla
+		gs 'taxi', 'locations'
+	end
+end
+
+if $ARGS[0] = 'bj':
+	cla
+	*clr
+	taxioffer = 1
+	spafinloc = 12
+	gs 'cum_manage'
+	stat['bj'] += 1
+	gs 'stat'
+	'<center><img src="images/Nigma/city/taxi/тк0,'+rand(0,2)+'.gif"></center>'
+	'He turns the taxi off and tells you to come up to the front seat. You get out and crawl into the passenger seat, he already has his <<dick>>cm <<$dick_girth>> cock out of his pants stroking it. He doesn''t say a word, just gives you a look. You scurry over at once and wrap your lips around his cock. You begin sucking his cock while your hand fondles his balls.'
+	'He moans and leans back to give you more room to work. Some time later he grabs your hair with his hand and forces you head down, ramming his <<dick>>cm <<$dick_girth>> cock down your throat. "That''s a good little slut." This makes your eyes water and you gag, he doesn''t seem to care, as this causes you to almost uncontrollable slobbery.'
+	'Several minutes later, your throat begins to feel raw. He suddenly stops and holds your head still, his cock still in your mouth. "I''m cumming and you better swallow every drop of it bitch." His body spasms, almost at once you feel the spurts of cum blasting into your mouth, once he is done cumming her jerks your head away and pushes you away. You swallow his sperm like he told you as he puts his dick away.'
+	'Looking at you with irritation, "What the fuck are you still sitting there for, get in the fucking back." You quickly do as he says and he drives you to where you need to go.'
+	act 'Choose destination':
+		cla
+		gs 'taxi', 'locations'
+	end
+end
+
+if $ARGS[0] = 'anal':
+	cla
+	*clr
+	taxioffer = 1
+	guy+=1
+	spafinloc = 3
+	gs 'cum_manage'
+	gs 'stat'
+	'<center><img src="images/Nigma/city/taxi/taxi3,'+rand(0,5)+'.jpg"></center>'
+	'He turns off the taxi and gets out, walking around to the back door. He already has his cock out, rubbing some hand lotion on it for lubrication, as he strokes it.'
+	'He half pulls you out of the taxi and pulls your clothes aside and your panties down just enough to completely bare your ass, which he gives a hard slap to. He rubs the tip of his <<dick>>cm <<$dick_girth>> cock against your anus, while you start to rub your clit with your hand, as you bite your lower lip, trying to prepare yourself mentally for what is about to come.'
+	'Then with a grunt he shoves his <<dick>>cm <<$dick_girth>> cock up your ass, pushing it balls deep in your ass. You grunt in pain and bite your lip nearly hard enough to draw blood, as he begins to furiously fuck you, obviously not caring if you are enjoying it or not.'
+	'As your asshole begins to loosen a bit and the ministrations of your fingers on your clit, turn you on, it begins to hurt less and feel better, as a slight moan of pleasure escapes your lips. For several minutes he pounds your ass, until he finally stops cock buried balls deep in your ass. He grunts as you feel the spurts of cum shooting deep into your ass.'
+	'With a final moan and spurt, he stands up. Pushing you back inside he slams the door and gets back in the drivers seat, starting the taxi up and then takes you to where you need to go.'
+	act 'Choose destination':
+		cla
+		gs 'taxi', 'locations'
+	end
 end
 
 
@@ -160,7 +223,7 @@ if $ARGS[0] = 'trip':
 		'He turns the taxi off and gets out. "Get out bitch!" You look around a bit afraid but seeing the look on his face makes you more afraid so you do as he says and get out. Once your out of his taxi, he roughly grabs you by the arm and pulls you around to the front of his taxi and shoves you against the front of it.'
 		'"Now take off all your clothes bitch!" When you don''t do as he says at once he threatens you. "It''s either that or the police." Nodding in understanding you take off all your clothes as he instructed. Once your completely naked he turns you around and bends you over the the front of his car. He is obviously planning on fucking you.'
 		if lube > 1:'Realizing he is likely to fuck you, you turn your head to look back at him and offer your lube. "Wait I have some lube in my purse it will make it better for both of us." He laughs and slaps your ass hard enough to leave a outline of his hand on your ass. "Maybe better for you, but I like to dry fuck bitches and listen to their sobs. Maybe this will teach you a lesson." He says with a cruel look in his eyes and you realize he is going to enjoy hurting you, as he gives your ass another hard smack.'
-		if vagina = 0:
+		if stat['vaginal'] = 0:
 			act 'Tell him your a virgin':
 				cla
 				'"Wait, I''m still a virgin. Please don''t fuck my pussy." You say in a pleading voice, hoping to change his mind. He pauses for just a moment, considering.'

locations/telefon

@@ -22,7 +22,7 @@ if $ARGS[0] = 'start':
 
 	if nastjaqw = 1 and week = 6 and vnesh > 80:
 		gt 'nastja', 'pos4'
-	elseif nastjaqw = 2 and week ! 6 and zenit = 0 and nastjaday ! daystart:
+	elseif nastjaqw = 2 and week ! 6 and zenit ! 0 and nastjaday ! daystart:
 		gt 'nastja', 'pos13'
 	elseif hour >= 8 and hour <= 20 and nastjaqw = 2 and week = 6 and vnesh > 80 and nastjaday ! daystart:
 		gt 'nastja', 'pos12'

locations/univer

@@ -30,7 +30,7 @@ if $ARGS[0] = 'start':
 		gt 'down'
 	end
 
-	if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and age >= 17:
+	if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and (age >= 17 or fakepassport = 1):
 		''
 
 		act 'Pay for training course (15,000 <b>₽</b>)':
@@ -56,7 +56,7 @@ if $ARGS[0] = 'start':
 		end
 	end
 
-	if month = 8 and student = 0 and diplom = 0 and age >= 17:
+	if month = 8 and student = 0 and diplom = 0 and (age >= 17 or fakepassport = 1):
 		'You can try to take an entrance exam.'
 
 		act 'Take the entrance exam (1:00)':

locations/vokBimbo

@@ -348,7 +348,7 @@ if $ARGS[0] = 'pos66':
 		if toiletrand = 3:gs 'cum_call', 'breasts', $boy, svol,'', spot
 		if toiletrand = 4:gs 'cum_call', 'stomach', $boy, svol,'', spot
 		if toiletrand = 5:gs 'cum_call', 'labia', $boy, svol,'', spot
-		if toiletrand > 5:gs 'cum_call', '', $boy, svol,'', spot & iscumvag += 1
+		if toiletrand > 5:gs 'cum_call', '', $boy, svol,'', spot & iscumvag += 1 & sck = sexcontra
 	elseif tiprand = 1:
 		! Guy fucks her ass
 		stat['anal'] += 1
@@ -425,13 +425,7 @@ if $ARGS[0] = 'pos66':
 	end
 	' '
 	if iscumvag > 0:
-		if knowpreg = 0 and thinkpreg = 0:
-			if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
-			if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
-			if tabletkishot = 0 and pillcon <=2000:'"Oh, God!" You remember with horror that you could become pregnant with the child of some drunk guy who it''s likely you won''t even remember you tomorrow.'
-		else
-			'You chuckle to yourself, "Well at least I cannot get more pregnant."'
-		end
+		gs 'cuminsidereact', 'some drunk guy whom you likely won''t even remember tomorrow', sck
 	end
 	'After taking a few breaths, you stand up with some difficulty and gather your scattered stuff from the bathroom floor.'
 	act 'dress':gt 'vokBimbo', 'pos1'

locations/worksalon

@@ -396,7 +396,7 @@ if $ARGS[0] = '3':
 		vagina += 1
 		gs 'boyStat', 59
 		'Bent over his desk waiting, you know what is about the happen and begin to rub your clit to make yourself wet. Moments later he walks in and takes off his pants. He walks right up behind you stroking his <<dick>>cm <<$dick_girth>> cock in his hand. He rubs the tip against your wet pussy a moment before pushing his <<dick>>cm <<$dick_girth>> cock balls deep into you. He begins to fuck your pussy hard, pounding into you, as you massage your clit. Slapping your ass hard he says. "Yeah you like this, don''t you slut, all you little whore''s just love being fucked hard and rough." He pounds himself into you for some time before he grunts and you feel his sperm shooing deep inside your pussy. He pulls out and starts putting his pants back on, noticing you still bent over his desk he says. "Get the fuck out of here and get back to work slut."'
-		if tabletki <= 0 and mesec <= 0 and knowpreg = 0:'"Oh, shit!" You think, realizing with horror that you can become pregnant.'
+		gs 'cuminsidereact'
 	else
 		'<center><img src="images/img/centr/pashaanal.jpg"></center>'
 		stat['anal'] += 1