# lager
$metka = $ARGS[0]
$loc = $CURLOC
$metkaStreet = $ARGS[0]
$locStreet = $CURLOC
cla
*clr
alkoblock = 0
boynumBlock = 0
music_on = 0

'<center><H4>Pionerlager</H4></center>'
'<center><img src="images/qwest/lager/lager.jpg"></center>'

if hour=8:
	'Now the camp ruler and all lined up at the site until the counselor checks everything is in place.'
	act'On the line':
		cls
		minut+=60
		hour=9
		minut=0
		gs'stat'
		'You, too, have risen along with all, Squad leader is checked. Finally, the test is over.'
		act'Move away':gt $curloc
	end
end

if hour=9:
	'Now the camp began Breakfast.'
	act'Go for breakfast':
		cls
		minut+=60
		hour=10
		minut=0
		frost = 0
		minut = minut + 30
		health = health + 10
		manna = manna + 20
		wipo += 5
		gs'stat'
		'<center><img src="images/pics/food.jpg"></center>'
		if energy >= 30:
			fat = fat + 5
		elseif energy >= 20 and energy < 30:
			fat = fat + 3
			energy = energy + 10
		elseif energy < 20:
			energy = energy +20
		 end
		gs'stat'
		'You went along with all of the dining room and breakfast.'
		act'Move away':gt $curloc
	end
end

if hour=10:
	'Under the guidance counselor squad went to the river to bathe and sunbathe.'
	act'Go to the river':
		cls
		gs'stat'
		act'Escape':gt $curloc
	end
end

--- lager ---------------------------------

