bedrPar2 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107
  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. clr
  10. minut += 1
  11. gs 'stat'
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  15. '<center><b><font color="maroon">Master bedroom</font></b></center>'
  16. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  17. '<center><img src="images/qwest/alter/bedrPar2.jpg"></center>'
  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. if hour > 6 and hour < 21 and prezikday ! daystart:
  21. if prezikProver >= 3:
  22. prezikday = daystart - 4
  23. act 'Take condoms from your parents'' stash':
  24. cls
  25. cla
  26. gs 'stat'
  27. minut+=rand(5,7)
  28. prezik+=rand(1,3)
  29. prezikday = daystart
  30. prezikProver = 0
  31. '<center><img src="images/qwest/alter/condoms_steal.jpg"></center>'
  32. '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.'
  33. act 'Exit the room':gt 'korrPar'
  34. end
  35. else
  36. 'You have already taken some condoms out of your parents'' stash recently. You should wait a while, otherwise they might get suspicious.'
  37. end
  38. end
  39. if hour = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  40. end
  41. ! book
  42. if $ARGS[0] = 'kamasutra':
  43. cla
  44. *clr
  45. minut += 1
  46. '<center><img src="images/qwest/alter/bedrpar2/book.jpg"></center>'
  47. 'The cover says "Kamasutra"'
  48. act 'Leave': gt $loc, $metka
  49. end
  50. ! parent`s wardrobe
  51. if $ARGS[0] = 'parents_wardrobe':
  52. cla
  53. *clr
  54. '<center><img src="images/qwest/alter/bedrpar2/wardrobe.jpg"></center>'
  55. 'The old Soviet wardrobe'
  56. act 'Rummage': gt 'bedrPar2', 'wardrobe_search'
  57. act 'Leave ': gt $loc, $metka
  58. end
  59. if $ARGS[0] = 'wardrobe_search':
  60. cla
  61. *clr
  62. if hour >= 21 or hour < 6 :
  63. 'What are you thinking? You can''t go through the wardrobe while your parents are sleeping right there!'
  64. act 'Leave ': gt $loc, $metka
  65. exit
  66. end
  67. if rand(1,100) > 75:
  68. '<center><img src="images/qwest/alter/bedrpar2/wardrobesearch'+rand(1,4)+'.jpg"></center>'
  69. $failwords[0]='You cannot find anything interesting'
  70. $failwords[1]='You find some clothe and underwear'
  71. $failwords[2]='You digging through mother`s closet, but find nothing except underwear.'
  72. *pl $failwords[rand(0,2)]
  73. killvar '$failwords'
  74. else
  75. '<center><img src="images/qwest/alter/bedrpar2/wardrobetoy.jpg"></center>'
  76. $findmomtoy[0]='Digging in the closet you find a <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  77. $findmomtoy[1]='In mother`s lingerie is a small <a href="exec: gt ''bedrPar2'',''momtoy_play''">Dildo</a>'
  78. $findmomtoy[2]='You find your mother`s <a href="exec: gt ''bedrPar2'',''momtoy_play''">toy</a>'
  79. *pl $findmomtoy[rand(0,2)]
  80. killvar '$findmomtoy'
  81. end
  82. act 'Close the Cabinet': gt $loc, $metka
  83. end
  84. if $ARGS[0] = 'momtoy_play':
  85. cla
  86. *clr
  87. dildo = 1
  88. dildohand = 10
  89. selfmomtoyplay = 1
  90. '<center><img src="images/qwest/selfplay/start.jpg"></center>'
  91. if horny >= 70:
  92. act 'Play with it': gt 'selfplay'
  93. else
  94. act 'Put it back': gt $loc, $metka
  95. end
  96. end
  97. --- bedrPar2 ---------------------------------