1
0

prostitution_car_negotiation.qsrc 42 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804
  1. # prostitution_car_negotiation
  2. !!----- Negotiating with client when not using the prostitution_pavlovsk setup. -----------------------------------------
  3. !!-- This is the one to use when creating anything like a gas station, side of the road, or when the clients are --
  4. !!-- approaching with a car. --
  5. !!-- NOTE: Something similar should be made for pedestrian traffic in the city I think. --
  6. !!-----------------------------------------------------------------------------------------------------------------------
  7. if $ARGS[0] = 'general_description':
  8. if prostitute['customer_total'] > 9:
  9. *nl
  10. 'A blowjob, anal oder vaginal scene can consist of up to three or only one small scene. Currently there can be '+iif(prostitute['scene_reduction'] = 0, 'up to <a href="exec: prostitute[''scene_reduction''] = 1 & gt ''<<$loc>>'', ''work''">three</a>', 'only <a href="exec: prostitute[''scene_reduction''] = 0 & gt ''<<$loc>>'', ''work''">one</a>')+' small scene'+iif(prostitute['scene_reduction'] = 0, 's.', '.')
  11. 'The start and end scene (getting your money, leaving the car, talking to a regular, ...) can either be shown or skipped automatically.'
  12. ' - End scene will be '+iif(prostitute['skip_end'] = 0, '<a href="exec: prostitute[''skip_end''] = 1 & gt ''<<$loc>>'', ''work''">shown</a>.', '<a href="exec: prostitute[''skip_end''] = 0 & gt ''<<$loc>>'', ''work''">skipped</a>.')
  13. ' - Start scene will be '+iif(prostitute['skip_start'] = 0, '<a href="exec: prostitute[''skip_start''] = 1 & gt ''<<$loc>>'', ''work''">shown</a>.', '<a href="exec: prostitute[''skip_start''] = 0 & gt ''<<$loc>>'', ''work''">skipped</a>.')
  14. *nl
  15. if prezikcount = 0 and (prostitute_auto['norm_bj_condom'] + prostitute_auto['norm_vag_condom'] + prostitute_auto['norm_anal_condom'] + prostitute_auto['reg_vag_condom'] + prostitute_auto['reg_anal_condom']):
  16. '<b>You''re out of condoms!</b>'
  17. *nl
  18. end
  19. *nl
  20. '<table><tr><td valign="top"><b>Behavior towards normal clients:</b>'
  21. 'Negotiation: '+iif(prostitute_auto['normal'] = 1, '<a href="exec: prostitute_auto[''normal''] = 0 & gt ''<<$loc>>'', ''work''">Automatic</a>', '<a href="exec: prostitute_auto[''normal''] = 1 & gt ''<<$loc>>'', ''work''">Manual</a>')
  22. if prostitute_auto['normal'] = 1:
  23. *nl
  24. 'Which acts do you automatically accept/decline?'
  25. 'Blowjob: '+iif(prostitute_auto['norm_bj'] = 1, '<a href="exec: prostitute_auto[''norm_bj''] = 0 & gt ''<<$loc>>'', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_bj''] = 1 & gt ''<<$loc>>'', ''work''">Decline</a>')
  26. 'Vaginal: '+iif(prostitute_auto['norm_vag'] = 1, '<a href="exec: prostitute_auto[''norm_vag''] = 0 & gt ''<<$loc>>'', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_vag''] = 1 & gt ''<<$loc>>'', ''work''">Decline</a>')
  27. 'Anal: '+iif(prostitute_auto['norm_anal'] = 1, '<a href="exec: prostitute_auto[''norm_anal''] = 0 & gt ''<<$loc>>'', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_anal''] = 1 & gt ''<<$loc>>'', ''work''">Decline</a>')
  28. if prostitute_auto['norm_bj'] + prostitute_auto['norm_vag'] + prostitute_auto['norm_anal'] > 0:
  29. *nl
  30. 'Do you insist on a condom?'
  31. if prostitute_auto['norm_bj'] = 1: '- Blowjob: '+iif(prostitute_auto['norm_bj_condom'] = 1, '<a href="exec: prostitute_auto[''norm_bj_condom''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_bj_condom''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  32. if prostitute_auto['norm_vag'] = 1: '- Vaginal: '+iif(prostitute_auto['norm_vag_condom'] = 1, '<a href="exec: prostitute_auto[''norm_vag_condom''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_vag_condom''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  33. if prostitute_auto['norm_anal'] = 1: '- Anal: '+iif(prostitute_auto['norm_anal_condom'] = 1, '<a href="exec: prostitute_auto[''norm_anal_condom''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_anal_condom''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  34. if prostitute_auto['norm_bj_condom'] = 0 or prostitute_auto['norm_vag_condom'] = 0 or prostitute_auto['norm_anal_condom'] = 0:
  35. *nl
  36. 'Do you allow him to cum inside you?'
  37. if prostitute_auto['norm_bj_condom'] = 0 and prostitute_auto['norm_bj'] = 1: '- Blowjob: '+iif(prostitute_auto['norm_bj_creampie'] = 1, '<a href="exec: prostitute_auto[''norm_bj_creampie''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_bj_creampie''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  38. if prostitute_auto['norm_vag_condom'] = 0 and prostitute_auto['norm_vag'] = 1: '- Vaginal: '+iif(prostitute_auto['norm_vag_creampie'] = 1, '<a href="exec: prostitute_auto[''norm_vag_creampie''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_vag_creampie''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  39. if prostitute_auto['norm_anal_condom'] = 0 and prostitute_auto['norm_anal'] = 1: '- Anal: '+iif(prostitute_auto['norm_anal_creampie'] = 1, '<a href="exec: prostitute_auto[''norm_anal_creampie''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_anal_creampie''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  40. end
  41. end
  42. end
  43. '</td><td></td><td valign="top"><b>Behavior towards regular clients:</b>'
  44. 'Negotiation: '+iif(prostitute_auto['regular'] = 1, '<a href="exec: prostitute_auto[''regular''] = 0 & gt ''<<$loc>>'', ''work''">Automatic</a>', '<a href="exec: prostitute_auto[''regular''] = 1 & gt ''<<$loc>>'', ''work''">Manual</a>')
  45. if prostitute_auto['regular'] = 1:
  46. *nl
  47. 'Do you insist on a condom?'
  48. '- Vaginal: '+iif(prostitute_auto['reg_vag_condom'] = 1, '<a href="exec: prostitute_auto[''reg_vag_condom''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_vag_condom''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  49. '- Anal: '+iif(prostitute_auto['reg_anal_condom'] = 1, '<a href="exec: prostitute_auto[''reg_anal_condom''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_anal_condom''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  50. *nl
  51. if prostitute_auto['reg_anal_condom'] = 0 or prostitute_auto['reg_vag_condom'] = 0:
  52. 'Do you allow him to cum inside you?'
  53. if prostitute_auto['reg_vag_condom'] = 0: '- Vaginal: '+iif(prostitute_auto['reg_vag_creampie'] = 1, '<a href="exec: prostitute_auto[''reg_vag_creampie''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_vag_creampie''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  54. if prostitute_auto['reg_anal_condom'] = 0: '- Anal: '+iif(prostitute_auto['reg_anal_creampie'] = 1, '<a href="exec: prostitute_auto[''reg_anal_creampie''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_anal_creampie''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
  55. end
  56. end
  57. '</td></tr></table>'
  58. end
  59. end
  60. ! [x] First check over
  61. if $ARGS[0] = 'look_client':
  62. *clr & cla
  63. menu_off = 1
  64. minut += 30
  65. gs 'stat'
  66. if pcs_inhib < 60: inhib_exp += rand(1,2)
  67. if prostitute['regular'] = 1:
  68. gt 'prostitution_car_negotiation', 'client_regular', 'look_client'
  69. elseif prostitute['client_chance'] > 100 and prostitute['regular'] = 0:
  70. prostitute['pity_counter'] = 0
  71. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
  72. 'A car stops next to you. "Hey sweetie, are you looking for a good time?" You say to him.'
  73. if prostitute['rough'] = 0:
  74. if prostitute['propose'] = 0 and prostitute_auto['normal'] = 0:
  75. act 'Let him decide': gt 'prostitution_car_negotiation', 'negotiation_start'
  76. elseif prostitute_auto['normal'] = 1:
  77. act 'Negotiate with him': gt 'prostitution_car_negotiation', 'negotiation_start'
  78. else
  79. *nl
  80. 'The man looks a little bit nervous. You approach the window in a sensual manner and try to make him feel more comfortable. "Just relax and let me take care of you."'
  81. 'You lean into the car and chat with him about what he likes and dislikes.'
  82. if prostitute['enema'] = 0: iif(prostitute['dirty_anal_mod'] = 0, 'He hates', 'He admits that he loves')+' anal sex with a girl that didn''t clean herself and he will pay significantly '+iif(prostitute['dirty_anal_mod'] = 0, 'less', 'more')+' for it.'
  83. if mesec > 0: iif(prostitute['mesec_mod'] = 0, 'He really doesn''t like', 'He tells you that he likes')+' to fuck girls that have their period.'
  84. *nl
  85. 'You offer him...'
  86. if rand(1,10) < 10:
  87. act 'A blowjob': $prostitute['client_scene'] = 'Blowjob' & gt 'prostitution_car_negotiation', 'negotiation_start'
  88. act 'Your pussy': $prostitute['client_scene'] = 'Vaginal' & gt 'prostitution_car_negotiation', 'negotiation_start'
  89. act 'Your ass': $prostitute['client_scene'] = 'Anal' & gt 'prostitution_car_negotiation', 'negotiation_start'
  90. else
  91. act 'A blowjob':
  92. if $prostitute['client_scene'] ! 'Blowjob': prostitute['propose'] = 2
  93. gt 'prostitution_car_negotiation', 'negotiation_start'
  94. end
  95. act 'Your pussy':
  96. if $prostitute['client_scene'] ! 'Vaginal': prostitute['propose'] = 2
  97. gt 'prostitution_car_negotiation', 'negotiation_start'
  98. end
  99. act 'Your ass':
  100. if $prostitute['client_scene'] ! 'Anal': prostitute['propose'] = 2
  101. gt 'prostitution_car_negotiation', 'negotiation_start'
  102. end
  103. end
  104. end
  105. else
  106. gt 'prostitution_car_negotiation', 'rough'
  107. end
  108. else
  109. prostitute['pity_counter'] += rand(4,8)
  110. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/search.mp4"></video></center>'
  111. '<br>Some cars drive by, but nobody stops.'
  112. act 'Continue': gt $loc, 'work'
  113. end
  114. end
  115. !!------ Regular Client ------
  116. ! [x] First check over
  117. if $ARGS[0] = 'client_regular':
  118. *clr & cla
  119. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/arrival.mp4"></video></center>'
  120. 'A car approaches and slows down as it comes nearer. You take a look at the driver and you recognize him, he''s one of your regulars.'
  121. act 'Approach the car':
  122. *clr & cla
  123. minut += 1
  124. gs 'stat'
  125. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/approach.mp4"></video></center>'
  126. '"Hi <<$prostitute_names[''street'']>>. I was looking for you." He says in a good mood clearly happy to see you.'
  127. *nl
  128. '"Hey sweetie, good to see you again." You say to him with a smile on your lips.'
  129. act 'Lean inside the car':
  130. *clr & cla
  131. minut += 1
  132. gs 'stat'
  133. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
  134. '"I was hoping that you would work today," he tells you and you give him a smile. You remember that he '+iif($prostitute['client_scene'] = 'Vaginal', 'never asked to fuck your ass and always preferred your pussy.', 'always preferred to fuck your ass.')
  135. *nl
  136. if prezikcount > 0 or (prezikcount = 0 and prostitute['std_mod'] = 0):
  137. 'You tell him that...'
  138. gs 'willpower', 'prostitution', 'resist', 'easy'
  139. if will_cost <= pcs_willpwr:
  140. act '... you''re not in the mood (<<will_cost>> Willpower)':
  141. gs 'willpower', 'pay', 'resist'
  142. gt 'prostitution_car_negotiation', 'client_regular_fail'
  143. end
  144. else
  145. act '... you''re not in the mood (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  146. end
  147. act '... you guess he wants to fuck your '+iif($prostitute['client_scene'] = 'Vaginal', 'pussy', 'ass')+'':
  148. *clr & cla
  149. minut += 2
  150. gs 'stat'
  151. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
  152. '"So, I guess you want to fuck my '+iif($prostitute['client_scene'] = 'Vaginal', 'pussy', 'ass')+'? You seem to love that the last time.'
  153. 'He grins. "You remembered?" He asks you. "Sure," you answer with a convincing smile. "I''ll always remember what my most loyal customers like."'
  154. *nl
  155. 'You also remember that with him you...'
  156. if prostitute['std_mod'] = 0 and prostitute_auto['regular'] = 0:
  157. act 'Always use a condom':
  158. cla & *nl
  159. '... always use a condom.'+iif(prezikcount = 0, ' But you don''t have any with you', '')
  160. act 'Don''t make an exception':
  161. cla & *nl
  162. $prostitute_client_condom = 'Yes'
  163. $prostitute_client_cumshot = 'Outside or Condom'
  164. gs 'prostitution_functions', 'payment', 'condom_yes', 'inside_no'
  165. if prezikcount > 0:
  166. 'You pull out a condom out of your '+iif(bag = 1, 'purse', 'pocket')+' and he nods. "No problem <<$prostitute_names[''street'']>>, better safe than sorry."'
  167. act 'Continue': gt 'prostitution_car_negotiation', 'client_regular_success'
  168. else
  169. gs 'stat'
  170. '"I know you really like to fuck my '+iif($prostitute['client_scene'] = 'Vaginal', 'pussy', 'ass')+' but I don''t have any condoms."'
  171. *nl
  172. '"Shit? Really?" He looks disheartened.'
  173. *nl
  174. if money >= 60:
  175. '"Don''t worry, honey. There is a condom dispenser at the restroom. If you give me a second, I''ll be right back."'
  176. 'He nods and you go and buy a condom.'
  177. *nl
  178. 'It takes you more than a second, but when you return you show him the condom.'
  179. '"Perfect, you nearly gave me a heart attack." You grin. "I mean it," he says half serious, half joking. "I can''t go a week without fucking you."'
  180. minut += 2
  181. money -= 60
  182. prezikcount += 1
  183. gs 'stat'
  184. act 'Continue': gt 'prostitution_car_negotiation', 'client_regular_success'
  185. else
  186. 'He sighs and after a second he shrugs. "Fine," he looks at you and reassures you. "Don''t worry about it <<$prostitute_names[''street'']>>, you''re always worth waiting for."'
  187. act 'Leave': gt $loc, 'work'
  188. end
  189. end
  190. end
  191. act 'Make an exception':
  192. cla & *nl
  193. $prostitute_client_condom = 'No'
  194. '"You know what, how about we do it without a condom today?" You ask and quickly add: "But you have to pay for that."'
  195. 'He looks at you surprised but pleased. "I can fuck you raw? Really?" You nod. "Wow, nice. Sure let''s do it like god intended."'
  196. *nl
  197. 'You smile and tell him that he...'
  198. act 'Can''t cum inside you':
  199. cla & *nl
  200. $prostitute_client_cumshot = 'Outside'
  201. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_no'
  202. '... can''t cum inside you. "Yeah, raw is the best way to fuck, but don''t cum inside me, OK? I''ll suck you off at the end."'
  203. '"Sure thing, babe."'
  204. act 'Continue': gt 'prostitution_car_negotiation', 'client_regular_success'
  205. end
  206. act 'Can cum inside you':
  207. cla & *nl
  208. $prostitute_client_cumshot = 'Inside'
  209. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  210. '... can cum inside you. "And don''t be afraid to cum inside me if you want and pay for it."'
  211. '"Of course I''ll pay for it. You''re the best, <<$prostitute_names[''street'']>>."'
  212. act 'Continue': gt 'prostitution_car_negotiation', 'client_regular_success'
  213. end
  214. end
  215. end
  216. act 'Never use a condom':
  217. cla & *nl
  218. $prostitute_client_condom = 'No'
  219. '... never use a condom. "You want to fuck me raw as always?"'
  220. 'He nods. "Of course, it just isn''t the same with a condom. It''s really great that you do that, <<$prostitute_names[''street'']>>. You know that, right? There aren''t many girls your age that do it raw."'
  221. *nl
  222. 'You smile and tell him that he...'
  223. act 'Can''t cum inside you':
  224. cla & *nl
  225. $prostitute_client_cumshot = 'Outside'
  226. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_no'
  227. '... can''t cum inside you. "Yeah, raw is the best way to fuck, but remember don''t cum inside me. I''ll suck you off at the end."'
  228. 'He nods. "Sure thing, babe."'
  229. act 'Continue': gt 'prostitution_car_negotiation', 'client_regular_success'
  230. end
  231. act 'Can cum inside you':
  232. cla & *nl
  233. $prostitute_client_cumshot = 'Inside'
  234. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  235. '... can cum inside you. "Yeah, raw is the best way to fuck and remember don''t be afraid to cum anywhere you want."'
  236. '"You''re the best whore in the whole area, <<$prostitute_names[''street'']>>."'
  237. act 'Continue': gt 'prostitution_car_negotiation', 'client_regular_success'
  238. end
  239. end
  240. elseif prostitute['std_mod'] = 0 and prostitute_auto['regular'] = 1:
  241. if (prostitute_auto['reg_vag_condom'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['reg_anal_condom'] = 1 and $prostitute['client_scene'] = 'Anal'):
  242. $prostitute_client_condom = 'Yes'
  243. $prostitute_client_cumshot = 'Outside or Condom'
  244. if prezikcount = 0: prezikcount += 1 & money -= 100
  245. else
  246. $prostitute_client_condom = 'No'
  247. if (prostitute_auto['reg_vag_creampie'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['reg_anal_creampie'] = 1 and $prostitute['client_scene'] = 'Anal'):
  248. $prostitute_client_cumshot = 'Inside'
  249. else
  250. $prostitute_client_cumshot = 'Outside'
  251. end
  252. end
  253. gs 'prostitution_functions', 'payment', iif($prostitute_client_condom = 'Yes', 'condom_yes', 'condom_no'), iif($prostitute_client_cumshot = 'Inside', 'inside_yes', 'inside_no')
  254. gt 'prostitution_car_negotiation', 'client_regular_success'
  255. else
  256. cla & *nl
  257. $prostitute_client_condom = 'Yes'
  258. $prostitute_client_cumshot = 'Outside or Condom'
  259. gs 'prostitution_functions', 'payment', 'condom_yes', 'inside_no'
  260. '... should always use a condom. He was always nice, never mistreated you and without a condom he would surely catch your STD.'
  261. act 'Continue': gt 'prostitution_car_negotiation', 'client_regular_success'
  262. end
  263. end
  264. else
  265. 'You remember your STD, how he never mistreated you and also your lack of condoms. So, you tell him that...'
  266. act '... you''re not in the mood': gt 'prostitution_car_negotiation', 'client_regular_fail'
  267. end
  268. end
  269. end
  270. end
  271. ! [x] First check over
  272. if $ARGS[0] = 'client_regular_fail':
  273. *clr & cla
  274. minut += 5
  275. gs 'stat'
  276. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
  277. '"I''m sorry sweetie, I know you really like to fuck my '+iif($prostitute['client_scene'] = 'Vaginal', 'pussy', 'ass')+' but I''m not up for that today."'
  278. *nl
  279. '"Shit? Really?" You nod and he looks disheartened. After a moment he shrugs and throws you a grin. "Don''t worry about it <<$prostitute_names[''street'']>>, it''s fine, you''re always worth the wait."'
  280. *nl
  281. '"Thanks," you say and step away from the car.'+iif(prostitute['std_mod'] = 1 and prezikcount = 0, ' As you walk away you think about your decision for a moment. In the end it was the right choice, he was always nice to you and without a condom he surely would catch your STD.', '')
  282. act 'Continue': gt $loc, 'work'
  283. end
  284. ! [x] First check over
  285. if $ARGS[0] = 'client_regular_success':
  286. CLOSE ALL
  287. if sound = 0:PLAY 'sound/highway.mp3',5
  288. *clr & cla
  289. minut += 5
  290. prostitute['regular_timer'] = daystart
  291. !!gs 'prostitution_functions', 'acceptance_check', 'regular'
  292. gs 'stat'
  293. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/drive.mp4"></video></center>'
  294. 'You get into his car and he takes you to your regular spot at the end of the parking lot.'
  295. act 'Continue':
  296. *clr & cla
  297. if rand(1,10) < 4 and prostitute['skip_start'] = 0:
  298. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/money_0a.mp4"></video></center>'
  299. 'You don''t want to say anything about the money, it always dampens the mood if you have to remind your clients to pay upfront. But with him you always have to say something. The instant he stops the car he reaches out for your top and touches your breasts.'
  300. '"Show them to me," he murmurs and together you free your tits from your top. "I love those. They''re perfect."'
  301. '"Thanks," you say as he grabs your right boob and squeezes it with a look on his face of a teenage boy that sees one of those for the first time.'
  302. 'You laugh and smile, but also...'
  303. gs 'arousal', 'breasts', 2
  304. gs 'stat'
  305. act 'Remind him to pay you':
  306. *clr & cla
  307. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/money_0b.mp4"></video></center>'
  308. '"You have to pay me first," you tell him quietly, but he doesn''t listen. Instead he eagerly puts one of your nipples inside your mouth and starts to suck on them. "Please, you know you have to pay first." You remind him again.'
  309. '"Fine," he sighs and jokes: "But they taste so good," stretching the ''so'' ridiculously long.'
  310. 'You laugh and shake your head. "Come on," you grin when he doesn''t stop and push him away.'
  311. '"OK, Ok, I''ll get your money."'
  312. *nl
  313. '"Happy?" He asks as you take the <<prostitute[''payment'']>> <b>₽</b>.'+iif(prostitute['payment_method'] = 1, '', ' You keep it separated from your own money until you can settle everything with Volya tonight.')
  314. '"Yes, now let me make you happy," you reply.'
  315. gs 'arousal', 'breasts', 2
  316. prostitute['earnings_day'] += prostitute['payment']
  317. if prostitute['payment_method'] = 1: money += prostitute['payment']
  318. prostitute['payment'] = 0
  319. gs 'stat'
  320. act 'Continue': gt 'prostitution_car_sex', 'regular_start'
  321. end
  322. else
  323. minut += 2
  324. '<center><video autoplay loop src="images/shared/prostitution/car/regular/negotiation/money_1.mp4"></video></center>'
  325. 'You don''t want to say anything about the money, it always dampens the mood if you have to remind your clients to pay upfront. But with him you don''t have to. The instant he stops the car, he pulls out his wallet and hands you the money. He even makes sure that you see that everything is there without you having to count it yourself.'
  326. '"Thanks," you say and take the <<prostitute[''payment'']>> <b>₽</b>.'+iif(prostitute['payment_method'] = 1, '', ' You keep it separated from your own money until you can settle everything with Volya tonight.')
  327. *nl
  328. 'Now it''s for you to keep up your end of the bargain.'
  329. prostitute['earnings_day'] += prostitute['payment']
  330. if prostitute['payment_method'] = 1: money += prostitute['payment']
  331. prostitute['payment'] = 0
  332. gs 'stat'
  333. if prostitute['skip_start'] = 1:
  334. gt 'prostitution_car_sex', 'regular_start'
  335. else
  336. act 'Get undressed': gt 'prostitution_car_sex', 'regular_start'
  337. end
  338. end
  339. end
  340. end
  341. !!------ Normal Client ------
  342. ! [x] First check over
  343. if $ARGS[0] = 'negotiation_start':
  344. *clr & cla
  345. minut += 2
  346. gs 'stat'
  347. if prostitute_auto['normal'] = 1: gt 'prostitution_car_negotiation', 'negotiation_automatic'
  348. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
  349. iif(prostitute['propose'] = 0, 'You lean into his car and chat with him about the price and what he likes and dislikes.' , iif(prostitute['propose'] = 2, 'He doesn''t like your suggestion and instead offers something else.', 'You chat with him about the price.'))+' At the end of your conversation he takes a good look at you and '+iif(prostitute['std_mod'] = 0, 'asks you if you do it with or without a condom.', 'tells you that you don''t look healthy and he won''t do it without a condom')
  350. *nl
  351. 'You are negotiating with the client:'
  352. 'Sex: <<$prostitute[''client_scene'']>>'
  353. gs 'prostitution_functions', 'payment', 'condom_yes', 'not_discussed'
  354. 'Payment with condom: <<prostitute[''payment'']>> <b>₽</b>'
  355. if prostitute['std_mod'] = 0:
  356. gs 'prostitution_functions', 'payment', 'condom_no', 'not_discussed'
  357. 'Payment without condom: <<prostitute[''payment'']>> <b>₽</b>'
  358. end
  359. if prostitute['propose'] = 0:
  360. *nl
  361. if prostitute['enema'] = 0: iif(prostitute['dirty_anal_mod'] = 0, 'He hates', 'He admits that he loves')+' anal sex with a girl that didn''t clean herself and he will pay significantly '+iif(prostitute['dirty_anal_mod'] = 0, 'less', 'more')+' for it.'
  362. if mesec > 0: iif(prostitute['mesec_mod'] = 0, 'He doesn''t like', 'He tells you that he likes')+' to fuck girls that have their period.'
  363. end
  364. if prezikcount > 0 and (prostitute['std_mod'] = 1 or prostitute['propose'] = 2):
  365. gs 'willpower', 'prostitution', 'resist'
  366. if will_cost <= pcs_willpwr:
  367. act 'Decline and move away (<<will_cost>> Willpower)':
  368. gs 'willpower', 'pay', 'resist'
  369. gt $loc, 'work'
  370. end
  371. else
  372. act 'Decline and move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  373. end
  374. elseif prostitute['propose'] = 0 and prostitute['std_mod'] = 0:
  375. gs 'willpower', 'prostitution', 'resist'
  376. if will_cost <= pcs_willpwr:
  377. act 'Decline and move away (<<will_cost>> Willpower)':
  378. gs 'willpower', 'prostitution', 'resist'
  379. gs 'willpower', 'pay', 'resist'
  380. gt $loc, 'work'
  381. end
  382. else
  383. act 'Decline and move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  384. end
  385. gs 'willpower', 'prostitution', 'resist', 'easy'
  386. if will_cost <= pcs_willpwr:
  387. if rand(1,10) < 9:
  388. if $prostitute['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<<will_cost>> Willpower)': prostitute['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $prostitute['client_scene'] = 'Blowjob' & prostitute['propose'] = 1 & gt 'prostitution_car_negotiation', 'negotiation_start'
  389. if $prostitute['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<<will_cost>> Willpower)': prostitute['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $prostitute['client_scene'] = 'Anal' & prostitute['propose'] = 1 & gt 'prostitution_car_negotiation', 'negotiation_start'
  390. if $prostitute['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<<will_cost>> Willpower)': prostitute['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $prostitute['client_scene'] = 'Vaginal' & prostitute['propose'] = 1 & gt 'prostitution_car_negotiation', 'negotiation_start'
  391. else
  392. if $prostitute['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'prostitution_car_negotiation', 'negotiation_fail'
  393. if $prostitute['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'prostitution_car_negotiation', 'negotiation_fail'
  394. if $prostitute['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'prostitution_car_negotiation', 'negotiation_fail'
  395. end
  396. else
  397. if $prostitute['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  398. if $prostitute['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  399. if $prostitute['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  400. end
  401. end
  402. if prezikcount > 0 and prostitute['std_mod'] = 0:
  403. act 'Insist on a condom': $prostitute_client_condom = 'Yes' & gt 'prostitution_car_negotiation', 'negotiation_condom_yes'
  404. elseif prezikcount > 0 and prostitute['std_mod'] = 1:
  405. act 'Accept and use a condom': $prostitute_client_condom = 'Yes' & gt 'prostitution_car_negotiation', 'negotiation_condom_yes'
  406. end
  407. if prostitute['std_mod'] = 0:
  408. act 'Don''t insist on a condom': $prostitute_client_condom = 'No' & gt 'prostitution_car_negotiation', 'negotiation_condom_no'
  409. elseif prezikcount = 0 and prostitute['std_mod'] = 1:
  410. act 'Tell him you don''t have a condom':
  411. if rand(1,10) < 9:
  412. gt 'prostitution_car_negotiation', 'negotiation_fail'
  413. else
  414. cla & *nl
  415. $prostitute['client_scene'] = 'Blowjob'
  416. 'After a moment he reluctantly accepts doing it without a condom'+iif($prostitute['client_scene'] = 'Blowjob', '.', ', but he changed his mind and doesn''t want more than a blowjob.')
  417. *nl
  418. 'Sex: <<$prostitute[''client_scene'']>>'
  419. gs 'prostitution_functions', 'payment', 'condom_no', 'not_discussed'
  420. 'New payment: <<prostitute[''payment'']>> <b>₽</b>'
  421. gs 'prostitution_functions', 'will_unprotected', 'resist'
  422. if will_cost <= pcs_willpwr:
  423. act 'Decline and move away (<<will_cost>> Willpower)':
  424. gs 'willpower', 'pay', 'resist'
  425. gt $loc, 'work'
  426. end
  427. else
  428. act 'Decline and move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  429. end
  430. act 'Accept': $prostitute_client_condom = 'No' & gt 'prostitution_car_negotiation', 'negotiation_condom_no'
  431. end
  432. end
  433. end
  434. end
  435. ! [x] First check over
  436. if $ARGS[0] = 'negotiation_condom_yes':
  437. *clr & cla
  438. minut += 2
  439. gs 'stat'
  440. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
  441. gs 'prostitution_functions', 'payment', 'condom_yes', 'Outside or Condom'
  442. *nl
  443. 'You are negotiating with your client:'
  444. 'Sex: <<$prostitute[''client_scene'']>>'
  445. 'Payment: <<prostitute[''payment'']>> <b>₽</b>'
  446. 'Condom: <<$prostitute_client_condom>>'
  447. *nl
  448. if prostitute['std_mod'] = 1 or rand(1,10) < 7 or ($prostitute['client_scene'] = 'Vaginal' and mesec > 0 and prostitute['mesec_mod'] = 0) or ($prostitute['client_scene'] = 'Anal' and prostitute['enema'] = 0 and prostitute['dirty_anal_mod'] = 0):
  449. if prostitute['std_mod'] = 1:
  450. '"Ok, get in'+iif(rand(1,10) < 7, ', but you really don''t look well, you should let somebody take a look at that.', ' and be glad I let you touch me, filthy whore.')+'," he says.'
  451. else
  452. '"Ok, get in'+iif(rand(1,10) < 7, ' girl', ' whore')+'," he says.'
  453. end
  454. act 'Get into his car':
  455. $prostitute_client_cumshot = 'Outside or Condom'
  456. gs 'prostitution_functions', 'payment', 'condom_yes', 'Outside or Condom'
  457. gt 'prostitution_car_negotiation', 'negotiation_success'
  458. end
  459. else
  460. gs 'prostitution_functions', 'payment', 'condom_no', 'not_discussed'
  461. 'He asks you to forgo the condom. He would pay at least <<prostitute[''payment'']>> <b>₽</b> and even more if you '+iif($prostitute['client_scene'] = 'Blowjob', 'swallow his cum.', 'let him cum inside you.')
  462. gs 'prostitution_functions', 'will_unprotected', 'resist'
  463. if will_cost <= pcs_willpwr:
  464. act 'Decline (<<will_cost>> Willpower)':
  465. cla & *nl
  466. gs 'willpower', 'pay', 'resist'
  467. if rand(1,10) < 7:
  468. 'He finally accepts.'
  469. $prostitute_client_cumshot = 'Outside or Condom'
  470. prostitute['client_satisfaction'] -= 10
  471. gs 'prostitution_functions', 'payment', 'condom_yes', 'inside_no'
  472. act 'Get into his car': gt 'prostitution_car_negotiation', 'negotiation_success'
  473. else
  474. prostitute['fail_condom'] = 1
  475. gt 'prostitution_car_negotiation', 'negotiation_fail'
  476. end
  477. end
  478. else
  479. act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  480. end
  481. act 'Accept': $prostitute_client_condom = 'No' & gt 'prostitution_car_negotiation', 'negotiation_condom_no'
  482. end
  483. end
  484. ! [x] First check over
  485. if $ARGS[0] = 'negotiation_condom_no':
  486. *clr & cla
  487. minut += 2
  488. gs 'stat'
  489. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
  490. gs 'prostitution_functions', 'payment', 'condom_no', 'not_discussed'
  491. *nl
  492. 'You are negotiating with your client:'
  493. 'Sex: <<$prostitute[''client_scene'']>>'
  494. 'Payment: <<prostitute[''payment'']>> <b>₽</b>'
  495. 'Condom: <<$prostitute_client_condom>>'
  496. *nl
  497. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  498. 'He asks you if you would '+iif($prostitute['client_scene'] = 'Blowjob', 'swallow his cum.', 'let him cum inside you.')+' He offers to pay you <<prostitute[''payment'']>> <b>₽</b> if you do.'
  499. if $prostitute['client_scene'] = 'Anal':
  500. gs 'willpower', 'cum_inside_anal', 'resist'
  501. elseif $prostitute['client_scene'] = 'Blowjob':
  502. gs 'willpower', 'swallow', 'resist'
  503. else
  504. gs 'willpower', 'cum_inside', 'resist'
  505. end
  506. if will_cost <= pcs_willpwr:
  507. act 'Decline (<<will_cost>> Willpower)':
  508. cla & *nl
  509. gs 'willpower', 'pay', 'resist'
  510. if rand(1,10) < 10 or prostitute['client_creampie'] = 1:
  511. 'He accepts your decision.'
  512. $prostitute_client_cumshot = 'Outside'
  513. prostitute['client_satisfaction'] -= 10
  514. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_no'
  515. act 'Get into his car': gt 'prostitution_car_negotiation', 'negotiation_success'
  516. else
  517. prostitute['fail_creampie'] = 1
  518. gt 'prostitution_car_negotiation', 'negotiation_fail'
  519. end
  520. end
  521. else
  522. act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  523. end
  524. act 'Accept and get into his car':
  525. $prostitute_client_cumshot = 'Inside'
  526. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  527. gt 'prostitution_car_negotiation', 'negotiation_success'
  528. end
  529. end
  530. ! [x] First check over
  531. if $ARGS[0] = 'negotiation_automatic':
  532. prostitute_auto['negotiation'] = 1
  533. gs 'willpower', 'prostitution', 'resist'
  534. if ((prostitute_auto['norm_bj'] = 0 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag'] = 0 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal'] = 0 and $prostitute['client_scene'] = 'Anal')) and will_cost <= pcs_willpwr:
  535. gs 'willpower', 'pay', 'resist'
  536. gt 'prostitution_car_negotiation', 'negotiation_fail'
  537. else
  538. if ((prostitute_auto['norm_bj'] = 0 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag'] = 0 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal'] = 0 and $prostitute['client_scene'] = 'Anal')): prostitute_auto['willpower'] = 1
  539. if ((prostitute_auto['norm_bj_condom'] = 1 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag_condom'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal_condom'] = 1 and $prostitute['client_scene'] = 'Anal')) and prezikcount > 0:
  540. gs 'prostitution_functions', 'will_unprotected', 'resist'
  541. if prostitute['std_mod'] = 1 or rand(1,10) < 7 or ($prostitute['client_scene'] = 'Vaginal' and mesec > 0 and prostitute['mesec_mod'] = 0) or ($prostitute['client_scene'] = 'Anal' and prostitute['enema'] = 0 and prostitute['dirty_anal_mod'] = 0):
  542. $prostitute_client_condom = 'Yes'
  543. $prostitute_client_cumshot = 'Outside or Condom'
  544. gs 'prostitution_functions', 'payment', 'condom_yes', 'inside_no'
  545. elseif will_cost <= pcs_willpwr:
  546. $prostitute_client_condom = 'Yes'
  547. $prostitute_client_cumshot = 'Outside or Condom'
  548. prostitute['client_satisfaction'] -= 10
  549. gs 'willpower', 'pay', 'resist'
  550. gs 'prostitution_functions', 'payment', 'condom_yes', 'inside_no'
  551. if rand(1,10) < 4:
  552. prostitute['fail_condom'] = 1
  553. gt 'prostitution_car_negotiation', 'negotiation_fail'
  554. end
  555. else
  556. if $prostitute['client_scene'] = 'Anal':
  557. gs 'willpower', 'cum_inside_anal', 'resist'
  558. elseif $prostitute['client_scene'] = 'Blowjob':
  559. gs 'willpower', 'swallow', 'resist'
  560. else
  561. gs 'willpower', 'cum_inside', 'resist'
  562. end
  563. if will_cost <= pcs_willpwr:
  564. $prostitute_client_condom = 'No'
  565. $prostitute_client_cumshot = 'Outside'
  566. prostitute['client_satisfaction'] -= 10
  567. gs 'willpower', 'pay', 'resist'
  568. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_no'
  569. if rand(1,10) = 10 and prostitute['client_creampie'] = 0: gt 'prostitution_car_negotiation', 'negotiation_fail'
  570. else
  571. prostitute_auto['willpower'] = 1
  572. $prostitute_client_condom = 'No'
  573. $prostitute_client_cumshot = 'Inside'
  574. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  575. end
  576. end
  577. gt 'prostitution_car_negotiation', 'negotiation_success'
  578. elseif rand(1,10) < 9 and prostitute['std_mod'] = 1:
  579. gt 'prostitution_car_negotiation', 'negotiation_fail'
  580. else
  581. $prostitute_client_condom = 'No'
  582. gs 'prostitution_functions', 'will_unprotected', 'resist'
  583. if ((prostitute_auto['norm_bj_creampie'] = 1 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag_creampie'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal_creampie'] = 1 and $prostitute['client_scene'] = 'Anal')):
  584. $prostitute_client_cumshot = 'Inside'
  585. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  586. elseif will_cost <= pcs_willpwr:
  587. $prostitute_client_cumshot = 'Outside'
  588. prostitute['client_satisfaction'] -= 10
  589. gs 'willpower', 'pay', 'resist'
  590. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_no'
  591. if rand(1,10) = 10 and prostitute['client_creampie'] = 0:
  592. prostitute['fail_creampie'] = 1
  593. gt 'prostitution_car_negotiation', 'negotiation_fail'
  594. end
  595. else
  596. prostitute_auto['willpower'] = 1
  597. $prostitute_client_cumshot = 'Inside'
  598. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  599. end
  600. gt 'prostitution_car_negotiation', 'negotiation_success'
  601. end
  602. end
  603. end
  604. ! [x] First check over
  605. if $ARGS[0] = 'negotiation_fail':
  606. *clr & cla
  607. minut += 2
  608. gs 'stat'
  609. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/leave_walk.mp4"></video></center>'
  610. 'He shakes his head. "I have changed my mind'+iif(rand(1,10) < 7, '", sorry girl maybe next time."', ', bitch. Get away from my car."')+' He says.'
  611. act 'Step back from the car':
  612. prostitute['fail_pay'] = 0
  613. prostitute['client_satisfaction'] = 0
  614. gt $loc, 'work'
  615. end
  616. if prostitute['fail_condom'] = 1:
  617. prostitute['fail_condom'] = 0
  618. act 'Change your mind and do it without a condom': gt 'prostitution_car_negotiation', 'negotiation_condom_no'
  619. elseif prostitute['fail_creampie'] = 1:
  620. prostitute['fail_creampie'] = 0
  621. act 'Change your mind and allow him to cum inside you':
  622. $prostitute_client_cumshot = 'Inside'
  623. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  624. gt 'prostitution_car_negotiation', 'negotiation_success'
  625. end
  626. elseif prostitute['fail_pay'] = 1:
  627. act 'Change your mind and accept his offer':
  628. $prostitute_client_cumshot = 'Inside'
  629. gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
  630. gt 'prostitution_car_negotiation', 'negotiation_success'
  631. end
  632. end
  633. end
  634. ! [x] First check over
  635. if $ARGS[0] = 'negotiation_success':
  636. CLOSE ALL
  637. if sound = 0:PLAY 'sound/highway.mp3',5
  638. *clr & cla
  639. minut += 2
  640. gs 'stat'
  641. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/drive.mp4"></video></center>'
  642. if prostitute_auto['negotiation'] = 1:
  643. 'You have negotiated the following'+iif(prostitute_auto['willpower'] = 1, ', but you didn''t have enough willpower to resist all of his demands:', ':')
  644. 'Sex: <<$prostitute[''client_scene'']>>'
  645. 'Payment: <<prostitute[''payment'']>> <b>₽</b>'
  646. 'Condom: <<$prostitute_client_condom>>'
  647. 'Cumshot: '+iif($prostitute_client_cumshot = 'Outside or Condom', 'Outside', '<<$prostitute_client_cumshot>>')
  648. prostitute_auto['willpower'] = 0
  649. prostitute_auto['negotiation'] = 0
  650. *nl
  651. end
  652. 'You get inside the car and tell him to drive to a more secluded part of the parking lot.'+iif(rand(1,10) < 4, 'His right hand immediately moves onto your thigh and he slowly strokes it and he is clearly distracted as he slowly drives the car to the end of the parking space.', '')
  653. *nl
  654. if $prostitute_client_condom = 'No': prostitute_stat['unprotected'] += 1
  655. if prostitute['client_satisfaction'] < 0 and prostitute['fail_pay'] = 0:
  656. 'You get the feeling that he isn''t satisfied with all the choices and that he would have paid 10% or maybe even 20% more. You could try to convince him to pay you a bit more.'
  657. act 'Don''t haggle': gt 'prostitution_car_negotiation', 'money'
  658. gs 'prostitution_functions', 'will_acceptance', 'force'
  659. will_cost = (will_cost * iif(prostitute['client_satisfaction'] = -10, 20, 40)) / 100
  660. if will_cost < 3: will_cost = 3
  661. if will_cost <= pcs_willpwr:
  662. act 'Ask for more money (<<will_cost>> Willpower)':
  663. cla & *nl
  664. gs 'willpower', 'pay', 'force'
  665. if rand(1,10) = 10:
  666. prostitute['fail_pay'] = 1
  667. gt 'prostitution_car_negotiation', 'negotiation_fail'
  668. end
  669. prostitute['payment'] = prostitute['payment_backup']
  670. gs 'stat'
  671. 'He grudgingly accepts and agrees to pay you <<prostitute[''payment'']>> <b>₽</b> instead.'
  672. act 'Continue': gt 'prostitution_car_negotiation', 'money'
  673. end
  674. else
  675. act 'Ask for more money (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  676. end
  677. else
  678. prostitute['fail_pay'] = 0
  679. 'When you arrive you have only one thing left to do...'
  680. if prostitute['skip_start'] = 1:
  681. gt 'prostitution_car_negotiation', 'money'
  682. else
  683. act '... ask for your money': gt 'prostitution_car_negotiation', 'money'
  684. end
  685. end
  686. end
  687. ! [x] First check over
  688. if $ARGS[0] = 'money':
  689. *clr & cla
  690. minut += 2
  691. prostitute['client_satisfaction'] = 0
  692. '<center><video autoplay loop src="images/shared/prostitution/car/normal/negotiation/money.mp4"></video></center>'
  693. '"So...," you say when he parks his car, but he already knows what you''re going to say. "Yeah, I know, you want your money."'
  694. 'He pulls out his wallet and hands you <<prostitute[''payment'']>> <b>₽</b>.'+iif(prostitute['payment_method'] = 1, '', ' You keep it separated from your own money until you can settle everything with Volya tonight.')
  695. prostitute['earnings_day'] += prostitute['payment']
  696. if prostitute['payment_method'] = 1: money += prostitute['payment']
  697. prostitute['payment'] = 0
  698. !!gs 'prostitution_functions', 'acceptance_check', 'normal'
  699. gs 'stat'
  700. '<br>The moment you have put your money away his hands move to your body starting to undress you.'
  701. if prostitute['skip_start'] = 1:
  702. gt 'prostitution_car_sex', 'start'
  703. else
  704. act 'Get to work': gt 'prostitution_car_sex', 'start'
  705. end
  706. end
  707. --- prostitution_car_negotiation ---------------------------------