1
0

bedrPar2.qsrc 4.4 KB

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