# 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'
'Manager'
'![]()
> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"Hello <<$model[''firstname'']>>. Are you here to work? What kind of shoot would you like to do today?"'
*nl
!! 'Modelling Shoot Guide'
'Modelling guide'
*pl ''
'Catalog - 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.'
'Fashion - 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.'
'Glamour - 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.'
'Erotic - 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 '
'
act'Never mind':
cla & *clr
'Manager'
'![]()
> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"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'
'![]()
> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"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:
''
'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
''
'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 ₽ 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
''
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 ₽ 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
'![]()
> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"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) (<> 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) (<> 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:'
!! 'Erotic clothed'
!! 'Topless'
!! 'Tasteful nude'
!! 'Topless nude'
!! 'Fully nude'
!! 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'
!! ''
!! '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 <> ₽ 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
'![]()
> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"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 more 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) (<> 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 more 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) (<> 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 more 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) (<> 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 more 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) (<> 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
'![]()
> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"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 more 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) (<> 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 more 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) (<> 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 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) (<> 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 more 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) (<> 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
'![]()
> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"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:
''
else
'![]()
> src="images/locations/city/citycenter/photo/fashion/<>.jpg">'
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 <> ₽ 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'
''
*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 <> ₽ 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:
''
else
'![]()
> src="images/locations/city/citycenter/photo/lingerie/<>.jpg">'
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 <> ₽ 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'
'![]()
> src="images/locations/city/citycenter/photo/sexy/<>.jpg">'
'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 <> ₽ 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'
'![]()
> src="images/locations/city/citycenter/photo/seethru/<>.jpg">'
'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 <> ₽ 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:
''
else
'![]()
> src="images/locations/city/citycenter/photo/ling_trans/<>.jpg">'
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 <> ₽ 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'
'![]()
> src="images/locations/city/citycenter/photo/topless/<>.jpg">'
'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 <> ₽ 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)
'![]()
> src="images/locations/city/citycenter/photo/tastenude/<>.jpg">'
'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 <> ₽ 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)
'![]()
> src="images/locations/city/citycenter/photo/topnude/<>.jpg">'
'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 <> ₽ 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:
'![]()
> src="images/locations/city/citycenter/photo/nude/<>.jpg">'
'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 <> ₽ for your work.'
else
'![]()
> src="images/locations/city/citycenter/photo/bnude/<>.jpg">'
'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 <> ₽ 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)
'![]()
> src="images/locations/city/citycenter/photo/erotic/<>.jpg">'
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 <> ₽ 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'
'![]()
> src="images/locations/city/citycenter/photo/fitness/FSM<>.jpg">'
else
'![]()
> src="images/locations/city/citycenter/photo/fitness/FSV<>.jpg">'
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 <> ₽ 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'
'![]()
> src="images/locations/city/citycenter/photo/fitness/FUM<>.jpg">'
else
'![]()
> src="images/locations/city/citycenter/photo/fitness/FUV<>.jpg">'
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 <> ₽ 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'
'![]()
> src="images/locations/city/citycenter/photo/fitness/FNM<>.jpg">'
else
'![]()
> src="images/locations/city/citycenter/photo/fitness/FNV<>.jpg">'
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 <> ₽ 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'
!! ''
!! '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 <> ₽ 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 ---------------------------------