158_bedrPar2 601 B

12345678910111213141516171819202122232425262728293031
  1. # bedrPar2
  2. act 'Leave the room':
  3. gt 'korrPar'
  4. end
  5. $metkaM = $ARGS[0]
  6. $locM = $CURLOC
  7. $metka = $ARGS[0]
  8. $loc = $CURLOC
  9. '<center><B><font color = maroon>Master bedroom</font></B></center>'
  10. '<center><img src="images/qwest/alter/<<$loc>>.jpg "></center>'
  11. clr
  12. set minut += 1
  13. gs 'stat'
  14. fcolor = rgb(0,0,0)
  15. bcolor = rgb(255,255,255)
  16. LCOLOR = rgb(106,90,205)
  17. 'The room in which the parents live. In the center stands a double bed and a large closet wall.'
  18. gs 'family'
  19. if hour = 21 and parsexrand = 5 and parentsexday ! daystart:
  20. gt 'seeparentsex'
  21. end
  22. --- bedrPar2 ---------------------------------