029_kid 696 B

1234567891011121314151617181920212223242526272829303132
  1. # kid
  2. if $ARGS[0] = 'start':
  3. clr
  4. gs 'stat'
  5. "Your child, a <<$polreb[1]>> named <<$kidname[1]>>. The child's date of birth is <<daykid[1]>>-<<monthkid[1]>>-<<yearkid[1]>>. The child's age is <<kidage[1]>>"
  6. ''
  7. if kidage[1] < 1:'<<$kidname[1]>> is a baby lying in a crib.'
  8. if kidage[1] >= 1 and kidage[1] < 7:
  9. if hour >= 9 and hour <= 21:
  10. '<<$kidname[1]>> is playing with toys.'
  11. else
  12. '<<$kidname[1]>> is alseep in a crib.'
  13. end
  14. end
  15. if kidage[1] >= 7 and kidage[1] < 18:
  16. if hour >= 21 or hour <= 8:
  17. '<<$kidname[1]>> is alseep in bed.'
  18. else
  19. '<<$kidname[1]>> watching TV.'
  20. end
  21. end
  22. act 'Leave.':
  23. cla
  24. gt 'sitr'
  25. end
  26. end
  27. --- kid ---------------------------------