[fixed] Added a means to set safe for STDs to cum_management and used it to clean up the porn studio.

locations/Cum_Manage.qsrc

@@ -68,7 +68,9 @@
 !!	cumarrkno =  0 : 'You know somebody got sperm in you, but you don''t know that person'
 !!	cumarrkno =  1 : 'You know who got sperm in you'
 !!
+!!	Setting for no STD checks
 !!
+!!	cumnostd = 1 : No risk of STD, resets at end of file so must be used for all related cum_management calls
 !!
 !!	Locations to be defined by 'spafinloc'
 !!
@@ -122,7 +124,7 @@ if $ARGS[0] = '':
 !!{Check for previous deposit, and if it was by the same guy and precum, it sets cumarrtemp back by one}
 !!	if $cumarrnam[cumarrtemp-1] = $boy and cumarrkno[cumarrtemp-1] = -1:cumarrtemp -= 1 & sexspecpot = cumarrppt[cumarrtemp]
 
-	if cumprecheck = 1:
+	if cumprecheck = 1 and cumnostd = 0:
 		cumarrkno[cumarrtemp] = -1
 		gs 'dinSex', 'std_trigger'
 	elseif sexunaware > 0:
@@ -350,7 +352,7 @@ if $ARGS[0] = '':
 	!! creampie vaginal statistics:
 			if spafinloc = 0:
 				!!STD checks
-				gs 'dinSex', 'std_trigger'
+				if cumnostd = 0: gs 'dinSex', 'std_trigger'
 				!! safe creampie (if cycle > 3 or on pill or succubus):
 				if cycle > 3 or pillcon2 > 1000 or succubusflag = 1:
 					if sexunaware = 1 or sexcontra = 6:
@@ -464,9 +466,9 @@ if $ARGS[0] = '':
 	end
 
 	!!STD from anal check
-	if spafinloc = 3: gs 'dinSex', 'std_trigger'
+	if spafinloc = 3 and cumnostd = 0: gs 'dinSex', 'std_trigger'
 	!!STD from oral check
-	if spafinloc = 12: gs 'dinSex', 'std_trigger_oral'
+	if spafinloc = 12 and cumnostd = 0: gs 'dinSex', 'std_trigger_oral'
 
 	cumprecheck = 0
 	spafinloc = 0
@@ -488,6 +490,7 @@ if $ARGS[0] = '':
 
 	end
 	killvar 'sexspecpot'
+	killvar 'cumnostd'
 end
 
 

locations/pornfilm.qsrc

@@ -169,6 +169,7 @@ if $ARGS[0] = '2':
 					sexpartkno = 1
 					spafinloc = 12
 					sexvolume = 36
+					cumnostd = 1
 					gs 'cum_manage'
 					spafinloc = 11
 					sexvolume = 4
@@ -250,6 +251,7 @@ if $ARGS[0] = '3':
 					gs 'boyStat', $pakterID[1]
 					sexpartkno = 1
 					cumprecheck = 1
+					cumnostd = 1
 					gs 'cum_manage'
 
 					gs 'arousal', 'vaginal', 15, 'exhibitionism'
@@ -263,6 +265,7 @@ if $ARGS[0] = '3':
 						minut += 5
 						spafinloc = 12
 						sexvolume = 36
+						cumnostd = 1
 						gs 'cum_manage'
 						spafinloc = 11
 						sexvolume = 4
@@ -354,6 +357,7 @@ if $ARGS[0] = '4':
 					gs 'boyStat', $pakterID[1]
 					sexpartkno = 1
 					cumprecheck = 1
+					cumnostd = 1
 					gs 'cum_manage'
 
 					gs 'arousal', 'vaginal', 5, 'exhibitionism'
@@ -383,6 +387,7 @@ if $ARGS[0] = '4':
 							'<<$pakter[1]>> brings his cock to your mouth, and feeds you the contents of his balls.'
 							spafinloc = 12
 							sexvolume = 36
+							cumnostd = 1
 							gs 'cum_manage'
 							spafinloc = 11
 							sexvolume = 4
@@ -464,6 +469,7 @@ if $ARGS[0] = '5':
 				gs 'boyStat', $pakterID[1]
 				sexpartkno = 1
 				cumprecheck = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'stat'
 
@@ -482,6 +488,7 @@ if $ARGS[0] = '5':
 					'<<$pakter[1]>> takes his cock out of your pussy, and plunges it into your ass. The change and the extra tightness quickly overwelms him.'
 					'He shoots his load into your ass, all the while you keep sucking <<$pakter[2]>>.'
 					spafinloc = 3
+					cumnostd = 1
 					gs 'cum_manage'
 					gs 'stat'
 
@@ -502,6 +509,7 @@ if $ARGS[0] = '5':
 						gs 'boyStat', $pakterID[2]
 						sexpartkno = 1
 						spafinloc = 12
+						cumnostd = 1
 						gs 'cum_manage'
 						gs 'stat'
 						gs 'arousal', 'end'
@@ -566,6 +574,7 @@ if $ARGS[0] = '6':
 				gs 'boyStat', $pakterID[1]
 				sexpartkno = 1
 				cumprecheck = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'stat'
 
@@ -616,6 +625,7 @@ if $ARGS[0] = '6':
 							'Suddenly your head gets turned around and <<$pakter[2]>> shoots his load on your face and in your mouth, <<$pakter[1]>> following him close behind.'
 							spafinloc = 12
 							sexvolume = 6
+							cumnostd = 1
 							gs 'cum_manage'
 							spafinloc = 11
 							sexvolume = 2
@@ -623,6 +633,7 @@ if $ARGS[0] = '6':
 							gs 'boyStat', $pakterID[2]
 							spafinloc = 12
 							sexvolume = 6
+							cumnostd = 1
 							gs 'cum_manage'
 							spafinloc = 11
 							sexvolume = 2
@@ -698,6 +709,7 @@ if $ARGS[0] = '7':
 						minut += 15
 						pcs_horny += 15
 						sexpartkno = 1
+						cumnostd = 1
 						gs 'boyStat', $pakterID[1]
 						gs 'cum_manage'
 						gs 'stat'
@@ -718,6 +730,7 @@ if $ARGS[0] = '7':
 						sexpartkno = 1
 						orgasmbonus += 10
 						porngasm += 1
+						cumnostd = 1
 						gs 'boyStat', $pakterID[1]
 						gs 'cum_manage'
 						gs 'stat'
@@ -789,10 +802,12 @@ if $ARGS[0] = '8':
 				if rand(0,1) = 0:
 					gs 'boyStat', $pakterID[1]
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					gs 'boyStat', $pakterID[2]
 					sexpartkno = 1
 					spafinloc = 3
+					cumnostd = 1
 					gs 'cum_manage'
 					'<<$pakter[1]>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter[2]>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter[1]>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
 
@@ -805,10 +820,12 @@ if $ARGS[0] = '8':
 				else
 					gs 'boyStat', $pakterID[2]
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					gs 'boyStat', $pakterID[1]
 					sexpartkno = 1
 					spafinloc = 3
+					cumnostd = 1
 					gs 'cum_manage'
 					'<<$pakter[2]>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter[1]>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter[2]>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
 
@@ -893,10 +910,12 @@ if $ARGS[0] = '9':
 				if rand(0,1) = 0:
 					gs 'boyStat', $pakterID[1]
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					gs 'boyStat', $pakterID[2]
 					sexpartkno = 1
 					spafinloc = 12
+					cumnostd = 1
 					gs 'cum_manage'
 					'You get in position before <<$pakter[2]>> and starts to suck him, while <<$pakter[1]>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter[2]>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
 
@@ -909,10 +928,12 @@ if $ARGS[0] = '9':
 				else
 					gs 'boyStat', $pakterID[2]
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					gs 'boyStat', $pakterID[1]
 					sexpartkno = 1
 					spafinloc = 3
+					cumnostd = 1
 					gs 'cum_manage'
 					'You get in position before <<$pakter[1]>> and starts to suck him, while <<$pakter[2]>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter[1]>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
 
@@ -1001,6 +1022,7 @@ if $ARGS[0] = '10':
 				gs 'boyStat', $pakterID[1]
 				sexpartkno = 1
 				cumprecheck = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				if rand(0,5) > 0:
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
@@ -1009,11 +1031,13 @@ if $ARGS[0] = '10':
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
 					'<<$pakter[1]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your pussylips.'
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					cuminside = 1
 				end
 				spafinloc = 1
 				sexpartkno = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				if pcs_horny >= (100-pcs_inhib):
 					orgasmbonus += 10
@@ -1032,6 +1056,7 @@ if $ARGS[0] = '10':
 				gs 'boyStat', $pakterID[2]
 				sexpartkno = 1
 				cumprecheck = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				if rand(0,5) > 0:
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
@@ -1040,6 +1065,7 @@ if $ARGS[0] = '10':
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
 					'<<$pakter[2]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your breasts.'
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					cuminside = 1
 				end
@@ -1063,6 +1089,7 @@ if $ARGS[0] = '10':
 				gs 'boyStat', $pakterID[3]
 				sexpartkno = 1
 				cumprecheck = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				if rand(0,5) > 0:
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
@@ -1071,6 +1098,7 @@ if $ARGS[0] = '10':
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
 					'<<$pakter[3]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your face and hair with his sperm.'
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					cuminside = 1
 				end
@@ -1096,6 +1124,7 @@ if $ARGS[0] = '10':
 				gs 'boyStat', $pakterID[4]
 				sexpartkno = 1
 				cumprecheck = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				if rand(0,5) > 0:
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
@@ -1104,6 +1133,7 @@ if $ARGS[0] = '10':
 					'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
 					'<<$pakter[4]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your belly with his sperm.'
 					sexpartkno = 1
+					cumnostd = 1
 					gs 'cum_manage'
 					cuminside = 1
 				end
@@ -1166,18 +1196,22 @@ if $ARGS[0] = '11':
 			gs 'boyStat', $pakterID[1]
 			sexpartkno = 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			gs 'boyStat', $pakterID[2]
 			sexpartkno = 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			gs 'boyStat', $pakterID[3]
 			sexpartkno = 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			gs 'boyStat', $pakterID[4]
 			sexpartkno = 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			gs 'stat'
 			'<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(1,12)>>.mp4" width="500"></video></center>'
@@ -1198,15 +1232,19 @@ if $ARGS[0] = '11':
 				'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porncp<<rand(1,4)>>.mp4" width="500"></video></center>'
 				gs 'boyStat', $pakterID[1]
 				sexpartkno = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'boyStat', $pakterID[2]
 				sexpartkno = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'boyStat', $pakterID[3]
 				sexpartkno = 1
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'boyStat', $pakterID[4]
 				sexpartkno = 1
+				cumnostd = 1
 				gs 'cum_manage'
 
 				if pcs_horny < 85 and pcs_inhib < 80:
@@ -1301,6 +1339,7 @@ if $ARGS[0] = '12':
 				gs 'boyStat', $pakterID[1]
 				sexpartkno = 1
 				spafinloc = 3
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'boyStat', $pakterID[2]
 				sexpartkno = 1
@@ -1309,10 +1348,12 @@ if $ARGS[0] = '12':
 				gs 'boyStat', $pakterID[3]
 				sexpartkno = 1
 				spafinloc = 3
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'boyStat', $pakterID[4]
 				sexpartkno = 1
 				spafinloc = 3
+				cumnostd = 1
 				gs 'cum_manage'
 				'<center><video autoplay loop src="/images/shared/sex/cum/analcreampie/cumanal<<rand(1,2)>>.mp4" width="500"></video></center>'
 				if pcs_horny < 85 and pcs_inhib < 80:
@@ -1392,9 +1433,11 @@ if $ARGS[0] = '13':
 			*clr
 			gs 'boyStat', $pakterID[1]
 			sexpartkno = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			gs 'boyStat', $pakterID[2]
 			sexpartkno = 1
+			cumnostd = 1
 			gs 'cum_manage'
 
 			'<center><video autoplay loop src="images/shared/sex/group/doublevag<<rand(1,4)>>.mp4" width="500"></video></center>'
@@ -1428,10 +1471,12 @@ if $ARGS[0] = '13':
 				gs 'boyStat', $pakterID[3]
 				sexpartkno = 1
 				spafinloc = 3
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'boyStat', $pakterID[4]
 				sexpartkno = 1
 				spafinloc = 3
+				cumnostd = 1
 				gs 'cum_manage'
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/doublean<<rand(1,4)>>.mp4" width="500"></video></center>'
@@ -1528,8 +1573,10 @@ if $ARGS[0] = '14':
 			gs 'boyStat', $npclastgenerated
 			pfcounter += 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			spafinloc = 12
+			cumnostd = 1
 			gs 'cum_manage'
 			bj50 -= 1
 			stat['bj'] += 1
@@ -1542,6 +1589,7 @@ if $ARGS[0] = '14':
 			gs 'boyStat', $npclastgenerated
 			pfcounter += 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			spafinloc = 13
 			gs 'cum_manage'
@@ -1555,6 +1603,7 @@ if $ARGS[0] = '14':
 			gs 'boyStat', $npclastgenerated
 			pfcounter += 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			if rand(0,1)=0:
 				spafinloc = 11
@@ -1572,6 +1621,7 @@ if $ARGS[0] = '14':
 			gs 'boyStat', $npclastgenerated
 			pfcounter += 1
 			spafinloc = 3
+			cumnostd = 1
 			gs 'cum_manage'
 			anal50 -= 1
 			stat['anal'] += 1
@@ -1583,6 +1633,7 @@ if $ARGS[0] = '14':
 			gs 'boyStat', $npclastgenerated
 			pfcounter += 1
 			cumprecheck = 1
+			cumnostd = 1
 			gs 'cum_manage'
 			bukkloc = rand(0,6)
 			if bukkloc = 0:
@@ -1600,6 +1651,7 @@ if $ARGS[0] = '14':
 			else
 				spafinloc = 15
 			end
+			cumnostd = 1
 			gs 'cum_manage'
 			bukk50 -= 1
 		end
@@ -1609,6 +1661,7 @@ if $ARGS[0] = '14':
 			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
 			gs 'boyStat', $npclastgenerated
 			pfcounter += 1
+			cumnostd = 1
 			gs 'cum_manage'
 			sex50 -= 1
 		end