1
0

foto_shoot.qsrc 44 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970
  1. # foto_shoot
  2. !! ----------------------------------------------------------------------------------------------------
  3. !!
  4. !! --------------------------------------- Job Requests -----------------------------------------------
  5. !!
  6. !! ----------------------------------------------------------------------------------------------------
  7. if $ARGS[0] = 'model':
  8. menu_off = 1
  9. if model['status'] = 0:model['status'] = 1
  10. *clr & cla
  11. minut += 5
  12. modelpay = (pcs_mdlng/2 * 10) + ((min(city_modelling, 700) + pcs_apprnc)/2)
  13. modelpayfin = 900 + (15*rand(0,5))
  14. gs 'stat'
  15. '<center><b><font color="maroon">Manager</font></b></center>'
  16. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  17. '"Hello <<$pcs_firstname>>. Are you here to work? What kind of shoot would you like to do today?"'
  18. *nl
  19. !! '<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>'
  20. '<center><b><font color="blue">Modelling guide</font></b></center>'
  21. *pl '<center><table align="center" width=80%>'
  22. '<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.'
  23. '<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.'
  24. '<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.'
  25. '<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.'
  26. *p '</table></center>'
  27. act'Never mind':
  28. cla & *clr
  29. '<center><b><font color="maroon">Manager</font></b></center>'
  30. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  31. '"Sorry, I just realized that I have something to do right now. Can I come back later?"'
  32. '"Sure, no problem <<$pcs_lastname>>, just let us know when you''re ready to work.'
  33. act'Leave':gt 'foto','studio'
  34. end
  35. act'Actually I''d like to practice':gt'foto','practicemodel'
  36. act'"I''d like to do a catalog shoot"':
  37. cla & *clr
  38. if modelfoto >= 10 and pcs_mdlng > 20 and modelfoto_fashion < 1:gt'foto_events','fashion_persuasion'
  39. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  40. '"Alright, what kind of shoot? Clothing or swimsuits?"'
  41. act'Clothing':
  42. shoot_type = catalog
  43. modelfoto += 1
  44. modelfoto_catalog += 1
  45. model_job_week += 1
  46. cla & *clr
  47. mdlng_exp += rand(2,5)
  48. minut += 120
  49. money += 450
  50. modelfotomoney += 450
  51. if rand(1,2) = 1:
  52. '<center><video autoplay loop src="images/locations/city/citycenter/photo/catalog/1.mp4"></video></center>'
  53. '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.'
  54. else
  55. '<center><video autoplay loop src="images/locations/city/citycenter/photo/catalog/2.mp4"></video></center>'
  56. '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.'
  57. end
  58. *nl
  59. 'You recieve 450 <b>₽</b> for the job.'
  60. act 'Leave':gt 'foto', 'studio'
  61. end
  62. act'Swimsuits':
  63. shoot_type = swim_catalog
  64. modelfoto += 1
  65. modelfoto_catalog += 1
  66. model_job_week += 1
  67. cla & *clr
  68. mdlng_exp += rand(2,5)
  69. minut += 120
  70. money += 450
  71. modelfotomoney += 450
  72. '<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini/<<rand(1,3)>>.mp4"></video></center>'
  73. bikinicatalog += 1
  74. '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.'
  75. *nl
  76. 'You recieve 450 <b>₽</b> for the job.'
  77. act 'Leave':gt 'foto', 'studio'
  78. end
  79. end
  80. act'"I''d like to do a fashion shoot"':
  81. if pcs_mdlng < 20:
  82. 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."'
  83. else
  84. cla & *clr
  85. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  86. '"Alright, what kind of shoot would you like to do? Fashion, bikini, or lingerie?"'
  87. act 'Fashion':
  88. shoot_type = fashion
  89. if modelfoto_fashion >= 10 and modelfoto_bikini + modelfoto_lingerie < 1 and modelfoto_glamour < 1 and modelfoto_nude < 1: gt'foto_events','lingerie_persuasion'
  90. cla
  91. act 'Look at something else':gt 'foto_shoot','model'
  92. act 'Agree (2:00)':gt 'foto_shoot','fashion'
  93. end
  94. act 'Bikini':
  95. shoot_type = bikini
  96. *clr & cla
  97. if modelfoto_bikini + modelfoto_lingerie >= 10 and pcs_mdlng > 20 and modelfoto_glamour < 1 and modelfoto_nude < 1:gt'foto_events','glamour_persuasion'
  98. if pcs_inhib < 20:
  99. '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.'
  100. act 'Look at something else':gt 'foto_shoot','model'
  101. if pcs_mdlng > 20:
  102. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  103. else
  104. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  105. end
  106. if will_cost <= pcs_willpwr:
  107. *nl
  108. 'Or you could just force yourself do it anyways...'
  109. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','bikini'
  110. end
  111. else
  112. cla
  113. act 'Look at something else':gt 'foto_shoot','model'
  114. act 'Agree (2:00)':gt'foto_shoot','bikini'
  115. end
  116. end
  117. act 'Lingerie modelling':
  118. shoot_type = lingerie
  119. *clr & cla
  120. if modelfoto_bikini + modelfoto_lingerie >= 10 and modelfoto_glamour < 1 and modelfoto_nude < 1:gt'foto_events','glamour_persuasion'
  121. if pcs_inhib < 25:
  122. '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.'
  123. act 'Look at something else':gt 'foto_shoot','model'
  124. if pcs_mdlng > 20:
  125. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  126. else
  127. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  128. end
  129. if will_cost <= pcs_willpwr:
  130. *nl
  131. 'Or you could just force yourself do it anyways...'
  132. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','lingerie'
  133. end
  134. else
  135. cla
  136. act 'Look at something else':gt 'foto_shoot','model'
  137. act 'Agree (2:00)':gt'foto_shoot','lingerie'
  138. end
  139. end
  140. end
  141. end
  142. act'"I''d like to do a glamour shoot"':
  143. if pcs_inhib < 30 and modelfoto_glamour < 1:
  144. 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.'
  145. else
  146. gt'foto_shoot', 'glamour_shoot'
  147. end
  148. end
  149. act'"I''d like to do a nude shoot"':
  150. if pcs_inhib < 30 and modelfoto_nude < 1:
  151. 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.'
  152. else
  153. gt'foto_shoot', 'nude_shoot'
  154. end
  155. end
  156. if Fit['FMR'] = 1:
  157. act '"I''d like to do a fitness shoot"':gt'foto_shoot','fitness_shoot'
  158. end
  159. end
  160. !! 'Info guides:'
  161. !! '<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>'
  162. !! '<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>'
  163. !! '<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>'
  164. !! '<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>'
  165. !! '<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>'
  166. !! act 'Erotic clothing with breast nudity':
  167. !!already matched the exhibitionism value above
  168. !! cla
  169. !! act 'Look at something else':gt 'foto_shoot','model'
  170. !! act 'Agree (2:00)':
  171. !! *clr & cla
  172. !! minut += 120
  173. !! modelpayfin = 700 + (modelpay) + (15*rand(0,5))
  174. !! modelfoto_nip += 1
  175. !! mdlng_exp += rand(6,10)
  176. !! city_modelling += rand(7,13)
  177. !! pav_modelling += rand(1,city_modelling)/10
  178. !! inhib_exp += 2
  179. !! gs 'stat'
  180. !! '<center><video autoplay loop src="images/locations/city/citycenter/photo/model5.mp4"></video></center>'
  181. !! '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.'
  182. !! *nl
  183. !! '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.'
  184. !! if pcs_mdlng >= 40 and commercial = 0:
  185. !! act 'Leave':gt'foto_events','commercial'
  186. !! else
  187. !! act 'Leave':gt 'foto', 'end'
  188. !! end
  189. !! end
  190. !! end
  191. !! ----------------------------------------------------------------------------------------------------
  192. !!
  193. !! ------------------------------------- Glamour Requests ---------------------------------------------
  194. !!
  195. !! ----------------------------------------------------------------------------------------------------
  196. if $ARGS[0] = 'glamour_shoot':
  197. cla & *clr
  198. menu_off = 1
  199. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  200. '"Alright, we can do that. What kind of glamour shoot?"'
  201. act 'Sexy clothing':
  202. *clr & cla
  203. shoot_type = sexy_clo
  204. if modelfoto_ero_clo >= 10 and modelfoto_trans_ling + modelfoto_trans_ling < 1 and modelfoto_nip < 1 and modelfoto_nude < 1: gt'foto_events','trans_persuasion'
  205. if pcs_inhib < 30:
  206. if modelfoto_ero_clo > 0:
  207. '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?'
  208. else
  209. '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.'
  210. end
  211. act 'Look at something else':gt 'foto_shoot','model'
  212. act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
  213. if pcs_inhib > 20:
  214. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  215. else
  216. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  217. end
  218. if will_cost <= pcs_willpwr:
  219. *nl
  220. 'Or you could just force yourself do it anyways...'
  221. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','sexy'
  222. end
  223. else
  224. cla
  225. act 'Look at something else':gt 'foto_shoot','model'
  226. act 'Agree (2:00)':gt'foto_shoot','sexy'
  227. end
  228. end
  229. act 'Transparent clothing':
  230. *clr & cla
  231. shoot_type = trans_clo
  232. if modelfoto_trans_ling + modelfoto_transparent >= 5 and modelfoto_topless < 1 and modelfoto_nude < 1: gt'foto_events','topless_persuasion'
  233. if pcs_inhib < 45:
  234. if modelfoto_transparent > 0:
  235. '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?'
  236. else
  237. '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.'
  238. end
  239. act 'Look at something else':gt 'foto_shoot','model'
  240. act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
  241. if pcs_inhib > 40:
  242. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  243. else
  244. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  245. end
  246. if will_cost <= pcs_willpwr:
  247. *nl
  248. 'Or you could just force yourself do it anyways...'
  249. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','transparent'
  250. end
  251. else
  252. cla
  253. act 'Not for me':gt 'foto','studio'
  254. act 'Agree (2:00)':gt'foto_shoot','transparent'
  255. end
  256. end
  257. act 'Transparent Lingerie':
  258. shoot_type = trans_ling
  259. *clr & cla
  260. if modelfoto_trans_ling + modelfoto_transparent >= 5 and modelfoto_topless < 1 and modelfoto_nude < 1: shoot_type = trans_ling & gt'foto_events','topless_persuasion'
  261. if pcs_inhib < 45:
  262. if modelfoto_trans_ling > 0:
  263. '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?'
  264. else
  265. '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.'
  266. end
  267. act 'Look at something else':gt 'foto_shoot','model'
  268. act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
  269. if pcs_inhib > 40:
  270. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  271. else
  272. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  273. end
  274. if will_cost <= pcs_willpwr:
  275. *nl
  276. 'Or you could just force yourself do it anyways...'
  277. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','trans_ling'
  278. end
  279. else
  280. cla
  281. act 'Not for me':gt 'foto','studio'
  282. act 'Agree (2:00)':gt'foto_shoot','trans_ling'
  283. end
  284. end
  285. act 'Topless':
  286. shoot_type = topless
  287. *clr & cla
  288. if modelfoto_topless >= 5 and modelfoto_nude < 1: gt'foto_events','nude_persuasion'
  289. if pcs_inhib < 50:
  290. if modelfoto_topless > 0:
  291. '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?'
  292. else
  293. '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.'
  294. end
  295. act 'Look at something else':gt 'foto_shoot','model'
  296. act 'Look at other glamour options':gt'foto_shoot','glamour_shoot'
  297. if pcs_inhib > 45:
  298. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  299. else
  300. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  301. end
  302. if will_cost <= pcs_willpwr:
  303. *nl
  304. 'Or you could just force yourself do it anyways...'
  305. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','topless'
  306. end
  307. else
  308. cla
  309. act 'Look at something else':gt 'foto_shoot','model'
  310. act 'Agree (2:00)':gt'foto_shoot','topless'
  311. end
  312. end
  313. end
  314. !! ----------------------------------------------------------------------------------------------------
  315. !!
  316. !! -------------------------------------- Nude Requests -----------------------------------------------
  317. !!
  318. !! ----------------------------------------------------------------------------------------------------
  319. if $ARGS[0] = 'nude_shoot':
  320. cla & *clr
  321. menu_off = 1
  322. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  323. '"Alright, we can do that. What kind of nude shoot?"'
  324. act 'Tasteful nude':
  325. shoot_type = taste_nude
  326. *clr & cla
  327. if modelfoto_tastenude >= 5 and modelfoto_topless + modelfoto_toplessnude + modelfoto_fullnude < 1: gt'foto_events','nude_persuasion'
  328. if pcs_inhib < 40:
  329. if modelfoto_tastenude > 0:
  330. '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?'
  331. else
  332. '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.'
  333. end
  334. act 'Look at something else':gt 'foto_shoot','model'
  335. act 'Look at other nude options':gt'foto_shoot','nude_shoot'
  336. if pcs_inhib > 35:
  337. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  338. else
  339. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  340. end
  341. if will_cost <= pcs_willpwr:
  342. *nl
  343. 'Or you could just force yourself do it anyways...'
  344. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','tasteful'
  345. end
  346. else
  347. cla
  348. act 'Look at something else':gt 'foto_shoot','model'
  349. act 'Agree (2:00)':gt'foto_shoot','tasteful'
  350. end
  351. end
  352. act 'Topless nude':
  353. shoot_type = top_nude
  354. *clr & cla
  355. if modelfoto_toplessnude >= 3 and modelfoto_pussy < 1:gt'foto_events','nude_persuasion'
  356. if pcs_inhib < 55:
  357. if modelfoto_toplessnude > 0:
  358. '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?'
  359. else
  360. '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.'
  361. end
  362. act 'Look at something else':gt 'foto_shoot','model'
  363. act 'Look at other nude options':gt'foto_shoot','nude_shoot'
  364. if pcs_inhib > 50:
  365. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  366. else
  367. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  368. end
  369. if will_cost <= pcs_willpwr:
  370. *nl
  371. 'Or you could just force yourself do it anyways...'
  372. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','topless_nude'
  373. end
  374. else
  375. cla
  376. act 'Look at something else':gt 'foto_shoot','model'
  377. act 'Agree (2:00)':gt'foto_shoot','topless_nude'
  378. end
  379. end
  380. act 'Full nude':
  381. shoot_type = full_nude
  382. *clr & cla
  383. if pcs_inhib < 60:
  384. if modelfoto_fullnude > 0:
  385. '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?'
  386. elseif modelfoto_pussy < 1:
  387. '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.'
  388. else
  389. '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.'
  390. end
  391. act 'Look at something else':gt 'foto_shoot','model'
  392. act 'Look at other nude options':gt'foto_shoot','nude_shoot'
  393. if pcs_inhib > 55:
  394. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  395. else
  396. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  397. end
  398. if will_cost <= pcs_willpwr:
  399. *nl
  400. 'Or you could just force yourself do it anyways...'
  401. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','nude'
  402. end
  403. else
  404. cla
  405. act 'Look at something else':gt 'foto_shoot','model'
  406. act 'Agree (2:00)':gt'foto_shoot','nude'
  407. end
  408. end
  409. act 'Erotic':
  410. shoot_type = erotic
  411. *clr & cla
  412. if pcs_inhib < 65:
  413. if modelfoto_pussy < 1:
  414. '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!'
  415. elseif modelfoto_erotic >= 0:
  416. '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?'
  417. else
  418. '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.'
  419. end
  420. act 'Look at something else':gt 'foto_shoot','model'
  421. act 'Look at other nude options':gt'foto_shoot','nude_shoot'
  422. if pcs_inhib > 60:
  423. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  424. else
  425. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  426. end
  427. if will_cost <= pcs_willpwr:
  428. *nl
  429. 'Or you could just force yourself do it anyways...'
  430. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','erotic'
  431. end
  432. else
  433. cla
  434. act 'Look at something else':gt 'foto_shoot','model'
  435. act 'Agree (2:00)':gt'foto_shoot','erotic'
  436. end
  437. end
  438. end
  439. !! ----------------------------------------------------------------------------------------------------
  440. !!
  441. !! ------------------------------------- Fitness Requests ---------------------------------------------
  442. !!
  443. !! ----------------------------------------------------------------------------------------------------
  444. if $ARGS[0] = 'fitness_shoot':
  445. cla & *clr
  446. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  447. '"Alright, what kind of shoot would you like to do? Sportwear, Sport underwear, or Artistic nude?"'
  448. act 'Sportwear':
  449. cla
  450. act 'Look at something else':gt 'foto_shoot','model'
  451. act 'Agree (2:00)':gt'foto_shoot','sportswear'
  452. end
  453. act 'Sports underwear':
  454. if pcs_inhib < 20:
  455. 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.'
  456. else
  457. cla
  458. act 'Look at something else':gt 'foto_shoot','model'
  459. act 'Agree (2:00)':gt'foto_shoot','sports_underwear'
  460. end
  461. end
  462. act 'Artistic nude':
  463. if pcs_inhib < 45:
  464. 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.'
  465. else
  466. cla
  467. act 'Look at something else':gt 'foto_shoot','model'
  468. act 'Agree (2:00)':gt'foto_shoot','fitness_artistic_nude'
  469. end
  470. end
  471. end
  472. !! ----------------------------------------------------------------------------------------------------
  473. !!
  474. !! ------------------------------------- Modelling Shoots ---------------------------------------------
  475. !!
  476. !! ----------------------------------------------------------------------------------------------------
  477. if $ARGS[0] = 'fashion':
  478. *clr & cla
  479. minut += 120
  480. modelpayfin = 300 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  481. modelfoto_fashion += 1
  482. mdlng_exp += rand(5,8)
  483. gs 'fame', 'city', 'modelling', rand(7,12)
  484. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  485. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,6)
  486. fashionshoot = rand(1,2)
  487. gs 'stat'
  488. if fashionshoot = 1:
  489. '<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion/<<rand(1,5)>>.mp4"></video></center>'
  490. else
  491. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion/<<rand(1,31)>>.jpg"></center>'
  492. end
  493. 'You dress up in the latest in fashion wear and spend the next two hours posing for the photographer.'
  494. *nl
  495. '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.'
  496. if pcs_mdlng >= 40 and commercial = 0:
  497. act 'Leave':gt'foto_events','commercial'
  498. else
  499. act 'Leave':gt 'foto', 'end'
  500. end
  501. end
  502. if $ARGS[0] = 'bikini':
  503. *clr & cla
  504. minut += 120
  505. modelpayfin = 325 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  506. modelfoto_bikini += 1
  507. if pcs_inhib < 20: gs 'willpower','pay','self'
  508. gs 'fame', 'city', 'modelling', rand(7,12)
  509. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  510. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,6)
  511. mdlng_exp += rand(6,10)
  512. if pcs_inhib < 50:inhib_exp += rand(0,1)
  513. gs 'stat'
  514. '<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini/<<rand(4,5)>>.mp4"></video></center>'
  515. *nl
  516. 'You spend the shoot in designer bikinis, modelling them to appear in various higher end magazines.'
  517. *nl
  518. 'Two hours later, you''re all done. The photographer thanks you for your time and pays you <<modelpayfin>> <b>₽</b> for the job.'
  519. if pcs_mdlng >= 40 and commercial = 0:
  520. act 'Leave':gt'foto_events','commercial'
  521. else
  522. act 'Leave':gt 'foto', 'end'
  523. end
  524. end
  525. if $ARGS[0] = 'lingerie':
  526. *clr & cla
  527. minut += 120
  528. modelpayfin = 350 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  529. modelfoto_lingerie += 1
  530. mdlng_exp += rand(6,10)
  531. if pcs_inhib < 25: gs 'willpower','pay','self'
  532. gs 'fame', 'city', 'modelling', rand(7,13)
  533. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/10
  534. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,6)
  535. inhib_exp += rand(0,2)
  536. shoot = rand(1,2)
  537. gs 'stat'
  538. if shoot = 1:
  539. '<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie/<<rand(1,5)>>.mp4"></video></center>'
  540. else
  541. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/lingerie/<<rand(1,37)>>.jpg"></center>'
  542. end
  543. 'You put on some high end lingerie and spend the next two hours striking various poses for a photographer for use in fashion magazines.'
  544. *nl
  545. '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.'
  546. if pcs_mdlng >= 40 and commercial = 0:
  547. act 'Leave':gt'foto_events','commercial'
  548. else
  549. act 'Leave':gt 'foto', 'end'
  550. end
  551. end
  552. if $ARGS[0] = 'sexy':
  553. *clr & cla
  554. minut += 120
  555. modelpayfin = 500 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  556. modelfoto_glamour += 1
  557. modelfoto_ero_clo += 1
  558. mdlng_exp += rand(5,10)
  559. if pcs_inhib < 30: gs 'willpower','pay','self'
  560. gs 'fame', 'city', 'modelling', rand(7,12)
  561. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  562. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(1,6)
  563. inhib_exp += rand(0,1)
  564. gs 'stat'
  565. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/sexy/<<rand(1,48)>>.jpg"></center>'
  566. 'You dress up in sexy clothes and spend the next two hours posing for the photographer.'
  567. *nl
  568. '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.'
  569. if pcs_mdlng >= 40 and commercial = 0:
  570. act 'Leave':gt'foto_events','commercial'
  571. else
  572. act 'Leave':gt 'foto', 'end'
  573. end
  574. end
  575. if $ARGS[0] = 'transparent':
  576. *clr & cla
  577. minut += 120
  578. modelpayfin = 600 + (modelpay) + (pcs_apprnc) + (15*rand(0,5))
  579. modelfoto_glamour += 1
  580. modelfoto_transparent += 1
  581. modelfoto_nip += 1
  582. mdlng_exp += rand(6,10)
  583. if pcs_inhib < 45: gs 'willpower','pay','self'
  584. gs 'fame', 'city', 'modelling', rand(7,13)
  585. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  586. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,8)
  587. inhib_exp += rand(0,2)
  588. gs 'stat'
  589. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/seethru/<<rand(1,26)>>.jpg"></center>'
  590. '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.'
  591. *nl
  592. '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.'
  593. if pcs_mdlng >= 40 and commercial = 0:
  594. act 'Leave':gt'foto_events','commercial'
  595. else
  596. act 'Leave':gt 'foto', 'end'
  597. end
  598. end
  599. if $ARGS[0] = 'trans_ling':
  600. *clr & cla
  601. minut += 120
  602. modelpayfin = 650 + (modelpay * 2) + (pcs_apprnc) + (15*rand(0,7))
  603. modelfoto_glamour += 1
  604. modelfoto_trans_ling += 1
  605. modelfoto_nip += 1
  606. modelfoto_lingerie += 1
  607. mdlng_exp += rand(8,10)
  608. if pcs_inhib < 45: gs 'willpower','pay','self'
  609. gs 'fame', 'city', 'modelling', rand(9,14)
  610. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/10
  611. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,8)
  612. inhib_exp += rand(0,2)
  613. gs 'stat'
  614. if rand(0,1) = 1:
  615. '<center><video autoplay loop src="images/locations/city/citycenter/photo/ling_trans/<<rand(1,3)>>.mp4"></video></center>'
  616. else
  617. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/ling_trans/<<rand(1,26)>>.jpg"></center>'
  618. end
  619. 'You put on some very lacy, very transparent underwear and get to posing, your nipples often showing through the thin fabric.'
  620. *nl
  621. '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.'
  622. *nl
  623. if pcs_mdlng >= 40 and commercial = 0:
  624. act 'Leave':gt'foto_events','commercial'
  625. else
  626. act 'Leave':gt 'foto', 'end'
  627. end
  628. end
  629. if $ARGS[0] = 'topless':
  630. *clr & cla
  631. minut += 120
  632. modelpayfin = 700 + (modelpay) + (pcs_apprnc) + (15*rand(0,5))
  633. modelfoto_nip += 1
  634. modelfoto_topless += 1
  635. mdlng_exp += rand(6,10)
  636. if pcs_inhib < 50: gs 'willpower','pay','self'
  637. gs 'fame', 'city', 'modelling', rand(8,14)
  638. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  639. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,8)
  640. inhib_exp += rand(0,2)
  641. gs 'stat'
  642. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topless/<<rand(1,57)>>.jpg"></center>'
  643. 'You spend two hours striking various posing with topless breasts, listening to instruction while the photographer takes pictures of you.'
  644. *nl
  645. '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.'
  646. if pcs_mdlng >= 40 and commercial = 0:
  647. act 'Leave':gt'foto_events','commercial'
  648. else
  649. act 'Leave':gt 'foto', 'end'
  650. end
  651. end
  652. if $ARGS[0] = 'tasteful':
  653. *clr & cla
  654. minut += 120
  655. modelpay = (pcs_mdlng/2 * 10) + min(city_modelling, 700) + pcs_apprnc
  656. modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
  657. modelfoto_tastenude += 1
  658. modelfoto_nude += 1
  659. mdlng_exp += rand(9,10)
  660. if pcs_inhib < 40: gs 'willpower','pay','self'
  661. gs 'fame', 'city', 'modelling', rand(10,20)
  662. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/4
  663. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,10)
  664. inhib_exp += rand(0,2)
  665. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/tastenude/<<rand(1,28)>>.jpg"></center>'
  666. 'Already naked, you step onto the set and begin the shoot immediately.'
  667. *nl
  668. '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.'
  669. if pcs_mdlng >= 40 and commercial = 0:
  670. act 'Leave':gt'foto_events','commercial'
  671. else
  672. act 'Leave':gt 'foto', 'end'
  673. end
  674. end
  675. if $ARGS[0] = 'topless_nude':
  676. *clr & cla
  677. minut += 120
  678. modelpay = (pcs_mdlng/2 * 10) + min(city_modelling, 700) + pcs_apprnc
  679. modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
  680. modelfoto_nude += 1
  681. modelfoto_toplessnude += 1
  682. mdlng_exp += rand(9,10)
  683. if pcs_inhib < 55: gs 'willpower','pay','self'
  684. gs 'fame', 'city', 'modelling', rand(10,20)
  685. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/4
  686. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,10)
  687. inhib_exp += rand(1,3)
  688. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topnude/<<rand(1,79)>>.jpg"></center>'
  689. 'Already naked, you step onto the set and begin the shoot immediately.'
  690. *nl
  691. '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.'
  692. if pcs_mdlng >= 40 and commercial = 0:
  693. act 'Leave':gt'foto_events','commercial'
  694. else
  695. act 'Leave':gt 'foto', 'end'
  696. end
  697. end
  698. if $ARGS[0] = 'nude':
  699. *clr & cla
  700. minut += 120
  701. modelpay = (pcs_mdlng/2 * 10) + min(city_modelling, 700) + pcs_apprnc
  702. modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
  703. if modelfoto_nude = 0: modelpayfin = modelpayfin * 2 & foto_persuade = 0
  704. modelfoto_nude += 1
  705. modelfoto_fullnude += 1
  706. modelfoto_nip += 1
  707. modelfoto_pussy += 1
  708. mdlng_exp += rand(9,10)
  709. if pcs_inhib < 60: gs 'willpower','pay','self'
  710. gs 'fame', 'city', 'modelling', rand(10,20)
  711. gs 'fame', 'pav', 'modelling', rand(10,15)
  712. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(5,10)
  713. inhib_exp += rand(1,3)
  714. if pcs_pubes <= 20:
  715. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude/<<rand(1,17)>>.jpg"></center>'
  716. 'Already naked, you step onto the set and begin the shoot immediately.'
  717. *nl
  718. '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.'
  719. else
  720. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/bnude/<<rand(1,20)>>.jpg"></center>'
  721. 'Already naked, you step onto the set and begin the shoot immediately.'
  722. *nl
  723. 'You spend two hours posing confidently for a photographer taking pictures of you, your <<$pcdesc_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.'
  724. end
  725. if modelfoto_nude = 1 and foto_persuade ! 5:
  726. '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.'
  727. elseif modelfoto_nude = 1 and foto_persuade = 5:
  728. 'It even includes the bonus the manager said they''d give you for your debut!'
  729. end
  730. if pornstudio = 0:pornstudio = 2 & *nl & 'At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
  731. if pcs_mdlng >= 40 and commercial = 0:
  732. act 'Leave':gt'foto_events','commercial'
  733. else
  734. act 'Leave':gt 'foto', 'end'
  735. end
  736. end
  737. if $ARGS[0] = 'erotic':
  738. *clr & cla
  739. minut += 120
  740. modelpay = (pcs_mdlng/2 * 10) + (pcs_apprnc * 3)
  741. modelpayfin = 1000 + (modelpay * 2) + (15*rand(0,5))
  742. modelfoto_erotic += 1
  743. modelfoto_nude += 1
  744. modelfoto_nip += 1
  745. modelfoto_pussy += 1
  746. modelfoto_asshole += 1
  747. mdlng_exp += rand(1,4)
  748. if pcs_inhib < 65: gs 'willpower','pay','self'
  749. gs 'fame', 'city', 'modelling', rand(5,10)
  750. gs 'fame', 'city', 'porn', rand(5,15)
  751. gs 'fame', 'pav', 'porn', rand(0,15)
  752. if pcs_inhib < 60:inhib_exp += rand(1,3)
  753. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/erotic/<<rand(1,19)>>.jpg"></center>'
  754. if $pantyworntype ! 'none':
  755. else
  756. 'Already naked, you step onto the set and begin the shoot immediately.'
  757. end
  758. *nl
  759. '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.'
  760. if pornstudio = 0:pornstudio = 2 & 'At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You read it and see that it''s for a porn production company in St. Petersburg. "You''re basically already shooting softcore nudes, so we thought we''d offer you the chance to go hardcore."'
  761. if pcs_mdlng >= 40 and commercial = 0:
  762. act 'Leave':gt'foto_events','commercial'
  763. else
  764. act 'Leave':gt 'foto', 'end'
  765. end
  766. end
  767. if $ARGS[0] = 'sportswear':
  768. *clr & cla
  769. minut += 120
  770. modelpayfin = 300 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (city_modelling/2) + (pcs_mdlng/2 * 10) + (city_sport/2)
  771. modelfoto_fitness += 1
  772. pcs_sweat = 60
  773. mdlng_exp += rand(2,4)
  774. gs 'fame', 'city', 'modelling', rand(3,6)
  775. gs 'stat'
  776. if bodset = 2 and salocatnow >= 2:
  777. *clr & cla
  778. modelpayfin += 300
  779. gs 'stat'
  780. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FSM<<rand(1,4)>>.jpg"></center>'
  781. else:
  782. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FSV<<rand(1,4)>>.jpg"></center>'
  783. end
  784. *nl
  785. '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.'
  786. *nl
  787. '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.'
  788. if pcs_mdlng >= 40 and commercial = 0:
  789. act 'Leave':gt'foto_events','commercial'
  790. else
  791. act 'Leave':gt 'foto', 'end'
  792. end
  793. end
  794. if $ARGS[0] = 'sports_underwear':
  795. *clr & cla
  796. minut += 120
  797. modelpayfin = 325 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (city_modelling/2) + (pcs_mdlng/2 * 10) + (city_sport/2)
  798. modelfoto_fitness += 1
  799. pcs_sweat = 60
  800. gs 'fame', 'city', 'modelling', rand(3,6)
  801. mdlng_exp += rand(3,6)
  802. if pcs_inhib < 50:inhib_exp += 1
  803. gs 'stat'
  804. if bodset = 2 and salocatnow >= 2:
  805. *clr & cla
  806. modelpayfin += 325
  807. gs 'stat'
  808. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FUM<<rand(1,4)>>.jpg"></center>'
  809. else:
  810. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FUV<<rand(1,4)>>.jpg"></center>'
  811. end
  812. *nl
  813. '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.'
  814. *nl
  815. 'After having taken all his pictures, you and the crew head back to Aphrodite , counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
  816. act 'Leave':gt 'foto', 'end'
  817. end
  818. if $ARGS[0] = 'fitness_artistic_nude':
  819. *clr & cla
  820. minut += 120
  821. modelpay = (pcs_mdlng/2 * 10) + city_modelling + pcs_apprnc + city_sport
  822. modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
  823. modelfoto_fitness += 1
  824. modelfoto_nude += 1
  825. pcs_sweat = 60
  826. mdlng_exp += rand(4,5)
  827. gs 'fame', 'city', 'modelling', rand(5,10)
  828. inhib_exp += 2
  829. gs 'stat'
  830. if bodset = 2 and salocatnow >= 2:
  831. *clr & cla
  832. modelpayfin += 600
  833. gs 'stat'
  834. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FNM<<rand(1,4)>>.jpg"></center>'
  835. else:
  836. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fitness/FNV<<rand(1,4)>>.jpg"></center>'
  837. end
  838. *nl
  839. 'Already naked, you do some warm-ups, work up a sweat, add some body-oil and step onto the set to begin the shoot.'
  840. *nl
  841. '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.'
  842. act 'Leave':gt 'foto', 'end'
  843. end
  844. !! act 'Variety shoot':
  845. !! if pcs_inhib < 60:
  846. !! 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.'
  847. !! gt 'foto', 'nude_shoot'
  848. !! else
  849. !! cla
  850. !! act 'Look at something else':gt 'foto_shoot','model'
  851. !!
  852. !! act 'Agree (2:00)':
  853. !! *clr & cla
  854. !! minut += 120
  855. !! modelpayfin = 825 + (modelpay * 2) + (15*rand(0,7))
  856. !! mdlng_exp += 10
  857. !! city_modelling += rand(10,20)
  858. !! pav_modelling += rand(0,city_modelling)/10
  859. !! inhib_exp += 3
  860. !! modelfoto_glamour += 1
  861. !! modelfoto_nip += 1
  862. !! modelfoto_fashion += 1
  863. !! modelfoto_lingerie += 1
  864. !! modelfoto_topless += 1
  865. !! modelfoto_pussy += 1
  866. !! gs 'stat'
  867. !! '<center><video autoplay loop src="images/locations/city/citycenter/photo/vmodel.mp4"></video></center>'
  868. !! '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.'
  869. !! *nl
  870. !! '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.'
  871. !! if pcs_mdlng >= 40 and commercial = 0:
  872. !! act 'Leave':gt'foto_events','commercial'
  873. !! else
  874. !! act 'Leave':gt 'foto', 'end'
  875. !! end
  876. !! end
  877. !! end
  878. !! end
  879. !!end
  880. --- foto_shoot ---------------------------------