glife/locations/beverage.qsrc

# beverage

menu_off = 1

if $ARGS[0] = 'bev_kva':
	*clr & cla
	frost = 1
	minut += 10
	fat += 2
	money -= val($_drink['<<args[1]>>,price'])
	pcs_health += 5
	pcs_mood += 15
	pcs_energy += 8
	if pcs_hydra >= 100:
		pcs_hydra += 30
	else
		pcs_hydra += 60
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'beverage', 'afterdrink'
	'<center><img <<$set_imgh>> src="images/shared/drinks/kvass.jpg"></center>'
	'You enjoy a drink of kvass, and<<$mtxt>>'
	gs 'stat'
	killvar '$_drink'

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

if $ARGS[0] = 'bev_jui':
	*clr & cla
	frost = 1
	alko -= 1
	minut += 10
	fat += 3
	money -= val($_drink['<<args[1]>>,price'])
	pcs_health += 8
	pcs_mood += 10
	pcs_energy += 10
	if pcs_hydra >= 100:
		pcs_hydra += 40
	else
		pcs_hydra += 80
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'beverage', 'afterdrink'
	'<center><img <<$set_imgh>> src="images/shared/drinks/juice.jpg"></center>'
	'You enjoy a refreshing juice, and<<$mtxt>>'
	gs 'stat'
	killvar '$_drink'

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

if $ARGS[0] = 'bev_mil':
	*clr & cla
	frost = 1
	minut += 10
	fat += 6
	money -= val($_drink['<<args[1]>>,price'])
	pcs_health += 5
	pcs_mood += 20
	pcs_energy += 8
	if pcs_hydra >= 100:
		pcs_hydra += 50
	else
		pcs_hydra += 100
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'beverage', 'afterdrink'
	'<center><img <<$set_imgh>> src="images/shared/drinks/milkshake.jpg"></center>'
	'You enjoy an ice cold milkshake, and<<$mtxt>>'
	gs 'stat'
	killvar '$_drink'

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

if $ARGS[0] = 'bev_wat':
	*clr & cla
	frost = 1
	alko -= 1
	minut += 5
	money -= val($_drink['<<args[1]>>,price'])
	pcs_health += 10
	pcs_energy += 4
	if pcs_hydra >= 100:
		pcs_hydra += 25
	else
		pcs_hydra += 50
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	gs 'beverage', 'afterdrink'
	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/barorderwater.jpg"></center>'
	'You enjoy a drink of water, and<<$mtxt>>'
	gs 'stat'
	killvar '$_drink'

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

if $ARGS[0] = 'bev_cof':
	*clr & cla
	frost = 0
	alko -= 1
	minut += 10
	money -= val($_drink['<<args[1]>>,price'])
	pcs_health += 5
	pcs_mood += 20
	pcs_energy += 15
	if pcs_hydra >= 100:
		pcs_hydra += 20
	else
		pcs_hydra += 40
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'beverage', 'afterdrink'
	'<center><img <<$set_imgh>> src="images/shared/drinks/coffee.jpg"></center>'
	'You enjoy a hot coffee, and<<$mtxt>>'
	gs 'stat'
	killvar '$_drink'

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

if $ARGS[0] = 'bev_tea':
	*clr & cla
	frost = 0
	alko -= 1
	minut += 10
	money -= val($_drink['<<args[1]>>,price'])
	pcs_health += 10
	pcs_mood += 20
	pcs_energy += 10
	if pcs_hydra >= 100:
		pcs_hydra += 25
	else
		pcs_hydra += 50
	end
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	gs 'beverage', 'afterdrink'
	'<center><img <<$set_imgh>> src="images/shared/drinks/tea.jpg"></center>'
	'You enjoy a relaxing cup of tea, and<<$mtxt>>'
	gs 'stat'
	killvar '$_drink'

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

if $ARGS[0] = 'bev_vod':
	if pcs_health > 50:
		*clr & cla
		frost = 0
		alko += 2
		minut += 15
		fat += 8
		money -= val($_drink['<<args[1]>>,price'])
		pcs_health -= 5
		pcs_mood += 10
		pcs_energy -= 4
		if pcs_hydra >= 100:
			pcs_hydra -= 5
		else
			pcs_hydra -= 10
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'beverage', 'afteralcohol'
		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/barordervodka.jpg"></center>'
		'The vodka shot disappears, like it was only water, and<<$mtxt>>'
		gs 'stat'
		killvar '$_drink'

		if food_loc = 1 and $loc ! 'brothel':
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $metka
		end
	else
		msg 'You don''t feel well enough to drink alcohol.'
		gt $loc, $metka
	end
end

if $ARGS[0] = 'bev_bla':
	if pcs_health > 50:
		*clr & cla
		frost = 0
		alko += 3
		minut += 15
		fat += 8
		money -= val($_drink['<<args[1]>>,price'])
		pcs_health -= 5
		pcs_mood += 15
		pcs_energy += 5
		if pcs_hydra >= 100:
			pcs_hydra -= 5
		else
			pcs_hydra -= 10
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'beverage', 'afteralcohol'
		'<center><img <<$set_imgh>> src="images/shared/drinks/blackrussian.jpg"></center>'
		'You drink a Black Russian, and<<$mtxt>>'
		gs 'stat'
		killvar '$_drink'

		if food_loc = 1 and $loc ! 'brothel':
			act 'Finish': gt 'food_menu'
		else
			act 'Finish': gt $loc, $metka
		end
	else
		msg 'You don''t feel well enough to drink alcohol.'
		gt $loc, $metka
	end
end

if $ARGS[0] = 'bev_sco':
	if pcs_health > 50:
		*clr & cla
		frost = 0
		alko += 2
		minut += 15
		fat += 6
		money -= val($_drink['<<args[1]>>,price'])
		pcs_health -= 5
		pcs_mood += 10
		pcs_energy -= 4
		if pcs_hydra >= 100:
			pcs_hydra -= 5
		else
			pcs_hydra -= 10
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'beverage', 'afteralcohol'
		'<center><img <<$set_imgh>> src="images/shared/drinks/scotch.jpg"></center>'
		'You drink scotch on the rocks, and<<$mtxt>>'
		gs 'stat'
		killvar '$_drink'

		if food_loc = 1 and $loc ! 'brothel':
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $metka
		end
	else
		msg 'You don''t feel well enough to drink alcohol.'
		gt $loc, $metka
	end
end

if $ARGS[0] = 'bev_win':
	if pcs_health > 50:
		*clr & cla
		frost = 0
		alko += 2
		minut += 15
		fat += 4
		money -= val($_drink['<<args[1]>>,price'])
		pcs_health -= 5
		pcs_mood += 15
		pcs_energy -= 4
		if pcs_hydra >= 100:
			pcs_hydra -= 5
		else
			pcs_hydra -= 10
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'beverage', 'afteralcohol'
		'<center><img <<$set_imgh>> src="images/shared/drinks/redwine.jpg"></center>'
		'You drink some red wine, and<<$mtxt>>'
		gs 'stat'
		killvar '$_drink'

		if food_loc = 1 and $loc ! 'brothel':
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $metka
		end
	else
		msg 'You don''t feel well enough to drink alcohol.'
		gt $loc, $metka
	end
end

if $ARGS[0] = 'bev_mar':
	if pcs_health > 50:
		*clr & cla
		frost = 0
		alko += 3
		minut += 15
		fat += 8
		money -= val($_drink['<<args[1]>>,price'])
		pcs_health -= 5
		pcs_mood += 20
		pcs_energy -= 4
		if pcs_hydra >= 100:
			pcs_hydra -= 5
		else
			pcs_hydra -= 10
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'beverage', 'afteralcohol'
		'<center><img <<$set_imgh>> src="images/shared/drinks/martini.jpg"></center>'
		'You drink a vodka martini, and<<$mtxt>>'
		gs 'stat'
		killvar '$_drink'

		if food_loc = 1:
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $metka
		end
	else
		msg 'You don''t feel well enough to drink alcohol.'
		gt $loc, $metka
	end
end

if $ARGS[0] = 'bev_cha':
	if pcs_health > 50:
		*clr & cla
		frost = 0
		alko += 2
		minut += 15
		fat += 4
		money -= val($_drink['<<args[1]>>,price'])
		pcs_health -= 5
		pcs_mood += 20
		pcs_energy -= 4
		if pcs_hydra >= 100:
			pcs_hydra -= 5
		else
			pcs_hydra -= 10
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'beverage', 'afteralcohol'
		'<center><img <<$set_imgh>> src="images/shared/drinks/champagne.jpg"></center>'
		'You drink some champagne, and<<$mtxt>>'
		gs 'stat'
		killvar '$_drink'

		if food_loc = 1:
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $metka
		end
	else
		msg 'You don''t feel well enough to drink alcohol.'
		gt $loc, $metka
	end
end

if $ARGS[0] = 'bev_bee':
	if pcs_health > 50:
		*clr & cla
		frost = 0
		alko += 1
		minut += 15
		fat += 3
		money -= val($_drink['<<args[1]>>,price'])
		pcs_health -= 5
		pcs_mood += 5
		pcs_energy -= 4
		if pcs_hydra >= 100:
			pcs_hydra += 5
		else
			pcs_hydra += 10
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'beverage', 'afteralcohol'
		'<center><img <<$set_imgh>> src="images/shared/drinks/darkbeer.jpg"></center>'
		'You drink the beer, enjoying the fresh, mildly bitter taste, and<<$mtxt>>'
		gs 'stat'
		killvar '$_drink'

		if food_loc = 1 and $loc ! 'brothel':
			act 'Finish': gt 'food_menu'
		else
			act 'Finish':gt $loc, $metka
		end
	else
		msg 'You don''t feel well enough to drink alcohol.'
		gt $loc, $metka
	end
end

if $ARGS[0] = 'bev_bbr':
	food_loc = 0 & gt 'brothel','bar:order:password'
end

if $ARGS[0] = 'afteralcohol':
	if pcs_hydra < 100:
		$mtxt = ' while your drink, you wish you were better hydrated before you started.'
	elseif pcs_hydra <= 80:
		$mtxt = ' you should remind yourself to drink some water later, so you don''t get dehydrated.'
	elseif pcs_hydra <= 60:
		$mtxt = ' you aren''t sure how many more you can fit in before you need to pee.'
	elseif pcs_hydra <= 40:
		$mtxt = ' you definitely need to drink some water now, or you''ll end up with a hangover.'
	else
		$mtxt = ' you enjoyed that drink immensely. Let''s have some more!'
	end
end

if $ARGS[0] = 'afterdrink':
	if pcs_hydra > 100:
		$mtxt = ' while your thirst is quenched, you are starting to feel bloated, with your belly full of liquids.'
	elseif pcs_hydra >= 80:
		$mtxt = ' it was sufficient enough to quench your thirst.'
	elseif pcs_hydra >= 60:
		$mtxt = ' you could definitely go another round.'
	elseif pcs_hydra >= 40:
		$mtxt = ' while your mouth is no longer dry, you would like another drink.'
	else
		$mtxt = ' it did nothing to satisfy your thirst; you should probably have some more.'
	end
end

--- beverage ---------------------------------