KatjaHome 699 B

1234567891011121314151617181920
  1. # KatjaHome
  2. CLOSE ALL
  3. gs 'stat'
  4. if hour >= 17 and week < 6 and kanikuli = 0 and hour < 20 or hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20 or hour >= 9 and kanikuli > 0 and hour < 20:
  5. 'The door is opened by Katjas mum. "Hello <<$name>>. Kate is in her room. Come in."'
  6. act 'Go to Katjas room':
  7. if frost > 0: frost = 0
  8. gt'KatjaHomeTalk'
  9. end
  10. else
  11. if hour >= 9:'The door is opened by Katjas mum. "Oh, hello <<$name>>. Katja isn''t home right now."'
  12. if hour < 9:'The door is opened by Katjas mum. "<<$name>>. Shouldn''t you be in bed? You shouldn''t come around before nine."'
  13. act 'Say goodbye and go home':gt 'pavResidential'
  14. end
  15. --- KatjaHome ---------------------------------