glife/locations/seeporn

# seeporn
!! this is triggered by going to see porn with the brother in the altstart
gs 'stat'
'You and the boys sit down around the TV, Kolka puts on a DVD and immediately the screen is filled with porn.'

act 'watch porn':
	cls
	minut += 15
	seepornofut += 1
	horny += (seepornofut + mastr) * 2
	gs 'stat'

	! WD: Unused Var 'BJBeerQW' use 'GorSlut'
	if evgenQW >= 4 and GorSlut >= 3: gt 'seeporn','SeePornPalevo'
	'<center><img src="images/qwest/alter/ev2/seeporn.gif"></center>'

	if seepornofut < 3:
		'The boys are looking at what is going on on the screen but they are clearly uneasy and embarrassed with you here.'
	elseif seepornofut >= 3 and seepornofut < 10:
		'The guys have become accustomed to watching porn with you about, sometimes even commenting on what is happening.'
	elseif seepornofut >= 10:
		'The boys intensely watch the porn, you notice a distinct tightness in their pants.'

		if evgenQW = 4:
			cls
			boyseeporn += 1
			gs 'stat'
			'The boys intensely watch porn, you notice that they are all clearly aroused. Zhendos asks "<<$name>>, Want to put that mouth of yours to use?"'

			act 'Keep quiet':
				cls
				bj += 3
				sub += 5
				gang += 1
				gs 'stat'
				'<center><img src="images/qwest/alter/ev2/seepornblowbang.jpg"></center>'
				'Zhendos gets his dick out and pulls your face toward it, You dutifully wrapped around your lips around it and begin to suck. Your brother Kolka and Mishan also get their cocks out and stand around you, you start masturbating and sucking dick.'

				act 'Suck':
					cls
					$boy = 'Zhendos'
					sexvolume = 35
					spafinloc = 11
					sexpartkno = 1
					gs 'cum_manage'
					sexvolume = 5
					spafinloc = 7
					sexpartkno = 1
					gs 'cum_manage'
					$boy = 'Mishan'
					sexvolume = 35
					spafinloc = 11
					sexpartkno = 1
					gs 'cum_manage'
					sexvolume = 5
					spafinloc = 7
					sexpartkno = 1
					gs 'cum_manage'
					$boy = 'Kolka'
					sexvolume = 35
					spafinloc = 11
					sexpartkno = 1
					gs 'cum_manage'
					sexvolume = 5
					spafinloc = 7
					sexpartkno = 1
					gs 'cum_manage'
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/seepornbbcum.jpg"></center>'
					'The boys don''t last long and cum right in your face, Soon almost all of your face is covered in a layer of sperm and it`s dripping on to your clothes.'

					evgenrand = rand(1,5)

					dynamic $brotherSexCount

					if brotherSexCount > 0 and brotherSex > 6 and evgenrand = 1:
						cls
						minut += 5
						horny += 10
						$boy = 'Kolka'
						sexpartkno = 1
						dick = brotherDick
						silavag = 0
						pose = 1
						brotherSexCount -= 1

						gs 'stat'
						'Kolka tells guys, that he should take you home. As soon as you leave Mishkins house, your brother whispers:
						"Let''s look for a quiet place, I`m still horny." Soon you find a secluded spot and Kolka says,:
						"This looks good. Bend over."'
						if rand1<5:'<center><img src="images/qwest/alter/Ev/boysex.jpg"></center>'
						if rand1>=5 and rand1<30:'<center><img src="images/nigma/gor/publ1,<<rand(0,2)>>.gif"></center>'
						if rand1>=30:'<center><img src="images/nigma/gor/publ1,<<rand(0,6)>>.jpg"></center>'
						'You let your brother fuck you from behind.'
						dynamic $sexstart
						dynamic $sexstart2
						dynamic $sexcum

						dynamic $brotherSexEnd
					end

					act 'Leave':gt 'pavResidential'
				end
			end

			if dom > boyseeporn * 2:
				act 'They can get lost':
					cls
					dom += 1
					gs 'stat'
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
					'You tell them to fuck off.'

					act 'Leave':gt 'pavResidential'
				end
			end

			exit
		elseif evgenQW = 3:
			cls
			gs 'stat'
			'<center><img src="images/qwest/alter/ev2/seeporn.jpg"></center>'
			'The boys intensely watch porn, you notice the bulges in their pants. Zhendos suddenly takes your hand and holds it against his groin, Mishan does the same with your other hand. Your brother Kolka laughs nervously. Mishan tells you conspiratorially "<<$nickname>>, wank us off."'

			act 'Jerk guys':
				cls

				if MihJenSex = 0:MihJenSex = 1 & guy += 2

				hj += 2
				boyseeporn += 1
				sub += 1
				gs 'stat'

				if boyseeporn < 2:
					! WD: Use better Image ~ '<center><img src="images/qwest/alter/ev2/seepornHJ.jpg"></center>'
					'<center><img src="images/qwest/alter/ev2/seeporn.hand1,<<rand(0,2)>>.gif"></center>'
					'They get their cocks out and you gently rub both members with your hands, Zhendos quickly groans and lets fly a jet of sperm onto your foot, immediately followed by Mishan who also manages to hit your foot.'

					act 'Eew':
						cls
						$boy = 'Mishan'
						spafinloc = 7
						sexpartkno = 1
						gs 'cum_manage'
						$boy = 'Zhendos'
						spafinloc = 7
						sexpartkno = 1
						gs 'cum_manage'
						gs 'stat'
						'<center><img src="images/qwest/alter/ev2/seeporncumhj.jpg"></center>'
						'You shout "You assholes, all over my feet!" But the boys are blissfully sprawled on the couch "Great handjob <<$name>>, such small, soft hands."'

						act 'Leave':gt 'pavResidential'
					end
				elseif boyseeporn >= 2:
					bj += 1
					evgenQW = 4
					! WD: Use better Image ~ '<center><img src="images/qwest/alter/ev2/seepornfirst.jpg"></center>'
					'<center><img src="images/qwest/alter/ev2/seepornbro0,<<rand(0,2)>>.gif"></center>'
					'They get their cocks out and you gently rub both members with your hands, your brother Kolka walks over, his eyes filled with lust and puts his dick in your mouth. You eyes widened at this turn of events. Zhendos quickly groans and from his cock flys a jet of sperm onto your foot, immediately followed by Mishan who also manages to hit your foot.'

					act '"Groo gaskers!"':
						cls
						$boy = 'Mishan'
						spafinloc = 7
						sexpartkno = 1
						gs 'cum_manage'
						$boy = 'Zhendos'
						spafinloc = 7
						sexpartkno = 1
						gs 'cum_manage'
						spafinloc = 11
						gs 'cum_manage'
						$boy = 'Kolka'
						spafinloc = 11
						sexpartkno = 1
						gs 'cum_manage'
						facial += 1

						if brotherSex = 0:brotherSex = 1 & guy += 1

						gs 'stat'
						'<center><img src="images/qwest/alter/ev2/seepornfacial.jpg"></center>'
						'Suddenly, your brother takes his dick out of your mouth and a jet of hot cum slaps you in the face. Mishan laughs "Kolka, you just fucked your sister in the mouth. Fuck!" Kolka wiping the sweat from his forehead says "Holy fuck, I don`t fucking believe it. She asked for it, the slut. Noone could have resisted."'

						act 'Leave':gt 'pavResidential'
					end
				end
			end

			if dom > boyseeporn * 2:
				act 'Remove hands':
					cls
					dom += 1
					gs 'stat'
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
					'You angrily remove your hands and yell at the boys.'

					act 'Leave':gt 'pavResidential'
				end
			end
		elseif evgenQW = 2 and rand(0, 1) = 0:
			cls
			gs 'stat'
			'<center><img src="images/qwest/alter/ev2/seeporn.jpg"></center>'
			'The boys intensely watch porn, you notice the bulges in their pants. Zhendos suddenly takes your hand and holds it against his groin, Mishan does the same with your other hand. Your brother Kolka laughs nervously. Mishan Says conspiratorially "<<$name>>, wank us off."'

			act 'What the fuck?':
				cls
				gs 'stat'
				'<center><img src="images/qwest/alter/ev2/seeporn.jpg"></center>'
				'You shake your head. Mishan says "Come on, you''re a girl, it`s something good friends do for each other."'

				if horny >= 70:
					act 'jerk them':
						cls
						hj += 2

						if MihJenSex = 0:MihJenSex = 1 & guy += 2

						evgenQW = 3
						gs 'stat'
						! WD: Use better Image ~ '<center><img src="images/qwest/alter/ev2/seepornHJ.jpg"></center>'
						'<center><img src="images/qwest/alter/ev2/seeporn.hand1,<<rand(0,2)>>.gif"></center>'
						'They get there cocks out and you gently rub both members with your hands, Zhendos quickly groaned and his cock flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'

						act 'Resent':
							cls
							$boy = 'Mishan'
							spafinloc = 7
							sexpartkno = 1
							gs 'cum_manage'
							$boy = 'Zhendos'
							spafinloc = 7
							sexpartkno = 1
							gs 'cum_manage'
							gs 'stat'
							'<center><img src="images/qwest/alter/ev2/seeporncumhj.jpg"></center>'
							'You shout "You assholes, all over my feet!" But the boys are blissfully sprawled on the couch "Great handjob <<$name>>, such small, soft hands."'

							act 'Leave':gt 'pavResidential'
						end
					end
				elseif horny < 70:
					act 'Remove hands':
						cls
						dom += 1
						gs 'stat'
						$ImageNeededPlacholder
						! WD: IMAGE NEEDED ~ '<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
						'You angrily remove your hands and yell at the boys.'

						act 'Leave':gt 'pavResidential'
					end
				end
			end
			exit
		elseif evgenQW = 1 and rand(0, 1) = 0:
			cls
			horny += 10
			gs 'stat'
			'The boys intensely watch porn, you notice, their boners straining to get out of their pants.'
			'You feel Zhendos hand gently stroking your ass.'

			if horny < 70:
				act 'Remove his hand':
					cls
					dom += 1
					gs 'stat'
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
					'You angrily remove Zhendos hand from your ass.'

					act 'Leave':gt 'pavResidential'
				end
			elseif horny >= 70:
				act 'Pretend that nothing is happening':
					cls
					sub += 1
					evgenqw = 2
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/seeporn.jpg"></center>'
					'You sit on the couch turning red as a lobster enjoying having your butt rubbed.'

					act 'Leave':gt 'pavResidential'
				end
			end

			exit
		elseif evgenQW = 0 and rand(0, 1) = 0:
			cls
			gs 'stat'
			'The boys intensely watch porn, you notice, their boners straining to get out of their pants.'
			'Zhendos looking at the porn asks you "Have you ever done that, <<$name>>?"'

			if horny < 70:
				act 'Go to hell, jerk':
					cls
					dom += 1
					gs 'stat'
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
					'You put Zhendos in his place.'

					act 'Leave':gt 'pavResidential'
				end
			elseif horny >= 70:
				act 'Keep quiet':
					cls
					sub += 1
					evgenQW = 1
					gs 'stat'
					$ImageNeededPlacholder
					! WD: IMAGE NEEDED ~ '<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
					'You swallow and remain silent watching the porn. Mishan chuckles "And now she''s all flushed. It turns out the girls like porn aswell."'

					act 'Leave':gt 'pavResidential'
				end
			end

			exit
		end
	end

	act 'Leave':gt 'pavResidential'
end

if $ARGS[0] = 'SeePornPalevo':
	cla
	cls
	bratrand = RAND(0,1)
	!boyseeporn += 1
	'<center><img src="images/qwest/alter/ev2/seeporn.gif"></center>'
	'The boys watch porn and whisper to each other, casting lustful glances at you'
	gs 'stat'

	if bratrand = 0:
		cls
		boyseeporn += 1
		gs 'stat'

		'Zhendos suggests "<<$name>>, How about putting that mouth to work? Kolka told us how you entertained him in the park so there''s no need to act all innocent. Unless of course you want everyone to know."'

		act 'Say nothing':
			cls
			bj += 3
			sub += 3
			gang += 1
			gs 'stat'

			if rand1<30:'<center><img src="images/qwest/alter/ev2/seepornblowbang.jpg"></center>'
			if rand1>=30:'<center><img src="images/qwest/alter/ev2/seepornbro0,<<rand(0,2)>>.gif"></center>'
			'Your sillence is taken as consent, Zhendos gets his dick out and pulls your face toward it, You dutifully wrapped your lips around it and began to suck.' 
			'Your brother Kolka and Mishan also get their members out and stand around you, you start to masturbate and suck dick. You find the unusual and awkward situation a little exciting.'

			act 'Suck':
				cls
				$boy = 'Zhendos'
				sexvolume = 35
				spafinloc = 11
				sexpartkno = 1
				gs 'cum_manage'
				sexvolume = 5
				spafinloc = 7
				sexpartkno = 1
				gs 'cum_manage'
				$boy = 'Mishan'
				sexvolume = 35
				spafinloc = 11
				sexpartkno = 1
				gs 'cum_manage'
				sexvolume = 5
				spafinloc = 7
				sexpartkno = 1
				gs 'cum_manage'
				$boy = 'Kolka'
				sexvolume = 35
				spafinloc = 11
				sexpartkno = 1
				gs 'cum_manage'
				sexvolume = 5
				spafinloc = 7
				sexpartkno = 1
				gs 'cum_manage'
				horny += 10
				gs 'stat'

				'<center><img src="images/qwest/alter/ev2/seepornbbcum.jpg"></center>'
				'The boys don''t last long and cum right in your face, Soon almost all of your face is covered in a layer of sperm and it`s dripping on to your clothes. The boys laugh "That''s right, good girl".'

				act 'Escape':gt 'pavResidential'
			end
		end

		act 'Call his bluff':
			cls
			BrotherNo = 1
			!'<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
			'"Fuck off, who would believe you." Your brother looks at you then says to Zhendos "Better luck next time."'

			act 'Escape':gt 'pavResidential'
		end
	elseif bratrand = 1:

		'Zhendos suggests, "<<$name>>, going to serve us like you did the kids in the park? Want to see if you can take two in your mouth?"'
		'You realise, your brother could not resist and told his friends. Hopefully only them.'

		act 'You can manage two little ones':
			cls
			bj += 3
			sub += 3
			gang += 1
			gs 'stat'

			'<center><img src="images/qwest/alter/ev2/SeePornDouble.jpg"></center>'
			'You dutifully kneel in front of the guys, grab their hard dicks and start to push them into your mouth.'
			'"I told you that she would take it in the mouth like a pro, and you didn''t believe me", laughs your brother. "Ok, no choking my sister".'

			act 'Suck':
				cls
				horny += 10
				gs 'stat'

				'<center><img src="images/qwest/alter/ev2/SeePornDouble2.jpg"></center>'
				'You diligently continue to suck two dicks at the same time, the guys moaning and moving their hips trying to shove them into you deeper.' 
				'Your brother is looking at you closely and with his hand down his pants, while loudly telling details about what a dirty whore you are.'
				'Just as you feel that this situation is beginning to slow you. You unzip your brothers pants and start alternate between his cock on its own and both of his friends at the same time.'
				'The boys don`t last long and almost simultaneously finish on your face. Seen too much damn porn, juvenile perverts.'

				act 'Close your eyes':
					cls
					$boy = 'Zhendos'
					sexvolume = 35
					spafinloc = 11
					sexpartkno = 1
					gs 'cum_manage'
					sexvolume = 5
					spafinloc = 7
					sexpartkno = 1
					gs 'cum_manage'
					$boy = 'Mishan'
					sexvolume = 35
					spafinloc = 11
					sexpartkno = 1
					gs 'cum_manage'
					sexvolume = 5
					spafinloc = 7
					sexpartkno = 1
					gs 'cum_manage'
					
					gs 'stat'
					'<center><img src="images/qwest/alter/ev2/seepornbjcum<<rand(2,3)>>.jpg"></center>'
					'Doing nothing but close your eyes, you sit humbly on your knees, without disturbing them while they cum. Then it hits you, the pungent smell of sperm.' 
					'You feel like a hot sticky goo covers your entire face, individual droplets fall on to your neck and hair.'
					'"This is for you, instead of face masks", laugh the boys. Real funny, you wipe your eyes and angrily stare at them.'

					act 'Escape':gt 'pavResidential'
				end
			end
		end

		act 'I don`t think so!':
			cls
			BrotherNo = 1
			!'<center><img src="images/qwest/alter/ev2/seepornHand.jpg"></center>'
			'You indignantly reject the kids. Your brother looks at you and announces "Probably for the best, your tiny peckers would only count as one cock."'

			act 'Escape':gt 'pavResidential'
		end
	end
end

--- seeporn ---------------------------------