# krol
if $ARGS[0] = 'start':
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><img src="images/zoo/1791_640.jpg"></center>'
	'<center><<$namekrol>> rests.</center>'

	act 'Leave':gt 'korr'

	act 'Grant on skewers for meat':
		krolik = 0
		minut += 60
		money += 200
		gt 'korr'
	end
end

--- krol ---------------------------------