1
0

husb 1006 B

1234567891011121314151617181920212223242526
  1. # husb
  2. if $ARGS[0] = 'start':
  3. clr
  4. gs 'stat'
  5. if week < 6:
  6. if hour > 22 or hour < 7:'Your husband <<$husName>> lying in bed opens his eyes. "What do you want? Night already, go to sleep."'
  7. if hour = 7:'<<$husName>> sitting at the kitchen table.'
  8. if hour = 17:'<<$husName>> sitting at the kitchen table.'
  9. if hour > 17 and hour <= 22:'<<$husName>> sitting on a couch and watching television.'
  10. else
  11. if hour > 22 or hour < 7:'Your husband <<$husName>> lying in bed opens his eyes. "What do you want? Night already, go to sleep."'
  12. if hour = 7:'<<$husName>> sitting at the kitchen table.'
  13. if hour > 7 and hour < 17:'<<$husName>> sitting on a couch and watching television.'
  14. if hour = 17:'<<$husName>> sitting at the kitchen table.'
  15. if hour > 17 and hour <= 22:'<<$husName>> sitting on a couch and watching television.'
  16. end
  17. act 'Leave':gt $loc, $metka
  18. if husbandsexday < 4:
  19. act 'Sex with my husband.':gt 'husbsex', 'room'
  20. end
  21. end
  22. --- husb ---------------------------------