pav_shared_apt.qsrc 42 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884
  1. # pav_shared_apt
  2. gs 'themes', 'indoors'
  3. close all
  4. if $ARGS[0] = 'update':
  5. shared_apt['rentWeekly']= 2000
  6. if shared_apt['rentLeft'] <= 0:shared_apt['rentLeft'] = 0
  7. !how much of the unpaid weekly rent is left
  8. if orgB > 100:orgB = 100
  9. shared_apt['price_cook'] = 50
  10. shared_apt['price_clean'] = 50
  11. shared_apt['price_handjob'] = 50
  12. shared_apt['price_blowjob'] = 100
  13. shared_apt['price_vaginal'] = 150
  14. shared_apt['price_anal'] = 200
  15. shared_apt['price_special'] = 250
  16. ! time calculations
  17. weekNum = (daystart - (daystart mod 7)) / 7
  18. ! pcs setup
  19. $pcs_font = '990099'
  20. !pink
  21. ! shared_apt['servitudeLvl'] = 0 - no service, pays rent
  22. ! shared_apt['servitudeLvl'] = 1 - nonsexual service
  23. ! shared_apt['servitudeLvl'] = 2 - sexual and nonsexual service
  24. $Oleg['font'] = '007bff' &!blue
  25. Oleg['leaves'] = 9
  26. Oleg['comes'] = 18
  27. Oleg['sleeps'] = 23
  28. Oleg['wakes'] = 8
  29. $Nestor['font'] = '8a0000' &!red
  30. Nestor['leaves'] = 11
  31. Nestor['comes'] = 19
  32. Nestor['sleeps'] = 23
  33. Nestor['wakes'] = 9
  34. $Yakov['font'] = '017a01' &!green
  35. Yakov['leaves'] = 7
  36. Yakov['comes'] = 16
  37. Yakov['sleeps'] = 22
  38. Yakov['wakes'] = 5
  39. !flag if there was already a sex between him and Sveta
  40. !Yakov['bj'] ; Yakov['bjDeep'] ; Yakov['swall'] ; Yakov['vag'] ; Yakov['vagCumInside'] ; Yakov['vagCumInsideUnwanted'] ; Yakov['anal'] ; Yakov['analCumInside'] ; Yakov['analCumInsideUnwanted']
  41. !mood setup
  42. $Oleg['mood'] = iif(Oleg['mood'] = 1, 'great', '') + iif(Oleg['mood'] = 2, 'good', '') + iif(Oleg['mood'] = 3, 'nice', '') + iif(Oleg['mood'] = 4, 'fine', '') + iif(Oleg['mood'] = 5, 'neutral', '') + iif(Oleg['mood'] = 6, 'okay', '') + iif(Oleg['mood'] = 7, 'bad', '') + iif(Oleg['mood'] = 8, 'terrible', '') + iif(Oleg['mood'] = 9, 'awful', '') + iif(Oleg['mood'] = 10, 'horrible', '')
  43. $Nestor['mood'] = iif(Nestor['mood'] = 1, 'great', '') + iif(Nestor['mood'] = 2, 'good', '') + iif(Nestor['mood'] = 3, 'nice', '') + iif(Nestor['mood'] = 4, 'fine', '') + iif(Nestor['mood'] = 5, 'neutral', '') + iif(Nestor['mood'] = 6, 'okay', '') + iif(Nestor['mood'] = 7, 'bad', '') + iif(Nestor['mood'] = 8, 'terrible', '') + iif(Nestor['mood'] = 9, 'awful', '') + iif(Nestor['mood'] = 10, 'horrible', '')
  44. $Yakov['mood'] = iif(Yakov['mood'] = 1, 'great', '') + iif(Yakov['mood'] = 2, 'good', '') + iif(Yakov['mood'] = 3, 'nice', '') + iif(Yakov['mood'] = 4, 'fine', '') + iif(Yakov['mood'] = 5, 'neutral', '') + iif(Yakov['mood'] = 6, 'okay', '') + iif(Yakov['mood'] = 7, 'bad', '') + iif(Yakov['mood'] = 8, 'terrible', '') + iif(Yakov['mood'] = 9, 'awful', '') + iif(Yakov['mood'] = 10, 'horrible', '')
  45. gs 'stat'
  46. if shared_apt['debug'] = 0:
  47. elseif shared_apt['debug'] = 1:
  48. '<a href="exec:shared_apt[''debug'']=2">Debug</a>'
  49. elseif shared_apt['debug'] = 2:
  50. '<a href="exec:shared_apt[''debug'']=1">Debug Close</a>'
  51. '<a href="exec:shared_apt[''debug'']=0">Debug Disable</a>'
  52. '<<$npc_firstname[''A266'']>> relationship: <<$npc_rel[''A266'']>>'
  53. '<<$npc_firstname[''A265'']>> relationship: <<$npc_rel[''A265'']>>'
  54. '<<$npc_firstname[''A264'']>> relationship: <<$npc_rel[''A264'']>>'
  55. 'rentLeft: ' + shared_apt['rentLeft']
  56. 'weekNum: ' + shared_apt['weekNum']
  57. 'rentWeekNum: ' + shared_apt['rentWeekNum']
  58. 'servitudeLvl: ' + shared_apt['servitudeLvl']
  59. 'servicePaid: ' + shared_apt['servicePaid']
  60. 'cashPaid: ' + shared_apt['cashPaid']
  61. 'step: ' + shared_apt['step']
  62. 'subStep: ' + shared_apt['subStep']
  63. 'Nestor mood: ' + Nestor['mood']
  64. 'Oleg mood: ' + Oleg['mood']
  65. 'Yakov mood: ' + Yakov['mood']
  66. ''
  67. Oleg['served'] = 0
  68. Oleg['mood'] = 1
  69. Nestor['served'] = 0
  70. Nestor['mood'] = 1
  71. Yakov['mood'] = 1
  72. Yakov['served'] = 0
  73. end
  74. end
  75. ! accomodation advert
  76. if $ARGS[0] = 'advertNo30':
  77. $menu_loc = 'pav_shared_apt'
  78. $menu_arg = 'advertNo30'
  79. menu_off = 1
  80. minut += 2
  81. shared_apt['seenAd'] = 1
  82. gs 'stat'
  83. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/pod_ob'+rand(1,2)+'.jpg"></center>'
  84. '<br>As you pass by the advertisements, you notice a sign - "сдаeтся в аренду комната" (Room for rent!). Some guys are looking for a roommate. They live in an apartment in one of the other buildings in the apartment complex.'
  85. act 'Continue':gt 'pod_ezd','etaj_1'
  86. end
  87. ! door No 3 - shared
  88. if $ARGS[0] = 'doorNo30':
  89. CLOSE ALL
  90. $menu_loc = 'pav_shared_apt'
  91. $menu_arg = 'doorNo30'
  92. menu_off = 1
  93. act 'Go back outside':gt 'pav_complex', 'start'
  94. if shared_apt['enabled'] = 1:
  95. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
  96. '<br>You stand before the entry door to apartment No 30, the apartment you share with three others'
  97. act 'Go inside':gt 'pav_shared_apt', 'start'
  98. else
  99. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/aptno3door.jpg"></center>'
  100. '<br>You stand before the entry door to apartment No 30. There is a sign on the door saying - "сдаeтся в аренду комната" (Room for rent).'
  101. act 'Knock on the door':gt 'pav_shared_apt', 'intro'
  102. end
  103. end
  104. ! apt hall
  105. if $ARGS[0] = 'start':
  106. $menu_loc = 'pav_shared_apt'
  107. $menu_arg = 'start'
  108. menu_off = 0
  109. $locM = 'pav_shared_apt'
  110. $locM_arg = 'start'
  111. $loc = 'pav_shared_apt'
  112. $loc_arg = 'start'
  113. $location_type = 'private'
  114. killvar '$locclass'
  115. gs 'pav_shared_apt', 'update'
  116. if shared_apt['introDone'] = 0:gt 'pav_shared_apt', 'intro'
  117. minut += 2
  118. gs 'stat'
  119. gs 'courtletter'
  120. ! do this once a day
  121. if daystart >= tomorrow:
  122. tomorrow = daystart + 1
  123. Oleg['mood'] = rand(1, 10)
  124. Oleg['cleaned'] = 0
  125. Nestor['mood'] = rand(1, 10)
  126. Nestor['cleaned'] = 0
  127. Yakov['mood'] = rand(1, 10)
  128. Yakov['cleaned'] = 0
  129. end
  130. ! do this every time
  131. shared_apt['rentLeft'] = shared_apt['rentWeekly'] - shared_apt['servicePaid'] - shared_apt['cashPaid']
  132. '<center><h3>Hallway</h3></center>'
  133. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/hallway.jpg"></center>'
  134. 'It is week number <<shared_apt[''weekNum'']>>.'
  135. if shared_apt['weekNum'] < shared_apt['rentWeekNum']:
  136. if shared_apt['rentLeft'] > 0:
  137. 'You have <<shared_apt[''rentLeft'']>> <b>₽</b> of rent left to pay for the next week.'
  138. if shared_apt['servitudeLvl'] >= 1:
  139. 'You may still pay it in <a href="exec:gt ''pav_shared_apt'', ''payCash''">cash</a>, if you want.'
  140. else
  141. 'Pay it in <a href="exec:gt ''pav_shared_apt'', ''payCash''">cash</a>.'
  142. end
  143. else
  144. 'You have already paid the whole rent for the next week.'
  145. 'You can end your rental agreement and leave the apartment if you don''t want to stay here anymore.'
  146. end
  147. elseif shared_apt['weekNum'] >= shared_apt['rentWeekNum']:
  148. if shared_apt['rentLeft'] = 0:
  149. !rent was forepaid, everything OK, proceed to next week
  150. shared_apt['rentLeft'] += 2000
  151. shared_apt['cashPaid'] = 0
  152. shared_apt['servicePaid'] = 0
  153. shared_apt['rentWeekNum'] = shared_apt['weekNum'] + 1
  154. elseif shared_apt['rentLeft'] > 0:
  155. !rent was not fully paid
  156. 'You did not pay the whole rent for this week. You still have to pay <<shared_apt[''rentLeft'']>> <b>₽</b>.'
  157. if money >= shared_apt['rentLeft']:
  158. !not enough cash to pay it manually
  159. 'You still can pay it in <a href="exec:gt ''pav_shared_apt'', ''payCash''">cash</a>, otwerwise you''ll be kicked out!'
  160. else
  161. !in future add some way to serve your way out
  162. 'You do not have enough money to pay the rest of the rent in cash, even if you wanted to. Guess you''ll have to find a new living place...'
  163. shared_apt['rentPaid'] = 0
  164. shared_apt['enabled'] = 0
  165. gs 'homes_properties', 'block_access', 'shared_apartment', 0
  166. end
  167. end
  168. end
  169. act '<b>Leave and go outside</b>':
  170. if $clothingworntype ! 'nude':
  171. gt 'pav_complex', 'start'
  172. else
  173. msg'<b><font color = red>You need to get dressed.</font></b>'
  174. gt 'pav_shared_apt', 'start'
  175. end
  176. end
  177. if NatbelQW['QWstage'] >= 4 and week < 6 and hour = 7 and kanikuli = 0 and SchoolAtestat = 0 and SchoolBlock = 0 and (PCloStyle2 = 4 or cheatVars['school_clothing'] = 1):
  178. act 'Go pick up Natasha before school': gt 'natbelEv', 'carrybooks'
  179. end
  180. if shared_apt['rentPaid'] = 1:
  181. 'A large apartment currently serves as shared living. As well as the normal living spaces, there are four bedrooms, one rented by you and three occupied by <a href="exec: gt ''pav_shared_oleg'', ''Oleg_dick''"><font color=#<<$Oleg[''font'']>>><<$npc_firstname[''A266'']>></font></a>, <a href="exec: gt ''pav_shared_nestor'', ''Nestor_Dick''"><font color=#<<$Nestor[''font'']>>><<$npc_firstname[''A265'']>></font></a>, <a href="exec: gt ''pav_shared_yakov'', ''Yakov_Dick''"><font color=#<<$Yakov[''font'']>>><<$npc_firstname[''A264'']>></font></a>.'
  182. 'You stand in the hallway.'
  183. *nl
  184. 'From the hallway, several doors lead to <a href="exec:gt ''pav_shared_apt'', ''Oleg_Room''"><<$npc_firstname[''A266'']>>''s</a>, <a href="exec:gt ''pav_shared_apt'', ''Nestor_Room''"><<$npc_firstname[''A265'']>>''s</a>, and <a href="exec:gt ''pav_shared_apt'', ''Yakov_Room''"><<$npc_firstname[''A264'']>>''s</a> rooms.'
  185. 'The last doors lead to the <a href="exec:gt ''pav_shared_apt'', ''pcsRoom''">room</a> you have rented.'
  186. *nl
  187. !! Wardrobe is here because Sveta''s bedroom is actually the unused living room, with no wardrobe, so she is using the hall cupboard.
  188. 'There are no cupboards in your living room cum bedroom, but there are several hall <a href="exec:gt ''wardrobe'', ''start''">closets</a> that you can use to store your clothes</a>, with a large tall <a href="exec:gt ''mirror'', ''start''">mirror</a> attached.'
  189. *nl
  190. if shared_apt['servitudeLvl'] >= 1:'A computer-printed <a href="exec:gt ''pav_shared_apt'', ''list''">list</a> hangs on the exit door.' & *nl
  191. act 'Go to your room':gt 'pav_shared_apt', 'pcsRoom'
  192. act 'Go to the bathroom':gt 'pav_shared_apt', 'bathroom'
  193. act 'Go to the kitchen':gt 'pav_shared_apt', 'kitchen'
  194. act '<font color=#<<$Oleg[''font'']>>><<$npc_firstname[''A266'']>>''s room</font>':gt 'pav_shared_apt', 'Oleg_Room'
  195. act '<font color=#<<$Nestor[''font'']>>><<$npc_firstname[''A265'']>>''s room</font>':gt 'pav_shared_apt', 'Nestor_Room'
  196. act '<font color=#<<$Yakov[''font'']>>><<$npc_firstname[''A264'']>>''s room</font>':gt 'pav_shared_apt', 'Yakov_Room'
  197. gs 'wardrobe', 'default_clothing_options'
  198. if shared_apt['rentLeft'] = 0:
  199. act '<font color=red>End your rental agreement and move out</font>':gt 'pav_shared_apt', 'eoleg_agreement'
  200. end
  201. if func('homes_properties', 'is_current_home') = 0:
  202. act 'Set this apartment as your main home':gs 'homes_properties', 'set_home' & gt 'pav_shared_apt', 'start'
  203. end
  204. end
  205. !! NOTE:If Sveta has access to her parents home then she leaves the kids there
  206. if func('homes_properties', 'has_access', 'parents_home') = 0 and kid > 0:
  207. *clr & cla
  208. shared_apt['pavIntroStep'] = 0
  209. shared_apt['introDone'] = 0
  210. minut += 5
  211. !Need to have some actual story to this with NPC reactions.
  212. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/revenge/crying.jpg"></center>'
  213. 'You''ve been kicked out of the apartment for having children.'
  214. shared_apt['enabled'] = 0
  215. gs 'homes_properties', 'block_access'
  216. act 'Leave':gt 'pav_complex', 'start'
  217. end
  218. if $clothingworntype = 'nude' and shared_apt['enabled'] = 0: gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & gs 'shoes', 'wear', 'last_worn' & gs 'stat'
  219. end
  220. if $ARGS[0] = 'payCash':
  221. menu_off = 1
  222. minut += 2
  223. if money >= shared_apt['rentLeft']:
  224. 'You have decided to pay the remainder of the weekly rent ('+shared_apt['rentLeft']+'<b>₽</b>) with cash.'
  225. shared_apt['cashPaid'] += shared_apt['rentLeft']
  226. money -= shared_apt['rentLeft']
  227. shared_apt['rentPaid'] = 1
  228. shared_apt['enabled'] = 1
  229. gs 'homes_properties', 'give_access'
  230. else
  231. 'You do not have enough cash to pay for the rest of your rent.'
  232. end
  233. act 'Proceed':gt 'pav_shared_apt', 'start'
  234. end
  235. if $ARGS[0] = 'payService':
  236. menu_off = 1
  237. minut += 1
  238. 'The amount '+shared_apt['price']+' <b>₽</b> was taken off of your weekly rent.'
  239. shared_apt['servicePaid'] += shared_apt['price']
  240. act 'Continue':gt 'pav_shared_apt', 'start'
  241. end
  242. if $ARGS[0] = 'rentSetup':
  243. menu_off = 1
  244. minut += 2
  245. 'You get a list of paper, saying the weekly rent is <<shared_apt[''rentWeekly'']>> <b>₽</b>.'
  246. shared_apt['rentPaid'] = 1
  247. shared_apt['introDone'] = 1
  248. shared_apt['rentWeekNum'] = (daystart - (daystart mod 7)) / 7 + 1
  249. act 'Continue':gt 'pav_shared_apt', 'start'
  250. end
  251. if $ARGS[0] = 'intro':
  252. menu_off = 1
  253. gs 'pav_shared_apt', 'update'
  254. if shared_apt['step'] > 0:
  255. '<center><img border="5" bordercolor="<<$Yakov[''font'']>>" height="150" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img height="150" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="150" src="images/locations/pavlovsk/resident/sharedapt/nd/nd.jpg"></center>'
  256. ''
  257. end
  258. if shared_apt['pavIntroStep'] = 0:
  259. minut += 2
  260. shared_apt['pavIntroStep'] = 1
  261. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
  262. ''
  263. 'The door is opened by a young, nice-looking athletic man.'
  264. '<font color=#<<$Yakov[''font'']>>>"Hi sweetie! What do you need?"</font>'
  265. '<font color=#<<$pcs_font>>>"Hello, my name is <<$pcs_firstname>> <<$pcs_lastname>>. I''ve seen the advert that someone here have a spare room for rent?"</font>'
  266. '<font color=#<<$Yakov[''font'']>>>"Yeah, that''s true. Come in, I''ll call the guys and we can talk about it. I''m <<$npc_firstname[''A264'']>> by the way."</font>'
  267. act 'Go in':gt 'pav_shared_apt', 'intro'
  268. elseif shared_apt['pavIntroStep'] = 1:
  269. minut += 3
  270. shared_apt['pavIntroStep'] = 2
  271. 'You enter a hallway filled with coats and shoes, indicating that 3 or 4 people live here.'
  272. 'The guy disappears into one of the rooms, and you overhear him talking to someone.'
  273. 'They attempt to speak quietly, but you catch a sentence or two...:'
  274. ''
  275. '"...a girl, I tell you..." "...nice one, really, with nice round features, man..." "...better than another guy, idiot..." "...ok, ok, just be done with it..."'
  276. ''
  277. 'After a while, three young men emerge in the hallway.'
  278. '<font color=#<<$Yakov[''font'']>>>"So, that''s her, guys. <<$pcs_firstname>>, could you introduce yourself to these guys?"</font>'
  279. '<font color=#<<$pcs_font>>>"Hello, I''m <<$pcs_firstname>> <<$pcs_lastname>>. I''d like to rent the empty room in your apartment."</font>'
  280. '<font color=#<<$Nestor[''font'']>>>"Well, now that''s what I like! Finally, this won''t be such a dull party!"</font>'
  281. '<font color=#<<$Oleg[''font'']>>>"<<$pcs_firstname>>, please excuse my friend, <<$npc_firstname[''A265'']>>. He can be quite rude. I''m <<$npc_firstname[''A266'']>>."</font>'
  282. '<font color=#<<$Nestor[''font'']>>>"Yup, I''m <<$npc_firstname[''A265'']>>."</font>'
  283. '<font color=#<<$Oleg[''font'']>>>"So, you want to live here with us?"</font>'
  284. '<font color=#<<$pcs_font>>>"Yes, I need a new place to stay."</font>'
  285. '<font color=#<<$Nestor[''font'']>>>"How old are you, girl?"</font>'
  286. '<font color=#<<$Oleg[''font'']>>>"<<$npc_firstname[''A265'']>>, not this again!"</font>'
  287. '<font color=#<<$pcs_font>>>"It''s okay. I''m actually <<age>> years old. Why do you ask?"</font>'
  288. '<font color=#<<$Oleg[''font'']>>>"He''s just an idiot; don''t listen to him."</font>'
  289. if age < 18:
  290. '(You can see <<$npc_firstname[''A265'']>> rub his crotch just a brief moment after you told him your age. What''s he up to?)'
  291. end
  292. if knowpreg = 1:
  293. act 'Ask about children':
  294. cla
  295. shared_apt['pavIntroStep'] = 50
  296. '<font color=#<<$pcs_font>>>"I thought I should tell you, I''m currently pregnant. How do you feel about having children in the apartment, will this be a problem?"</font>'
  297. act 'continue':gt 'pav_shared_apt', 'intro'
  298. end
  299. elseif kid > 0:
  300. act 'Ask about children':
  301. cla
  302. shared_apt['pavIntroStep'] = 50
  303. '<font color=#<<$pcs_font>>>"I thought I should tell, I''m a mother. How do you feel about having children in the apartment, will this be a problem?"</font>'
  304. act 'continue':gt 'pav_shared_apt', 'intro'
  305. end
  306. else
  307. act 'Continue':gt 'pav_shared_apt', 'intro'
  308. end
  309. elseif shared_apt['pavIntroStep'] = 2:
  310. minut += 3
  311. shared_apt['pavIntroStep'] = 3
  312. '<font color=#<<$pcs_font>>>"So what do you guys say, will you take me in?"</font>'
  313. '<font color=#<<$Oleg[''font'']>>>"We may. But first, do you have the money to pay the rent?"</font>'
  314. '<font color=#<<$pcs_font>>>"Well, of course I don''t expect to let me live here for free. But I hope the rent is reasonable..."</font>'
  315. '<font color=#<<$Oleg[''font'']>>>"It is indeed."</font>'
  316. '<font color=#<<$Yakov[''font'']>>>"<<shared_apt[''rentWeekly'']>> rubles. Per week."</font>'
  317. '<font color=#<<$pcs_font>>>"Uhm. That''s quite a lot. I''m not sure if I''ll be able to afford this..."</font>'
  318. '<font color=#<<$Nestor[''font'']>>>"You can pay other ways if you''d like!"</font>'
  319. '<font color=#<<$Oleg[''font'']>>>"<<$npc_firstname[''A265'']>>!"</font>'
  320. '<font color=#<<$pcs_font>>>"What do you mean by other ways?"</font>'
  321. '<font color=#<<$Yakov[''font'']>>>"Well <<$pcs_firstname>>, since we are just guys here, and since we suck at these things, we could use someone as you, a girl I mean, to be something like our, let''s say, handmaiden. If you know what I mean."</font>'
  322. '<font color=#<<$pcs_font>>>"Like cooking and cleaning?"</font>'
  323. '<font color=#<<$Yakov[''font'']>>>"Yes, exactly."</font>'
  324. '<font color=#<<$Nestor[''font'']>>>"And more."</font>'
  325. '<font color=#<<$Oleg[''font'']>>>"Oh my... I give up."</font>'
  326. act 'More what?':gt 'pav_shared_apt', 'intro'
  327. elseif shared_apt['pavIntroStep'] = 3:
  328. minut += 3
  329. '<font color=#<<$Nestor[''font'']>>>"More services."</font>'
  330. '<font color=#<<$pcs_font>>>"What kind of "services"?"</font>'
  331. '<font color=#<<$Yakov[''font'']>>>"the adult kind of services."</font>'
  332. '<font color=#<<$pcs_font>>>"You mean to be a whore for you? Instead of paying the rent???"</font>'
  333. '<font color=#<<$Oleg[''font'']>>>"Please <<$pcs_firstname>>, don''t get mad. <<$npc_firstname[''A265'']>> is not just an idiot, he is a rude idiot. We are definitely not asking you to be our whore or something like that."</font>'
  334. '<font color=#<<$Oleg[''font'']>>>" As <<$npc_firstname[''A264'']>> told you, we could decrease your rent if you would do some housekeeping stuff we really suck at. But only if you want, of course."</font>'
  335. '<font color=#<<$Yakov[''font'']>>>"So what do you say <<$pcs_firstname>>?"</font>'
  336. act 'Say that you changed your mind about this':shared_apt['pavIntroStep'] = 40 & gt 'pav_shared_apt', 'intro'
  337. act 'Say you will pay the rent the normal way':shared_apt['enabled'] = 1 & gs 'homes_properties', 'give_access' & shared_apt['pavIntroStep'] = 10 & gt 'pav_shared_apt', 'intro'
  338. act 'Say you don''t mind doing the homekeeping stuff':shared_apt['enabled'] = 1 & gs 'homes_properties', 'give_access' & shared_apt['pavIntroStep'] = 20 & gt 'pav_shared_apt', 'intro'
  339. act 'Say you don''t mind anything':shared_apt['enabled'] = 1 & gs 'homes_properties', 'give_access' & shared_apt['pavIntroStep'] = 30 & gt 'pav_shared_apt', 'intro'
  340. elseif shared_apt['pavIntroStep'] = 10:
  341. minut += 2
  342. '<font color=#<<$Yakov[''font'']>>>"Fine. So the rest of this week you have free, but you need to prepay the next week. OK?"</font>'
  343. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  344. '<font color=#<<$Yakov[''font'']>>>"So the room is over there.</font>'
  345. '<font color=#<<$pcs_font>>>"Wait, Isn''t that the living room?"</font>'
  346. '<font color=#<<$Yakov[''font'']>>>""Yes, it''s available, but we''re not using it, so we''re renting it out. It''s fully furnished with a bed, a table, and a chair. We''ve even added a curtain to separate the space. Feel free to move in whenever you''d like. See you later, <<$pcs_firstname>>!"'
  347. '<font color=#<<$Oleg[''font'']>>>"Have a nice day <<$pcs_firstname>>."</font>'
  348. '<font color=#<<$Nestor[''font'']>>>"See ya later girlie..."</font>'
  349. '<font color=#<<$pcs_font>>>"Later guys!"</font>'
  350. shared_apt['servitudeLvl'] = 0
  351. act 'Continue':shared_apt['pavIntroStep'] = 0 & gt 'pav_shared_apt', 'rentSetup'
  352. elseif shared_apt['pavIntroStep'] = 20:
  353. minut += 2
  354. '<font color=#<<$Yakov[''font'']>>>"Fine. So the rest of this week you have free, but you need to prepay the next week. OK?"</font>'
  355. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  356. '<font color=#<<$Oleg[''font'']>>>"We will prepare a list of the charges for the housekeeping services you may want to do, so it''s clear how much will be deducted from your rent."</font>'
  357. '<font color=#<<$pcs_font>>>"Cool!"</font>'
  358. '<font color=#<<$Yakov[''font'']>>>"So the room is over there."</font>'
  359. '<font color=#<<$pcs_font>>>"Wait, Isn''t that the living room?"</font>'
  360. '<font color=#<<$Yakov[''font'']>>>"Yes, it''s available, but we''re not using it, so we''re renting it out. It''s fully furnished with a bed, a table, and a chair. We''ve even added a curtain to separate the space. Feel free to move in whenever you''d like. See you later, <<$pcs_firstname>>!"</font>'
  361. '<font color=#<<$Oleg[''font'']>>>"Have a nice day, <<$pcs_firstname>>."</font>'
  362. '<font color=#<<$Nestor[''font'']>>>"See ya later, girlie..."</font>'
  363. '<font color=#<<$pcs_font>>>"Later, guys!"</font>'
  364. shared_apt['servitudeLvl'] = 1
  365. act 'Continue':shared_apt['pavIntroStep'] = 0 & gt 'pav_shared_apt', 'rentSetup'
  366. elseif shared_apt['pavIntroStep'] = 30:
  367. minut += 2
  368. '<font color=#<<$Yakov[''font'']>>>"Fine. So, the rest of this week you have free, but you need to prepay the next week. OK?"</font>'
  369. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  370. '<font color=#<<$Oleg[''font'']>>>"We will prepare a list of the charges for the housekeeping services you may want to do, so it''s clear how much will be deducted from your rent."</font>'
  371. '<font color=#<<$Nestor[''font'']>>>"The extra stuff services will be there too, girl."</font>'
  372. '<font color=#<<$pcs_font>>>"OK..."</font>'
  373. '<font color=#<<$Yakov[''font'']>>>"So, the room is over there."</font>'
  374. '<font color=#<<$pcs_font>>>"Wait, isn''t that the living room?"</font>'
  375. '<font color=#<<$Yakov[''font'']>>>"Yes, it is, but we don''t use it, so we are renting it out. There is all you need, a bed, a table with a chair, all this stuff. Just move in when you want, we even put a curtain over the doorway. See you later, <<$pcs_firstname>>!"</font>'
  376. '<font color=#<<$Oleg[''font'']>>>"Have a nice day, <<$pcs_firstname>>."</font>'
  377. '<font color=#<<$Nestor[''font'']>>>"See ya later, girlie..."</font>'
  378. '<font color=#<<$pcs_font>>>"Later, guys!"</font>'
  379. shared_apt['servitudeLvl'] = 2
  380. act 'Continue':shared_apt['pavIntroStep'] = 0 & gt 'pav_shared_apt', 'rentSetup'
  381. elseif shared_apt['pavIntroStep'] = 40:
  382. minut += 2
  383. '<font color=#<<$Oleg[''font'']>>>"I told you idiot not to scare her away!"</font>'
  384. '<font color=#<<$Nestor[''font'']>>>"Sorry man! We can still lock her to the radiator like I suggested in the first place..."</font>'
  385. '<font color=#<<$Oleg[''font'']>>>"Just shut up already!"</font>'
  386. ''
  387. '<font color=#<<$Yakov[''font'']>>>"Sorry <<$pcs_firstname>>. We respect your decision. If you change your mind and the room is still empty, let us know and we can talk again. Goodbye!"</font>'
  388. act 'Tell them goodbye and leave':shared_apt['pavIntroStep'] = 0 & gt 'pav_complex', 'start'
  389. elseif shared_apt['pavIntroStep'] = 50:
  390. minut += 2
  391. !add dialogue for returning after being previously expelled from apartment
  392. '<font color=#<<$Oleg[''font'']>>>"I''m sorry <<$pcs_firstname>>, but we don''t want children or pets in the apartment!"</font>'
  393. '<font color=#<<$Nestor[''font'']>>>"If you get rid of the kid, come back and see us."</font>'
  394. '<font color=#<<$Yakov[''font'']>>>"Don''t mind him. There''s simply not enough room for 4 people, plus kids or pets. I hope you understand"</font>'
  395. if func('homes_properties', 'has_access', 'parents_home'):
  396. act 'Suggest a compromise':
  397. cla
  398. shared_apt['pavIntroStep'] = 2
  399. '<font color=#<<$pcs_font>>>"I can leave them with my parents for the time being, and keep them away from the apartment, how does this sound?'
  400. '<font color=#<<$Yakov[''font'']>>>"Are you certain you want to do this?"</font>'
  401. '<font color=#<<$Nestor[''font'']>>>"Sounds good to me!"</font>'
  402. '<font color=#<<$Oleg[''font'']>>>"hmmmm"</font>'
  403. act 'Continue':gt 'pav_shared_apt', 'intro'
  404. end
  405. act 'I won''t leave my children':
  406. cla
  407. shared_apt['pavIntroStep'] = 0
  408. '<font color=#<<$pcs_font>>>"OK, I will make do with my current accommodation.'
  409. '<font color=#<<$Yakov[''font'']>>>"We understand"</font>'
  410. '<font color=#<<$Nestor[''font'']>>>"Damn"</font>'
  411. '<font color=#<<$Oleg[''font'']>>>"No problem <<$pcs_firstname>>"</font>'
  412. act 'Continue':gt 'pav_shared_apt', 'intro'
  413. end
  414. else
  415. '<font color=#<<$pcs_font>>>OK, I understand.</font>'
  416. act 'Thank them and leave':shared_apt['pavIntroStep'] = 0 & gt 'pav_complex', 'start'
  417. end
  418. end
  419. end
  420. ! the pricelist
  421. if $ARGS[0] = 'list':
  422. menu_off = 1
  423. $loc_arg = 'list'
  424. minut += 2
  425. '<center><h3><<$pcs_firstname>>''s pricelist</h3></center>'
  426. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/list.jpg"></center>'
  427. ''
  428. 'The basic weekly rent is <<shared_apt[''rentWeekly'']>> rubles.'
  429. 'It is possible to pay it in cash or offer services instead. The prices are following:'
  430. ''
  431. '---------------------'
  432. ''
  433. 'Cook a warm meal: ' +shared_apt['price_cook']
  434. 'Clean the apartment: '+shared_apt['price_clean']
  435. if shared_apt['servitudeLvl'] >= 2:
  436. ''
  437. '---------------------'
  438. ''
  439. 'Written in marker on the paper, are sexual favours you can offer as well.'
  440. ''
  441. '---------------------'
  442. 'Rent discounts for the slut: '
  443. 'Handjob: ' +shared_apt['price_handjob']
  444. 'Blowjob: ' +shared_apt['price_blowjob']
  445. 'Sex: ' +shared_apt['price_vaginal']
  446. 'Anal sex: ' +shared_apt['price_anal']
  447. 'Special treats: '+shared_apt['price_special']
  448. end
  449. ''
  450. '---------------------'
  451. ''
  452. 'Not having paid the full weekly rent at the beginning of a new week will lead to termination of the accommodation services.'
  453. 'Signed: <a href="exec: gt ''pav_shared_oleg'', ''Oleg_Dick''"><font color=#<<$Oleg[''font'']>>><<$npc_firstname[''A266'']>></font></a>, <a href="exec: gt ''pav_shared_nestor'', ''Nestor_Dick''"><font color=#<<$Nestor[''font'']>>><<$npc_firstname[''A265'']>></font></a>, <a href="exec: gt ''pav_shared_yakov'', ''Yakov_Dick''"><font color=#<<$Yakov[''font'']>>><<$npc_firstname[''A264'']>></font></a>, <<$pcs_firstname>>.'
  454. ''
  455. '---------------------'
  456. act 'Continue':gt 'pav_shared_apt', 'start'
  457. end
  458. ! paying with money
  459. if $ARGS[0] = 'payRent':
  460. menu_off = 1
  461. minut += 1
  462. 'You decided to give the guys money, instead of serving them.'
  463. 'You paid them <<paid_rent>> cash.'
  464. money -= paid_rent
  465. gs 'stat'
  466. act 'Continue': gs 'pav_shared_apt', 'start'
  467. end
  468. if $ARGS[0] = 'bathroom':
  469. $menu_loc = 'pav_shared_apt'
  470. $menu_arg = 'bathroom'
  471. menu_off = 0
  472. minut += 1
  473. $location_type = 'bathroom'
  474. $loc = 'pav_shared_apt'
  475. $loc_arg = 'bathroom'
  476. $locM_arg = 'bathroom'
  477. $locM = 'pav_shared_apt'
  478. '<center><h3>Bathroom</h3></center>'
  479. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/vanrpar.jpg"></center>'
  480. *nl
  481. 'This is a modest bathroom, containing everything that young people need for their daily life, such as:'
  482. 'A shower, toilet, <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh < 1, '<a href="exec:gt ''mirror'',''brush''">brush</a>', 'brush') + ' your hair, a sink and even a bath tub.'
  483. *nl
  484. gs 'din_van', 'private'
  485. gs 'stat'
  486. act 'Leave':gt 'pav_shared_apt', 'start'
  487. end
  488. if $ARGS[0] = 'kitchen':
  489. $menu_loc = 'pav_shared_apt'
  490. $menu_arg = 'kitchen'
  491. menu_off = 0
  492. *clr & cla
  493. minut += 2
  494. $loc = 'pav_shared_apt'
  495. $loc_arg = 'kitchen'
  496. $locclass = 'kitr'
  497. gs 'stat'
  498. gs 'kit_din'
  499. '<center><h3>Kitchen</h3></center>'
  500. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/kuhrpar.jpg"></center>'
  501. 'It''s a modest kitchen, but has all that is needed.'
  502. 'You can cook breakfast for the guys between 6:00 and 7:00 and dinner for them between 18:00 and 19:00'
  503. ! dishes
  504. if mc_inventory['dish_plates'] > 0:
  505. 'Above the sink are <b><<mc_inventory[''dish_plates'']>></b> the clean plates'
  506. else
  507. '<b><font color = red>You have no clean dishes left.</font></b>'
  508. end
  509. if dirttarelka > 0:'The sink has <b><<dirttarelka>></b> dirty dishes. <a href="exec: dynamic $dirtarm">that need to be washed</a>.'
  510. if mc_inventory['dish_soap'] > 0:
  511. 'Above the sink is some detergent to wash the dishes with. There is enough for <b><<mc_inventory[''dish_soap'']>></b> uses.'
  512. else
  513. '<b><font color = red>You do not have enough detergent, you should buy some from the supermarket.</font></b>'
  514. end
  515. ! food
  516. if mc_inventory['food_basic'] > 0:
  517. if mc_inventory['dish_plates'] = 0 or edahot > 0:$edagot = ''
  518. if mc_inventory['dish_plates'] > 0 and edahot = 0:
  519. $edagot = '<a href="exec:dynamic $edagotd">Cook a meal for yourself (0:30)</a>'
  520. end
  521. 'In the refrigerator there''s enough (your own) food for <b><<mc_inventory[''food_basic'']>></b> servings. <<$edagot>>'
  522. end
  523. if edahot > 0:'<a href="exec: dynamic $edahotd ">On the table is ready meal (0:30).</a>'
  524. if mc_inventory['food_diet'] = 0 and mc_inventory['food_basic'] = 0:'<b><font color="red">You have nothing to eat, the refrigerator is empty!</font></b>'
  525. if hour = 6 or hour = 18:'<a href="exec: gt ''pav_shared_apt'', ''cookForGuys''">Cook meals for the guys (1:30)</a>'
  526. dynamic $edasnack
  527. dynamic $sandwich
  528. dynamic $driwater
  529. dynamic $dritea
  530. dynamic $fill_bottle
  531. dynamic $edaD
  532. dynamic $pranik
  533. dynamic $fatdel
  534. dynamic $lekarstvo
  535. dynamic $vitamin
  536. act 'Leave':gt 'pav_shared_apt', 'start'
  537. end
  538. if $ARGS[0] = 'cookForGuys':
  539. menu_off = 1
  540. cla
  541. *clr
  542. $loc = 'pav_shared_apt'
  543. $loc_arg = 'kitchen'
  544. minut += 90
  545. pcs_mood -= 10
  546. gs 'stat'
  547. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  548. 'You prepare three meals, using what you can from the guys'' food. It''s not very healthy but you''re not planning to offer to do their shopping too.'
  549. shared_apt['price'] = shared_apt['price_cook']
  550. act 'Leave the meal':gt 'pav_shared_apt', 'payService'
  551. end
  552. if $ARGS[0] = 'cleanForGuys':
  553. menu_off = 1
  554. cla
  555. *clr
  556. minut += 60
  557. mc_inventory['laundry_soap'] -= 3
  558. pcs_mood -= 10
  559. gs 'stat'
  560. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  561. shared_apt['price'] = shared_apt['price_clean']
  562. *nl
  563. 'You collect piles of dirty clothes around the room, carry them into the bathroom, put them in a basin and then pour washing powder on them. You wash them until they are finally clean.'
  564. cumStainCh = rand(0, 100)
  565. if shared_apt['servitudeLvl'] = 2 and cumStainCh <= 50:'<i>You notice bedsheets with what seems as dried out cum. Probably remainder of one of your "servings". Maybe it really is better to swallow every time...</i>'
  566. act 'Hang them to dry out and leave':gt 'pav_shared_apt', 'payService'
  567. end
  568. ! living room & pc bedroom
  569. if $ARGS[0] = 'pcsRoom':
  570. $menu_loc = 'pav_shared_apt'
  571. $menu_arg = 'pcsRoom'
  572. menu_off = 0
  573. $loc = 'pav_shared_apt'
  574. $loc_arg = 'pcsRoom'
  575. $location_type = 'private'
  576. $locclass = 'bedr'
  577. minut += 2
  578. gs 'stat'
  579. gs 'pav_shared_apt', 'update'
  580. gs 'music_actions', 'clear_restrictions'
  581. '<center><b><font color="maroon">Living Room</font></b></center>'
  582. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/sofabed.jpg"></center>'
  583. *nl
  584. 'The living room was never used by the other apartment occupants, so it''s now rented out as a bedroom. It''s sparsely decorated, with, a <a href="exec:gt ''bed'', ''start''">sofa bed</a>, against the back wall.'
  585. *nl
  586. 'Beside the sofa bed is an old cabinet, with your <a href="exec:gt ''alarmclock'', ''start''">alarm clock</a> on top.'
  587. *nl
  588. 'Your <a href="exec:gt ''alarmclock'', ''start''">alarm clock</a> is set to <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerH''], alarmVars[''timerM''])>> during the week and <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerEndH''], alarmVars[''timerEndM''])>> during the weekend. It is currently turned ' + iif(alarmVars['alarmOn'] = 0, '<a href="exec: alarmVars[''alarmOn''] = 1 & gt $loc, $loc_arg">OFF</a>.', '<a href="exec: alarmVars[''alarmOn''] = 0 & gt $loc, $loc_arg">ON</a>.')
  589. *nl
  590. if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your bed.'
  591. *nl
  592. if mc_inventory['tech_tv'] = 0 and mc_inventory['plasma_tv'] = 0: $TV = 'a great place for a TV, if you had one'
  593. if mc_inventory['tech_tv'] >= 1:$TV = 'an old CRT <a href="exec:gt ''TV'', ''start''">TV</a> sits on the shelf'
  594. 'There is an wall unit at the other side of the room, <<$TV>>. Everyone in the household spends their time in their own rooms, so there was never a reason to use the living room for its intended purpose.'
  595. *nl
  596. ''
  597. 'In the corner is an old scratched <a href="exec:gt ''stol'', ''start''">table</a>.'
  598. *nl
  599. 'There is no door to the living room, instead there''s <a href="exec:view''images/shared/home/bedroom/curtain.jpg''">curtain</a> covering entry to the room, which gives you a modicum of privacy; not much better than the state of the non-existent window curtains.'
  600. act '<b>Leave the room</b>':gt 'pav_shared_apt', 'start'
  601. act 'Sit on the sofa bed':gt 'pav_shared_apt', 'sofabed'
  602. if mc_inventory['hula_hoop'] > 0: '<br>A hula hoop stands in corner of the room. '
  603. if mc_inventory['skipping_rope'] > 0: 'A jump rope lies on a shelf. '
  604. if mc_inventory['book_yoga'] > 0: 'A yoga mat is rolled up in a corner. '
  605. gs 'exercise', 'start'
  606. *nl
  607. if mc_inventory['tech_computer'] = 1:
  608. !! Sveta can''t do camshows unless she is blowing the guys for rent.
  609. gs 'internet_mobile', 'get_access', 'free', 'nocamshow'
  610. if shared_apt['servitudeLvl'] = 2: access['nocamshow'] = 0
  611. 'Your <a href="exec:gorodokKomp = 1 & gt ''Komp'',''start''">computer</a> is sitting on small table.'
  612. end
  613. if mc_inventory['vintage_card'] > 0: act 'View your vintage porn cards':card_deck = 0 & gt 'card'
  614. if mc_inventory['card'] > 0: act 'View your new porn cards':card_deck = 1 & gt 'card'
  615. if mc_inventory['cocaine'] > 0:'You have <<mc_inventory[''cocaine'']>> doses of Pale Lady, hidden from the other housemates.'
  616. if mc_inventory['cocaine'] > 0 and drugVars['cocaine_day'] ! daystart:
  617. act 'Use some Pale Lady (0:05)':
  618. *clr & cla
  619. minut += 5
  620. gs 'drugs', 'cocaine'
  621. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  622. 'You snort some Pale Lady, feeling dizzy for just a moment. After that, you feel fantastic and incredibly horny.'
  623. act 'Continue':gt 'pav_shared_apt', 'pcsRoom'
  624. end
  625. end
  626. if mc_inventory['tapestry']>0:'You have <<mc_inventory[''tapestry'']>> completed tapestries.'
  627. if pcs_sewng >= 40 and mc_inventory['sewing_fabric'] > 0:'You have enough fabric for <<mc_inventory[''sewing_fabric'']>> lessons.'
  628. if pcs_sewng >= 40 and mc_inventory['sewing_fabric'] <= 0:'You do not have any fabric.'
  629. if pcs_sewng >= 80 and mc_inventory['sewing_kit'] = 1:
  630. *nl
  631. if newgobelen = 0 and mc_inventory['sewing_fabric'] > 0:
  632. act'Start a new tapestry':gt 'sewing', 'tapestry'
  633. end
  634. if newgobelen>=1:
  635. 'Your tapestry is <<newgobelen/10>> percent finished.'
  636. act 'Work on the tapestry':gt 'sewing', 'tapestry'
  637. end
  638. end
  639. if mc_inventory['contraceptive_pill'] > 0 and mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0:
  640. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> tablets are in the cabinet next to your bed, along with some <a href="exec:gt ''stol'', ''bc''">condoms</a>.'
  641. elseif mc_inventory['contraceptive_pill'] > 0:
  642. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> tablets are in the cabinet next to your bed.'
  643. elseif mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0:
  644. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are in the cabinet next to your bed.'
  645. end
  646. ''
  647. if mc_inventory['sewing_kit'] = 1:
  648. 'Your <a href="exec:gt ''sewing'',''start''">sewing kit</a> is stored on a shelf.'
  649. end
  650. if mc_inventory['trinkets_home'] > 0:'You currently have <<mc_inventory[''trinkets_home'']>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  651. dynamic $wearpan
  652. dynamic $removepan
  653. !gs 'subkid'
  654. act 'Relax on your bed': gt 'bed', 'start'
  655. gs 'prostitution_functions', 'prostitute_outfit_at_home'
  656. gs 'music_actions', 'start'
  657. end
  658. if $ARGS[0] = 'sofabed':
  659. $loc = 'pav_shared_apt'
  660. $loc_arg = 'sofabed'
  661. $menu_loc = 'pav_shared_apt'
  662. $menu_arg = 'sofabed'
  663. menu_off = 0
  664. *clr & cla
  665. gs 'stat'
  666. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/sofabed.jpg"></center>'
  667. '<center>A small sofa bed, when not unfolded, is just big enough for you to curl up on and take a nap.</center>'
  668. if mc_inventory['tech_tv'] = 1:
  669. act 'Watch some TV':gt 'TV', 'start'
  670. end
  671. if mc_inventory['mag_porn'] > 0:
  672. '<br>There is a porn magazine under the sofa cushions'
  673. gs 'events', 'read_porn'
  674. end
  675. gs 'events', 'read'
  676. if pcs_horny >= 50:
  677. act 'Masturbate':gt 'selfplay', 'start'
  678. end
  679. act 'Take a nap (1:00)': gs 'sleep_simple', 'nap'
  680. act 'Get up':gt 'pav_shared_apt', 'pcsRoom'
  681. end
  682. if $ARGS[0] = 'Oleg_Room':
  683. $menu_loc = 'pav_shared_apt'
  684. $menu_arg = 'Oleg_Room'
  685. menu_off = 0
  686. $loc = 'pav_shared_apt'
  687. $loc_arg = 'Oleg_Room'
  688. gs 'boyStat', 'A266'
  689. minut += 2
  690. '<center><h3><font color=#<<$Oleg[''font'']>>><<$npc_firstname[''A266'']>>''s room</font></h3></center>'
  691. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/nd/room.jpg"></center>'
  692. ''
  693. 'The room isn''t as messy as one might expect, given that <<$npc_firstname[''A266'']>> is an IT guy.'
  694. 'There is one large window with a bed below it, but the entire room is dominated by a large table with several computers and monitors.'
  695. 'At first glance, one might mistake this room for a hacker''s den.'
  696. if hour >= Oleg['sleeps'] and hour < Oleg['comes']:
  697. '<<$npc_firstname[''A266'']>> is sound asleep in his bed.'
  698. elseif hour >= Oleg['wakes'] and hour < Oleg['leaves']:
  699. '<<$npc_firstname[''A266'']>> is already awake and getting ready to leave.'
  700. act 'Approach him': gt 'pav_shared_oleg', 'Oleg'
  701. elseif hour >= Oleg['leaves'] and hour < Oleg['comes']:
  702. '<<$npc_firstname[''A266'']>> is currently not here.'
  703. elseif hour >= Oleg['comes'] and hour < Oleg['sleeps']:
  704. '<<$npc_firstname[''A266'']>> is behind his desk, engrossed in programming using an esoteric language.'
  705. act 'Approach him': gt 'pav_shared_oleg', 'Oleg'
  706. end
  707. if shared_apt['servitudeLvl'] >= 1 and Oleg['cleaned'] = 0:
  708. if mc_inventory['laundry_soap'] >= 1:
  709. act 'Clean the room':Oleg['cleaned'] = 1 & gt 'pav_shared_apt', 'cleanForGuys'
  710. else
  711. 'You don''t have enough laundry detergent to clean the room'
  712. end
  713. end
  714. act 'Leave':gt 'pav_shared_apt', 'start'
  715. end
  716. if $ARGS[0] = 'Nestor_Room':
  717. $menu_loc = 'pav_shared_apt'
  718. $menu_arg = 'Nestor_Room'
  719. menu_off = 0
  720. $loc = 'pav_shared_apt'
  721. $loc_arg = 'Nestor_Room'
  722. gs 'boyStat', 'A265'
  723. minut += 2
  724. '<center><h3><font color=#<<$Nestor[''font'']>>><<$npc_firstname[''A265'']>>''s room</font></h3></center>'
  725. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/room.jpg"></center>'
  726. ''
  727. 'This room is a messy disaster, with clothes scattered all over the floor.'
  728. if hour >= Nestor['wakes'] and hour < Nestor['leaves']:
  729. '<<$npc_firstname[''A265'']>> is already awake, getting ready to leave.'
  730. act 'Approach him': gt 'pav_shared_nestor', 'Nestor'
  731. elseif hour >= Nestor['leaves'] and hour < Nestor['comes']:
  732. '<<$npc_firstname[''A265'']>> is not here.'
  733. elseif hour >= Nestor['comes'] and hour < Nestor['sleeps']:
  734. '<<$npc_firstname[''A265'']>> is currently on his bed, listing through some magazines.'
  735. act 'Approach him': gt 'pav_shared_nestor', 'Nestor'
  736. elseif hour >= Nestor['sleeps'] or hour < Nestor['wakes']:
  737. '<<$npc_firstname[''A265'']>> is sleeping in his bed.'
  738. end
  739. if shared_apt['servitudeLvl'] >= 1 and Nestor['cleaned'] = 0:
  740. if mc_inventory['laundry_soap'] >= 1:
  741. act 'Clean the room':Nestor['cleaned'] = 1 & gt 'pav_shared_apt', 'cleanForGuys'
  742. else
  743. 'You don''t have enough laundry detergent to clean the room'
  744. end
  745. end
  746. act 'Leave':gt 'pav_shared_apt', 'start'
  747. end
  748. if $ARGS[0] = 'Yakov_Room':
  749. $menu_loc = 'pav_shared_apt'
  750. $menu_arg = 'Yakov_Room'
  751. menu_off = 0
  752. $loc = 'pav_shared_apt'
  753. $loc_arg = 'Yakov_Room'
  754. gs 'boyStat', 'A264'
  755. minut += 2
  756. '<center><h3><font color=#<<$Yakov[''font'']>>><<$npc_firstname[''A264'']>>''s room</font></h3></center>'
  757. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/room.jpg"></center>'
  758. ''
  759. 'This room is very neat and organized, filled with sporting gear such as dresses, equipment, and trophies. The walls are adorned with several posters of famous athletes and sports teams.'
  760. if hour >= Yakov['wakes'] and hour < Yakov['leaves']:
  761. '<<$npc_firstname[''A264'']>> is already awake, packing his gym bags to leave.'
  762. act 'Approach him': gt 'pav_shared_yakov', 'Yakov'
  763. elseif hour >= Yakov['leaves'] and hour < Yakov['comes']:
  764. '<<$npc_firstname[''A264'']>> is not here.'
  765. elseif hour >= Yakov['comes'] and hour < Yakov['sleeps']:
  766. doesStuff = rand(0, 100)
  767. if doesStuff < 50:'<<$npc_firstname[''A264'']>> is currently on his bed, listing through football magazines.'
  768. if doesStuff >= 50:'<<$npc_firstname[''A264'']>> is working out on the floor.'
  769. act 'Approach him': gt 'pav_shared_yakov', 'Yakov'
  770. elseif hour >= Yakov['sleeps'] or hour < Yakov['wakes']:
  771. '<<$npc_firstname[''A264'']>> is sleeping in his bed.'
  772. end
  773. if shared_apt['servitudeLvl'] >= 1 and Yakov['cleaned'] = 0:
  774. if mc_inventory['laundry_soap'] >= 1:
  775. act 'Clean the room':Yakov['cleaned'] = 1 & gt 'pav_shared_apt', 'cleanForGuys'
  776. else
  777. 'You don''t have enough laundry detergent to clean the room'
  778. end
  779. end
  780. act 'Leave':gt 'pav_shared_apt', 'start'
  781. end
  782. if $ARGS[0] = 'eoleg_agreement':
  783. menu_off = 1
  784. '<center><img border="5" bordercolor="<<$Yakov[''font'']>>" height="150" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img height="150" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="150" src="images/locations/pavlovsk/resident/sharedapt/nd/nd.jpg"></center>'
  785. ''
  786. 'You gather the guys around and explain to them that you wish to move out.'
  787. '<font color=#<<$Yakov[''font'']>>><<$npc_firstname[''A264'']>> Looks disappointed as he addresses you. "That is a shame <<$pcs_firstname>> we''ve very much enjoyed having you stay here with us. Are you sure this is what you want?"</font>'
  788. act '"Yes." End agreement':
  789. shared_apt['enabled'] = 0
  790. gs 'homes_properties', 'block_access', 'shared_apartment', 0
  791. gt 'pav_complex', 'start'
  792. end
  793. act '"Maybe you are right, I''ll stay here with you guys"':gt 'pav_shared_apt', 'start'
  794. end
  795. --- pav_shared_apt ---------------------------------