1
0

pavSharedApt 31 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821
  1. # pavSharedApt
  2. $loc = 'pavSharedApt'
  3. if $ARGS[0] = 'update':
  4. rentWeekly = 2000
  5. if rentLeft < 0:rentLeft = 0
  6. !how much of the unpaid weekly rent is left
  7. if orgB > 100:orgB = 100
  8. price_cook = 50
  9. price_clean = 50
  10. price_handjob = 50
  11. price_blowjob = 100
  12. price_vaginal = 150
  13. price_anal = 200
  14. price_special = 250
  15. ! time calculations
  16. weekNum = (daystart - (daystart mod 7)) / 7
  17. ! pcs setup
  18. $pcs_font = '990099'
  19. !pink
  20. ! servitudeLvl = 0 - no service, pays rent
  21. ! servitudeLvl = 1 - nonsexual service
  22. ! servitudeLvl = 2 - sexual and nonsexual service
  23. ! nerd guy
  24. ! shy, polite, but latent kink (giving golden shower, etc.)
  25. ! brown hair, hairy, pale skin
  26. ! average dick, hairy balls
  27. ! not paying attention to his own image and looks, wears glasses
  28. $nd_name = 'Oleg'
  29. $nd_font = '000099'
  30. !blue
  31. nd_leaves = 9
  32. nd_comes = 18
  33. nd_sleeps = 23
  34. nd_wakes = 8
  35. if nd_rel > 100: nd_rel = 100
  36. if nd_rel < 0: nd_rel = 0
  37. ndDick = 17
  38. nd_cumMax = 80
  39. nd_cumMin = 15
  40. if nd_cumVol > nd_cumMax:nd_cumVol = nd_cumMax
  41. if nd_cumVol < nd_cumMin:nd_cumVol = nd_cumMin
  42. nd_horny = (nd_cumVol * 10000 / nd_cumMax) / 100
  43. if nd_served = 1:nd_hadSex = 1
  44. !flag if there was already a sex between him and Sveta
  45. !sex flags: nd_bj ; nd_bjDeep ; nd_swall ; nd_vag ; nd_vagCumInside ; nd_vagCumInsideUnwanted ; nd_anal ; nd_analCumInside ; nd_analCumInsideUnwanted
  46. !unlocked sex: nd_doAnal ; nd_doPornpos
  47. !nd_cleaned = 1 - if was cleaned this day already
  48. ! gopnik guy
  49. ! rude, the younger the better, aggresive, hard
  50. ! dark hair, dark skin
  51. ! above average dick, somehow maintained hairs; event: he will take some enlarging pills testing his monster cock on Sveta
  52. $gp_name = 'Nestor'
  53. $gp_font = 'CC0000'
  54. !red
  55. gp_leaves = 11
  56. gp_comes = 19
  57. gp_sleeps = 23
  58. gp_wakes = 9
  59. if gp_rel > 100: gp_rel = 100
  60. if gp_rel < 0: gp_rel = 0
  61. gpDick = 22
  62. gp_cumMax = 100
  63. gp_cumMin = 30
  64. if gp_cumVol > gp_cumMax:gp_cumVol = gp_cumMax
  65. if gp_cumVol < gp_cumMin:gp_cumVol = gp_cumMin
  66. gp_horny = (gp_cumVol * 10000 / gp_cumMax) / 100
  67. if gp_served = 1:gp_hadSex = 1
  68. !flag if there was already a sex between him and Sveta
  69. !gp_bj ; gp_bjDeep ; gp_swall ; gp_vag ; gp_vagCumInside ; gp_vagCumInsideUnwanted ; gp_anal ; gp_analCumInside ; gp_analCumInsideUnwanted
  70. !unlocked sex: gp_doAnal ; gp_doPornpos ; gp_doVacuum
  71. ! sportsman guy
  72. ! blond hair, tanned
  73. ! latent gay, muscular and athletic, secret fantasies of being used by femboy (or at least a girl with strapon)
  74. ! bellow average dick, shaved
  75. $sp_name = 'Yakov'
  76. $sp_font = '009900'
  77. !green
  78. sp_leaves = 7
  79. sp_comes = 16
  80. sp_sleeps = 22
  81. sp_wakes = 5
  82. if sp_rel > 100: sp_rel = 100
  83. if sp_rel < 0: sp_rel = 0
  84. spDick = 14
  85. sp_cumMax = 60
  86. sp_cumMin = 10
  87. sp_horny = (sp_cumVol * 10000 / sp_cumMax) / 100
  88. if sp_cumVol > sp_cumMax:sp_cumVol = sp_cumMax
  89. if sp_cumVol < sp_cumMin:sp_cumVol = sp_cumMin
  90. if sp_served = 1:sp_hadSex = 1
  91. !flag if there was already a sex between him and Sveta
  92. !sp_bj ; sp_bjDeep ; sp_swall ; sp_vag ; sp_vagCumInside ; sp_vagCumInsideUnwanted ; sp_anal ; sp_analCumInside ; sp_analCumInsideUnwanted
  93. !mood setup
  94. if nd_mood = 1:$nd_mood = 'very good'
  95. if nd_mood = 2:$nd_mood = 'good'
  96. if nd_mood = 3:$nd_mood = 'normal'
  97. if nd_mood = 4:$nd_mood = 'bad'
  98. if nd_mood = 5:$nd_mood = 'very bad'
  99. if gp_mood = 1:$gp_mood = 'very good'
  100. if gp_mood = 2:$gp_mood = 'good'
  101. if gp_mood = 3:$gp_mood = 'normal'
  102. if gp_mood = 4:$gp_mood = 'bad'
  103. if gp_mood = 5:$gp_mood = 'very bad'
  104. if sp_mood = 1:$sp_mood = 'very good'
  105. if sp_mood = 2:$sp_mood = 'good'
  106. if sp_mood = 3:$sp_mood = 'normal'
  107. if sp_mood = 4:$sp_mood = 'bad'
  108. if sp_mood = 5:$sp_mood = 'very bad'
  109. if night_mode = 1:
  110. fcolor = rgb(255, 255, 255)
  111. bcolor = rgb(0, 0, 0)
  112. lcolor = rgb(106, 90, 205)
  113. else
  114. fcolor = rgb(0, 0, 0)
  115. bcolor = rgb(255, 255, 255)
  116. lcolor = rgb(106, 90, 205)
  117. end
  118. gs 'stat'
  119. if debg = 0:
  120. '<a href="exec:debg=1">DEBUG</a>'
  121. elseif debg = 1:
  122. '<a href="exec:debg=0">DEBUG</a>'
  123. $nd_name+' relation: '+nd_rel
  124. !$gp_name+' relation: '+gp_rel
  125. !$sp_name+' relation: '+sp_rel
  126. 'rentLeft: '+rentLeft
  127. 'weekNum: '+weekNum
  128. 'rentWeekNum: '+rentWeekNum
  129. 'servitudeLvl: '+servitudeLvl
  130. 'servicePaid: '+servicePaid
  131. 'cashPaid: '+cashPaid
  132. 'step: '+step
  133. 'subStep: '+subStep
  134. 'gp_mood: '+gp_mood
  135. 'gp_cumVol: '+gp_cumVol
  136. 'gp_cumVag: '+gp_cumVag
  137. 'gp_cumAnal: '+gp_cumAnal
  138. 'gp_cumSwall: '+gp_cumSwall
  139. 'nd_cumVol: '+nd_cumVol
  140. 'nd_cumMax: '+nd_cumMax
  141. 'nd_horny: '+nd_horny
  142. 'gp_horny: '+gp_horny
  143. 'sp_horny: '+sp_horny
  144. ''
  145. nd_served = 0
  146. nd_mood = 2
  147. gp_served = 0
  148. gp_mood = 2
  149. sp_mood = 2
  150. sp_served = 0
  151. end
  152. end
  153. ! apt house entry hallway
  154. if $ARGS[0] = 'hallway':
  155. minut += 2
  156. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/aptHallway.jpg"></left>'
  157. ''
  158. 'An old, common russian apartment house, lacking lots of years of repairs and maintenance.'
  159. 'The entry doors are left unlocked and even if they werent, they look like fall apart any moment.'
  160. if pavSharedAptEnabled = 0:
  161. 'Inside is a board with announcements for the tenants. One of them seems as an <a href="exec:gt ''pavSharedApt'', ''advert''">advert</a>.'
  162. else
  163. 'Inside is a board with announcements for the tenants. Nothing new there.'
  164. act 'Go to door number 3': gt 'pavSharedApt', 'doorNo3'
  165. end
  166. if seenAd = 1:
  167. act 'Go to door number 3': gt 'pavSharedApt', 'doorNo3'
  168. end
  169. act 'Leave the building':gt 'pavResidential'
  170. end
  171. ! accomodation advert
  172. if $ARGS[0] = 'advert':
  173. minut += 2
  174. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/board.jpg"></left>'
  175. ''
  176. 'Three young people offer a spare room in a shared apartment in this house.'
  177. 'If you are interested, come see us in the apartment No 3.'
  178. seenAd = 1
  179. act 'Continue':gt 'pavSharedApt', 'hallway'
  180. end
  181. ! door No 3
  182. if $ARGS[0] = 'doorNo3':
  183. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/aptNo3Door.jpg"></left>'
  184. ''
  185. 'You stand before the entry door to apartment No 3.'
  186. if pavSharedAptEnabled = 1:
  187. act 'Go inside':gt 'pavSharedApt', 'start'
  188. else
  189. act 'Ring the bell':gt 'pavSharedApt', 'intro'
  190. end
  191. act 'Go back':gt 'pavSharedApt', 'hallway'
  192. end
  193. ! apt hall
  194. if $ARGS[0] = 'start':
  195. $metka = 'start'
  196. $goBack = $metka
  197. $metkaM = 'start'
  198. $locM = 'pavSharedApt'
  199. gs 'pavSharedApt', 'update'
  200. if introDone = 0:gt 'pavSharedApt', 'intro'
  201. minut += 2
  202. ! do this once a day
  203. if daystart >= tomorrow:
  204. tomorrow = daystart + 1
  205. nd_mood = rand (1, 5)
  206. nd_served = 0
  207. nd_cleaned = 0
  208. nd_cumVol += rand(15, 30)
  209. gp_mood = rand (1, 5)
  210. gp_served = 0
  211. gp_cleaned = 0
  212. gp_cumVol = rand(20, 40)
  213. sp_mood = rand (1, 5)
  214. sp_served = 0
  215. sp_cleaned = 0
  216. sp_cumVol += rand(5, 20)
  217. end
  218. ! do this every time
  219. rentLeft = rentWeekly - servicePaid - cashPaid
  220. '<h3>Hallway</h3>'
  221. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/hallway.jpg"></left>'
  222. 'It is week number '+weekNum+'.'
  223. if weekNum < rentWeekNum:
  224. if rentLeft > 0:
  225. 'You have left '+rentLeft+' RUB of rent to pay for the next week.'
  226. if servitudeLvl >= 1:
  227. 'You may still pay it in <a href="exec:gt ''pavSharedApt'', ''payCash''">cash</a>, if you want.'
  228. else
  229. 'Pay it in <a href="exec:gt ''pavSharedApt'', ''payCash''">cash</a>.'
  230. end
  231. else
  232. 'You have already paid the whole rent for the next week.'
  233. end
  234. elseif weekNum >= rentWeekNum:
  235. if rentLeft = 0:
  236. !rent was forepaid, everything OK, proceed to next week
  237. rentLeft += 2000
  238. cashPaid = 0
  239. rentWeekNum = weekNum + 1
  240. elseif rentLeft > 0:
  241. !rent was not fully paid
  242. 'You did not pay the whole rent for this week.'
  243. if money >= rentLeft:
  244. !not enough cash to pay it manually
  245. 'You still can pay it in <a href="exec:gt ''pavSharedApt'', ''payCash''">cash</a>, otwerwise you''ll be kicked out!'
  246. else
  247. !in future add some way to serve your way out
  248. '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..'
  249. rentPaid = 0
  250. pavSharedAptEnabled = 0
  251. end
  252. end
  253. end
  254. if rentPaid = 1:
  255. 'A large apartment currently serves as a shared living. There are four rooms, 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>.'
  256. 'You stand in the hallway. '
  257. ''
  258. '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.'
  259. 'The last doors lead to the <a href="exec:gt ''pavSharedApt'', ''pcsRoom''">room</a> you have rented.'
  260. ''
  261. 'There are several closets for your <a href="exec:gt ''shoes'', ''select''">shoes</a> and a large tall <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
  262. 'The <a href="exec:gt ''cloakroom'', ''view_coat_list''">coats</a> are hanging in the corner.'
  263. if servitudeLvl >= 1:'A computer printed <a href="exec:gt ''pavSharedApt'', ''list''">list</a> hangs on the exit door.'
  264. act '<<$pcs_firstname>>''s room':gt 'pavSharedApt', 'pcsRoom'
  265. act 'Bathroom':gt 'pavSharedApt', 'bathroom'
  266. act 'Kitchen':gt 'pavSharedApt', 'kitchen'
  267. end
  268. if $clothingworntype = 'nude':
  269. ''
  270. '<b>You cannot leave the apartment naked.</b>'
  271. else
  272. act 'Leave':gt 'pavResidential'
  273. end
  274. end
  275. if $ARGS[0] = 'payCash':
  276. minut += 2
  277. cash = rentLeft
  278. if money >= cash:
  279. 'You have decided to pay the remainder of the weekly rent in cash. It makes '+cash+' RUB.'
  280. cashPaid += cash
  281. money -= cash
  282. rentPaid = 1
  283. pavSharedAptEnabled = 1
  284. else
  285. 'You do not have enough money to pay it.'
  286. end
  287. act 'Proceed':gt 'pavSharedApt', 'start'
  288. end
  289. if $ARGS[0] = 'payService':
  290. minut += 1
  291. 'The amount '+price+' RUB was taken in account of your weekly rent.'
  292. servicePaid += price
  293. act 'Continue':gt 'pavSharedApt', 'start'
  294. end
  295. if $ARGS[0] = 'rentSetup':
  296. minut += 2
  297. 'You get a list of paper, saying the weekly rent fee is <<rentWeekly>> rubles.'
  298. rentPaid = 1
  299. introDone = 1
  300. rentWeekNum = (daystart - (daystart mod 7)) / 7 + 1
  301. act 'Continue':gt 'pavSharedApt', 'start'
  302. end
  303. if $ARGS[0] = 'intro':
  304. gs 'pavSharedApt', 'update'
  305. if step > 0:
  306. '<left><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"></left>'
  307. ''
  308. end
  309. if step = 0:
  310. minut += 2
  311. step = 1
  312. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></left>'
  313. ''
  314. 'The door are opened by a young, nice looking athletic man.'
  315. '<font color=#<<$sp_font>>>"Hi sweetie! What do you need?"</font>'
  316. '<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>'
  317. '<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>'
  318. act 'Go in':gt 'pavSharedApt', 'intro'
  319. elseif step = 1:
  320. minut += 3
  321. step = 2
  322. '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.'
  323. 'The guy disappears in one of the doors and you can hear talking him to someone.'
  324. 'They seem to be trying to talk quietly, but you can hear a sentence or two..:'
  325. ''
  326. '"..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.."'
  327. ''
  328. 'In a while three young guys appear in the hallway.'
  329. '<font color=#<<$sp_font>>>"So that''s her guys. <<$pcs_firstname>>, could you introduce yourself to guys?"</font>'
  330. '<font color=#<<$pcs_font>>>"Hello, my name is <<$pcs_firstname>> <<$pcs_lastname>>. I would like to rent the empty room in your apartment."</font>'
  331. '<font color=#<<$gp_font>>>"Well now that''s what I like! Finally this won''t be such a gay party!"</font>'
  332. '<font color=#<<$nd_font>>>"<<$pcs_firstname>> please excuse my friend <<$gp_name>>, he is such a rude to everyone. My name is <<$nd_name>>."</font>'
  333. '<font color=#<<$gp_font>>>"Yup, I''m <<$gp_name>>."</font>'
  334. '<font color=#<<$nd_font>>>"So you would like to live here with us?"</font>'
  335. '<font color=#<<$pcs_font>>>"Yes. I need a new place to stay."</font>'
  336. '<font color=#<<$gp_font>>>"How old are you girl?"</font>'
  337. '<font color=#<<$nd_font>>>"<<$gp_name>>! Not again this!"</font>'
  338. '<font color=#<<$pcs_font>>>"It''s OK. I have actually <<age>> years. Why do you ask?"</font>'
  339. '<font color=#<<$nd_font>>>"He''s just idiot, don''t listen to him."</font>'
  340. if age < 18:
  341. '(You can see <<$gp_name>> rub his crotch just a brief moment after you told him your age. What''s he up to?)'
  342. end
  343. act 'Continue':gt 'pavSharedApt', 'intro'
  344. elseif step = 2:
  345. minut += 3
  346. step = 3
  347. '<font color=#<<$pcs_font>>>"So what do you guys say, will you take me in?"</font>'
  348. '<font color=#<<$nd_font>>>"We may. But first, do you have the money to pay the rent?"</font>'
  349. '<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>'
  350. '<font color=#<<$nd_font>>>"It is indeed."</font>'
  351. '<font color=#<<$sp_font>>>"<<rentWeekly>> rubles. Per week."</font>'
  352. '<font color=#<<$pcs_font>>>"Uhm. That''s quite a lot. I''m not sure if I''ll be able to afford this.."</font>'
  353. '<font color=#<<$gp_font>>>"You can pay other ways if you''d like!"</font>'
  354. '<font color=#<<$nd_font>>>"<<$gp_name>>!"</font>'
  355. '<font color=#<<$pcs_font>>>"What do you mean by other ways?"</font>'
  356. '<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>'
  357. '<font color=#<<$pcs_font>>>"Like cooking and cleaning?"</font>'
  358. '<font color=#<<$sp_font>>>"Yes, exactly."</font>'
  359. '<font color=#<<$gp_font>>>"And more."</font>'
  360. '<font color=#<<$nd_font>>>"Oh my... I give up."</font>'
  361. act 'More what?':gt 'pavSharedApt', 'intro'
  362. elseif step = 3:
  363. minut += 3
  364. '<font color=#<<$gp_font>>>"More services."</font>'
  365. '<font color=#<<$pcs_font>>>"What kind of ''more services''?"</font>'
  366. '<font color=#<<$sp_font>>>"Girl to guys kind of services."</font>'
  367. '<font color=#<<$pcs_font>>>"You mean to be a whore for you? Instead of paying the rent???"</font>'
  368. '<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>'
  369. '<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>'
  370. '<font color=#<<$sp_font>>>"So what do you say <<$pcs_firstname>>?"</font>'
  371. act 'Say you will pay the rent the normal way':pavSharedAptEnabled = 1 & step = 10 & gt 'pavSharedApt', 'intro'
  372. act 'Say you don''t mind doing the homekeeping stuff':pavSharedAptEnabled = 1 & step = 20 & gt 'pavSharedApt', 'intro'
  373. act 'Say you don''t mind anything':pavSharedAptEnabled = 1 & step = 30 & gt 'pavSharedApt', 'intro'
  374. act 'Say that you changed your mind about this':step = 40 & gt 'pavSharedApt', 'intro'
  375. elseif step = 10:
  376. minut += 2
  377. '<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>'
  378. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  379. '<font color=#<<$sp_font>>>"So the room is over there. There is all you need, a bed, a table with chair, all this stuff. Just move in when you want. See you later <<$pcs_firstname>>!"</font>'
  380. '<font color=#<<$nd_font>>>"Have a nice day <<$pcs_firstname>>."</font>'
  381. '<font color=#<<$gp_font>>>"See ya later girlie..."</font>'
  382. '<font color=#<<$pcs_font>>>"Later guys!"</font>'
  383. servitudeLvl = 0
  384. act 'Continue':step = 0 & gt 'pavSharedApt', 'rentSetup'
  385. elseif step = 20:
  386. minut += 2
  387. '<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>'
  388. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  389. '<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>'
  390. '<font color=#<<$pcs_font>>>"Cool!"</font>'
  391. '<font color=#<<$sp_font>>>"So the room is over there. There is all you need, a bed, a table with chair, all this stuff. Just move in when you want. See you later <<$pcs_firstname>>!"</font>'
  392. '<font color=#<<$nd_font>>>"Have a nice day <<$pcs_firstname>>."</font>'
  393. '<font color=#<<$gp_font>>>"See ya later girlie..."</font>'
  394. '<font color=#<<$pcs_font>>>"Later guys!"</font>'
  395. servitudeLvl = 1
  396. act 'Continue':step = 0 & gt 'pavSharedApt', 'rentSetup'
  397. elseif step = 30:
  398. minut += 2
  399. '<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>'
  400. '<font color=#<<$pcs_font>>>"Yes, OK, I understand."</font>'
  401. '<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>'
  402. '<font color=#<<$gp_font>>>"The extra stuff services will be there too, girl."</font>'
  403. '<font color=#<<$pcs_font>>>"OK.."</font>'
  404. '<font color=#<<$sp_font>>>"So the room is over there. There is all you need, a bed, a table with chair, all this stuff. Just move in when you want. See you later <<$pcs_firstname>>!"</font>'
  405. '<font color=#<<$nd_font>>>"Have a nice day <<$pcs_firstname>>."</font>'
  406. '<font color=#<<$gp_font>>>"See ya later girlie..."</font>'
  407. '<font color=#<<$pcs_font>>>"Later guys!"</font>'
  408. servitudeLvl = 2
  409. act 'Continue':step = 0 & gt 'pavSharedApt', 'rentSetup'
  410. elseif step = 40:
  411. minut += 2
  412. '<font color=#<<$nd_font>>>"I told you idiot not to scare her away!"</font>'
  413. '<font color=#<<$gp_font>>>"Sorry man! We can still lock her to the radiator like I suggested in the first place.."</font>'
  414. '<font color=#<<$nd_font>>>"Just shut up already!"</font>'
  415. ''
  416. '<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>'
  417. act 'Tell them goodbye and leave':step = 0 & gt 'pavResidential'
  418. end
  419. end
  420. ! the pricelist
  421. if $ARGS[0] = 'list':
  422. $metka = 'list'
  423. minut += 2
  424. $goBack = $metka
  425. '<h3><<$pcs_firstname>>''s pricelist</h3>'
  426. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/list.jpg"></left>'
  427. ''
  428. 'The basic weekly rent is <<rentWeekly>> rubles.'
  429. 'It is possible to pay it in cash, or offer services instead. The prices are folllowing:'
  430. ''
  431. '---------------'
  432. ''
  433. 'Cooking a warm meal: '+price_cook
  434. 'Cleaning the apartment: '+price_clean
  435. if servitudeLvl >= 2:
  436. ''
  437. 'Handjob: '+price_handjob
  438. 'Blowjob: '+price_blowjob
  439. 'Sex: '+price_vaginal
  440. 'Anal sex: '+price_anal
  441. 'Special treats: '+price_special
  442. end
  443. ''
  444. '---------------'
  445. ''
  446. 'Not having paid the full weekly rent at the beginning of a new week will lead to termination of the accommodation services.'
  447. '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>>.'
  448. ''
  449. '---------------'
  450. act 'Continue':gt 'pavSharedApt', 'start'
  451. end
  452. ! paying with money
  453. if $ARGS[0] = 'payRent':
  454. minut += 1
  455. 'You decided to give the guys money, instead of serving them.'
  456. 'You just spent <<paid_rent>> cash.'
  457. money -= paid_rent
  458. gs 'stat'
  459. act 'Continue': gs 'pavSharedApt', 'start'
  460. end
  461. if $ARGS[0] = 'bathroom':
  462. minut += 1
  463. $location_type = 'bathroom'
  464. $metka = 'bathroom'
  465. '<h3>Bathroom</h3>'
  466. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/vanrpar.jpg"></left>'
  467. 'Modest bathroom, containing all that young people need for their daily life.'
  468. gs 'din_van', 'private'
  469. act 'Leave':gt 'pavSharedApt', 'start'
  470. end
  471. if $ARGS[0] = 'kitchen':
  472. minut += 2
  473. $metka = 'kitchen'
  474. gs 'kit_din'
  475. '<h3>Kitchen</h3>'
  476. '<left><img <<$set_imgh>> src="images/locations/oldtown/apartment/kuhr2x.jpg"></left>'
  477. 'It is a modest kitchen but has all that is needed.'
  478. ! dishes
  479. if cltarelka > 0:
  480. 'Above the sink are <b><<cltarelka>></b> the clean plates'
  481. else
  482. '<b><font color = red>You have no clean dishes left.</font></b>'
  483. end
  484. if dirttarelka > 0:'The sink has <b><<dirttarelka>></b> pieces of dirty dishes. <a href="exec: dynamic $dirtarm">That can be washed and</a>.'
  485. if fairy > 0:
  486. 'above the sink is a detergent to wash the dishes with, there is enough for <b><<fairy>></b> time.'
  487. else
  488. '<b><font color = red>you do not have any detergent to wash the dishes, You need to buy detergent.</font></b>'
  489. end
  490. ! food
  491. if eda > 0:
  492. if cltarelka = 0 or edahot > 0:$edagot = ''
  493. if cltarelka > 0 and edahot = 0:
  494. $edagot = '<a href="exec:dynamic $edagotd">Cook meal (0:30) for yourself</a>'
  495. if eda >= 3:
  496. '<a href="exec: gt ''pavSharedApt'', ''cookForGuys''">Cook meal (1:30) for the guys</a>'
  497. end
  498. 'In the refrigerator there''s enough (your own) food for <b><<eda>></b> servings. <<$edagot>>'
  499. end
  500. end
  501. if edahot > 0:'<a href="exec: dynamic $edahotd ">On the table is ready meal.</a>'
  502. if pranik > 0:
  503. if pranik = 1:
  504. 'You only have a couple of cookies for a snack.'
  505. else
  506. 'You have enough cookies for <b><<pranik>></b> more snacks.'
  507. end
  508. dynamic $pranik
  509. end
  510. dynamic $edaD
  511. dynamic $fatdel
  512. dynamic $driwater
  513. dynamic $lekarstvo
  514. dynamic $vitamin
  515. act 'Leave':gt 'pavSharedApt', 'start'
  516. end
  517. if $ARGS[0] = 'cookForGuys':
  518. cla
  519. *clr
  520. minut += 90
  521. eda -= 3
  522. kuhdrova = 0
  523. !musor += 1
  524. cltarelka -= 1
  525. pcs_mood -= 10
  526. gs 'stat'
  527. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  528. 'You prepare three meals.'
  529. price = price_cook
  530. act 'Leave the meal':gt 'pavSharedApt', 'payService'
  531. end
  532. if $ARGS[0] = 'cleanForGuys':
  533. cla
  534. *clr
  535. minut += 60
  536. suhbelo += dirtbelo
  537. poroshok -= 3
  538. dirtbelo = 0
  539. pcs_mood -= 10
  540. gs 'stat'
  541. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  542. price = price_clean
  543. *nl
  544. '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.'
  545. cumStainCh = rand (0, 100)
  546. 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>'
  547. act 'Hang them to dry out and leave':gt 'pavSharedApt', 'payService'
  548. end
  549. if $ARGS[0] = 'pcsRoom':
  550. minut += 2
  551. $metka = 'pcsRoom'
  552. $location_type = 'private'
  553. $locclass = 'bedr'
  554. gs 'pavSharedApt', 'update'
  555. '<h3><<$pcs_firstname>>''s bedroom</h3>'
  556. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/bedr.jpg"></center>'
  557. 'A tight, little room with a <a href="exec:gt ''bed'', ''start''">double bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>.'
  558. 'An old wooden wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) stands near the door to the corridor, on top of it there''s a <a href="exec:gt ''clothing'', ''view_clothing_list'', ''store''">suitcase</a> you can store some clothes in. The windows are closed with faded, heavy curtains.'
  559. 'In the bottom of your wardrobe you have <a href="exec:gt ''shoes'', ''select''">your shoes</a> and next to it is a dresser you keep <a href="exec:gt ''underwear'', ''dresser''">your underwear</a> in.'
  560. if budilnikOn = 0:
  561. '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>.'
  562. else
  563. '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>.'
  564. end
  565. if pornMagazine > 0:'Under your mattress you hide a porn magazine.'
  566. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on your desk.'
  567. if pcs_horny >= 50:
  568. act 'Masturbate':gt 'selfplay', 'start'
  569. end
  570. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  571. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers, as are your <a href="exec:gt ''stol'', ''bc''">condoms</a>.'
  572. elseif tabletki > 0:
  573. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  574. elseif prezik + prezikcount + preziksabo > 0:
  575. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  576. end
  577. if student > 0 and kursovik < 100:
  578. act 'Do coursework (1:00)':
  579. cla
  580. *clr
  581. minut += 60
  582. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  583. if kursovik > 100:kursovik = 100
  584. pcs_mood -= 10
  585. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  586. 'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'
  587. act 'Leave your desk':gt 'pavSharedApt', 'start'
  588. end
  589. end
  590. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  591. if vcard > 0:
  592. act 'Look at your deck of vintage porn cards':card_deck = 0 & gt 'card'
  593. end
  594. if card > 0:
  595. act 'Look at your deck of new porn cards':card_deck = 1 & gt 'card'
  596. end
  597. if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'
  598. if dur > 0 and narkday ! daystart:
  599. act 'Use some Pale Lady (0:05)':
  600. cla
  601. *clr
  602. minut += 5
  603. narkday = daystart
  604. pcs_health = pcs_vital * 10 + pcs_stren * 5
  605. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  606. pcs_mood = 100
  607. pcs_horny = 100
  608. nark += 10
  609. dur -= 1
  610. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  611. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  612. act 'Continue':gt 'pavSharedApt', 'start'
  613. end
  614. end
  615. gs 'exercise', 'start'
  616. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  617. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  618. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  619. if pcs_sewng >= 80:
  620. if newgobelen = 0 and tkan > 0:
  621. act'Start a new tapestry':
  622. cls
  623. tkan -= 1
  624. newgobelen = 1
  625. minut += 15
  626. gs'stat'
  627. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  628. act'Set the tapestry aside':gt 'pavSharedApt', 'start'
  629. end
  630. end
  631. if newgobelen>=1:
  632. 'Your tapestry is <<newgobelen/10>> percent finished.'
  633. act'Work on the tapestry for an hour':
  634. cls
  635. minut+=60
  636. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  637. gobramax = (pcs_sewng - 70) * 6
  638. gobramin = (pcs_sewng - 70) * 2
  639. newgobelen += rand(gobramin,gobramax)
  640. gs'stat'
  641. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  642. if newgobelen >= 1000:
  643. newgobelen = 0
  644. gobelen += 1
  645. 'Your work on the tapestry is done.'
  646. end
  647. act'Set the tapestry aside':gt 'pavSharedApt', 'start'
  648. end
  649. end
  650. end
  651. if pcs_sleep <= 80:
  652. if succubusQW = 2:
  653. act 'Undress and go to sleep':
  654. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  655. gt 'bed2', 'succhoice'
  656. end
  657. else
  658. act 'Undress and go to sleep':
  659. if disable_autosave = 0:
  660. if StoryLine = 0:
  661. savegame 'autosave.sav'
  662. else
  663. savegame 'autosave_alt.sav'
  664. end
  665. end
  666. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  667. if magf2bdo = 2:
  668. gt 'bed2', 'magbstchoice'
  669. else
  670. gt 'bed2', 'sleep'
  671. end
  672. end
  673. end
  674. end
  675. dynamic $wearpan
  676. dynamic $removepan
  677. gs 'events', 'read_porn'
  678. gs 'subkid'
  679. act 'Leave your room':gt 'pavSharedApt', 'start'
  680. end
  681. if $ARGS[0] = 'ndRoom':
  682. minut += 2
  683. '<h3><font color=#<<$nd_font>>><<$nd_name>>''s room</font></h3>'
  684. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/nd/room.jpg"></left>'
  685. 'The room is surprisingly not as messy as one would expect, given that <<$nd_name>> is an IT guy.'
  686. 'There is one large window with bed bellow it, but the whole room is dominated by a large table with several computers and monitors.'
  687. 'Looking at it one would say that this must be a den of a hacker.'
  688. if hour >= nd_sleeps and hour < nd_wakes:
  689. '<<$nd_name>> is sleeping in his bed.'
  690. elseif hour >= nd_wakes and hour < nd_leaves:
  691. '<<$nd_name>> is already awake, getting ready to leave.'
  692. act 'Approach him': gt 'pavShared_nd', 'nd'
  693. elseif hour >= nd_leaves and hour < nd_comes:
  694. '<<$nd_name>> is not here.'
  695. elseif hour >= nd_comes and hour < nd_sleeps:
  696. '<<$nd_name>> is currently behind his desk, doing some clever IT stuff.'
  697. act 'Approach him': gt 'pavShared_nd', 'nd'
  698. end
  699. if servitudeLvl >= 1 and nd_cleaned = 0:act 'Clean the room':nd_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
  700. act 'Leave':gt 'pavSharedApt', 'start'
  701. end
  702. if $ARGS[0] = 'gpRoom':
  703. minut += 2
  704. '<h3><font color=#<<$gp_font>>><<$gp_name>>''s room</font></h3>'
  705. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/room.jpg"></left>'
  706. 'Messy room. Clothes everywhere.'
  707. if hour >= gp_wakes and hour < gp_leaves:
  708. '<<$gp_name>> is already awake, getting ready to leave.'
  709. act 'Approach him': gt 'pavShared_gp', 'gp'
  710. elseif hour >= gp_leaves and hour < gp_comes:
  711. '<<$gp_name>> is not here.'
  712. elseif hour >= gp_comes and hour < gp_sleeps:
  713. '<<$gp_name>> is currently on his bed, listing through some magazines.'
  714. act 'Approach him': gt 'pavShared_gp', 'gp'
  715. elseif hour >= gp_sleeps or hour < gp_wakes:
  716. '<<$gp_name>> is sleeping in his bed.'
  717. end
  718. if servitudeLvl >= 1 and gp_cleaned = 0:act 'Clean the room':gp_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
  719. act 'Leave':gt 'pavSharedApt', 'start'
  720. end
  721. if $ARGS[0] = 'spRoom':
  722. minut += 2
  723. '<h3><font color=#<<$sp_font>>><<$sp_name>>''s room</font></h3>'
  724. '<left><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/room.jpg"></left>'
  725. 'Tidy room full of sporting stuff like dresses, equipment and trophys. On the walls hang several posters of famous sport guys.'
  726. if hour >= sp_wakes and hour < sp_leaves:
  727. '<<$sp_name>> is already awake, packing his bags to leave.'
  728. act 'Approach him': gt 'pavShared_sp', 'sp'
  729. elseif hour >= sp_leaves and hour < sp_comes:
  730. '<<$sp_name>> is not here.'
  731. elseif hour >= sp_comes and hour < sp_sleeps:
  732. doesStuff = rand (0, 100)
  733. if doesStuff < 50:'<<$sp_name>> is currently on his bed, listing through sport magazines.'
  734. if doesStuff >= 50:'<<$sp_name>> is working out on the floor.'
  735. act 'Approach him': gt 'pavShared_sp', 'sp'
  736. elseif hour >= sp_sleeps or hour < sp_wakes:
  737. '<<$sp_name>> is sleeping in his bed.'
  738. end
  739. if servitudeLvl >= 1 and sp_cleaned = 0:act 'Clean the room':sp_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
  740. act 'Leave':gt 'pavSharedApt', 'start'
  741. end
  742. --- pavSharedApt ---------------------------------