kid 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  1. # kid
  2. if $ARGS[0] = 'start':
  3. clr
  4. gs 'stat'
  5. if kid > 0:
  6. kidIteration = 1
  7. kidSelected = 0
  8. !kidLoops = 0
  9. :loop
  10. if polkid[kidIteration] = 0:
  11. $kidPosPro[kidIteration] = 'her'
  12. else
  13. $kidPosPro[kidIteration] = 'his'
  14. end
  15. "Your child, a <<$polreb[kidIteration]>> named <<$kidname[kidIteration]>>. The child's date of birth is <<daykid[kidIteration]>>-<<monthkid[kidSelected]>>-<<yearkid[kidSelected]>>. The child's age is <<kidage[kidIteration]>>"
  16. if kidage[kidIteration] < 1: '<<$kidname[kidIteration]>> is a baby lying in <<$kidPosPro[kidIteration]>> crib.'
  17. if kidage[kidIteration] >= 1 and kidage[kidIteration] < 7:
  18. if hour >= 9 and hour <= 21:
  19. '<<$kidname[kidIteration]>> is playing with toys.'
  20. else
  21. '<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> crib.'
  22. end
  23. end
  24. if kidage[kidIteration] >= 7 and kidage[kidIteration] < 18:
  25. if hour >= 21 or hour <= 8:
  26. '<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> bed.'
  27. else
  28. '<<$kidname[kidIteration]>> watching TV.'
  29. end
  30. end
  31. ''
  32. kidIteration += 1
  33. !!kidLoops += 1
  34. if kidIteration <= numkid:
  35. jump 'loop'
  36. end
  37. end
  38. act 'Leave.':
  39. cla
  40. gt 'sitr'
  41. end
  42. end
  43. --- kid ---------------------------------