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 dance and drink for a while before you have the idea to dance with Vika. Soon you end 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 stumble into an open room and sleep 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 stumble into an open room and sleep 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, her tongue on your clitoris. Opening your eyes, you see a few girls bent over your body, hands busy caressing you, while between your legs Vika skillfully uses her tongue. "This needs to become reality," you think as you awaken.'

		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, they 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 them 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, halfway to your room. Panting over your body is a pimply young man, dick inside you, trying to fuck your vagina carefully so you don''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 spend all evening molesting a girl with big tits, begging her to let you kiss them. Eventually, you both get so drunk she allows you 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. Scarcely believing his luck, he wastes 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 your 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 his clothes too, fumbling with his fly.'

		act 'Suck':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog72.jpg"></center>'
			'Getting down on your knees and clasping his member greedily between your lips, you start 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 lifts you bodily and turns you around, pushing you into the sofa doggystyle. He shoves himself into your pussy and starts to pound away, not caring about your enjoyment, just fucking. A crowd gathers 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 meager 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 starts kissing and then fucking an unknown guy. You spend 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. She soon offers 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 shudder, 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 '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
	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 party kissing and caressing 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 your 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, put a face to the taste on your tongue, or 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 caressing 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 ---------------------------------