# foto_events
menu_off = 1
if $ARGS[0] = 'fame':
*clr & cla
special_model = 2000
special_skill_model = 2000
fame_model_event = daystart
if first_fame_event <= 1:gt'foto_events','topless1'
mdlng_fame_event = rand(1,3)
if mdlng_fame_event = 1:gt'foto_events','topless1'
if mdlng_fame_event = 2:gt'foto_events','pool1'
if mdlng_fame_event = 3 and pcs_agil < 40:mdlng_fame_event = rand(1,2)
if mdlng_fame_event = 3 and pcs_agil >= 40:gt'foto_events','tennis'
end
if $ARGS[0] = 'skill':
special_model = 2000
special_skill_model = 2000
skill_model_event = daystart
*clr & cla
mdlng_skill_event = rand(1,5)
if mdlng_skill_event = 1:gt'foto_events','topless2'
if mdlng_skill_event = 2:gt'foto_events','beach2'
if mdlng_skill_event = 3:gt'foto_events','pool2'
if mdlng_skill_event = 4:gt'foto_events','runway2'
if mdlng_skill_event = 5:gt'foto_events','wet'
end
!!------------------------------------------------------------------- Special Events ------------------------------------------------------------------
if $ARGS[0] = 'studio_strip_talk1':
cla & *clr
'
'
'After pulling off the rest of your clothes, you thumb your underwear for a moment before realizing that you can''t strip all the way. You just don''t have enough confidence in yourself. But you''re still in your underwear right? You''re new here, surely they''ll understand won''t they?'
*nl
if $braworntype = 'none':'Still, feeling your nipples harden in the cool air, you cross your arms to cover them. You really wish you had worn a bra today...'
gs 'bras', 'remove'
act'Go back to the main floor':
cla & *clr
'> src="images/locations/city/citycenter/photo/foto.jpg">'
'No sooner do you take your third step out of the back room than you hear someone shouting at you.'
'"Hey! What are you doing? Why are you still wearing your underwear?"'
act'Turn':
cla & *clr
'> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'Turning to the sound, you see a manager briskly walking towards you.'
'"Well? Why are you still dressed? Take that off and put it in your locker before you come back out onto the floor."'
act'Blush and do as he says':
studio_strip_talk = 3
cla & *clr
''
'Embarrassed that you were caught breaking the rules and scolded for it so quickly, you blush and stammer an apology, retreating into the back room to reluctantly change into your full birthday suit. So much for that. Guess you''re just going to have to deal with your discomfort with nudity if you want to keep working here.'
act'Go back to the main floor':gt'foto','studio'
end
act'Try to explain yourself':
cla & *clr
'> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"Oh, well, it''s just that I''m new here," you say. "I''m not really used to this whole ''dress code'' thing and I thought that maybe I could just wear my underwear for a little while and-"'
'The manager holds up his hand to stop you, cutting you off mid sentence.'
'"Nope. Sorry miss, rules are rules. If you want to work here then you have to wear the uniform. Now take off your underwear."'
act'Do as he says':
cla & *clr
'> src="images/locations/city/citycenter/photo/foto.jpg">'
'"Sorry..." you say, starting to head towards the back room again.'
'"Hey, where are you going?" Confused, you turn back around.'
'"What do you mean? You said to take it off so I''m just...?" you gesture towards the back room with a shrug.'
'"No," the manager replies. "I want to make sure you don''t just walk in and wait till I leave and not change. Take it off here."'
act'Do as he says and strip':gt'foto_events','underwear_steal'
end
gs 'willpower', 'exhib', 'resist', 'hard'
if will_cost <= pcs_willpwr:
act'Plead (<> Willpower)':
cla & *clr
gs 'willpower', 'exhib', 'resist', 'hard'
gs 'willpower', 'pay', 'resist'
gs 'stat'
'> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'"Oh please!" you cry. "I''m just not ready for this. Maybe we can work something out? Can''t I just do this for a little while to get used to working here? I just need a while to adjust. Please can''t I do that?"'
'"Hmmm..." The manager rubs his chin, considering your request. "Okay, I''ll give you two weeks. But after that I expect to see you naked at all times unless you''re doing a shoot. Do you understand?"'
'You nod vigorously in response.'
'"Okay, good. Remember: Two weeks. Work on it."'
'As he walks away you sigh in relief. Two weeks isn''t a lot, but at least you''ll have a bit more time to get used to this whole "being naked" thing.'
studio_strip_talk = 1
studio_underwear = daystart + 14
act'Go back to the main floor':gt'foto','studio'
end
else
act'Plead (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
end
end
end
end
if $ARGS[0] = 'studio_strip_talk2':
cla & *clr
'> src="images/locations/city/citycenter/photo/fotograph.jpg">'
'You step out into the studio and you hear someone calling your name.'
'"Hey! <<$pcs_firstname>>! It''s been two weeks, what are you still doing in your underwear? We had a deal, now take that off. Right now!"'
act'Do as he says and strip':gt'foto_events','underwear_steal'
if pcs_inhib < 30:
gs 'willpower', 'exhib', 'resist', 'hard'
if will_cost <= pcs_willpwr:
act'Try to bargain again (<> Willpower)':
studio_strip_talk = 2
studio_underwear = daystart + 7
cla & *clr
if $braworntype ! 'none':
'