Эх сурвалжийг харах

oox

also inc. a rebalance in face washing times.
KevinSmarts 9 жил өмнө
parent
commit
7065adca30

+ 4 - 4
locations/din_van

@@ -328,7 +328,7 @@ if tanga = 1:
 end
 
 if spdirtyv > 0 or spdirtyb > 0:
-	act 'Clean your face from sperm (0:05)':
+	act 'Clean your face from sperm (0:10)':
 		cla
 		*clr
 		mop = 1
@@ -337,7 +337,7 @@ if spdirtyv > 0 or spdirtyb > 0:
 		cumspclnt = 13
 		gs 'cum_cleanup'
 		sweat -= 1
-		minut += 5
+		minut += 10
 		'<center><img src="images/etogame/facesp.jpg"></center>'
 		'You clean your face and got rid of any trace of cum.'
 
@@ -361,14 +361,14 @@ if body_write > 0 or face_write > 0:
 end
 
 if mop ! 1:
-	act 'Wash off cosmetics (0:15)':
+	act 'Wash off cosmetics (0:10)':
 		cla
 		mop = 1
 		cumspclnt = 9
 		gs 'cum_cleanup'
 		cumspclnt = 11
 		gs 'cum_cleanup'
-		minut += 15
+		minut += 10
 		'You washed off your makeup.'
 
 		act 'Finish':gt $locM, $metkaM

+ 19 - 0
locations/femcyc

@@ -109,6 +109,25 @@ if arrsize('sparrvol') > 0:
 				cumarrcon[sparrtmpv] = 0
 			end
 		end
+	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
+		
+	end
+	if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12: sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
+	if sparrloc[cumarrtemp] = 17 and sparrage[cumarrtemp] > 48:
+		cumcondslip = 1
+		health -= 3
+		'You feel nauseous.'
+		if rand(0,5) < 5: health -= 2
+	else
+		cumcondslip = 0
 	end
 	if isprok = 0 and sparrage < 5: sparrslc[cumarrtemp] += 1
 	sparrage[cumarrtemp] += 1

+ 10 - 0
locations/gpoli

@@ -334,6 +334,11 @@ if hour >= 6 and hour <= 21:
 						'Taking off her clothes, you sit in a chair.'
 						'Doctor check you.'
 						$gpoli_sick = ''
+						if cumcondslip > 0:
+							$gpoli_sick = 'are suffering from toxic shock from a spent condom in your body which I have removed'
+							cumspclnt = 8
+							gs 'cum_cleanup'
+						end
 						if preg > 0:
 							knowpreg = 1
 							$gpoli_sick = 'are pregnant'
@@ -525,6 +530,11 @@ if hour >= 6 and hour <= 21:
 						'You quickly undress and climb into the chair. The leather-like surface feels strangely warm on your bottom and I realize that it is heated. Yuo fidget nervously as you wait for the doctor to return.'
 						'After what seems like hours, the doctor comes back into the room. You notice his face seems redder than it was and his hair seems to be a little damp. He has also taken off the apron-like smock he had on before. He continues with his examination, taking your hands and arms and massaging the joints and flexing them. He does the same with your feet and legs. To your surprise, he also examines your ass and pussy, easing his gloved fingers into first your pussy and then your asshole. He even speads your lips apart and pushes the hood back to expose your clitoris which he gently massages for a moment before suddenly getting to his feet with a deep sigh, his eyes lingering on my exposed pussy for a moment before he seems to give himself a little shake. You''re glad he stopped when he did because you would have started to get wet had he continued.'
 						$gpoli_sick = ''
+						if cumcondslip > 0:
+							$gpoli_sick = 'are suffering from toxic shock from a spent condom in your body which I have removed'
+							cumspclnt = 8
+							gs 'cum_cleanup'
+						end
 						if preg > 0:
 							knowpreg = 1
 							$gpoli_sick = 'are pregnant'

+ 19 - 13
locations/husbSex

@@ -138,13 +138,8 @@ end
 if $ARGS[0] = 'dolgend':
 	cla
 	*clr
-	cumpussy = 0
-	cumbelly = 0
-	cumass = 0
-	cumanus = 0
-	cumlip = 0
-	cumface = 0
-	cumanus = 0
+	cumspclnt = 1
+	gs 'cum_cleanup'
 	gs'stat'
 
 	'<center><img src="images/img/hasb/d3.jpg"></center>'
@@ -221,7 +216,10 @@ if $ARGS[0] = 'minet':
 		cla
 		*clr
 		swallow = swallow + 1
-		cumlip = cumlip + 1
+		$boy = $husName
+		sexpartkno = 1
+		spafinloc = 12
+		gs 'cum_manage'
 		husband += 1
 
 		'<center><img src="images/picV/swallow.jpg"></center>'
@@ -238,8 +236,11 @@ if $ARGS[0] = 'minet':
 
 		tiprand = RAND(0,1)
 		if tiprand = 0:
-			facial = facial + 1
-			cumface = cumface + 1
+			facial += 1
+			$boy = $husName
+			sexpartkno = 1
+			spafinloc = 11
+			gs 'cum_manage'
 			husband += 1
 
 			'<center><img src="images/picV/facial.jpg"></center>'
@@ -265,6 +266,10 @@ if $ARGS[0] = 'hand':
 	hj = hj + 1
 	minut = minut + 30
 	horny = horny + DOM
+	$boy = $husName
+	sexpartkno = 1
+	spafinloc = 13
+	gs 'cum_manage'
 
 	'<center><img src="images/picV/hand1.jpg"></center>'
 	'You got it <<husDick>> inch cock and began to caress her arms around his hands, moving the skin of purple head.'
@@ -333,10 +338,11 @@ if $ARGS[0] = 'anal':
 	if analplugin = 1:
 		analpluginbonus = 10
 		analplugin = 0
-		spafinloc = 4
-gs 'cum_manage'
+		$boy = $husName
+		sexpartkno = 1
+		spafinloc = 3
+		gs 'cum_manage'
 		minut = minut + 3
-		cumanus = cumanus + 1
 		if anus < husDick:anus = anus + 1
 		horny = horny + ((anus-husDick)*3)
 

+ 15 - 8
locations/kafedinamic

@@ -53,7 +53,7 @@ $kafetualet = {
 	!!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
 	!!Removed sweat =- 1 when cum is wiped off clothes
 	!!clrbelo: Amount of clean panties available
-	if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
+	if spdirtyi > 0 or spdirtyn > 0:
 		act 'Quick wash (0:15)':
 			cla
 			*clr
@@ -76,13 +76,15 @@ $kafetualet = {
 		end
 	end
 
-	if cumlip > 0 or cumface > 0:
+	if spdirtyv > 0:
 		act 'Clean your face from sperm (0:05)':
 			cla
 			*clr
 			mop = 1
-			cumlip = 0
-			cumface = 0
+			cumspclnt = 12
+			gs 'cum_cleanup'
+			cumspclnt = 9
+			gs 'cum_cleanup'
 			sweat -= 1
 			minut += 5
 			'<center><img src="images/etogame/facesp.jpg"></center>'
@@ -92,11 +94,12 @@ $kafetualet = {
 		end
 	end
 
-	if cumfrot > 0:
+	if spdirtyc > 0:
 		act 'Wipe the cum off your clothes (0:10)':
 			cla
 			*clr
-			cumfrot = 0
+			cumspclnt = 6
+			gs 'cum_cleanup'
 			minut += 10
 			'<center><img src="images/etogame/frotsp.jpg"></center>'
 			'You remove the traces of cum from your clothes.'
@@ -207,8 +210,10 @@ $gividin = {
 							cla
 							*clr
 							swallow += 1
+							$boy = 'Givi'
+							sexpartkno = 1
 							spafinloc = 12
-gs 'cum_manage'
+							gs 'cum_manage'
 							gs 'stat'
 							'<center><img src="images/picV/swallow1.jpg"></center>'
 							'A hot jet of sperm hits the back of your throat. You start to swallow cum, and Givi continues to cum in your mouth. Finally the flow of hot, pungent liquid stops.'
@@ -314,8 +319,10 @@ $ashotdin = {
 									horny += SUB - DOM + ((anus - 18) * 3)
 									anal += 1
 									Ashotsex += 1
+									$boy = 'Ashot'
+									sexpartkno = 1
 									spafinloc = 3
-gs 'cum_manage'
+									gs 'cum_manage'
 
 									if anus < 18:anus += 1
 

+ 7 - 1
locations/kompMFCtwo

@@ -146,7 +146,12 @@ if webpopular >= 50 and vagina > 0 and anus > 0 and alko >= 8 and sub > 50 and c
 	cls
 	gs 'stat'
 	'One of the regular visitors, seeing, you pretty drunk, offers you to do that-any unusual...'
-	if cumpussy > 0:
+	temp = arrpos('sparrloc',0)
+	if sparrvol[temp] > 0 and sparrloc [temp] = 0: temp[1] = 1
+	temp = arrpos('sparrloc',1)
+	if sparrvol[temp] > 0 and sparrloc [temp] = 0: temp[1] = 1
+	if temp[1] > 1:
+		killvar 'temp'
 		act 'Do':
 			cls
 			mfcclients = 0
@@ -169,6 +174,7 @@ if webpopular >= 50 and vagina > 0 and anus > 0 and alko >= 8 and sub > 50 and c
 			act'Further':gt'Komp','waitclients'
 		end
 	else
+		killvar 'temp'
 		act 'Play with panties':
 			cls
 			mfcclients = 0

+ 10 - 20
locations/koncepod1

@@ -123,16 +123,14 @@ if $ARGS[0]='vnr2x':
 		end
 	end
 
-	if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
+	if spdirtyi = 0 or spdirtyn = 0:
 		act 'Substitution 15 min':
 			cla
 			*clr
-			cumpussy = 0
-			cumbelly = 0
-			cumass = 0
-			cumanus = 0
-			cumlip = 0
-			cumface = 0
+			cumspclnt = 3
+			gs 'cum_cleanup'
+			cumspclnt = 4
+			gs 'cum_cleanup'
 			sweat = sweat - 1
 			minut = minut + 15
 
@@ -147,13 +145,15 @@ if $ARGS[0]='vnr2x':
 		end
 	end
 
-	if cumlip > 0 or cumface > 0:
+	if spdirtyv > 0:
 		act 'Wash off with facial cum 15 min':
 			cla
 			*clr
 			mop = 1
-			cumlip = 0
-			cumface = 0
+			cumspclnt = 12
+			gs 'cum_cleanup'
+			cumspclnt = 9
+			gs 'cum_cleanup'
 			sweat = sweat - 1
 			minut = minut + 15
 
@@ -165,16 +165,6 @@ if $ARGS[0]='vnr2x':
 		end
 	end
 
-	if cumfrot > 0:
-		act 'Clear semen from clothing 15 min':
-			cla
-			cumfrot = 0
-			sweat = sweat - 1
-			minut = minut + 15
-			'You have erased the traces of semen from clothing.'
-			act 'Logout':gt'koncepod1','vnr2x'
-		end
-	end
 	if tampon > 0 and mesec > 0 and isprok = 0:
 		act 'Change swab':
 			cla

+ 133 - 42
locations/lake

@@ -53,12 +53,8 @@ if $ARGS[0] = 'start':
 		act 'Swim (1:00)':
 			cla
 			*clr
-			cumpussy = 0
-			cumbelly = 0
-			cumass = 0
-			cumlip = 0
-			cumface = 0
-			cumfrot = 0
+			cumspclnt = 4
+			gs 'cum_cleanup'
 			minut += 60
 			sweat = -3
 			manna += 5
@@ -130,8 +126,10 @@ if $ARGS[0] = 'start':
 								guy += 1
 								anal += 1
 								anus += 1
-								spafinloc = 4
-gs 'cum_manage'
+								$boy = 'Andrew'
+								sexpartkno = 1
+								spafinloc = 3
+								gs 'cum_manage'
 								horny = 20
 								orgasm += 1
 								'<center><img src="images/picVA/andreiA.jpg"></center>'
@@ -316,6 +314,7 @@ if $ARGS[0] = 'walklake1':
 	'Walking along the beach you hear someone calling you, "Hey beauty, come here." You turn around and see that next to the shore, between the trees, there is a hut and on the threshold sits a guy.'
 
 	$dinribak = {
+		$boy = 'Rude man'
 		act 'Leave the idiot alone':
 			cls
 			minut += 2
@@ -356,10 +355,12 @@ if $ARGS[0] = 'walklake1':
 						cls
 						minut += 2
 						sub += 1
+						sexvolume = 35
 						spafinloc = 11
-gs 'cum_manage'
+						gs 'cum_manage'
+						sexvolume = 5
 						spafinloc = 12
-gs 'cum_manage'
+						gs 'cum_manage'
 						facial += 1
 						gs 'stat'
 						'<center><img src="images/qwest/sosed/facefuck1.jpg"></center>'
@@ -410,10 +411,12 @@ gs 'cum_manage'
 					cls
 					minut += 2
 					sub += 1
+					sexvolume = 35
 					spafinloc = 11
-gs 'cum_manage'
+					gs 'cum_manage'
+					sexvolume = 5
 					spafinloc = 12
-gs 'cum_manage'
+					gs 'cum_manage'
 					facial += 1
 					gs 'stat'
 					'<center><img src="images/qwest/sosed/cum.jpg"></center>'
@@ -446,7 +449,7 @@ gs 'cum_manage'
 					cls
 					minut += 2
 					spafinloc = 11
-gs 'cum_manage'
+					gs 'cum_manage'
 					$ribakName = 'whore'
 					gs 'stat'
 					'<center><img src="images/qwest/sosed/cum1.jpg"></center>'
@@ -549,10 +552,12 @@ gs 'cum_manage'
 						cls
 						minut += 2
 						sub += 1
+						sexvolume = 35
 						spafinloc = 11
-gs 'cum_manage'
+						gs 'cum_manage'
+						sexvolume = 5
 						spafinloc = 12
-gs 'cum_manage'
+						gs 'cum_manage'
 						facial += 1
 						gs 'stat'
 						'<center><img src="images/qwest/sosed/facefuck1.jpg"></center>'
@@ -591,10 +596,12 @@ gs 'cum_manage'
 					cls
 					minut += 2
 					sub += 1
+					sexvolume = 35
 					spafinloc = 11
-gs 'cum_manage'
+					gs 'cum_manage'
+					sexvolume = 5
 					spafinloc = 12
-gs 'cum_manage'
+					gs 'cum_manage'
 					facial += 1
 					gs 'stat'
 					'<center><img src="images/qwest/sosed/cum.jpg"></center>'
@@ -627,7 +634,7 @@ gs 'cum_manage'
 					cls
 					minut += 2
 					spafinloc = 11
-gs 'cum_manage'
+					gs 'cum_manage'
 					$ribakName = 'whore'
 					gs 'stat'
 					'<center><img src="images/qwest/sosed/cum1.jpg"></center>'
@@ -660,6 +667,8 @@ gs 'cum_manage'
 					cla
 					*clr
 					sex += 1
+					cumprecheck = 1
+					gs 'cum_manage'
 					'<center><img src="images/img/Lake/walk1/walk3.jpg"></center>'
 					'The guy climbed, You turned and swung cancer went into your vagina, you screamed in pain.'
 					'"Well, Fishing is not easy, Needless to suffer" said the man with the power of continuing to fuck your pussy. And you have only squeaked with every jolt.'
@@ -667,7 +676,8 @@ gs 'cum_manage'
 					act '"Ay-ay-ay"':
 						cla
 						*clr
-						cumbrest += 1
+						spafinloc = 15
+						gs 'cum_manage'
 						money += 2000
 						'<center><img src="images/img/Lake/walk1/walk4.jpg"></center>'
 						'At the end of man shivered and tensed abruptly pulled his dick out of you, expanding you to her face filled your chest with his sperm.'
@@ -712,6 +722,7 @@ if $ARGS[0] = 'walklake2':
 			dick = 15
 			silavag = 1
 			pose = 0
+			sexpartkno = 1
 			dynamic $sexstart
 			'You feel ready as Stasik holding your feet, spreads your legs and and brings his hard penis down to your soft pussy.'
 			dynamic $sexstart2
@@ -722,10 +733,10 @@ if $ARGS[0] = 'walklake2':
 			dynamic $sexcum
 			'Valera groans and his cock shudders in your mouth.'
 			swallow += 1
+			$boy = 'Valera'
+			sexpartkno = 1
 			spafinloc = 12
-gs 'cum_manage'
-			spafinloc = 11
-gs 'cum_manage'
+			gs 'cum_manage'
 			dynamic $dinrandswallow
 
 			act 'Further':
@@ -898,6 +909,13 @@ gs 'cum_manage'
 					cla
 					*clr
 					sex += 1
+					if rand(0,1) = 0
+						$boy = 'Stasik'
+					else
+						$boy = 'Valera'
+					end
+					cumprecheck = 1
+					gs 'cum_manage'
 					'<center><img src="images/img/Lake/walk2/walk4.jpg"></center>'
 					'You succumb to his actions and bend over, a man with forcefully enters your pussy, and you continued to suck the other, but soon he, too, can not resist and tries to take his dick out of your mouth.'
 
@@ -920,11 +938,28 @@ gs 'cum_manage'
 							act 'Finish':
 								cla
 								*clr
-								cumbrest += 1
+								temp = rand(0,1)
+								sexpartkno = 1
+								if temp = 0:
+									$boy = 'Valera'
+								else
+									$boy = 'Stasik'
+								end
+								spafinloc = 15
+								gs 'cum_manage'
+								sexpartkno = 1
+								sexvolume = 5
+								if temp = 1:
+									$boy = 'Valera'
+								else
+									$boy = 'Stasik'
+								end
 								spafinloc = 12
-gs 'cum_manage'
+								gs 'cum_manage'
+								sexpartkno = 1
+								sexvolume = 35
 								spafinloc = 11
-gs 'cum_manage'
+								gs 'cum_manage'
 								horny += 10
 								'<center><img src="images/img/Lake/walk2/walk7.jpg"></center>'
 								'Sated the men lower you down, and begin to masturbate on your face, you open your mouth and wait patiently. They both finish, pouring a gulf of sperm in your mouth and on your face and chest.'
@@ -989,6 +1024,9 @@ if $ARGS[0] = 'vlake1':
 					gang += 1
 					sex += 1
 					anal += 1
+					$boy = 'Stranger at the lake'
+					cumprecheck = 1
+					gs 'cum_manage'
 					'<center><img src="images/img/Lake/Vlake1/vlake7.jpg"></center>'
 					'Noticing that you reacted favorably to his fingers in your vagina, the guy took out his fingers, and their place was taken by his hard cock. The others carry on with their blowjobs, but start periodically changing places.'
 
@@ -1010,10 +1048,20 @@ if $ARGS[0] = 'vlake1cum':
 	cla
 	*clr
 	gs 'stat'
+	temp = 4
+
+	:vlake1cumloop
+	$boy = 'Stranger at the lake <<temp>>'
+	sexvolume = 5
 	spafinloc = 12
-gs 'cum_manage'
+	gs 'cum_manage'
+	sexvolume = 35
 	spafinloc = 11
-gs 'cum_manage'
+	gs 'cum_manage'
+	temp -= 1
+
+	if temp > 0: jump 'vlake1cumloop'
+
 	'<center><img src="images/img/Lake/Vlake1/vlake5.jpg"></center>'
 	'Boys begin to cum on your face and mouth. You lick the cum off their dicks and swallow it. Finally satisfied the guys, dress and go, you''re left unsatisfied.'
 
@@ -1069,13 +1117,18 @@ if $ARGS[0] = 'vlake2':
 					cla
 					*clr
 					anal += 1
+					$boy = 'Stranger at the lake'
+					cumprecheck = 1
+					gs 'cum_manage'
 					'<center><img src="images/img/Lake/Vlake2/vlake5.jpg"></center>'
 					'"I want you both." you moan and straddle one of the men, and the second was not deaf to your request and puts his cock in your ass.'
 
 					act 'Change position':
 						cla
 						*clr
-						cumassin += 1
+						$boy = 'Stranger at the lake'
+						spafinloc = 3
+						gs 'cum_manage'
 						'<center><img src="images/img/Lake/Vlake2/vlake6.jpg"></center>'
 						'Changing position, you plant your anus on the man lying down. The second man comes up to you and holding your head with one hand begin to fuck your mouth, penetrating his cock deeper and deeper. After a while you feel hot cum fill your anus and finished with him, the second man gets ready to cum in your mouth.'
 
@@ -1085,7 +1138,7 @@ if $ARGS[0] = 'vlake2':
 							cla
 							*clr
 							spafinloc = 11
-gs 'cum_manage'
+							gs 'cum_manage'
 							'<center><img src="images/img/Lake/Vlake2/vlake7.jpg"></center>'
 							'You remove the member from your mouth and the man finishes all over your face.'
 
@@ -1132,6 +1185,10 @@ if $ARGS[0] = 'andrey1':
 			*clr
 			bj += 1
 			sex += 1
+			$boy = 'Andrew'
+			sexpartkno = 1
+			cumprecheck = 1
+			gs 'cum_manage'
 			'<center><img src="images/img/Lake/Andrey1/andrey2.jpg"></center>'
 			'You open your mouth and run your tongue along his shaft, then pull him into you as far as you can. Andrew starts to fuck you in the mouth with gusto. Suddenly your hear a sob came from nearby bushes. You looked up and see in the bushes, a young man spying on you his hand moving up and down in the groin area.'
 			'Andrew also realizes that you have a peeping tom, and turns your head so that the observer can see all the details of how his red head appears and disappears in your mouth. You defiantly lick Andrews member, speed up, then slow the pace, periodically holding his full length in your mouth, your tongue then licking his testicles.'
@@ -1143,9 +1200,10 @@ if $ARGS[0] = 'andrey1':
 				*clr
 				guy += 1
 				spafinloc = 12
-gs 'cum_manage'
+				gs 'cum_manage'
+				$boy = 'Stranger at the lake'
 				spafinloc = 4
-gs 'cum_manage'
+				gs 'cum_manage'
 				anal += 1
 				'<center><img src="images/img/Lake/Andrey1/andrey3.jpg"></center>'
 				'The shy young man comes up to you. "Well, what are you waiting for, briefs off and get against the girl." Andrew shouts at him, turning you over and pulling apart your buttocks with his hands. The young man comes from behind and puts his penis in your anus. Now two members move in you as pistons delivering incredible pleasure. Moaning you ride on the two cocks, until the young man finishes on your ass, and Andrew gets up and cums in your mouth.'
@@ -1189,6 +1247,7 @@ if $ARGS[0] = 'kater1':
 			cla
 			*clr
 			bj += 1
+			$boy = 'Rescuer at the lake'
 			'<center><img src="images/img/Lake/kater1/kater3.jpg"></center>'
 			'You sit the guy down and lick his cock, then open your lips and start sucking selflessly, in a few minutes you feel like the dick in your mouth is ready to finish.'
 
@@ -1204,6 +1263,9 @@ if $ARGS[0] = 'kater1':
 				act 'Change position':
 					cla
 					*clr
+					cumprecheck = 1
+					sexspecpot = 11000
+					gs 'cum_manage'
 					'<center><img src="images/img/Lake/kater1/kater5.jpg"></center>'
 					'When he gets tired, you push him onto his back, jump on top of him and start riding him like a cowgirl.'
 
@@ -1240,13 +1302,17 @@ if $ARGS[0] = 'kater1cum':
 	cla
 	*clr
 	gs 'stat'
+	sexvolume = 5
 	spafinloc = 14
-gs 'cum_manage'
+	gs 'cum_manage'
+	sexvolume 10
+	spafinloc = 15
+	gs 'cum_manage'
+	sexvolume 15
 	spafinloc = 12
-gs 'cum_manage'
+	gs 'cum_manage'
 	spafinloc = 11
-gs 'cum_manage'
-	cumbrest += 1
+	gs 'cum_manage'
 	'<center><img src="images/img/Lake/kater1/kater9.jpg"></center>'
 	'The flow of sperm in your mouth was so large that you could not keep to all in your mouth and swallowing when filled to the brim, sperm flows out of your mouth, spreads over your chin and drips all down your chest and stomach.'
 
@@ -1282,6 +1348,9 @@ if $ARGS[0] = 'kater2':
 			cla
 			*clr
 			anal += 1
+			$boy = 'Rescuer at the lake'
+			cumprecheck = 1
+			gs 'cum_manage'
 			'<center><img src="images/img/Lake/kater2/kater3.jpg"></center>'
 			'The guy removes his member and turns your back to him, grabs and lifts your buttocks, your legs lift up, and the guy presses into your anus with his dick. You moan, whether from pain inflicted by the huge dick in your ass, whether from the pleasure that he gives you, you don''t care and with each thrust you try to take his cock as deep as possible into yourself.'
 			'"Want deeper?" He asks'
@@ -1311,15 +1380,16 @@ if $ARGS[0] = 'kater2':
 							cla
 							*clr
 							spafinloc = 12
-gs 'cum_manage'
+							gs 'cum_manage'
 							'<center><img src="images/img/Lake/kater2/kater7.jpg"></center>'
 							'One of the guys groans, you turn to him, your mouth open. His aim is true and his seed fills your mouth, you swallow it with pleasure.'
 
 							act 'Turn to the second':
 								cla
 								*clr
+								$boy = 'Rescuer at the lake 2'
 								spafinloc = 11
-gs 'cum_manage'
+								gs 'cum_manage'
 								'<center><img src="images/img/Lake/kater2/kater8.jpg"></center>'
 								'Soon the second one groans, you turn to him, but even though you opened your mouth, the guy completely covers your face.'
 
@@ -1364,6 +1434,9 @@ if $ARGS[0] = 'kater3':
 				cla
 				*clr
 				anal += 1
+				$boy = 'Rescuer at the lake'
+				cumprecheck = 1
+				gs 'cum_manage'
 				'<center><img src="images/img/Lake/kater3/6.jpg"></center>'
 				'You climb on top of one of them taking his cock in your pussy, and the second one takes you in the ass.'
 
@@ -1377,8 +1450,12 @@ if $ARGS[0] = 'kater3':
 					act 'Change position':
 						cla
 						*clr
+						$boy = 'Rescuer at the lake'
 						spafinloc = 12
-gs 'cum_manage'
+						gs 'cum_manage'
+						$boy = 'Friend of your Rescuer at the lake'
+						spafinloc = 12
+						gs 'cum_manage'
 						'<center><img src="images/img/Lake/kater3/11.jpg"></center>'
 						'Sated they kneel you down and end in your mouth.'
 
@@ -1432,6 +1509,9 @@ if $ARGS[0] = 'horse1':
 					act 'Change position':
 						cla
 						*clr
+						$boy = 'Quad Rider'
+						cumprecheck = 1
+						gs 'cum_manage'
 						'<center><img src="images/img/Lake/horse1/horse6.jpg"></center>'
 						'You straddle one of the men jumping on him like the horse you tied up a few minutes ago. The second guy comes up to you and starts to tease you with his member, lowering it to you so you can suck it, then lifting it up forcing you to stretch and strain to try and catch it in your mouth.'
 
@@ -1446,13 +1526,14 @@ if $ARGS[0] = 'horse1':
 								cla
 								*clr
 								spafinloc = 12
-gs 'cum_manage'
+								gs 'cum_manage'
 								'<center><img src="images/img/Lake/horse1/horse8.jpg"></center>'
 								'You remove the member from your mouth and begin stroking it with your tongue, in a second your efforts were rewarded and a stream of smerm covers your tongue.'
 
 								act 'Suck second':
 									cla
 									*clr
+									$boy = 'Quad Rider 2'
 									'<center><img src="images/img/Lake/horse1/horse9.jpg"></center>'
 									'You kneel before the second man and lick him from his balls to the head and take him in your mouth, as you suck his dick with pleasure the man trembles. "I''m going to finish."'
 
@@ -1462,7 +1543,7 @@ gs 'cum_manage'
 										cla
 										*clr
 										spafinloc = 11
-gs 'cum_manage'
+										gs 'cum_manage'
 										'<center><img src="images/img/Lake/horse1/horse10.jpg"></center>'
 										'You remove his member from your mouth and the man had finishes on your face, with the words, "Here''s a babys face cream." You gladly licked the remnants of sperm from his penis.'
 
@@ -1482,6 +1563,8 @@ if $ARGS[0] = 'horse1bj':
 	cla
 	*clr
 	gs 'stat'
+	spafinloc = 12
+	gs 'cum_manage'
 	'<center><img src="images/img/Lake/horse1/horse11.jpg"></center>'
 	'The flow of sperm gushes into your mouth, you swallow it purring with pleasure, lick the remnants of his cock and swallow again.'
 
@@ -1538,22 +1621,30 @@ if $ARGS[0] = 'horse2':
 						act 'Change position':
 							cla
 							*clr
+							$boy = 'Horse Rider'
+							cumprecheck = 1
+							gs 'cum_manage'
 							'<center><img src="images/img/Lake/horse2/horse7.jpg"></center>'
 							'You jumped of their cocks and kneel down, the men crowded around you from both sides, one finishes immediately.'
 
 							act 'Suck the other one':
 								cla
 								*clr
+								spafinloc = 11
+								gs 'cum_manage'
 								'<center><img src="images/img/Lake/horse2/horse8.jpg"></center>'
 								'You turned to the second, and wrap your lips around his cock, but as you pull back, he pushes his cock deeper into your mouth, then the man groans, his cock stiffens ready to pour sperm into your mouth.'
 
 								act 'Remove from your mouth':
 									cla
 									*clr
+									$boy = 'Horse Rider 2'
+									sexvolume = 10
 									spafinloc = 11
-gs 'cum_manage'
+									gs 'cum_manage'
+									sexvolume = 10
 									spafinloc = 12
-gs 'cum_manage'
+									gs 'cum_manage'
 									'<center><img src="images/img/Lake/horse2/horse9.jpg"></center>'
 									'You remove the cock from your mouth and open wide, ready to catch the stream of sperm, the man does not keep you waiting and sperm splatters into your mouth, painting your tongue and throat.'
 

+ 7 - 3
locations/stat

@@ -1664,10 +1664,14 @@ if arrsize('sparrvol') > 0:
 	cumloc = arrpos('sparrloc',i)
 	if cumloc >= 0 and sparrloc[cumloc] = i and sparrvol[cumloc] > 0:
 		dynamic $temp[1]
-		if swallow >= 10:
-			pl '<b><font color="red"><<$cumnam>>''s <<$cumdisc>><a href="exec:cumloc = arrpos(''sparrloc'',3) & dynamic $cumeater6"><b><font color="blue">sperm</font></b></a><b> slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+		if analplugin = 1:
+			pl '<b><font color="red"><<$cumnam>>''s <<$cumdisc>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
 		else
-			pl '<b><font color="red"><<$cumnam>>''s <<$cumdisc>>sperm slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+			if swallow >= 10:
+				pl '<b><font color="red"><<$cumnam>>''s <<$cumdisc>><a href="exec:cumloc = arrpos('sparrloc',3) & dynamic $cumeater6"><b><font color="blue">sperm</font></b></a><b> slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+			else
+				pl '<b><font color="red"><<$cumnam>>''s <<$cumdisc>>sperm slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+			end
 		end
 		spdirty = 1
 		spdirtyi = 1