0
0

479_husb 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. # husb
  2. <<<<<<< 479_husb
  3. if $ARGS[0] = 'start':
  4. clr
  5. gs 'stat'
  6. if week < 6:
  7. if hour > 22 or hour < 7:
  8. 'Your husband <<$husName>> lying in bed opens his eyes. "What do you want? Night already, go to sleep."'
  9. end
  10. if hour = 7:
  11. '<<$husName>> sitting at the kitchen table.'
  12. end
  13. if hour = 17:
  14. '<<$husName>> sitting at the kitchen table.'
  15. end
  16. if hour > 17 and hour <= 22:
  17. '<<$husName>> sitting on a couch and watching television.'
  18. end
  19. else
  20. if hour > 22 or hour < 7:
  21. 'Your husband <<$husName>> lying in bed opens his eyes. "What do you want? Night already, go to sleep."'
  22. end
  23. if hour = 7:
  24. '<<$husName>> sitting at the kitchen table.'
  25. end
  26. if hour > 7 and hour < 17:
  27. '<<$husName>> sitting on a couch and watching television.'
  28. end
  29. if hour = 17:
  30. '<<$husName>> sitting at the kitchen table.'
  31. end
  32. if hour > 17 and hour <= 22:
  33. '<<$husName>> sitting on a couch and watching television.'
  34. end
  35. end
  36. act 'Leave': GOTO $loc, $metka
  37. if husbandsexday < 4:
  38. act 'Sex with my husband.': gt 'husbsex','room'
  39. end
  40. =======
  41. if $ARGS[0]='start':
  42. clr
  43. gs'stat'
  44. if week<6:
  45. if hour>22 or hour<7:
  46. 'your husband <<$husName>> lying in bed opens his eyes. "what do you? night had, go to sleep."'
  47. end
  48. if hour=7:
  49. '<<$husName>> sitting at the kitchen table.'
  50. end
  51. if hour=17:
  52. '<<$husName>> sitting at the kitchen table.'
  53. end
  54. if hour>17 and hour<=22:
  55. '<<$husName>> sitting on the couch and watching TV.'
  56. end
  57. else
  58. if hour>22 or hour<7:
  59. 'your husband <<$husName>> lying in bed opens his eyes. "what do you? night had, go to sleep."'
  60. end
  61. if hour=7:
  62. '<<$husName>> sitting at the kitchen table.'
  63. end
  64. if hour>7 and hour<17:
  65. '<<$husName>> sitting on the couch and watching TV.'
  66. end
  67. if hour=17:
  68. '<<$husName>> sitting at the kitchen table.'
  69. end
  70. if hour>17 and hour<=22:
  71. '<<$husName>> sitting on the couch and watching TV.'
  72. end
  73. end
  74. act 'Get_Away':GOTO $loc, $metka
  75. if husbandsexday<4:
  76. act 'Sex with her husband.':gt'husbsex','room'
  77. end
  78. >>>>>>> 479_husb
  79. end
  80. --- husb ---------------------------------