pavSharedApt.qsrc 41 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117
  1. # pavSharedApt
  2. if night_mode = 1:
  3. fcolor = rgb(255, 255, 255)
  4. bcolor = rgb(0, 0, 0)
  5. lcolor = rgb(106, 90, 205)
  6. else
  7. fcolor = rgb(0, 0, 0)
  8. bcolor = rgb(255, 255, 255)
  9. lcolor = rgb(106, 90, 205)
  10. end
  11. if $ARGS[0] = 'update':
  12. rentWeekly = 2000
  13. if rentLeft <= 0:rentLeft = 0
  14. !how much of the unpaid weekly rent is left
  15. if orgB > 100:orgB = 100
  16. price_cook = 50
  17. price_clean = 50
  18. price_handjob = 50
  19. price_blowjob = 100
  20. price_vaginal = 150
  21. price_anal = 200
  22. price_special = 250
  23. ! time calculations
  24. weekNum = (daystart - (daystart mod 7)) / 7
  25. ! pcs setup
  26. $pcs_font = '990099'
  27. !pink
  28. ! servitudeLvl = 0 - no service, pays rent
  29. ! servitudeLvl = 1 - nonsexual service
  30. ! servitudeLvl = 2 - sexual and nonsexual service
  31. ! nerd guy
  32. ! shy, polite, but latent kink (giving golden shower, etc.)
  33. ! brown hair, hairy, pale skin
  34. ! average dick, hairy balls
  35. ! not paying attention to his own image and looks, wears glasses
  36. $nd_name = 'Oleg'
  37. $nd_font = '0096FF'
  38. !blue
  39. nd_leaves = 9
  40. nd_comes = 18
  41. nd_sleeps = 23
  42. nd_wakes = 8
  43. if nd_rel > 100: nd_rel = 100
  44. if nd_rel < 0: nd_rel = 0
  45. ndDick = 17
  46. nd_cumMax = 80
  47. nd_cumMin = 15
  48. if nd_cumVol > nd_cumMax:nd_cumVol = nd_cumMax
  49. if nd_cumVol < nd_cumMin:nd_cumVol = nd_cumMin
  50. nd_horny = (nd_cumVol * 10000 / nd_cumMax) / 100
  51. if nd_served = 1:nd_hadSex = 1
  52. !flag if there was already a sex between him and Sveta
  53. !sex flags: nd_bj ; nd_bjDeep ; nd_swall ; nd_vag ; nd_vagCumInside ; nd_vagCumInsideUnwanted ; nd_anal ; nd_analCumInside ; nd_analCumInsideUnwanted
  54. !unlocked sex: nd_doAnal ; nd_doPornpos
  55. !nd_cleaned = 1 - if was cleaned this day already
  56. ! gopnik guy
  57. ! rude, the younger the better, aggresive, hard
  58. ! dark hair, dark skin
  59. ! above average dick, somehow maintained hairs; event: he will take some enlarging pills testing his monster cock on Sveta
  60. $gp_name = 'Nestor'
  61. $gp_font = 'CC0000'
  62. !red
  63. gp_leaves = 11
  64. gp_comes = 19
  65. gp_sleeps = 23
  66. gp_wakes = 9
  67. if gp_rel > 100: gp_rel = 100
  68. if gp_rel < 0: gp_rel = 0
  69. gpDick = 22
  70. gp_cumMax = 100
  71. gp_cumMin = 30
  72. if gp_cumVol > gp_cumMax:gp_cumVol = gp_cumMax
  73. if gp_cumVol < gp_cumMin:gp_cumVol = gp_cumMin
  74. gp_horny = (gp_cumVol * 10000 / gp_cumMax) / 100
  75. if gp_served = 1:gp_hadSex = 1
  76. !flag if there was already a sex between him and Sveta
  77. !gp_bj ; gp_bjDeep ; gp_swall ; gp_vag ; gp_vagCumInside ; gp_vagCumInsideUnwanted ; gp_anal ; gp_analCumInside ; gp_analCumInsideUnwanted
  78. !unlocked sex: gp_doAnal ; gp_doPornpos ; gp_doVacuum
  79. ! sportsman guy
  80. ! blond hair, tanned
  81. ! latent gay, muscular and athletic, secret fantasies of being used by femboy (or at least a girl with strapon)
  82. ! bellow average dick, shaved
  83. $sp_name = 'Yakov'
  84. $sp_font = '009900'
  85. !green
  86. sp_leaves = 7
  87. sp_comes = 16
  88. sp_sleeps = 22
  89. sp_wakes = 5
  90. if sp_rel > 100: sp_rel = 100
  91. if sp_rel < 0: sp_rel = 0
  92. spDick = 14
  93. sp_cumMax = 60
  94. sp_cumMin = 10
  95. sp_horny = (sp_cumVol * 10000 / sp_cumMax) / 100
  96. if sp_cumVol > sp_cumMax:sp_cumVol = sp_cumMax
  97. if sp_cumVol < sp_cumMin:sp_cumVol = sp_cumMin
  98. if sp_served = 1:sp_hadSex = 1
  99. !flag if there was already a sex between him and Sveta
  100. !sp_bj ; sp_bjDeep ; sp_swall ; sp_vag ; sp_vagCumInside ; sp_vagCumInsideUnwanted ; sp_anal ; sp_analCumInside ; sp_analCumInsideUnwanted
  101. !mood setup
  102. if nd_mood = 1:$nd_mood = 'very good'
  103. if nd_mood = 2:$nd_mood = 'good'
  104. if nd_mood = 3:$nd_mood = 'normal'
  105. if nd_mood = 4:$nd_mood = 'bad'
  106. if nd_mood = 5:$nd_mood = 'very bad'
  107. if gp_mood = 1:$gp_mood = 'very good'
  108. if gp_mood = 2:$gp_mood = 'good'
  109. if gp_mood = 3:$gp_mood = 'normal'
  110. if gp_mood = 4:$gp_mood = 'bad'
  111. if gp_mood = 5:$gp_mood = 'very bad'
  112. if sp_mood = 1:$sp_mood = 'very good'
  113. if sp_mood = 2:$sp_mood = 'good'
  114. if sp_mood = 3:$sp_mood = 'normal'
  115. if sp_mood = 4:$sp_mood = 'bad'
  116. if sp_mood = 5:$sp_mood = 'very bad'
  117. gs 'stat'
  118. if pavSharedAptDebug = 0:
  119. elseif pavSharedAptDebug = 1:
  120. '<a href="exec:pavSharedAptDebug=2">Debug</a>'
  121. elseif pavSharedAptDebug = 2:
  122. '<a href="exec:pavSharedAptDebug=1">Debug Close</a>'
  123. '<a href="exec:pavSharedAptDebug=0">Debug Disable</a>'
  124. $nd_name+' relation: '+nd_rel
  125. $gp_name+' relation: '+gp_rel
  126. $sp_name+' relation: '+sp_rel
  127. 'rentLeft: '+rentLeft
  128. 'weekNum: '+weekNum
  129. 'rentWeekNum: '+rentWeekNum
  130. 'servitudeLvl: '+servitudeLvl
  131. 'servicePaid: '+servicePaid
  132. 'cashPaid: '+cashPaid
  133. 'step: '+step
  134. 'subStep: '+subStep
  135. 'gp_mood: '+gp_mood
  136. 'gp_cumVol: '+gp_cumVol
  137. 'gp_cumVag: '+gp_cumVag
  138. 'gp_cumAnal: '+gp_cumAnal
  139. 'gp_cumSwall: '+gp_cumSwall
  140. 'nd_cumVol: '+nd_cumVol
  141. 'nd_cumMax: '+nd_cumMax
  142. 'nd_horny: '+nd_horny
  143. 'gp_horny: '+gp_horny
  144. 'sp_horny: '+sp_horny
  145. ''
  146. nd_served = 0
  147. nd_mood = 2
  148. gp_served = 0
  149. gp_mood = 2
  150. sp_mood = 2
  151. sp_served = 0
  152. end
  153. end
  154. ! accomodation advert
  155. if $ARGS[0] = 'advertNo30':
  156. minut += 2
  157. seenAd = 1
  158. gs 'stat'
  159. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/aptNo3Door.jpg"></center>'
  160. '<br>As you pass by one of the apartments, you notice a sign stuck on the door - "сдаeтся в аренду комната" (Room for rent!).'
  161. act 'Check it out':gt 'pavSharedApt', 'doorNo30'
  162. act 'Go back':gt 'pavComplexb3', 'etaj_4'
  163. end
  164. ! door No 3 - shared
  165. if $ARGS[0] = 'doorNo30':
  166. if pavSharedAptEnabled = 1:
  167. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
  168. '<br>You stand before the entry door to apartment No 30. The apartment you share with three others'
  169. act 'Go inside':gt 'pavSharedApt', 'start'
  170. else
  171. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/aptNo3Door.jpg"></center>'
  172. '<br>You stand before the entry door to apartment No 30. There is a sign on the door saying - "сдаeтся в аренду комната" (Room for rent).'
  173. act 'Ring the bell':gt 'pavSharedApt', 'intro'
  174. end
  175. act 'Go back':gt 'pavComplexb3', 'etaj_4'
  176. end
  177. ! apt hall
  178. if $ARGS[0] = 'start':
  179. $metka = 'start'
  180. $goBack = $metka
  181. $metkaM = 'start'
  182. $locM = 'pavSharedApt'
  183. $loc = 'pavSharedApt'
  184. gs 'pavSharedApt', 'update'
  185. if introDone = 0:gt 'pavSharedApt', 'intro'
  186. minut += 2
  187. gs 'stat'
  188. ! do this once a day
  189. if daystart >= tomorrow:
  190. tomorrow = daystart + 1
  191. nd_mood = rand (1, 5)
  192. nd_served = 0
  193. nd_cleaned = 0
  194. nd_cumVol += rand(15, 30)
  195. gp_mood = rand (1, 5)
  196. gp_served = 0
  197. gp_cleaned = 0
  198. gp_cumVol = rand(20, 40)
  199. sp_mood = rand (1, 5)
  200. sp_served = 0
  201. sp_cleaned = 0
  202. sp_cumVol += rand(5, 20)
  203. end
  204. ! do this every time
  205. rentLeft = rentWeekly - servicePaid - cashPaid
  206. '<center><h3>Hallway</h3></center>'
  207. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/hallway.jpg"></center>'
  208. 'It is week number '+weekNum+'.'
  209. if weekNum < rentWeekNum:
  210. if rentLeft > 0:
  211. 'You have left '+rentLeft+' <b>₽</b> of rent to pay for the next week.'
  212. if servitudeLvl >= 1:
  213. 'You may still pay it in <a href="exec:gt ''pavSharedApt'', ''payCash''">cash</a>, if you want.'
  214. else
  215. 'Pay it in <a href="exec:gt ''pavSharedApt'', ''payCash''">cash</a>.'
  216. end
  217. else
  218. 'You have already paid the whole rent for the next week.'
  219. end
  220. elseif weekNum >= rentWeekNum:
  221. if rentLeft = 0:
  222. !rent was forepaid, everything OK, proceed to next week
  223. rentLeft += 2000
  224. cashPaid = 0
  225. rentWeekNum = weekNum + 1
  226. elseif rentLeft > 0:
  227. !rent was not fully paid
  228. 'You did not pay the whole rent for this week.'
  229. if money >= rentLeft:
  230. !not enough cash to pay it manually
  231. 'You still can pay it in <a href="exec:gt ''pavSharedApt'', ''payCash''">cash</a>, otwerwise you''ll be kicked out!'
  232. else
  233. !in future add some way to serve your way out
  234. '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..'
  235. rentPaid = 0
  236. pavSharedAptEnabled = 0
  237. end
  238. end
  239. end
  240. if rentPaid = 1:
  241. '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 ''pavShared_nd'', ''ndDick''"><font color=#<<$nd_font>>><<$nd_name>></font></a>, <a href="exec: gt ''pavShared_gp'', ''gpDick''"><font color=#<<$gp_font>>><<$gp_name>></font></a>, <a href="exec: gt ''pavShared_sp'', ''spDick''"><font color=#<<$sp_font>>><<$sp_name>></font></a>.'
  242. 'You stand in the hallway. '
  243. ''
  244. 'From the hallway several doors lead to <a href="exec:gt ''pavSharedApt'', ''ndRoom''"><<$nd_name>>''s</a>, <a href="exec:gt ''pavSharedApt'', ''gpRoom''"><<$gp_name>>''s</a> and <a href="exec:gt ''pavSharedApt'', ''spRoom''"><<$sp_name>>''s</a> rooms.'
  245. 'The last doors lead to the <a href="exec:gt ''pavSharedApt'', ''pcsRoom''">room</a> you have rented.'
  246. ''
  247. 'There are several <a href="exec:gt ''wardrobe'', ''start''">closets</a>, that you can use to store your clothes</a>, and a large tall <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
  248. ''
  249. if servitudeLvl >= 1:'A computer printed <a href="exec:gt ''pavSharedApt'', ''list''">list</a> hangs on the exit door.'
  250. act 'Living room (your room)':gt 'pavSharedApt', 'pcsRoom'
  251. act 'Bathroom':gt 'pavSharedApt', 'bathroom'
  252. act 'Kitchen':gt 'pavSharedApt', 'kitchen'
  253. act '<font color=#<<$nd_font>>><<$nd_name>>''s room</font>':gt 'pavSharedApt', 'ndRoom'
  254. act '<font color=#<<$gp_font>>><<$gp_name>>''s room</font>':gt 'pavSharedApt', 'gpRoom'
  255. act '<font color=#<<$sp_font>>><<$sp_name>>''s room</font>':gt 'pavSharedApt', 'spRoom'
  256. end
  257. if home_owned[2] = 0 and kid > 0:
  258. *clr & cla
  259. pavIntroStep = 0
  260. introDone = 0
  261. minut = 5
  262. !Need to have some actual story to this with NPC reactions.
  263. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/revenge/crying.jpg"></center>'
  264. 'You''ve been kicked out of the apartment due to having children.'
  265. pavSharedAptEnabled = 0
  266. act 'Leave':gt 'pavComplexb3', 'etaj_4'
  267. end
  268. act '<font color = maroon>Leave and go to the stairwell.</font>':
  269. if $clothingworntype ! 'nude':
  270. gt 'pavComplexb3', 'etaj_4'
  271. else
  272. msg'<b><font color = red>You need to get dressed.</font></b>'
  273. gt 'pavSharedApt', 'start'
  274. end
  275. end
  276. act '<font color = maroon><b>Leave and go outside</b></font>':
  277. if $clothingworntype ! 'nude':
  278. gt 'pavResidential'
  279. else
  280. msg'<b><font color = red>You need to get dressed.</font></b>'
  281. gt 'pavSharedApt', 'start'
  282. end
  283. end
  284. end
  285. if $ARGS[0] = 'payCash':
  286. minut += 2
  287. cash = rentLeft
  288. if money >= cash:
  289. 'You have decided to pay the remainder of the weekly rent in cash. It makes '+cash+' <b>₽</b>.'
  290. cashPaid += cash
  291. money -= cash
  292. rentPaid = 1
  293. pavSharedAptEnabled = 1
  294. else
  295. 'You do not have enough money to pay it.'
  296. end
  297. act 'Proceed':gt 'pavSharedApt', 'start'
  298. end
  299. if $ARGS[0] = 'payService':
  300. minut += 1
  301. 'The amount '+price+' <b>₽</b> was taken in account of your weekly rent.'
  302. servicePaid += price
  303. act 'Continue':gt $loc, $metka
  304. end
  305. if $ARGS[0] = 'rentSetup':
  306. minut += 2
  307. 'You get a list of paper, saying the weekly rent fee is <<rentWeekly>> rubles.'
  308. rentPaid = 1
  309. introDone = 1
  310. rentWeekNum = (daystart - (daystart mod 7)) / 7 + 1
  311. act 'Continue':gt 'pavSharedApt', 'start'
  312. end
  313. if $ARGS[0] = 'intro':
  314. gs 'pavSharedApt', 'update'
  315. if step > 0:
  316. '<center><img border="5" bordercolor="<<$sp_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>'
  317. ''
  318. end
  319. if pavIntroStep = 0:
  320. minut += 2
  321. pavIntroStep = 1
  322. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
  323. ''
  324. 'The door are opened by a young, nice looking athletic man.'
  325. '<font color=#<<$sp_font>>>"Hi sweetie! What do you need?"</font>'
  326. '<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>'
  327. '<font color=#<<$sp_font>>>"Yeah, that''s true. Come in, I''ll call the guys and we can talk about it. I''m <<$sp_name>> by the way."</font>'
  328. act 'Go in':gt 'pavSharedApt', 'intro'
  329. elseif pavIntroStep = 1:
  330. minut += 3
  331. pavIntroStep = 2
  332. 'You go through the door in a hallway. By the amount of coats and shoes you guess there are about 3 or 4 people living here.'
  333. 'The guy disappears in one of the doors and you can hear talking him to someone.'
  334. 'They seem to be trying to talk quietly, but you can hear a sentence or two..:'
  335. ''
  336. '"..a girl I tell you.." "..nice one, really, with nice round tits man.." "..better than another dick, idiot.." "..ok ok just be done with it.."'
  337. ''
  338. 'In a while three young guys appear in the hallway.'
  339. '<font color=#<<$sp_font>>>"So that''s her guys. <<$pcs_firstname>>, could you introduce yourself to guys?"</font>'
  340. '<font color=#<<$pcs_font>>>"Hello, my name is <<$pcs_firstname>> <<$pcs_lastname>>. I would like to rent the empty room in your apartment."</font>'
  341. '<font color=#<<$gp_font>>>"Well now that''s what I like! Finally this won''t be such a gay party!"</font>'
  342. '<font color=#<<$nd_font>>>"<<$pcs_firstname>> please excuse my friend <<$gp_name>>, he is such a rude prick to everyone. My name is <<$nd_name>>."</font>'
  343. '<font color=#<<$gp_font>>>"Yup, I''m <<$gp_name>>."</font>'
  344. '<font color=#<<$nd_font>>>"So you would like to live here with us?"</font>'
  345. '<font color=#<<$pcs_font>>>"Yes. I need a new place to stay."</font>'
  346. '<font color=#<<$gp_font>>>"How old are you girl?"</font>'
  347. '<font color=#<<$nd_font>>>"<<$gp_name>>! Not this again!"</font>'
  348. '<font color=#<<$pcs_font>>>"It''s OK. I am actually <<age>> years old. Why do you ask?"</font>'
  349. '<font color=#<<$nd_font>>>"He''s just idiot, don''t listen to him."</font>'
  350. if age < 18:
  351. '(You can see <<$gp_name>> rub his crotch just a brief moment after you told him your age. What''s he up to?)'
  352. end
  353. if knowpreg = 1:
  354. act 'Ask about children':
  355. cla
  356. pavIntroStep = 50
  357. '<font color=#<<$pcs_font>>>"I thought I should tell you, I''m currently pregnant. How you feel about having children in the apartment, will this be a problem?"</font>'
  358. act 'continue':gt 'pavSharedApt', 'intro'
  359. end
  360. elseif kid > 0:
  361. act 'Ask about children':
  362. cla
  363. pavIntroStep = 50
  364. '<font color=#<<$pcs_font>>>"I thought I should tell, I''m mother. How you feel about having children in the apartment, will this be a problem?"</font>'
  365. act 'continue':gt 'pavSharedApt', 'intro'
  366. end
  367. else
  368. act 'Continue':gt 'pavSharedApt', 'intro'
  369. end
  370. elseif pavIntroStep = 2:
  371. minut += 3
  372. pavIntroStep = 3
  373. '<font color=#<<$pcs_font>>>"So what do you guys say, will you take me in?"</font>'
  374. '<font color=#<<$nd_font>>>"We may. But first, do you have the money to pay the rent?"</font>'
  375. '<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>'
  376. '<font color=#<<$nd_font>>>"It is indeed."</font>'
  377. '<font color=#<<$sp_font>>>"<<rentWeekly>> rubles. Per week."</font>'
  378. '<font color=#<<$pcs_font>>>"Uhm. That''s quite a lot. I''m not sure if I''ll be able to afford this.."</font>'
  379. '<font color=#<<$gp_font>>>"You can pay other ways if you''d like!"</font>'
  380. '<font color=#<<$nd_font>>>"<<$gp_name>>!"</font>'
  381. '<font color=#<<$pcs_font>>>"What do you mean by other ways?"</font>'
  382. '<font color=#<<$sp_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>'
  383. '<font color=#<<$pcs_font>>>"Like cooking and cleaning?"</font>'
  384. '<font color=#<<$sp_font>>>"Yes, exactly."</font>'
  385. '<font color=#<<$gp_font>>>"And more."</font>'
  386. '<font color=#<<$nd_font>>>"Oh my... I give up."</font>'
  387. act 'More what?':gt 'pavSharedApt', 'intro'
  388. elseif pavIntroStep = 3:
  389. minut += 3
  390. '<font color=#<<$gp_font>>>"More services."</font>'
  391. '<font color=#<<$pcs_font>>>"What kind of ''more services''?"</font>'
  392. '<font color=#<<$sp_font>>>"Girl to guys kind of services."</font>'
  393. '<font color=#<<$pcs_font>>>"You mean to be a whore for you? Instead of paying the rent???"</font>'
  394. '<font color=#<<$nd_font>>>"Please <<$pcs_firstname>>, don''t get mad. <<$gp_name>> is not just idiot, he is a rude idiot. We are definitely not asking you to be our whore or something like that."</font>'
  395. '<font color=#<<$nd_font>>>"As <<$sp_name>> told you, we could decrease your rent if you would do some homekeeping stuff we really suck at. But only if you want, of course."</font>'
  396. '<font color=#<<$sp_font>>>"So what do you say <<$pcs_firstname>>?"</font>'
  397. act 'Say you will pay the rent the normal way':pavSharedAptEnabled = 1 & pavIntroStep = 10 & gt 'pavSharedApt', 'intro'
  398. act 'Say you don''t mind doing the homekeeping stuff':pavSharedAptEnabled = 1 & pavIntroStep = 20 & gt 'pavSharedApt', 'intro'
  399. act 'Say you don''t mind anything':pavSharedAptEnabled = 1 & pavIntroStep = 30 & gt 'pavSharedApt', 'intro'
  400. act 'Say that you changed your mind about this':pavIntroStep = 40 & gt 'pavSharedApt', 'intro'
  401. elseif pavIntroStep = 10:
  402. minut += 2
  403. '<font color=#<<$sp_font>>>"Fine. So the rest of this week you have for free, but you need to prepay the next week. OK?"</font>'
  404. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  405. '<font color=#<<$sp_font>>>"So the room is over there.</font>'
  406. '<font color=#<<$pcs_font>>>"Wait, Isn''t that the living room?"</font>'
  407. '<font color=#<<$sp_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 chair, all this stuff, we even put a curtain over the doorway. Just move in when you want. See you later <<$pcs_firstname>>!"</font>'
  408. '<font color=#<<$nd_font>>>"Have a nice day <<$pcs_firstname>>."</font>'
  409. '<font color=#<<$gp_font>>>"See ya later girlie..."</font>'
  410. '<font color=#<<$pcs_font>>>"Later guys!"</font>'
  411. servitudeLvl = 0
  412. act 'Continue':pavIntroStep = 0 & gt 'pavSharedApt', 'rentSetup'
  413. elseif pavIntroStep = 20:
  414. minut += 2
  415. '<font color=#<<$sp_font>>>"Fine. So the rest of this week you have for free, but you need to prepay the next week. OK?"</font>'
  416. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  417. '<font color=#<<$nd_font>>>"We will pepare a list of the charges for the homekeeping services you may want to do, so it''s clear how much will be deducted form your rent."</font>'
  418. '<font color=#<<$pcs_font>>>"Cool!"</font>'
  419. '<font color=#<<$sp_font>>>"So the room is over there.</font>'
  420. '<font color=#<<$pcs_font>>>"Wait, Isn''t that the living room?"</font>'
  421. '<font color=#<<$sp_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 chair, all this stuff, we even put a curtain over the doorway. Just move in when you want. See you later <<$pcs_firstname>>!"</font>'
  422. '<font color=#<<$nd_font>>>"Have a nice day <<$pcs_firstname>>."</font>'
  423. '<font color=#<<$gp_font>>>"See ya later girlie..."</font>'
  424. '<font color=#<<$pcs_font>>>"Later guys!"</font>'
  425. servitudeLvl = 1
  426. act 'Continue':pavIntroStep = 0 & gt 'pavSharedApt', 'rentSetup'
  427. elseif pavIntroStep = 30:
  428. minut += 2
  429. '<font color=#<<$sp_font>>>"Fine. So the rest of this week you have for free, but you need to prepay the next week. OK?"</font>'
  430. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  431. '<font color=#<<$nd_font>>>"We will pepare a list of the charges for the homekeeping services you may want to do, so it''s clear how much will be deducted form your rent."</font>'
  432. '<font color=#<<$gp_font>>>"The extra stuff services will be there too, girl."</font>'
  433. '<font color=#<<$pcs_font>>>"OK.."</font>'
  434. '<font color=#<<$sp_font>>>"So the room is over there.</font>'
  435. '<font color=#<<$pcs_font>>>"Wait, Isn''t that the living room?"</font>'
  436. '<font color=#<<$sp_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 chair, all this stuff. Just move in when you want, we even put a curtain over the doorway. See you later <<$pcs_firstname>>!"</font>'
  437. '<font color=#<<$nd_font>>>"Have a nice day <<$pcs_firstname>>."</font>'
  438. '<font color=#<<$gp_font>>>"See ya later girlie..."</font>'
  439. '<font color=#<<$pcs_font>>>"Later guys!"</font>'
  440. servitudeLvl = 2
  441. act 'Continue':pavIntroStep = 0 & gt 'pavSharedApt', 'rentSetup'
  442. elseif pavIntroStep = 40:
  443. minut += 2
  444. '<font color=#<<$nd_font>>>"I told you idiot not to scare her away!"</font>'
  445. '<font color=#<<$gp_font>>>"Sorry man! We can still lock her to the radiator like I suggested in the first place.."</font>'
  446. '<font color=#<<$nd_font>>>"Just shut up already!"</font>'
  447. ''
  448. '<font color=#<<$sp_font>>>"Sorry <<$pcs_firstname>>. We respect your decision. If you change your mind and room is still empty, let us know and we can talk again. Goodbye!"</font>'
  449. act 'Tell them goodbye and leave':pavIntroStep = 0 & gt 'pavComplexb3', 'etaj_4'
  450. elseif pavIntroStep = 50:
  451. minut += 2
  452. !add dialogue for returning after being previously expelled from apartment
  453. '<font color=#<<$nd_font>>>"I''m sorry <<$pcs_firstname>>, but we don''t want children or pets in the apartment!"</font>'
  454. '<font color=#<<$gp_font>>>"If you get rid of the kid, come back and see us."</font>'
  455. '<font color=#<<$sp_font>>>"Don''t mind him. There''s simply not enough room for 4 people, plus kids or pets. I hope you understand"</font>'
  456. if home_owned[2] = 1:
  457. act 'Suggest a compromise':
  458. cla
  459. pavIntroStep = 2
  460. '<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?'
  461. '<font color=#<<$sp_font>>>"Are you certain you want to do this?"</font>'
  462. '<font color=#<<$gp_font>>>"Sounds good to me!"</font>'
  463. '<font color=#<<$nd_font>>>"hmmmm"</font>'
  464. act 'Continue':gt 'pavSharedApt', 'intro'
  465. end
  466. act 'I wont leave my children':
  467. cla
  468. pavIntroStep = 0
  469. '<font color=#<<$pcs_font>>>"OK, I will make do with my current accomodation.'
  470. '<font color=#<<$sp_font>>>"We understand"</font>'
  471. '<font color=#<<$gp_font>>>"Damn"</font>'
  472. '<font color=#<<$nd_font>>>"No problem <<$pcs_firstname>>"</font>'
  473. act 'Continue':gt 'pavSharedApt', 'intro'
  474. end
  475. else
  476. '<font color=#<<$pcs_font>>>OK, I understand.</font>'
  477. act 'Thank them and leave':pavIntroStep = 0 & gt 'pavComplexb3', 'etaj_4'
  478. end
  479. end
  480. end
  481. ! the pricelist
  482. if $ARGS[0] = 'list':
  483. $metka = 'list'
  484. minut += 2
  485. $goBack = $metka
  486. '<center><h3><<$pcs_firstname>>''s pricelist</h3></center>'
  487. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/list.jpg"></center>'
  488. ''
  489. 'The basic weekly rent is <<rentWeekly>> rubles.'
  490. 'It is possible to pay it in cash, or offer services instead. The prices are folllowing:'
  491. ''
  492. '---------------'
  493. ''
  494. 'Cooking a warm meal: '+price_cook
  495. 'Cleaning the apartment: '+price_clean
  496. if servitudeLvl >= 2:
  497. ''
  498. 'Handjob: '+price_handjob
  499. 'Blowjob: '+price_blowjob
  500. 'Sex: '+price_vaginal
  501. 'Anal sex: '+price_anal
  502. 'Special treats: '+price_special
  503. end
  504. ''
  505. '---------------'
  506. ''
  507. 'Not having paid the full weekly rent at the beginning of a new week will lead to termination of the accommodation services.'
  508. 'Signed: <a href="exec: gt ''pavShared_nd'', ''ndDick''"><font color=#<<$nd_font>>><<$nd_name>></font></a>, <a href="exec: gt ''pavShared_gp'', ''gpDick''"><font color=#<<$gp_font>>><<$gp_name>></font></a>, <a href="exec: gt ''pavShared_sp'', ''spDick''"><font color=#<<$sp_font>>><<$sp_name>></font></a>, <<$pcs_firstname>>.'
  509. ''
  510. '---------------'
  511. act 'Continue':gt 'pavSharedApt', 'start'
  512. end
  513. ! paying with money
  514. if $ARGS[0] = 'payRent':
  515. minut += 1
  516. 'You decided to give the guys money, instead of serving them.'
  517. 'You just spent <<paid_rent>> cash.'
  518. money -= paid_rent
  519. gs 'stat'
  520. act 'Continue': gs 'pavSharedApt', 'start'
  521. end
  522. if $ARGS[0] = 'bathroom':
  523. minut += 1
  524. $location_type = 'bathroom'
  525. $loc = 'pavSharedApt'
  526. $metka = 'bathroom'
  527. $metkaM = 'bathroom'
  528. $locM = 'pavSharedApt'
  529. '<center><h3>Bathroom</h3></center>'
  530. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/vanrpar.jpg"></center>'
  531. 'Modest bathroom, containing all that young people need for their daily life, such as:'
  532. 'A Shower, toilet, <a href="exec:GT ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh = 0,'<a href="exec:GT ''mirror'',''brush''">brush</a>','brush') + ' your hair, a sink and even a bath tub.'
  533. gs 'din_van', 'private'
  534. gs 'stat'
  535. act 'Leave':gt 'pavSharedApt', 'start'
  536. end
  537. if $ARGS[0] = 'kitchen':
  538. *clr & cla
  539. minut += 2
  540. $loc = 'pavSharedApt'
  541. $metka = 'kitchen'
  542. gs 'kit_din'
  543. '<center><h3>Kitchen</h3></center>'
  544. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/kuhrpar.jpg"></center>'
  545. 'It is a modest kitchen but has all that is needed.'
  546. ! dishes
  547. if cltarelka > 0:
  548. 'Above the sink are <b><<cltarelka>></b> the clean plates'
  549. else
  550. '<b><font color = red>You have no clean dishes left.</font></b>'
  551. end
  552. if dirttarelka > 0:'The sink has <b><<dirttarelka>></b> pieces of dirty dishes. <a href="exec: dynamic $dirtarm">That can be washed and</a>.'
  553. if fairy > 0:
  554. 'above the sink is a detergent to wash the dishes with, there is enough for <b><<fairy>></b> time.'
  555. else
  556. '<b><font color = red>you do not have any detergent to wash the dishes, You need to buy detergent.</font></b>'
  557. end
  558. ! food
  559. if eda > 0:
  560. if cltarelka = 0 or edahot > 0:$edagot = ''
  561. if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec:dynamic $edagotd">Cook meal (0:30) for yourself</a>'
  562. 'In the refrigerator there''s enough (your own) food for <b><<eda>></b> servings. <<$edagot>>'
  563. end
  564. if edahot > 0:'<a href="exec: dynamic $edahotd ">On the table is ready meal (0:30).</a>'
  565. if edaD = 0 and eda = 0:'<b><font color="red">Yyou have nothing to eat, the refrigerator is empty!</font></b>'
  566. if eda >= 3:
  567. '<a href="exec: gt ''pavSharedApt'', ''cookForGuys''">Cook meal (1:30) for the guys</a>'
  568. end
  569. act 'Have a snack (0:05)':gs 'food', 'snack'
  570. act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
  571. act 'Have a cup of tea (0:05)':
  572. cls
  573. minut += 5
  574. if pcs_hydra >= 100:
  575. 'You don''t need any more tea.'
  576. else
  577. pcs_hydra += 80
  578. cumspclnt = 2
  579. gs 'cum_cleanup'
  580. pcs_breath = 0
  581. pcs_mood += rand(3, 6)
  582. gs 'stat'
  583. 'You make a refreshing cup of tea and everything seems a little better.'
  584. end
  585. act 'Get up from the table':gt 'pavSharedApt', 'kitchen'
  586. end
  587. if pranik > 0:
  588. 'You have <<pranik>> tea biscuits.'
  589. act 'Drink tea with biscuits (0:05)':
  590. cla
  591. *clr
  592. minut += 5
  593. pranik -= 1
  594. pcs_health += 30
  595. pcs_mood += 20
  596. pcs_energy += 20
  597. if pcs_hydra >= 100:
  598. pcs_hydra += 30
  599. else
  600. pcs_hydra += 60
  601. end
  602. cumspclnt = 2
  603. gs 'cum_cleanup'
  604. pcs_breath = 0
  605. fat += 4
  606. frost = 0
  607. gs 'stat'
  608. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  609. 'You drank tea and enjoyed the tea biscuits. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
  610. act 'Get up from the table':gt 'pavSharedApt', 'kitchen'
  611. end
  612. end
  613. if edaD > 0:
  614. act 'Eat diet food (0:30)':
  615. cla
  616. *clr
  617. frost = 0
  618. minut += 30
  619. pcs_health += 10
  620. pcs_mood += 20
  621. edaD -= 1
  622. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  623. if pcs_energy >= 100:
  624. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  625. elseif pcs_energy >= 80:
  626. pcs_energy += 40
  627. 'You try to enjoy the diet meal, but half-way in you realize you weren''t all that hungry yet. You manage to finish the meal, but feel like it was kind of wasted.'
  628. else
  629. pcs_energy += 80
  630. 'The diet meal is tasty, and you enjoy eating it.'
  631. end
  632. if pcs_hydra >= 80:
  633. 'You don''t need any more tea.'
  634. else
  635. pcs_hydra += 100
  636. cumspclnt = 2
  637. gs 'cum_cleanup'
  638. pcs_breath = 0
  639. gs 'stat'
  640. 'You have a cup of tea, quenching your thirst.'
  641. end
  642. act 'Get up from the table':gt 'pavSharedApt', 'kitchen'
  643. end
  644. end
  645. if fatdel > 0:
  646. act 'Consume fat burners':
  647. cla
  648. *clr
  649. fatdel -= 1
  650. if pcs_hydra >= 100:
  651. pcs_hydra += 25
  652. else
  653. pcs_hydra += 50
  654. end
  655. salo -= 20
  656. if salo < 11: salo = 11
  657. gs 'stat'
  658. gs 'body_shape', 'softreset'
  659. 'You throw the capsule of fat burners in a glass, add some water and drink it. You''re amazed at how fast the capsule works, feeling your body slim down almost immediately.'
  660. act 'Get up from the table':gt 'pavSharedApt', 'kitchen'
  661. end
  662. end
  663. if lekarstvo > 0:
  664. 'You have <<lekarstvo>> tablet(s).'
  665. if sick > 0 and lekarday ! daystart:
  666. act 'Take a pill (0:05)':
  667. cla
  668. *clr
  669. minut += 5
  670. lekarday = daystart
  671. lekarstvo -= 1
  672. sick -= sick * 20 / 100
  673. if pcs_hydra >= 100:
  674. pcs_hydra += 25
  675. else
  676. pcs_hydra += 50
  677. end
  678. picrand = rand(1,9)
  679. gs 'stat'
  680. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr<<picrand>>.jpg"></center>'
  681. 'You swallow the pill, and shortly after you feel a bit better.'
  682. act 'Continue':gt 'pavSharedApt', 'kitchen'
  683. end
  684. end
  685. end
  686. if vitamin > 0:
  687. 'You have <<vitamin>> vitamin pills.'
  688. if vitaminday ! daystart:
  689. act 'Take vitamins (0:05)':
  690. cla
  691. *clr
  692. minut += 5
  693. vitaminday = daystart
  694. vitamin -= 1
  695. frost = 0
  696. if pcs_hydra >= 100:
  697. pcs_hydra += 25
  698. else
  699. pcs_hydra += 50
  700. end
  701. if KandidozOnce = 1:Kandidoz -= 2
  702. if GerpesOnce = 1:Gerpes -= 2
  703. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  704. pcs_skin += 1
  705. gs 'stat'
  706. 'You take some vitamins to stay healthy.'
  707. act 'Continue':gt 'pavSharedApt', 'kitchen'
  708. end
  709. end
  710. end
  711. act 'Leave':gt 'pavSharedApt', 'start'
  712. end
  713. if $ARGS[0] = 'cookForGuys':
  714. cla
  715. *clr
  716. $loc = 'pavSharedApt'
  717. $metka = 'kitchen'
  718. minut += 90
  719. eda -= 3
  720. kuhdrova = 0
  721. pcs_mood -= 10
  722. gs 'stat'
  723. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  724. 'You prepare three meals.'
  725. price = price_cook
  726. act 'Leave the meal':gt 'pavSharedApt', 'payService'
  727. end
  728. if $ARGS[0] = 'cleanForGuys':
  729. cla
  730. *clr
  731. minut += 60
  732. poroshok -= 3
  733. pcs_mood -= 10
  734. gs 'stat'
  735. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  736. price = price_clean
  737. *nl
  738. 'You collect piles 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.'
  739. cumStainCh = rand (0, 100)
  740. if servitudeLvl = 2 and cumStainCh <= 50:'<i>You notice bedsheets with what seems as dried out cum. Probably remainder of one of yours "servings". Maybe it is really better to swallow everytime, you wonder?</i>'
  741. act 'Hang them to dry out and leave':gt 'pavSharedApt', 'payService'
  742. end
  743. ! living room & pc bedroom
  744. if $ARGS[0] = 'pcsRoom':
  745. $loc = 'pavSharedApt'
  746. $metka = 'pcsRoom'
  747. $location_type = 'private'
  748. $locclass = 'bedr'
  749. minut += 2
  750. gs 'stat'
  751. gs 'pavSharedApt', 'update'
  752. '<center><b><font color="maroon">Living Room</font></b></center>'
  753. '<center><img <<$set_imgh>> src="images/shared/sharedapt/bedroom/sofabed.jpg"></center>'
  754. ''
  755. 'The living room wasn''t in use by the other apartment occupants, so it is now rented to use as a bedroom. It''s sparsly decorated, with, a <a href="exec:gt ''bed'', ''start''">sofa bed</a>, against the back wall.'
  756. ''
  757. 'Beside the sofa bed, is an old cabinet, with your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on top.'
  758. if budilnikOn = 0:
  759. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 1 & GT ''pavSharedApt'',''pcsRoom''">off</a>.'
  760. else
  761. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 0 & GT ''pavSharedApt'',''pcsRoom''">on</a>.'
  762. end
  763. ''
  764. if TV = 0:$TV = 'a great place for a TV, if you had one.'
  765. if TV = 1:$TV = 'an old CRT <a href="exec:gt ''TV'', ''start''">TV</a> sits on the shelf'
  766. '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.'
  767. ''
  768. 'On the other side of the sofa bed are your old <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">suitcases</a>, which you could use to store the clothes you don''t often wear.'
  769. ''
  770. 'There is no door to the living room, instead there''s <a href="exec:view''images/shared/sharedapt/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-existant window curtains'
  771. act '<b>Leave the room</b>':gt 'pavSharedApt', 'start'
  772. act 'Sit on the sofa bed':gt 'pavSharedApt', 'sofabed'
  773. if obruch > 0: '<br>A hula hoop stands in corner of the room. '
  774. if skak > 0: 'A jump rope is on a shelf. '
  775. if bookYog > 0: 'A yoga mat is rolled up in a corner. '
  776. gs 'exercise', 'start'
  777. ''
  778. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is sitting on small table.'
  779. if student > 0 and kursovik < 100:
  780. act 'Do coursework (1:00)':
  781. cla
  782. *clr
  783. minut += 60
  784. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  785. if kursovik > 100:kursovik = 100
  786. pcs_mood -= 10
  787. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  788. 'You sit down on the sofa bed and do your coursework, you''ve finished <<kursovik>> percent of it.'
  789. act 'Stand up':gt 'pavSharedApt', 'pcsRoom'
  790. end
  791. end
  792. if vcard > 0:
  793. act 'Look at your deck of vintage porn cards':card_deck = 0 & gt 'card'
  794. end
  795. if card > 0:
  796. act 'Look at your deck of new porn cards':card_deck = 1 & gt 'card'
  797. end
  798. if dur > 0:'You have <<dur>> doses of Pale Lady, hidden from the other housemates.'
  799. if dur > 0 and narkday ! daystart:
  800. act 'Use some Pale Lady (0:05)':
  801. cla
  802. *clr
  803. minut += 5
  804. narkday = daystart
  805. pcs_health = pcs_vital * 10 + pcs_stren * 5
  806. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  807. pcs_mood = 100
  808. pcs_horny = 100
  809. nark += 10
  810. dur -= 1
  811. gs 'stat'
  812. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  813. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  814. act 'Continue':gt 'pavSharedApt', 'pcsRoom'
  815. end
  816. end
  817. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  818. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  819. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  820. if pcs_sewng >= 80:
  821. if newgobelen = 0 and tkan > 0:
  822. act'Start a new tapestry':
  823. cls
  824. tkan -= 1
  825. newgobelen = 1
  826. minut += 15
  827. gs'stat'
  828. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  829. act'Set the tapestry aside':gt 'pavSharedApt', 'pcsRoom'
  830. end
  831. end
  832. if newgobelen>=1:
  833. 'Your tapestry is <<newgobelen/10>> percent finished.'
  834. act'Work on the tapestry for an hour':
  835. cls
  836. minut+=60
  837. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  838. gobramax = (pcs_sewng - 70) * 6
  839. gobramin = (pcs_sewng - 70) * 2
  840. newgobelen += rand(gobramin,gobramax)
  841. gs'stat'
  842. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  843. if newgobelen >= 1000:
  844. newgobelen = 0
  845. gobelen += 1
  846. 'Your work on the tapestry is done.'
  847. end
  848. act'Set the tapestry aside':gt 'pavSharedApt', 'pcsRoom'
  849. end
  850. end
  851. end
  852. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  853. '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>.'
  854. elseif tabletki > 0:
  855. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> tablets are in the cabinet next to your bed.'
  856. elseif prezik + prezikcount + preziksabo > 0:
  857. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are in the cabinet next to your bed.'
  858. end
  859. ''
  860. if sewing_kit = 1:
  861. 'Your <a href="exec:gt ''sewing'',''start''">sewing kit</a> is stored on a shelf.'
  862. end
  863. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  864. dynamic $wearpan
  865. dynamic $removepan
  866. !gs 'subkid'
  867. if pcs_sleep <= 80:
  868. if $clothingworntype = 'nude':
  869. $sleep_txt = 'Go to sleep'
  870. else
  871. $sleep_txt = 'Undress and go to sleep'
  872. end
  873. if succubusQW = 2:
  874. act '<<$sleep_txt>>':
  875. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  876. gt 'bed2', 'succhoice'
  877. end
  878. else
  879. act '<<$sleep_txt>>':
  880. if disable_autosave = 0:
  881. if StoryLine = 0:
  882. savegame 'autosave.sav'
  883. else
  884. savegame 'autosave_alt.sav'
  885. end
  886. end
  887. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  888. if magf2bdo = 2:
  889. gt 'bed2', 'magbstchoice'
  890. else
  891. gt 'bed2', 'sleep'
  892. end
  893. end
  894. killvar '$sleep_txt'
  895. end
  896. end
  897. end
  898. if $ARGS[0] = 'sofabed':
  899. $loc = 'pavSharedApt'
  900. $metka = 'sofabed'
  901. *clr & cla
  902. gs 'stat'
  903. '<center><img <<$set_imgh>> src="images/shared/sharedapt/bedroom/sofabed.jpg"></center>'
  904. '<center>A small sofa bed, when not unfolded, is just big enough for you to curl up on and take a nap.</center>'
  905. if TV = 1:
  906. act 'Watch some TV':gt 'TV', 'start'
  907. end
  908. if pornMagazine > 0:'<br>There is a porn magazine under the sofa cushions'
  909. gs 'events', 'read_porn'
  910. gs 'events', 'read'
  911. if pcs_horny >= 50:
  912. act 'Masturbate':gt 'selfplay', 'start'
  913. end
  914. act 'Take a nap (1:00)':
  915. if pcs_sleep < 90:
  916. pcs_sleep += 10
  917. pcs_health += 5
  918. minut += 60
  919. gs 'stat'
  920. 'You sleep about an hour.'
  921. else
  922. minut += 5
  923. gs 'stat'
  924. 'You are not tired enough to sleep, even for a short nap.'
  925. end
  926. end
  927. act 'Get up':gt 'pavSharedApt', 'pcsRoom'
  928. end
  929. if $ARGS[0] = 'ndRoom':
  930. $loc = 'pavSharedApt'
  931. $metka = 'ndRoom'
  932. minut += 2
  933. '<center><h3><font color=#<<$nd_font>>><<$nd_name>>''s room</font></h3></center>'
  934. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/nd/room.jpg"></center>'
  935. ''
  936. 'The room is surprisingly not as messy as one would expect, given that <<$nd_name>> is an IT guy.'
  937. 'There is one large window with bed bellow it, but the whole room is dominated by a large table with several computers and monitors.'
  938. 'Looking at it one would say that this must be a den of a hacker.'
  939. if hour >= nd_sleeps and hour < nd_wakes:
  940. '<<$nd_name>> is sleeping in his bed.'
  941. elseif hour >= nd_wakes and hour < nd_leaves:
  942. '<<$nd_name>> is already awake, getting ready to leave.'
  943. act 'Approach him': gt 'pavShared_nd', 'nd'
  944. elseif hour >= nd_leaves and hour < nd_comes:
  945. '<<$nd_name>> is not here.'
  946. elseif hour >= nd_comes and hour < nd_sleeps:
  947. '<<$nd_name>> is currently behind his desk, doing some clever IT stuff.'
  948. act 'Approach him': gt 'pavShared_nd', 'nd'
  949. end
  950. if servitudeLvl >= 1 and nd_cleaned = 0:
  951. if poroshok >= 1:
  952. act 'Clean the room':nd_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
  953. else
  954. 'You don''t have enough laundry detergent to clean the room'
  955. end
  956. end
  957. act 'Leave':gt 'pavSharedApt', 'start'
  958. end
  959. if $ARGS[0] = 'gpRoom':
  960. $loc = 'pavSharedApt'
  961. $metka = 'gpRoom'
  962. minut += 2
  963. '<center><h3><font color=#<<$gp_font>>><<$gp_name>>''s room</font></h3></center>'
  964. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/room.jpg"></center>'
  965. ''
  966. 'Messy room. Clothes everywhere.'
  967. if hour >= gp_wakes and hour < gp_leaves:
  968. '<<$gp_name>> is already awake, getting ready to leave.'
  969. act 'Approach him': gt 'pavShared_gp', 'gp'
  970. elseif hour >= gp_leaves and hour < gp_comes:
  971. '<<$gp_name>> is not here.'
  972. elseif hour >= gp_comes and hour < gp_sleeps:
  973. '<<$gp_name>> is currently on his bed, listing through some magazines.'
  974. act 'Approach him': gt 'pavShared_gp', 'gp'
  975. elseif hour >= gp_sleeps or hour < gp_wakes:
  976. '<<$gp_name>> is sleeping in his bed.'
  977. end
  978. if servitudeLvl >= 1 and gp_cleaned = 0:
  979. if poroshok >= 1:
  980. act 'Clean the room':gp_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
  981. else
  982. 'You don''t have enough laundry detergent to clean the room'
  983. end
  984. end
  985. act 'Leave':gt 'pavSharedApt', 'start'
  986. end
  987. if $ARGS[0] = 'spRoom':
  988. $loc = 'pavSharedApt'
  989. $metka = 'spRoom'
  990. minut += 2
  991. '<center><h3><font color=#<<$sp_font>>><<$sp_name>>''s room</font></h3></center>'
  992. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/room.jpg"></center>'
  993. ''
  994. 'Tidy room full of sporting stuff like dresses, equipment and trophys. On the walls hang several posters of famous sport guys.'
  995. if hour >= sp_wakes and hour < sp_leaves:
  996. '<<$sp_name>> is already awake, packing his bags to leave.'
  997. act 'Approach him': gt 'pavShared_sp', 'sp'
  998. elseif hour >= sp_leaves and hour < sp_comes:
  999. '<<$sp_name>> is not here.'
  1000. elseif hour >= sp_comes and hour < sp_sleeps:
  1001. doesStuff = rand (0, 100)
  1002. if doesStuff < 50:'<<$sp_name>> is currently on his bed, listing through sport magazines.'
  1003. if doesStuff >= 50:'<<$sp_name>> is working out on the floor.'
  1004. act 'Approach him': gt 'pavShared_sp', 'sp'
  1005. elseif hour >= sp_sleeps or hour < sp_wakes:
  1006. '<<$sp_name>> is sleeping in his bed.'
  1007. end
  1008. if servitudeLvl >= 1 and sp_cleaned = 0:
  1009. if poroshok >= 1:
  1010. act 'Clean the room':sp_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
  1011. else
  1012. 'You don''t have enough laundry detergent to clean the room'
  1013. end
  1014. end
  1015. act 'Leave':gt 'pavSharedApt', 'start'
  1016. end
  1017. --- pavSharedApt ---------------------------------