husb 1.0 KB

123456789101112131415161718192021222324252627282930313233343536
  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. elseif hour = 7:
  8. '<<$husName>> sitting at the kitchen table.'
  9. elseif hour = 17:
  10. '<<$husName>> sitting at the kitchen table.'
  11. elseif hour > 17 and hour <= 22:
  12. '<<$husName>> sitting on a couch and watching television.'
  13. end
  14. else
  15. if hour > 22 or hour < 7:
  16. 'Your husband <<$husName>> lying in bed opens his eyes. "What do you want? Night already, go to sleep."'
  17. elseif hour = 7:
  18. '<<$husName>> sitting at the kitchen table.'
  19. elseif hour > 7 and hour < 17:
  20. '<<$husName>> sitting on a couch and watching television.'
  21. elseif hour = 17:
  22. '<<$husName>> sitting at the kitchen table.'
  23. elseif hour > 17 and hour <= 22:
  24. '<<$husName>> sitting on a couch and watching television.'
  25. end
  26. end
  27. act 'Leave':gt $loc, $metka
  28. if husbandsexday < 4:
  29. act 'Sex with my husband.':gt 'husbsex', 'room'
  30. end
  31. end
  32. --- husb ---------------------------------