1
0

foto_shoot.qsrc 37 KB

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