bedrPar2 641 B

12345678910111213141516171819202122
  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 = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  19. --- bedrPar2 ---------------------------------