glife/locations/028_kid

# kid
if $ARGS[0] = 'start':
	clr
	gs 'stat'
	if kid > 0:
		set kidIteration = 1
		set kidSelected = 0
		!set kidLoops = 0
		:loop
		if polkid[kidIteration] = 0:
			$kidPosPro[kidIteration] = 'her'
		end
		else:
			$kidPosPro[kidIteration] = 'his'
		end
		"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]>>"
		if kidage[kidIteration]<1: '<<$kidname[kidIteration]>> is a baby lying in <<$kidPosPro[kidIteration]>> crib.'
		if kidage[kidIteration] >= 1 and kidage[kidIteration]<7:
			if hour >= 9 and hour <= 21:
				'<<$kidname[kidIteration]>> is playing with toys.'
			end
			else
				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> crib.'
			end
		end
		if kidage[kidIteration] >= 7 and kidage[kidIteration]<18:
			if hour >= 21 or hour <= 8:
				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> bed.'
			end
			else
				'<<$kidname[kidIteration]>> watching TV.'
			end
		end
		''
		set kidIteration += 1
		!set kidLoops += 1
		if kidIteration <= numkid:
			jump 'loop'
		end
	end
	act 'Leave.':
		cla
		gt 'sitr'
	end
end
--- kid ---------------------------------