glife/locations/pav_church.qsrc

# pav_church
!2021/05/04
if $ARGS[0] = 'start':
	CLOSE ALL
	if sound = 0:
		if week = 7:
			if hour >= 8 and hour <= 12: PLAY 'sound/street2.mp3',30 & PLAY 'sound/church/ivironKampan01.wav',30
			if hour >= 13 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
		elseif week = 6:
			if hour >= 19 and hour <= 23: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/church/ivironKampan01.wav',30
			if hour >= 13 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
		else
			if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street_leto.mp3',30
			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
		end
	end
	$loc = 'pav_church'
	$loc_arg = 'start'
	$menu_loc = 'pav_church'
	$menu_arg = 'start'
	$location_type = 'public_indoors'
	menu_off = 0
	killvar '$confstring'
	gs 'themes', 'outdoors'
	gs 'stat'
	'<center><b><font color="maroon">Church of Saint Nikolas</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/st-nikolas.jpg"></center>'
	'The church of Saint Nikolas is the only church in Pavlovsk and the tallest building in town. It''s very old, but is well maintained by the worshipers of the parish.'
	''
	'You can attend confession every weekday between 07:00 and 09:00 or 16:00 and 18:00, and on the weekend between 16:00 and 18:00.'
	'Vigil is held on Saturdays at 19:00.'
	'The Divine Liturgy is on Sundays between 09:00 and 12:00.'

	act 'Go to the residential area':minut += 5 & gt 'pav_residential'
	act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'

	if week = 6 and hour >=19 and hour <= 22 and churchday ! daystart:
		act 'Attend vigil': gt 'pav_church', 'vigil'
	elseif week = 7 and hour >= 9 and hour < 12 and churchday ! daystart:
		act 'Attend Divine Liturgy': gt 'pav_church' , 'liturgy'
	else
		if Churchbad = 3 and Churchbadtime > daystart:
			cla & nl
			'The priest is probably still mad at you. You decide to avoid him for now.'
			act 'Go to the residential area':minut += 5 & gt 'pav_residential'
			act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
		elseif Churchbad = 3 and Churchbadtime <= daystart:
			Churchbad = 2
			*nl
			'"You figure that the priest has probably calmed down enough for you to try talking to him."'
			act 'Enter the church': gt 'pav_church' , 'Narthex'
		else
			act 'Enter the church': gt 'pav_church' , 'Narthex'
		end
	end
	gs 'camera', 'check_location'
end

if $ARGS[0] = 'Mom':
	cla & *clr
	mom_church = daystart
	gs'stat'
	'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
	if VKChurchNo = 4 or VKChurchNo = 5:
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost10.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost9.jpg"></center>'
	end
	if motherKnowWhore = 0 and VKChurchIntro = 0:
		'You suddenly hear someone calling you out. "<<$pcs_firstname>>? I never expected you to come here without me dragging you." You turn to see your mother sitting in the middle row, who motions for you to sit next to her.'
	elseif motherKnowWhore = 0 and VKChurchNo < 4:
		'You see your mother sitting in the middle row, who turns and notices you. "<<$pcs_firstname>>, you''re here! Come and take a seat." She motions for you to sit next to her.'
	elseif motherKnowWhore = 0 and VKChurchNo = 4:
		'You see your mother sitting in the middle row. She quickly notices you, gets up and walks over to you. "<<$pcs_firstname>>, we need to talk." she says sternly as she drags you out of the church.'
	elseif motherKnowWhore > 0 or VKChurchNo = 5:
		'You see your mother sitting in the middle row. She peeks over in your direction before turning away from you, as if you''re not there.'
	else
		'You see your mother sitting in the middle row. She doesn''t seem to notice you.'
	end

	if motherKnowWhore = 0 and VKChurchNo = 4:
		act 'Make excuses and leave':gt 'pav_church', 'Excuses'
	elseif motherKnowWhore = 0:
		act 'Sit down':
			cla & *clr
			VKChurchIntro = 1
			gs'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
			if VKChurch = 0:
				'You try to make yourself comfortable on the hard wooden pew while waiting for the sermon to start. Your mother turns to you and says "It''s been a long time since you''ve been here. I should show you how to follow the sermon." You give your mother a nod while everyone takes a seat around you. The room slowly silences as the sermon begins.'
			elseif VKChurch = 1:
				'You try to make yourself comfortable on the hard wooden pew while waiting for the sermon to start. Your mother turns to you and says "It''s good to see you back here. There is so much of our soul then can only be revealed through prayer." You give your mother a puzzled look.  "You might not understand what I mean now but you will" Everyone in the church begin taking their seats as the room slowly silences. The sermon is about to begin.'
			elseif VKChurch = 2:
				'You do your best to make yourself comfortable while the priests prepare for the sermon to start. Your mother places her hand on your shoulder and says "Since you have been such a good Christian, I will take you out to eat after this and we can catch up on what''s new with you." You give your mother a smile and nod. "I would like that." Everyone else takes a seat around you and the room slowly silences as the sermon begins.'
			elseif VKChurch = 3:
				'You gaze around the room and see the now familiar faces of your church. Some of the them notice you and give you a warm smile while others are preoccupied looking through their bibles. Your mother rubs your shoulder. "You''ve become a regular here. We''re all children of the lord, so that''s why we all take time out of our day to spend it with each other in this holy place." You give your mother a nod as you contemplate her words while taking another look around. Many are preparing their bibles as the sermon begins.'
			elseif VKChurch = 4:
				'You try to make yourself comfortable on the hard wooden pew while waiting for the sermon to start. Your mother turns to you and says "It''s been a long time since you''ve been here, so I should show you how to follow the sermon." You give your mother a nod while everyone takes a seat around you. The room slowly silences as the sermon is about to begin.'
			else
				'You casually lean back in your seat, looking forward to the sermon. You start reading the bible your mother gave you, studying the psalms while occasionally looking and chatting with the other churchgoers. Your mother joins in and you discuss the word of god until the priest finally enters the room. You close your book and place it on your lap as the sermon begins.'
			end

			act 'Begin sermon':gt 'pav_church', 'Sermon'
		end
		act 'Make excuses and leave':gt 'pav_church', 'Excuses'
	else
		act 'Leave':gt 'pav_church', 'start'
	end
end

if $ARGS[0] = 'Sermon':
	cla & *clr
	minut += 20
	VK = rand(1,5)
	gs 'fame', 'church_reduction', 'pav', -2
	gs'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,5) +'.jpg"></center>'
	if VK >= 0:
		'The candles dim as the sermon begins. You and your mother listen intently to the priest as he preaches the word of god. You study his teachings, feeling enlightened, until you reach the end of the sermon. You turn to your mother and she gives you an approving smile before you both stand up.'
	 !! Unless I''m mistaken, the intention here seems to be to have different dialogue based on how many times Sveta has attended church, but it''s unfinished and I don''t know what to do with it. - Veng.
	!!elseif VKChurch = 0 or VKChurch = 4 and VK = 1:
		!!'The candles dim as the sermon begins, you and your mother'
	!!elseif VKChurch = 1 or VKChurch = 4 and VK = 2:
		!!'The candles dim as the sermon begins, you and your mother'
	!!elseif VKChurch = 2 or VKChurch = 4 and VK = 3:
		!!'The candles dim as the sermon begins, you and your mother'
	!!elseif VKChurch = 3 or VKChurch = 4 and VK = 4:
		!!'The candles dim as the sermon begins, you and your mother'
	!!else
		!!'The candles dim as the sermon begins, you and your mother'
	end

	act 'Stand up':gt 'pav_church', 'Narthex'
end

if $ARGS[0] = 'Excuses':
	cla & *clr
	VKChurchEvents = 0
	mom_church = daystart
	gs'stat'
	if VKChurchNo = 0:
		VKChurchNo += 1
		'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
		'"I''d love to stay but I... need to get back to the clinic. I''m doing volunteer work there." you say and your mother approvingly nods her head. "You''re volunteering at the clinic? I''m very proud of you. Go on, I''ll see you back at home." You wave to your mother as you walk away.'
		act 'Go to the residential area':minut += 5 & gt 'pav_residential'
		act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
	elseif VKChurchNo = 1:
		VKChurchNo += 1
		'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
		'"I need to get back to the clinic. I just came to pick someone up." Your mother  nods understandingly, but looks a little disappointed. "Okay... I was hoping that you could stay for a bit, but I won''t stop you from doing god''s work." You return the nod before walking away.'
		act 'Go to the residential area':minut += 5 & gt 'pav_residential'
		act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
	elseif VKChurchNo = 2:
		VKChurchNo += 1
		'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
		'"I would stay bu..." Your mother finishes your sentence. "You need to get back to the clinic, I understand." She then waves at you while looking away.'
		act 'Go to the residential area':minut += 5 & gt 'pav_residential'
		act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
	elseif VKChurchNo = 3:
		VKChurchNo += 1
		'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
		'"Can you not stay for at least a little bit? God blesses his devout children." Your mother pouts and you lower your posture before replying. "I know he does but, I really need to go. I''ll see you at home." Your mother sighs as she turns away and says "Yeah... I''ll see you at home."'
		act 'Go to the residential area':minut += 5 & gt 'pav_residential'
		act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
	elseif VKChurchNo = 4:
		VKChurchNo += 1
		'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
		'Your mother drags you out the door to the side of the church before angrily glaring at you. "I went to the clinic the other day to ask if you could have time off and the receptionist told me that you haven''t been working there at all. YOU''VE BEEN LYING TO ME IN THE LORD''S HOUSE OF ALL PLACES!!! If you don''t want to stay with me or pay respect to our creator then at least be honest about it. Telling lies is what sinners do when they''re too afraid to face their problems."'
		*nl
		'You lower your head as your mother continues chewing you out. "I''m going to go back in there and doing my part as a child of Christ. You can go back to whatever you were planning on doing. I won''t force you to stay." She then shakes her head at you before walking back into the church. Tears roll down your face as you take a few seconds to collect yourself before walking away, feeling guilty and ashamed.'
		act 'Go to the residential area':minut += 5 & gt 'pav_residential'
		act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
	elseif VKChurchNo = 5:
		VKChurchNo += 1
		'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
		'You approach your mother and without turning to face you, she says "What are you doing here?" You can''t look her in the eyes as you reply and just look at the floor. "I''m sorry for lying to you <<$npc_nickname[''A29'']>>. I know I screwed up and I''m here to ask for your forgiveness."' 
		'Your mother''s eyebrow raises in disbelief. "Do you really mean that?" You slowly nod before continuing. "Yes, I would like to sit down and join the sermon."'
		*nl
		'"Of course you can. Sit down and let''s listen to the word of god together." She taps the seat next to her, beckoning you to sit down.'
		if VKChurchIntro = 0: VKChurchIntro = 1
		act 'Sit down':gt 'pav_church', 'Sermon'
	else
		'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost11.jpg"></center>'
		'You turn to walk out of the church and see your mother sigh as she turns back toward the front.'
		act 'Go to the residential area':minut += 5 & gt 'pav_residential'
		act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
	end
end

if $ARGS[0] = 'vigil':
	CLOSE ALL
	*clr & cla
	menu_off = 1
	churchday = daystart
	pcs_mood += 10
	temprand = rand(0,5)
	if rand(0,1) = 1:
		pcs_horny += temprand
	else
		pcs_horny -= temprand
	end
	church_moral += 1
	Churchbad -= 1
	minut += 30
	gs 'themes', 'indoors'
	PLAY 'sound/church/Blessing.mp3',30
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,5) +'.jpg"></center>'
	'You attend the vigil and reflect on the recent events in your life. The harmonies as the hymns and psalms are sung sweep aside some of the worries in your heart, although you know they will return once you leave this holy place, you still enjoy the rest. The sweet scent of incense tickles your nose and reminds you of the scent of' + iif(rex_love = 1, 'Rex', 'your step-father') + '''s cologne.'
	if fame['pav_slut'] >= 250:
		'Most of the parishioners seem upset that you are here. You notice that parents are making sure their children don''t go near you and even a few of the acolytes glare at you angrily.'
	elseif fame['pav_slut'] >= 200:
		'A number of poeple give you dirty looks and intentionally turn away from you whenever you make eye contact.'
	elseif fame['pav_slut'] >= 150:
		'You notice some of the old women looking at you with disapproval and one or two of the old men looking at you with interest.'
	end
	gs 'stat'

	act 'Return to Narthex': gt 'pav_church', 'Narthex'
	act 'Stay for the Rite of Mutual Forgiveness':
		*clr & cla
		pcs_mood += 10
		pcs_horny -= 20
		church_moral += 1
		Churchbad -= 1
		minut += 10
		gs 'stat'
		gs 'fame', 'church_reduction', 'pav', -2

		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(9,10) +'.jpg"></center>'
		'You decide to stay for the Rite of Mutual Forgiveness and feel much better afterwards.'
		if $args[1] = 'mom':
			act 'Return to Narthex': gt 'pav_church', 'Narthex_mom'
		else
			act 'Return to Narthex': gt 'pav_church', 'Narthex'
		end
	end
end

if $ARGS[0] = 'liturgy':
	*clr & cla
	CLOSE ALL
	churchday = daystart
	menu_off = 1
	minut += 60
	gs 'exp_gain', 'vokal', rand(0,3)
    gs 'stat'
	Churchbad -= 1
	gs 'themes', 'indoors'
	PLAY 'sound/church/t' + rand(1,19) + '.mp3',30
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,8) +'.jpg"></center>'
	if fame['pav_slut'] < 150 and Conf_Kirill <= 1:
		pcs_mood += 20
		church_moral += 2
		pcs_sleep += 5
		'You join the congregation for the Divine Liturgy. You see mostly older people around, but there are some people around your age present as well. You participate in the singing, but that''s about it. Your presence seems to go largely unnoticed and you have the chance to rest. You feel a lot better.'
		act 'Leave the church': gt 'pav_church' , 'service_end'
	elseif fame['pav_slut'] < 150 and Conf_Kirill >= 2:
		Kirill += 1
		pcs_mood += 20
		church_moral += 2
		pcs_sleep += 5
		'You participate fully in the Divine Liturgy, listening to the preaching and singing along. When going to communion and receiving the ceremonial bread, you lock eyes with Father Kirill. He seems happy to see you participating in the service.'
		act 'Leave the church': gt 'pav_church' , 'service_end'
	else
		gs 'fame', 'church_reduction', 'pav', -2
		'Your presence at the Divine Liturgy does not go unnoticed. People start whispering and pointing fingers at you.'
		*nl
		'<i>"... little whore must be..."</i>'
		'<i>"Who does she think she''s fooling..."</i>'
		'<i>"... no doubt here to corrupt..."</i>'
		'<i>"... have no shame?"</i>'
		'<i>"... defiling this place with..."</i>'
		if rand(1,3) = 1:
			Kirill += 1
			pcs_mood +=20
			church_moral += 2
			*nl
			'Father Kirill seems to be confused about where the fuss is coming from, but then notices you. You see that even he has heard about your little adventures around town, but at the same time his face doesn’t seem to condemn you. It looks a bit like pity.'
			*nl
			'"The church is place for everyone, my beloved children. Even if we sometimes forget, we must try to condemn no one. Think about John 8:10: Jesus once met a woman who had slept with a man who betrayed her trust. She was dragged away by his friends and thrown naked before Jesus. The people had ripped her clothes and humiliated her. He spoke to her: ''Woman'', he said. Not ''slut'', or ''whore'', but woman. He threw His coat over her near-naked body and gave her the sense of dignity she had been promised by the man who betrayed her trust. Jesus did not condemn her, so let us try to not condemn others."'
			*nl
			'The people in the congregation seem a bit uncomfortable hearing these words. Some look towards you and seem to have trouble looking you in the eye, and those that do look away guiltily. You feel better and it seems the townsfolk might see you in a slightly better light.'
			act 'Leave the church': gt 'pav_church' , 'service_end'
		else
			act'Actively participate':
				pcs_mood += 20
				cla & *nl
				'You ignore buzz of slurs and insults and focus entirely on the service. Sometimes you catch women glaring at you out of the corner of your eye while you sing hymns. Other times, you notice men glancing at you curiously and shifting uncomfortably in their seats. But you do nothing except act exactly as you''re supposed to, listening intently and actively participating in every part of the service. By the end, your heart is light and your conscience unburdened, and you exit the hall feeling better than you did when you came in.'
				act 'Leave the church': gt 'pav_church' , 'service_end'
			end
			
			act'Feel ashamed':
				pcs_mood -= 20
				cla & *nl
				'The buzz of slurs and insults fills you with deep pain and you sink further into your seat. As the service begins, the whispers die down but you can still feel their silent judgment. You participate as best you can, but by the end, you feel worse than when you first came.'
				act 'Leave the church': gt 'pav_church' , 'service_end'
			end
			
			act'Lean into it':
				gs 'fame', 'pav', 'sex', rand(3,5)
				pcs_mood += 20
				cla & *nl
				'As you listen to the buzz of slurs, barbs, and insults, a haughty smirk comes over your face. You turn and make direct eye contact with an elderly woman, one of your detractors. With a lick of your lips and let your smirk expand into a lascivious grin. She gasps in shock and you turn towards a man sitting with a woman who appears to be his wife and wink suggestively at him. The woman glares daggers at you and the man shifts in his seat uncomfortably.'
				*nl
				if $braworntype = 'none' and PCloThinness >= 4:
					if pcs_hairlng <= 260 or hscrunchw = 1 or hbraids > 0:
						!! if hair would not cover breasts
						'As the service begins, the whispers die down but you can still feel their silent judgment. In response, you sit up straight and push out your chest, participating without hesitation, singing the hymns and repeating the scripture with perfect obedience. And every time someone glances your way it turns into a hushed gasp or a shocked stare when they see your nipples ' + iif(PCloThinness < 6,'making obvious bumps through your ','clearly showing through your transparent ') + iif(PCloDress = 1, 'dress.', 'top.')
					else
						'As the service begins, the whispers die down but you can still feel their silent judgment. In response, you sit up straight, push your hair back over your shoulders, and push out your chest, participating without hesitation, singing the hymns and repeating the scripture with perfect obedience. And every time someone glances your way it turns into a hushed gasp or a shocked stare when they see your nipples ' + iif(PCloThinness < 6,'making obvious bumps through your ','clearly showing through your transparent ') + iif(PCloDress = 1, 'dress.', 'top.')
					end
				else
					'As the service begins, the whispers die down but you can still feel their silent judgment. You ignore the stares and participate without care, singing the hymns and repeating the scripture with perfect obedience. And every time you catch someone glancing at you, you turn straight towards them and give them a sly smile that makes them turn back in disgust.'
				end
				*nl
				'You think people are going to go home talking more about you than about the service...'
				act 'Leave the church': gt 'pav_church' , 'service_end'
			end
		end
	end	
end

if $ARGS[0] = 'service_end':
	cla & *clr
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
	if fame['pav_prostitute'] > rand(1,1000):
		$temp['approach_type'] = 'prostitute'
		gs 'pav_church' , 'sex_approach1'
	elseif fame['pav_slut'] > rand(1,1000):
		$temp['approach_type'] = 'slut'
		gs 'pav_church' , 'sex_approach1'
	else
		gt 'pav_church' , 'start'
	end
end

if $ARGS[0] = 'sex_approach_run':
	act'Hurry away':
		cla & *nl
		if fame['pav_prostitute'] >= 150 or fame['pav_slut'] >= 150:
			'Keenly aware of other people''s eyes on you and your reputation, you don''t answer, and hurry away from the man instead.'
		else
			'You look around, keenly aware of all the people who might see you with this man. Instead of answering, you hurry away from him, lest rumors about you spread.'
		end
		act'Leave':gt 'pav_church' , 'start'
	end
end

if $ARGS[0] = 'sex_approach1':
	gs 'npcgeneratec', 0, 'stranger', rand(18,45), 1, 1
	'The service ends and you stand up to leave. As you near the entrance, a man approaches, gazing lecherously at you.'
	'"You''re <<$pcs_nickname>>, aren''t you?"'
	gs 'pav_church' , 'sex_approach_run'
	act'Answer (shy)':
		cla & *nl
		gs 'boyStat', $npclastgenerated
		$temp['prost_response'] = 'shy'
		'"Yes, that''s me," you mumble meekly.'
		gs 'pav_church' , 'sex_offer'
	end
	
	act'Answer (normal)':
		cla & *nl
		gs 'boyStat', $npclastgenerated
		$temp['prost_response'] = 'normal'
		'"Yes, that''s me," you answer naturally, meeting his eyes like any other conversation.'
		gs 'pav_church' , 'sex_offer'
	end
	
	act'Answer (slutty)':
		cla & *nl
		gs 'boyStat', $npclastgenerated
		$temp['prost_response'] = 'slutty'
		'"Sure am," you answer, stepping closer and returning his gaze with a lascivious smirk of your own.'
		gs 'pav_church' , 'sex_offer'
	end
end

if $ARGS[0] = 'sex_offer':
	if $temp['approach_type'] = 'prostitute':
		if $npc_fav_pos[$boy] = 'blowjob':
			$temp['offer_type'] = 'blowjob'
			temp['prost_money'] = 400
			'"I''ll give you 400<b>₽</b> for a blowjob," he whispers.'
		elseif $npc_fav_pos[$boy] = 'miss' or $npc_fav_pos[$boy] = 'doggy' or $npc_fav_pos[$boy] = 'cowgirl':
			$temp['offer_type'] = 'fuck'
			temp['prost_money'] = 1000
			'"I''ll give you 1000<b>₽</b> to fuck your pussy," he whispers.'
		else
			$temp['offer_type'] = 'handjob'
			temp['prost_money'] = 200
			'"I''ll give you 200<b>₽</b> for a handjob," he whispers.'
		end
	elseif $temp['approach_type'] = 'slut':
		
		if $npc_fav_pos[$boy] = 'blowjob':
			$temp['offer_type'] = 'blowjob'
			'"How about you and I find somewhere private so you can suck my cock?" he whispers.'
		elseif $npc_fav_pos[$boy] = 'miss' or $npc_fav_pos[$boy] = 'doggy' or $npc_fav_pos[$boy] = 'cowgirl':
			$temp['offer_type'] = 'fuck'
			'"How about you and I find somewhere private so I can fuck you silly?" he whispers.'
		else
			$temp['offer_type'] = 'handjob'
			'"How about you and I find somewhere private so you can jerk me off?" he whispers.'
		end
	end
	gs 'pav_church' , 'sex_approach_run'
	
	act'Accept':
		gs 'fame', 'pav', 'sex', rand(1,3)
		gs 'fame', 'pav', 'prostitute', rand(1,3)
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
		if $temp['prost_response'] = 'shy':
			'You nod, gulping as you do, and let the man pull you towards the church restrooms.'
		elseif $temp['prost_response'] = 'normal':
			'You nod and begin casually strolling towards the church restrooms with the man.'
		elseif $temp['prost_response'] = 'slutty':
			'You grin eagerly and nod, grabbing the man''s hand and pulling him into the church restrooms with you.'
		end
		if rand(1,2) = 1:
			gs 'fame', 'pav', 'sex', rand(2,4)
			gs 'fame', 'pav', 'prostitute', rand(2,4)
			*nl
			'Other attenders watch you go with him and you can hear them buzz in hushed tones before the door closes behind you.'
		end
		act'Continue':gs 'pav_church', 'restroom_<<$temp[''offer_type'']>>'
	end
end

if $ARGS[0] = 'restroom_handjob':
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/public/restroom/hj_cum1.mp4"></video></center>'
	gs 'arousal', 'hj', rand(5,10), 'prostitution', 'no_orgasm_msg'
	gs 'cum_call', 'hands', 'man at church'
	gs 'stat'
	'Inside the restroom, it only takes you a few minutes of working his cock before the man orgasms, grunting as he spatters his cum all over the floor. Once finished, he pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with cum on your hand and <<temp[''prost_money'']>><b>₽</b> in it.', 'alone with cum all over your fingers.')
	if $temp['approach_type'] = 'prostitute': money += temp['prost_money']
	act'Finish':gs 'pav_church', 'restroom_sex_end'
end

if $ARGS[0] = 'restroom_blowjob':
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/public/restroom/bj1.mp4"></video></center>'
	gs 'arousal', 'bj', rand(5,10), 'prostitution', 'no_orgasm_msg'
	gs 'stat'
	if rand(1,3) = 1:
		'Inside the restroom, you kneel down and unzip the man''s pants, tugging them down to reveal his already hard cock and immediately put it between your lips. It only takes a few minutes of working his shaft with your mouth before he grunts, "I''m gonna come!"'
		gs 'pav_church', 'restroom_cum_hand'
		gs 'pav_church', 'restroom_cum_mouth'
		gs 'pav_church', 'restroom_cum_face'
	elseif rand(1,2) = 1:
		'Inside the restroom, you kneel down and unzip the man''s pants, tugging them down to reveal his already hard cock and immediately put it between your lips. It only takes a few minutes of working his shaft with your mouth before he grunts.'
		if $npc_cum_pref[$boy] = 'facial':
			'"I''m gonna come on your face!"'
			gs 'pav_church', 'restroom_cum_face'
		elseif $npc_cum_pref[$boy] = 'mouth':
			'"I''m gonna come! Swallow it!"'
			gs 'pav_church', 'restroom_cum_mouth'
		else
			'"I''m gonna come!" he says and pushes you gently to get off his cock.'
			gs 'pav_church', 'restroom_cum_hand'
		end
	else
		'Inside the restroom, you kneel down and unzip the man''s pants, tugging them down to reveal his already hard cock and immediately put it between your lips. It only takes a few minutes of working his shaft before he grunts and without further warning a thick salty liquid suddenly explodes in your mouth.'
		gs 'pav_church', 'restroom_cum_mouth'
	end
end

if $ARGS[0] = 'restroom_fuck':
	temp['orgasm'] = orgasm
	cla & *clr
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/supplycloset.jpg"></center>'
	if npc_condom_conscious[$boy] > 0:
		'Inside the restroom, the man immediately pulls out a condom before pulling down his pants and wraps his cock in it while you ' + iif(CloSkirtShortness > 0, 'turn up your skirt ', 'drop your own pants ') + iif($pantyworntype ! 'none', 'and pull down your panties.', 'to reveal your naked pussy.')
		act'Fuck the man':gs 'pav_church', 'restroom_fuck_condom'
	else
		'Inside the restroom, the man pulls down his pants to reveal an already erect cock.'
		act'Fuck him bareback':gs 'pav_church', 'restroom_fuck_bareback'
		
		act'Ask him to put on a condom':
			cla & *nl
			'"Got a condom?" you ask.'
			if npc_no_condoms[$boy] > 0:
				'"No," he replies.'
				act'Oh well':
					cla
					'"Oh well," you shrug and ' + iif(CloSkirtShortness > 0, 'turn up your skirt ', 'drop your own pants ') + iif($pantyworntype ! 'none', 'and pull down your panties.', 'to reveal your naked pussy.')
					act'Fuck him bareback':gs 'pav_church', 'restroom_fuck_bareback'
				end
				if mc_inventory['normal_condoms'] > 0:
					act'Put a condom on him':
						cla & *nl
						'With a sigh, you pull a condom from your own stash and roll it onto the man''s shaft before ' + iif(CloSkirtShortness > 0, 'turning up your skirt ', 'dropping your own pants ') + iif($pantyworntype ! 'none', 'and pull down your panties.', 'to reveal your naked pussy.')
						act'Fuck the man':gs 'pav_church', 'restroom_fuck_condom'
					end
				end
			else
				'He nods and pulls one out, wrapping his cock in it while you ' + iif(CloSkirtShortness > 0, 'turn up your skirt ', 'drop your own pants ') + iif($pantyworntype ! 'none', 'and pull down your panties.', 'to reveal your naked pussy.')
				act'Fuck the man':gs 'pav_church', 'restroom_fuck_condom'
			end
		end
		
		if mc_inventory['normal_condoms'] > 0:
			act'Put a condom on him':
				cla & *nl
				'But before doing anything else, you pull a condom from your purse and roll it onto the man''s shaft. Only then do you ' + iif(CloSkirtShortness > 0, 'turn up your skirt ', 'drop your own pants ') + iif($pantyworntype ! 'none', 'and pull down your panties.', 'to reveal your naked pussy.')
				act'Fuck the man':gs 'pav_church', 'restroom_fuck_condom'
			end
		end
	end
end

if $ARGS[0] = 'restroom_fuck_bareback':
	temp['condom_use'] = 0
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/public/restroom/fuck_stand1.mp4"></video></center>'
	'Once in a stall, the man pushes you up against the wall and roughly fucks your pussy.'
	gs 'pav_church', 'restroom_fuck_thoughts'
end

if $ARGS[0] = 'restroom_fuck_condom':
	temp['condom_use'] = 1
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/public/restroom/fuck_stand1.mp4"></video></center>'
	'Once in a stall, the man pushes you up against the wall and roughly fucks your pussy.'
	gs 'pav_church', 'restroom_fuck_thoughts'
end

if $ARGS[0] = 'restroom_fuck_thoughts':
	act'Wait patiently':
		gs 'arousal', 'vaginal', rand(5,10), 'prostitution', 'no_orgasm_msg'
		cla & *nl
		if temp['orgasm'] = orgasm:
			'You press your leg up on the opposing wall and let the man enjoy himself with you. He grunts, roughly shoving his cock into your cunt, and you wait patiently for him to finish.'
		else
			'You press your leg up on the opposing wall and let the man enjoy himself with you. He grunts, roughly shoving his cock into your cunt, and you wait patiently for him to finish, even managing to have an orgasm yourself before he does.'
		end
		if temp['condom_use'] = 0:
			gs 'pav_church', 'restroom_fuck_bareback_cum'
		else
			gs 'pav_church', 'restroom_fuck_condom_cum'
		end
	end
	
	act'Enjoy yourself':
		gs 'arousal', 'vaginal', rand(5,10), 'prostitution', 'no_orgasm_msg'
		cla & *nl
		if temp['orgasm'] = orgasm:
			'You press your leg up on the opposing wall and thrust back at him, smiling as warmth and wetness spread from between your legs. You don''t manage to come, but your cunt gets a nice dicking.'
		else
			'You press your leg up on the opposing wall and thrust back at him, smiling as warmth and wetness spread from between your legs. Your breathing picks up in time with his and before you know it, you''re shuddering in orgasm yourself before he''s done.'
		end
		if temp['condom_use'] = 0:
			gs 'pav_church', 'restroom_fuck_bareback_cum'
		else
			gs 'pav_church', 'restroom_fuck_condom_cum'
		end
	end
	
	act'Boring':
		$orgasm_or = 'no'
		gs 'arousal', 'vaginal', rand(5,10), 'prostitution', 'no_orgasm_msg'
		cla & *nl
		'<i>Ugh, how boring...</i> you sigh silently as the man keeps grunting, shoving his cock into your cunt while you mechanically thrust back in time. This is taking forever and you stifle another sigh waiting for him to come.'
		if temp['condom_use'] = 0:
			gs 'pav_church', 'restroom_fuck_bareback_cum'
		else
			gs 'pav_church', 'restroom_fuck_condom_cum'
		end
	end
	
	act'Think happy thoughts':
		$orgasm_or = 'no'
		gs 'arousal', 'vaginal', rand(5,10), 'prostitution', 'no_orgasm_msg'
		cla & *nl
		'As the man keeps grunting, uncomfortably shoving his cock into your cunt, you close your eyes and try to disassociate from the experience, thinking the happiest thoughts you can muster.'
		if temp['condom_use'] = 0:
			gs 'pav_church', 'restroom_fuck_bareback_cum'
		else
			gs 'pav_church', 'restroom_fuck_condom_cum'
		end
	end
end


if $ARGS[0] = 'restroom_fuck_condom_cum':
	gs 'cum_call', '', 'man at church', 0, 3
	cla & *clr
	if condom_break = 0:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/supplycloset.jpg"></center>'
		'After a few minutes, he groans softly and you feel his cock pulse within the condom inside you. You wait for him to finish before pulling away. The man pulls the rubber off and throws it in the toilet, wiping his shaft and throwing those tissues inside with it. Once finished, he pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with <<temp[''prost_money'']>><b>₽</b> in your hand and a well used pussy.', 'alone with nothing but a used pussy.')
	else
		'<center><img <<$set_imgh>> src="images/shared/sex/public/restroom/creampie1.jpg"></center>'
		'After a few minutes, he groans softly and you feel his cock pulse within the condom inside you. You wait for him to finish before pulling away. The man pulls the rubber off and throws it in the toilet, wiping his shaft and throwing those tissues inside with it. He yanks up his pants when you feel something suddenly <i>spurt</i> out of your pussy.'
		'Your eyes go wide as you exclaim, "Wait, did the condom-"'
		'Before you can even finish the man departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with <<temp[''prost_money'']>><b>₽</b> in your hand and his cum in your pussy.', 'alone with nothing but his cum in your pussy.')
	end
	if $temp['approach_type'] = 'prostitute': money += temp['prost_money']
	act'Finish':gs 'pav_church', 'restroom_sex_end'
end

if $ARGS[0] = 'restroom_fuck_bareback_cum':
	if $npc_cum_pref[$boy] = 'creampie' and npc_childfree[$boy] < 1:
		act'Continue':
			gs 'cum_call', '', 'man at church'
			cla & *nl
			'A few minutes later, he groans softly and something suddenly shoots into your womb.'
			act'Continue':
				cla & *clr
				'<center><img <<$set_imgh>> src="images/pc/body/cum/creampie/cumpussy1.jpg"></center>'
				'You gasp in surprise as the man empties his balls into you before pulling away, leaving a sticky white stream dripping down your legs. He immediately pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with <<temp[''prost_money'']>><b>₽</b> in your hand and his cum in your pussy.', 'alone with nothing but his cum in your pussy.')
				!!'leaving a sticky white stream dripping down your legs.'
				act'Finish':gs 'pav_church', 'restroom_sex_end'
			end
		end
	else
		'A few minutes later, he groans softly.'
		'"I''m gonna come!"'
		act'Let him come inside':
			gs 'cum_call', '', 'man at church'
			cla & *nl
			'"It''s okay," you murmur in his ear. "You can come inside."'
			act'Continue':
				cla & *clr
				'<center><img <<$set_imgh>> src="images/pc/body/cum/creampie/cumpussy1.jpg"></center>'
				'With a soft groan, you feel him orgasm and his thick spunk fills your pussy. It pulses within you for several long moments before he finally withdraws, leaving a sticky white stream dripping down your legs. He immediately pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with <<temp[''prost_money'']>><b>₽</b> in your hand and his cum in your pussy.', 'alone with nothing but his cum in your pussy.')
				act'Finish':gs 'pav_church', 'restroom_sex_end'
			end
		end
		gs 'pav_church', 'restroom_cum_hand'
		gs 'pav_church', 'restroom_cum_mouth'
		gs 'pav_church', 'restroom_cum_face'
	end
end

if $ARGS[0] = 'restroom_cum_hand':
	act'Finish him with your hand':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/public/restroom/hj_cum1.mp4"></video></center>'
		gs 'cum_call', 'hands', 'man at church'
		gs 'stat'
		'Hopping off the man''s cock, you take it in your hand and start jerking. Immediately, cum spurts from the tip and spatters all over the floor. Once finished, he pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with cum on your hand and <<temp[''prost_money'']>><b>₽</b> in it.', 'alone with cum all over your fingers.')
		if $temp['approach_type'] = 'prostitute': money += temp['prost_money']
		act'Finish':gs 'pav_church', 'restroom_sex_end'
	end
end

if $ARGS[0] = 'restroom_cum_face':
	act'Take his cumshot on your face':
		gs 'cum_call', 'face', 'man at church'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/facial/facial0,3.mp4"></video></center>'
		'He cums on your face'
		'Once finished, he pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with <<temp[''prost_money'']>><b>₽</b> in your hand and cum on your face.', 'alone with nothing but cum on your face.')
		if $temp['approach_type'] = 'prostitute': money += temp['prost_money']
		act'Finish':gs 'pav_church', 'restroom_sex_end'
	end
end

if $ARGS[0] = 'restroom_cum_mouth':
	act'Take his cumshot in your mouth':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum11.mp4"></video></center>'
		!!'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum12.mp4"></video></center>'
		'He cums in your mouth.'
		if $temp['approach_type'] = 'prostitute': money += temp['prost_money']
		act'Swallow it':
			gs 'cum_call', 'mouth_swallow', 'man at church'
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow3.mp4"></video></center>'
			'You wait until the man finishes his orgasm before pulling away, gathering his cum in your mouth and swallowing it in one big gulp.'
			'Once finished, he pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with <<temp[''prost_money'']>><b>₽</b> in your hand and a salty taste in your mouth.', 'alone with nothing but a salty taste in your mouth.')
			act'Finish':gs 'pav_church', 'restroom_sex_end'
		end
		
		act'Spit':
			gs 'cum_call', 'mouth', 'man at church'
			gs 'cum_call', 'hands', 'man at church'
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow3.mp4"></video></center>'
			'You wait until the man finishes his orgasm before pulling away, gathering his cum in your mouth and spitting it into the palm of your hand.'
			iif($npc_cum_pref[$boy] = 'mouth', 'The man seems annoyed by that. ', '') + 'With nothing more to do, he pulls up his pants and departs, leaving you ' + iif($temp['approach_type'] = 'prostitute', 'with a salty taste in your mouth, his cum all over your hand, and <<temp[''prost_money'']>><b>₽</b> in it.', 'alone with nothing with a salty taste in your mouth and his cum in your hand.')
			act'Finish':gs 'pav_church', 'restroom_sex_end'
		end
	end
end

if $ARGS[0] = 'restroom_sex_end':
	gs 'arousal', 'end'
	gs 'pav_church', 'Narthex'
end

if $ARGS[0] = 'Narthex':
	CLOSE ALL
	$menu_loc = 'pav_church'
	$menu_arg = 'Narthex'
	menu_off = 0
	*clr & cla
	gs 'themes', 'indoors'
	gs 'family_schedule'
	if locat['Mother'] = 16 and mom_church ! daystart: gt 'pav_church', 'Mom'
	gs 'stat'
	PLAY 'sound/church/76139__dkustic__090227-01-people-church-concert.mp3',30
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
	'You enter the church and the scent of incense and beeswax fills your lungs. Your eyes are drawn past the Narthex into the Nave with its walls covered in lovingly painted icons while a thousand points of light dance in joy throughout God''s house from the magnificent chandelier that hangs from the ceiling.'
	'To your left is a counter where a deacon sells candles, icons and prayer books. He smiles and nods at you absently, acknowledging your presence without really seeing you.'
	act 'Leave the church': gt 'pav_church' , 'start'
	if ((week <= 5 and hour >= 7 and hour < 9) or (hour >= 16 and hour < 18)) and confessday ! daystart: act 'Go to confession': confessday = daystart & gt 'pav_church2', 'confession'
	act 'Light a candle':gt 'pav_church', 'candle'
	act 'Pray':gt 'pav_church', 'pray'
	act 'Talk to the Priest': gt 'pav_church' , 'talk_priest'
end

if $ARGS[0] = 'Narthex_mom':
	CLOSE ALL
	$menu_loc = 'pav_church'
	$menu_arg = 'Narthex_mom'
	menu_off = 0
	*clr & cla
	gs 'themes', 'indoors'
	gs 'stat'
	PLAY 'sound/church/76139__dkustic__090227-01-people-church-concert.mp3',30
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
	'You enter the church and the scent of incense and beeswax fills your lungs. Your eyes are drawn past the Narthex into the Nave with its walls covered in lovingly painted icons while a thousand points of light dance in joy throughout God''s house from the magnificent chandelier that hangs from the ceiling.'
	'To your left as you enter is a counter where a deacon sells candles, icons and prayer books. He smiles and nods at you absently, acknowledging your presence without really seeing you.'
	if VKChurchEvents < 2 and hour < 14:
		if VKChurch = 0 or VKChurch = 4:
			if VKChurch < 4 and week = 6 and hour >=19 and hour <= 22: VKChurch += 1
			act 'Attend the Vigil':VKChurchEvents += 1 & gt 'pav_church', 'vigil', 'mom'
		elseif VKChurch = 1 or VKChurch = 4:
			if VKChurch < 4 and week = 7 and hour >= 9 and hour < 12: VKChurch += 1
			act 'Join the Liturgy':VKChurchEvents += 1 & gt 'pav_church', 'liturgy', 'mom'
		elseif VKChurch = 2 or VKChurch = 4:	
			if VKChurch < 4: VKChurch += 1
			act 'Light a candle':VKChurchEvents += 1 & gt 'pav_church', 'candle', 'mom'
			if VKChurch < 4: VKChurch += 1
		elseif VKChurch = 3 or VKChurch = 4:
			if VKChurch < 4: VKChurch = 4
			act 'Pray':VKChurchEvents += 1 & gt 'pav_church', 'pray', 'mom'
		else
			if week = 6 and hour >=19 and hour <= 22 and churchday ! daystart:
				act 'Attend vigil': gt 'pav_church', 'vigil', 'mom'
			elseif week = 7 and hour >= 9 and hour < 12 and churchday ! daystart:
				act 'Attend Divine Liturgy': gt 'pav_church' , 'liturgy', 'mom'
			end
			act 'Light a candle':gt 'pav_church', 'candle', 'mom'
			act 'Pray':gt 'pav_church', 'pray', 'mom'
		end
		act 'Leave early':gt 'pav_church', 'Leave Early'
	else
		if VKChurchQW < 6:VKChurchQW += 1
		act 'Finish':gt 'pav_church', 'Leave'
	end	
end

if $ARGS[0] = 'Leave Early':
	CLOSE ALL
	VKChurchEvents = 0
	mom_church = daystart
	*clr & cla
	'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost9.jpg"></center>'
	'You approach your mother and say "I had a great time <<$npc_nickname[''A29'']>>, but I should be heading home now."'
	'"Alright. Thank you for stopping by. I hope you learned something about yourself today." she replies and lightly pats your arm before going back to praying.'
	act 'Go to the residential area':minut += 5 & gt 'pav_residential'
	act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
end

if $ARGS[0] =  'Leave':
	cla & *clr
	money += 300
	if hour = 12:
		minut += 120 - minut
	elseif hour = 13:
		minut += 60 - minut
	else
		hour = 14
	end
	mom_church = daystart
	VKChurchEvents = 0
	gs'stat'
	'<center><b><h4><font color=#CB00A2>"Natasha <<$pcs_lastname>>"</font></h4></b></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/walking.jpg"></center>'
	if VKChurchQW = 1:
		'As the church ceremonies ends, you and your mother get up and collect your things before walking out of the church, where she places her hand on your shoulder. "Listen <<$pcs_nickname>>. I''m really happy that you decided to join me today. You came here by your own choice and I''m proud of you. Now take this and get yourself some lunch." She hands you 300 <b>₽</b> and gently pats your shoulder before walking away.'
	elseif VKChurchQW = 2:
		'As the church ceremonies ends, you and your mother get up and collect your things before walking out of the church, where she places her hand on your shoulder. "Another enlightening Sunday. I hope you''ve been learning as much as you can from our time here. Life can be hard on us sometimes, but we just remember that we can always find the light at the end of the path. We just need to keep our hearts open and remain focused on our goals." She then pats you on the shoulder before giving you 300 <b>₽</b> and turning to walk away.'
	elseif VKChurchQW = 3:
		'As the church ceremonies end, you and your mother get up and collect your things before walking out of the church. You notice that your mother has fallen behind, so you wait for her and take the time to stretch your stiff back and legs. You finish stretching as you see your mother approaching. "I have to go to the store to pick up a few things. Thank you for keeping me company and for being such a good Christian girl." She then hands you 300 <b>₽</b> before turning away while waving at you.'
	elseif VKChurchQW = 4:
		'As the church ceremonies end, you and your mother get up and collect your things before walking out of the church. "How are you enjoying your time in church? I know it''s not exactly exciting for someone your age, but I hope that you find it enlightening."'
		'"I really enjoy spending time here, but I''m still getting used to the ceremonies." you reply and your mother smiles. "It does take some getting used to, but everything eventually becomes second nature. Now go on and get yourself something to eat." She gently pats you on the shoulder before handing you 300 <b>₽</b> and walking away.'
	elseif VKChurchQW = 5:
		money += 200
		'You take a deep breath as the church ceremonies end. You and your mother then collect your belongings before getting up and leaving the church. "How do you feel about these ceremonies? Honestly." your mother asks and you give her a smile. "I''ve learned a lot since coming here and there''s still more to learn. I''ve been enjoying learning of our lord and savior." Your mother gives you a warm hug as she whispers in your ear. "I''m so proud of you <<$pcs_firstname>>. Your brother and sister can learn so much from you."'
		*nl
		'She thens squeezes slightly tighter before releasing you and placing 500 <b>₽</b> in your pocket. "A small reward for my loving daughter." She then waves with a big smile on her face as she walks away.'
	else
		'As the church ceremonies end, you and your mother get up and collect your things before walking out of the church. "I had a great time today. I always enjoy spending time with my loving daughter. Hopefully I''l see you here again next week." She then kisses your cheek and hands you 300 <b>₽</b> before walking away.'
	end

	act 'Go to the residential area':minut += 5 & gt 'pav_residential'
	act 'Go to the commercial area':minut += 10 & gt 'pav_commercial'
end

if $ARGS[0] = 'candle':
	*clr & cla
	minut += 10
	menu_off = 1
	Churchbad -= 1
	gs 'themes', 'indoors'
	gs 'stat'
	gs 'fame', 'church_reduction', 'pav', -1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_candle.jpg"></center>'
	if money >= 10 and owechurch = 0:
		money -= 10
		'You approach the deacon and hand over the 10 <b>₽</b> for a candle.'
	elseif money >= 10 and money < 20 and owechurch = 1:
		owechurch = 0
		money -= 10
		pcs_mood -= 10
		'You approach the deacon and hope that he doesn''t recognize you since you couldn''t pay for your last candle. You give him 10 <b>₽</b> and he hands you a candle. You hustle away from the counter while guilt gnaws at you.'
	elseif money >= 20 and owechurch = 1:
		owechurch = 0
		money -= 20
		pcs_mood += 5
		'You approach the deacon. He is confused when you hand him 20 <b>₽</b> before smiling in understanding. You feel relieved that the debt is paid.'
	elseif money < 10:
		owechurch = 1
		'You approach the deacon and indicate that you would like a candle, but when you look in your purse to pay, you realize that you have no money. The deacon sighs and hands you the candle anyway. You promise yourself to pay double next time.'
	end
	if hour > 6 and hour < 20:
		pcs_mood += 10
		church_moral += 1
		'You approach the iconostasis and light your candle. It gives you a nice feeling and you say a prayer while looking at the image of Christ the Savior.'
	else
		pcs_horny += 10
		pcs_mood += 10
		'You approach the iconostasis and light your candle in the dark church and start praying. The darkness, combined with the pleasant sight of fire, makes you feel warm inside.'
	end

	if $args[1] = 'mom':
		act 'Return to Narthex': gt 'pav_church', 'Narthex_mom'
	else
		act 'Return to Narthex': gt 'pav_church', 'Narthex'
	end
end

if $ARGS[0] = 'pray':
	*clr & cla
	menu_off = 1
	minut += 1
	gs 'themes', 'indoors'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_praying.jpg"></center>'
	'You approach the prayer bench and kneel down to pray.'
	act 'Pray':
		*clr & cla
		menu_off = 1
		minut += 10
		Churchbad -= 1
		gs 'fame', 'church_reduction', 'pav', -1
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_praying.jpg"></center>'
		if hour > 6 and hour < 20 and church_moral < 30:
			pcs_horny -= 10
			pcs_mood += 20
			church_moral += 1
			'You decide to pray for a while. You''re not overly religious, but the peace and quiet gives you the time to think.'
		elseif hour > 6 and hour < 20 and church_moral >= 30 and church_moral < 60:
			pcs_horny -= 20
			pcs_mood += 30
			church_moral += 1
			minut += 15
			'You decide to pray for a while. While you don''t consider yourself to be deeply religious, you do feel a strong connection to God when you look at the icons around you. You allow yourself to look deeply into your soul as you contemplate the direction your life is going.'
		elseif hour >6 and hour < 20 and church_moral >= 60:
			pcs_horny -= 30
			pcs_mood += 40
			church_moral += 1
			minut += rand(30,60)
			'You decide to pray. The beauty and glory of being in the body of God overwhelms you and you lose yourself in prayer. You''re unsure how much time has passed when you finally become aware of your surroundings again, but it doesn''t matter as you are at peace with God and the world.'
		elseif (hour >= 20 or hour <= 6) and church_moral < 30:
			pcs_horny -= 40
			pcs_mood += 50
			church_moral += 1
			minut += rand(30,60)
			'The Nave is lit only with small candles, leaving your surroundings in darkness. You start to get a strange vibe, one you can''t quite shake. You suddenly get the urge to pray very intensely and before you know it, an hour has passed and you feel reborn.'
		elseif (hour >= 20 or hour <= 6) and church_moral >= 30 and church_moral < 60:
			pcs_horny = 0
			pcs_mood += 50
			church_moral += 1
			minut += rand(30,60)
			if drugVars['cocaine_system'] > 1: drugVars['cocaine_system'] = drugVars['cocaine_system'] / 2
			'The Nave is lit only with small candles, leaving your surroundings in darkness, but you find it comforting. You get the urge to pray very intensely and before you know it, an hour has passed and you feel cleansed.'
		elseif (hour >= 20 or hour <= 6) and church_moral >= 60 and rand(1,100) > 90:
			pcs_horny = 50
			orgasm += 1
			pcs_mood = 100
			church_moral += 1
			Godslut = 1
			'The Nave is lit only with small candles, leaving your surroundings in darkness, but it''s comforting, like being in the womb of God. You get the urge to pray very intensely and lose yourself in the presence of God, overcome by religious ecstasy. You fight back a sob as your body trembles with an uncontrollable orgasm. You wipe the tears from your eyes and gaze with adoration at the face of Christ, your newest lover.'
		else
			pcs_horny = 0
			pcs_mood = 100
			church_moral += 1
			minut += 60
			if drugVars['cocaine_system'] > 1: drugVars['cocaine_system'] = 3 * drugVars['cocaine_system'] / 4
			'The Nave is lit only with candles and small presence lights and the darkness feels very comforting, like being in the womb. You get the urge to pray very intensely and before you know it, more than an hour has passed and you feel reborn and cleansed.'
		end
		gs 'stat'
		if $args[1] = 'mom':
			act 'Return to Narthex': gt 'pav_church', 'Narthex_mom'
		else
			act 'Return to Narthex': gt 'pav_church', 'Narthex'
		end
	end

	if exhibitionist_lvl > 0 and $args[1] ! 'mom':
		act 'Be naughty':
			*clr & cla
			menu_off = 1
			Churchbad += 2
			gs 'fame', 'pav', 'sex', 2
			gs 'flash', 'butt', 'indoors', 2, 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_prayingflash.jpg"></center>'
			'While you''re praying, you get a devious idea. With a sly smile, you expose your ass, giving anyone that looks your way a naughty sight as you lower your head and pray in silence. You occasionally hear whispers behind you, causing you to smile.'
			act 'Return to Narthex': gt 'pav_church', 'Narthex'
		end
	end
end

if $ARGS[0] = 'talk_priest':
	*clr & cla
	menu_off = 1
	minut += 15
	gs 'themes', 'indoors'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_talk.jpg"></center>'
	'As you approach the priest, you recall your previous behavior, your sins, your transgressions, and the daily temptations you face.'
	'Going up to the priest, you bow down and touch the floor with your right hand before placing it over your left hand with your palms upward and say "Bless me, Father."'
	'"May the Lord bless you," the priest answers and blesses you with the Sign of the Cross before placing his right hand in your hands.'
	'You kiss his hand and then straighten up, taking a deep breath.'
	if Churchbad > 0 and amends_day ! daystart:
		act 'Make amends':
			*clr & cla
			gs 'stat'
			church_moral += 1
			Kirill += 1
			Churchbad -= 1
			amends_day = daystart
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_talk.jpg"></center>'
			'"Father, I want to apologize for the way I acted the last time I was here," you say, hoping he can hear the sincerity in your voice. "It was inexcusable."'
			'"Your behavior was indeed... ill-fitting of a young lady," the priest replies gravely. "However, God asks us to forgive... If you truly wish to make amends, there is something you could do."'
			'"Of course, father," you reply, eager for forgiveness.'
			act 'What do you need me to do':
				*clr & cla
				gs 'stat'
				if Churchbad <= 2:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/supplycloset.jpg"></center>'
					'The priest leads you back to the Narthex and opens a door on the side opposite of the counter where you buy candles. Inside you see cleaning supplies.'
					'Taking out a broom, the priest smiles at you. "The Narthex and the Sanctuary could use a good sweeping and mopping," he says.'
					act 'Start cleaning':
						*clr & cla
						minut += 60
						Churchbad -= 1
						church_moral += 1
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/churchclean.jpg"></center>'
						'You take the broom and begin your task, thankful that the church isn''t a very large one. You diligently sweep the floor, making sure to get into all the corners. Once the sweeping is done, you mop the floor and then put everything away. You feel a sense of satisfaction and wellbeing at a job well done.'
						'As you close the closet door, you turn around to find the priest looking at you with a pleased expression.'
						'"Thank you, <<$pcs_firstname>>. You did a fine job." he says. Surprisingly, you feel a flush of pleasure at the praise. You finish putting things away and leave.'
						act 'Leave the church': gt 'pav_church' , 'start'
					end
					act 'Tell him you''re not a maid':
						*clr & cla
						minut += 5
						Churchbad += 2
						Kirill -= 5
						church_moral -= 2
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/pc/reactions/bukli_angry.jpg"></center>'
						'"As if!" you state flatly, looking at the priest coldly. "You''re the one that took an oath to work for God, not me. I''m out of here."'
						'The priest looks as if he is going to say something before changing his mind. He shakes his head in disappointment as you walk away.'
						act 'Leave the church': gt 'pav_church' , 'start'
					end
				else
					cla
					'The priest leads you to a bench in the Narthex and has you sit down with him.'
					'"I feel that you have lost your way <<$pcs_firstname>>," he begins softly. "Such behavior can only lead to a life of misery and sin."'
					'"I know father," you reply with a sigh. "But I just can''t seem to help it sometimes."'
					act 'Tease him': gt 'pav_church', 'tease'
				end
			end
		end
	elseif Churchbad > 0 and amends_day = daystart:
		'<br>You already made amends today.'
	end
	act 'Talk to the priest':
		*clr & cla
		church_moral += rand(0,3)
		Kirill += rand(0,2)
		minut += 15
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_talk.jpg"></center>'
		'You sit and talk with the priest about morality and how Russian society has changed since the fall of the Soviet Union. You get the impression that although the priest was happy to see the church gain wider acceptance and freedom from the government, he doesn''t seem to approve of how today''s youth behave.'
		act 'Leave the church': gt 'pav_church' , 'start'
		act 'Stay in the Narthex': gt 'pav_church', 'Narthex'
		act 'Keep talking':
			*clr & cla
			church_moral += rand(0,2)
			Kirill += rand(0,2)
			minut += 30
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_talk.jpg"></center>'
			'You''re thoroughly enjoying your discussion with him and turn to talking about Pavlovsk and how so many residents seem obsessed with sex, especially the boys. He agrees with you that people seem overly lustful around this area, and you soon start discussing how society has brought about these looser morals in people.'
			'You see an old woman you vaguely remember as living in the apartment block opposite your own. She seems anxious to talk to the priest.'
			if Kirill > 60:
				'"It looks like Mrs. Seldipi needs to regal me with the latest of her neighbors'' multitude of sins," the priest confides with a wry smile. "We can continue our discussion another day."'
				act 'Leave the church': gt 'pav_church' , 'start'
			else
				'"I''m sorry <<$pcs_firstname>>. It seems that I''m needed by Mrs. Seldipi," he says with obvious regret. "I''ve enjoyed our chat. Please think on what we''ve discussed and we''ll talk another time."'
				act 'Leave the church': gt 'pav_church' , 'start'
			end
		end
		act 'Tease him': gt 'pav_church', 'tease'
	end
	act 'Chicken out':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
		'You cannot bring yourself to talk to the priest yet. You are torn between stalling or simply leaving.'
		act 'Leave the church': gt 'pav_church' , 'start'
		act 'Stay in the Narthex': gt 'pav_church', 'Narthex'
	end
end

if $ARGS[0] = 'tease':
	*clr & cla
	Kirill_Crpt += 1
	church_moral -= 1
	Churchbad += 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_tease.jpg"></center>'
	'Feeling naughty, you decide to try and tease the priest. While he isn''t looking, you undo most of the buttons on your blouse, hoping he will notice.'
	if Kirill_Crpt >= 30:
		Kirill += 1
		Kirill_Crpt += 1
		pcs_horny += 5
		'You look the priest right in the eyes when his attention is on you, slowly leaning forward and allowing your breasts to be exposed. To your delight, you see his eyes dart to your breasts and stay there.'
		if kirillsex ! 0:
			'"Very nice, <<$pcs_firstname>>." Father Kirill whispers as he reaches out and caresses your breasts before pulling your top back into place, covering you once again. "Follow me."'
			act 'Follow him': gt 'pav_church2', 'sex'
			gs 'willpower', 'sex', 'resist'
			if will_cost <= pcs_willpwr:
				act 'Leave the church (<<will_cost>> Willpower)':
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					gt 'pav_church' , 'start'
				end
			else
				act 'Leave the church (<br><font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		else
			'"Very nice, <<$pcs_firstname>>." Father Kirill whispers with a smile as he reaches out and softly caresses your breasts before pulling your top back into place, covering you up once again.'
			'"No temptation has overtaken you except what is common to mankind. And God is faithful; he will not let you be tempted beyond what you can bear. But when you are tempted, he will also provide a way out so that you can endure it," he murmurs as he fastens your buttons and sighs.'
			'"Thus it is written, and thus it behooved Christ to suffer, and to rise from the dead the third day," you reply looking at the telltale lump in Father Kirill''s crotch, "It seems that Jesus is not the only one to rise from the dead," you add with a playful giggle.'
			'Father Kirill looks at you and opens his mouth to speak but no words come out. With a laugh, you jump up and skip out of the church with a final glance back at the dumbfounded cleric.'
			act 'Leave the church': gt 'pav_church' , 'start'
		end
	else
		Kirill -= 2
		'You look the priest right in the eyes when his attention is on you, slowly leaning forward and allowing your breasts to be exposed. To your delight, you see his eyes dart to your breasts then snap back up to your face. His face flushes red.'
		if Churchbad >= 5:
			'"You whore!" he roars in fury. "I''ll teach you what happens to those who desecrate the House of God!"'
			'Stunned by his unexpected fury, you are unable to react before the furious priest grabs you by the arm and drags you into his office.'
			act 'Continue': gt 'pav_church', 'spank'
		elseif Churchbad <= 4 and Kirill <= 20:
			'"<<$pcs_firstname>> <<$pcs_lastname>>!" the priest hisses, his face twisted in rage. "How dare you behave like this in the House of God! Get out now!"'
			'Stunned by his unexpected fury, you hastily cover yourself up and flee from the church.'
			act 'Leave the church': gt 'pav_church' , 'start'
		else
			'"<<$pcs_firstname>> <<$pcs_lastname>>!" the priest hisses, his face flushed with embarrassment. "How could you behave like this in the House of God! Cover yourself up, now!"'
			'Although it isn''t the reaction you were expecting, it is a reaction. Looking up at the priest, you can tell that his embarrassment is changing to anger. You decide that it might be best if you leave.'
			act 'Leave the church': gt 'pav_church' , 'start'
		end
	end
end

if $ARGS[0] = 'spank':
	*clr & cla
	Kirill_Crpt += 1
	Churchbad -= 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank1.jpg"></center>'
	'Once in his office, he drags you over to his desk. "Bend over and expose your bottom. You obviously need to be disciplined more, else you wouldn''t be such a sinful girl!" You stare straight at him. You know he would never force you, so why should you obey? He seems to read your thoughts as he adds "Or I can call your mother and explain to her why her daughter is excommunicated from the church."'
	'You pale slightly. You don''t know what your mother would do, but it would be a lot worse than getting spanked by a priest, so you do as he says and expose your ass before bending over his desk. He then grabs a shoe from inside his desk.'
	gs 'arousal', 'foreplay', 3, 'exhibitionism'
	gs 'stat'
	act 'bear it':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank2.jpg"></center>'
		'You yelp as he spanks your ass with the sole of the shoe. He isn''t putting much strength into it - it stings, but you''ve had far worse. After a few minutes of this, he stops and leans forward. "Have you learned your lesson?"'
		gs 'pain', 1, 'asscheeks', 'spank'
		gs 'arousal', 'foreplay', 5, 'unknown'
		gs 'stat'
		act 'Yes':
			*clr & cla
			Churchbad -= 1
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank5.jpg"></center>'
			'Your ass is stinging as you nod your head. "Yes, I''m sorry father. I don''t know what came over me. Please forgive me."'
			'He relaxes and sighs. "I forgive you. I''m sorry I had to do that, but sometimes stern measures are needed."'
			'You cover yourself back up and walk out.'
			gs 'arousal', 'foreplay', 1, 'unknown'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave the church': gt 'pav_church' , 'start'
		end
		act 'Not yet':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank3.jpg"></center>'
			'You shake your head and smile. "No, not when you hit like a girl." you say teasingly.'
			'You see his eyes flare in anger and he starts spanking you again. This time he puts a lot of force into the blows and your ass is really starting to sting. After a few minutes of this, he stops and leans forward and asks again. "Have you learned your lesson yet?"'
			gs 'pain', 2, 'asscheeks', 'spank'
			gs 'arousal', 'foreplay', 5, 'maso'
			gs 'stat'
			act 'Yes':
				*clr & cla
				Churchbad -= 1
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank5.jpg"></center>'
				'You nod your head. "Yes, I''m sorry father. I have seen the errors of my way. Please forgive me."'
				'He relaxes and sighs. "I forgive you. I''m sorry I had to do that and I''m sorry it took you so long to learn your lesson, but sometimes stern measures are needed."'
				'You cover yourself back up and walk out a bit gingerly as you rub your stinging ass.'
				gs 'arousal', 'foreplay', 1, 'unknown'
				gs 'arousal', 'end'
				gs 'stat'
				act 'Leave the church': gt 'pav_church' , 'start'
			end
			act 'More!':
				*clr & cla
				Kirill_Crpt += 1
				Churchbad += 1
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank3.jpg"></center>'
				'"Yes, yes! Spank me harder! Please!" you cry out while sticking your ass out more.'
				'You see his eyes widen and his cheeks blushing. He again puts a lot more force into his blows and your ass is soon bright red and stinging as tears start rolling down your cheeks. After a few more minutes of this, he stops and leans forward again. "Now have you learned your lesson?"'
				gs 'pain', 2, 'asscheeks', 'spank'
				gs 'arousal', 'foreplay', 5, 'maso'
				gs 'stat'
				act 'Yes':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank5.jpg"></center>'
					'You nod your head and sniffle. "Yes, I''m sorry father. The pain has purified me of my wickedness. Please forgive me."'
					'He relaxes and sighs. "I forgive you. I''m sorry I had to do that, but I don''t believe you are over your wicked ways. I would like you to start attending church on a regular basis and coming to confession."'
					'You cover yourself back up. "I will father, I promise." You walk out rather stiffly, barely able to stand as your ass pulses in sharp stinging pain.'
					gs 'arousal', 'foreplay', 1, 'unknown'
					gs 'arousal', 'end'
					gs 'stat'
					act 'Leave the church': gt 'pav_church' , 'start'
				end
				act 'No!':
					*clr & cla
					Churchbad += 1
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/event/spank5.jpg"></center>'
					'You shake your head and try not to sniffle. "You''ll need to do more than that to beat the wickedness out of me!"'
					'He sighs and drops the shoe on the desk. "I believe you. I will pray for you and pray for guidance on how to help you. You may go, but I would like you to start attending church on a regular bases and coming to confession."'
					'You cover yourself back up and smirk at him. "We''ll see..." You walk out rather stiffly, barely able to stand as your ass pulses in sharp stinging pain. Despite this, you feel a little aroused by what happened.'
					gs 'arousal', 'foreplay', 1, 'unknown'
					gs 'arousal', 'end'
					gs 'stat'
					act 'Leave the church': gt 'pav_church' , 'start'
				end
			end
		end
	end
end

!!if $ARGS[0] = 'cemetery':
!!	'"Placeholder for cemetery"'
!!	act 'Leave the church': gt 'pav_church' , 'start'
!!end

if $ARGS[0] = 'fillers':
	randtext = rand(0,9)
	if randtext = 0 and gsAboDance > 0 and AlbinaQW['StarletsJoined'] = 0:
		$safesub = 'your dance lessons'
	elseif randtext = 0 and AlbinaQW['StarletsJoined'] > 0 and AlbinaQW['StarletsShutDown'] = 0:
		$safesub = 'dancing with the Starlets'
	elseif randtext = 0 and gsAboBeg > 0:
		$safesub = 'your race training'
	elseif randtext = 0 and gsAboVolley > 0 and volleysostav = 0:
		$safesub = 'playing intramural volleyball'
	elseif randtext = 0 and volleysostav > 0:
		$safesub = 'playing competitive volleyball'
	elseif randtext = 0 and month >= 9 and month < 6 and SchoolAtestat = 0:
		$safesub = 'your schoolwork'
	elseif randtext = 1:
		$safesub = 'your mother'
	elseif randtext = 2:
		$safesub = 'your stepfather'
	elseif randtext = 3:
		$safesub = 'your brother'
	elseif randtext = 4:
		$safesub = 'your sister'
	elseif randtext = 5:
		$safesub = 'your childhood friend Vasily'
	elseif randtext = 6:
		$safesub = 'trying to earn money'
	elseif randtext = 7:
		Kirill += 1
		$safesub = 'the Russian Orthodox Church'
	elseif randtext = 8 and soniaPS ! 0:
		Kirill_Crpt += 1
		$safesub = 'what Sonia has been doing'
	elseif randtext = 8 and soniaPS = 0:
		$safesub = 'your curfew on weekends'
	elseif randtext = 9:
		$safesub = 'your grandparents'
	elseif randtext = 0:
		church_moral += 1
		$safesub = 'God and Jesus'
	end
end

--- pav_church ---------------------------------