glife/locations/food

# food
!{Snacks: +20 pcs_energy,+6 fat
Fast Food: +70 pcs_energy, +12 fat (hamburgers, fried food, like the downtown diner)
Small Meal: +40 pcs_energy, +3 fat (soup and sandwiches, cafe light lunches, etc)
Medium Meal and Hotel Food: +60 pcs_energy, +6 fat (home cooked dinners and room service equivalent)
Large Meal: +100 pcs_energy, +12 fat (steak dinners, new years party dinner, etc)
Bagged Lunch: +30 pcs_energy, +3 fat (sandwich, cold leftovers, etc)
Health Meal: +50 pcs_energy, +1 fat (Diet food, Salads, rice cakes with peanut butter)
}

if $ARGS[0] = 'snack':
	cla
	*clr
	gs 'stat'
	minut += 5
	pcs_health += 10
	pcs_mood += 20
	fat += 6
	pcs_energy += 20
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
	'You enjoy a small tasty, but somewhat fattening, snack. It wasn''t very much food, and<<$mtxt>>'
	
	act 'Return':gt $loc, $metka
end

if $ARGS[0] = 'f_food':
	cla
	*clr
	frost = 0
	minut += 20
	pcs_health += 10
	fat += 12
	pcs_energy += 70
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
	'You happily eat some fast food. The portions are quite generous and<<$mtxt>>'
	
	act 'Finish':gt $loc, $metka
end

if $ARGS[0] = 's_meal':
	cla
	*clr
	frost = 0
	minut += 15
	pcs_health += 10
	fat += 3
	pcs_energy += 40
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
	'You happily eat your meal. The portions are fairly small and<<$mtxt>>' 

	act 'Finish':gt $loc, $metka
end

if $ARGS[0] = 'm_meal':
	cla
	*clr
	frost = 0
	minut += 25
	pcs_health += 10
	fat += 6
	pcs_energy += 60
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
	'You thoroughly enjoy the nicely cooked meal. The portions were moderate and<<$mtxt>>'
	'You accompany it with a mug of tea.'

	act 'Finish':gt $loc, $metka
end

if $ARGS[0] = 'l_meal':
	cla
	*clr
	frost = 0
	minut += 30
	pcs_health += 10
	fat += 12
	pcs_energy += 100
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
	'You are almost overwhelmed by the delicious meal laid before you and enjoy it immensely. The meal was simply colossal and<<$mtxt>>'
	if plcooked = 1: killvar 'plcooked'
	
	act 'Finish':  gt $loc, $metka
end

if $ARGS[0] = 'bag_lunch':
	cla
	*clr
	frost = 0
	minut += 15
	pcs_health += 10
	fat += 3
	pcs_energy += 30
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
	'You eat the lunch you packed from home. There was nothing fancy about it and<<$mtxt>>'

	act 'Finish':  gt $loc, $metka
end

if $ARGS[0] = 'h_food':
	cla
	*clr
	frost = 0
	minut += 25
	pcs_health += 10
	fat += 6
	money -= 100
	pcs_energy += 60
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/roomservice.jpg"></center>'
	'The maid brings you a decent meal,<<$mtxt>>'
	'You accompany it with a mug of tea.'

	act 'Finish':gt $loc, $metka
end

if $ARGS[0] = 'h_meal':
	cla
	*clr
	frost = 0
	minute += 25
	pcs_health += 20
	fat += 1
	pcs_energy += 50
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/eating-salad.jpg"></center>'
	'You enjoy a crisp salad of fresh green and<<$mtxt>>'
	
	act 'Finish': gt $loc, $metka
end
	
if $ARGS[0] = 'aftermeal':

	if pcs_energy > 100:
		$mtxt = ' you had to force yourself to finish and now you feel stuffed.'
	elseif pcs_energy >= 80:
		$mtxt = ' it was enough to leave you feeling full and satisfied.'
	elseif pcs_energy >= 60:
		$mtxt = ' while you no longer feel especially hungry, you don''t feel all that satisfied either.'
	elseif pcs_energy >= 40:
		$mtxt = ' while you no longer feel like you are starving, you are still quite hungry - in fact, you could probably eat the same amount again and still have room for dessert.'
	else
		$mtxt = ' did nothing to appease your hunger, in fact, it only amde you want more.'
	end
end


--- food ---------------------------------