bedrPar2 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133
  1. # bedrPar2
  2. if $ARGS[0] = '':
  3. CLOSE ALL
  4. act 'Return to the hallway':gt 'korrPar'
  5. $metkaM = $ARGS[0]
  6. $locM = $CURLOC
  7. $metka = $ARGS[0]
  8. $loc = $CURLOC
  9. $location_type = 'private'
  10. clr
  11. minut += 1
  12. gs 'stat'
  13. if night_mode = 1:
  14. fcolor = rgb(255, 255, 255)
  15. bcolor = rgb(0, 0, 0)
  16. lcolor = rgb(106, 90, 205)
  17. else
  18. fcolor = rgb(0, 0, 0)
  19. bcolor = rgb(255, 255, 255)
  20. lcolor = rgb(106, 90, 205)
  21. end
  22. '<center><h1><font color="maroon">Master bedroom</font></h1></center>'
  23. '<center><img src="images/locations/pavlovsk/resident/apartment/home/bedrpar2.jpg"></center>'
  24. *nl
  25. 'The room in which your parents live. Their large bed, <a href="exec: gt ''bedrPar2'',''parents_wardrobe''">wardrobe</a> and other closets take up most of the space.'
  26. gs 'family'
  27. if hour > 6 and hour < 21:
  28. if kamasutra_day ! daystart:
  29. 'On the bed you see a <a href="exec: gt ''bedrPar2'',''kamasutra''">book</a>.'
  30. end
  31. if prezikday ! daystart:
  32. if prezikProver >= 3:
  33. prezikday = daystart - 4
  34. act 'Take condoms from your parents'' stash':
  35. cls
  36. cla
  37. gs 'stat'
  38. minut+=rand(5,7)
  39. prezik+=rand(1,3)
  40. prezikday = daystart
  41. prezikProver = 0
  42. '<center><img src="images/shared/accessories/birthcontrol/condoms_steal.jpg"></center>'
  43. 'After you make sure you''re not seen, you quickly search your parents'' room for their condom stash and take a few. Now you have <<prezik>> pcs.'
  44. act 'Exit the room':gt 'korrPar'
  45. end
  46. else
  47. 'You have already taken some condoms out of your parents'' stash recently. You should wait a while, otherwise they might get suspicious.'
  48. end
  49. end
  50. end
  51. if hour = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  52. end
  53. ! book
  54. if $ARGS[0] = 'kamasutra':
  55. cla
  56. *clr
  57. minut += 1
  58. '<center><img src="images/locations/pavlovsk/resident/apartment/home/book.jpg"></center>'
  59. 'The cover says "Kamasutra"'
  60. act 'Read': kamasutra_page = 0 & kamasutra_day = daystart & gt 'bedrPar2', 'read_book'
  61. act 'Leave': gt $loc, $metka
  62. end
  63. ! read book
  64. if $args = 'read_book':
  65. *clr & cla
  66. pcs_horny += 2
  67. minut += 3
  68. gs 'stat'
  69. '<center><img src="images/shared/accessories/books/kamasutra/ik' + kamasutra_page + '.jpg"></td></tr><tr><td align=center>'+iif(kamasutra_page < 1, '', '<a href="exec: kamasutra_page-=1 & gt''bedrPar2'',''read_book''"><br>Previous page</a>')+'</td><td align=center>'+iif(kamasutra_page > 45, '', '<a href="exec: kamasutra_page+=1 & gt''bedrPar2'',''read_book''"><br>Next page</a>')+'</center>'
  70. if pcs_horny >= 60 and week = 6 and family_trip = 1:
  71. act 'Masturbate': gt 'selfplay'
  72. end
  73. act 'Close': gt $loc, $metka
  74. end
  75. ! parent''s wardrobe
  76. if $ARGS[0] = 'parents_wardrobe':
  77. cla
  78. *clr
  79. '<center><img src="images/locations/pavlovsk/resident/apartment/home/wardrobe.jpg"></center>'
  80. 'The old Soviet wardrobe'
  81. act 'Rummage': gt 'bedrPar2', 'wardrobe_search'
  82. act 'Leave ': gt $loc, $metka
  83. end
  84. if $ARGS[0] = 'wardrobe_search':
  85. cla
  86. *clr
  87. if (hour >= 21 or hour < 6) and indorf = 0:
  88. 'What are you thinking? You can''t go through the wardrobe while your parents are sleeping right there!'
  89. act 'Leave ': gt $loc, $metka
  90. exit
  91. end
  92. if rand(1,100) > 75:
  93. '<center><img src="images/locations/pavlovsk/resident/apartment/home/wardrobesearch'+rand(1,4)+'.jpg"></center>'
  94. $failwords[0]='You cannot find anything interesting'
  95. $failwords[1]='You find some clothe and underwear'
  96. $failwords[2]='You digging through mother''s closet, but find nothing except underwear.'
  97. *pl $failwords[rand(0,2)]
  98. killvar '$failwords'
  99. else
  100. '<center><img src="images/locations/pavlovsk/resident/apartment/home/wardrobetoy.jpg"></center>'
  101. $findmomtoy[0]='Digging in the closet you find a <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  102. $findmomtoy[1]='In mother''s lingerie is a small <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  103. $findmomtoy[2]='You find your mother''s <a href="exec: gt ''bedrPar2'',''momtoy_play''">toy</a>'
  104. *pl $findmomtoy[rand(0,2)]
  105. killvar '$findmomtoy'
  106. end
  107. act 'Close the Cabinet': gt $loc, $metka
  108. end
  109. if $ARGS[0] = 'momtoy_play':
  110. cla
  111. *clr
  112. dildo = 1
  113. dildohand = 10
  114. selfmomtoyplay = 1
  115. '<center><img src="images/shared/sex/mast/start.jpg"></center>'
  116. if pcs_horny >= 70:
  117. act 'Play with it': gt 'selfplay'
  118. else
  119. act 'Put it back': gt $loc, $metka
  120. end
  121. end
  122. --- bedrPar2 ---------------------------------