123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051 |
- # kid
- if $ARGS[0] = 'start':
- clr
- gs 'stat'
- if kid > 0:
- i = 0
- !kidLoops = 0
- :loop
- if polkid[i] = 0:
- $kidPosPro[i] = 'her'
- else
- $kidPosPro[i] = 'his'
- end
- "Your child, a <<$polreb[i]>> named <<$kidname[i]>>. The child''s date of birth is <<daykid[i]>>-<<monthkid[i]>>-<<yearkid[i]>>. The child''s age is <<yearkid[i]>>"
- if yearkid[i] < 1: '<<$kidname[i]>> is a baby lying in <<$kidPosPro[i]>> crib.'
- if yearkid[i] >= 1 and yearkid[i] < 7:
- if hour >= 9 and hour <= 21:
- '<<$kidname[i]>> is playing with toys.'
- else
- '<<$kidname[i]>> is asleep in <<$kidPosPro[i]>> crib.'
- end
- end
- if yearkid[i] >= 7 and yearkid[i] < 18:
- if hour >= 21 or hour <= 8:
- '<<$kidname[i]>> is asleep in <<$kidPosPro[i]>> bed.'
- else
- '<<$kidname[i]>> watching TV.'
- end
- end
- ''
- i += 1
- !!kidLoops += 1
- if i <= ARRPOS('yearkid',0):
- jump 'loop'
- end
- end
- act 'Leave.':
- cla
- gt 'sitr'
- end
- end
- --- kid ---------------------------------
|