husb 1.0 KB

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