# popu
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><img src="images/zoo/parrot2.jpg"></center>'
	'<center><<$namepopu>> sitting in his cell.</center>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	act 'Leave':gt 'korr'

	act 'Release window':
		set popugai = 0
		set minut += 10
		gt 'korr'
	end
end

--- popu ---------------------------------