glife/locations/frot

# frot
if $ARGS[0] = 'a':
	cla
	*clr
	svol = rand(30,50)
	spot = 500*rand(16,24)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frot.jpg"></center>'
	'You feel something solid against your ass, stirring you realize that rising up between your buttocks a penis comes to rest.'

	act 'Move away':gt 'frot', 'fin'

	act 'Disregard':
		cla
		*clr
		clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frot1.jpg"></center>'
		'The guy standing behind you, with no regard for other passengers, grabs your butt with his hand and presses his member harder against your ass.'

		gs 'arousal', 'foreplay', 5, 'sub'
		gs 'stat'
		
		act 'Move away':gt 'frot', 'fin'

		act 'Disregard':
			cla
			*clr
			clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frot2.jpg"></center>'
			'You feel like the man behind you has got his penis out and begun to rub it on your ass, clinging on to you and squeezing your buttocks with his hands.'

			gs 'arousal', 'foreplay', 5, 'sub'
			gs 'stat'
		
			act 'Move away':gt 'frot', 'fin'

			act 'Disregard':
				cla
				*clr
				pcs_horny += 10
				frot += 1
				gs 'cum_call', 'pantyrear', 'stranger on the metro', 0, 0, spot, svol
				sub += 3
				dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 1'
				clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotc1.jpg"></center>'
				'The man jerks back and you feel something warm and viscous flow over you. The guy finished you on your ass, then moved away to another section.'

				act 'Get out of the car':gt 'frot', 'fin2'
			end
		end
	end
end

if $ARGS[0] = 'b':
	cla
	*clr
	svol = rand(30,50)
	spot = 500*rand(16,24)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frot.jpg"></center>'
	'You feel something solid against your ass, stirring you realize that rising up between your buttocks a penis comes to rest.'

	act 'Move away':gt 'frot', 'fin'

	act 'Disregard':
		cla
		*clr
		clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frot1.jpg"></center>'
		'The guy standing behind you, with no regard for other passengers, grabs your butt with his hand and presses his member harder against your ass.'

		gs 'arousal', 'foreplay', 5, 'sub'
		gs 'stat'
		
		act 'Move away':gt 'frot', 'fin'

		act 'Disregard':
			cla
			*clr
			clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frota1.jpg"></center>'
			'The man lifts your skirt and starts to caress your bare buttocks with his strong hands.'
			
			gs 'arousal', 'foreplay', 5, 'sub'
			gs 'stat'
		
			act 'Move away':gt 'frot', 'fin'

			act 'Disregard':
				cla
				*clr
				pcs_horny += 10
				sub += 1
				clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frota2.jpg"></center>'
				'The man lowers your panties and slides his hand between your naked buttocks to caress your wet pussy.'
				
				gs 'arousal', 'vaginal_finger', 5, 'sub'
				gs 'stat'
		
				act 'Move away':gt 'frot', 'fin'

				act 'Disregard':
					cla
					*clr
					clr
					gs 'stat'
					frot += 1
					gs 'cum_call', 'clothesgroin', 'stranger on the metro', 0, 0, spot, svol
					dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 1'
					clr
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frot3.jpg"></center>'
					'The man pull your panties down to your knees, then letting your skirt fall back into place takes your hand in his. He forces his dick into your hand.'
					'You cup the hot and hard cock and begin stroking it. After a couple of minutes you feel the man cumming on your skirt.'

					gs 'arousal', 'hj', 5, 'sub'
					gs 'stat' 
		
					act 'Get out of the car':gt 'frot', 'fin2'
				end
			end
		end
	end
end

if $ARGS[0] = 'c':
	cla
	*clr
	svol = rand(30,50)
	spot = 500*rand(16,24)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp.jpg"></center>'
	'You feel a man standing behind you start poking his hand down the back of your pants.'

	act 'Move away':gt 'frot', 'fin'

	act 'Disregard':
		cla
		*clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp1.jpg"></center>'
		'You enjoy the nice sensation of the stranger caressing your ass under your pants, when suddenly you see he has pulled out a small pair of scissors and is trying to reach your bra strap.'

		gs 'arousal', 'foreplay', 5, 'sub'
		gs 'stat'
		
		act 'Move away':gt 'frot', 'fin'

		act 'Disregard':
			cla
			*clr
			gs 'bras', 'dispose'
			clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp2.jpg"></center>'
			'The man cut the straps of your bra and removes it from you. Freed from your bra, he now fondles your breasts.'
			
			gs 'arousal', 'foreplay', 5, 'sub'
			gs 'stat'
		
			act 'Move away':gt 'frot', 'fin'

			act 'Enjoy':
				cla
				*clr
				gs 'arousal', 'foreplay', 5, 'sub'
				clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp3.jpg"></center>'
				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'

				act 'Allow him':
					cla
					*clr
					pcs_horny += 10
					clr
					gs 'stat'
					pcs_horny += 10
					sub += 2
					dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 5'
					clr
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp4.jpg"></center>'
					if PCloSkirt = 0:
						'The man rips your pants between your legs, thereby exposing your wet pussy.'
					elseif $pantyworntype = 'none':
						'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 pcs_dom > 0:act 'Move away':gt 'frot', 'fin'

					act 'Submit':
						cla
						*clr

						'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp5.jpg"></center>'

						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 pcs_horny >= 100:
							pcs_mood += 15
							pcs_willpwr += 15
							$orgasm_or = 'custom'
							$orgasm_txt = '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
							$orgasm_or = 'custom'
							$orgasm_txt = 'You are overwhelmed by the wild excitement of sex with a stranger in a public place.'
						end

						guy += 1
						pcs_vag += 1
						cumprecheck = 1
						gs 'cum_call', '', 'stranger on the metro', 0, 0, spot, svol
						gs 'arousal', 'vaginal', 5, 'sub'
						gs 'stat'
						
						if pcs_dom > 0:act 'Move away':gt 'frot', 'fin'

						act 'Further':
							cla
							*clr
							sub += 3
							pcs_horny += 10
							frot += 1
							gs 'cum_call', '', 'stranger on the metro', 0, 0, spot, svol
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp6.jpg"></center>'
							'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
				end
			end
		end
	end
end

if $ARGS[0] = 'd':
	cla
	*clr
	svol = rand(30,50)
	spot = 500*rand(16,24)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp.jpg"></center>'
	'You feel a man standing behind you start poking his hand down the back of your pants.'

	act 'Move away':gt 'frot', 'fin'

	act 'Disregard':
		cla
		*clr
		clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd.jpg"></center>'
		'The man pulls your pants off you leaving you with a bare ass in a crowded subway car, he takes your hand and makes you hold his penis in your hand.'

		gs 'arousal', 'foreplay', 5, 'sub'
		gs 'stat'
		
		act 'Move away':gt 'frot', 'fin'

		act 'Stroke his cock':
			cla
			*clr
			gs 'cum_call', 'butt', 'stranger on the metro', 0, 0, spot, svol
			frot += 1
			clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
			'You caress his dick and rub it on your bare skin, you rub it more vigorously as it stiffens and sperm splashes onto your bare ass. After the man was satisfied, he pulls your pants over your sperm covered ass, pats you on the bum and disappears.'

			gs 'arousal', 'hj', 5, 'sub'
			gs 'stat'
		
			act 'Get out of the car':gt 'frot', 'fin2'
		end
	end
end

if $ARGS[0] = 'e':
	cla
	*clr
	svol = rand(30,50)
	spot = 500*rand(16,24)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotp.jpg"></center>'
	'You feel a man standing behind you start poking his hand down the back of your pants.'

	act 'Move away':gt 'frot', 'fin'

	act 'Disregard':
		cla
		*clr
		clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frote.jpg"></center>'
		'The man pulls your pants off you leaving you with a bare ass in a crowded subway car, you feel his hand reach between your legs and start to masturbate your pussy from behind.'

		gs 'arousal', 'vaginal_finger', 5, 'sub'
		gs 'stat'
		
		if pcs_horny >= 90:
			pcs_mood += 15
			pcs_willpwr += 15
			$orgasm_or = 'custom'
			$orgasm_txt = 'You can''t take any more and you explode in a powerful orgasm. Your legs give way.'

			act 'Squat':
				cla
				*clr
				pcs_horny += 10
				clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frote1.jpg"></center>'
				'You can no longer stand and squat. The man moves to your side, pulls out his member and taking you head in his hand, turns your face to meet it.'

				if pcs_dom > 0:act 'Move away':gt 'frot', 'fin'
				
				act 'Suck it':
					cla
					*clr
					guy += 1
					frot += 1
					clr
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frote2.jpg"></center>'
					'The man taunts you by bringing his cock to your lips, then moving back. Soon, timing it just right, you catch his purple head between your lips.'
					'You obediently suck his hard cock. You are sitting on your haunches in the middle of a crowded subway car and sucking a stranger dick.'
					
					gs 'arousal', 'bj', 5, 'sub'
					gs 'stat'
		
					if pcs_dom > 0:act 'Move away':gt 'frot', 'fin'

					act 'Continue to suck':
						cla
						*clr
						pcs_horny += 10
						gs 'cum_call', 'face', 'stranger on the metro', 0, 0, spot, svol
						facial += 1
						sub += 3
						clr
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frote3.jpg"></center>'
						'The man pulls his cock out of your mouth and ends against your lips, hot cum splatters on your lips chin.'
						
						if pcs_dom > 0:act 'Move away':gt 'frot', 'fin'

						act 'Sit on the floor':
							cla
							*clr
							pcs_horny += 10 + sub
							gs 'cum_call', 'mouth', 'stranger on the metro', 0, 0, spot, svol
							swallow += 1
							sub += 3
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frote4.jpg"></center>'
							'Male fingers collect the sperm from your face and they push into your mouth, and you dutifully lick them and swallow the sperm.'

							act 'Get out of the car':gt 'frot', 'fin2'
						end
					end
				end
			end

			exit
		else
			'You are very nervous the thought crosses your mind to masturbate his penis.'

			act 'Stroke his cock':
				cla
				*clr
				gs 'cum_call', 'butt', 'stranger from the metro', 0, 0, spot, svol
				frot += 1
				clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
				'You caress his dick and rub it on your bare skin, you rub it more vigorously as it stiffens and sperm splashes onto your bare ass. After the man was satisfied, he pulls your pants over your sperm covered ass, pats you on the bum and disappears.'

				gs 'arousal', 'hj', 5, 'sub'
				gs 'stat'
		
				act 'Get out of the car':gt 'frot', 'fin2'
			end
		end
	end
end

if $ARGS[0] = 'd1':
	cla
	*clr
	svol = rand(30,50)
	spot = 500*rand(16,24)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd2.jpg"></center>'
	'You feel a man standing behind you playing with your skirt.'

	act 'Move away':gt 'frot', 'fin'

	act 'Disregard':
		cla
		*clr
		clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd.jpg"></center>'
		'The man pulls your pants off you leaving you with a bare ass in a crowded subway car, he takes your hand and makes you take his penis in your hand.'

		gs 'arousal', 'foreplay', 5, 'sub'
		gs 'stat'
		
		act 'Move away':gt 'frot', 'fin'

		act 'Stroke his cock':
			cla
			*clr
			gs 'cum_call', 'butt', 'stranger on the metro', 0, 0, spot, svol
			frot += 1
			clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
			'You caress his dick and rub it on your bare skin, you rub it more vigorously as it stiffens and sperm splashes onto your bare ass. After the man was satisfied, he pulls your pants over your sperm covered ass, pats you on the bum and disappears.'

			gs 'arousal', 'hj', 5, 'sub'
			gs 'stat'
		
			act 'Get out of the car':gt 'frot', 'fin2'
		end
	end
end

if $ARGS[0] = 'fin':
	cla
	'You barely manage to escape to another place, away from the horny idiot. After a while you get to your station.'
	
	gs 'arousal', 'end'
	gs 'stat'
	
	act 'Get out of the car':gt 'metro', 'start'
end

if $ARGS[0] = 'fin2':
	gt 'metro', 'start'
end

--- frot ---------------------------------