glife/locations/food.qsrc

# food
!2021/05/06
! Snacks: +20 pcs_energy, +7 fat (most cases has water available separately)
! Fast Food: +70 pcs_energy +70 pcs_hydra, +14 fat (hamburgers, fried food, like the downtown diner)
! Small Meal: +40 pcs_energy +40 pcs_hydra, +4 fat (soup and sandwiches, cafe light lunches, etc)
! Medium Meal and Hotel Food: +60 pcs_energy +60 pcs_hydra, +7 fat (home cooked dinners and room service equivalent)
! Large Meal: +100 pcs_energy +100 pcs_hydra, +14 fat (steak dinners, new years party dinner, etc)
! Bagged Lunch: +40 pcs_energy +40 pcs_hydra, +5 fat (sandwich, cold leftovers, etc)
! Health Meal: +50 pcs_energy +50 pcs_hydra, +1 fat (Diet food, Salads, rice cakes with peanut butter)
! 16/10/2022 - Added watercooler - HS

menu_off = 1

if $ARGS[0] = 'pirosh':
	*clr & cla
	frost = 0
	minut += 15
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += pcs_health/10
	pcs_mood += 5
	fat += 4
	pcs_energy += 40
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/pirozhki.jpg"></center>'
	if $loc = 'uni_cafe':
		uni_lunch_bought = 1
		'You buy some vegetarian Piroshki.'
		gs 'uni_cafe', 'sitting_choice'
	else
		'You enjoy some vegetarian Piroshki, and <<$mtxt>>'
		gs 'stat'
		if food_loc = 1:
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $loc_arg
		end
	end

	killvar '$_eat'
end

if $ARGS[0] = 'golub':
	*clr & cla
	frost = 0
	minut += 20
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 5
	fat += 8
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra += 10
	else
		pcs_hydra += 20
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/golubtsy.jpg"></center>'
	if $loc = 'uni_cafe':
		uni_lunch_bought = 1
		'You buy some well made Golubtsy in a tomato sauce. The portions is of moderate size.'
		gs 'uni_cafe', 'sitting_choice'
	else
		'You enjoy some well made Golubtsy in a tomato sauce. The portions were moderate and<<$mtxt>>'
		gs 'stat'
		if food_loc = 1:
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $loc_arg
		end
	end

	killvar '$_eat'
end

if $ARGS[0] = 'pozhar':
	*clr & cla
	frost = 0
	minut += 20
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 15
	pcs_mood += 10
	fat += 6
	pcs_energy += 70
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/pozharsky.jpg"></center>'
	if $loc = 'uni_cafe':
		uni_lunch_bought = 1
		'You buy a Pozharsky Cutlets. The portions is of moderate size.'
		gs 'uni_cafe', 'sitting_choice'
	else
		'You thoroughly enjoy the nicely cooked Pozharsky Cutlets. The portions were moderate and<<$mtxt>>'
		gs 'stat'
		if food_loc = 1:
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $loc_arg
		end
	end

	killvar '$_eat'
end

if $ARGS[0] = 'reuben':
	*clr & cla
	frost = 0
	minut += 25
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 20
	pcs_mood += 25
	fat += 12
	pcs_energy += 110
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/reuben.jpg"></center>'
	if $loc = 'uni_cafe':
		uni_lunch_bought = 1
		'You buy a Rueben Sandwich. It is quit large.'
		gs 'uni_cafe', 'sitting_choice'
	else
		'You had trouble finishing the Rueben Sandwich, but you enjoyed it immensely. The portion was fairly large and<<$mtxt>>'
		gs 'stat'
		if food_loc = 1:
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $loc_arg
		end
	end

	killvar '$_eat'
end

if $ARGS[0] = 'bliny':
	*clr & cla
	frost = 0
	minut += 15
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 5
	fat += 8
	pcs_energy += 50
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/blini.jpg"></center>'
	if $loc = 'uni_cafe':
		uni_lunch_bought = 1
		'You buy some bliny. The portions are fairly small.'
		gs 'uni_cafe', 'sitting_choice'
	else
		'You eat some bliny. The portions are fairly small and<<$mtxt>>'
		gs 'stat'
		if food_loc = 1:
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $loc_arg
		end
	end

	killvar '$_eat'
end

if $ARGS[0] = 'varenfan':
	*clr & cla
	frost = 0
	minut += 25
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 15
	pcs_mood += 15
	fat += 10
	pcs_energy += 40
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	'<center><img <<$set_imgh>> src="images/shared/food/varenikifancy.jpg"></center>'
	'You sit and eat a plate of yummy Vareniki with potatoes. The portions are fairly moderate and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'salfan':
	*clr & cla
	frost = 0
	minut += 40
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 20
	pcs_mood += 20
	fat += 12
	pcs_energy += 80
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/salmonfancy.jpg"></center>'
	'You thoroughly enjoy the massive fresh salmon steak. The meal was simply colossal and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'strofan':
	*clr & cla
	frost = 0
	minut += 35
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 20
	pcs_mood += 30
	fat += 6
	pcs_energy += 120
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/stroganofffancy.jpg"></center>'
	'You are loving the delicious Beef Stroganoff. You enjoy it immensely. The portion was fairly moderate and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'borfan':
	*clr & cla
	frost = 0
	minut += 25
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 25
	fat += 4
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra += 20
	else
		pcs_hydra += 40
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/borschtfancy.jpg"></center>'
	'You a steaming hot bowel of Borscht. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'blifan':
	*clr & cla
	frost = 0
	minut += 20
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 30
	pcs_mood += 40
	fat += 6
	pcs_energy += 50
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/blinifancy.jpg"></center>'
	'You eat a petite caviar bliny appetiser. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'ryesna':
	*clr & cla
	frost = 0
	minut += 10
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += pcs_health/10
	pcs_mood += 10
	fat += 4
	pcs_energy += 20
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/ryesnack.jpg"></center>'
	'You have a tasty bowel of toasted rye snacks. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'crisps':
	*clr & cla
	frost = 0
	minut += 10
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += pcs_health/10
	pcs_mood += 20
	fat += 16
	pcs_energy += 20
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/crisps.jpg"></center>'
	'You enjoy the salty flavour of a bowl of crisps. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'onring':
	*clr & cla
	frost = 0
	minut += 10
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 5
	fat += 16
	pcs_energy += 40
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/onionrings.jpg"></center>'
	'You push yourself to eat the dry fatty onion rings. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'vegburg':
	*clr & cla
	frost = 0
	minut += 20
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 20
	pcs_mood += 10
	fat += 8
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/vegieburger.jpg"></center>'
	'You eat the delicious vegieburger. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'turburg':
	*clr & cla
	frost = 0
	minut += 20
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 10
	fat += 10
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/turkeyburger.jpg"></center>'
	'You enjoy the turkey burger. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'batfish':
	*clr & cla
	frost = 0
	minut += 20
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 15
	pcs_mood += 15
	fat += 11
	pcs_energy += 80
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/batteredfish.jpg"></center>'
	'You eat the fish, but it has little flavour. The portions were moderate and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'cheburg':
	*clr & cla
	frost = 0
	minut += 25
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 20
	pcs_mood += 20
	fat += 14
	pcs_energy += 120
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/cheeseburger.jpg"></center>'
	'You are a little sickened by the greasy looking cheeseburger and fries in front of you. The meal was simply colossal and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'snack':
	*clr & cla
	gs 'stat'
	minut += 5
	money -= val($_eat['<<args[1]>>,price'])
	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/snack_1.jpg"></center>'
	'You enjoy a small tasty, but somewhat fattening, snack. It wasn''t very much food, and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'f_food':
	*clr & cla
	frost = 0
	minut += 10
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 14
	pcs_energy += 70
	if pcs_hydra >= 100:
		pcs_hydra += 35
	else
		pcs_hydra += 70
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/fast_food.jpg"></center>'
	'You happily eat some fast food. The portions are quite generous and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 's_meal':
	*clr & cla
	frost = 0
	minut += 10
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 4
	pcs_energy += 40
	if pcs_hydra >= 100:
		pcs_hydra += 20
	else
		pcs_hydra += 40
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food_'+rand(1, 4)+'.jpg"></center>'
	'You happily eat your meal. The portions are fairly small and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'm_meal':
	*clr & cla
	frost = 0
	minut += 15
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 8
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra += 30
	else
		pcs_hydra += 60
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food_'+rand(1, 4)+'.jpg"></center>'
	'You thoroughly enjoy the nicely cooked meal. The portions were moderate and<<$mtxt>>'
	'You accompany it with a mug of tea.'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'l_meal':
	*clr & cla
	frost = 0
	minut += 20
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 14
	pcs_energy += 100
	if pcs_hydra >= 100:
		pcs_hydra += 50
	else
		pcs_hydra += 100
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/food_'+rand(1, 4)+'.jpg"></center>'
	'You are almost overwhelmed by the delicious meal laid before you and enjoy it immensely. The meal was simply colossal and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'bag_lunch':
	*clr & cla
	frost = 0
	minut += 15
	! money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 5
	pcs_energy += 40
	if pcs_hydra >= 100:
		pcs_hydra += 30
	else
		pcs_hydra += 60
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/shared/food/bagged_lunch.jpg"></center>'
	'You eat the lunch you packed from home. There was nothing fancy about it and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'
end

if $ARGS[0] = 'h_food':
	*clr & cla
	frost = 0
	minut += 25
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 7
	money -= 100
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra += 30
	else
		pcs_hydra += 60
	end
	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.'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'h_meal':
	*clr & cla
	frost = 0
	minut += 25
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 20
	fat += 1
	pcs_energy += 50
	if pcs_hydra >= 100:
		pcs_hydra += 25
	else
		pcs_hydra += 50
	end
	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 greens and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'jerky':
	*clr & cla
	frost = 0
	minut += 10
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 1
	pcs_hydra -= 15
	pcs_energy += 20
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/jerky_mix.jpg"></center>'
	'You munch on some dried meat and trail mix. Not a full hot meal by any means but it''s better than nothing, and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'meat_stew':
	*clr & cla
	frost = 0
	minut += 30
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 3
	pcs_energy += 50
	if pcs_hydra >= 100:
		pcs_hydra += 10
	else
		pcs_hydra += 20
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
	'You thoroughly enjoy the nicely cooked meat stew, and <<$mtxt>>'
	'You accompany it with a mug of tea.'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'mush_soup':
	*clr & cla
	frost = 0
	minut += 30
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	fat += 3
	pcs_energy += 40
	if pcs_hydra >= 100:
		pcs_hydra += 20
	else
		pcs_hydra += 30
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
	'You thoroughly enjoy some warm mushroom soup, and <<$mtxt>>'
	'You accompany it with a mug of tea.'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'bilberry':
	*clr & cla
	gs 'stat'
	minut += 15
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += pcs_health/10
	pcs_mood += 10
	fat += 1
	pcs_energy += 10
	pcs_hydra += 10
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
	'You ate a few berries, and<<$mtxt>>'
	gs 'stat'
	killvar '$_eat'

	if food_loc = 1:
		act 'Finish': gt 'food_menu'
	else
		act 'Finish':gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'family_meals':
	frost = 0
	minut += 20
	pcs_health += 10
	pcs_mood += 10
	fat += iif($ARGS[1] = 'dinner', 8, 6)
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra += 30
	elseif pcs_hydra < 20:
		pcs_hydra += 80
	else
		pcs_hydra += 60
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
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

if $ARGS[0] = 'watercooler':
	*clr & cla
	frost = 0
	if alko > 0: alko -= 1
	minut += 2
	pcs_health += 10
	pcs_energy += 4
	if pcs_hydra >= 100:
		pcs_hydra += 25
	else
		pcs_hydra += 50
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	gs 'stat'
	dynamic $fill_bottle

	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/waterfountain.jpg"></center>'
	'You drink some water and feel refreshed.'
	act 'Finish':gt $loc, $loc_arg
end


!! ------------ just the stats, no descriptions or extra stuff with cost -----------------------

if $ARGS[0] = 'only_cost_snack':
	*clr & cla
	gs 'stat'
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 20
	fat += 6
	pcs_energy += 20
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	killvar '$_eat'

	*nl
	'Added to your order'
	gt 'food_menu'
end

if $ARGS[0] = 'only_cost_light_snack':
	*clr & cla
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += pcs_health/10
	pcs_mood += 20
	fat += 3
	pcs_energy += 20
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	killvar '$_eat'

	*nl
	'Added to your order'
	gt 'food_menu'
end

if $ARGS[0] = 'only_stats_fast_food':
	*clr & cla
	pcs_health += pcs_health/10
	pcs_mood += 20
	fat += 14
	pcs_energy += 70
	pcs_hydra += 70
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
end

if $ARGS[0] = 'only_stats_small_meal':
	*clr & cla
	pcs_health += pcs_health/5
	pcs_mood += 10
	fat += 4
	pcs_energy += 40
	pcs_hydra += 40
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
end

if $ARGS[0] = 'only_stats_medium_meal':
	*clr & cla
	pcs_health += pcs_health/10
	pcs_mood += 15
	fat += 7
	pcs_energy += 70
	pcs_hydra += 70
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
end

if $ARGS[0] = 'only_stats_large_meal':
	*clr & cla
	pcs_health += pcs_health/15
	pcs_mood += 20
	fat += 14
	pcs_energy += 100
	pcs_hydra += 100
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
end

if $ARGS[0] = 'only_stats_bagged_meal':
	*clr & cla
	pcs_health += pcs_health/8
	pcs_mood += 5
	fat += 5
	pcs_energy += 40
	pcs_hydra += 40
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
end

if $ARGS[0] = 'only_stats_healthy_meal':
	*clr & cla
	pcs_health += pcs_health/5
	pcs_mood += 5
	fat += 1
	pcs_energy += 50
	pcs_hydra += 50
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
end

if $ARGS[0] = 'only_cost_pirosh':
	*clr & cla
	frost = 0
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += pcs_health/10
	pcs_mood += 5
	fat += 4
	pcs_energy += 40
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	killvar '$_eat'
	if $loc = 'uni_cafe': uni_lunch_bought = 1
	
	*nl
	'Added to your order'
	gt 'food_menu'
end

if $ARGS[0] = 'only_cost_golub':
	frost = 0
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 5
	fat += 8
	pcs_energy += 60
	if pcs_hydra >= 100:
		pcs_hydra += 10
	else
		pcs_hydra += 20
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	killvar '$_eat'
	if $loc = 'uni_cafe': uni_lunch_bought = 1
	
	*nl
	'Added to your order'
	gt 'food_menu'
end

if $ARGS[0] = 'only_cost_pozhar':
	frost = 0
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 15
	pcs_mood += 10
	fat += 6
	pcs_energy += 70
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	killvar '$_eat'
	if $loc = 'uni_cafe': uni_lunch_bought = 1
	
	*nl
	'Added to your order'
	gt 'food_menu'
end

if $ARGS[0] = 'only_cost_reuben':
	frost = 0
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 20
	pcs_mood += 25
	fat += 12
	pcs_energy += 110
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	killvar '$_eat'
	if $loc = 'uni_cafe': uni_lunch_bought = 1
	
	*nl
	'Added to your order'
	gt 'food_menu'
end

if $ARGS[0] = 'only_cost_bliny':
	frost = 0
	money -= val($_eat['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 5
	fat += 8
	pcs_energy += 50
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'food', 'aftermeal'
	killvar '$_eat'
	if $loc = 'uni_cafe': uni_lunch_bought = 1
	
	*nl
	'Added to your order'
	gt 'food_menu'
end

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