# party
if $ARGS[0] = 'beginning':
	cla

	if vikavecher = 1:
		gt 'party', 'first'
	elseif vikavecher > 1:
		gt 'party', 'evening'
	end
end

if $ARGS[0] = 'first':
	cla
	vikavecher = 2
	'You go to with Vika to the party in the male dormitory. There are beautiful girls and guys drinking, dancing to the music and having fun.'
	'You politely introduce yourself, put no one pays you any special attention.'

	act 'Be overly modest':
		cla
		clr
		hour = 23
		fairy = 1
		gs 'stat'

		'You modestly sit in a corner, trying not to interfere with anyones fun. A small, long-haired guy tries to keep close to you. The other guys occasionally laugh at him and call him a fairy.'

		act 'Leave':gt 'Loka'
	end

	act 'Be cheerful':
		cla
		hour = 23
		fairy = 2
		'You drink vodka with the others occasionally striking up a conversation. You are getting drunk and start dancing with some of the guys. There is a little boy with a gentle girlish face and long blond hair clumsily attempting to get your attention. The other guys laugh at him and refer to him as a fairy. You are getting more and more drunk.'
		'You wake up in a strange room, lying on your stomach. You are reliefed to see that you still have your clothes on.'

		if jeans = 2:'<center><img <<$set_imgh>> src="images/locations/shared/party/jeanscum.jpg"></center>'
		if jeans ! 2:'<center><img <<$set_imgh>> src="images/locations/shared/party/skirtcum.jpg"></center>'

		'What''s this? Damn! What kind of bastard did this? You drag yourself into another room and clean your ass.'

		act 'Leave':gt 'Loka'
	end
end

if $ARGS[0] = 'evening':
	cla
	'You go to the party. There are a lot of beautiful girls and guys, drinking, dancing and hanging out.'

	act 'Be modest':
		cla
		h = 23
		zrand = rand(200, 400)

		if pcs_apprnc < zrand:
			cla
			'You sit down watching the others enjoy the party.'
		act 'Leave':gt 'Loka'
	elseif pcs_apprnc >= zrand:
		cla
		'You modestly sit in a corner, but a guy comes up to you and starts talking.'

		act 'Snub and go':gt 'Lok'
			act 'Keep the conversation':
				cla
				'The party ends and your new friend offers you to come with him'

				act 'Refuse':gt 'Loka'

				act 'Go with the guy':
					newboy = 1
					gs 'boy'
					gs 'boyopred'
					gt 'Loka'
				end
			end
		end
	end

	act 'Introduce yourself':
		cla
		h = 23
		pcs_horny -= 10
		'You have fun dancing and drinking.'
		itrand = rand(1, 10)

		if itrand = 1:xgt 'party', 'result'
		if itrand = 2:xgt 'party', 'result2'
		if itrand = 3:xgt 'party', 'result3'
		if itrand = 4:xgt 'party', 'result4'
		if itrand = 5:xgt 'party', 'result5'
		if itrand = 6:xgt 'party', 'result6'
		if itrand = 7:xgt 'party', 'result7'
		if itrand = 8:xgt 'party', 'result8'
		if itrand = 9:xgt 'party', 'result9'
		if itrand = 10:xgt 'party', 'result10'
	end
end

if $ARGS[0] = 'result':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog.jpg"></center>'
	'You drink a lot and start to feel sick. You end up spending the rest of the evening hugging the toilet.'

	act 'Leave':gt 'Loka'
end

if $ARGS[0] = 'result2':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss2.jpg"></center>'
	'You dance and fool around with other people when you get the idea to dance with Vika. The two of you end up doing a light lesbian show with some savory lingering kisses.'

	gs 'arousal', 'kiss', 5, 'lesbian'
	gs 'stat'
	
	act 'Leave':gt 'Lok'

	act 'Take Vika to an empty room':
		cla
		$girl = 'Vika'

		if vikasex = 0:vikasex = 1 & sexf += 1

		gt 'lesb', 'beginning'
	end
end

if $ARGS[0] = 'result3':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog3.jpg"></center>'
	'You get tired and sleep in the next room with a few other girls.'

	act 'Leave':gt 'Loka'
end

if $ARGS[0] = 'result4':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog4.jpg"></center>'
	'You get drunk and begin to molest some of the girls. You can''t remember exactly how it happened, but suddenly your breasts are exposed and Vika kisses and licks your nipples in front of everyone.'

	gs 'arousal', 'foreplay', 5, 'lesbian'
	gs 'stat'
	
	act 'Leave':gt 'Loka'

	act 'Take Vika to an empty room':
		cla
		$girl = 'Vika'

		if vikasex = 0:vikasex = 1 & sexf += 1

		gt 'lesb', 'beginning'
	end
end

if $ARGS[0] = 'result5':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog5.jpg"></center>'

	if pcs_throat > 10:money += 100 & 'You are drinking and having fun, telling a girl that you are able to shove a whole banana down your throat. She bets you 100 rubles that you can''t do it, but you prove her wrong when you succesfully deepthroat the banana at the table. The girl gives you 100 <b>₽</b>.'
	if pcs_throat <= 10:money -= 100 & 'You are drinking and having fun, telling a girl that you are able to shove a whole banana down your throat. She bets you 100 rubles that you can''t do it. Trying to prove her wrong you choke after putting the banana halfway down your throat. You pay her 100 <b>₽</b>.'

	act 'Leave':gt 'Loka'
end

if $ARGS[0] = 'result6':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog6.jpg"></center>'
	'You molest a big breasted girl all evening, begging her to let you lick her breasts. Later on, after the two of you got drunk, you bury your head in her chest kissing her breasts.'

	gs 'arousal', 'kiss_give', 5, 'lesbian'
	gs 'stat'
	
	act 'Leave':gt 'Loka'
end

if $ARGS[0] = 'result7':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog7.jpg"></center>'
	'You drunkenly decide to bare your breasts and start to lick your nipples.'

	gs 'arousal', 'flash_breasts', 5, 'exhibitionism'
	gs 'arousal', 'end'
	gs 'stat'
	
	act 'Leave':gt 'Loka'
end

if $ARGS[0] = 'result8':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog8.jpg"></center>'
	'You spend the evening with Vika when she decides to have sex with a guy she just met. You lie down next to them happily chatting with Vika while the guy is fucking her.'

	act 'Leave':gt 'Loka'

	act 'Caress Vika':
		cla
		*clr
		$girl = 'Vika'

		if vikasex = 0:vikasex = 1 & sexf += 1

		'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/tri.jpg"></center>'
		'You kiss and fondle Vika''s breasts. She seems very excited and you decide to have her lick your pussy.'

		gs 'arousal', 'vaginal', 10, 'lesbian'
		gs 'stat'
	
		if pcs_horny < 100:'It feels good, but you soon get tired of her licking you'
		if pcs_horny >= 100:pcs_horny = 0 & 'You soon feel your pussy convulsing and waves of pleasure wash over your body as you scream from a powerful orgasm.'
		$orgasm_or = 'yes'
		
		'The guy pulls his dick out of Vika and shoves it into her mouth.'

		act 'Watch':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/tri4.jpg"></center>'
			'The guy cums in Vika''s mouth. Her lips covered in semen she leans over to you, her eyes begging you to kiss her.'

			act 'Kiss Vika':
				cla
				*clr
				spafinloc = 12
gs 'cum_manage'
				'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/tri3.jpg"></center>'
				'You kiss each other, sharing the guys cum and spreading it over both of your faces.'

				gs 'arousal', 'kiss', 4, 'lesbian'
				gs 'arousal', 'end'
				gs 'stat'
				
				act 'Leave':gt 'Loka'
			end
		end

		act 'Help Vika suck him off':
			cla
			*clr
			sexm += 1
			oral += 1
			spafinloc = 11
gs 'cum_manage'
			'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/tri2.jpg"></center>'
			'Vika and you enthusiastically suck his dick and he finally ends up coming on both of your faces.'

			gs 'arousal', 'bj', 7
			gs 'stat'
			
			act 'Kiss Vika':
				cla
				*clr
				spafinloc = 12
gs 'cum_manage'
				'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/tri3.jpg"></center>'
				'The two of you start kissing, sharing the guys cum and licking it off the each others face.'

				gs 'arousal', 'kiss', 4, 'lesbian'
				gs 'arousal', 'end'
				gs 'stat'
				
				act 'Leave':gt 'Loka'
			end
		end
	end
end

if $ARGS[0] = 'result9':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog9.jpg"></center>'
	'Two girls seems to have a lot of fun and start a lesbian show during the party, caressing, kissing and squeezing each other in front of everyone.'

	gs 'arousal', 'voyeur', 4, 'lesbian'
	gs 'arousal', 'end'
	gs 'stat'
				
	act 'Leave':gt 'Lok'
end

if $ARGS[0] = 'result10':
	cla
	repa += 1
	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog10.jpg"></center>'
	'You get drunk and dance with a guy who keeps grabbing your tits.'

	act 'Leave':gt 'Loka'

	act 'Touch the bulge in his pants':
		cla
		repa += 1
		sexm += 1
		gs 'boy'
		gt 'BJ', 'beginning'
	end
end

--- party ---------------------------------

