1
0

bedrPar2.qsrc 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124
  1. # bedrPar2
  2. if $ARGS[0] = '':
  3. CLOSE ALL
  4. act 'Return to the hallway':gt 'korrPar'
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. $location_type = 'private'
  8. $locclass = 'bedr'
  9. clr
  10. minut += 1
  11. gs 'stat'
  12. gs 'themes', 'indoors'
  13. '<center><h1><font color="maroon">Master bedroom</font></h1></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar2.jpg"></center>'
  15. *nl
  16. '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.'
  17. gs 'family'
  18. if indorf = 1 or (indorf = 0 and hour > 6 and hour < 21):
  19. if kamasutra_day ! daystart:
  20. 'You notice a <a href="exec: gt ''bedrPar2'',''kamasutra''">book laying on the bed</a>.'
  21. end
  22. if prezikday ! daystart:
  23. if prezikProver >= 3:
  24. prezikday = daystart - 4
  25. act 'Steal condoms from your parents'' stash':
  26. cls
  27. cla
  28. gs 'stat'
  29. minut+=rand(5,7)
  30. prezik+=rand(1,3)
  31. prezikday = daystart
  32. prezikProver = 0
  33. '<center><img <<$set_imgh>> src="images/shared/accessories/birthcontrol/condoms_steal.jpg"></center>'
  34. '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.'
  35. act 'Exit the room':gt 'korrPar'
  36. end
  37. else
  38. 'You have already taken some condoms out of your parents'' stash recently. You should wait a while, otherwise they might get suspicious.'
  39. end
  40. end
  41. end
  42. if hour = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  43. end
  44. ! book
  45. if $ARGS[0] = 'kamasutra':
  46. cla
  47. *clr
  48. minut += 1
  49. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/book.jpg"></center>'
  50. 'The cover says "Kamasutra"'
  51. act 'Read': kamasutra_page = 0 & kamasutra_day = daystart & gt 'bedrPar2', 'read_book'
  52. act 'Leave': gt $loc, $metka
  53. end
  54. ! read book
  55. if $args = 'read_book':
  56. *clr & cla
  57. pcs_horny += 2
  58. minut += 3
  59. gs 'stat'
  60. '<center><img <<$set_imgh>> 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>'
  61. if pcs_horny >= 60 and week = 6 and family_trip = 1:
  62. act 'Masturbate': gt 'selfplay', 'start'
  63. end
  64. act 'Close': gt $loc, $metka
  65. end
  66. ! parent''s wardrobe
  67. if $ARGS[0] = 'parents_wardrobe':
  68. cla
  69. *clr
  70. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/wardrobe.jpg"></center>'
  71. 'An old looking wardrobe, probably from the Soviet times.'
  72. act 'Rummage': gt 'bedrPar2', 'wardrobe_search'
  73. act 'Leave ': gt $loc, $metka
  74. end
  75. if $ARGS[0] = 'wardrobe_search':
  76. cla
  77. *clr
  78. if (hour >= 21 or hour < 6) and indorf = 0:
  79. 'What are you thinking? You can''t go through the wardrobe while your parents are sleeping right there!'
  80. act 'Leave ': gt $loc, $metka
  81. exit
  82. end
  83. if rand(1,100) > 75:
  84. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/wardrobesearch'+rand(1,4)+'.jpg"></center>'
  85. $failwords[0]='You cannot find anything interesting.'
  86. $failwords[1]='You find some clothes and underwear.'
  87. $failwords[2]='You dig through your mother''s closet, but find nothing interesting except underwear.'
  88. *pl $failwords[rand(0,2)]
  89. killvar '$failwords'
  90. else
  91. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/wardrobetoy.jpg"></center>'
  92. $findmomtoy[0]='Digging through the closet you find a <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  93. $findmomtoy[1]='Rummaging through your mother''s lingerie you find a small <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  94. $findmomtoy[2]='You find your mother''s <a href="exec: gt ''bedrPar2'',''momtoy_play''">toy</a>'
  95. *pl $findmomtoy[rand(0,2)]
  96. killvar '$findmomtoy'
  97. end
  98. act 'Close the Cabinet': gt $loc, $metka
  99. end
  100. if $ARGS[0] = 'momtoy_play':
  101. cla
  102. *clr
  103. dildo = 1
  104. dildohand = 10
  105. selfmomtoyplay = 1
  106. '<center><img <<$set_imgh>> src="images/shared/sex/mast/start.jpg"></center>'
  107. if pcs_horny >= 70:
  108. act 'Play with it': gt 'selfplay', 'start'
  109. else
  110. act 'Put it back': gt $loc, $metka
  111. end
  112. end
  113. --- bedrPar2 ---------------------------------