glife/locations/vecher.qsrc

# vecher
if $ARGS[0] = 'start':
	*clr & cla
	$menu_loc = 'vecher'
	$menu_arg = 'start'
	menu_off = 0
	gs 'stat'
	
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vecher.jpg"></center>'

	'You turn up to a Friday night party.'
	'A large crowd gathers on the senior''s floor, some people looking for others to play<a href="exec:gt ''vecher'',''twister''">twister</a>.'
	gs 'willpower', 'drink', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
	else
		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Dance':
		cla
		hour = 23
		gs 'drugs', 'alcohol', 'wine'
		gs 'drugs', 'alcohol', 'vodka'
		gs 'drugs', 'alcohol', 'beer'
		'You have fun, drinking and dancing.'
		itrand = rand(1, 12)
		gt 'vecher', 'end<<itrand>>'
	end
end

if $ARGS[0] = 'end1':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog.jpg"></center>'
	'Gradually your steady alcohol intake gets the better of you and you spend the rest of the night in the bathroom, hugging the toilet'

	act 'Leave':gt 'dorm', 'korr'
end

if $ARGS[0] = 'end2':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss2.jpg"></center>'
	'You danced and drank for a while before you had the idea to dance with Vika. Soon you ended up having a deep lesbian kiss under the flashing lights of the dance.'

	gs 'willpower', 'cuni', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
	else
		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Get a room with Vika':
		cla
		if vikasex = 0: vikasex = 1
		$sexloc = 'obroom'
		gt 'lezbsex', 'start'
	end
end

if $ARGS[0] = 'end3':
	*clr & cla

	if pcs_apprnc < 80:
		'<center><img <<$set_imgh>> src="images/locations/shared/party/itog3.jpg"></center>'
		'You stumbled into an open room and slept it off, listening to the sounds of hardcore sex from down the hall.'

		act 'Leave': gt 'dorm', 'korr'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend1.jpg"></center>'
		'You stumbled into an open room and slept it off, listening to the sounds of hardcore sex from down the hall. You dream about fucking Vika, the fantasy so real that you can feel your legs spreading, the tongue on your clitoris. Opening your eyes you can see a few girls bent over your body, hands busy caressing you, while between your legs Vika skillfully used her tongue. "This needs to become reality," you think as you awake.'

		act 'Leave': gt 'dorm', 'korr'

		act 'Enjoy':
			*clr & cla

			if vikasex = 0: vikasex = 1

			orgasm += 1
			girl += 4
			lesbian += 1
			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend2.jpg"></center>'
			'You relax, allowing the girls to caress your body, periodically changing positions so another can take post at your pussy. Each of the girls settle into a rotation, trying to see who can trigger the most orgasms.'

			act 'Continue': gt 'vecher', 'end13'
		end
	end
end

if $ARGS[0] = 'end4':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog4.jpg"></center>'
	'You get drunk and begin to molest the other girls. Before you realise it your top is pulled down to show your breasts and Vika is licking and sucking at your breasts in front of everyone.'

	gs 'willpower', 'cuni', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
	else
		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Go with Vika to an empty room':
		cla
		if vikasex = 0: vikasex = 1
		$sexloc = 'obroom'
		gt 'lezbsex', 'start'
	end
end

if $ARGS[0] = 'end5':
	*clr & cla
	guy += 1
	stat['vaginal'] += 1
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog5.jpg"></center>'
	'You wake up on the floor in the hallway, half way to your room. Panting over your body is a pimply young man, dick inside you, trying to fuck your vagina careful so you wouldn''t wake up. Noticing that you''re awake, he quickly jumps to his feet and runs off, leaving you lying confused and naked on the dirty floor.'

	act 'Leave': gt 'dorm', 'korr'
end

if $ARGS[0] = 'end6':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog6.jpg"></center>'
	'You spent all evening molesting a girl with big tits, begging her to let you kiss them. Eventually you both got so drunk you were allowed to bury your face in her cleavage and motorboat her.'

	act 'Leave': gt 'dorm', 'korr'
end

if $ARGS[0] = 'end7':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog7.jpg"></center>'
	'You don''t know how or when your dancing became a striptease but the alcohol has plainly done its job. You begin to become lewder and lewder, swaying on your feet before collapsing into a man''s lap on the couch. Scarely believing his luck he wasted no time in grabbing at your breasts, pinching your nipples.'

	gs 'willpower', 'sex', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Leave him blueballed (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
	else
		act 'Leave him blueballed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Remove panties':
		*clr & cla
		guy += 1
		stat['bj'] += 1
		stat['vaginal'] += 1
		spafinloc = 4
		gs 'cum_manage'
		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog71.jpg"></center>'
		'You get up off the man''s lap to finish your stripping, shuffling out of your panties drunkenly, almost toppling over again. Catching a glimpse of your pussy the man hastens to strip off too, fumbling with his flies.'

		act 'Suck':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog72.jpg"></center>'
			'You go down on your knees and clasp his member greedily between your lips, starting to move back and forth on his length, slurping noisily, ignoring the crowd in the rest of the room. The man seems to want more however, wrapping his fingers in your hair and starting to drag your head back and forth, using your mouth to masturbate.'

			act 'Further':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog73.jpg"></center>'
				'With his cock rock hard and nicely wet he lifted you bodily and turned you around, pushing you into the sofa doggystyle, shoving himself into your pussy and starting to pound away not caring about your enjoyment, just fucking. The crowd gathered to view the show calling out encouragements and suggestions on how best to fuck you. The guy pounding you keeps it up for a long time, too drunk to do the deed properly.'

				act 'Further':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog74.jpg"></center>'
					'Just when you start to get tired of his thrusting he tugs his dick out of your aching puss, shooting a few meagre ropes of cum onto your buttocks. Scooping up your clothes from the floor you follow him to his room to sleep it off.'

					act 'Leave':gt 'dorm', 'korr'
				end
			end
		end
	end
end

if $ARGS[0] = 'end8':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog8.jpg"></center>'
	'You head out into one of the rooms with Vika, who soon started kissing and then fucking an unknown guy. You spent a few minutes lying next to Vika, having fun chatting with her while a drunk stranger pounds away at her.'

	gs 'willpower', 'voyeur', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
	else
		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Caress Vika':
		*clr & cla

		if vikasex = 0: vikasex = 1

		girl += 1
		lesbian += 1
		pcs_horny += 60
		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog81.jpg"></center>'
		'You kiss and fondle at Vika''s breasts, making her wriggle and moan, soon offering to reward you with some cunnilingus.'

		if pcs_horny < 100: 'You soon tire of the licking, wanting to get on with something else'
		if pcs_horny >= 100: pcs_horny = 0 & orgasm += 1 & 'The muscles of your vagina start to clench and ripple with pleasure, a warm wave of pleasure suffusing your lower body as you howl in orgasm'

		'The stranger tugs his dick out of Vika with a wet schlurp and lifts his body to press it into her mouth.'

		act 'Watch':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog82.jpg"></center>'
			'The man cums in Vika''s mouth with a sudder, prompting her to open her mouth and show off her creamy treat. You want to taste...'

			act 'Kiss Vika':
				*clr & cla
				spafinloc = 12
				gs 'cum_manage'
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog83.jpg"></center>'
				'You spend a couple of moments making out and snowballing the cum between the two of you.'

				act 'Leave': gt 'dorm', 'korr'
			end
		end

		act 'Share the dick':
			*clr & cla
			stat['bj'] += 1
			guy += 1
			spafinloc = 11
			gs 'cum_manage'
			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog84.jpg"></center>'
			'You suck and lick the dick together, working as a team until the man climaxes across your faces and tongues.'

			act 'Kissing with Vika':
				*clr & cla
				spafinloc = 12
				gs 'cum_manage'
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog83.jpg"></center>'
				'You spend a couple of moments making out and snowballing the cum between the two of you.'

				act 'Leave': gt 'dorm', 'korr'
			end
		end
	end
end

if $ARGS[0] = 'end9':
	cla
	'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog9.jpg"></center>'
	'Girls love to have fun, particularly drunken ones. You and two new girlfriends you met spend the parting kissing and carressing each other, drawing a lot of admiring glances.'

	act 'Leave': gt 'dorm', 'korr'
end

if $ARGS[0] = 'end10':
	cla
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog10.jpg"></center>'
	'You get drunk and dance with some stranger who spends the whole time pawing at your tits and making dirty comments.'

	gs 'willpower', 'foreplay', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm','korr'
	else
		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Grab his crotch':
		$sexloc = 'obroom'
		gs 'npcgeneratec', 0, 'stranger from a party', rand(18,28)
		gs 'boyStat', $npclastgenerated
		picrand = rand(20,40)
		gt 'sex', 'start'
	end
end

if $ARGS[0] = 'end11':
	*clr & cla
	spafinloc = 7
	gs 'cum_manage'
	'<center><img <<$set_imgh>> src="images/locations/shared/party/skirtcum.jpg"></center>'
	'You wake up in a strange room, lying on a man''s stomach, thankfully still dressed although this hangover is killing you.'
	'As you sit up you notice something wet on your butt. What a bastard, he dragged you into some random room and came on your clothes.'

	act 'Leave': gt 'dorm', 'korr'
end

if $ARGS[0] = 'end12':
	*clr & cla
	minut += 15
	picrand = RAND(1,5)
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/college_ass_show<<picrand>>.jpg"></center>'
	'All girls love to party. You and a few others get drunk and decide to host a contest for who has the best ass.'
	
	act 'Leave': gt 'dorm', 'korr'
end

if $ARGS[0] = 'end13':
	*clr & cla
	minut += 15
	picrand = rand(3, 9)
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend<<picrand>>.jpg"></center>'
	'All mixed up in a big ball of women''s bodies, you can''t remember the name of the girl your fingers are exploring, or put a face to the taste on your tongue, nor identify who is delving into your pussy.'

	act 'More': gt 'vecher', 'end13'
	act 'Leave': gt 'dorm', 'korr'
end

if $ARGS[0] = 'twister':
	*clr & cla
	hour = 23
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/twister0.jpg"></center>'
	'You join a game. Everyone has fun, a heated competition developing as the bodies tangle together.'
	'After a couple of rounds one of the spectators drunkenly calls out that everyone should play naked and soon the whole crowd is chanting it.'

	gs 'willpower', 'exhib', 'resist', 'easy'
	if will_cost <= pcs_willpwr:
		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
	else
		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	act 'Undress': gt 'vecher', 'twister_nude' 
end

if $ARGS[0] = 'twister_nude':
	*clr & cla
	minut += 15
	pcs_horny += 30
	picrand = RAND(1,8)
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/twister<<picrand>>.jpg"></center>'
	'You undress and continue to play, making sure to take the most difficult and exposing postures you can. Throughout the game you feel a lot of hands groping and carressing your body, warm bodies pressed tight into yours.'
	twister_rand = rand(1,3)
	if twister_rand = 1:
		cla
		act 'Leave': gt 'dorm', 'korr'
	end
	if twister_rand = 2:
		cla
		act 'Leave': gt 'dorm', 'korr'
	end
	if twister_rand = 3:
		cla
		act 'Leave': gt 'dorm', 'korr'
	end
	
	act 'Leave': gt 'dorm', 'korr'
end

--- vecher ---------------------------------