glife/locations/foto_shoot.qsrc

# foto_shoot


!! ----------------------------------------------------------------------------------------------------
!!
!! --------------------------------------- Job Requests -----------------------------------------------
!!
!! ----------------------------------------------------------------------------------------------------


if $ARGS[0] = 'model':
	menu_off = 1
	if model['status'] = 0:model['status'] = 1
	*clr & cla
	minut += 5
	modelpay = (pcs_mdlng/2 * 10) + ((min(fame['city_modelling'], 700) + pcs_apprnc)/2)
	modelpayfin = 900 + (15*rand(0,5))
	gs 'stat'
	'<center><b><font color="maroon">Manager</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
	'"Hello <<$model[''firstname'']>>. Are you here to work? What kind of shoot would you like to do today?"'
	*nl
!!	'<a href="exec:gs ''shortgs'',''msg'',''There are three types of shoots: Catalog, Fashion, and Glamour. A catalog shoot is any shoot that is meant to appear in a shopping magazine or online catalog. They don''t do much for your fame but the base pay is steady. A fashion shoot is more stylized and though the base pay is not as high, there will be a bonus tip based on your modelling skill and fame. A glamour shoot will always involve nudity or risqué clothing and will typically be erotic in nature. This type of modelling will have good pay with good bonuses based on skill and fame, but also will spread your fame beyond the city far more quickly. If you grew up in a small town outside St. Petersburg, the pictures may reach its populace sooner rather than later.''">Modelling Shoot Guide</a>'
	'<center><b><font color="blue">Modelling guide</font></b></center>'
	*pl '<center><table align="center" width=80%>'
	'<b>Catalog</b> - A catalog shoot is any shoot that is meant to appear in a basic paper or online catalog. They don''t do much for your fame but the base pay is steady.'
	'<b>Fashion</b> - A fashion shoot is more stylized and though the base pay is not as high, there will be a higher bonus based on your modelling skill and fame.'
	'<b>Glamour</b> - A glamour shoot will always involve nudity or risqué clothing, though will always be artistic in nature. This type of modelling will have good pay with good bonuses based on skill and fame, but also will spread your fame beyond the city far more quickly. If you grew up in a small town outside St. Petersburg, the pictures may reach its populace sooner rather than later.'
	'<b>Erotic</b> - An erotic shoot makes no excuses about its purpose. The intent is to capture sexual images of female bodies to sell to pornography sites and erotic magazines. This type of modelling will have the highest bonuses based on your appearance but will also increase your fame in the porn industry as well.'
	*p '</table></center>'
	act'Never mind':
		cla & *clr
		'<center><b><font color="maroon">Manager</font></b></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
		'"Sorry, I just realized that I have something to do right now. Can I come back later?"'
		'"Sure, no problem <<$pcs_lastname>>, just let us know when you''re ready to work.'
		act'Leave':gt 'foto','studio'
	end
	
	act'Actually I''d like to practice':gt'foto_practice','start'
		
	act'"I''d like to do a catalog shoot"':
		cla & *clr
		if modelfoto['shoots'] >= 10 and pcs_mdlng > 20 and modelfoto['fashion'] < 1:gt'foto_events','fashion_persuasion'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
		'"Alright, what kind of shoot? Clothing or swimsuits?"'
		
		act'Clothing':
			$modelfoto['shoot_type'] = 'catalog'
			modelfoto['shoots'] += 1
			model_week = (daystart - week) / 7
			modelfoto['catalog'] += 1
			model_job_week += 1
			gs 'exp_gain', 'mdlng', rand(2,5)
			gs 'fame', 'city', 'modelling', 'tiny'
			minut += 120
			money += 450
			modelfoto['earnings'] += 450
			cla & *clr
			if rand(1,2) = 1:
				'<center><video autoplay loop src="images/locations/city/citycenter/photo/catalog/1.mp4"></video></center>'
				'You spend two hours modelling various tights with tops for the online catalogs of retail clothing stores. You change clothes probably 30 times over the shoot, but always wear the same expression. It''s boring but it still gets you paid.'
			else
				'<center><video autoplay loop src="images/locations/city/citycenter/photo/catalog/2.mp4"></video></center>'
				'You spend two hours modelling various dresses for the online catalogs of retail clothing stores. You change clothes probably 30 times over the shoot, but always wear the same expression. It''s boring but it still gets you paid.'
			end
			*nl
			'You recieve 450 <b>₽</b> for the job.'
			act 'Leave':gt 'foto', 'studio'
		end
		act'Swimsuits':
			$modelfoto['shoot_type'] = 'swim_catalog'
			modelfoto['shoots'] += 1
			model_week = (daystart - week) / 7
			modelfoto['catalog'] += 1
			model_job_week += 1
			gs 'exp_gain', 'mdlng', rand(2,5)
			gs 'fame', 'city', 'modelling', 'tiny'
			minut += 120
			money += 450
			modelfoto['earnings'] += 450
			cla & *clr
			'<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini/<<rand(1,3)>>.mp4"></video></center>'
			bikinicatalog += 1
			'You change in and out of various different bikinis, modelling them with the same pose and expression for use in online and department store catalogs.'
			*nl
			'You recieve 450 <b>₽</b> for the job.'
			act 'Leave':gt 'foto', 'studio'
		end
	end
	
	act'"I''d like to do a fashion shoot"':
		if pcs_mdlng < 20:
			msg'"Sorry, but you aren''t a skilled enough model to do this kind of publication yet. Maybe get some practice in on your off days."'
		else
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
			'"Alright, what kind of shoot would you like to do? Fashion, bikini, or lingerie?"'
			act 'Fashion':
				$modelfoto['shoot_type'] = 'fashion'
				if modelfoto['fashion'] >= 10 and modelfoto['bikini'] + modelfoto['lingerie'] < 1 and modelfoto['glamour'] < 1 and modelfoto['nude'] < 1: gt'foto_events','lingerie_persuasion'
				cla
				act 'Look at something else':gt 'foto_shoot','model'

				act 'Agree (2:00)':gt 'foto_shoot','fashion'
			end

			act 'Bikini':
				$modelfoto['shoot_type'] = 'bikini'
				*clr & cla
				if modelfoto['bikini'] + modelfoto['lingerie'] >= 10 and pcs_mdlng > 20 and modelfoto['glamour'] < 1 and modelfoto['nude'] < 1:gt'foto_events','glamour_persuasion'
				if pcs_inhib < 20:
					'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
					act 'Look at something else':gt 'foto_shoot','model'
					
					if pcs_mdlng > 20:
						gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
					else
						gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
					end
					if will_cost <= pcs_willpwr:
						*nl
						'Or you could just force yourself do it anyways...'
						act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','bikini'
					end
				else
					cla
					act 'Look at something else':gt 'foto_shoot','model'

					act 'Agree (2:00)':gt'foto_shoot','bikini'
				end
			end


			act 'Lingerie modelling':
				$modelfoto['shoot_type'] = 'lingerie'
				*clr & cla
				if modelfoto['bikini'] + modelfoto['lingerie'] >= 10 and modelfoto['glamour'] < 1 and modelfoto['nude'] < 1:gt'foto_events','glamour_persuasion'
				if pcs_inhib < 25:
					'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
					act 'Look at something else':gt 'foto_shoot','model'
					
					if pcs_mdlng > 20:
						gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
					else
						gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
					end
					if will_cost <= pcs_willpwr:
						*nl
						'Or you could just force yourself do it anyways...'
						act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','lingerie'
					end	
				else
					cla
					act 'Look at something else':gt 'foto_shoot','model'

					act 'Agree (2:00)':gt'foto_shoot','lingerie'
				end
			end
		end
	end

	act'"I''d like to do a glamour shoot"':
		if pcs_inhib < 30 and modelfoto['glamour'] < 1:
			msg'You toy with the idea of exposing yourself on camera but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
		else
			gt'foto_shoot', 'glamour_shoot'
		end
	end
	
	act'"I''d like to do a nude shoot"':
		if pcs_inhib < 30 and modelfoto['nude'] < 1:
			msg'You toy with the idea of exposing yourself on camera but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
		else
			gt'foto_shoot', 'nude_shoot'
		end
	end
	
	if Fit['FMR'] = 1:
		 act '"I''d like to do a fitness shoot"':gt'foto_shoot','fitness_shoot'
	end
end

!!	'Info guides:'
!!	'<a href="exec:gs ''shortgs'',''msg'',''This type of shoot is not particularly more explicit, but the clothes being modelled are inherently more sensual and will require some confidence to be able to wear them.''">Erotic clothed</a>'
!!	'<a href="exec:gs ''shortgs'',''msg'',''A topless shoot is any shoot that has you baring your breasts and shoulders while still wearing bottoms of some kind, whether that be trousers, skirt, or underwear.''">Topless</a>'
!!	'<a href="exec:gs ''shortgs'',''msg'',''A tastefully nude shoot is one that does not show genitals of any kind, neither vagina or nipple. Your pay will be based more on your fame and appearance than your skill.''">Tasteful nude</a>'
!!	'<a href="exec:gs ''shortgs'',''msg'',''A topless nude shoot is one step further in eroticism while still maintaining class. Your nipples will be exposed but your vagina will remain hidden. It is considered erotic without being slutty, like a character nude scene in a film. Skill plays a larger role in this type of shoot.''">Topless nude</a>'
!!	'<a href="exec:gs ''shortgs'',''msg'',''A fully nude shoot bares all. Your breasts, nipples, and vagina will be visible. It is the most erotic, gives the highest bonus from appearance and fame, but will also spread your fame further and faster. If you are an aspiring star, this may be good for your publicity. But if there are people you want to hide your work from, this might reach them sooner than expected.''">Fully nude</a>'

!!	act 'Erotic clothing with breast nudity':
		!!already matched the exhibitionism value above
!!		cla
!!		act 'Look at something else':gt 'foto_shoot','model'

!!		act 'Agree (2:00)':
!!			*clr & cla

!!			minut += 120
!!			modelpayfin = 700 + (modelpay) + (15*rand(0,5))
!!			modelfoto['nip'] += 1
!!			gs 'exp_gain', 'mdlng', rand(6,10)
!!			fame['city_modelling'] += rand(7,13)
!!			pav_modelling += rand(1,fame['city_modelling'])/10
!!			inhib_exp += 2
!!			gs 'stat'
!!			'<center><video autoplay loop src="images/locations/city/citycenter/photo/model5.mp4"></video></center>'
!!			'You dressed up in sexy clothes and spend the next two hours striking various poses for a photographer, your nipples occasionally slipping out from behind the clothing.'
!!			*nl
!!			'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
!!			if pcs_mdlng >= 40 and commercial = 0:
!!				act 'Leave':gt'foto_events','commercial'
!!			else
!!				act 'Leave':gt 'foto', 'end'
!!			end
!!		end
!!	end



!! ----------------------------------------------------------------------------------------------------
!!
!! ------------------------------------- Glamour Requests ---------------------------------------------
!!
!! ----------------------------------------------------------------------------------------------------

if $ARGS[0] = 'glamour_shoot':
	cla & *clr
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
	'"Alright, we can do that. What kind of glamour shoot?"'
	act 'Sexy clothing':
		*clr & cla
		$modelfoto['shoot_type'] = 'sexy_clo'
		if modelfoto['sexy'] >= 10 and modelfoto['trans_ling'] + modelfoto['trans_ling'] < 1 and modelfoto['nip'] < 1 and modelfoto['nude'] < 1: gt'foto_events','trans_persuasion'
		if pcs_inhib < 30:
			if modelfoto['sexy'] > 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more</i> of these kinds of pictures of you floating around?'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'			
			end
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
			
			if pcs_inhib > 20:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','sexy'
			end	
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'

			act 'Agree (2:00)':gt'foto_shoot','sexy'
		end
	end

	act 'Transparent clothing':
		*clr & cla
		$modelfoto['shoot_type'] = 'trans_clo'
		if modelfoto['trans_ling'] + modelfoto['transparent'] >= 5 and modelfoto['topless'] < 1 and modelfoto['nude'] < 1: gt'foto_events','topless_persuasion'
		if pcs_inhib < 45:
			if modelfoto['transparent'] > 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more</i> of these kinds of pictures of you floating around?'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'			
			end
			
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
			
			if pcs_inhib > 40:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','transparent'
			end	
		else
			cla
			act 'Not for me':gt 'foto','studio'

			act 'Agree (2:00)':gt'foto_shoot','transparent'
		end
	end
	
	act 'Transparent Lingerie':
		$modelfoto['shoot_type'] = 'trans_ling'
		*clr & cla
		if modelfoto['trans_ling'] + modelfoto['transparent'] >= 5 and modelfoto['topless'] < 1 and modelfoto['nude'] < 1: $modelfoto['shoot_type'] = 'trans_ling' & gt'foto_events','topless_persuasion'
		if pcs_inhib < 45:
			if modelfoto['trans_ling'] > 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more</i> of these kinds of pictures of you floating around?'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'			
			end
			
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
			
			if pcs_inhib > 40:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','trans_ling'
			end	
		else
			cla
			act 'Not for me':gt 'foto','studio'

			act 'Agree (2:00)':gt'foto_shoot','trans_ling'
		end
	end

	act 'Topless':
		$modelfoto['shoot_type'] = 'topless'
		*clr & cla
		if modelfoto['topless'] >= 5 and modelfoto['nude'] < 1: gt'foto_events','nude_persuasion'
		if pcs_inhib < 50:
			if modelfoto['topless'] > 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more</i> of these kinds of pictures of you floating around?'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'			
			end
			
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
			
			if pcs_inhib > 45:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','topless'
			end
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'
			
			act 'Agree (2:00)':gt'foto_shoot','topless'
		end
	end
end

!! ----------------------------------------------------------------------------------------------------
!!
!! -------------------------------------- Nude Requests -----------------------------------------------
!!
!! ----------------------------------------------------------------------------------------------------

if $ARGS[0] = 'nude_shoot':
	cla & *clr
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
	'"Alright, we can do that. What kind of nude shoot?"'
	
	act 'Tasteful nude':
		$modelfoto['shoot_type'] = 'taste_nude'
		*clr & cla
		if modelfoto['tastenude'] >= 5 and (modelfoto['topless'] + modelfoto['toplessnude'] + modelfoto['fullnude']) < 1: gt'foto_events','nude_persuasion'
		if pcs_inhib < 40:
			if modelfoto['tastenude'] > 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more</i> of these kinds of pictures of you floating around?'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'			
			end		
			
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other nude options':gt'foto_shoot','nude_shoot'
			
			if pcs_inhib > 35:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','tasteful'
			end
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'
			
			act 'Agree (2:00)':gt'foto_shoot','tasteful'
		end
	end
	
	act 'Topless nude':
		$modelfoto['shoot_type'] = 'top_nude'
		*clr & cla
		if modelfoto['toplessnude'] >= 3 and modelfoto['pussy'] < 1:gt'foto_events','nude_persuasion'
		if pcs_inhib < 55:
			if modelfoto['toplessnude'] > 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more</i> of these kinds of pictures of you floating around?'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'			
			end
			
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other nude options':gt'foto_shoot','nude_shoot'
			
			if pcs_inhib > 50:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','topless_nude'
			end
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'
			
			act 'Agree (2:00)':gt'foto_shoot','topless_nude'
		end
	end
	
	act 'Full nude':
		$modelfoto['shoot_type'] = 'full_nude'
		*clr & cla
		if pcs_inhib < 60:
			if modelfoto['fullnude'] > 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more of these kinds of pictures of you floating around?'
			elseif modelfoto['pussy'] < 1:
				'You think about asking to do this shoot but hesitate, not sure if you''re ready to put pictures of your pussy all over the internet.'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
			end
		
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other nude options':gt'foto_shoot','nude_shoot'
			
			if pcs_inhib > 55:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','nude'
			end
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'

			act 'Agree (2:00)':gt'foto_shoot','nude'
		end
	end
	
	act 'Erotic':
		$modelfoto['shoot_type'] = 'erotic'
		*clr & cla
		if pcs_inhib < 65:
			if modelfoto['pussy'] < 1:
				'You think about asking to do this shoot but hesitate, not sure if you''re ready to put pictures of your pussy and asshole all over the internet, especially ones that focus on them!'
			elseif modelfoto['erotic'] >= 0:
				'You think about asking to do this shoot but hesitate. You''ve done it before but still... Are you really comfortable with <i>more</i> of these kinds of pictures of you floating around?'
			else
				'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'			
			end
			
			act 'Look at something else':gt 'foto_shoot','model'
			act 'Look at other nude options':gt'foto_shoot','nude_shoot'
			
			if pcs_inhib > 60:
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
			else
				gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
			end
			if will_cost <= pcs_willpwr:
				*nl
				'Or you could just force yourself do it anyways...'
				act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','erotic'
			end
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'

			act 'Agree (2:00)':gt'foto_shoot','erotic'
		end
	end
end

!! ----------------------------------------------------------------------------------------------------
!!
!! ------------------------------------- Fitness Requests ---------------------------------------------
!!
!! ----------------------------------------------------------------------------------------------------

if $ARGS[0] = 'fitness_shoot':
	cla & *clr
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
	'"Alright, what kind of shoot would you like to do? Sportwear, Sport underwear, or Artistic nude?"'
	act 'Sportwear':
		cla
		act 'Look at something else':gt 'foto_shoot','model'

		act 'Agree (2:00)':gt'foto_shoot','sportswear'
	end
	
	act 'Sports underwear':
		if pcs_inhib < 20:
			msg' You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'

			act 'Agree (2:00)':gt'foto_shoot','sports_underwear'
		end
	end
            
	act 'Artistic nude':
		if pcs_inhib < 45:
			msg' You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
		else
			cla
			act 'Look at something else':gt 'foto_shoot','model'

			act 'Agree (2:00)':gt'foto_shoot','fitness_artistic_nude'
		end
	end
end

!! ----------------------------------------------------------------------------------------------------
!!
!! ------------------------------------- Modelling Shoots ---------------------------------------------
!!
!! ----------------------------------------------------------------------------------------------------

if $ARGS[0] = 'fashion':
	*clr & cla
	minut += 120
	modelpayfin = 300 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(fame['city_modelling'], 700)/2) + (pcs_mdlng/2 * 10)
	modelfoto['fashion'] += 1
	gs 'exp_gain', 'mdlng', rand(5,8)
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,10)
	fashionshoot = rand(1,2)
	gs 'stat'
	if fashionshoot = 1:
		'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion/<<rand(1,5)>>.mp4"></video></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion/<<rand(1,31)>>.jpg"></center>'
	end
	'You dress up in the latest in fashion wear and spend the next two hours posing for the photographer.'
	*nl
	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'bikini':
	*clr & cla
	minut += 120
	modelpayfin = 325 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(fame['city_modelling'], 700)/2) + (pcs_mdlng/2 * 10)
	modelfoto['bikini'] += 1
	if pcs_inhib < 20: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,10)
	gs 'exp_gain', 'mdlng', rand(6,10)
	if pcs_inhib < 50:inhib_exp += rand(0,1)
	gs 'stat'
	'<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini/<<rand(4,5)>>.mp4"></video></center>'
	*nl
	'You spend the shoot in designer bikinis, modelling them to appear in various higher end magazines.'
	*nl
	'Two hours later, you''re all done. The photographer thanks you for your time and pays you <<modelpayfin>> <b>₽</b> for the job.'
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'lingerie':
	*clr & cla
	minut += 120
	modelpayfin = 350 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(fame['city_modelling'], 700)/2) + (pcs_mdlng/2 * 10)
	modelfoto['lingerie'] += 1
	gs 'exp_gain', 'mdlng', rand(6,10)
	if pcs_inhib < 25: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,6)
	inhib_exp += rand(0,2)
	shoot = rand(1,2)
	gs 'stat'
	if shoot = 1:
		'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie/<<rand(1,5)>>.mp4"></video></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/lingerie/<<rand(1,37)>>.jpg"></center>'
	end
	'You put on some high end lingerie and spend the next two hours striking various poses for a photographer for use in fashion magazines.'
	*nl
	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end
if $ARGS[0] = 'sexy':
	*clr & cla
	minut += 120
	modelpayfin = 500 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(fame['city_modelling'], 700)/2) + (pcs_mdlng/2 * 10)
	modelfoto['glamour'] += 1
	modelfoto['sexy'] += 1
	gs 'exp_gain', 'mdlng', rand(5,10)
	if pcs_inhib < 30: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(1,6)
	inhib_exp += rand(0,1)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/sexy/<<rand(1,48)>>.jpg"></center>'
	'You dress up in sexy clothes and spend the next two hours posing for the photographer.'
	*nl
	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'transparent':
	*clr & cla
	minut += 120
	modelpayfin = 600 + (modelpay) + (pcs_apprnc) + (15*rand(0,5))
	modelfoto['glamour'] += 1
	modelfoto['sexy'] 
	modelfoto['transparent'] += 1
	modelfoto['nip'] += 1
	gs 'exp_gain', 'mdlng', rand(6,10)
	if pcs_inhib < 45: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,8)
	inhib_exp += rand(0,2)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/seethru/<<rand(1,26)>>.jpg"></center>'
	'You put on a transparent top and spend the next two hours in various poses for the photographer, a flash highlighting your breasts with every click of the camera.'
	*nl
	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'trans_ling':
	*clr & cla
	minut += 120
	modelpayfin = 650 + (modelpay * 2) + (pcs_apprnc) + (15*rand(0,7))
	modelfoto['glamour'] += 1
	modelfoto['trans_ling'] += 1
	modelfoto['nip'] += 1
	modelfoto['lingerie'] += 1
	gs 'exp_gain', 'mdlng', rand(8,10)
	if pcs_inhib < 45: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,8)
	inhib_exp += rand(0,2)
	gs 'stat'
	if rand(0,1) = 1:
		'<center><video autoplay loop src="images/locations/city/citycenter/photo/ling_trans/<<rand(1,3)>>.mp4"></video></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/ling_trans/<<rand(1,26)>>.jpg"></center>'
	end
	'You put on some very lacy, very transparent underwear and get to posing, your nipples often showing through the thin fabric.'
	*nl
	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
	*nl
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end


if $ARGS[0] = 'topless':
	*clr & cla
	minut += 120
	modelpayfin = 700 + (modelpay) + (pcs_apprnc) + (15*rand(0,5))
	modelfoto['nip'] += 1
	modelfoto['topless'] += 1
	gs 'exp_gain', 'mdlng', rand(6,10)
	if pcs_inhib < 50: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,8)
	inhib_exp += rand(0,2)
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topless/<<rand(1,57)>>.jpg"></center>'
	'You spend two hours striking various posing with topless breasts, listening to instruction while the photographer takes pictures of you.'
	*nl
	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'tasteful':
	*clr & cla
	minut += 120
	modelpay = (pcs_mdlng/2 * 10) + min(fame['city_modelling'], 700) + pcs_apprnc
	modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
	modelfoto['tastenude'] += 1
	modelfoto['nude'] += 1
	gs 'exp_gain', 'mdlng', rand(9,10)
	if pcs_inhib < 40: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,10)
	inhib_exp += rand(0,2)
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/tastenude/<<rand(1,28)>>.jpg"></center>'
	'Already naked, you step onto the set and begin the shoot immediately.'
	*nl
	'You spend two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully hides your pussy and nipples. These images, though incredibly provocative, are still somehow considered to be conservative enough to be allowed on the front cover of fashion, sports, and other tabloid magazines. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'topless_nude':
	*clr & cla
	minut += 120
	modelpay = (pcs_mdlng/2 * 10) + min(fame['city_modelling'], 700) + pcs_apprnc
	modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
	modelfoto['nude'] += 1
	modelfoto['toplessnude'] += 1
	gs 'exp_gain', 'mdlng', rand(9,10)
	if pcs_inhib < 55: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'medium'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(3,10)
	inhib_exp += rand(1,3)
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topnude/<<rand(1,79)>>.jpg"></center>'
	'Already naked, you step onto the set and begin the shoot immediately.'
	*nl
	'You spend two hours posing confidently for a photographer taking pictures of you, often using props, hands, legs, or shadow to shield your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'			
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'nude':
	*clr & cla
	minut += 120
	modelpay = (pcs_mdlng/2 * 10) + min(fame['city_modelling'], 700) + pcs_apprnc
	modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
	if modelfoto['nude'] = 0: modelpayfin = modelpayfin * 2 & foto_persuade = 0
	modelfoto['nude'] += 1
	modelfoto['fullnude'] += 1
	modelfoto['nip'] += 1
	modelfoto['pussy'] += 1
	gs 'exp_gain', 'mdlng', rand(9,10)
	if pcs_inhib < 60: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'medium'
	if fame['city_modelling'] > 200: gs 'fame', 'city', 'modelling', rand(5,10)
	inhib_exp += rand(1,3)
	if pcs_pubes < 16:
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude/<<rand(1,17)>>.jpg"></center>'
		'Already naked, you step onto the set and begin the shoot immediately.'
		*nl
		'You spend two hours posing confidently for a photographer taking pictures of you that fully expose your breasts and pussy. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/bnude/<<rand(1,20)>>.jpg"></center>'
		'Already naked, you step onto the set and begin the shoot immediately.'
		*nl
		'You spend two hours posing confidently for a photographer taking pictures of you, your <<$pc_desc[''pubes'']>> pussy providing a nice contrast to the rest of your smooth body. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
	end
	if modelfoto['nude'] = 1 and foto_persuade ! 5:
		'You blink at the amount but the person who gave it to you reassures you it''s normal. The studio has a policy of doubling the pay for a model''s nude debut.'
	elseif modelfoto['nude'] = 1 and foto_persuade = 5:
		'It even includes the bonus the manager said they''d give you for your debut!'
	end

	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'erotic':
	*clr & cla
	minut += 120
	modelpay = (pcs_mdlng/2 * 10) + (pcs_apprnc * 3)
	modelpayfin = 1000 + (modelpay * 2) + (15*rand(0,5))
	modelfoto['erotic'] += 1
	modelfoto['nude'] += 1
	modelfoto['nip'] += 1
	modelfoto['pussy'] += 1
	modelfoto['asshole'] += 1
	gs 'exp_gain', 'mdlng', rand(1,4)
	if pcs_inhib < 65: gs 'willpower','pay','self'
	gs 'fame', 'city', 'modelling', 'small'
	gs 'fame', 'city', 'porn', 'small'
	if pcs_inhib < 60:inhib_exp += rand(1,3)
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/erotic/<<rand(1,19)>>.jpg"></center>'
	if $pantyworntype ! 'none':
	
	else
		'Already naked, you step onto the set and begin the shoot immediately.'
	end
	*nl
	'You spend two hours posing while the photographer takes many photos of your nude body, but especially your breasts, pussy, and asshole. You can see the rock-hard outline of his cock the whole time and you are paid <<modelpayfin>> <b>₽</b> for your work.'

	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'sportswear':
	*clr & cla
	minut += 120
	modelpayfin = 300 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (fame['city_modelling']/2) + (pcs_mdlng/2 * 10) + (city_sport/2)
	modelfoto['fitness'] += 1
	pcs_sweat = 60
	gs 'exp_gain', 'mdlng', rand(2,4)
	gs 'fame', 'city', 'modelling', 'small'
	gs 'stat'
	if bodset = 2 and salocatnow >= 2:
		*clr & cla
		modelpayfin += 300
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FSM<<rand(1,4)>>.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FSV<<rand(1,4)>>.jpg"></center>'
	end
	*nl
	'Modeling sportwear, is slighty different from other jobs. First, you are taken to the near-by Havanna Fitness Center, as the studio doesn''t have all the necessary props to do it. Second, you must look "dynamic", and that means do some warm-ups, and add some oil, to give that "sweaty" and "sporty" look. After that, you are ready to pose the next two hours for the photographer.'
	*nl
	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'    
	if pcs_mdlng >= 40 and commercial = 0:
		act 'Leave':gt'foto_events','commercial'
	else
		act 'Leave':gt 'foto', 'end'
	end
end

if $ARGS[0] = 'sports_underwear':
	*clr & cla
	minut += 120
	modelpayfin = 325 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (fame['city_modelling']/2) + (pcs_mdlng/2 * 10) + (city_sport/2)
	modelfoto['fitness'] += 1
	pcs_sweat = 60
	gs 'fame', 'city', 'modelling', 'small'
	gs 'exp_gain', 'mdlng', rand(3,6)
	if pcs_inhib < 50:inhib_exp += 1
	gs 'stat'
	if bodset = 2 and salocatnow >= 2:
		*clr & cla
		modelpayfin += 325
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FUM<<rand(1,4)>>.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FUV<<rand(1,4)>>.jpg"></center>'
	end
	*nl
	'Modeling sport underwear, is slighty different from other jobs. First, you are taken to the Havanna Fitness Center, as the studio doesn''t have all the necessary props to do it. Second, you must look "dynamic", and that means do some warm-ups, and add some oil, to give that "sweaty" and "sporty" look. After that, you are ready to pose the next two hours for the photographer.'
	*nl
	'After having taken all his pictures, you and the crew head back to Aphrodite, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
	act 'Leave':gt 'foto', 'end'
end

if $ARGS[0] = 'fitness_artistic_nude':
	*clr & cla
	minut += 120
	modelpay = (pcs_mdlng/2 * 10) + fame['city_modelling'] + pcs_apprnc + city_sport
	modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
	modelfoto['fitness'] += 1
	modelfoto['nude'] += 1
	pcs_sweat = 60
	gs 'exp_gain', 'mdlng', rand(4,5)
	gs 'fame', 'city', 'modelling', 'small'
	inhib_exp += 2
	gs 'stat'	
	if bodset = 2 and salocatnow >= 2:
		*clr & cla
		modelpayfin += 600
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FNM<<rand(1,4)>>.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FNV<<rand(1,4)>>.jpg"></center>'
	end
	*nl
	'Already naked, you do some warm-ups, work up a sweat, add some body-oil and step onto the set to begin the shoot.'
	*nl
	'You spend two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully hides your pussy and nipples. These images, are less provocative, than artistic, as they must show your body in movement so they can appear in sports-related advertisements, articles, and magazines. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
	act 'Leave':gt 'foto', 'end'
end	

!!	act 'Variety shoot':
!!		if pcs_inhib < 60:
!!			msg'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
!!			gt 'foto', 'nude_shoot'
!!		else
!!			cla
!!			act 'Look at something else':gt 'foto_shoot','model'
!!
!!			act 'Agree (2:00)':
!!				*clr & cla
!!				minut += 120
!!				modelpayfin = 825 + (modelpay * 2) + (15*rand(0,7))
!!				gs 'exp_gain', 'mdlng', 10
!!				fame['city_modelling'] += rand(10,20)
!!				pav_modelling += rand(0,fame['city_modelling'])/10
!!				inhib_exp += 3
!!				modelfoto['glamour'] += 1
!!				modelfoto['nip'] += 1
!!				modelfoto['fashion'] += 1
!!				modelfoto['lingerie'] += 1
!!				modelfoto['topless'] += 1
!!				modelfoto['pussy'] += 1
!!				gs 'stat'
!!				'<center><video autoplay loop src="images/locations/city/citycenter/photo/vmodel.mp4"></video></center>'
!!				'You spend two hours posing for the photographer, changing in and out of various underwear, sexy clothings, and lingeries until you end the shoot fully striped down and dancing naked.'
!!				*nl
!!				'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
!!				if pcs_mdlng >= 40 and commercial = 0:
!!					act 'Leave':gt'foto_events','commercial'
!!				else
!!					act 'Leave':gt 'foto', 'end'
!!				end
!!			end
!!		end
!!	end
!!end


--- foto_shoot ---------------------------------