# 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 ---------------------------------

