glife/sugarcube/src/locations/pavlov/disco/pav_disco.tw

:: pav_disco
<<set $here = 'pav_disco'>>
<<set $ARGS = $location_var[$here]>>
<!-- !2021/07/12-->
<<if !$location_var[$here][0]>>
	<<if $time.hour > 19>>
		<<set $pav_disco_in = $time.daystart>>

	<</if>>
	<<set $loc_arg = ''>>
	<<set $loc = 'pav_disco'>>
	<<set $location_type = 'public_indoors'>>
	<<set $menu_loc = 'pav_disco'>>
	<<set $menu_arg = ''>>
	<<set $menu_off = 0>>
	<<set $boynumBlock = 0>>
	
	<p></p>
	<<if getvar("$music_on") == 1>>
		<<set $track_loop = 'sound/komb.mp3'>>
		<<set $volume = 80>>
		<<set $music_loop = 1>>
		<<link "Turn off the music">><<set $music_on = 0>> <<gt $loc>><</link>>
	<<else>>
		<<set $music_loop = 0>>
		<<link "Play music">><<set $music_on = 1>> <<gt $loc>><</link>>
	<</if>>
	<!-- !! check against clothing and makeup impacting social groups only once per day-->
	<<if $social_check['disco'] != $time.daystart and $time.hour > 6>>
		<<setinit $social_check['disco'] = $time.daystart>>
		<<if getvar("$PCloskirt") == 0>>
			<<run $q.school.func('groupRelInc','cool',-1)>>
			<<if getvar("$PCloquality") > 4>>
				<<run $q.school.func('groupRelInc','cool',1)>>

			<</if>>
		<</if>>
		<<if getvar("$PCloquality") == 3 or getvar("$PCloquality") == 4>>
			<<run $q.school.func('groupRelInc','cool',-1)>>

		<</if>>
		<<if getvar("$PCloquality") < 3>>
			<<run $q.school.func('groupRelInc','cool',-5)>>

		<</if>>
		<<if $wardrobe.PCloInhibit >= 20 and $wardrobe.PCloInhibit < 35>>
			<<run $q.school.func('groupRelInc','jocks',1)>> <<run $q.school.func('groupRelInc','gopniks',1)>>

		<</if>>
		<<if $wardrobe.PCloInhibit >= 35>>
			<<run $q.school.func('groupRelInc','cool',-3)>> <<run $q.school.func('groupRelInc','jocks',-1)>>

		<</if>>
		<<if getvar("$PShoQuality") < 3>>
			<<run $q.school.func('groupRelInc','cool',-1)>>
		<<else>>
			<<run $q.school.func('groupRelInc','cool',1)>>
		<</if>>
		<<if $wardrobe.PShoHeels < 2>>
			<<run $q.school.func('groupRelInc','cool',-2)>>

		<</if>>
		<<if $pc.pcs_makeup == 0>>
			<<run $q.school.func('groupRelInc','cool',-5)>>
			<<run $q.school.func('groupRelInc','jocks',-5)>>
			<<run $q.school.func('groupRelInc','gopniks',-1)>>
		<<elseif $pc.pcs_makeup == 1>>
			<<run $q.school.func('groupRelInc','cool',-5)>>
			<<run $q.school.func('groupRelInc','jocks',-3)>>
			<<run $q.school.func('groupRelInc','gopniks',-1)>>
		<<elseif $pc.pcs_makeup == 2>>
			<<run $q.school.func('groupRelInc','gopniks',-1)>>
		<<elseif $pc.pcs_makeup == 3>>
			<<run $q.school.func('groupRelInc','cool',1)>>
		<<elseif $pc.pcs_makeup == 4>>
			<<run $q.school.func('groupRelInc','jocks',-1)>>
			<<run $q.school.func('groupRelInc','gopniks',1)>>
		<<elseif $pc.pcs_makeup == 5>>
			<<run $q.school.func('groupRelInc','cool',3)>>
		<<elseif $pc.pcs_makeup == 6>>
			<<run $q.school.func('groupRelInc','cool',-3)>>
			<<run $q.school.func('groupRelInc','jocks',-5)>>
		<</if>>
	<</if>>
	<<if getvar("$NikoVolkovQW") == 5 and getvar("$NikoEv") == 7 and $NikoDate_Day != $time.daystart>>
		<<gt 'NikoDates' 'disco'>>

	<</if>>
	<<if $time.hour >= 20 and $time.hour <= 23>>
		<h2>Disco</h2>
		<<image "locations/pavlovsk/community/disco/club.jpg">>
		<<if getvar("$LariskaQW['story']") == 14>>
			You think you see <<link "someone">><<gt 'lariska_storyline' 'Boyfriend_5'>><</link>> you know on the dance floor.

		<</if>>
		<<actCLA 'Go outside'>>
			<<gt 'pav_commcenter'>>
		<</actCLA>>
		<<actCLA 'Go to the toilets'>>
			<<gt 'gdktoilet' 'start'>>
		<</actCLA>>
		<<if mid($start_type,1,2) == 'sg' and getvar("$time.yearstart") <= 1>>
			You see a few of your <<link "classmates">><<gt 'pav_disco_classmates' 'classmates'>><</link>>. Some of them dancing, while others stick to their own groups and talk.

		<</if>>
		<<if getvar("$dimaRevenge") == 7 and getvar("$dimaRevChoice") == 4 and getvar("$dimadisco") == 0>>
			<<gt 'dimaRevenge' 5 'disco'>>

		<</if>>
		<<if rand(1,3) == 2 and $npcs.get('A25','slutStatus',0) < 1 and $soniadisco_day != $time.daystart and getvar("$SchoolAtestat") == 0 and $time.month > 9 and $npcs.get('A25','grupTipe') != 5 and mid($start_type,1,2) == 'sg' and $q.school?.get('attendedDays') > 0 and $time.hour < 22>>
			You notice Sonia talking to Vitek about something.
			<<actCLA 'Watch Sonia'>>
				<<set $soniadisco_day = $time.daystart>> <<gt 'soniadisco' 'start'>>
			<</actCLA>>
		<</if>>
		<<actCLA 'Dance (0:15)'>>
			<<set $menu_off = 1>>
			<h2>Disco</h2>
			<<if $pc.pcs_inhib < 40>>
				<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>

			<</if>>
			<<if ($pc.cumAtLocation(6) == 1 or $pc.cumAtLocation(7) == 1) or $pc.cumAtLocation(11) == 1>>
				<<set $pav_discocum = $time.daystart>>
				<<run $pc.fameInc('pav','sex',5)>>
				<<set $pc.mood -= 40>>
				<h2>Disco</h2>
				<<image "locations/pavlovsk/community/disco/sex/cumface1.jpg">>
				<p>As you head out on the dance floor, a guy walks up to you, notices the cum still splattered on you and points at you. "Check out this cocksucker! Hey guys, this chick has cum smeared all over her face!" The ones standing near him come closer. "Did you forget to swallow, slut?" Your cheeks blush with shame and you quickly head for the exit.</p>
				<<actCLA 'Leave'>>
					<<gt 'pav_commcenter'>>
				<</actCLA>>
			<<else>>
				<<set $time.minutes += 15>>
				<<set $pc.pcs_stam -= 5>>
				<<gs 'sweat' 'add' 3>>
				<<set $pc.fat -= 1>>
				<<run $pc.skillExperienceGain('dance',1)>>
				<<set $pc.mood += 10>>
				<<set $pc.frost = 0>>
				<<if $pc.alko == 0>>
					<h2>Disco</h2>
					<<image "locations/pavlovsk/community/disco/dance.jpg">>
					<<if $wardrobe.pantyworntype == 'none' and $wardrobe.PCloSkirt > 2>>
						<<run $pc.skillExperienceGain('inhibition',1)>>
						You look around and smile, as no one knows you're not wearing any panties. You feel a thrilling sensation rush through your body as you think about it.
					<</if>>
					<<if $pc.skillLevel("dance") <= 30>>
						<<run $q.school.func('groupRelInc','cool',-1)>>
						<<run $q.school.func('groupRelInc','jocks',-2)>>
						You're having a lot of fun out on the dance floor. Your horribly awkward attempt at dancing makes it look like you're having a seizure, but you don't care. You're not paying attention to anyone else or even the music.
					<<elseif $pc.skillLevel("dance") <= 60>>
						You're having a lot of fun out on the dance floor. You barely pay attention to anyone else as you move around on the dance floor.
					<<elseif $pc.skillLevel("dance")ero <= 40>>
						<<run $q.school.func('groupRelInc','cool',1)>>
						<<run $q.school.func('groupRelInc','jocks',1)>>
						You're having a lot of fun out on the dance floor. You move your body around in an erotic manner to the beat of the music.
					<<else>>
						<<run $q.school.func('groupRelInc','cool',2)>>
						<<run $q.school.func('groupRelInc','jocks',2)>>
						You're having a lot of fun out on the dance floor. You expertly move your body around in a seductive manner to the beat of the music.
					<</if>>
				<<elseif $pc.alko == 1>>
					<h2>Disco</h2>
					<<image "locations/pavlovsk/community/disco/tipsy_dance.jpg">>
					<<if $wardrobe.pantyworntype == 'none' and $wardrobe.PCloSkirt > 2>>
						<<run $pc.skillExperienceGain('inhibition',1)>>
						You look around and smile, as no one knows you're not wearing any panties. You feel a thrilling sensation rush through your body as you think about it.
					<</if>>
					<<if $pc.skillLevel("dance") <= 30>>
						<<run $q.school.func('groupRelInc','cool',-1)>>
						<<run $q.school.func('groupRelInc','jocks',-2)>>
						You're having a lot of fun out on the dance floor, even though you're a terrible dancer and being buzzed doesn''t help. Your awkward movements look more like a seizure than dancing, but you don't care. You're not paying attention to anyone else or even the music.
					<<elseif $pc.skillLevel("dance") <= 60>>
						You're having a lot of fun out on the dance floor. You barely pay attention to anyone else as you move around on the dance floor, feeling a little buzzed.
					<<elseif $pc.skillLevel("dance")ero <= 40>>
						<<run $q.school.func('groupRelInc','cool',1)>>
						<<run $q.school.func('groupRelInc','jocks',1)>>
						You're having a lot of fun out on the dance floor and are dancing pretty well despite how buzzed you are. You move your body around in an erotic manner to the beat of the music.
					<<else>>
						<<run $q.school.func('groupRelInc','cool',2)>>
						<<run $q.school.func('groupRelInc','jocks',2)>>
						You're having a lot of fun out on the dance floor. Most people would have a hard time telling you were buzzed as you expertly move your body around in a seductive manner to the beat of the music.
					<</if>>
				<<elseif $pc.alko < 4>>
					<h2>Disco</h2>
					<<image "locations/pavlovsk/community/disco/tipsy_dance.jpg">>
					<<if $wardrobe.pantyworntype == 'none' and $wardrobe.PCloSkirt > 2>>
						<<run $pc.skillExperienceGain('inhibition',1)>>
						You look around and smile, as no one knows you're not wearing any panties. You feel a thrilling sensation rush through your body as you think about it.
					<</if>>
					<<if $pc.skillLevel("dance") <= 30>>
						<<run $q.school.func('groupRelInc','cool',-1)>>
						<<run $q.school.func('groupRelInc','jocks',-2)>>
						You're having a lot of fun out on the dance floor, even though you're a terrible dancer and being tipsy doesn''t help. Your awkward movements look more like a seizure than dancing, but you don't care. You're not paying attention to anyone else or even the music.
					<<elseif $pc.skillLevel("dance") <= 60>>
						You're having a lot of fun out on the dance floor. You barely pay attention to anyone else as you move around on the dance floor, feeling a little tipsy.
					<<elseif $pc.skillLevel("dance")ero <= 40>>
						<<run $q.school.func('groupRelInc','cool',1)>>
						<<run $q.school.func('groupRelInc','jocks',1)>>
						You're having a lot of fun out on the dance floor and are dancing pretty well despite how tipsy you are. You move your body around in an erotic manner to the beat of the music.
					<<else>>
						<<run $q.school.func('groupRelInc','cool',2)>>
						<<run $q.school.func('groupRelInc','jocks',2)>>
						You're having a lot of fun out on the dance floor. Most people would have a hard time telling you were tipsy as you expertly move your body in a seductive manner to the beat of the music.
					<</if>>
				<<elseif $pc.alko < 6>>
					<h2>Disco</h2>
					<<image "locations/pavlovsk/community/disco/drunk_dance.jpg">>
					<<if $wardrobe.pantyworntype == 'none' and $wardrobe.PCloSkirt > 2>>
						<<run $pc.skillExperienceGain('inhibition',1)>>
						You look around and smile, as no one knows you're not wearing any panties. You feel a thrilling sensation rush through your body as you think about it.
					<</if>>
					<<if $pc.skillLevel("dance") <= 30>>
						<<run $q.school.func('groupRelInc','cool',-3)>>
						<<run $q.school.func('groupRelInc','jocks',-3)>>
						<<run $q.school.func('groupRelInc','gopniks',1)>>
						You're having a lot of fun out on the dance floor, even though you're a terrible dancer and being drunk doesn''t help. Your awkward movements look more like a seizure than dancing, but you don't care. You're not paying attention to anyone else or even the music.
					<<elseif $pc.skillLevel("dance") <= 60>>
						<<run $q.school.func('groupRelInc','cool',-2)>>
						<<run $q.school.func('groupRelInc','jocks',-2)>>
						<<run $q.school.func('groupRelInc','gopniks',1)>>
						You're having a lot of fun out on the dance floor. You barely pay attention to anyone else as you move around on the dance floor, feeling rather drunk.
					<<elseif $pc.skillLevel("dance")ero <= 40>>
						<<run $q.school.func('groupRelInc','cool',-1)>>
						<<run $q.school.func('groupRelInc','jocks',-1)>>
						<<run $q.school.func('groupRelInc','gopniks',1)>>
						You're having a lot of fun out on the dance floor and are dancing pretty well despite how drunk you are. You move your body around in an erotic manner to the beat of the music
					<<else>>
						<<run $q.school.func('groupRelInc','gopniks',1)>>
						You're having a lot of fun out on the dance floor. Most people would have a hard time telling you were drunk as you expertly move your body in a seductive manner to the beat of the music.
					<</if>>
					<<if mid($start_type,1,2) == 'sg' and getvar("$katjaQW['QWstage']") > 1 and rand(1,10) == 1>>
						<<gt 'pav_disco' 'katja_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A25','rel') >= 50 and rand(1,10) == 1>>
						<<gt 'pav_disco' 'sonia_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A144','rel') >= 50 and rand(1,10) == 1>>
						<<gt 'pav_disco' 'anushka_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and (getvar("$AlbinaQW['Friends']") == 2 or ($npcs.get('A23','rel') >= 70 and ($q.school.func('isGroupMember','cool') or $q.school.func('isGroupMember','jocks') or $q.school.func('isGroupMember','nerds')))) and rand(1,10) == 1>>
						<<gt 'pav_disco' 'albina_too_drunk'>>
					<</if>>
				<<elseif $pc.alko < 10>>
					<<if $wardrobe.pantyworntype == 'none' and $wardrobe.PCloSkirt > 2>>
						<<run $pc.skillExperienceGain('inhibition',3)>>
						<h2>Disco</h2>
						<<video "locations/pavlovsk/community/disco/very_drunk_dance.mp4">>
						<<if $pc.skillLevel("dance") <= 30>>
							<<run $q.school.func('groupRelInc','cool',-6)>>
							<<run $q.school.func('groupRelInc','jocks',-6)>>
							<<run $q.school.func('groupRelInc','gopniks',2)>>
							You're very drunk and forget that you don't have any panties on. As you awkwardly attempt to dance, you're too drunk to notice your skirt riding up, exposing your pussy to the observant people on the dance floor with you.
						<<elseif $pc.skillLevel("dance") <= 60>>
							<<run $q.school.func('groupRelInc','cool',-5)>>
							<<run $q.school.func('groupRelInc','jocks',-5)>>
							<<run $q.school.func('groupRelInc','gopniks',2)>>
							You're very drunk and forget that you don't have any panties on. As you drunkenly dance around, your skirt rides up, exposing your pussy to the observant people on the dance floor with you.
						<<elseif $pc.skillLevel("dance")ero <= 40>>
							<<run $q.school.func('groupRelInc','cool',-4)>>
							<<run $q.school.func('groupRelInc','jocks',-4)>>
							<<run $q.school.func('groupRelInc','gopniks',2)>>
							You're very drunk and forget that you don't have any panties on. You dance pretty well for how drunk you are, but are too drunk to notice your skirt riding up, exposing your pussy to the observant people on the dance floor with you.
						<<else>>
							<<run $q.school.func('groupRelInc','cool',-3)>>
							<<run $q.school.func('groupRelInc','jocks',-3)>>
							<<run $q.school.func('groupRelInc','gopniks',2)>>
							You're very drunk and forget that you don't have any panties on. Most people would have a hard time knowing you were very drunk as you expertly move your body around in a seductive manner, but you are too drunk to notice your skirt riding up, exposing your pussy to the observant people on the dance floor with you.
						<</if>>
						<<if mid($start_type,1,2) == 'sg' and getvar("$katjaQW['QWstage']") > 1 and rand(1,5) == 1>>
							<<gt 'pav_disco' 'katja_too_drunk'>>
						<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A25','rel') >= 50 and rand(1,7) == 1>>
							<<gt 'pav_disco' 'sonia_too_drunk'>>
						<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A144','rel') >= 50 and rand(1,7) == 1>>
							<<gt 'pav_disco' 'anushka_too_drunk'>>
						<<elseif mid($start_type,1,2) == 'sg' and (getvar("$AlbinaQW['Friends']") == 2 or ($npcs.get('A23','rel') >= 70 and ($q.school.func('isGroupMember','cool') or $q.school.func('isGroupMember','jocks') or $q.school.func('isGroupMember','nerds')))) and rand(1,7) == 1>>
							<<gt 'pav_disco' 'albina_too_drunk'>>
						<</if>>
					<<else>>
						<h2>Disco</h2>
						<<image "locations/pavlovsk/community/disco/very_drunk_dance.jpg">>
						You're very drunk, but are having a lot of fun out on the dance floor anyway. You're not paying attention to anyone else or even the music.
						<<if $pc.skillLevel("dance") <= 30>>
							<<run $q.school.func('groupRelInc','cool',-4)>>
							<<run $q.school.func('groupRelInc','jocks',-4)>>
							You're very drunk, but are having a lot of fun out on the dance floor anyway. You're a terrible dancer, and being drunk doesn''t help. Your awkward movements look more like a seizure than dancing, but you don't care. You're not paying attention to anyone else or even the music.
						<<elseif $pc.skillLevel("dance") <= 60>>
							<<run $q.school.func('groupRelInc','cool',-3)>>
							<<run $q.school.func('groupRelInc','jocks',-3)>>
							You're very drunk, but are having a lot of fun out on the dance floor anyway. As you dance around, you barely pay attention to anyone else.
						<<elseif $pc.skillLevel("dance")ero <= 40>>
							<<run $q.school.func('groupRelInc','cool',-2)>>
							<<run $q.school.func('groupRelInc','jocks',-2)>>
							You're very drunk, but are having a lot of fun out on the dance floor anyway. You dance pretty well for how drunk you are, and move your body around in an erotic manner to the beat of the music.
						<<else>>
							<<run $q.school.func('groupRelInc','cool',-1)>>
							<<run $q.school.func('groupRelInc','jocks',-1)>>
							You're very drunk, but are having a lot of fun out on the dance floor anyway. Most people would have a hard time knowing you were drunk as you expertly move your body around in a seductive manner to the beat of the music.
						<</if>>
						<<if mid($start_type,1,2) == 'sg' and getvar("$katjaQW['QWstage']") > 1 and rand(1,5) == 1>>
							<<gt 'pav_disco' 'katja_too_drunk'>>
						<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A25','rel') >= 50 and rand(1,7) == 1>>
							<<gt 'pav_disco' 'sonia_too_drunk'>>
						<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A144','rel') >= 50 and rand(1,7) == 1>>
							<<gt 'pav_disco' 'anushka_too_drunk'>>
						<<elseif mid($start_type,1,2) == 'sg' and (getvar("$AlbinaQW['Friends']") == 2 or ($npcs.get('A23','rel') >= 70 and ($q.school.func('isGroupMember','cool') or $q.school.func('isGroupMember','jocks') or $q.school.func('isGroupMember','nerds')))) and rand(1,7) == 1>>
							<<gt 'pav_disco' 'albina_too_drunk'>>
						<</if>>
					<</if>>
				<<else>>
					<<run $q.school.func('groupRelInc','cool',-5)>>
					<<run $q.school.func('groupRelInc','jocks',-5)>>
					<<run $q.school.func('groupRelInc','gopniks',-1)>>
					<<image "locations/pavlovsk/community/disco/wasted_dance.jpg">>
					You're far too drunk and are barely able to stay on your feet. You're mostly just drunkenly bumping into other people as you try and dance.
					<<if mid($start_type,1,2) == 'sg' and getvar("$katjaQW['QWstage']") > 1 and rand(1,3) == 1>>
						<<gt 'pav_disco' 'katja_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A25','rel') >= 50 and rand(1,5) == 1>>
						<<gt 'pav_disco' 'sonia_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A144','rel') >= 50 and rand(1,5) == 1>>
						<<gt 'pav_disco' 'anushka_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and (getvar("$AlbinaQW['Friends']") == 2 or ($npcs.get('A23','rel') >= 70 and ($q.school.func('isGroupMember','cool') or $q.school.func('isGroupMember','jocks') or $q.school.func('isGroupMember','nerds')))) and rand(1,5) == 1>>
						<<gt 'pav_disco' 'albina_too_drunk'>>
					<</if>>
				<</if>>
				<<if $pc.alko < 6>>
					<<set $verprigrand = rand(0, 100)>>
					<<if $verprigrand <= $pc.skillLevel("dance")>>
						<<gs 'pav_disco' 'dance_partner'>>
						<<$din_disc_dance2>>
						<<actCLA 'Move away'>>
							<<gt 'pav_disco'>>
						<</actCLA>>
						<<actCLA 'Dance with the guy'>>
							<<gt 'pav_disco' 'dance_vrp'>>
						<</actCLA>>
						$exit
					<</if>>
				<</if>>
				<<actCLA 'Continue'>>
					<<gt 'pav_disco'>>
				<</actCLA>>
			<</if>>
		<</actCLA>>
		<<actCLA 'Stand at the wall'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>
			<!-- !!fat -= 1-->
			<<set $pc.mood -= 5>>
			<<set $pc.frost = 0>>
			<h2>Disco</h2>
			<<if ($pc.cumAtLocation(6) == 1 or $pc.cumAtLocation(7) == 1) or $pc.cumAtLocation(11) == 1>>
				<<set $pav_discocum = $time.daystart>>
				<<run $pc.fameInc('pav','sex',5)>>
				<<set $pc.mood -= 40>>
				<<image "locations/pavlovsk/community/disco/sex/cumface1.jpg">>
				<p>While standing by the wall, a guy notices the cum on your clothes and points and shouts. "Look, this chick is covered in cum! Did you forget to swallow slut?" he says mockingly while laughing. Your cheeks blush with shame and you head for the exit.</p>
				<<actCLA 'Leave'>>
					<<gt 'pav_commcenter'>>
				<</actCLA>>
				$exit
			<</if>>
			<<image "locations/pavlovsk/community/disco/wallflower.jpg">>
			<<if $pc.alko > 0>>
				<<if $pc.alko == 1>>
					You're buzzed and stand against the wall while watching the others dance.
				<<elseif $pc.alko < 4>>
					You're tipsy and stand against the wall while watching the others dance.
				<<elseif $pc.alko < 6>>
					<<if mid($start_type,1,2) == 'sg' and getvar("$katjaQW['QWstage']") > 1 and rand(1,10) == 1>>
						<<gt 'pav_disco' 'katja_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A25','rel') >= 50 and rand(1,10) == 1>>
						<<gt 'pav_disco' 'sonia_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A144','rel') >= 50 and rand(1,10) == 1>>
						<<gt 'pav_disco' 'anushka_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and (getvar("$AlbinaQW['Friends']") == 2 or ($npcs.get('A23','rel') >= 70 and ($q.school.func('isGroupMember','cool') or $q.school.func('isGroupMember','jocks') or $q.school.func('isGroupMember','nerds')))) and rand (1,10) == 1>>
						<<gt 'pav_disco' 'albina_too_drunk'>>
					<<else>>
						You're pretty drunk and stand against the wall for support as you watch the others dance.
					<</if>>
				<<else>>
					<<if mid($start_type,1,2) == 'sg' and getvar("$katjaQW['QWstage']") > 1 and rand(1,5) == 1>>
						<<gt 'pav_disco' 'katja_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A25','rel') >= 50 and rand(1,7) == 1>>
						<<gt 'pav_disco' 'sonia_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and $npcs.get('A144','rel') >= 50 and rand(1,7) == 1>>
						<<gt 'pav_disco' 'anushka_too_drunk'>>
					<<elseif mid($start_type,1,2) == 'sg' and (getvar("$AlbinaQW['Friends']") == 2 or ($npcs.get('A23','rel') >= 70 and ($q.school.func('isGroupMember','cool') or $q.school.func('isGroupMember','jocks') or $q.school.func('isGroupMember','nerds')))) and rand (1,7) == 1>>
						<<gt 'pav_disco' 'albina_too_drunk'>>
					<<else>>
						You're too drunk to dance and lean against the wall for support to stop yourself from falling.
					<</if>>
				<</if>>
			<<else>>
				You stand next to the wall while watching the others dance.
			<</if>>
			<<if $pc.alko < 6>>
				<<set $verodance = 0>>
				<<if $pc.pcs_hairbsh == 1>>
					<<setn $verodance += 1>>

				<</if>>
				<<if $wardrobe.PCloSkirt > 2 or $wardrobe.PCloPants > 4>>
					<<setn $verodance += 1>>

				<</if>>
				<<if $wardrobe.clothingworntype == 'fashionista'>>
					<<setn $verodance += 2>>

				<</if>>
				<<if $pc.pcs_makeup == 2>>
					<<setn $verodance += 1>>

				<</if>>
				<<if $pc.pcs_makeup == 3>>
					<<setn $verodance += 2>>

				<</if>>
				<<if $pc.pcs_makeup == 4>>
					<<setn $verodance += 3>>

				<</if>>
				<<if $pc.pcs_makeup == 5>>
					<<setn $verodance += 4>>

				<</if>>
				<<if $pc.pcs_makeup == 6>>
					<<setn $verodance += 3>>

				<</if>>
				<<set $verodance += $pc.alko>>
				<<set $verodance += 5>>
				<<set $verprigrand = rand(0, 20)>>
				<<if $verprigrand <= $verodance>>
					<<gs 'pav_disco' 'dance_partner'>>
					<<$din_disc_dance>>
					<<actCLA 'Refuse'>>
						<<gt 'pav_disco'>>
					<</actCLA>>
					<<actCLA 'Dance'>>
						<<gt 'pav_disco' 'dance_vrp'>>
					<</actCLA>>
					$exit
				<</if>>
			<</if>>
			<<actCLA 'Continue'>>
				<<gt 'pav_disco'>>
			<</actCLA>>
		<</actCLA>>
		<<if mid($start_type,1,2) == 'sg' and getvar("$SchoolAtestat") == 0>>
			<<actCLA 'Look for your classmates'>>
	<<gt 'pav_disco_classmates' 'classmates'>>
<</actCLA>>

		<</if>>
	<<elseif $time.hour < 20>>
		<h2>Disco</h2>
		<<image "locations/pavlovsk/community/disco/closing.jpg">>
		The club is closing for the night. The main lights go on, the music fades and everyone begins to leave.
		<<actCLA 'Go outside'>>
			<<gt 'pav_commcenter'>>
		<</actCLA>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'kotov_love'>>
	<<set $menu_off = 1>>
	<h2>Disco</h2>
	<<image "characters/shared/headshots_main/big9.jpg">>
	<p>Vitek walks up to you and the guy. "What's this? Who's this guy?" Vitek shoves the guy and angrily says "Well? Who the fuck are you? This is my girl, you want me to bust you up?"</p>
	<<if getvar("$DPgrup") == 1>>
		<<set $fightboyrand = rand(0, 10)>>
		<<if getvar("$fightboyrand") <= 5>>
			The frightened man begins to speak. "Come on, I didn''t know. I'm leaving."
			Vitek pushes the guy. "Get out of here and don't come back."
		<<elseif getvar("$fightboyrand") > 5 and getvar("$fightboyrand") < 10>>
			<p>The guy shoves Vitek back. "Get your hands off me asshole!" Vitek suddenly kicks the guy with a fast and powerful blow.</p>
			The guy falls to the floor in pain and Vitek steps over him. Grabbing him by his shirt, he yanks him off the floor and slams him into the wall.
			<p>"Well motherfucker? You think you can take what's mine? How about I take what's yours?" The frightened guy curls up in pain. "You can have anything, anything I've got!"</p>
		<<elseif getvar("$fightboyrand") >= 10>>
			The guy punches Vitek in the face. Vitek recoils from the hit and lands a powerful kick of his own. They then start fighting, fists and kicks landing from both sides. Finally, a very powerful hit by Vitek sends the guy flying into the wall, where he slumps to the floor. Vitek runs to him and starts punching him in the face. The guy stops resisting, apparently having lost consciousness.
		<</if>>
	<<elseif getvar("$DPgrup") == 2>>
		<p>The guy has a smug look on his face as he calls over his friends, who all come over to crowd around Vitek. "Real tough guy huh?" Vitek's friends come over to back him up. After a bit of tough talk and shoving, the two groups break apart peacefully, going their own ways.</p>
	<<elseif getvar("$DPgrup") == 3>>
		The guy throws up his hands. "Sorry man, I didn''t know she was with you."
		Vitek pushes the guy. "Go back to the city and stay there."
	<</if>>
	<<actCLA 'Go to Vitek'>>
		<<set $numnpc = 9>>
		<<gs 'npc' 'intro' 'A9' 'images/characters/shared/headshots_main/big9.jpg'>>
		<<gs 'kotovtalker'>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'reakt_dance'>>
	<<set $menu_off = 1>>
	<h2>Disco</h2>
	<<image "locations/pavlovsk/community/disco/club_dance1.jpg">>
	<<if $pc.alko >= 3>>
		You feel yourself getting aroused by the guy''s actions.
		<<arouse 'foreplay' 5 >>
		<<arousalEnd>>
	<<else>>
		<<if $pc.horny > 0>>
			<<setn $pc.horny -= 5>>

		<</if>>
		<<set $pc.mood -= 5>>
		You feel disgusted by the guy''s actions.
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'reverse_reakt_dance'>>
	<<set $menu_off = 1>>
	<h2>Disco</h2>
	<<image "locations/pavlovsk/community/disco/club_dance1.jpg">>
	<<if $pc.alko < 3>>
		<<set $pc.mood += 20>>
		You enjoy dancing with him.
		<<if $pc.pcs_inhib < 40>>
			<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>

		<</if>>
		<<arouse 'foreplay' 5 >>
		<<arousalEnd>>
	<<elseif $pc.alko > 3>>
		<<if $pc.horny > 0>>
			<<setn $pc.horny -= 5>>

		<</if>>
		<<set $pc.mood -= 5>>
		You find the guy boring and uninteresting.
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'dance_vrp'>>
	<<set $menu_off = 1>>
	<<set $time.minutes += 5>>
	<<if $pc.skillLevel("dance") < 50 and $pc.skillLevel("agility") >= $pc.skillLevel("dance")>>
		<<run $pc.skillExperienceGain('dance',1)>>

	<</if>>
	<<if $pc.pcs_inhib < 40>>
		<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>

	<</if>>
	<h2>Disco</h2>
	<<image "locations/pavlovsk/community/disco/club_dance1.jpg">>
	You accept the offer and the guy takes you by the hand and leads you out onto the dance floor, where you start dancing together.
	<<if getvar("$DPgrup") == 1>>
		<<if getvar("$DPtipe") == 1>>
			<h2>Disco</h2>
			<<image "locations/pavlovsk/community/disco/club_dance3.jpg">>
			The guy dances with you, holding your waist with his hands.
			<<gs 'pav_disco' 'reverse_reakt_dance'>>
		<<elseif getvar("$DPtipe") == 2>>
			 			<h2>Disco</h2>
			<<image "locations/pavlovsk/community/disco/club_dance2.jpg">>
			The drunk guy pushes into you, grinding his body up against yours. You feel your breasts literally flatten against the man''s chest.
			<<arouse 'foreplay' 5 >>
			<<gs 'pav_disco' 'reakt_dance'>>
		<</if>>
	<<elseif getvar("$DPgrup") == 2>>
		<<if getvar("$DPtipe") == 1>>
			<h2>Disco</h2>
			<<image "locations/pavlovsk/community/disco/club_dance3.jpg">>
			The guy slides his hands down your side to your hips.
			<<arouse 'foreplay' 5 >>
			<<gs 'pav_disco' 'reakt_dance'>>
		<<elseif getvar("$DPtipe") == 2>>
			 			<h2>Disco</h2>
			<<image "locations/pavlovsk/community/disco/club_dance4.jpg">>
			The guy grabs your ass and squeezes it before he pulls you into a hug and kisses you passionately.
			<<arouse 'foreplay' 5 >>
			<<gs 'pav_disco' 'reakt_dance'>>
		<</if>>
	<<elseif getvar("$DPgrup") == 3>>
		<<if getvar("$DPtipe") == 1>>
			<h2>Disco</h2>
			<<image "locations/pavlovsk/community/disco/club_dance2.jpg">>
			A very confident and elegant man leads you in a dance, holding you by your waist with his strong hands.
			<<arouse 'foreplay' 5 >>
			<<gs 'pav_disco' 'reverse_reakt_dance'>>
		<<elseif getvar("$DPtipe") == 2>>
			<h2>Disco</h2>
			<<image "locations/pavlovsk/community/disco/club_dance4.jpg">>
			A tipsy man hugs you around your waist and his hands go down to grab your ass.
			<<arouse 'foreplay' 5 >>
			<<gs 'pav_disco' 'reakt_dance'>>
		<</if>>
	<</if>>
	<<actCLA 'Stop and move away'>>
		<<gt 'pav_disco'>>
	<</actCLA>>
	<<actCLA 'Continue to dance with him'>>
		<h2>Disco</h2>
		<<if $wardrobe.pantyworntype == 'none'>>
			<<image "locations/pavlovsk/community/disco/club_dance5.jpg">>
		<<else>>
			<<image "locations/pavlovsk/community/disco/club_dance6.jpg">>
		<</if>>
		<<if $pc.alko < 6 or $pc.horny <= 75>>
			<<actCLA 'Refuse'>>
				<<gt 'pav_disco'>>
			<</actCLA>>
		<<else>>
			<<actCLA 'Refuse' undefined `{willpower:['drink','resist']}`>>


					<<if $pc.skillLevel("spirit") <= 30>>
						<<run $pc.skillExperienceGain('spirit',rand(0,1))>>

					<</if>>
					<<gt 'pav_disco'>>
				<</actCLA>>

		<</if>>
		<<if getvar("$DPgrup") == 1>>
			<<run $npcs.set($npclastcalled,'usedname',$npcs.get($npclastcalled,'nickname'))>>
			<<set $boydesc = $npcs.get($npclastcalled,'nickname')>>
			<<if rand(1,2) == 1>>
				<<if getvar("$DPtipe") == 1>>
					<p>"My name is $boydesc. What's yours?" the guy asks.</p>
					<p>"$pc.name_first, but people call me $pc.name_nick." you reply. Once the song ends, the guy asks you to sit with him and chat.</p>
				<<elseif getvar("$DPtipe") == 2>>
					<p>"My name is $boydesc. What's yours?" the guy asks.</p>
					<p>"$pc.name_first, but people call me $pc.name_nick." you reply. The drunk guy humped you throughout the dance and now his face is flushed with excitement. He asks you to leave with him to get some fresh air and talk outside.</p>
				<</if>>
				<<actCLA 'Go with the guy'>>
					<<gt 'pav_disco_sex' 'outside' 'nice'>>
				<</actCLA>>
			<<else>>
				<<if getvar("$DPtipe") == 1>>
					<p>"My name is $boydesc. What's yours?" the guy asks.</p>
					<p>"$pc.name_first, but people call me $pc.name_nick." you reply. Once the song ends, the guy asks if you want to go outside with him.</p>
				<<elseif getvar("$DPtipe") == 2>>
					<p>"My name is $boydesc. What's yours?" the guy asks.</p>
					<p>"$pc.name_first, but people call me $pc.name_nick." you reply. The drunk guy humped you throughout the dance and now his face is flushed with excitement. He asks you to leave with him and to get some fresh air and talk outside.</p>
				<</if>>
				<<actCLA 'Go with the guy'>>
					<<gt 'pav_disco' 'hookup_nice'>>
				<</actCLA>>
			<</if>>
		<<elseif getvar("$DPgrup") == 2>>
			<<if rand(1,2) == 1>>
				<<if getvar("$DPtipe") == 1>>
					The guy constantly grabs your ass, breasts and tries kissing you, clearly feeling rather excited. Every time you press up against him, you feel something hard in his pants. The song then finally ends and the guy offers to take you outside for a drink.
					<<arouse 'foreplay' 5 >>
					<<actCLA 'Go outside'>>
						<<gt 'pav_disco_sex' 'outside' 'aggressiv'>>
					<</actCLA>>
				<<elseif getvar("$DPtipe") == 2>>
					The guy constantly grabs your ass, breasts and tries kissing you, clearly feeling rather excited. Every time you press up against him, you feel something hard in his pants. The song then finally ends and the guy offers to take you outside for a drink.
					<<arouse 'foreplay' 5 >>
					<<actCLA 'Go outside'>>
						<<gt 'pav_disco_sex' 'outside' 'aggressiv'>>
					<</actCLA>>
				<</if>>
			<<else>>
				<<if getvar("$DPtipe") == 1>>
					The guy constantly grabs your ass, breasts and tries kissing you, clearly feeling rather excited. Every time you press up against him, you feel something hard in his pants. The song then finally ends and the guy asks if you want to go outside and get some fresh air.
					<<arouse 'foreplay' 5 >>
					<<actCLA 'Go with him'>>
						<<gt 'pav_disco' 'hookup_aggressive'>>
					<</actCLA>>
				<<elseif getvar("$DPtipe") == 2>>
					The guy constantly grabs your ass, breasts and tries kissing you, clearly feeling rather excited. Every time you press up against him, you feel something hard in his pants. The song then finally ends and the guy asks if you want to go outside and get some fresh air.
					<<arouse 'foreplay' 5 >>
					<<actCLA 'Go with him'>>
						<<gt 'pav_disco' 'hookup_aggressive'>>
					<</actCLA>>
				<</if>>
			<</if>>
		<<elseif getvar("$DPgrup") == 3>>
			<<if getvar("$DPtipe") == 1>>
				The man dances with confidence and elegance. When the song ends, he offers to take you outside for some fresh air.
				<<actCLA 'Go with the man'>>
					<<image "locations/pavlovsk/community/disco/outside_talk.jpg">>
					<<run $npcs.set($npclastcalled,'usedname',$npcs.get($npclastcalled,'nickname'))>>
					<<set $boydesc = $npcs.get($npclastcalled,'nickname')>>
					<p>You go outside with the man. As you walk, he put his arm around your waist. "My name is $boydesc. What's yours?" he asks.</p>
					<p>"$pc.name_first, but people call me $pc.name_nick." you answer and the man continues. "That's a nice name. I'm in town on a business trip and I'm staying at a nearby hotel. There's virtually nothing to do in this town, so why don't you come back to my hotel with me? We can drink some whiskey and chat."</p>
					<<if $pc.alko < 6 or $pc.horny <= 75 or $pc.fame('pav_slut') <= 50>>
						<<actCLA 'Refuse' undefined `{willpower:['drink','resist']}`>>


								<<if $pc.skillLevel("spirit") <= 30>>
									<<run $pc.skillExperienceGain('spirit',rand(0,1))>>

								<</if>>
								<<gt 'pav_disco'>>
							<</actCLA>>

					<</if>>
					<<actCLA 'Go to the hotel'>>
						<<gt 'pav_disco_sex' 'hotel'>>
					<</actCLA>>
				<</actCLA>>
			<<elseif getvar("$DPtipe") == 2>>
				<<run $npcs.set($npclastcalled,'usedname',$npcs.get($npclastcalled,'nickname'))>>
				<<set $boydesc = $npcs.get($npclastcalled,'nickname')>>
				<p>The drunk man molests you for the entire dance and when the dance finally ends, he whispers in your ear. "My name is $boydesc. What's yours?"</p>
				<p>"$pc.name_first, but people call me $pc.name_nick." you answer, feeling somewhat disgusted.</p>
				<p>"$pc.name_nick, I'm not a local. I'm staying in a nearby hotel, so let's take a taxi and go to my room." he drunkenly stutters.</p>
				<<arouse 'foreplay' 5 >>
				<<actCLA 'Go to the hotel'>>
					<<gt 'pav_disco_sex' 'hotel'>>
				<</actCLA>>
			<</if>>
		<</if>>
		<<if getvar("$kotovLoveQW") > 0>>
			<<gt 'pav_disco' 'kotov_love'>>

		<</if>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'dance_partner'>>
	<!-- !!the creation of a partner to dance-->
	<<set $sozboyrand = rand(1,300)>>
	<<if $sozboyrand > $boynum>>
		<<gs 'npcgeneratec' 0 'guy from the disco' `rand(($pc.age - 1),($pc.age + 1))` 1>>

		<<set $DaPaTipeRand = rand(0,100)>>
		<<if getvar("$DaPaTipeRand") < 70>>
			<!-- !!ordinary local boy-->
			<<set $bmtimeTipe = 0>>
			<<set $DrunkDPTrand = rand(0,100)>>
			<<if getvar("$DrunkDPTrand") < 70>>
				<<set $DPtipe = 1>>
				<<set $DPgrup = 1>>
				<<set $din_disc_dance = 'A guy dressed in jeans and a T-shirt asks you to dance.'>>
				<<set $din_disc_dance2 = 'Dancing next to you is a guy dressed in jeans and a T-shirt.'>>
			<<elseif getvar("$DrunkDPTrand") >= 70>>
				<<set $DPtipe = 2>>
				<<set $DPgrup = 1>>
				<<set $din_disc_dance = 'A drunk guy dressed in jeans and a T-shirt asks you to dance.'>>
				<<set $din_disc_dance2 = 'Dancing next to you is a drunk guy dressed in jeans and a T-shirt.'>>
			<</if>>
		<<elseif getvar("$DaPaTipeRand") >= 70 and getvar("$DaPaTipeRand") < 90>>
			<!-- !!local gopar-->
			<<set $bmtimeTipe = 1>>
			<<set $DrunkDPTrand = rand(0,100)>>
			<<if getvar("$DrunkDPTrand") < 50>>
				<<set $DPtipe = 1>>
				<<set $DPgrup = 2>>
				<<set $din_disc_dance = 'A guy dressed in sweatpants and a sweatshirt asks you to dance.'>>
				<<set $din_disc_dance2 = 'Dancing next to you is a guy dressed in sweatpants and sweatshirts.'>>
			<<elseif getvar("$DrunkDPTrand") >= 50>>
				<<set $DPtipe = 2>>
				<<set $DPgrup = 2>>
				<<set $din_disc_dance = 'A drunk guy dressed in sweatpants and a sweatshirt puts his arms around your waist and asks you to dance.'>>
				<<set $din_disc_dance2 = 'Dancing next to you is a drunk guy dressed in sweatpants and sweatshirts.'>>
			<</if>>
		<<elseif getvar("$DaPaTipeRand") >= 90>>
			<!-- !!traveling_expenses-->
			<<set $bmtimeTipe = 2>>
			<<set $DrunkDPTrand = rand(0,100)>>
			<<if getvar("$DrunkDPTrand") < 90>>
				<<set $DPtipe = 1>>
				<<set $DPgrup = 3>>
				<<set $din_disc_dance = 'A man in a nice suit and expensive shoes asks you to dance.'>>
				<<set $din_disc_dance2 = 'Dancing next to you is a man in a nice suit and expensive shoes.'>>
			<<elseif getvar("$DrunkDPTrand") >= 90>>
				<<set $DPtipe = 2>>
				<<set $DPgrup = 3>>
				<<set $din_disc_dance = 'A drunk man in a nice suit and expensive shoes puts his arms around your waist and asks you to dance.'>>
				<<set $din_disc_dance2 = 'Dancing next to you is a drunk man in a nice suit and expensive shoes.'>>
			<</if>>
		<</if>>
		<<gs 'boymass' 'A'>>
	<<elseif $sozboyrand <= $boynum>>
		<<gt 'pav_disco' 'familiar'>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'familiar'>>
	<<set $menu_off = 1>>
	<<set $Tboynum = $sozboyrand>>
	<<if getvar("$bmTip["+$Tboynum+"]") == 0>>
		<<set $niknameboy = 'Guy'>>
		<<set $rudeboy = 1>>
		<h2>Disco</h2>
		<<image "locations/pavlovsk/community/disco/normal1.jpg">>
		<p>A man dressed in jeans and a T-shirt invites you to dance. You don't recognize him, but he seems familiar.</p>
	<<elseif getvar("$bmTip["+$Tboynum+"]") == 1>>
		<<set $niknameboy = 'Gopnik'>>
		<<set $rudeboy = 2>>
		<h2>Disco</h2>
		<<image "locations/pavlovsk/community/disco/gopnik1.jpg">>
		A man dressed in sweatpants and sweatshirts invites you to dance. You don't recognize him, but he seems familiar.
	<<elseif getvar("$bmTip["+$Tboynum+"]") == 2>>
		<<set $niknameboy = 'Man'>>
		<<set $rudeboy = 0>>
		<h2>Disco</h2>
		<<image "locations/pavlovsk/community/disco/suit1.jpg">>
		A man dressed in a nice suit and expensive shoes invites you to dance. You don't recognize him, but he seems familiar.
	<</if>>
	<<gs 'pav_disco' 'familiar2'>>
<</if>>
<<if $location_var[$here][0] == 'familiar2'>>
	<<actCLA 'Leave'>>
		<<gt 'pav_disco'>>
	<</actCLA>>
	<<actCLA 'Dance'>>
		<<gs 'boyStat' $bmNane[$Tboynum]>>
		<<set $hookupboy = $bmNane[$Tboynum]>>
		<<run $npcs.set($npclastcalled,'usedname',$npcs.get($npclastcalled,'nickname'))>>
		<<if $npcs.get($boy,'virgin_take') == 1>>
			<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. I took your virginity."</p>
		<<elseif $npcs.get($boy,'hookup') > 0>>
			<<if $npcs.get($boy,'last_sex') >= $time.daystart - 7>>
				<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. We hooked up the other day."</p>
			<<elseif $npcs.get($boy,'last_sex') >= $time.daystart - 30>>
				<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. We hooked up a few weeks ago."</p>
			<<else>>
				<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. We hooked up a while back."</p>
			<</if>>
		<<elseif getvar("$bmHJ["+$boy+"]") > 0>>
			<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. You gave me a hand job."</p>
		<<elseif getvar("$bmBJ["+$boy+"]") > 0>>
			<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. You gave me a blowjob."</p>
		<<elseif getvar("$bmSEX["+$boy+"]") > 0>>
			<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. You let me fuck you."</p>
		<<elseif getvar("$bmANAL["+$boy+"]") > 0>>
			<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. You let me fuck you in the ass."</p>
		<<elseif getvar("$bmGANG["+$boy+"]") > 0>>
			<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. You let me and my friend fuck you."</p>
		<<else>>
			<<if getvar("$bmKISS["+$boy+"]") > 0 or getvar("$bmTITS["+$boy+"]") > 0>>
				<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>. We hung out and drank together beer."</p>
			<<else>>
				<p>"Remember me? I'm <<=$npcs.get($boy,'firstname')>>.  We danced together."</p>
			<</if>>
		<</if>>
		<<if getvar("$bmTip["+$Tboynum+"]") == 0>>
			<p>After the Dance $boydesc offers to go out and drink beer.</p>

		<</if>>
		<<if getvar("$bmTip["+$Tboynum+"]") == 1>>
			<p>After the Dance $boydesc offers to go hang out.</p>

		<</if>>
		<<if getvar("$bmTip["+$Tboynum+"]") == 2>>
			<p>After the Dance $boydesc offers to go to his hotel.</p>

		<</if>>
		<<actCLA 'Refuse' undefined `{willpower:['drink','resist']}`>>
				<<run $pc.skillExperienceGain('spirit',rand(0,1))>>

				<<gs 'willpower' 'pay'>>
				<<gt 'pav_disco'>>
			<</actCLA>>

		<<actCLA 'Agree'>>
			<<set $boynumBlock = 1>>
			<<if getvar("$bmTip["+$Tboynum+"]") == 0>>
				<<set $gdk_nice_guy = 1>>
				<<gt 'pav_disco_sex' 'outside'>>
			<</if>>
			<<if getvar("$bmTip["+$Tboynum+"]") == 1>>
				<<gt 'pav_disco_sex' 'outside'>>

			<</if>>
			<<if getvar("$bmTip["+$Tboynum+"]") == 2>>
				<<set $DPtipe = 2>>
				<<gt 'pav_disco_sex' 'hotel'>>
			<</if>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'katja_too_drunk'>>
	<<set $menu_off = 1>>
	<h2>Disco</h2>
	<<image "locations/pavlovsk/community/disco/school_kids/katja_help.jpg">>
	<p>Katja approaches you. "$pc.name_nick, are you drunk!? Let's get you home, I'll help you."</p>
	<<actCLA 'Go with Katja'>>
		<<gt 'pav_disco_coolkids' 'katja_walkhome'>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'sonia_too_drunk'>>
	<<set $menu_off = 1>>
	<h2>Disco</h2>
	<<image "characters/shared/headshots_main/big25.jpg">>
	<p>Sonia approaches you and smiles. "$pc.name_nick, you're pretty drunk. Let's get you home, I'll walk with you."</p>
	<<actCLA 'Go with Sonia'>>
		<<gt 'pav_disco_coolkids' 'sonia_walkhome'>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'anushka_too_drunk'>>
	<<set $menu_off = 1>>
	<h2>Disco</h2>
	<<image "characters/shared/headshots_main/big144.jpg">>
	<p>Anushka approaches and pokes you, which causes you to jerk away. This causes you to stumble and nearly fall, but Anushka catches you by the arm to help steady you. "Someone's partied pretty hard tonight, haven't they? Maybe a little too hard. Let's get you home before someone tries to take advantage of you."</p>
	<<actCLA 'Go with Anushka'>>
		<<gt 'pav_disco_gopniks' 'anushka_walkhome'>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'albina_too_drunk'>>
	<<set $menu_off = 1>>
	<h2>Disco</h2>
	<<image "characters/shared/headshots_main/big23.jpg">>
	You're barely able to stand upright and stumble right into a nearby girl. It takes you a few seconds to realize that your face is firmly buried in her cleavage and you quickly jerk away, much to the disappointment of the boys around you.
	"Someone''s had a little too much fun it seems." You look up and notice that it's Albina. "Let''s get you home before you do something you regret."
	<<actCLA 'Go with Albina'>>
		<<gt 'pav_disco_jocks' 'albina_walkhome'>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'hookup_aggressive'>>
	<<setinit $hookup['pickup'] = 'pav_disco'>>
	<<run $pc.fameInc('pav','sex',1)>>
	<<image `'locations/pavlovsk/community/disco/outside_talk.jpg'`>>
	<p>"Hey, let's go back to my place and fuck!"</p>
	<<actCLA 'No thanks'>>
		<<image `'locations/pavlovsk/community/disco/outside_talk.jpg'`>>
		"No thanks, I'm not interested in having a one night stand." you reply.
		<p>"Huh?!" $boydesc looks at you with anger on his face. "After the way you were dancing with me, you're not gonna give it up?"</p>
		He makes a show of your rejection, hissing at you and spitting on the ground, narrowly missing your shoes before storming off. You roll your eyes and wait until he's gone before leaving yourself.
		<<arousalEnd>>
		<<actCLA 'Leave'>>
			<<gt $location>>
		<</actCLA>>
		<<actCLA 'Return to the dance'>>
			<<gt 'pav_disco'>>
		<</actCLA>>
	<</actCLA>>
	<<actCLA 'Fuck off'>>
		<<image `'pc/reactions/fuckoff3.jpg'`>>
		<p>"You have no chance with me, so why don't you just fuck off?" you say with a sting.</p>
		<p>"Huh?!" $boydesc looks at you with anger on his face. "After the way you were dancing with me, you're not gonna give it up?"</p>
		He makes a show of your rejection, hissing at you and spitting on the ground, narrowly missing your shoes before storming off. You roll your eyes and wait until he's gone before leaving yourself.
		<<arousalEnd>>
		<<actCLA 'Leave'>>
			<<gt $location>>
		<</actCLA>>
		<<actCLA 'Return to the dance'>>
			<<gt 'pav_disco'>>
		<</actCLA>>
	<</actCLA>>
	<<actCLA 'That sounds nice'>>
		<<image `'locations/pavlovsk/community/disco/outside_kiss.jpg'`>>
		"That sounds nice," you say with a smile.
		<p>He leans in and gives you a quick, yet passionate kiss. "Great!" He grabs you by the arm and starts pulling you towards a nearby apartment complex, whispering obscenities in your ear along the way.</p>
		<<arouse 'kiss' 5 >>
		<<arousalEnd>>
		<<actCLA 'Go to his place'>>
			<<gt 'sex_ev_start' 'hookup_npc_home_start'>>
		<</actCLA>>
	<</actCLA>>
	<<actCLA 'That sounds great'>>
		<<image `'locations/pavlovsk/community/disco/outside_kiss.jpg'`>>
		"Fuck yeah, that sounds awesome." you say back to him.
		He leans in and gives you a quick, yet passionate kiss. "I knew I liked you." He grabs you by the arm and starts pulling you towards a nearby apartment complex.
		<<arouse 'kiss' 5 >>
		<<arousalEnd>>
		<<actCLA 'Go to his place'>>
			<<gt 'sex_ev_start' 'hookup_npc_home_start'>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'hookup_nice'>>
	<<setinit $hookup['pickup'] = 'pav_disco'>>
	<<image `'locations/pavlovsk/community/disco/outside_talk.jpg'`>>
	<p>"Hey," <<=$npcs.get($boy,'firstname')>> says. "I had a really good time dancing with you tonight and I was wondering... would you maybe want to come back to my place? I could get you a drink and maybe..."</p>
	<<actCLA 'Sorry'>>
		<<image `'locations/pavlovsk/community/disco/outside_talk.jpg'`>>
		"Oh, uhh, I uhh... I don't know if I'm really up for that. Sorry..."
		<p>"Oh, sure. That's okay. You don't have to be sorry." <<=$npcs.get($boy,'firstname')>> says with a hint of disappointment. "Well at least I gave it my best shot. Who knows, maybe I'll see you here again."</p>
		<<actCLA 'Leave'>>
			<<gt $location>>
		<</actCLA>>
		<<actCLA 'Return to the dance'>>
			<<gt 'pav_disco'>>
		<</actCLA>>
	<</actCLA>>
	<<actCLA 'No thanks'>>
		<<image `'locations/pavlovsk/community/disco/outside_talk.jpg'`>>
		"No thanks, I'm not interested." you reply
		"Oh, sure. That's okay. Uhh, sorry I asked." he says with a slight hint of disappointment.
		You shrug and walk away.
		<<actCLA 'Leave'>>
			<<gt $location>>
		<</actCLA>>
		<<actCLA 'Return to the dance'>>
			<<gt 'pav_disco'>>
		<</actCLA>>
	<</actCLA>>
	<<actCLA 'Hook up with him'>>
		<<run $pc.fameInc('pav','sex',1)>>
		<<image `'locations/pavlovsk/community/disco/outside_kiss.jpg'`>>
		"That sounds nice," you smile.
		<p>"Great! So, shall we..."</p>
		You follow him back to his home in nearby apartment complex, flirting in innuendos along the way. By the time you get there, you've both forgotten about the drinks.
		<<actCLA 'Go to his place'>>
			<<gt 'sex_ev_start' 'hookup_npc_home_start'>>
		<</actCLA>>
	<</actCLA>>
	<<actCLA 'Want to fuck?'>>
		<<run $pc.fameInc('pav','sex',1)>>
		<<image `'locations/pavlovsk/community/disco/outside_kiss.jpg'`>>
		<p>"... fuck?" you ask.</p>
		He looks dumb founded by your words. "Uhh..."
		<p>"Fuck," you repeat. "Wanna go back to your place and fuck? We can skip the drinks too."</p>
		<p><<=$npcs.get($boy,'firstname')>> seems stunned by your straightforwardness, but eventually answers, "Yes!"</p>
		<p>"Great! Lead the way!" you grin. The two of you hurry through the streets together to a nearby apartment complex.</p>
		<<actCLA 'Go to his place'>>
			<<gt 'sex_ev_start' 'hookup_npc_home_start'>>
		<</actCLA>>
	<</actCLA>>
<</if>>