bedrPar2.qsrc 4.7 KB

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