bedrPar2 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. # bedrPar2
  2. CLOSE ALL
  3. act 'Return to the hallway':gt 'korrPar'
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. $metka = $ARGS[0]
  7. $loc = $CURLOC
  8. clr
  9. minut += 1
  10. gs 'stat'
  11. fcolor = rgb(0, 0, 0)
  12. bcolor = rgb(255, 255, 255)
  13. lcolor = rgb(106, 90, 205)
  14. '<center><b><font color="maroon">Master bedroom</font></b></center>'
  15. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  16. '<center><img src="images/qwest/alter/bedrPar2.jpg"></center>'
  17. 'The room in which your parents live. Their large bed, wardrobe and other closets take up most of the space.'
  18. gs 'family'
  19. if hour > 6 and hour < 21 and prezikday ! daystart:
  20. if prezikProver >= 3:
  21. prezikday = daystart - 4
  22. act 'Take condoms from your parents'' stash':
  23. cls
  24. cla
  25. gs 'stat'
  26. minut+=rand(5,7)
  27. prezik+=rand(1,3)
  28. prezikday = daystart
  29. prezikProver = 0
  30. '<center><img src="images/qwest/alter/condoms_steal.jpg"></center>'
  31. '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.'
  32. act 'Exit the room':gt 'korrPar'
  33. end
  34. else
  35. 'You have already taken some condoms out of your parents'' stash recently. You should wait a while, otherwise they might get suspicious.'
  36. end
  37. end
  38. if hour = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  39. --- bedrPar2 ---------------------------------