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

