bedrPar2.qsrc 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122
  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 parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  45. end
  46. ! book
  47. if $ARGS[0] = 'kamasutra':
  48. *clr & cla
  49. menu_off = 1
  50. minut += 1
  51. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/book.jpg"></center>'
  52. 'The cover says "Kamasutra"'
  53. act 'Leave': gt $loc, $metka
  54. act 'Read': kamasutra_page = 0 & kamasutra_day = daystart & gt 'bedrPar2', 'read_book'
  55. end
  56. ! read book
  57. if $args = 'read_book':
  58. *clr & cla
  59. menu_off = 1
  60. pcs_horny += 2
  61. minut += 3
  62. gs 'stat'
  63. '<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>'
  64. act 'Close the book': gt $loc, $metka
  65. if pcs_horny >= 60 and week = 6 and family_trip = 1: act 'Masturbate': gt 'selfplay', 'start'
  66. end
  67. ! parent''s wardrobe
  68. if $ARGS[0] = 'parents_wardrobe':
  69. *clr & cla
  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 'Leave ': gt $loc, $metka
  73. act 'Rummage': gt 'bedrPar2', 'wardrobe_search'
  74. end
  75. if $ARGS[0] = 'wardrobe_search':
  76. *clr & cla
  77. if (hour >= 21 or hour < 6) and indorf = 0:
  78. 'What are you thinking? You can''t go through the wardrobe while your parents are sleeping right there!'
  79. act 'Leave ': gt $loc, $metka
  80. exit
  81. end
  82. if rand(1,100) > 75:
  83. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/wardrobesearch'+rand(1,4)+'.jpg"></center>'
  84. $failwords[0]='You cannot find anything interesting.'
  85. $failwords[1]='You find some clothes and underwear.'
  86. $failwords[2]='You dig through your mother''s closet, but find nothing interesting except underwear.'
  87. *pl $failwords[rand(0,2)]
  88. killvar '$failwords'
  89. else
  90. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/wardrobetoy.jpg"></center>'
  91. $findmomtoy[0]='Digging through the closet you find a <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  92. $findmomtoy[1]='Rummaging through your mother''s lingerie you find a small <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  93. $findmomtoy[2]='You find your mother''s <a href="exec: gt ''bedrPar2'',''momtoy_play''">toy</a>'
  94. *pl $findmomtoy[rand(0,2)]
  95. killvar '$findmomtoy'
  96. end
  97. act 'Close the Cabinet': gt $loc, $metka
  98. end
  99. if $ARGS[0] = 'momtoy_play':
  100. *clr & cla
  101. dildo = 1
  102. dildohand = 10
  103. selfmomtoyplay = 1
  104. '<center><img <<$set_imgh>> src="images/shared/sex/mast/start.jpg"></center>'
  105. if pcs_horny < 70:
  106. act 'Put it back': gt $loc, $metka
  107. else
  108. act 'Play with it': gt 'selfplay', 'start'
  109. end
  110. end
  111. --- bedrPar2 ---------------------------------