bedrPar2 580 B

123456789101112131415161718192021
  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. '<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
  15. 'The room in which the parents live. In the center stands a double bed and a large clowall.'
  16. gs 'family'
  17. if hour = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'
  18. --- bedrPar2 ---------------------------------