bedrPar2 1.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. # bedrPar2
  2. act 'Leave the room':gt 'korrPar'
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. clr
  8. minut += 1
  9. gs 'stat'
  10. fcolor = rgb(0, 0, 0)
  11. bcolor = rgb(255, 255, 255)
  12. lcolor = rgb(106, 90, 205)
  13. '<center><b><font color="maroon">Master bedroom</font></b></center>'
  14. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  15. '<center><img src="images/qwest/alter/bedrPar2.jpg"></center>'
  16. 'The room in which the parents live. In the center stands a double bed and a large clowall.'
  17. gs 'family'
  18. if hour > 6 and hour < 21 and prezikday!day:
  19. if prezikProver >= 3:
  20. prezikday = day - 4
  21. act 'Take condoms from your parents stash':
  22. cls
  23. cla
  24. gs'stat'
  25. minut+=rand(5,7)
  26. prezik+=rand(1,3)
  27. prezikday=day
  28. prezikProver = 0
  29. '<center><img src="images/qwest/alter/condoms_steal.jpg"></center>'
  30. 'You quietly pulled out of the parent caches some condoms. Now you have <<prezik>> pcs.'
  31. act 'Exit the room':gt'korrPar'
  32. end
  33. else
  34. 'You have recently taken condoms parent caches. If they often carry, something that parents can-the suspect.'
  35. end
  36. end
  37. if hour = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  38. --- bedrPar2 ---------------------------------