# kuhrPar

act 'Leave the room':gt 'korrPar'

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC

'<center><b><font color="maroon">Kitchen</font></b></center>'
'<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
clr
set minut += 1
gs 'stat'
fcolor="rgb"(0, 0, 0)
bcolor="rgb"(255, 255, 255)
lcolor="rgb"(106, 90, 205)
'The kitchen is next to the stove sink. Large refrigerator in the corner and kitchen table with chairs is against the wall.'
gs 'family'

act 'Eat (0:30)':
	cla
	*clr
	gs 'stat'
	frost = 0
	'<center><img src="images/pics/food.jpg"></center>'
	set minut += 30
	set health += 10
	set manna += 20

	if energy >= 30:
		set fat += 5
		'You can no longer have.'
	end

	if energy >= 20 and energy < 30:
		set fat += 3
		set energy += 10
		'You pushed through the power of a meal.'
	end

	if energy < 20:
		set energy += 20
		!set fat += 1
		'You gladly ate cooked food.'
	end

	if water >= 20:'Tea in you no longer climbs.'
	if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
	end

	gs 'stat'

	act 'Get up from the table':gt $locM, $metkaM
end

act 'Have a snack (0:15)':
	cla
	*clr
	gs 'stat'
	frost = 0
	'<center><img src="images/pics/food.jpg"></center>'
	set minut += 15
	set health += 10
	set manna += 20

	if energy >= 30:
		set fat += 3
		'You can no longer have.'
	end

	if energy >= 20 and energy < 30:
		set fat += 1
		set energy += 5
		'You pushed through the power of a meal.'
	end

	if energy < 20:
		set energy += 10
		!set fat += 1
		'You gladly ate cooked food.'
	end

	if water >= 20:'Tea in you no longer climbs.'
	if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
	end

	gs 'stat'

	act 'Get up from the table':gt $locM, $metkaM
end

act 'Drink':
	cls

	if water >= 20:'Tea in you no longer climbs.'
	if water < 20:
		'You gladly drank a mug of tea.'
		set water += 20
	end

	gs 'stat'

	act 'Get up from the table':gt $locM, $metkaM
end

if pranik > 0:
	'Cookies will suffice for <<pranik>> time.'

	act 'Drink tea with cookies (0:15)':
		cla
		*clr
		minut += 15
		pranik -= 1
		set health += 30
		set manna += 100
		energy += 20
		water += 20
		fat += 50
		frost = 0
		gs 'stat'
		'<center><img src="images/pics/food.jpg"></center>'
		'You drank tea with cookies, sweet and very bad for the figure, but so nice.'

		act 'Get up from the table':gt $curloc
	end
end

if edaD > 0:
	act 'Eat diet food (0:30)':
		cla
		*clr
		frost = 0
		'<center><img src="images/pics/food.jpg"></center>'
		set minut += 30
		set health += 10
		set manna += 20
		set edaD -= 1

		if energy >= 30:'You can no longer have.'
		if energy >= 20 and energy < 30:
			set energy += 10
			'You pushed through the power of a meal.'
		end

		if energy < 20:
			set energy += 20
			'You gladly ate cooked food.'
		end

		if water >= 20:'Tea in you no longer climbs.'

		if water < 20:
			'You gladly drank a cup of tea.'
			set water += 20
		end

		act 'Get up from the table':gt $curloc
	end
end

if fatdel > 0:
	act 'Consume fat burners':
		cla
		*clr
		set fatdel -= 1
		set fat -= 25

		if fat < 0:fat = 0

		'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'

		act 'Get up from the table':gt $curloc
	end
end

if lekarstvo > 0:
	'you <<lekarstvo>> tablets.'

	if sick > 0 and lekarday ! day:
		act 'Take a pill (0:05)':
			cla
			*clr
			set minut += 5
			lekarday = day
			lekarstvo -= 1
			sick -= sick * 20 / 100
			set lekrand = rand(0, 8)

			if lekrand = 0:'<center><img src="images/inBed/lekr1.jpg"></center>'
			if lekrand = 1:'<center><img src="images/inBed/lekr2.jpg"></center>'
			if lekrand = 2:'<center><img src="images/inBed/lekr3.jpg"></center>'
			if lekrand = 3:'<center><img src="images/inBed/lekr4.jpg"></center>'
			if lekrand = 4:'<center><img src="images/inBed/lekr5.jpg"></center>'
			if lekrand = 5:'<center><img src="images/inBed/lekr6.jpg"></center>'
			if lekrand = 6:'<center><img src="images/inBed/lekr7.jpg"></center>'
			if lekrand = 7:'<center><img src="images/inBed/lekr8.jpg"></center>'
			if lekrand = 8:'<center><img src="images/inBed/lekr9.jpg"></center>'

			'You swallowed the pill'

			act 'move away':gt $curloc
		end
	end
end

if vitamin > 0:
	'you <<vitamin>> vitaminok.'

	if vitaminday ! day:
		act 'Drink Vitamins (0:05)':
			cla
			*clr
			set minut += 5
			vitaminday = day
			vitamin -= 1
			frost = 0

			if KandidozOnce = 1:Kandidoz -= 2
			if GerpesOnce = 1:Gerpes -= 2
			if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)

			set skinvan += 1

			if skinvan = 20:set skinvan = 0 & set skin += 1

			'You drank Vitams'

			act 'move away':gt $curloc
		end
	end
end

--- kuhrPar ---------------------------------