1
0

foto_shoot.qsrc 37 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798
  1. # foto_shoot
  2. if $ARGS[0] = 'model':
  3. menu_off = 1
  4. if model = 0:model = 1
  5. *clr & cla
  6. minut += 5
  7. modelpay = (pcs_mdlng/2 * 10) + ((min(city_modelling, 700) + pcs_apprnc)/2)
  8. modelpayfin = 900 + (15*rand(0,5))
  9. gs 'stat'
  10. '<center><b><font color="maroon">Manager</font></b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  12. '"Hello <<$pcs_firstname>>. Are you here to work? What kind of shoot would you like to do today?"'
  13. *nl
  14. !! '<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>'
  15. '<center><b><font color="blue">Modelling guide</font></b></center>'
  16. *pl '<center><table align="center" width=80%>'
  17. '<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.'
  18. '<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.'
  19. '<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.'
  20. '<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.'
  21. *p '</table></center>'
  22. act'Never mind':
  23. cla
  24. '"Sorry, I just realized that I have something to do right now. Can I come back later?"'
  25. '"Sure, no problem <<$pcs_lastname>>, just let us know when you''re ready to work.'
  26. act'Leave':gt 'foto','studio'
  27. end
  28. act'Actually I''d like to practice':gt'foto','practicemodel'
  29. act'"I''d like to do a catalog shoot"':
  30. cla & *clr
  31. if modelfoto >= 10 and pcs_mdlng > 20 and modelfoto_fashion < 1:gt'foto_events','fashion_persuasion'
  32. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  33. '"Alright, what kind of shoot? Clothing or swimsuits?"'
  34. act'Clothing':
  35. shoot_type = catalog
  36. modelfoto_catalog += 1
  37. cla & *clr
  38. mdlng_exp += rand(2,5)
  39. minut += 120
  40. money += 450
  41. '<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion3.mp4"></video></center>'
  42. 'You spend two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
  43. *nl
  44. 'You recieve 450 <b>₽</b> for the job.'
  45. act 'Leave':gt 'foto', 'end'
  46. end
  47. act'Swimsuits':
  48. shoot_type = swim_catalog
  49. modelfoto_catalog += 1
  50. cla & *clr
  51. mdlng_exp += rand(2,5)
  52. minut += 120
  53. money += 450
  54. '<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini/<<rand(1,3)>>.mp4"></video></center>'
  55. bikinicatalog += 1
  56. '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.'
  57. *nl
  58. 'You recieve 450 <b>₽</b> for the job.'
  59. act 'Leave':gt 'foto', 'end'
  60. end
  61. end
  62. act'"I''d like to do a fashion shoot"':
  63. if pcs_mdlng < 20:
  64. 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."'
  65. else
  66. cla & *clr
  67. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  68. '"Alright, what kind of shoot would you like to do? Fashion, bikini, or lingerie?"'
  69. act 'Fashion':
  70. shoot_type = fashion
  71. if modelfoto_fashion >= 10 and modelfoto_bikini + modelfoto_lingerie < 1 and modelfoto_glamour < 1 and modelfoto_nude < 1: gt'foto_events','lingerie_persuasion'
  72. cla
  73. act 'Maybe not today':gt 'foto','studio'
  74. act 'Agree (2:00)':gt 'foto_shoot','fashion'
  75. end
  76. act 'Bikini':
  77. shoot_type = bikini
  78. *clr & cla
  79. if modelfoto_bikini + modelfoto_lingerie >= 10 and pcs_mdlng > 20 and modelfoto_glamour < 1 and modelfoto_nude < 1:gt'foto_events','glamour_persuasion'
  80. if pcs_inhib < 20:
  81. '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.'
  82. act 'Maybe not today':gt 'foto','studio'
  83. act 'Look at other options':gt'foto_shoot','model'
  84. if pcs_mdlng > 20:
  85. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  86. else
  87. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  88. end
  89. if will_cost <= pcs_willpwr:
  90. *nl
  91. 'Or you could just force yourself do it anyways...'
  92. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','bikini'
  93. end
  94. else
  95. cla
  96. act 'Maybe not today':gt 'foto','studio'
  97. act 'Agree (2:00)':gt'foto_shoot','bikini'
  98. end
  99. end
  100. act 'Lingerie modelling':
  101. shoot_type = lingerie
  102. *clr & cla
  103. if modelfoto_bikini + modelfoto_lingerie >= 10 and modelfoto_glamour < 1 and modelfoto_nude < 1:gt'foto_events','glamour_persuasion'
  104. if pcs_inhib < 25:
  105. '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.'
  106. act 'Maybe not today':gt 'foto','studio'
  107. act 'Look at other options':gt'foto_shoot','model'
  108. if pcs_mdlng > 20:
  109. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  110. else
  111. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  112. end
  113. if will_cost <= pcs_willpwr:
  114. *nl
  115. 'Or you could just force yourself do it anyways...'
  116. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','lingerie'
  117. end
  118. else
  119. cla
  120. act 'Maybe not today':gt 'foto','studio'
  121. act 'Agree (2:00)':gt'foto_shoot','lingerie'
  122. end
  123. end
  124. end
  125. end
  126. act'"I''d like to do a glamour shoot"':
  127. if pcs_inhib < 30:
  128. 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.'
  129. else
  130. gt'foto_shoot', 'glamour_shoot'
  131. end
  132. end
  133. act'"I''d like to do a nude shoot"':
  134. if pcs_inhib < 30:
  135. 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.'
  136. else
  137. gt'foto_shoot', 'nude_shoot'
  138. end
  139. end
  140. end
  141. if $ARGS[0] = 'glamour_shoot':
  142. cla & *clr
  143. menu_off = 1
  144. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  145. '"Alright, we can do that. What kind of glamour shoot?"'
  146. !! 'Info guides:'
  147. !! '<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>'
  148. !! '<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>'
  149. !! '<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>'
  150. !! '<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>'
  151. !! '<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>'
  152. !! act 'Erotic clothing with breast nudity':
  153. !!already matched the exhibitionism value above
  154. !! cla
  155. !! act 'Maybe not today':gt 'foto','studio'
  156. !! act 'Agree (2:00)':
  157. !! *clr & cla
  158. !! minut += 120
  159. !! modelpayfin = 700 + (modelpay) + (15*rand(0,5))
  160. !! modelfoto_nip += 1
  161. !! mdlng_exp += rand(6,10)
  162. !! city_modelling += rand(7,13)
  163. !! pav_modelling += rand(1,city_modelling)/10
  164. !! inhib_exp += 2
  165. !! gs 'stat'
  166. !! '<center><video autoplay loop src="images/locations/city/citycenter/photo/model5.mp4"></video></center>'
  167. !! '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.'
  168. !! *nl
  169. !! '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.'
  170. !! if pcs_mdlng >= 40 and commercial = 0:
  171. !! act 'Leave':gt'foto_events','commercial'
  172. !! else
  173. !! act 'Leave':gt 'foto', 'end'
  174. !! end
  175. !! end
  176. !! end
  177. act 'Sexy clothing':
  178. *clr & cla
  179. shoot_type = sexy_clo
  180. 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'
  181. if pcs_inhib < 30:
  182. if modelfoto_ero_clo > 0:
  183. '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?'
  184. else
  185. '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.'
  186. end
  187. act 'Maybe not today':gt 'foto','studio'
  188. act 'Look at other options':gt'foto_shoot','model'
  189. if pcs_inhib > 20:
  190. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  191. else
  192. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  193. end
  194. if will_cost <= pcs_willpwr:
  195. *nl
  196. 'Or you could just force yourself do it anyways...'
  197. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','sexy'
  198. end
  199. else
  200. cla
  201. act 'Maybe not today':gt 'foto','studio'
  202. act 'Agree (2:00)':gt'foto_shoot','sexy'
  203. end
  204. end
  205. act 'Transparent clothing':
  206. *clr & cla
  207. shoot_type = trans_clo
  208. if modelfoto_trans_ling + modelfoto_transparent >= 5 and modelfoto_topless < 1 and modelfoto_nude < 1: gt'foto_events','topless_persuasion'
  209. if pcs_inhib < 45:
  210. if modelfoto_transparent > 0:
  211. '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?'
  212. else
  213. '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.'
  214. end
  215. act 'Maybe not today':gt 'foto','studio'
  216. act 'Look at other options':gt'foto_shoot','model'
  217. if pcs_inhib > 40:
  218. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  219. else
  220. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  221. end
  222. if will_cost <= pcs_willpwr:
  223. *nl
  224. 'Or you could just force yourself do it anyways...'
  225. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','transparent'
  226. end
  227. else
  228. cla
  229. act 'Not for me':gt 'foto','studio'
  230. act 'Agree (2:00)':gt'foto_shoot','transparent'
  231. end
  232. end
  233. act 'Transparent Lingerie':
  234. shoot_type = trans_ling
  235. *clr & cla
  236. if modelfoto_trans_ling + modelfoto_transparent >= 5 and modelfoto_topless < 1 and modelfoto_nude < 1: shoot_type = trans_ling & gt'foto_events','topless_persuasion'
  237. if pcs_inhib < 45:
  238. if modelfoto_trans_ling > 0:
  239. '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?'
  240. else
  241. '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.'
  242. end
  243. act 'Maybe not today':gt 'foto','studio'
  244. act 'Look at other options':gt'foto_shoot','model'
  245. if pcs_inhib > 40:
  246. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  247. else
  248. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  249. end
  250. if will_cost <= pcs_willpwr:
  251. *nl
  252. 'Or you could just force yourself do it anyways...'
  253. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','trans_ling'
  254. end
  255. else
  256. cla
  257. act 'Not for me':gt 'foto','studio'
  258. act 'Agree (2:00)':gt'foto_shoot','trans_ling'
  259. end
  260. end
  261. act 'Topless':
  262. shoot_type = topless
  263. *clr & cla
  264. if modelfoto_topless >= 5 and modelfoto_nude < 1: gt'foto_events','nude_persuasion'
  265. if pcs_inhib < 50:
  266. if modelfoto_topless > 0:
  267. '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?'
  268. else
  269. '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.'
  270. end
  271. act 'Maybe not today':gt 'foto','studio'
  272. act 'Look at other options':gt'foto_shoot','model'
  273. if pcs_inhib > 45:
  274. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  275. else
  276. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  277. end
  278. if will_cost <= pcs_willpwr:
  279. *nl
  280. 'Or you could just force yourself do it anyways...'
  281. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','topless'
  282. end
  283. else
  284. cla
  285. act 'Maybe not today':gt 'foto','studio'
  286. act 'Agree (2:00)':gt'foto_shoot','topless'
  287. end
  288. end
  289. end
  290. if $ARGS[0] = 'nude_shoot':
  291. cla & *clr
  292. menu_off = 1
  293. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
  294. '"Alright, we can do that. What kind of nude shoot?"'
  295. act 'Tasteful nude':
  296. shoot_type = taste_nude
  297. *clr & cla
  298. if modelfoto_tastenude >= 5 and modelfoto_topless + modelfoto_toplessnude + modelfoto_fullnude < 1: gt'foto_events','nude_persuasion'
  299. if pcs_inhib < 40:
  300. if modelfoto_tastenude > 0:
  301. '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?'
  302. else
  303. '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.'
  304. end
  305. act 'Maybe not today':gt 'foto','studio'
  306. act 'Look at other options':gt'foto_shoot','model'
  307. if pcs_inhib > 35:
  308. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  309. else
  310. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  311. end
  312. if will_cost <= pcs_willpwr:
  313. *nl
  314. 'Or you could just force yourself do it anyways...'
  315. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','tasteful'
  316. end
  317. else
  318. cla
  319. act 'Maybe not today':gt 'foto','studio'
  320. act 'Agree (2:00)':gt'foto_shoot','tasteful'
  321. end
  322. end
  323. act 'Topless nude':
  324. shoot_type = top_nude
  325. *clr & cla
  326. if modelfoto_toplessnude >= 3 and modelfoto_pussy < 1:gt'foto_events','nude_persuasion'
  327. if pcs_inhib < 55:
  328. if modelfoto_toplessnude > 0:
  329. '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?'
  330. else
  331. '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.'
  332. end
  333. act 'Maybe not today':gt 'foto','studio'
  334. act 'Look at other options':gt'foto_shoot','model'
  335. if pcs_inhib > 50:
  336. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'easy'
  337. else
  338. gs 'willpower', 'skill', 'pcs_inhib', 'self', 'hard'
  339. end
  340. if will_cost <= pcs_willpwr:
  341. *nl
  342. 'Or you could just force yourself do it anyways...'
  343. act 'Agree (2:00) (<<will_cost>> Willpower)':gt'foto_shoot','topless_nude'
  344. end
  345. else
  346. cla
  347. act 'Maybe not today':gt 'foto','studio'
  348. act 'Agree (2:00)':gt'foto_shoot','topless_nude'
  349. end
  350. end
  351. act 'Full nude':
  352. shoot_type = full_nude
  353. *clr & cla
  354. if pcs_inhib < 60:
  355. if modelfoto_fullnude > 0:
  356. '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?'
  357. elseif modelfoto_pussy < 1:
  358. '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.'
  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 'Maybe not today':gt 'foto','studio'
  363. act 'Look at other options':gt'foto_shoot','model'
  364. if pcs_inhib > 55:
  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','nude'
  373. end
  374. else
  375. cla
  376. act 'Maybe not today':gt 'foto','studio'
  377. act 'Agree (2:00)':gt'foto_shoot','nude'
  378. end
  379. end
  380. act 'Erotic':
  381. shoot_type = erotic
  382. *clr & cla
  383. if pcs_inhib < 65:
  384. if modelfoto_pussy < 1:
  385. '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!'
  386. elseif modelfoto_erotic >= 0:
  387. '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?'
  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 'Maybe not today':gt 'foto','studio'
  392. act 'Look at other options':gt'foto_shoot','model'
  393. if pcs_inhib > 60:
  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','erotic'
  402. end
  403. else
  404. cla
  405. act 'Maybe not today':gt 'foto','studio'
  406. act 'Agree (2:00)':gt'foto_shoot','erotic'
  407. end
  408. end
  409. end
  410. if $ARGS[0] = 'fashion':
  411. *clr & cla
  412. minut += 120
  413. modelpayfin = 300 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  414. modelfoto_fashion += 1
  415. mdlng_exp += rand(5,8)
  416. gs 'fame', 'city', 'modelling', rand(7,12)
  417. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  418. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,6)
  419. fashionshoot = rand(1,2)
  420. gs 'stat'
  421. if fashionshoot = 1:
  422. '<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion/<<rand(1,5)>>.mp4"></video></center>'
  423. else
  424. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion/<<rand(1,14)>>.jpg"></center>'
  425. end
  426. 'You dress up in the latest in fashion wear and spend the next two hours posing for the photographer.'
  427. *nl
  428. '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.'
  429. if pcs_mdlng >= 40 and commercial = 0:
  430. act 'Leave':gt'foto_events','commercial'
  431. else
  432. act 'Leave':gt 'foto', 'end'
  433. end
  434. end
  435. if $ARGS[0] = 'bikini':
  436. *clr & cla
  437. minut += 120
  438. modelpayfin = 325 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  439. modelfoto_bikini += 1
  440. gs 'fame', 'city', 'modelling', rand(7,12)
  441. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  442. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,6)
  443. minut += 120
  444. mdlng_exp += rand(6,10)
  445. if pcs_inhib < 50:inhib_exp += rand(0,1)
  446. gs 'stat'
  447. '<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini/<<rand(4,5)>>.mp4"></video></center>'
  448. *nl
  449. 'You spend the shoot in designer bikinis, modelling them to appear in various higher end magazines.'
  450. *nl
  451. 'Two hours later, you''re all done. The photographer thanks you for your time and pays you <<modelpayfin>> <b>₽</b> for the job.'
  452. if pcs_mdlng >= 40 and commercial = 0:
  453. act 'Leave':gt'foto_events','commercial'
  454. else
  455. act 'Leave':gt 'foto', 'end'
  456. end
  457. end
  458. if $ARGS[0] = 'lingerie':
  459. *clr & cla
  460. minut += 120
  461. modelpayfin = 350 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  462. modelfoto_lingerie += 1
  463. mdlng_exp += rand(6,10)
  464. gs 'fame', 'city', 'modelling', rand(7,13)
  465. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/10
  466. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,6)
  467. inhib_exp += rand(0,2)
  468. shoot = rand(1,2)
  469. gs 'stat'
  470. if shoot = 1:
  471. '<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie/<<rand(1,5)>>.mp4"></video></center>'
  472. else
  473. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/lingerie/<<rand(1,11)>>.jpg"></center>'
  474. end
  475. 'You put on some high end lingerie and spend the next two hours striking various poses for a photographer for use in fashion magazines.'
  476. *nl
  477. '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.'
  478. if pcs_mdlng >= 40 and commercial = 0:
  479. act 'Leave':gt'foto_events','commercial'
  480. else
  481. act 'Leave':gt 'foto', 'end'
  482. end
  483. end
  484. if $ARGS[0] = 'sexy':
  485. *clr & cla
  486. minut += 120
  487. modelpayfin = 500 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (min(city_modelling, 700)/2) + (pcs_mdlng/2 * 10)
  488. modelfoto_glamour += 1
  489. modelfoto_ero_clo += 1
  490. mdlng_exp += rand(5,10)
  491. gs 'fame', 'city', 'modelling', rand(7,12)
  492. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  493. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(1,6)
  494. inhib_exp += rand(0,1)
  495. gs 'stat'
  496. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/sexy/<<rand(1,20)>>.jpg"></center>'
  497. 'You dress up in sexy clothes and spend the next two hours posing for the photographer.'
  498. *nl
  499. '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.'
  500. act 'Leave':gt 'foto','end'
  501. end
  502. if $ARGS[0] = 'transparent':
  503. *clr & cla
  504. minut += 120
  505. modelpayfin = 600 + (modelpay) + (pcs_apprnc) + (15*rand(0,5))
  506. modelfoto_glamour += 1
  507. modelfoto_transparent += 1
  508. modelfoto_nip += 1
  509. mdlng_exp += rand(6,10)
  510. gs 'fame', 'city', 'modelling', rand(7,13)
  511. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  512. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,8)
  513. inhib_exp += rand(0,2)
  514. gs 'stat'
  515. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/seethru/<<rand(1,10)>>.jpg"></center>'
  516. '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.'
  517. *nl
  518. '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.'
  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] = 'trans_ling':
  526. *clr & cla
  527. minut += 120
  528. modelpayfin = 650 + (modelpay * 2) + (pcs_apprnc) + (15*rand(0,7))
  529. modelfoto_glamour += 1
  530. modelfoto_trans_ling += 1
  531. modelfoto_nip += 1
  532. modelfoto_lingerie += 1
  533. mdlng_exp += rand(8,10)
  534. gs 'fame', 'city', 'modelling', rand(9,14)
  535. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/10
  536. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,8)
  537. inhib_exp += rand(0,2)
  538. gs 'stat'
  539. if rand(0,1) = 1:
  540. '<center><video autoplay loop src="images/locations/city/citycenter/photo/ling_trans/<<rand(1,3)>>.mp4"></video></center>'
  541. else
  542. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/ling_trans/<<rand(1,12)>>.jpg"></center>'
  543. end
  544. 'You put on some very lacy, very transparent underwear and get to posing, your nipples often showing through the thin fabric.'
  545. *nl
  546. '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.'
  547. *nl
  548. 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''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."'
  549. if pcs_mdlng >= 40 and commercial = 0:
  550. act 'Leave':gt'foto_events','commercial'
  551. else
  552. act 'Leave':gt 'foto', 'end'
  553. end
  554. end
  555. if $ARGS[0] = 'topless':
  556. *clr & cla
  557. minut += 120
  558. modelpayfin = 700 + (modelpay) + (pcs_apprnc) + (15*rand(0,5))
  559. modelfoto_nip += 1
  560. modelfoto_topless += 1
  561. mdlng_exp += rand(6,10)
  562. gs 'fame', 'city', 'modelling', rand(8,14)
  563. gs 'fame', 'pav', 'modelling', rand(1,city_modelling)/10
  564. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,8)
  565. inhib_exp += rand(0,2)
  566. gs 'stat'
  567. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topless/<<rand(1,27)>>.jpg"></center>'
  568. 'You spend two hours striking various posing with topless breasts, listening to instruction while the photographer takes pictures of you.'
  569. *nl
  570. '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.'
  571. if pcs_mdlng >= 40 and commercial = 0:
  572. act 'Leave':gt'foto_events','commercial'
  573. else
  574. act 'Leave':gt 'foto', 'end'
  575. end
  576. end
  577. if $ARGS[0] = 'tasteful':
  578. *clr & cla
  579. minut += 120
  580. modelpay = (pcs_mdlng/2 * 10) + min(city_modelling, 700) + pcs_apprnc
  581. modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
  582. modelfoto_tastenude += 1
  583. mdlng_exp += rand(9,10)
  584. gs 'fame', 'city', 'modelling', rand(10,20)
  585. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/4
  586. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,10)
  587. inhib_exp += rand(0,2)
  588. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/tastenude/<<rand(1,14)>>.jpg"></center>'
  589. 'Already naked, you step onto the set and begin the shoot immediately.'
  590. *nl
  591. '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.'
  592. if pcs_mdlng >= 40 and commercial = 0:
  593. act 'Leave':gt'foto_events','commercial'
  594. else
  595. act 'Leave':gt 'foto', 'end'
  596. end
  597. end
  598. if $ARGS[0] = 'topless_nude':
  599. *clr & cla
  600. modelpay = (pcs_mdlng/2 * 10) + min(city_modelling, 700) + pcs_apprnc
  601. minut += 120
  602. modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
  603. modelfoto_nude += 1
  604. modelfoto_toplessnude += 1
  605. mdlng_exp += rand(9,10)
  606. gs 'fame', 'city', 'modelling', rand(10,20)
  607. gs 'fame', 'pav', 'modelling', rand(0,city_modelling)/4
  608. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(3,10)
  609. inhib_exp += rand(1,3)
  610. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topnude/<<rand(1,40)>>.jpg"></center>'
  611. 'Already naked, you step onto the set and begin the shoot immediately.'
  612. *nl
  613. '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.'
  614. 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''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."'
  615. if pcs_mdlng >= 40 and commercial = 0:
  616. act 'Leave':gt'foto_events','commercial'
  617. else
  618. act 'Leave':gt 'foto', 'end'
  619. end
  620. end
  621. if $ARGS[0] = 'nude':
  622. *clr & cla
  623. minut += 120
  624. modelpay = (pcs_mdlng/2 * 10) + min(city_modelling, 700) + pcs_apprnc
  625. modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
  626. if modelfoto_nude = 0: modelpayfin * 2 & foto_persuade = 0
  627. modelfoto_nude += 1
  628. modelfoto_fullnude += 1
  629. modelfoto_nip += 1
  630. modelfoto_pussy += 1
  631. mdlng_exp += rand(9,10)
  632. gs 'fame', 'city', 'modelling', rand(10,20)
  633. gs 'fame', 'pav', 'modelling', rand(10,15)
  634. if city_modelling > 200: gs 'fame', 'city', 'modelling', rand(5,10)
  635. inhib_exp += rand(1,3)
  636. if pcs_pubes <= 20:
  637. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude/<<rand(1,17)>>.jpg"></center>'
  638. 'Already naked, you step onto the set and begin the shoot immediately.'
  639. *nl
  640. '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.'
  641. else
  642. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/bnude/<<rand(1,12)>>.jpg"></center>'
  643. 'Already naked, you step onto the set and begin the shoot immediately.'
  644. *nl
  645. '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.'
  646. end
  647. if modelfoto_nude = 1 and foto_persuade ! 5:
  648. '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.'
  649. elseif modelfoto_nude = 1 and foto_persuade = 5:
  650. 'It even includes the bonus the manager said they''d give you for your debut!'
  651. end
  652. 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."'
  653. if pcs_mdlng >= 40 and commercial = 0:
  654. act 'Leave':gt'foto_events','commercial'
  655. else
  656. act 'Leave':gt 'foto', 'end'
  657. end
  658. end
  659. if $ARGS[0] = 'erotic':
  660. *clr & cla
  661. minut += 120
  662. modelpay = (pcs_mdlng/2 * 10) + (pcs_apprnc * 3)
  663. modelpayfin = 1000 + (modelpay * 2) + (15*rand(0,5))
  664. modelfoto_erotic += 1
  665. modelfoto_nude += 1
  666. modelfoto_nip += 1
  667. modelfoto_pussy += 1
  668. modelfoto_asshole += 1
  669. mdlng_exp += rand(1,4)
  670. gs 'fame', 'city', 'modelling', rand(5,10)
  671. gs 'fame', 'city', 'porn', rand(5,15)
  672. gs 'fame', 'pav', 'porn', rand(0,15)
  673. if pcs_inhib < 60:inhib_exp += rand(1,3)
  674. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/erotic/<<rand(1,10)>>.jpg"></center>'
  675. if $pantyworntype ! 'none':
  676. else
  677. 'Already naked, you step onto the set and begin the shoot immediately.'
  678. end
  679. *nl
  680. '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.'
  681. 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."'
  682. if pcs_mdlng >= 40 and commercial = 0:
  683. act 'Leave':gt'foto_events','commercial'
  684. else
  685. act 'Leave':gt 'foto', 'end'
  686. end
  687. end
  688. !! act 'Variety shoot':
  689. !! if pcs_inhib < 60:
  690. !! 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.'
  691. !! gt 'foto', 'nude_shoot'
  692. !! else
  693. !! cla
  694. !! act 'Maybe not today':gt 'foto','studio'
  695. !!
  696. !! act 'Agree (2:00)':
  697. !! *clr & cla
  698. !! minut += 120
  699. !! modelpayfin = 825 + (modelpay * 2) + (15*rand(0,7))
  700. !! mdlng_exp += 10
  701. !! city_modelling += rand(10,20)
  702. !! pav_modelling += rand(0,city_modelling)/10
  703. !! inhib_exp += 3
  704. !! modelfoto_glamour += 1
  705. !! modelfoto_nip += 1
  706. !! modelfoto_fashion += 1
  707. !! modelfoto_lingerie += 1
  708. !! modelfoto_topless += 1
  709. !! modelfoto_pussy += 1
  710. !! gs 'stat'
  711. !! '<center><video autoplay loop src="images/locations/city/citycenter/photo/vmodel.mp4"></video></center>'
  712. !! '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.'
  713. !! *nl
  714. !! '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.'
  715. !! if pcs_mdlng >= 40 and commercial = 0:
  716. !! act 'Leave':gt'foto_events','commercial'
  717. !! else
  718. !! act 'Leave':gt 'foto', 'end'
  719. !! end
  720. !! end
  721. !! end
  722. !! end
  723. !!end
  724. --- foto_shoot ---------------------------------