glife/locations/foto

# foto
if $ARGS[0] = 'start':
	cls
	killvar '$modelopt'
	minut += 5
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b><font color="maroon">Photography studio</font></b></center>'
	'<center><img src="images/etogame/foto.jpg"></center>'
	'Your are in a deserted studio, except for the photographer who is sitting in the light of a desk lamp, doing something on the computer.'

	if artemIzdev = 2 or artemIzdev = 3:
		act 'Ask about the microcamera':
			minut += 5
			gs 'stat'
			if artemIzdev = 3:'"As I said, I can arrange for a deal for this camera, but it is expensive."'
			if artemIzdev = 2:'"Yes, I can get you this, but it is expensive."' & artemIzdev = 3
			if money < 70000:
				'You do not the 70,000 rub required.'
			else
				'"Oh, looks like you have enough cash."'
				act 'Buy microcamera':
					cls
					minut += 5
					money -= 70000
					artemIzdev = 4
					microcamera = 1
					gs 'stat'
					'<center><img src="images/qwest/alter/artom/microcam_1.jpg"></center>'
					'You buy the microcamera from the photographer.'

					act 'Further':gs 'foto','start'
				end
			end
		end
	end

	if pfilmNO = 1:
		'You''re blacklisted, no decent studio will deal with you, goodbye.'

		act 'Leave':gt 'down'

		exit
	end

	if model > 0 and modelmon = month:
		'There is no more work available this month.'

		if pornstudio = 0:pornstudio = 2 & 'Here, take this business card. Casting opportunity at the pornostudio.'
	end

	act 'Leave':
		cla
		minut += 5
		gt 'down'
	end

	if parkblackmail = 2:
		act 'Look around for the blackmailer':gt 'foto', 'blackm'
	elseif model = 0 and parkblackmail ! 2:
		act 'Ask about working as a glamor model':
			cla
			minut += 5

			if vidage < 20:
				if skinvan < 40:
					'Girl, your face is covered in acne unless you improve your appearance there is no chance of working here.'
				else
					'"Girl, I should warn you: our Studio works exclusively in the erotic genre"'
					'"Exclusively?" You ask, hesitantly.'
					'"Yes." Says the photographer "Let''s see your papers, are you 18 or older?"'
					if age >= 18:
						'"Yes I am." You answer, handing him your passport.'
						'"Hmm, undress, I''ll take a look at you."'
						act 'Undress':gt 'foto', 'model'
					elseif fakepassport = 1:
						'"Yes I am." You answer, handing him your fake passport.'
						'You see him frown as he checks your passport with suspicion.'
						'"Well, I guess everything is in order, undress, I''ll take a look at you."'
						act 'Undress':gt 'foto', 'model'
					else
						'"Nearly..." You plead.'
						'"Right. Then here''s my card, be sure to come back when you are old enough.'
						fakepassport = 2
					end
				end
			end

			if vidage >= 20:'You ask about working as a model, but the photographer says to you, "I''m sorry, but you look like a pretty mature woman, we need young girls." This is his way of telling you that you look too old for this business.'

			act 'Leave':gt 'foto', 'start'
		end
	elseif model > 0 and modelmon ! month and venera < 3:
		act 'Ask about work':gt 'foto', 'model'
	end
end

if $ARGS[0] = 'model':
$modelopt = {
	if forand = 1:
		'So, we need a model to dress in stockings and sexy clothing and show off her body. Payment <<4000 + (modelpay * 2)>> plus tip.'

		act 'Not for me':gt 'foto', 'start'

		act 'Agree (3:00)':
			cls
			minut += 180
			modelpayfin = 4000 + (modelpay * 2) + (200*rand(0,5))
			money += modelpayfin
			modelfoto += 1
			modelfotoTipe[1] += 1
			gs 'stat'
			'<center><img src="images/etogame/model1.jpg"></center>'
			'You dress up in sexy clothes and spend three hours posing for the photographer.'
			'After three hours of shooting, the photographer gives you <<modelpayfin>> <b>₽</b>.'

			act 'Change back into your clothes':gt 'foto', 'start'
		end
	elseif forand = 2:
		'So, we need a model to dress in stockings. Photos of breast and genital close-ups and some general pictures. Payment <<6000 + (modelpay * 3)>> plus tip.'

		act 'Not for me':gt 'foto', 'start'

		act 'Agree (3:00)':
			cls
			minut += 180
			modelpayfin = 6000 + (modelpay * 3) + (300*rand(0,7))
			money += modelpayfin
			modelfoto += 1
			modelfotoTipe[2] += 1
			gs 'stat'
			'<center><img src="images/etogame/model2.jpg"></center>'
			'You dressed up in sexy clothes and three hours spent taking various poses for a photographer.'
			'After three hours of filming photographer gave you <<modelpayfin>> <b>₽</b>.'

			act 'Change back into your clothes':gt 'foto', 'start'
		end
	elseif forand = 3:
		'So, we need a model dressed in sexy clothing with her breasts exposed. Payment <<4000 + (modelpay * 2)>> plus tip.'

		act 'Not for me':gt 'foto', 'start'

		act 'Agree (3:00)':
			cls
			minut += 180
			modelpayfin = 4000 + (modelpay * 2) + (200*rand(0,5))
			money += modelpayfin
			modelfoto += 1
			modelfotoTipe[3] += 1
			gs 'stat'
			'<center><img src="images/etogame/model3.jpg"></center>'
			'You dressed up in sexy clothes and three hours spent taking various poses for a photographer.'
			'After three hours of filming photographer gave you <<modelpayfin>> <b>₽</b>.'

			act 'Change back into your clothes':gt 'foto', 'start'
		end
	elseif forand = 4:
		'So, we need a model completely naked. Photos of breasts genitals and buttocks, close-ups and general pictures. Payment <<6000 + (modelpay * 3)>> plus tip.'

		act 'Not for me':gt 'foto', 'start'

		act 'Agree (3:00)':
			cls
			minut += 180
			modelpayfin = 6000 + (modelpay * 3) + (300*rand(0,7))
			money += modelpayfin
			modelfoto += 1
			modelfotoTipe[4] += 1
			gs 'stat'
			'<center><img src="images/etogame/model4.jpg"></center>'
			'You dressed up in sexy clothes and three hours spent taking various poses for a photographer.'
			'After three hours of filming photographer gave you <<modelpayfin>> <b>₽</b>.'

			act 'Change back into your clothes':gt 'foto', 'start'
		end
	elseif forand = 5:
		'You stripped naked and photographer busily began to examine your naked body.'
		'Photographer examines you and offeres you <<3000 + (modelpay)>> plus tip.'

		act 'Leave':gt 'foto', 'start'

		act 'Agree (3:00)':
			cla
			*clr
			minut += 180
			modelpayfin = 3000 + (modelpay) + (100*rand(0,5))
			money += modelpayfin
			modelfoto += 1
			modelfotoTipe[7] += 1
			'<center><img src="images/etogame/fotograph.jpg"></center>'
			'Photographer said what poses you should take, you are trying to fully implement his instructions and took the most candid poses horny females.'
			'You filmed naked 3:00 and earned <<modelpayfin>> <b>₽</b>.'

			act 'Change back into your clothes':gt 'foto', 'start'
		end
	elseif forand = 6:
		'So, we need a model dedicated to lesbian sex with another girl. Payment <<9000 + (modelpay*4)>> plus tip.'

		act 'Not for me':gt 'foto', 'start'

		act 'Agree (3:00)':
			cls
			lesbian += 1
			minut += 180
			modelpayfin = 9000 + (modelpay*4) + (500*rand(0,13))
			money += modelpayfin
			modelfoto += 1
			girl += 1
			modelfotoTipe[6] += 1
			gs 'stat'
			'<center><img src="images/etogame/model6.jpg"></center>'
			'You undressed and three hours spent taking various poses with another girl before Pictured petting orgasms and lust.'
			'After three hours of filming photographer gave you <<modelpayfin>> <b>₽</b>.'

			act 'Change back into your clothes':gt 'foto', 'start'
		end
	elseif forand = 7:
		'So, we need a model completely naked, masturbating using a dildo. Payment <<4000 + (modelpay * 2)>> plus tip.'

		act 'Not for me':gt 'foto', 'start'

		if vagina = 0:
			'You tell him you are still a virgin.'
			'He looks a little surprised, but offers to take another look to see if there is something more suitable.'
			'A couple of minutes later he returns, "I have another job, or the photographer is willing to pay <<8000 + (modelpay*4)>> plus tip if you are willing to lose your virginity masturbating with a dildo."'

			act 'See alternative offer':
				forand = rand(1, 6)
				cls
				'<center><b><font color="maroon">Photographer</font></b></center>'
				'<center><img src="images/etogame/fotograph.jpg"></center>'
				'Ok, we have another job we could use you for.'
				dynamic $modelopt
			end

			act 'Agree to new offer (lose virginity) (3:00)':
				cls
				vagina = 1
				sub += 5
				stat['mast'] += 1
				minut += 180
				modelpayfin = 8000 + (modelpay*4) + (400*rand(0,10))
				money += modelpayfin
				modelfoto += 1
				modelfotoTipe[5] += 1
				gs 'stat'
				'<center><img src="images/etogame/model5.jpg"></center>'
				'You undressed and spend three hours taking various poses for a photographer and painfully masturbate using different dildos.'
				'It is an embarrassing way to lose your virginity and you feel that you have allowed yourself to be taken advantage of.'
				'After three hours of filming photographer gave you <<modelpayfin>> <b>₽</b>.'

				act 'Change back into your clothes':gt 'foto', 'start'
			end

			exit
		end

		act 'Agree (3:00)':
			cls
			stat['mast'] += 1
			minut += 180
			modelpayfin = 4000 + (modelpay * 2) + (200*rand(0,5))
			money += modelpayfin
			modelfoto += 1
			modelfotoTipe[5] += 1
			gs 'stat'
			'<center><img src="images/etogame/model5.jpg"></center>'
			'You undressed and three hours spent taking various poses for a photographer and poking holes in different dildos.'
			'After three hours of filming photographer gave you <<modelpayfin>> <b>₽</b>.'

			act 'Change back into your clothes':gt 'foto', 'start'
		end
	end
}

	cla
	*clr

	if vnesh >= 80:
		cls
		minut += 5

		if model = 0:model = 1

		modelpay = (vnesh/4 * 25) + (modelfoto * 50) + (film * 100)

		modelmon = month
		gs 'stat'
		'<center><b><font color="maroon">Photographer</font></b></center>'
		'<center><img src="images/etogame/fotograph.jpg"></center>'
		'"We do need a model. All sessions last approximately 3 hours. Just a second, I''ll see what we have available.'
		forand = rand(1, 7)

		dynamic $modelopt

	else
		'One of the photographers examines you. "I''m afraid you don''t fit the criteria at this time."'

		act 'Leave':gt 'foto', 'start'
	end
end

if $ARGS[0] = 'blackm':
	*clr
	gs 'stat'

	if parkblackmail = 2:
		'My name is Victor appears not familiar to you man. I pay good money to students that I have supplied new actresses. So you have to work you invested in money.'

		act 'What do you want?':
			cla
			'Nothing special <<$pcs_nickname>>. Just to let you do what you like - he nodded at the pictures.'

			act 'Fucked in front of the camera?':
				cla
				'Victor smiled. -Well, yes. It''s not difficult. You continued to sit dumbfounded. Today, a lot of time is required. Come, I have everything ready and waiting for you already. -Today? - You are quite confused, but Victor nodded, and his face became rigid. You looked at the pictures and stood up. Steel toe cotton.'

				act 'Go into the room':
					cla
					'On the back of a chair hung candid lingerie and white shirt. Apparently, all of this meant to you. You dressed up and sat on the edge of the bed. At this time, two men entered the room - blond and pretty inflated to look slender brunette. -So, well, a simple scenario. - Ordered Victor, coming with his camera in the room. Girl undressing. Poraskovanney and do not delay. And then you know all the boys. And for the girls will surprise - and he winked ugly guys. You put on the bed and told to undress. Hands do not listen, but after a couple of blond poking you decided not to resist. Took off his shirt, undid the bra, and then the guys have already taken matters into their own hands. He literally ripped from you and bra and panties and fell into bed. No foreplay in was not in sight. Blond put you on all fours and abruptly entered, you have not even had time to be excited. It hurt, but he fucked sharply, sweeping and clutched his chest hurt. Second, too undressed and decided to give you in the mouth. Slender brunette has given you a good slap in the face, tears gushed from his eyes themselves.'
						gs 'npcgeneratec', 0, 'Brunette', rand(19,45)
						gs 'boyStat', $npclastgenerated, 'a'
						gs 'npcgeneratec', 0, 'blond', rand(19,45)
						gs 'boyStat', $npclastgenerated, 'b'
						
					act 'Open mouth':
						cla
						clr
						throat += 1
						guy += 2
						stat['bj'] += 1
						arousal_minut = 30
						gang += 1
						gs 'boyStat', $boy1
						spafinloc = 12
						gs 'cum_manage'
						gs 'boyStat', $boy2
						gs 'cum_manage'
						swallow += 1
						pose = 1
						'<center><img src="images/pics2/studia.jpg"></center>'
						'You have opened my mouth, and he shoved his cock, long and thick. You began to choke, but it literally you sit down, holding his head. They fuck you together, and walked beside Victor, no longer hiding and shooting, shoot, shoot. In his hand was a lovely big camcorder.'
						gs 'orgazm', 'start'
						'They finished together. Blonde poured everything you into the uterus. Brunette forced to swallow everything. You fell onto the bed.'

						act 'Begin to cry':
							cla
							*clr
							'You fell onto the bed and wept. Not bad, tears always look very cool, - said Victor pressing pause. Thus, <<$pcs_nickname>> tempted, and boys can enjoy.'

							act 'In the shower':
								cla
								'Did you go to the shower and went to the set. There you have been waiting for. Suck on, grabbing you by the hand, pulled the blonde to her and went into her mouth. Black, meanwhile, began to stroke your ass. Why such a weasel - thought you nasazhivayas Penis blond. And then he realized where. Brunette finger began entering the hole and before you came, what he wants.'

								act 'No!':
									cla
									stat['vaginal'] += 1
									stat['bj'] += 1
									throat += 1
									stat['anal'] += 1
									gs 'boyStat', $boy1
									spafinloc = 3
									gs 'cum_manage'
									gs 'boyStat', $boy2
									spafinloc = 12
									sexvolume = 5
									gs 'cum_manage'
									spafinloc = 11
									sexvolume = 35
									gs 'cum_manage'
									'<center><img src="images/pics2/studia2.jpg"></center>'
									'You shouted No! Do not yell, good soundproofing here. And your ass is still fuck, so do not twitch and relax. - Already two fingers brunette were you. You sobbing again sucking blonde. Three fingers. At that moment, when giving your mouth quickened and was ready to cum, brunette perched member of your rings and abruptly entered. You yelled again, but the blonde quickly plugged your mouth sperm bryzhzhuschim member and roaring "Swallow, swallow, bitch" - planted itself. When he finally finished, black hair pinned you to the bed all over and started to fuck in the ass. It was just crazy sick - without lubrication, but he did not finish, then pulling out entirely, then abruptly entering again, just ripping you. Finally, you feel like it is speeding up, and you poured semen into the rectum. Nothing worse and you could not imagine.'

									act 'Substitution':
										cla
										*clr
										stat['anal'] += 1
										gs 'boyStat', $boy1
										gs 'cum_manage'
										gs 'boyStat', $boy2
										spafinloc = 3
										gs 'cum_manage'
										arousal_minut = 30
										pose = 1
										dick = 18
										'<center><img src="images/pics2/studia3.jpg"></center>'
										'After showering you already thought that Victor you let go, it turned out that Victor has not yet finished. Fingered you guys again, a little thin dildo fuck. It already seemed just a trifle compared with anal sex. And then you put black hair on his penis and began to fuck, lifting and dropping a little, came back blond hair and tilted you close to your chest brunette. You felt his cock on her ass and realized that they will fuck you in both holes. The second term is slowly coming into you, and you feel like they rub through the thin partition, you have just used as a whore. They fuck you two about half an hour.'
										gs 'orgazm', 'start'
										parkblackmail = 4
										studiaday = 7
										'I''ll call you when you said you still need Viktor goodbye.'

										act 'Leave':gt 'Down'
									end
								end
							end
						end
					end
				end
			end
		end
	end
end

--- foto ---------------------------------