# frot
if $ARGS[0] = 'a':
	cla
	*clr
	svol = rand(30,50)
	spot = 500*rand(16,24)
	gs 'stat'
	'<center><img src="images/picv/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
		horny += 10
		sub += 1
		clr
		gs 'stat'
		'<center><img src="images/picv/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.'

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

		act 'Disregard':
			cla
			*clr
			horny += 10
			sub += 1
			clr
			gs 'stat'
			'<center><img src="images/picv/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.'

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

			act 'Disregard':
				cla
				*clr
				horny += 10
				frot += 1
				dynamic $CatName, 'Stranger on the Metro'
				gs 'cum_call', 'pantyrear', $boy, svol,'', spot
				sub += 3
				dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 1'
				clr
				gs 'stat'
				'<center><img src="images/picv/frot3.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 src="images/picv/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
		horny += 10
		sub += 1
		clr
		gs 'stat'
		'<center><img src="images/picv/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.'

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

		act 'Disregard':
			cla
			*clr
			horny += 10
			sub += 1
			clr
			gs 'stat'
			'<center><img src="images/picv/frota1.jpg"></center>'
			'The man lifts your skirt and starts to caress your bare buttocks with his strong hands.'
			
			act 'Move away':gt 'frot', 'fin'

			act 'Disregard':
				cla
				*clr
				horny += 10
				sub += 1
				clr
				gs 'stat'
				'<center><img src="images/picv/frota2.jpg"></center>'
				'The man lowers your panties and slides his hand between your naked buttocks to caress your wet pussy.'
				
				act 'Move away':gt 'frot', 'fin'

				act 'Disregard':
					cla
					*clr
					horny += 10
					clr
					gs 'stat'
					horny += 10
					frot += 1
					dynamic $CatName, 'Stranger on the Metro'
					spafinloc = 6
					gs 'cum_manage'
					sub += 3
					dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 1'
					clr
					gs 'stat'
					'<center><img src="images/picv/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.'

					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 src="images/picv/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
		horny += 10
		sub += 1
		clr
		gs 'stat'
		'<center><img src="images/picv/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.'

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

		act 'Disregard':
			cla
			*clr
			horny += 10
			clrbelo -= 1
			sub += 1
			clr
			gs 'stat'
			'<center><img src="images/picv/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.'
			
			act 'Move away':gt 'frot', 'fin'

			act 'Enjoy':
				cla
				*clr
				horny += 10
				sub += 1
				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.'

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

				act 'Allow him':
					cla
					*clr
					horny += 10
					clr
					gs 'stat'
					horny += 10
					sub += 2
					dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 5'
					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 dom > 0:act 'Move away':gt 'frot', 'fin'

					act 'Submit':
						cla
						*clr
						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 horny >= 100:
							horny = 0
							manna += 15
							willpower += 15
							orgasm += 1
							'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
						
						if dom > 0:act 'Move away':gt 'frot', 'fin'

						act 'Further':
							cla
							*clr
							sub += 3
							horny += 10
							frot += 1
							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
							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 src="images/picv/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
		horny += 10
		sub += 1
		clr
		gs 'stat'
		'<center><img src="images/picv/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.'

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

		act 'Stroke his cock':
			cla
			*clr
			horny += 10
			stat['hj'] += 1
			gs 'cum_call', 'butt', $boy, svol,'', spot
			sub += 3
			frot += 1
			clr
			gs 'stat'
			'<center><img src="images/picv/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.'

			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 src="images/picv/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
		horny += 60
		sub += 1
		clr
		gs 'stat'
		'<center><img src="images/picv/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.'

		if horny >= 90:
			horny = 0
			manna += 15
			willpower += 15
			orgasm += 1
			'You can''t take any more and you explode in a powerful orgasm. Your legs give way.'

			act 'Squat':
				cla
				*clr
				horny += 10
				clr
				gs 'stat'
				'<center><img src="images/picv/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 dom > 0:act 'Move away':gt 'frot', 'fin'
				
				act 'Suck it':
					cla
					*clr
					horny += 10
					stat['bj'] += 1
					guy += 1
					sub += 2
					frot += 1
					clr
					gs 'stat'
					'<center><img src="images/picv/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.'
					
					if dom > 0:act 'Move away':gt 'frot', 'fin'

					act 'Continue to suck':
						cla
						*clr
						horny += 10
						dynamic $CatName, 'Stranger on the Metro'
						gs 'cum_call', 'face', $boy, svol,'', spot
						facial += 1
						sub += 3
						clr
						gs 'stat'
						'<center><img src="images/picv/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 dom > 0:act 'Move away':gt 'frot', 'fin'

						act 'Sit on the floor':
							cla
							*clr
							horny += 10 + sub + VAF
							dynamic $CatName, 'Stranger on the Metro'
							gs 'cum_call', 'mouth', $boy, svol,'', spot
							swallow += 1
							sub += 3
							gs 'stat'
							'<center><img src="images/picv/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
				horny += 10
				stat['hj'] += 1
				dynamic $CatName, 'Stranger on the Metro'
				gs 'cum_call', 'butt', $boy, svol,'', spot
				sub += 3
				frot += 1
				clr
				gs 'stat'
				'<center><img src="images/picv/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.'

				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 src="images/picv/frotd2.jpg"></center>'
	'You feel a man standing behind you playing with your skirt.'

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

	act 'Disregard':
		cla
		*clr
		horny += 10
		sub += 1
		clr
		gs 'stat'
		'<center><img src="images/picv/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.'

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

		act 'Stroke his cock':
			cla
			*clr
			horny += 10
			stat['hj'] += 1
			dynamic $CatName, 'Stranger on the Metro'
			gs 'cum_call', 'butt', $boy, svol,'', spot
			sub += 3
			frot += 1
			clr
			gs 'stat'
			'<center><img src="images/picv/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.'

			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.'
	act 'Get out of the car':gt 'metro', 'start'
end

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

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

