# yarik
Close ALL

if $ARGS[0] = 'start':
	cls
	minut += 5
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b><font color="maroon">Apartment businessman Yaroslav</font></b></center>'
	'<center><img src="images/yaroslav/3609.11_paradniy_pod-ezd.jpg"></center>'

	act 'Ring the doorbell':
		if hour >= 16 and hour <= 17 and yaq = 1:
			cla
			*clr
			'<center><img src="images/yaroslav/1365154132_studentka-ischet-rabotu-1.jpg" width = 750 height = 450 ></center>'
			'Yaroslav opens the door.'
			'"<<$name>>! Hi! Come on in."'
			act 'Enter the apartment':gt 'yarik', 'yaqw'
		else
			'You rang the doorbell but no one answers.'
		end
	end
	act 'Leave':
		cla
		minut += 5
		gt 'down'
	end
end

if $ARGS[0] = 'yaqw':
	cla
	*clr
	'<center><img src="images/yaroslav/1365154130_studentka-ischet-rabotu-2.jpg" width = 750 height = 450 ></center>'
	'I need you to tidy up, dust, and wash some clothes.'

	act 'Agree':
		cla
		clr
		minut += 120
		manna += 50
		sweat += 10
		gs 'stat'
		'You clean Yaroslav''s apartment, as he sits sorting through some papers and reading them.'
		if rand (0,2) ! 0:
			cla
			'Suddenly he turns to you. "<<$name>>, can you also clean the floor in the bathroom?"'

			act 'Decline':
				cla
				money += 1500
				uborkayar += 1
				'"Its OK I don''t want to make you late. Here is 1500 <b>₽</b> for a job well done. Come again at the same time any evening if you want the work."'
				act 'Leave':gt 'down'
			end

			if yarikwork > 0:
				act 'Agree':gt 'yarik', '3'
			elseif uborkayar > 0:
				act 'Agree':gt 'yarik', '1'
			end
		else
			money += 1500
			uborkayar += 1
			'After you have finished, he pays you 1500 <b>₽</b> and tells you to come back at the same time any evening for more work.'
			act 'Leave':gt 'down'
		end
	end
	act 'Leave':gt 'down'
end

if $ARGS[0] = '1':
	cls
	gs 'stat'
	minut += 10
	'<center><img src="images/yaroslav/1365154198_studentka-ischet-rabotu-3.jpg" width = 750 height = 450 ></center>'
	'As you gat started with the floor, you sit down and start to think about the things you have sunk to doing, your clothes wet, armpits starting to smell. Well at least you will earn some money for your efforts.'

	act 'Scrub the floor':
		cla
		*clr
		minut += 5
		'<center><img src="images/yaroslav/1365154197_studentka-ischet-rabotu-4.jpg" width = 750 height = 450 ></center>'
		'Apparently deciding to check how I am coping, Yaroslav stands in the doorway of the bathroom, watching you. As you clean you start to imagine the situation becoming more sexual and fantisize about seducing Yaroslav.'

		act 'Carry on cleaning':
			cla
			*clr
			minut += 15
			money += 2000
			'<center><img src="images/yaroslav/1365154183_studentka-ischet-rabotu-6.jpg" width = 750 height = 450 ></center>'
			'You finish the floor and polish the shower screen. Yaroslav seems happy with your work and pays you 2000 <b>₽</b>.'
			act 'Leave':gt 'down'
		end

		if uborkayar > 2:
			act 'Seduce him':gt 'yarik', '2'
		end
	end
end

if $ARGS[0] = '2':
	cla
	*clr
	'<center><img src="images/yaroslav/1365154177_studentka-ischet-rabotu-5.jpg" width = 750 height = 450 ></center>'
	'"Hey!" You spin around "Are you looking at my ass?" You cried indignantly, but instead of trying to prevent him, you make sure he gets a good look at it.'

	act 'Stand':
		cla
		*clr
		'<center><img src="images/yaroslav/1365154183_studentka-ischet-rabotu-6.jpg" width = 750 height = 450 ></center>'
		'Yaroslav starts to make excuses, as you stand up. Locking eyes with him you slowly wash the shower screen. "Listen, I want to earn a little more money and you''re a good looking guy." You say, propositioning Yaroslav.'

		act 'Continue':
			cla
			*clr
			minut += 15
			'<center><img src="images/yaroslav/1365154181_studentka-ischet-rabotu-7.jpg" width = 750 height = 450 ></center>'
			'Yaroslav says nothing, so you decide to give him a bit of a show so that he can see exactly what you are suggesting.'
			'"I can''t say the thought didn''t cross my mind <<$name>>. I''ll tell you what, if I''m feeling horny I will ask you to clean the bathroom. If you want to mess around I''ll give you a nice bonus."'

			act 'Agree':
				cla
				yarikwork = 1
				money += 3000
				'You accept his terms. He tells you he can''t right now as he has a project to complete for the morning, but pays you 3000 <b>₽</b> and encourages you to come back at the same time any evening.'
				act 'Leave':gt 'down'
			end

			act 'Decline':
				cla
				yaq = 0
				'You tell him that you have changed your mind and do not want to do this.'
				'"You fucking cock-teasing bitch! Leading me on like that, then changing your mind! Get the fuck out and don''t come back."'
				'He is clearly furious and has no intention of paying you now. You release your only option is to leave before he gets violent.'
				act 'Leave':gt 'down'
			end
		end
	end
end

if $ARGS[0] = '3':
	cla
	*clr
	$boy = 'Yaroslav'
	sexpartkno = 1
	minut += 5
	'<center><img src="images/yaroslav/1365154177_studentka-ischet-rabotu-5.jpg" width = 750 height = 450 ></center>'
	'You give the floor a quick wash as you wait for Yaroslav to appear in the doorway.'
	'"Are you looking at my ass?" You ask, giving him a good look at it.'
	'He smiles and says, "Very much so, now let''s talk business."'
	act 'Stand up and remove top':
		cla
		*clr
		'<center><img src="images/yaroslav/1365154153_studentka-ischet-rabotu-9.jpg" width = 750 height = 450 ></center>'
		'You stand by the shower and slowly remove your top and bra. Looking at the wad of cash in his hand you say, "It depends how much you would like to spend."'
		'"I''ll give you 250 for a show"'
		act 'Put on a show':gt 'yarik', '4'
		if yarikwork > 2:
			'"I''ll give you 500 for a blowjob."'
			act 'Blow him':gt 'yarik', '5'
		end
		if yarikwork > 4:
			'"I''ll give you 1000 for sex."'
			act 'Have sex':gt 'yarik', '6'
		end
		if yarikwork > 8:
			'"I''ll give you 1500 for anal sex."'
			act 'Have anal':gt 'yarik', '7'
		end
	end
end

if $ARGS[0] = '4':
	cla
	*clr
	minut += 5
	horny += 10
	'<center><img src="images/yaroslav/1365154123_studentka-ischet-rabotu-8.jpg" width = 750 height = 450 ></center>'
	'You squeeze out your sponge over your breasts and start to rub them seductively, "Oh dear, I''m so wet ..."'

	act 'Show him':
		cla
		*clr
		minut += 5
		horny += 10
		'<center><img src="images/yaroslav/1365154172_studentka-ischet-rabotu-14.jpg" width = 750 height = 450 ></center>'
		'"Let me show you." You strip off the rest of your clothes and sit on a unit, lifting you legs to show Yaroslav everything.'

		act 'Finger yourself':
			cls
			horny += 10
			minut += 5
			gs 'stat'
			'<center><img src="images/yaroslav/1365154194_studentka-ischet-rabotu-15.jpg" width = 750 height = 450 ></center>'
			'You stick 2 fingers into your vagina, and thrust them back and forth. You feel your excitment grow.'
			if horny > 90:
				orgasm += 1
				horny = 0
				'You are caught off guard by your arousal and have a surprising, but pleasing orgasm.'
			end

			act 'Shower':
				minut += 15
				dynamic $showerdin
				money += 2250
				gt 'yarik', 'end'
			end
		end
	end
end

if $ARGS[0] = '5':
	cls
	minut += 5
	horny += 10
	gs 'stat'
	'<center><img src="images/yaroslav/1365154194_studentka-ischet-rabotu-10.jpg" width = 750 height = 450 ></center>'
	'Looking down, you see that his cock is, wow, that''s a really delicious looking cock. You lick your lips in anticipation.'

	act 'Approach':
		cla
		*clr
		minut += 5
		'<center><img src="images/yaroslav/1365154141_studentka-ischet-rabotu-13.jpg" width = 750 height = 450 ></center>'
		'You let your shorts drop to the floor and walk upto Yaroslav. You surprise him with a long, lingering kiss as you grip his cock in your hand. As you pull back his breath is heavy and his eyeshave glazed over.'

		act 'Kneel down':
			cla
			*clr
			minut += 5
			'<center><img src="images/yaroslav/1365154216_studentka-ischet-rabotu-12.jpg" width = 750 height = 450 ></center>'
			'You slowly drop to your knees and began to lick the head of his cock sensually. Yaroslav clearly enjoys the attention and you keep your eyes locked on his.'

			act 'Suck it':
				cla
				*clr
				minut += 10
				horny += 10
				stat['bj'] += 1
				throat += 1
				'<center><img src="images/yaroslav/1365154178_studentka-ischet-rabotu-11.jpg" width = 750 height = 450 ></center>'
				'He starts to move his hips, trying to get more, you hold him back for a few seconds, then wrap your <<$liptalk>> around the pulsating member shift your focus to maximising his pleasure.'

				act 'Continue':
					cls
					minut += 5
					facial += 1
					spafinloc = 12
					gs 'cum_manage'
					$boy = 'Yaroslav'
					sexpartkno = 1
					spafinloc = 7
					gs 'cum_manage'
					gs 'stat'
					'<center><img src="images/yaroslav/1365154169_studentka-ischet-rabotu-27.jpg" width = 750 height = 450 ></center>'
					'As he is about to come, Yaroslav moaning and holding the base of his own cock, pulls back and sprays his spunk all over your face. You sit there catching your breath as sperm drips down onto you breasts.'
					if horny > 90:
						orgasm += 1
						VAF += 1
						horny = 0
						'You don''t realise how aroused you have gotten until you moan in orgasm.'
					end

					act 'Shower':
						minut += 15
						dynamic $showerdin
						money += 2500
						gt 'yarik', 'end'
					end
				end
			end
		end
	end
end

if $ARGS[0] = '6':
	cla
	*clr
	minut += 5
	horny += 10
	'<center><img src="images/yaroslav/1365154172_studentka-ischet-rabotu-14.jpg" width = 750 height = 450 ></center>'
	'"Let''s fuck then." You strip off the rest of your clothes and sit on a unit, lifting you legs to show Yaroslav everything.'

	act 'Wait':
		cls
		minut += 5
		horny += 10
		gs 'stat'
		'<center><img src="images/yaroslav/1365154144_studentka-ischet-rabotu-16.jpg" width = 750 height = 450 ></center>'
		'Yaroslav strips off his clothes, his cock is already fully erect. He walks up to you and rubs the head of it around your pussy.'

		act 'Fuck':
			cla
			*clr
			minut += 5
			horny += 10
			cumprecheck = 1
			gs 'cum_manage'
			'<center><img src="images/yaroslav/1365154203_studentka-ischet-rabotu-17.jpg" width = 750 height = 450 ></center>'
			'You nod to show him you are ready and he slowly pushes his member past your lips and fills your pussy, you let out a small moan of pleasure.'

			act 'Continue':
				cls
				minut += 5
				horny += 10
				gs 'stat'
				'<center><img src="images/yaroslav/1365154175_studentka-ischet-rabotu-19.jpg" width = 750 height = 450 ></center>'
				'He lifts your legs and holds them straight up, he can''t reach as deeply, but the change of sensation is more than making up for that.'

				act 'Change position':
					cla
					*clr
					minut += 10
					horny += 10
					'<center><img src="images/yaroslav/1365154164_studentka-ischet-rabotu-26.jpg" width = 750 height = 450 ></center>'
					'Yaroslav withdraws and helps you down from the unit. You climb on top of him and ride him. You move your hips, occasionally lifting until it was almost free, then thrusting down on the full length.'

					act 'Change back':
						cls
						minut += 5
						horny += 10
						gs 'stat'
						'<center><img src="images/yaroslav/1365154147_studentka-ischet-rabotu-18.jpg" width = 750 height = 450 ></center>'
						'You get off of Yaroslav and help him to his feet. He lifts you ack onto the unit and quickly starts to pond you once more.'

						act 'Continue':
							cla
							*clr
							minut += 5
							horny += 10
							'<center><img src="images/yaroslav/1365154194_studentka-ischet-rabotu-20.jpg" width = 750 height = 450 ></center>'
							'Breathing heavily and getting slick with sweat, Yaroslav lifts your right leg up and places it on top of your left one. This gives you another new feeling of stimulation and gret respect for his endurance.'

							act 'Finish':
								cls
								minut += 5
								vagina += 1
								stat['vaginal'] += 1
								facial += 1
								spafinloc = 12
								gs 'cum_manage'
								$boy = 'Yaroslav'
								sexpartkno = 1
								spafinloc = 7
								gs 'cum_manage'
								gs 'stat'
								'<center><img src="images/yaroslav/1365154169_studentka-ischet-rabotu-27.jpg" width = 750 height = 450 ></center>'
								'Briskly, Yaroslav pulls you from the unit and puts you on your knees. Your face has barely reached his penis, when it sprays you with sperm, covering your face and chest.'
								if horny > 90:
									orgasm += 1
									horny = 0
									'You enjoy a fulfilling orgasm.'
								end

								act 'Shower':
									minut += 15
									dynamic $showerdin
									money += 3000
									gt 'yarik', 'end'
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = '7':
	cls
	minut += 5
	horny += 10
	gs 'stat'
	'<center><img src="images/yaroslav/1365154232_studentka-ischet-rabotu-22.jpg" width = 750 height = 450 ></center>'
	'"Let''s do this then." You strip off the rest of your clothes and sit on a unit, you twist to the side and lift your butt check to expose your ass.'

	act 'Wait':
		cla
		*clr
		minut += 5
		horny += 10
		cumprecheck = 1
		gs 'cum_manage'
		'<center><img src="images/yaroslav/1365154145_studentka-ischet-rabotu-24.jpg" width = 750 height = 450 ></center>'
		'Yaroslav approaches you, he just goes for it without any pause or warning. You are about to shout expecting pain, but just bit your lip in pleasure as you realise he has entered your pussy.'

		act 'Continue':
			cls
			minut += 5
			horny += 10
			gs 'stat'
			'<center><img src="images/yaroslav/1365154212_studentka-ischet-rabotu-23.jpg" width = 750 height = 450 ></center>'
			'You start to get in the mood and enjoy the sex, when he removes his penis and starts to work it against your anus. Slowly you feel him enter and the head of his penis starts to fill your butt.'

			act'Continue':
				cla
				*clr
				minut += 5
				horny += 10
				'<center><img src="images/yaroslav/1365154188_studentka-ischet-rabotu-21.jpg" width = 750 height = 450 ></center>'
				'He turns you to your side and starts to drive his full length home. He supports your head with his hand and you suck on his thumb the initial pain giving way to bliss.'

				act'Change position':
					cls
					minut += 5
					horny += 10
					gs 'stat'
					'<center><img src="images/yaroslav/1365154143_studentka-ischet-rabotu-25.jpg" width = 750 height = 450 ></center>'
					'You push Yaroslav back and getting the hint he withdraws and helps you down. Lying on his back he guides your anus back on to his cock and you set your own rhythm trying to bring yourself to orgasm.'

					act 'Continue':
						cla
						*clr
						minut += 5
						spafinloc = 12
						gs 'cum_manage'
						$boy = 'Yaroslav'
						sexpartkno = 1
						spafinloc = 7
						gs 'cum_manage'
						'<center><img src="images/yaroslav/1365154169_studentka-ischet-rabotu-27.jpg" width = 750 height = 450 ></center>'
						'As he is about to come, Yaroslav moaning and holding the base of his own cock, pulls back and sprays his spunk all over your face. You sit there catching your breath as sperm drips down onto you breasts.'
						if horny > 90:
							orgasm += 1
							horny = 0
							'You have a powerful orgasm.'
						end

						act 'Shower':
							minut += 15
							dynamic $showerdin
							money += 3500
							gt 'yarik', 'end'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'end':
	cls
	hapri = 0
	dynamic $showerdin
	gs 'stat'
	'<center><img src="images/yaroslav/1365154231_studentka-ischet-rabotu-28.jpg" width = 750 height = 450 ></center>'
	'Yaroslav leaves you to shower and gives you your wage and the bonus as per your agreement. He tells you he will be around every evening at the same time.'

	act 'Get dressed and leave':
		yarikwork += 1
		gt 'down'
	end
end

--- yarik ---------------------------------

