Browse Source

Merge branch 'master' of https://git.catrenelle.com/Kevin_Smarts/glife

julzor 5 years ago
parent
commit
bda06a3f41

+ 0 - 607
locations/NatBelHome.qsrc

@@ -1,607 +0,0 @@
-# NatBelHome
-
-$location_type = 'indoors'
-menu_off = 1
-CLOSE ALL
-if BeInNatBelHome = 0:BeInNatBelHome = 1
-
-gs 'stat'
-'<center><b><font color="maroon"><<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>></font></b></center>'
-if natpregday > 0 and (daystart-natpregday) > (280 + rand(-2,2)):
-	!!baby born
-	natbabycount += 1
-	natpregday = 0
-end
-if (daystart-natpregday) > 84 and natpregday > 0:
-	if (daystart-natpregday) < 200:
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/16(2).jpg" width="356"></center>'
-	else 
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/16(3).jpg" width="356"></center>'
-	end
-	'The state of the room and the whole apartment shows, that the occupant is very poor.'
-	'Looking at Natasha, it is obvious that she is pregnant; you have a strong suspicion that she carries your niece or nephew.'
-	''
-	act 'Touch her belly':
-		if nataskedbaby = 1:
-			delact 'Touch her belly'
-			nataskedbaby = 0
-		end
-		''
-		'She looks at you with a strange smile.'
-		'"Yes", she answers the question you didn''t voice, "your little brother has actually knocked me up. I hope you are happy with that because I can''t afford an abortion."'
-		'Her tone is a lot less accusing than you expected. In fact, she seems... happy.'
-		nataskedbaby = 1
-	end
-else 
-	'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-	'The state of the room and the whole apartment shows that the occupants are very poor: The color and even parts of the plaster are coming down everywhere, there are cracks in the floor and the furniture seems to have been bought secondhand and with no direction or style in mind.'
-end
-
-if lernHome ! 0:
-	'Natasha arranges her books on the table and looks at you expectantly. After all, you came here to study with her, right?'
-
-	act 'Study with Natasha':
-		*clr & cla
-		minut += 60
-		npc_rel['A16'] += 5
-		lernHome = 0
-		lern += rand(3, 6)
-		intel_exp += rand(1, 2)
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-		'You spend an hour doing your homework with Natasha and reading up on what you did in class. Natasha might be poor but she''s a great study partner.'
-
-		act 'Next':gt $curloc
-	end
-elseif lernHome = 0:
-	'Natasha sits down on her bed and, polite as she is, offers you a seat in her semi-hospitable room.'
-
-	act 'Chat with Natasha':
-		*clr & cla
-		minut += 15
-		NatBelBestFrend += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-		'You talk with Natasha about this and that, passing fifteen minutes with ease.'
-
-		if NatBelBestFrend = 1:'Natasha knows that she lives in a very poor family. She has no father and her mother works for a pittance at the garment factory. You feel sorry for her.'
-		if NatBelBestFrend >= 2:'Natasha is envious that other girls can dress smartly and buy cosmetics while she has to wear her mother''s things.'
-
-		act 'Continue':gt $curloc
-	end
-
-	if NatDolg <= 0 and money >= 2000 and natsub > 0:
-		'Hesitantly, Natasha asks you, "<<$pcs_nickname>>, can you lend me a couple of thousand <b>₽</b>? I''ll pay you back, I promise."'
-
-		act 'Give Natasha some money (2000 <b>₽</b>)':
-			*clr & cla
-			minut += 15
-			NatDolg = 2000
-			money -= 2000
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-			'You get your purse and give Natasha the money. At this point, both of you know very well that she is not going to be able to repay you and that you will treat her like a sextoy as long as she is in your debt. Doesn''t this make her a prostitute?'
-
-			act 'Next':gt $curloc
-		end
-	elseif NatBelBestFrend >= 3 and NatDolg = 0 and money >= 5000 and natsub = 0:
-		'Natasha looks down in embarrassment, "<<$pcs_nickname>>, you have lots of money. Could you lend me 5000 <b>₽</b>? I will pay it back, I give you my word."'
-
-		act 'Lend Natasha the 5000 <b>₽</b>':
-			*clr & cla
-			minut += 15
-			NatDolg = 5000
-			money -= 5000
-			NatDolgDay = daystart+30
-			NatBelBestFrend += 1
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-			'You get your purse and give Natasha the money. Natasha is delighted and says that she will pay it back in a month.'
-
-			act 'rest':gt $curloc
-		end
-	elseif NatDolg > 0 and NatDolgDay > daystart:
-		'Natasha promises you to repay the <<NatDolg>> <b>₽</b> in <<NatDolgDay-daystart>> days.'
-	elseif NatDolg > 0 and NatDolgDay <= daystart:
-		'Natasha looks at the floor, "<<$pcs_nickname>>, I... I''m sorry, I don''t have your money."'
-
-		act 'Forgive Natasha''s debt':
-			*clr & cla
-			minut += 15
-			NatDolg = 0
-			NatDolgDay = 0
-			NatBelBestFrend += 10
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-			'You decide to forgive the Natasha''s debt. She is delighted and thanks you with all her heart.'
-
-			act 'Rest':gt $curloc
-		end
-
-		if pcs_dom >= 10 and natotrab = 0:
-			act 'Demand repayment':
-				*clr & cla
-				minut += 15
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-				'You decide not to reduce Natasha''s debt. You angrily confront her, demanding that she return the money to you, one way or another. Natasha curls up into a ball on her bed: "<<$pcs_nickname>>, I''m so sorry! I will do anything you say! Anything!"' 
-				''
-				'Natasha looks at you with fearful eyes and you are getting some ideas as to how you could "use" her. She did say "anything", after all...' 
-				'You snarl at her with an evil hiss: "You''ll be my little pet until you''ve worked off every last kopeck. And don''t you dare tell anyone about this!"' 
-				'You give her a soft slap on the cheek to test your newfound power over her rather than to hurt her, but she flinches and nods profusely. Looks like you''ve got your own little slave now.'
-
-				act 'On your knees! Open your mouth!':
-					*clr & cla
-					minut += 5
-					natotrab += 1
-					natsub += 1
-					pcs_dom += 1
-					!!natknee
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natknee.jpg"></center>'
-					'You bark at Natasha to get on her knees. She immediately kneels down at your feet and obediently opens her mouth.'
-
-					act 'Spit in her face':
-						*clr & cla
-						minut += 5
-						natsub += 1
-						pcs_dom += 1
-						NatDolg -= 500
-						!!natknee
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natknee.jpg"></center>'
-						'You collect the saliva in your mouth and, with relish spit in Natasha''s face. She jerks and squeezes her eyes shut but makes no move to wipe the spittle away.' 
-						'You smile, "Fair enough, you are forgiven."'
-						'Natasha opens her eyes and asks in disbelief, "It''s forgiven?"' 
-						'You laugh, "500 <b>₽</b> of debt is forgiven, fool. You will do everything I tell you until the entire debt is gone."'
-
-						act 'Next':gt $curloc
-					end
-				end
-			end
-		elseif natotrab > 0 and NatDolg > 0:
-			'Natasha still doesn''t have the <<NatDolg>> <b>₽</b>.'
-
-			act 'On your knees! Open your mouth!':
-				*clr & cla
-				minut += 5
-				natotrab += 1
-				natsub += 1
-				pcs_dom += 1
-				!!natknee
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natknee.jpg"></center>'
-				'You bark at Natasha to get on her knees. She immediately kneels down at your feet and obediently opens her mouth.'
-
-				act 'Spit in her face':
-					*clr & cla
-					minut += 5
-					natsub += 1
-					pcs_dom += 1
-					NatDolg -= 500
-					!!natknee
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natspit.jpg"></center>'
-					'You collect the saliva in your mouth and, with relish spit in Natasha''s face. She jerks and squeezes her eyes shut but makes no move to wipe the spittle away.'
-
-					act 'Next':gt $curloc
-				end
-				if natsub >= 4:
-					act 'Make her lick':
-						*clr & cla
-						minut += 5
-						natsub += 1
-						pcs_dom += 1
-						NatDolg -= 500
-
-						if npcSex[16] = 0:npcSex[16] = 1 & girl += 1
-
-						lesbian += 1
-						!!pcs_horny = 0
-						!!orgasm += 1
-						natlesb += 1
-						!!natknee
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natlick.jpg"></center>'
-						'You force Natasha to undress you and then watch as she undresses herself before she returns to kneeling at your feet. You pull her face into your pussy and snarl at her, "Now lick!". Natasha fearfully starts to work.'
-
-						if natsub < 10:
-							'This useless cunt can''t even find your clitoris and only sluggishly works her mouth on your pussy without any enthusiasm.'
-
-							if pcs_dom >= 20 and NatDolg >= 500:
-								act 'Piss in her mouth':
-									*clr & cla
-									minut += 5
-									natsub += 1
-									pcs_dom += 1
-									NatDolg -= 500
-									natpee += 1
-									!!natknee
-									gs 'stat'
-									'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natpee.jpg"></center>'
-									'You are angry at this bitch so you release your urine in Natasha''s face. She closes her eyes and bows her head down but does not recoil and silently accepts your golden shower until the very end.'
-									
-									act 'Next':gt $curloc
-								end
-							else 
-								act 'Make her stop':
-									*clr & cla
-									minut += 5
-									pcs_horny -= 10
-									money -= 50
-									
-									gs 'stat'
-									$ImageNeededPlaceholder
-									'<center><img <<$set_imgh>> src="images/shared/food/icecreem.jpg"></center>'
-									'You get tired of her lackluster attempts to get you off, in fact, she is doing such a bad job that it is actually turning you off.'
-									'"You are hopeless. Here, go buy an icecream and practice licking. You''d better do better next time, bitch." You throw a 50 ruble note at her as she stops licking you.'
-									
-									act 'Next':gt $curloc
-								end
-							end
-						else
-							orgasm += 1
-							pcs_horny = 0
-							gs 'stat'
-							'Natasha enthusiastically goes to work on your pussy, using her mouth and tongue. She fucks you with her tongue then switches to sucking on your now engorged clitoris. You grab her head and roughly grind your pussy on her face as your orgasm rolls over your body.'
-						end
-
-						act 'Next':gt $curloc
-					end
-				end
-			
-				if hour >= 18 and hour < 21 and natsub >= 6 and natfuckday < daystart:
-					act 'Call your brother':
-						*clr & cla
-						minut += 15
-						natsub += 1
-						pcs_dom += 1
-						NatDolg -= 500
-						natbj += 1
-						natbro += 1
-						natfuckday = daystart
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natbj.jpg"></center>'
-					
-						'You call your brother and he quickly comes up to Natasha''s apartment. You briefly explain the situation to your brother.'
-						'"And you, bitch, you''re going to use that mouth of yours to make Kolka feel good, you got it?" You hiss at Natasha, grabbing her jaw and staring into her eyes.'
-						'Natasha jerkily nods and kneels at Kolka''s feet. She reaches up with trembling hands to unfasten Kolka''s pants and pulls out his semi-hard dick. She tentatively begins to lick it and after a moment takes the now fully hard shaft into her mouth. Kolka starts fucking her in the mouth.'
-
-						if natsub >= 10 and brotherSex > 0 and NatDolg > 0 and natbro > 0:
-							act 'Make her fuck your brother for 500':
-								*clr & cla
-								pcs_dom += 2
-								NatDolg -= 500
-								minut += 15
-								natsub += 1
-								natfuck += 1
-								npc_rel['A34'] += 5
-								gs 'stat'
-								'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natfuck.mp4"></video></center>'
-								'In a few minutes your brother is hard and panting, but you stop him, and pull away Natasha to whisper into her ear.'
-								'"I''ll forgive another 500 of your debt if you fuck him."'
-								'Natasha stares at you, then nods her head without a glance at Kolka, then she gets in doggie position. Still staring at you, she says "He can fuck me."'
-								'You smile at your brother, and playfully slap her very nice ass to incite him. "She is yours, bro. Fuck her hard!"'
-								'He pushes inside her pussy, insistently but patiently, then starts to fuck her fast and hard. As Natasha''s body moves with the thrusts, you lean forward and start kissing her.'
-								if natcp = 0:
-									'She responds eagerly, and you keep kissing until Kolka says, "I''m cumming!"'
-									'Natasha suddenly tries to pull away from Kolka, saying "Pull out, not inside! I don''t want to end up pregnant!"'
-								elseif natpregday > 0 and (daystart-natpregday) > 20 and (daystart-natpregday) < 84:
-									'Natasha looks at you questioningly, whether will you let him cum inside of her. It doesn''t seems to bother her that Kolka may knock her up.'
-								elseif natpregday > 0 and (daystart-natpregday) >= 84:
-									'Natasha looks at you questioningly, whether will you let him cum inside of her. It doesn''t really matter now, since Kolka has already knocked her up.'
-								elseif natpregday = 0 and npc_pregtalk['A16'] = 1 and natbabycount = 0:
-									'Natasha looks at you and almost inaudably whispers "Please let him cum inside me. I want a baby too."'
-								elseif natpregday = 0 and npc_pregtalk['A16'] = 1 and natbabycount > 0:
-									'Natasha looks at you and moans "Please let him cum inside me. I need him to give me another baby."'		
-								else
-									'Natasha looks at you questioningly, whether will you let him cum inside of her and risking her getting pregnant with your niece or nephew, or letting her pull away from you brother.'
-								end
-								if natsub >= 20 and pcs_dom > 20 and natcp > 0 and npc_pregtalk['A16'] = 0:
-									act 'Let him cum inside her':
-										cla
-										natcp += 1
-										natsub += 1
-										pcs_dom += 3
-										'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcp.mp4"></video></center>'
-										'You grab her head, and say to her, "He will not pull out. The deal was a fuck, so that''s what he gets."'
-										'She looks at you submissively then nods, just as Kolka groans and fills her womb with his semen.'
-										if rand(1,100) >= 93 and natpregday = 0:natpregday = daystart
-										gs 'stat'
-										act 'Next':gt $curloc
-									end
-								elseif natsub >= 20 and pcs_dom > 20 and natcp > 0 and npc_pregtalk['A16'] = 1:
-									act 'Let him cum inside her':
-										cla
-										natcp += 1
-										natsub += 1
-										pcs_dom += 3
-										'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcp.mp4"></video></center>'
-										'You grab her head and say, "That''s right, whore. Take his cum deep in your slutty pussy and get knocked up."'
-										'She looks at you joyfully as Kolka groans and fills her womb with his semen.'
-										if rand(1,100) >= 93 and natpregday = 0:natpregday = daystart
-										gs 'stat'
-										act 'Next':gt $curloc
-									end
-								end
-								if natsub >= 20 and pcs_dom > 30:
-									act 'Have Kolka fuck and cum in Natasha''s ass instead':
-										cla
-										natsub += 2
-										npc_rel['A34'] += 5
-										gs 'stat'
-										'<center><video autoplay loop src="images/shared/sex/anal/doggy/anal11.mp4"></video></center>'
-										'You tell your brother to stop moving, put a finger under her chin and look at her imperiously. "How would you like to get fucked in the ass by my brother?"'
-										''
-										if natanal = 0:
-											natanal += 1
-											pcs_dom += 3
-											'She whimpers. "But... but I''ve never had anal sex before."'
-											'Instead of dissuading you, her words cause you to smile cruelly. "Well, if you''d rather have Kolka cum inside your pussy and knock you up..."'
-											''
-											if natcp = 0:
-												'"No!", she cries, "no, please don''t! He... he can fuck my ass."'
-											elseif natcp >= 1:
-												'"I... I don''t know." She seems to be pondering back and forth. He''s come inside her before so the thought doesn''t scare her as much as it used to. Maybe she''s a little bit curious about anal too because after only a few more seconds, she nods. "I... I guess he can fuck my ass, if he wants to."'
-											end
-											''
-											'You are a little disappointed, actually. You expected her to resist more, especially when it was about popping her anal cherry, but Natasha was so used to being dominated by you that defying you never really was an option. Her debt to you was basically just a formality at this point.'
-											''
-											'Kolka lines his dick up with her puckered hole and pushes. Natasha''s cries of pain aside, it goes surprisingly well. Fast, too. Afterwards, you were wondering if it was Kolka''s first anal, too - it would explain why he was so rough and excited.'
-											'Tears are streaming down your girl toy''s face but she doesn''t protest beyond her sobs. She doesn''t have to hold out for long: The sex and tightness of her anus are too much for Kolka and he groans loudly as he cums in her ass for the first time.'
-											''
-											'You gently kiss Natasha''s tears away and gently speak to her, praise her, encourage her. By the time Kolka leaves, she''s stopped crying at least.'
-										
-										elseif natanal >= 1:
-											'"I... I guess he can fuck my ass again, if he wants to."'
-											'"Then ask him to", you order.'
-											'Natasha remains silent for a while. Even after quite a bit of humiliation by you and Kolka, she doesn''t seem all that comfortable with demeaning herself. There''s no doubt as to her submissive streak or her enjoyment of it, however. All she needs is a little nudge here and there.'
-											''
-											'"Please fuck my ass", she whispers, barely audible. You consider having her repeat it but that''s all the encouragement your brother needs: Before you know it, his well-lubricated dick is pushing against her sphincter, causing her to groan in pain.'
-											''
-											'It''s nowhere near as difficult as the first time he took her ass - perhaps because he''s also a little more experienced now than he was before. His movements are slow and gentle at first so she can get used to the cock in her ass.'
-											'And after a while, it sounds like she does - her groans more and more turn into soft coos of pleasure and when you kiss Natasha, she excitedly breathes into your mouth. As if on command, your brother picks up the pace. Caught between pain and pleasure, Natasha doesn''t try to escape his rough treatment but instead moves with him.'
-											'The sex before and the tightness of her anus soon prove too much for your younger brother and Natasha''s moans tell you that he''s cum into her ass.' 
-											''
-											'Natasha doesn''t even pretend to be unhappy with that.'
-										
-										
-										end
-										act 'Next': gt $curloc
-									end
-								end
-								act 'Let her pull away':
-									cla
-									if rand(0,9) = 0:
-										natcp += 1
-										'You let her pull away from your brother, but it appears Kolka was really close, and before anyone could do anything, your brother pumps his seed in Natasha''s body.'
-										'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcp.mp4"></video></center>'
-										'"Fuck, I really am sorry, Natasha!", he says apologetically. "It is just, you are so hot!"'
-										'Natalia doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
-										'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
-										if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
-									else
-										'You let her pull away from your brother, so that you brother''s dick slips out of her just in time. His seed sprays Natasha''s ass, back and hair, and it even reaches your face and hair.'
-										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natkolfacial.jpg"></center>'
-										'"Nice shot, bro!", you say laughing, wiping his seed away from your eyelid. "That was quite the distance!"'
-										'"That was close," whispers Nat, with a strange look in her face. You actually can''t decide whether she is relieved or disappointed that Kolka didn''t cum in her pussy.'
-										'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
-										gs 'boyStat', 'A34'
-										spafinloc = 11
-										sexpartkno = 1
-										gs 'cum_manage'
-										spafinloc = 16
-										sexpartkno = 1
-										gs 'cum_manage'
-									end
-									gs 'stat'
-									act 'Next':gt $curloc
-								end
-							end
-						end
-
-						act 'Continue':
-							*clr & cla
-							minut += 5
-						
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum50.jpg"></center>'
-						
-							'Kolka holds Natasha by the hair as he pistons his cock into her mouth rapidly. Natasha''s chin is covered with her drool and it is soaking the front of her shirt. With a grunt, Kolka pulls his dick from Natasha''s mouth and she automatically opens her mouth and sticks out her tongue. Kolka pumps his dick a few times then shoots his cum into Natasha''s waiting mouth.'
-							'"Swallow it, slut." You command, when Kolka is done, before Natasha can spit the sperm out.'
-							'Natasha grimaces but complies, swallowing Kolka''s load then opening her mouth to show that it is all gone.'
-					
-							act 'Next':gt $curloc
-						end
-					end	
-				end
-				if olufirst = 3 and oluuosegunday ! daystart:
-					act 'Take her to see Olu for 500':
-						oluuosegunday = daystart
-						gs 'boystat', 'A55'
-						*clr & cla
-						pcs_dom += 2
-						NatDolg -= 500
-						minut += 5
-						natsub += 1
-						natfuck += 1
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big16.jpg"></center>'
-						'You know you need to help out with Olu soon, but your ass is still too sore. Then you get a great idea, kill two birds with one stone. Have Natasha have sex with him, she owes you anyways, besides it might be fun to make the little bitch squeal.'
-						'"Since I know you don''t have my money, I have a way you can help me out and pay off some of that debt. We are going to see my Aunt''s boyfriend Olu, he has a massive... sex drive and she can''t keep up and I need a break too."'
-						'Natasha seems a little unsure about this and perhaps a bit confused but she nods her head, you smile to her and lead her across the hall to your Aunts place.'
-						act 'Introduce Olu':
-							*clr
-							cla
-							minut += 5
-							'<center><b><font color=maroon>Apartment Aunt</font></b></center>'
-							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/olu/olu.jpg"></center>'
-							'You take off your shoes and go straight to the living room, where you find Olu resting on the couch.'
-							'He looks at you, that perpetual smile still on his face. "Hi, <<$pcs_nickname>>! Who''s your friend?"'
-							'"Hello, Olu! This is my friend Natasha, she wants you to fuck her." You say to him, pointing at his crotch and then slapping Natasha on the ass. He seems to understand quickly and nods with a huge grin holding up the bottle of lube.'
-							'You glance at Natasha. "Well take off your clothes." She nods and does as you ask.'
-							act 'Undress Natasha':
-								*clr & cla
-								minut += 5
-								gs 'stat'
-								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/olu/sex/olu4.jpg"></center>'
-								'You can''t help but smile, when you glance over and see Olu already naked with his massive dick swinging. She looks up and catches sight of his huge dick and freezes looking at you with a slightly panicked look.'
-								'You smile at her. "Yep it''s huge I know, my ass needs a break and you need to pay me back so..." you trail off, it only takes a moment for Natasha to understand and then it hits her you said ass.'
-								'She squeaks a reply. "You want him to fuck me in the ass with that thing?" she says in disbelief.'
-								'"Yes I do, my ass could use a break and you owe me..."'
-								'After a moment she lowers her gaze and then nods her head. You pat her shoulder. "Good girl and it won''t be too bad, we have plenty of lube, wink, wink."'
-								act 'Let the fun begin':
-									*clr & cla
-									minut += 15
-									natanal += 1
-									pcs_horny += 10
-									Olu_pay += 1
-									gs 'stat'
-									'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/olu/sex/olunat.jpg"></center>'
-									'You help Natasha get undressed and then get her down on all fours in front of Olu, while he lubes up his dick and her ass, you get undressed as well. No reason he should have all the fun. You kneels down beside Natasha and grab her butt cheeks with your hands and spread them wide for Olu. Not needing any more invitation than that, she squeals loudly as his <<dick>>cm <<$dick_girth>> cock slides in her ass.'
-									'He starts fucking her slowly at first but you encourage him to go faster and deeper, pulling on her hips. You feel your pussy getting wet listening to Natasha cry out and watching the <<dick>>cm <<$dick_girth>> cock rip up her ass. You start rubbing your clit as you watch.'
-									'Getting up, you move to sit in front of Natasha and spread your legs, you pull her face to your pussy and she wastes no time and starts licking your pussy. You''re loving it, grinding your pussy into her face, her muffled cries as she eats you, while Olu pounds her ass. You keep encouraging Olu to fuck her harder. The more she squeals the more turned on you get. Before long you are cumming, apparently seeing this is a turn on for Olu as well. As he shoots his load deep in her ass with in a few moments of watching you cum.'
-									'Once you are dressed you help Natasha back to her apartment, as she seems to be having a little trouble walking. You feel a little bad for her. "You did great, it gets better I promise. Next time it won''t hurt as much, I promise." Then you give her a passionate kiss on the lips. She gives you a smile at that and nods her head and goes back into her apartment walking quite painfully.'
-
-									act 'Finish':gt 'pod_ezd','etaj_4'
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if npc_pregtalk['A16'] = 0 and kid = 0:
-	if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregchem >= 3600:
-		*clr & cla
-		gs 'stat'
-		'"<<$pcs_nickname>>, are you pregnant, too? Well, I guess I don''t have to worry about being the only pregnant girl at school," she giggles.'
-
-		act 'Next':gt 'NatBelhome', 'natknows'
-	elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
-		act 'Tell her you''re pregnant':
-			*clr & cla
-			'"If you were worried about being the only pregnant girl at school, that won''t be a problem anymore." You smirk while rubbing your midriff. "It looks like I got myself knocked up as well."'
-			'Natasha smiles at you excitedly. "Really? Congratulations!"'
-			*nl
-			act 'Next':gt 'NatBelhome', 'natknows'
-		end
-	elseif pregchem > 0 and knowpreg = 1 and natsub = 0 and (daystart-natpregday) < 84:
-		act 'Tell her you''re pregnant':
-			cla
-			*nl
-			'"<<$pcs_nickname>>, you''re," she pauses momentarily before continuing in a tone of shock mixed with disgust, "pregnant? Have you been sleeping around? This will definitely impact your studies."'
-			act 'Continue' :gt 'NatBelhome'
-			npc_pregtalk['A16'] = 1
-		end
-	elseif pregchem > 0 and knowpreg = 1 and natsub > 0 and (daystart-natpregday) < 84:
-		act 'Tell her you''re pregnant':
-			cla
-			*nl
-			'"You''re pregnant? Who''s the father?"'
-			*nl
-			if $wombthfath = '':
-				'"Honestly, I don''t even know."'
-				'"Really? That''s crazy." Natasha whispers, rubbing her midriff longingly.'
-				act 'Continue' :gt 'NatBelhome'
-				npc_pregtalk['A16'] = 1
-			else
-				'You tell her that <<$wombthfath>> is the father and then give her brief details as to how you got pregnant, without getting too explicit.'
-				*nl
-				'"Really? That''s crazy." Natasha whispers, rubbing her midriff longingly.'
-				act 'Continue' :gt 'NatBelhome'
-				npc_pregtalk['A16'] = 1
-			end
-		end
-	end
-end
-
-if npc_pregtalk['A16'] = 0 and kid > 0:
-	if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregchem >= 3600:
-		*clr & cla
-		gs 'stat'
-		'"Wow, <<$pcs_nickname>>, you''re pregnant again? You''re really committed to making sure I''m not the only young mother around here, huh?" She playfully smiles and puts a hand on your shoulder. "It''s good to know you''re looking out for me."'
-
-		act 'Next':gt 'NatBelhome', 'natknows1'
-	elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
-		act 'Tell her you''re pregnant':
-			*clr & cla
-			'"Hey, guess who''s pregnant again. You know, I''m glad I forced you to let Kolka impregnate you so that I could have someone I can relate to."'
-			'Natasha stares at you for a moment, stunned, trying to determine if the second half of your statement was a joke, before the first half clicks in her mind. "Oh my God, that''s wonderful!" she exclaims as she throws her arms around you and hugs you. When she finally lets go, she asks'
-			*nl
-			act 'Next':gt 'NatBelhome', 'natknows1'
-		end
-	elseif pregchem > 0 and natsub = 0 and knowpreg = 1:
-		act 'Tell her you''re pregnant':
-			*clr & cla
-			*nl
-			'"Really? You''re pregnant again? You should really try to be more careful."'
-			act 'Continue' :gt 'NatBelhome'
-			npc_pregtalk['A16'] = 1
-		end
-	elseif pregchem > 0 and natsub > 0 and (daystart-natpregday) < 84 and knowpreg = 1:
-		act 'Tell her you''re pregnant':
-			*clr & cla
-			*nl
-			'"You got pregnant again. It must be wonderful…" She trails off, clearly envious.'
-			act 'Continue' :gt 'NatBelhome'
-			npc_pregtalk['A16'] = 1
-		end
-	end
-end
-
-if $ARGS[0] = 'natknows':
-	cla
-	npc_pregtalk['A16'] = 1
-	if pav_slut < 125: '"So, who''s the father?"'
-	if pav_slut >= 125: '"So, do you know who the father is?"'
-	*nl
-	if $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
-		'You smile. "I''m sure you won''t be surprised to hear Kolka got me pregnant."'
-		'"Wow. He really has a thing for knocking girls up," she says touching her own pregnant belly. "I didn''t expect him to extend that to his own sister, though."'
-		'"Yeah, you know how it is. Some men just want to conquer as many wombs as they can, It doesn''t matter who they''re attached to," you reply. "But don''t worry, he still has a permanent claim on yours. We''ll make sure he has plenty of opportunities to keep getting you pregnant. Who knows how many of his children you''ll have before he''s finished."'
-		'Natasha''s face goes completely red with embarrassment and she starts to mumble something before you cut her off with a passionate kiss. When you finally break the kiss, she is still visibly red, but she isn''t protesting your suggestion. You know what she wants.'
-	elseif $wombthfath = '':
-		'"I don''t actually know." You laugh. "I guess my life has gotten a little out of hand recently."'
-		'"Yeah, it sounds like it has." She smiles. "Regardless, I''m glad I won''t be going through pregnancy alone."'
-	else
-		'"It looks like I got knocked up by <<$wombthfath>>"'
-		'"Well, I hope for the best for both of you. After our babies are both born, we should start setting up play dates." She pauses for a moment before adding "Honestly, I''m really glad I won''t be going through this alone."'
-	end
-	act 'Continue':gt 'NatBelhome'	
-end
-
-!When pregnancy fetish is added, another reaction will be added here
-if $ARGS[0] = 'natknows1':
-	cla
-	npc_pregtalk['A16'] = 1
-	if pav_slut < 125: '"Is it the same father as last time?"'
-	if pav_slut >= 125: '"Do you know if it''s the same father as last time?"'
-	*nl
-	if $wombthfath = 'Kolka' and npc_rel['A34'] > 50 and arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
-		'"Yeah, I think you’re right. I’m not sure if I’ll let him get me pregnant again after this though." You pull your face as close to Natasha’s as you can without actually touching her and sultrily whisper, "You, on the other hand, are going to be his personal breeding bitch. There won’t be a single moment where your womb doesn’t contain either his baby or his cum. He is going to keep you knocked up until he gets bored of you and leaves you a single mother."'
-		'As soon as you finish speaking you give Natasha a deep, passionate kiss. You pull away, a string of saliva still hanging between you. Natasha just stares at you, unable to respond, but very visibly aroused.'
-	elseif arrpos('$ChildThFath','Kolka') = arrsize('$ChildThFath')-1:
-		'"Not this time. My body is far too fantastic to limit myself. My brother can''t be the only person to put a baby in me," you joke. "Plus, he already has a baby factory. That''s your job." You punctuate your sentence by kissing Natasha. After you pull away, she stares at you in silence, face red, trying to determine if you were serious.'
-	elseif $wombthfath = 'Kolka' and npc_rel['A34'] > 50 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1:
-		'"No, this time it''s Kolka''s," you inform her.'
-		'"Wow. He really has a thing for knocking girls up," she says.'
-		'"Yeah, it seems like he does," you reply. "But don''t worry, we''ll make sure he has plenty of opportunities to keep getting you pregnant. Who knows how many of his children you''ll have before he''s finished."'
-		'Natasha''s face goes completely red with embarrassment and she starts to mumble something before you cut her off with a passionate kiss. When you finally break the kiss, she is still visibly red, but she isn''t protesting your suggestion. You know what she wants.'
-	elseif $wombthfath ! 'Kolka' and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
-		'"Yeah. I guess I needed him to give me another baby before I could be satisfied," you jest.' 
-		'"Well, I hope you find satisfaction," she laughs.'
-	elseif $wombthfath ! 'Kolka' and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
-		'"No, I needed to test drive someone else before I could decide what father I like best."'
-		'"If you''re going that route, you might as well keep shopping around." You laugh together for a while before moving on to another topic.'
-		end
-	act 'Continue':gt 'NatBelhome'	
-end
-
-act 'Go home':gt 'pod_ezd','etaj_4'
-
---- NatBelHome ---------------------------------
-

+ 0 - 23
locations/NatBelVhod.qsrc

@@ -1,23 +0,0 @@
-# NatBelVhod
-
-CLOSE ALL
-menu_off = 1
-*clr & cla
-
-if BeInNatBelHome = 0:BeInNatBelHome = 1
-gs'stat'
-
-act 'Leave':gt'pod_ezd','etaj_4'
-if kanikuli = 0 and hour > 6 and hour < 15 and week < 6:
-	'You knock on the door, but nobody answers.'
-elseif hour > 20 :
-	'It''s too late in the day to visit.'
-elseif hour < 8:
-	'It''s too early in the day to visit.'
-else
-	'You knock on the door. Natasha answers and invites you in.'
-	act 'Go into the apartment':gt'NatBelHome'
-end
-
---- NatBelVhod ---------------------------------
-

+ 23 - 23
locations/ParChurch2.qsrc

@@ -835,13 +835,13 @@ if $ARGS[0] = 'mast':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/mast2.jpg"></center>'
 		'You start rubbing your clit as the priest watches you, after a few moments he starts to pray, but his eyes never leave your pussy. The more you rub your pussy the louder he starts to pray.'
-		gs 'arousal', 'mast', 5, 'exhibitionism'
+		gs 'arousal', 'masturbate', 5, 'exhibitionism'
 		gs 'stat'
 		act 'Keep masturbating':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/mast3.jpg"></center>'
 			'As you start to really get in a rhythm and begin to moan he says. "Lord forgive her of her sins, cleans her soul with your divine love." He continues to pray as you keep masturbating.'
-			gs 'arousal', 'mast', 5, 'exhibitionism'
+			gs 'arousal', 'masturbate', 5, 'exhibitionism'
 			gs 'stat'
 			act 'Orgasm':
 				*clr & cla
@@ -849,7 +849,7 @@ if $ARGS[0] = 'mast':
 				'You feel yourself getting close to orgasming. Apparently the father can tell or just guessed. "Yes you must purge this lust from your body, let it all out before God."'
 				$orgasm_or = 'yes'
 				$orgasm_txt = 'Then your body is wracked by a powerful orgasm, you feel your whole body shaking from the spasms.'
-				gs 'arousal', 'mast', 5, 'exhibitionism'
+				gs 'arousal', 'masturbate', 5, 'exhibitionism'
 				gs 'arousal', 'end'
 				gs 'stat'
 				killvar '$orgasm_txt'
@@ -871,25 +871,25 @@ if $ARGS[0] = 'hj':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/hj1.jpg"></center>'
 	'He directs you to kneel on the floor and you do as you are told. Then he frees his dick from his pants, you can see it is already hard and says. "Now take my penis into your hands."'
 	'You do as he asks and take his cock into your hand, you full it''s hardness as you begin to stroke it.'
-	gs 'arousal', 'hj', 3, 'unknown'
+	gs 'arousal', 'hj', 3
 	gs 'stat'
 	act 'Stroke him':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/hj2.jpg"></center>'
 		'You feel it grow slightly more in your hand, you stroke the full length of his <<dick>>cm <<$dick_girth>> cock with your hand. He moans and prays for your soul and for god to take away your sin. "Please lord release this child from the lust she is consumed by."'
-		gs 'arousal', 'hj', 5, 'unknown'
+		gs 'arousal', 'hj', 5
 		gs 'stat'
 		act 'Keep stroking it':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/hj3.jpg"></center>'
 			'As you keep stroking him he gets louder in his prayers. "Yes Lord, I feel your presence, let her lust be taken from her, leaving behind nothing but pureness again."'
-			gs 'arousal', 'hj', 5, 'unknown'
+			gs 'arousal', 'hj', 5
 			gs 'stat'
 			act 'On the face':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/hj4.jpg"></center>'
 				'As you keep stroking him he says. "Forgive us your children for our sins." With that cum starts spurting from his dick, mostly hitting you in the face as you keep stroking him until it finally stops.'
-				gs 'arousal', 'hj', 5, 'unknown'
+				gs 'arousal', 'hj', 5
 				gs 'cum_call', 'face', 'A166'
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -917,19 +917,19 @@ if $ARGS[0] = 'bj':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/bj2.jpg"></center>'
 		'You do as he tells you and open your mouth. Once your mouth is fully open he slides his <<dick>>cm <<$dick_girth>> dick into your mouth and you close your lips around it. He lets out a moan which turns into a moaning prayer. "Oh heavily father forgive the sins of this child." He says as he starts to slowly and gently fuck your mouth.'
-		gs 'arousal', 'bj', 5, 'unknown'
+		gs 'arousal', 'bj', 5
 		gs 'stat'
 		act 'Keep sucking':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/bj3.jpg"></center>'
 			'As you suck his cock you can feel his hand go to the back of your hand, you can feel his restraint as he keeps himself for forcing himself down your throat, allowing you to guide the action. While you suck him he gets louder in his prayers. "Yes Lord I feel your presence, let her lust be taken from her, leaving behind nothing but pureness again."'
-			gs 'arousal', 'bj', 5, 'unknown'
+			gs 'arousal', 'bj', 5
 			gs 'stat'
 			act 'Suck him off':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/cum.jpg"></center>'
 				'As you suck his cock he prays more. "Forgive us, your children, for our sins." With that pulls his dick out of your mouth just in time for cum to start spurting from his dick, mostly hitting you in the face until it finally stops.'
-				gs 'arousal', 'bj', 5, 'unknown'
+				gs 'arousal', 'bj', 5
 				gs 'cum_call', 'face', 'A166'
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -951,45 +951,45 @@ if $ARGS[0] = 'sex':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/foreplay2.jpg"></center>'
 	'He stands up and gently pushes you against the wall. His hands roam your body, slowly removing your clothes until your breasts are exposed and his hand is rubbing your clit. "We must purge the lust from your body and banish your sexual desires." As he says that you feel one of his fingers slide inside of your wet pussy, he slowly fucks you with one finger before adding a second.'
-	gs 'arousal', 'vaginal_finger', 5, 'unknown'
+	gs 'arousal', 'vaginal_finger', 5
 	gs 'stat'
 	act 'Open to purging':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/foreplay3.jpg"></center>'
 		'Once you are nice and wet from the fingering he drops down to his knees and places his face between your legs, as you lean back against the wall. He begins to eagerly lick at you clit and pussy, causing you to moan in pleasure. After several minutes he stops and stands back up and ask you. "Kneel my child."'
-		gs 'arousal', 'cuni', 5, 'unknown'
+		gs 'arousal', 'cuni', 5
 		gs 'stat'
 		act 'Kneel':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/foreplay4.jpg"></center>'
 			'As you kneel down he pulls his dick out of his pants, it is already hard, but he strokes it several times as he says. "Open your mouth my child."'
-			gs 'arousal', 'mast', 5, 'unknown'
+			gs 'arousal', 'masturbate', 5
 			gs 'stat'
 			act 'Open your mouth':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/bj2.jpg"></center>'
 				'You open your mouth, once it is fully open he slides his dick in and you close your lips around his shaft. Slowly and steadily, you start to suck him off. He lets out a moan which turns into a moaning prayer. "Oh heavily father, forgive the sins of this child."'
 				'After a few minutes of sucking his dick he pulls it out of your mouth. "Undress and lean forward, placing your hands on the ground."'
-				gs 'arousal', 'bj', 5, 'unknown'
+				gs 'arousal', 'bj', 5
 				gs 'arousal', 'end'
 				gs 'stat'
 				act 'Undress and bend over':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/sex1.jpg"></center>'
 					'You remove all your clothes as he watches, stroking his dick with one hand. Once you are fully naked on your knees you lean forward until your hands touch the floor. Father Kirill kneels down behind you, he rubs your pussy a few times with his fingers at first. Then you feel the head of is dick rubbing against your wet slit, he gently pushes it into you. You both moan as his <<dick>>cm <<$dick_girth>> dick slides into you. He begins to gentle fuck you, holding onto your hips with one hand.'
-					gs 'arousal', 'vaginal', 5, 'unknown'
+					gs 'arousal', 'vaginal', 5
 					gs 'stat'
 					act 'Have the sin fucked out of you':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/sex2.jpg"></center>'
 						'He starts fucking you a bit harder but then slows down to a slower, steady pace. "Forgive us, your children, for our sins." He prays as he fucks you steadily. Several minutes goes by and then he suddenly pulls out of you. "Rise," He says.'
-						gs 'arousal', 'vaginal', 5, 'unknown'
+						gs 'arousal', 'vaginal', 5
 						gs 'stat'
 						act 'Rise up':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/cum.jpg"></center>'
 							'As you get off your hands to rise into a kneeling position he stands up with his pants still around his ankles. You turn your face toward him right into him stroking his cock, just as a blast of cum hits you right in the face, followed by several more, coating most of your face in his cum.'
-							gs 'arousal', 'vaginal', 5, 'unknown'
+							gs 'arousal', 'vaginal', 5
 							gs 'cum_call', 'face', 'A166'
 							gs 'arousal', 'end'
 							gs 'stat'
@@ -1020,27 +1020,27 @@ if $ARGS[0] = 'anal':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/anal2.jpg"></center>'
 		'You do as he tells you and open your mouth. Once your mouth is fully open, he slides his dick in and you close your lips around it. He lets out a moan which turns into a moaning prayer. "Oh heavily father forgive the sins of this child." He says as he starts to slowly and gently fuck your mouth.'
-		gs 'arousal', 'bj', 5, 'unknown'
+		gs 'arousal', 'bj', 5
 		gs 'stat'
 		act 'Keep sucking':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/anal1.jpg"></center>'
 			'As you suck his cock you can feel his hand go to the back of your head. You can feel his restraint as he keeps himself for forcing himself down your throat, allowing you to guide the action. While you suck him he gets louder in his prayers. "Yes Lord I feel your presence, let her lust be taken from her, leaving behind nothing but pureness again."'
 			'He pulls his dick from your mouth and walks over to his desk. "Please bend over the bench, we must now purge the sin of sodomy from you." He says as he begins to apply lubrication to his dick as he walks back over to you. You have no idea why a priest has lubrication, but you''re glad he does.'
-			gs 'arousal', 'bj', 3, 'unknown'
+			gs 'arousal', 'bj', 3
 			gs 'stat'
 			act 'Bend over':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/anal3.jpg"></center>'
 				'Once you are bent over he applies some lube to your anus and rubs it in with his fingers. He presses the head of his dick against your asshole, you feel the pressure build up until the tip pops into your ass, causing you to cry out slightly in a little pain and pleasure. He pauses a moment to let you get use to it before he slowly and gently begins fucking your ass with his <<dick>>cm <<$dick_girth>> dick.'
 				gs 'pain', 1, 'asshole', 'stretch'
-				gs 'arousal', 'anal', 5, 'unknown'
+				gs 'arousal', 'anal', 5
 				gs 'stat'
 				act 'It''s starting to feel good':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/anal4.jpg"></center>'
 					'As he gently fucks your ass he prays. "Lord help me guide this lost lamb back from the sins of sodomy and into your loving light once more." As he gets into it, he starts to fucking a little harder and faster, but each time he notices any discomfort from you, he slows down once more.'
-					gs 'arousal', 'anal', 5, 'unknown'
+					gs 'arousal', 'anal', 5
 					gs 'stat'
 					act 'Yes, Father':
 						*clr & cla
@@ -1048,14 +1048,14 @@ if $ARGS[0] = 'anal':
 						'It starts feeling good and you start moaning louder and louder in pleasure. "Yes, Father! Fuck my ass," You tell him.'
 						'"Lord forgive her, for she knows not what she says," He says loudly as he keeps fucking your ass with renewed vigor after hearing you moan in pleasure.'
 						'After a few minutes he suddenly pulls out of your ass and urgently says. "Turn around and kneel."'
-						gs 'arousal', 'anal', 5, 'unknown'
+						gs 'arousal', 'anal', 5
 						gs 'arousal', 'end'
 						gs 'stat'
 						act 'Turn around and kneel':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/sex/anal6.jpg"></center>'
 							'You turn around, kneeling and opening your mouth. Your knees barely touch the floor before spurts of cum start splattering on your face. Most of his cum ends up on your face but a little ends up in your mouth. He groans out as he squeezes the last drop of cum from his cock. "God forgive us for our sins."'
-							gs 'arousal', 'anal', 5, 'unknown'
+							gs 'arousal', 'anal', 5
 							gs 'cum_call', 'face', 'A166'
 							gs 'arousal', 'end'
 							gs 'stat'

+ 77 - 91
locations/fight.qsrc

@@ -80,56 +80,84 @@ if $ARGS[0] = 'result_check':
 	gt 'fight', 'main'
 end
 
-if $ARGS[0] = 'opponent':
-	if opp_magik > 0: gs 'fight', 'opp_spellcast'
-	if rand(0,opp_kick[0]) > 40:
-		'Your opponent attempts a kick!'
-		*nl
-		if opp_kick[0] + rand(0,30) > pcs_react / 4 + 3 * pcs_agil / 4:
-			opp_strike = opp_stren[0] * rand(3,4) / 15
-			pcs_health -= opp_strike
-			if opp_strike > 10:
-				'They hit you and you reel in pain.'
-			else
-				'Its a glancing blow, but still hurts.'
-			end
+!! Kick
+$AttackType[0] = 'Kick'
+$AttackSkill[0] = 'kick'
+AttackMin[0] = 3
+AttackMax[0] = 4
+AttackTime[0] = 40
+!! Hard Punch
+$AttackType[1] = 'Hard Punch'
+$AttackSkill[1] = 'punch'
+AttackMin[1] = 2
+AttackMax[1] = 3
+AttackTime[1] = 30
+!! Jab
+$AttackType[2] = 'Jab'
+$AttackSkill[2] = 'jab'
+AttackMin[2] = 1
+AttackMax[2] = 2
+AttackTime[2] = 15
+
+!!{Attack a target
+	$ARGS[0] = Attack Type
+	$ARGS[1] = Target Type
+	 ARGS[2] = Which target
+	 ARGS[3] = Which Attacker
+}
+$fight['Attack'] = {
+	$fightAtk['Type'] = $ARGS[0]
+	$fightAtk['TargetType'] = $ARGS[1]
+	fightAtk['TargetNumber'] = ARGS[2]
+	fightAtk['AttackerNumber'] = ARGS[3]
+
+	if $fightAtk['TargetType'] = 'opp':
+		$fightAtk['AttackerType'] = 'pcs'
+		$fightAtk['AttackerPronoun'] = 'You'
+		$fightAtk['TargetPronoun'] = 'They'
+	else
+		$fightAtk['AttackerType'] = 'opp'
+		$fightAtk['AttackerPronoun'] = 'They'
+		$fightAtk['TargetPronoun'] = 'You'
+	end
+
+	fightAtk['Type'] = arrpos('$AttackType',$fightAtk['Type'])
+	fightAtk['AttackerSkillValue'] = dyneval("result = <<$fightAtk['TargetType']>>_<<$AttackSkill[fightAtk['Type']]>>[<<fightAtk['TargetNumber']>>]")
+	fightAtk['TargetReactValue'] = dyneval("result = <<$fightAtk['TargetType']>>_react[<<fightAtk['AttackerNumber']>>]")
+	fightAtk['TargetAgilValue'] = dyneval("result = <<$fightAtk['TargetType']>>_agil[<<fightAtk['TargetNumber']>>]")
+	fightAtk['MinDamage'] = AttackMin[fightAtk['Type']]
+	fightAtk['MaxDamage'] = AttackMax[fightAtk['Type']]
+
+	'<<$fightAtk["AttackerPronoun"]>> attempts a <<$fightAtk["Type"]>>!'
+	*nl
+	if fightAtk['AttackerSkillValue'] + rand(0,30) > fightAtk['TargetReactValue'] / 4 + 3 * fightAtk['TargetAgilValue'] / 4:
+		!!Calculate Damage
+		dynamic "fightAtk['Damage'] = <<$fightAtk['AttackerType']>>_stren[<<fightAtk['AttackerNumber']>>] * rand(<<fightAtk['MinDamage']>>,<<fightAtk['MaxDamage']>>) / 15"
+		!!Apply Damage
+		dynamic "<<$fightAtk['TargetType']>>_health -= fightAtk['Damage']"
+		if fightAtk['Damage'] > 10:
+			'The hit is hard and <<$fightAtk["TargetPronoun"]>> reel in pain.'
 		else
-			'You avoid the blow.'
+			'Its a glancing blow, but still hurts.'
 		end
-		opp_timer += 40
-		act 'Next': gt 'fight', 'main'
+	else
+		'<<$fightAtk["TargetPronoun"]>> avoid the blow.'
+	end
+	dynamic "<<$fightAtk['AttackerType']>>_timer += AttackTime[fightAtk['Type']]"
+	act 'Next': gt 'fight', 'main'
+
+	killvar 'fightAtk'
+	killvar '$fightAtk'
+}
+
+if $ARGS[0] = 'opponent':
+	if opp_magik[0] > 0: gs 'fight', 'opp_spellcast'
+	if rand(0,opp_kick[0]) > 40:
+		dynamic $fight['Attack'], 'Kick', 'pcs', 0, 0
 	elseif rand(0,opp_punch[0]) > 40:
-		'Your opponent attempts a strong punch!'
-		*nl
-		if opp_punch[0] + rand(0,30) > pcs_react / 4 + 3 * pcs_agil / 4:
-			opp_strike = opp_stren[0] * rand(2,3) / 15
-			pcs_health -= opp_strike
-			if opp_strike > 6:
-				'They punch you with real power.'
-			else
-				'Its a glancing blow, but still hurts.'
-			end
-		else
-			'You avoid the blow.'
-		end
-		opp_timer += 30
-		act 'Next': gt 'fight', 'main'
+		dynamic $fight['Attack'], 'Hard Punch', 'pcs', 0, 0
 	else
-		'Your opponent attempts a light!'
-		*nl
-		if opp_jab[0] + rand(0,30) > pcs_react / 4 + 3 * pcs_agil / 4:
-			opp_strike = opp_stren[0] * rand(1,2) / 15
-			pcs_health -= opp_strike
-			if opp_strike > 4:
-				'The jab hits home and stings.'
-			else
-				'They barely hit you.'
-			end
-		else
-			'You avoid the blow.'
-		end
-		opp_timer += 15
-		act 'Next': gt 'fight', 'main'
+		dynamic $fight['Attack'], 'Jab', 'pcs', 0, 0
 	end
 end	
 
@@ -137,57 +165,15 @@ if $ARGS[0] = 'player':
 	if pcs_magik > 0: gs 'fight', 'spellcast'
 
 	act 'Kick them':
-		'You attempts a kick!'
-		*nl
-		if pcs_kick + rand(0,30) > opp_react[0] / 4 + 3 * opp_agil[0] / 4:
-			pcs_strike = pcs_stren * rand(3,4) / 15
-			opp_health -= pcs_strike
-			if pcs_strike > 10:
-				'You hit them and they reel in pain.'
-			else
-				'Its a glancing blow, but still hurts them.'
-			end
-		else
-			'They avoid the blow.'
-		end
-		pcs_timer += 40
-		act 'Next': gt 'fight', 'main'
+		dynamic $fight['Attack'], 'Kick', 'opp', 0, 0
 	end
 
 	act 'Hard punch':
-		'Your opponent attempts a strong punch!'
-		*nl
-		if pcs_punch + rand(0,30) > opp_react[0] / 4 + 3 * opp_agil[0] / 4:
-			pcs_strike = pcs_stren * rand(2,3) / 15
-			opp_health -= pcs_strike
-			if pcs_strike > 6:
-				'You punch them with real power.'
-			else
-				'Its a glancing blow, but still hurts them.'
-			end
-		else
-			'They avoid the blow.'
-		end
-		pcs_timer += 30
-		act 'Next': gt 'fight', 'main'
+		dynamic $fight['Attack'], 'Hard Punch', 'opp', 0, 0
 	end
 
 	act 'Jab them':
-		'Your opponent attempts a light!'
-		*nl
-		if pcs_jab + rand(0,30) > opp_react[0] / 4 + 3 * opp_agil[0] / 4:
-			pcs_strike = pcs_stren * rand(1,2)/15
-			opp_health -= pcs_strike
-			if pcs_strike > 4:
-				'Your jab hits home and stings them.'
-			else
-				'You barely hit them.'
-			end
-		else
-			'They avoid the blow.'
-		end
-		pcs_timer += 15
-		act 'Next': gt 'fight', 'main'
+		dynamic $fight['Attack'], 'Jab', 'opp', 0, 0
 	end
 end	
 

+ 4 - 4
locations/gschool_lessonsev1.qsrc

@@ -625,8 +625,8 @@ if $ARGS[0] = 'computer':
 			if $pantyworntype = 'none' and analplugin = 0:	
 				gs 'exhibitionism', 2
 				gs 'fame', 'pav', 'sex', 2
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
-				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
+				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			elseif $pantyworntype = 'none' and analplugin = 1:	
 				gs 'exhibitionism', 3
 				gs 'fame', 'pav', 'sex', 3			
@@ -638,8 +638,8 @@ if $ARGS[0] = 'computer':
 			else				
 				gs 'exhibitionism', 1
 				gs 'fame', 'pav', 'sex', 1
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
-				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
+				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			end
 			act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 		elseif scooltiperand = 3:

+ 9 - 0
locations/natbelapt.qsrc

@@ -538,6 +538,15 @@ if $ARGS[0] = 'natroom':
                 end
 			end
 		end
+		if NatashaQW = 1:
+			*nl
+			nattimeleft = NatDolgDay - daystart
+			if nattimeleft <= 0:
+				'Natasha has promised to pay you back in <<nattimeleft>> day(s).'
+			else
+				'Natasha promised to pay you back by now, maybe you should talk to her about it.'
+			end
+		end
 	elseif NatashaShower = 1 and NatashaLoc ! 2:
 		*clr & cla
 		menu_off = 1