:: bedrPar_events[events bedrPar_events]
	<<set _location_anya = $npcs.location('A33')>>

:: bedrPar[hasEvents indoors private bedroom homeParents configurable guitar book]

	<!-- !!day check so mom doesn''t think you have been out all night if you get up very early-->
	/*<<setinit $motherworry[1] = $time.daystart>>*/

	<!-- !! This is runs only once, just to make sure that Sveta can sing from the start, does not have to wait a whole day for `cikl` to run.-->
	/*<<if getvar("$ml_performance['max_perform_minutes']") == 0>>
		<<setinit $ml_performance['max_perform_minutes'] = $pc.skillLevel("playInstrument") + $pc.skillLevel("singing")>>
	<</if>>*/

	<<set _location_anya = $npcs.location('A33')>>

	<<if _tags.includes('isHome')>>
		<h2>Your bedroom</h2>
	<<else>>
		<h2>Your old bedroom</h2>
	<</if>>

	<<imageDayNight "locations/pavlovsk/resident/apartment/home/bedrpar#.jpg" "" "N">>
	<<if _tags.includes('isHome')>>
		<p>
			This is the small bedroom you share with your sister, <<npc 'A33'>><</npc>>.
			On one side of the room is a wardrobe where you can choose outfits and organise your clothing.
		</p>
		<<act 'Desk'>><<gt 'stol' 'stolPar'>><</act>>
		<p>
			Your bed stands opposite the wardrobe,
			and your desk is next to it.
			Your sister's bed is in the other corner.
		</p>
	<<else>>
		<p>This small bedroom you used to share with your sister, <<npc 'A33'>><</npc>>. The furniture is old and basic.</p>
	<</if>>


	<<if _location_anya.location == 'home'>>
		<<set $sisterdialog = 1>>
		<<if _location_anya.activity.includes('asleep')>>
			<<npc $npc_sister>><<gt 'sistersleep' 'sister_sleep'>><</npc>> is asleep in her bed.
		<<elseif _location_anya.activity.includes('relaxing')>>
			<p><<npc $npc_sister>><<gt 'sister_chat' 'chat'>><</npc>> is sitting on her bed, reading a book.</p>
		<<elseif _location_anya.activity.includes('dressingUp')>>
			<p><<npc $npc_sister>><<gt 'sister_chat' 'dressingUp'>><</npc>> is getting ready to go out.</p>
		<<elseif _location_anya.activity.includes('drunk')>>
			<p>A drunken <<npc $npc_sister>><</npc>> is sound asleep in her bed.</p>
		<</if>>
	<</if>>



		/*<<if $npc('A33').QW > 10>>
			<<set $npc('A33').QW = 10>>
		<</if>>
		<<if getvar("$locat['Anya_Gad']") == 0>>

				<<if getvar("$locat['Anya']") == 1>>

				<<elseif getvar("$locat['Anya']") == 4>>


				<<elseif getvar("$locat['Anya']") == 15>>
					<<if getvar("$anyaQW['bathroom_dildos']") > 0>>
						<<gt 'sister_chat' 'bathroom_dildo_talk1'>>

					<</if>>

				<<elseif getvar("$locat['Anya']") == 26>>
					<<if getvar("$sisboypartyQW") == 1>>
						<<set $sisboypartyQW = 2>>

					<</if>>
					<<if getvar("$sisboyparty") == -1>>
						<<set $sisboyparty = 1>>

					<</if>>

				<</if>>

		<</if>>*/
		<<ConnectedLocationCode 'Hallway' 'locations/pavlovsk/resident/apartment/home/korrPar.webp' 1>>
			/*<<if (getvar("$locat['Anya']") == 4 or getvar("$locat['Anya']") == 15) and $time.daystart - getvar("$ParrotQW['BuyDate']") > 55 and getvar("$ParrotQW['Owned2']") == 1 and getvar("$ParrotQW['SisterReleaseParrotDay']") == 0>>
				<<travel `['sister_chat','pargone']`>>
			<<else>>*/
				<<travel 'korrPar' 1>>
			/*<</if>>*/
		<</ConnectedLocationCode>>
		/*<<if $pc.isSchoolStudent>>

			<<warn "Disabled: prostitution_functions at bedrPar">>
		<!--<<gs 'prostitution_functions' 'prostitute_outfit_at_home'>>-->
			<<if getvar("$pornMagazine") > 0>>
				You have hidden your porn magazines under the mattress of your bed.

			<</if>>
			<!-- !!Masturbation, allowed after sister threesome (when sis_watch is used for a message) or sister not here.-->
			<<set $sis_watch = 0>>
			<<if getvar("$locat['Anya_inroom']") == 0 or getvar("$sisboytrio") > 0>>
				<<if getvar("$pornMagazine") > 0>>
					<<gs 'events' 'read_porn'>>

				<</if>>
				<<if getvar("$rexCarCount") >= 9 and $time.hour < 3 and $rexSmsDay != $time.daystart and getvar("$smsForRex") < 13>>
					<<act 'Send Rex a text message'>>
						<<gt 'rex_events' 'sms'>>
					<</act>>
				<</if>>
				<<if $pc.horny >= 50>>
					<<act 'Masturbate'>>
						<<gt 'selfplay' 'start'>>
					<</act>>
				<</if>>
				<<if getvar("$vcard") > 0>>
					<<actCLA 'View your vintage porn cards'>><<set $card_deck = 0>> <<gt 'card'>><</actCLA>>
				<</if>>
				<<if getvar("$card") > 0>>
					<<actCLA 'View your new porn cards'>><<set $card_deck = 1>> <<gt 'card'>><</actCLA>>
				<</if>>
			<</if>>

			<<if getvar("$tovarL") > 0>>
				You currently have $tovarL trinkets to sell at the station. The maximum you can carry is 30.

			<</if>>
			<<if getvar("$locat['Anya_inroom']") == 0>>
				<<palelady>>
			<</if>>
			<<gs 'exercise' 'start'>>
			<<if getvar("$sewing_kit") == 1>>
				Your <<link "sewing kit">><<gt 'sewing' 'start'>><</link>> is stored neatly under your bed.
				<<if getvar("$tkan") <= 0>>
					You do not have any fabric.
				<<else>>
					<<if $pc.skillLevel("sewing") < 40>>
						You have $tkan pieces of sewing fabric left.
					<<elseif $pc.skillLevel("sewing") < 80>>
						You have enough fabric for $tkan lessons.
					<<else>>
						<<if getvar("$newgobelen") == 0>>
							<<actCLA 'Start a new tapestry'>>
								<<set $menu_off = 1>>
								<<set $tkan -= 1>>
								<<set $newgobelen = 1>>
								<<set $time.minutes += 15>>
								You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.
								<<act 'Set the tapestry aside'>>
									<<gt 'bedrPar' 'start'>>
								<</act>>
							<</actCLA>>
						<</if>>
					<</if>>
				<</if>>
				<<if getvar("$newgobelen") >= 1>>
					Your tapestry is <<=($newgobelen/10)>> percent finished.
					<<actCLA 'Work on the tapestry'>>
						<<set $menu_off = 1>>
						<<set $time.minutes += 60>>
						<<run $pc.skillExperienceGain('sewing',rand($pc.intelligence/10, $pc.intelligence/5))>>
						<<set $gobramax = ($pc.skillLevel("sewing") - 70) * 6>>
						<<set $gobramin = ($pc.skillLevel("sewing") - 70) * 2>>
						<<set $newgobelen += rand(gobramin,gobramax)>>
						<<if getvar("$newgobelen") < 1000>>
							You spend an hour working on your tapestry, which is now <<=(newgobelen/10)>> percent finished.

						<</if>>
						<<if getvar("$newgobelen") >= 1000>>
							<<set $newgobelen = 0>>
							<<set $gobelen += 1>>
							Your work on the tapestry is done.
						<</if>>
						<<act 'Set the tapestry aside'>>
							<<gt 'bedrPar' 'start'>>
						<</act>>
					<</actCLA>>
				<</if>>
				<<if getvar("$gobelen") > 0>>
					You have $gobelen completed tapestries.

				<</if>>
			<</if>>
			<!-- !! Computer, music and internet use.-->
			<<gs 'internet_mobile' 'get_access'>>
			<<if getvar("$locat['Anya_inroom']") == 1>>
				<<gs 'music_actions' 'not_alone'>>
				<<if getvar("$sisboytrio") == 0>>
					<<setinit $access['noporn'] = 1>>

				<</if>>
				<<setinit $access['nocamshow'] = 1>>
				<<setinit $access['noporn'] = 'You shouldn`t watch porn with your sister in the room, she would notice for sure!'>>
				<<setinit $access['nocamshow'] = 'You can`t do any webcam activities with your sister in the room!'>>
			<<else>>
				<<gs 'music_actions' 'clear_restrictions'>>
			<</if>>
			<<if getvar("$locat['Anya_inroom']") == 0 and getvar("$breastpump") == 1 and getvar("$bp_unbox") <= 0>>
				<<link "Unbox">><<gt 'lact_bp' 'bp_unbox_event'>><</link>> your breast pump
			<<elseif getvar("$kid") >= 1 and getvar("$breastpump") == 1 and getvar("$bp_unbox") <= 0>>
				<<link "Unbox">><<gt 'lact_bp' 'bp_unbox_event'>><</link>> your breast pump
			<<elseif getvar("$locat['Anya_inroom']") == 0 and getvar("$breastpump") == 1 and getvar("$bp_unbox") == 1 and $pc.pcs_inhib > 40>>
				<<link "Try out">><<gt 'lact_bp' 'bp_unbox_event'>><</link>> your breast pump
			<<elseif getvar("$kid") >= 1 and getvar("$breastpump") == 1 and getvar("$bp_unbox") == 1 and $pc.pcs_inhib > 30>>
				<<link "Try out">><<gt 'lact_bp' 'bp_unbox_event'>><</link>> your breast pump
			<</if>>
			<<gs 'lact_bp' 'massage'>>
		<</if>>
		<<if $pc.isSchoolStudent>>
			<<gs 'subkid'>>

		<</if>>
		<!-- !! NOTE: This has to go here, otherwise gs 'subkid' removes the icon.-->
		<<if $pc.isSchoolStudent>>
			<<gs 'music_actions' 'music_icon'>>

		<</if>>*/



/*:: bedrPar_events[events]

	<<if getvar("$locat['Mother']") == 26 and _fromoutside and $pc.isSchoolStudent>>
		<<image "characters/pavlovsk/resident/mom/prost1.jpg">>
		<<if $inventory.get("condom") > 0 and rand(1,3) == 1>>
			<<gs 'mother' 'condom_find'>>
		<<elseif getvar("$dildo") > 0 and getvar("$motherQW['seen_dildos']") != 1 and rand(1,3) == 1>>
			<<gs 'mother' 'dildo_find'>>
		<<elseif getvar("$analplug") == 1 and getvar("$analplugin") == 0 and getvar("$motherQW['seen_plug']") != 1 and rand(1,3) == 1>>
			<<gs 'mother' 'plug_find'>>
		<<else>>
			<p>You walk into your bedroom and find <<npc 'A29' undefined 'your mother'>><</npc>> sweeping and dusting the room, folding clothes and putting them away and making the beds.</p>
			<<actCLA 'Access wardrobe'>>
				<<set $loc = 'korrPar'>>
				<<set $loc_arg = ''>>
				<<gt 'wardrobe' 'start'>>
			<</actCLA>>
			<<act 'Leave'>>
				<<gt 'korrPar'>>
			<</act>>
		<</if>>
	<<elseif $q.questIsActive('Parrot')>>
		<<if getvar("$ParrotQW['Level']") == 2 and $pc.isSchoolStudent>>
			<<set $menu_off = 1>>
			<p>As soon as you enter the room you rush over to $ParrotQW['Name']'s cage and pour the contents of the vial into his water bowl.</p>
			You hope this will work and keep him from spilling you and your sister''s bedroom secrets.
			<<setinit $ParrotQW['Level'] = 3>>
			<<setinit $ParrotQW['Day'] = 3>>
			<<actCLA 'Continue'>>
				<<gt $location>>
			<</actCLA>>
		<<elseif $ParrotQW['SisterReleaseParrotDay'] + 3 < $time.daystart and getvar("$ParrotQW['Level']") == 1 and $pc.isSchoolStudent>>
			<<set $menu_off = 1>>
			<p>When you enter the room, you notice $ParrotQW['Name']'s cage is open and he is gone.</p>
			<<=$npc('A33').firstname>> must have released him since you weren''t able to find a solution in time.
			<<setinit $ParrotQW['Owned2'] = 0>>
			<<setinit $ParrotQW['Level'] = 0>>
			<<setinit $ParrotQW['Day'] = 2>>
			<<setinit $ParrotQW['Failed'] = 0>>
			<<actCLA 'Continue'>>
				<<gt $location>>
			<</actCLA>>
		<<elseif getvar("$locat['Anya_inroom']") == 1 and getvar("$ParrotQW['Owned2']") == 1 and getvar("$ParrotQW['SisKeepParrot']") == 0 and $pc.isSchoolStudent>>
			<<set $menu_off = 1>>
			<<image "characters/pavlovsk/resident/anya/sister2.jpg">>
			<p>"What is that?" <<=$npc('A33').firstname>> asks while pointing at $ParrotQW['Name2'] in his cage.</p>
			<p>"I went to the mall and bought this bird. Isn't he the cutest?"</p>
			<<if $npc('A33').rel > 50>>
				"Not really, but I can see this is something you really want. As long as he doesn''t make too much noise, I don't really care."
				<<setinit $ParrotQW['SisKeepParrot'] = 1>>
			<</if>>
			<<if $npc('A33').rel <= 50>>
				<p>"No he isn't cute, and I suggest you get it out of here. I'm not sharing my room with a bird!"</p>
				You are somewhat upset, but you understand. You should have asked her before buying it.
				You go to the window, open it and release the bird.
				<<setinit $ParrotQW['Owned2'] = 0>>
			<</if>>
			<<act 'Leave'>>
				<<gt 'korrPar'>>
			<</act>>
		<</if>>
		<<if getvar("$ParrotQW['Owned2']") == 1 and $pc.isSchoolStudent>>
			<p><<link $ParrotQW['Name2']>><<gt 'popu' 'start2'>><</link>> is sitting in his cage.</p>
			<<if $time.daystart - getvar("$ParrotQW['BuyDate']") <= 10>>
				<p>$ParrotQW['Name2'] starts squawking at you when you enter the room.</p>
			<<elseif $time.daystart - getvar("$ParrotQW['BuyDate']") <= 20>>
				<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. It sounds almost like he is saying "<b>Hello $pc.name_nick!</b>"</p>
			<<elseif $time.daystart - getvar("$ParrotQW['BuyDate']") <= 30>>
				<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is clearly saying "<b>Hello $pc.name_nick!</b>"</p>
			<<elseif $time.daystart - getvar("$ParrotQW['BuyDate']") <= 35>>
				<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>$pc.name_nick very pretty!</b>"</p>
			<<elseif $time.daystart - getvar("$ParrotQW['BuyDate']") <= 40>>
				<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>Great body, $pc.name_nick!</b>"</p>
			<<elseif $time.daystart - getvar("$ParrotQW['BuyDate']") <= 50>>
				<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>You're the best, <<=$npc('A33').firstname>>!</b>"</p>
			<<elseif $time.daystart - getvar("$ParrotQW['BuyDate']") <= 55>>
				<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>Yeah, that's it <<=$npc('A33').firstname>>! Swallow it all!</b>"</p>
			<<else>>
				<<if getvar("$ParrotQW['Level']") < 3>>
					<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>Your pussy tastes great, <<=$npc('A33').firstname>>!</b>"</p>
				<<else>>
					<<set $parfixrand = rand(0,9)>>
					<<if getvar("$parfixrand") == 0>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>What did you say to me?</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 1>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>3.1415926535897932384...</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 2>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>Come closer, my friend.</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 3>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>Here kitty, kitty!</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 4>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>I just met you, and this is crazy!</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 5>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>Bow before me!</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 6>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>He’s just a friend, honest!</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 7>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>What did you do to my socks?</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 8>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>That's what she said!</b>"</p>

					<</if>>
					<<if getvar("$parfixrand") == 9>>
						<p>When $ParrotQW['Name2'] sees you, he starts 'speaking'. He is saying "<b>Help! They've turned me into a parrot!</b>"</p>

					<</if>>
					<<set $parfixrand to null>>
				<</if>>
			<</if>>
		<</if>>
	<<elseif getvar("$pcs_magik") >= 6 and getvar("$spellbefshild") == 1 and getvar("$tobiQW") == 0 and getvar("$locat['Anya_inroom']") == 0 and $pc.isSchoolStudent>>
		<<gt 'tobiQW' 'start'>>
	<<elseif getvar("$locat['Anya']") == 11 and $pc.isSchoolStudent>>
		<<gt 'sisterQW' 'sisboyQW_expel'>>
	<<elseif getvar("$locat['Anya_Gad']") == 0>>
		<<if $sisboyparty_day + 1 == $time.daystart and getvar("$sisboyparty") == -1 and $time.hour == 22>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>
			<<image 'locations/pavlovsk/resident/rekshome/party/sisboyqwparty_6_#.jpg' 1 7>>
			<<=$npc('A33').firstname>> bursts into the room, drunk and disheveled. You notice that her hair and clothes are covered in cum, but she doesn''t seem to care as she falls onto her bed and instantly falls asleep.
			<<set $sisboyparty = 1>>
			<<actCLA 'Move away'>>
				<<gt $loc>>
			<</actCLA>>
		<</if>>
	<</if>>
 */
