[changed] Sveta's belief that she is a virgin is now stored in the variable stat['virgin'] with value of 1 meaning she thinks she is a virgin. Physical virginity is still using pcs_vag = 0 for her having a hymen.

[fixed] This means the clinic virginity checks can work correctly taking Sveta's virginity or believed virginity in to account as required.

locations/BDsex.qsrc

@@ -579,7 +579,7 @@ if $ARGS[0] = 'org':
 		'It is your time of the month and, as his member rams into you, vaginal blood flows slowly around his girth. Painful sensations and pleasure mix. You moan while his strong <<dick>> centimeter dick fucks your pussy.'
 		$orgasm_or = 'no'
 		gs 'stat'
-	elseif mesec <= 0 and pcs_vag > 0:
+	elseif mesec <= 0 and stat['virgin'] = 0:
 		!!no monthly
 		!!horny - excitement
 		!!pcs_vag - the elasticity of the vagina
@@ -692,7 +692,7 @@ if $ARGS[0] = 'org':
 		end
 
 		if pcs_vag <= dick:pcs_vag += 1
-	elseif pcs_vag = 0 and mesec <= 0:
+	elseif stat['virgin'] = 1 and mesec <= 0:
 		pcs_mood -= 15
 		'You bite your lip in pain and tears gush from your eyes when <<$boydesc>> enters you, breaking your hymen. You moan while weeping as his strong <<dick>> centimeter dick fucks your bloody pussy.'
 		gs 'arousal', 'vaginal', 5, 'sub', 'rough'

locations/BurgerTip.qsrc

@@ -130,7 +130,7 @@ if $ARGS[0] = 'work':
 					
 					act 'Suck his dick': gt 'BurgerTip', 'bj'
 					
-					if pcs_vag > 0 or pcs_ass > 0:
+					if stat['virgin'] = 0 or pcs_ass > 0:
 						act 'Have sex':
 							*clr&cla
 							gs 'stat'
@@ -611,7 +611,7 @@ if $ARGS[0] = 'bj':
 	
 	if wantrand = 3:
 		'After a short time, Anatoly takes his cock from your mouth and says, "<<$pcs_nickname>>, I want all of you."'
-		if pcs_vag > 0 or pcs_ass > 0:
+		if stat['virgin'] = 0 or pcs_ass > 0:
 			act 'Bend over the desk': gt 'BurgerTip', 'bend'
 		else
 			'Wait! You''ve never had sex before!'
@@ -621,7 +621,7 @@ if $ARGS[0] = 'bj':
 		end
 	elseif wantrand = 2:
 		'After a short time, Anatoly groans, "<<$pcs_nickname>> if you keep sucking, I''m going to finish"'
-		if pcs_vag > 0 or pcs_ass > 0: act 'Bend over the desk': gt 'BurgerTip', 'bend'
+		if stat['virgin'] = 0 or pcs_ass > 0: act 'Bend over the desk': gt 'BurgerTip', 'bend'
 		act 'Finish him by hand': gt 'BurgerTip', 'bj_cum'
 		act 'Continue to suck': gt 'BurgerTip', 'bj2'
 	elseif wantrand < 2:

locations/FedorEv2.qsrc

@@ -386,7 +386,7 @@ if $ARGS[0] = 'Home':
 					gs 'arousal', 'bj', 5, 'dom'	
 					gs 'stat'						
 
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'Tell him you''re a virgin': gt 'FedorEv2', 'Virgin Sex'	
 					else
 						act 'Spread your legs': gt 'FedorEv2', 'Vaginal Sex'
@@ -403,7 +403,7 @@ if $ARGS[0] = 'Home':
 					gs 'arousal', 'cuni', 5, 'dom'
 					gs 'stat'						
 					
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'Tell him you''re a virgin': gt 'FedorEv2', 'Virgin Sex'			
 					else
 						act 'Let him enter you': gt 'FedorEv2', 'Vaginal Sex'

locations/Katja_Tanga.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'secretroom':
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tanga4_10.jpg"></center>'
 			'After a few minutes of teasing her nipples, you kiss your way down to her stomach, pulling off her skirt as you do. Your lips descend down her body and you begin kissing and teasing her clit with your tongue. You pull her down and gentle push her down on her back. Once she''s comfortable, you slide two of your fingers into her wet pussy and begin to finger fuck her. She moans in pleasure she squeezes her breasts firmly in her hands.'
 			!!The requirements here are to make sure you own a dildo and that neither you or Katja has a hymen, since the scene does not acount for that possibility.
-			if (middildo = 1 or dildo = 1 or largedildo = 1 or bigdildo = 1 or extradildo = 1 or superdildo = 1 or maddildo = 1) and pcs_vag > 0 and npc_vag['A14'] > 0:
+			if (middildo = 1 or dildo = 1 or largedildo = 1 or bigdildo = 1 or extradildo = 1 or superdildo = 1 or maddildo = 1) and stat['virgin'] = 0 and npc_vag['A14'] > 0:
 				act 'Get dildo':
 					if dildonumber > 0:
 						gs 'boyStat', 'D<<dildonumber>>'

locations/Komp.qsrc

@@ -1271,23 +1271,17 @@ if $ARGS[0] = 'waitclients':
 			gs 'stat'
 			if analplugIN = 1:
 				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore19.jpg"></center>'
-			end
-			if pcs_vag = 0 and analplugIN = 0:
+			elseif pcs_vag = 0:
 				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore18.jpg"></center>'
-			end
-			if pcs_vag > 0 and pcs_vag <= 10 and analplugIN = 0:
+			elseif pcs_vag <= 10:
 				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore13.jpg"></center>'
-			end
-			if pcs_vag > 10 and pcs_vag <= 15 and analplugIN = 0:
+			elseif pcs_vag <= 15:
 				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore14.jpg"></center>'
-			end
-			if pcs_vag > 15 and pcs_vag <= 25 and analplugIN = 0:
+			elseif pcs_vag <= 25:
 				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore15.jpg"></center>'
-			end
-			if pcs_vag > 25 and pcs_vag <= 35 and analplugIN = 0:
+			elseif and pcs_vag <= 35:
 				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore16.jpg"></center>'
-			end
-			if pcs_vag > 35 and analplugIN = 0:
+			else
 				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore17.jpg"></center>'
 			end
 			'Aww, what a sweetheart! You smile at the camera and do what your client wants. He delivers on his promise as well, sending some tokens your way. The rest of the chat is thanking him too, everyone wanted to see that!'

locations/LariskaSex.qsrc

@@ -95,7 +95,7 @@ if $ARGS[0] = 'dildo1':
 	gs 'arousal', 'cuni', 10, 'lesbian'
 	gs 'arousal', 'cuni_give', -10, 'lesbian'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		if LariskaQW['tellvirg'] = 0:
 			'I''m a virgin, you tell her softly.'
 			LariskaQW['tellvirg'] = 1
@@ -306,7 +306,7 @@ if $ARGS[0] = 'bj_1':
 	pcs_horny += 5
 	gs 'arousal', 'bj', -5, 'lesbian', 'sub'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Get your cherry popped':
 			temp = rand (1, 3)
 			if temp = 1:
@@ -352,7 +352,7 @@ if $ARGS[0] = 'miss_1':
 	$orgasm_txt = 'As Lariska pounds away, the rush of pleasure shooting through your body sets off an orgasm, and the room quickly fills with the sounds of you screaming her name.'
 	gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Get your cherry popped':
 			temp = rand (1, 3)
 			if temp = 1:
@@ -398,7 +398,7 @@ if $ARGS[0] = 'cow_1':
 	$orgasm_txt = 'The multiple sensations start to overwhelm you, causing an orgasm to sweep through you like lightning. Throwing your head back, you ride the waves as they wash through you.'
 	gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Get your cherry popped':
 			temp = rand (1, 3)
 			if temp = 1:
@@ -444,7 +444,7 @@ if $ARGS[0] = 'dog_1':
 	$orgasm_txt = 'The pleasure builds into a crescendo, threatening to overwhelm your senses as an orgasm rips through you.'
 	gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Get your cherry popped':
 			temp = rand (1, 3)
 			if temp = 1:
@@ -493,7 +493,7 @@ if $ARGS[0] = 'anal_miss_1':
 	$orgasm_txt = 'The sensation of having your ass pounded by Lariska overwhelms you, sending waves of pleasure screaming through your body.'
 	gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Get your cherry popped':
 			temp = rand (1, 3)
 			if temp = 1:
@@ -541,7 +541,7 @@ if $ARGS[0] = 'anal_cow_1':
 	$orgasm_txt = 'The sensation of having your ass pounded by Lariska overwhelms you, sending waves of pleasure screaming through your body.'
 	gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Get your cherry popped':
 			temp = rand (1, 3)
 			if temp = 1:
@@ -591,7 +591,7 @@ if $ARGS[0] = 'anal_dog_1':
 	$orgasm_txt = 'The sensation of having your ass pounded by Lariska overwhelms you, sending waves of pleasure screaming through your body.'
 	gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Get your cherry popped':
 			temp = rand (1, 3)
 			if temp = 1:
@@ -641,7 +641,7 @@ if $ARGS[0] = 'boyfriend_sex':
 			act 'Your Turn':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/boyfriend/bf_4.jpg"></center>'
-				if pcs_vag = 0:
+				if stat['virgin'] = 1:
 					if analplugin = 1:
 						if pcs_ass < 16:
 							'Lariska slides the butt plug out of your narrow and tight ass, opening the way for Lev.'
@@ -676,7 +676,7 @@ if $ARGS[0] = 'boyfriend_sex':
 				act 'Cowgirl':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/boyfriend/bf_5.jpg"></center>'
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						'Deciding to switch things up, or maybe because he was winded, Lev pulls out and sits down, stretching out and pulling you down on top. Feeling more in control now, you slide his dick back into your ass and start grinding your hips against his.'
 						'Lariska wastes no time and climbs onto his face, leaning in to keep rubbing your clitoris while Lev spreads her cheeks and licks her pussy. The sounds of moaning fills the room, and you know your going to cum soon from the dual sensations of Lev''s cock in your butt and Lariska''s rubbing.'
 						pcs_mood += 15

locations/MRear.qsrc

@@ -15,7 +15,7 @@ if $ARGS[0] = 'garden':
 	act 'Go to the conservatory': gt 'MConservatory'
 	act 'Go to the garage': gt 'MRear', 'garage'
 
-	if $BDSMrole = 's' and rand (0, 100) < 5 and pcs_vag > 0:
+	if $BDSMrole = 's' and rand (0, 100) < 5 and stat['virgin'] = 0:
 		gt 'MRear', 'gEV1'
 	elseif rand (0,100) < 3:
 		menu_off = 1

locations/MartinSex2.qsrc

@@ -62,7 +62,7 @@ if $ARGS[0] = 'MartinSexPrep':
 	end
 	
 	*nl
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		'But before either of you can make another move, a nagging thought that''s been floating around the back of your head pushes to the foreground of your mind: You are a virgin. Is Martin <i>really</i> the man you want to have your first time with? Not to mention all the risks involved if you didn''t take all necessary precautions against pregnancy...'
 	elseif prezik > 0 and preziktype ! 2 and tabletkishot < 1 and pillcon2 < 30000 and ovulate > 0: 
 		'But before either of you can make another move, a simple, powerful thought crosses your mind: You could get pregnant. And unless your count is off, today is a dangerous day to boot. You take a tentative look at your ' + iif(bag > 0,'purse','pocket') + ', the condoms sitting in it materializing before your inner eye.' + iif(preziktype=1,' You usually prefer to have sex without condoms, but...', ' ')

locations/NikoPayback.qsrc

@@ -313,11 +313,11 @@ if $ARGS[0] =  'Payback 4':
 		'Once you''re fully naked, Niko smiles. "It''s time for you to put that mouth of yours to good use. Suck my fucking dick bitch!" He pushes you onto your knees and pulls down his pants before pressing the tip of his dick against your lips.'
 	elseif VK = 2:
 		'Once you''re fully naked, Niko smiles. "You''ll be my little pee slut today, understand?" You lower your head and nod as Niko pulls down his pants. "Open your mouth and say ahh."'
-	elseif VK = 3 and pcs_vag = 0 or VK = 4 and pcs_vag = 0:
+	elseif (VK = 3 or VK = 4) and stat['virgin'] = 1:
 		'Once you''re fully naked, Niko smiles. "I''m gonna fuck your pussy today, so spread those legs!" You fearfully shake your head. "But I can''t... I''m... I''m a virgin." His eyes light up. "Really? Today really is my lucky day. I get to fuck a virgin <i>and</i> take your innocence from you at the same time." You recoil in shock. "Please no! Why would you do that to me?!" He just smiles. "Because it will make you sad, that''s why. Now get over to the sink and spread those fucking legs of yours or I will!"'
 	elseif VK = 3:
 		'Once you''re fully naked, Niko smiles. "I''m gonna fuck your pussy today, so spread those legs!"'		
-	elseif VK = 4 and pcs_vag = 0:
+	elseif VK = 4 and stat['virgin'] = 1:
 	    'Once you''re fully naked, Niko smiles. "You''ll be riding my dick today, so get over here." You fearfully shake your head. "But I can''t... I''m... I''m a virgin." His eyes light up. "Really? Today really is my lucky day. I get to fuck a virgin <i>and</i> take your innocence from you at the same time." You recoil in shock. "Please no! Why would you do that to me?!" He just smiles. "Because it will make you sad, that''s why. Now get over here and sit on my dick. I won''t ask again!"'
 	elseif VK = 4:
 		'Once you''re fully naked, Niko smiles. "You''ll be riding my dick today, so get over here." You meekly nod as you approach him. He unbuttons his pants and grabs you before turning you around and wrapping his hand around your neck, pulling you onto his dick.'
@@ -372,7 +372,7 @@ if $ARGS[0] =  'Payback 4':
 			end
 		end	
 		
-	elseif VK = 3 and pcs_vag = 0:
+	elseif VK = 3 and stat['virgin'] = 1:
 		act 'Do as he says':	
 			*clr & cla
 			gs'stat'
@@ -419,7 +419,7 @@ if $ARGS[0] =  'Payback 4':
 			end
 		end
 		
-	elseif VK = 4 and pcs_vag = 0:		
+	elseif VK = 4 and stat['virgin'] = 1:		
 		act 'Vaginal':	
 			*clr & cla
 			gs'stat'

locations/Serge_kuh.qsrc

@@ -335,7 +335,7 @@ if $ARGS[0] = 'help_ev1':
 			'"<<$pcs_nickname>>, stop tormenting me!" he tells you. "I''m not a robot, I''m a man with needs and desires! If you keep that up, you have no one but yourself to blame for what happens next..."'	
 			gs 'arousal', 'flash', 5
 			gs 'stat'
-			if npc_rel['A112'] >= 50 and pcs_vag >= 1:
+			if npc_rel['A112'] >= 50 and stat['virgin'] = 0:
 				gs 'willpower', 'sex', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'Stop teasing Sergey (<<will_cost>> Willpower)':

locations/VoltrenerSexShower.qsrc

@@ -262,7 +262,7 @@ if $ARGS[0] = '5':
 							if trenerSex = 0:trenerSex = 1 & guy += 1
 							gs 'stat'
 							'After a few minutes the coach pulls his cock out of your mouth, pushes you on your back, and raises and spreads your knees so they''re slightly bent and resting against his chest. In this position your holes are unceremoniously put on display. He pushes a finger into each hole and starts to rub your insides, gradually increasing his pace.'
-							if pcs_vag = 0 and stat['vaginal'] = 0:
+							if pcs_vag = 0:
 								'<center><video autoplay loop src="images/locations/pavlovsk/community/gym/volley/sex/voltrenersexshower26.mp4"></video></center>'
 								'For a moment, you feel some regret you might lose your virginity like this, though in your excitement you don''t focus too much on this thought. However, then the coach stops with surprise and says: "Are you a virgin?". It seems he felt one of his finger push against your hymen. Pulling his fingers from your pussy, he switches all his focus to your ass, saying: "No, I will not take your virginity. Besides, you''ve got more beautiful young holes for me to explore." He continues to finger your anus, which along with his words has you whining with desire. You can''t wait any longer and moan out loud: "Fuck me!"'
 							elseif pcs_vag <= 15:

locations/Voltrenersex.qsrc

@@ -106,7 +106,7 @@ if $ARGS[0] = 'sex':
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/pavlovsk/community/gym/volley/sex/voitrensex6.mp4"></video></center>'
 			'Kissing the head of his cock, you open your mouth and began to caress his dick with your tongue, lightly sucking it. Then, you start to suck his cock in earnest, running your lips up and down his shaft as you bob your head, you hands caressing his balls as you do.'
-			if trenerSex >= 3 and pcs_vag = 0 and stat['vaginal'] = 0 and mesec <= 0:
+			if trenerSex >= 3 and stat['virgin'] = 1 and stat['vaginal'] = 0 and mesec <= 0:
 				if will_cost <= pcs_willpwr:
 					act 'Lose your virginity (<<will_cost>> Willpower)': cla & gt 'Voltrenersex', 'Defl'
 				else

locations/Zvereva_sub_1.qsrc

@@ -257,17 +257,17 @@ if $ARGS[0] = 'showers' or $ARGS[0] = '':
 		gt 'Zvereva_sub_1','5'
 	elseif gKristinaZvtemp = 6:
 		gt 'Zvereva_sub_1','6'
-	elseif gKristinaZvtemp = 7 and pcs_vag > 0:
+	elseif gKristinaZvtemp = 7 and stat['virgin'] = 0:
 		gt 'Zvereva_sub_1','7'
-	elseif gKristinaZvtemp = 8 and pcs_vag > 0:
+	elseif gKristinaZvtemp = 8 and stat['virgin'] = 0:
 		gt 'Zvereva_sub_1','8'
-	elseif gKristinaZvtemp = 9 and pcs_vag > 0:
+	elseif gKristinaZvtemp = 9 and stat['virgin'] = 0:
 		gt 'Zvereva_sub_1','9'
-	elseif gKristinaZvtemp = 10 and pcs_vag > 0:
+	elseif gKristinaZvtemp = 10 and stat['virgin'] = 0:
 		gt 'Zvereva_sub_1','10'
-	elseif gKristinaZvtemp = 11 and pcs_vag > 0:
+	elseif gKristinaZvtemp = 11 and stat['virgin'] = 0:
 		gt 'Zvereva_sub_1','11'
-	elseif gKristinaZvtemp = 12 and pcs_vag > 0:
+	elseif gKristinaZvtemp = 12 and stat['virgin'] = 0:
 		gt 'Zvereva_sub_1','12'
 	elseif gKristinaZvtemp = 13:
 		gt 'Zvereva_sub_1','13'

locations/albina_chat.qsrc

@@ -223,7 +223,7 @@ if $ARGS[0] = 'chat':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
 		'Albina is a girl who is comfortable about her sexuality and so you end up talking about sex.'
-		if pcs_vag = 0:
+		if stat['virgin'] = 1:
 			'Knowing that you don''t have much experience in the subject, she offers to change the topic.'
 			act 'Stop talking': gt 'albinahome', 'bedroom'
 			act 'Change the subject': gt 'albina_chat', 'chat'
@@ -488,9 +488,9 @@ if $ARGS[0] = 'wine_chat1':
 		
 		act'I like mine too':
 			cla & *nl
-			if pcs_vag > 0 and stat['bj'] > 0:
+			if stat['virgin'] = 0 and stat['bj'] > 0:
 				'"I l''ke the taste of my pussy too," you slur back. "It tastdes even better when it''s on a dick."'
-				'"You''r a fuhcking slut <<$pcs_nickname>>," Albina blurts out, sending both of you into giggles.'
+				'"You''re a fuhcking slut <<$pcs_nickname>>," Albina blurts out, sending both of you into giggles.'
 			elseif stat['mast'] > 0:
 				'"I l''ke the taste of my pussy too," you slur back. "Sometimes I stdick my fingers in my mouf after I masdurbate, lick it all off."'
 				'"Oh fuck, I do that to! Suck my dildo fucking clean right after I come. It mahkes me wahnt to rub another one out after!" Albina giggles, rubbing her thighs together.'

locations/albina_house_events.qsrc

@@ -822,7 +822,7 @@ if $ARGS[0] = 'alb_sunbathe_1':
 					'"Pff. Still better than my mother. She keeps scolding me about leaving my dildos lying around the house. A girl has needs, you know?"'
 					'"Ugh, I know exactly what you mean," Albina says, stepping out of the shower and grabbing a towel. "I love Mama, but I wish she wasn''t so uptight about where I leave my toys. Always saying, ''What if a guest comes over and sees that laying around?'' or ''What if they catch you in your underwear?'' As if we have any guests these days other than my friends. Besides, isn''t this what we have a maid for? Cleaning stuff up?" She heads into her room and you follow behind, sitting down on her bed and continuing to chat while she gets dressed.'
 				else
-					if pcs_vag > 0:
+					if stat['virgin'] = 0:
 						'"Pff. Still better than my mother. She still makes me see the gyno every month just to confirm I''m still a virgin."'
 						'"What??? There''s no way you''re still a virgin!"'
 						'"I... have ways of getting around it."'
@@ -1039,7 +1039,7 @@ if $ARGS[0] = 'flash_drive':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/komp.jpg"></center>'
 								'Horrified at what you just watched, you quickly close the video and delete the flash drive''s contents before throwing it out the window as hard as you can.' 
-								if pcs_vag = 0 and AlbinaQW['StarletsWhore'] = 0:
+								if stat['virgin'] = 1 and AlbinaQW['StarletsWhore'] = 0:
 									'Is that the kind of sick torture Albina had to go through to protect you from those vile men? You can''t help but feel guilty, but decide to keep this to yourself. You know Albina feels extremely guilty about what she was forced to do and mentioning this to her will do more harm than good.'
 								elseif AlbinaQW['StarletsWhore'] = 0:
 									'Is that the kind of sick torture Albina had to go through every time you refused to go with those men? You can''t help but feel guilty and ashamed, but decide to keep this to yourself. You know Albina feels extremely guilty about what she was forced to do and mentioning this to her will do more harm than good.'

locations/albina_mother_events.qsrc

@@ -143,7 +143,7 @@ if $ARGS[0] = 'zoya_sunbathing_albina':
 					'"Pff. Still better than my mother. She keeps scolding me about leaving my dildos lying around the house. A girl has needs, you know?"'
 					'"Ugh, I know exactly what you mean," Albina says, stepping out of the shower and grabbing a towel. "I love Mama, but I wish she wasn''t so uptight about where I leave my toys. Always saying, ''What if a guest comes over and sees that laying around?'' or ''What if they catch you in your underwear?'' As if we have any guests these days other than my friends. Besides, isn''t this what we have a maid for? Cleaning stuff up?" She heads into her room and you follow behind, sitting down on her bed and continuing to chat while she gets dressed.'
 				else
-					if pcs_vag > 0:
+					if stat['virgin'] = 0:
 						'"Pff. Still better than my mother. She still makes me see the gyno every month just to confirm I''m still a virgin."'
 						'"What??? There''s no way you''re still a virgin!"'
 						'"I... have ways of getting around it."'

locations/albina_starlets.qsrc

@@ -177,7 +177,7 @@ if $ARGS[0] = 'albina4':
 						'"Well, am I good enough to join?" you ask.'
 						'Albina just laughs at you dismissively. "While I <i>could</i> train you properly so you''re not a floundering embarrassment, you don''t have the prettiest of faces <<$pcs_nickname>>.'
 						'"Appearances are everything to the Starlets, so try improving your looks first and then get back to us." She turns and leaves with the rest of the troupe, her comments leaving you feeling slightly insulted.'
-					elseif hotcat >= 6 and pcs_vag = 0 and stat['vaginal'] = 0:
+					elseif hotcat >= 6 and stat['virgin'] = 1 and stat['vaginal'] = 0:
 						'"Well, am I good enough to join?" you ask.'
 						'Albina thinks about it and looks at the other girls; some nod, others shrug.'
 						'Finally, she answers. "Okay, we''ll take a shot. Maybe you''ll learn something by training with <i>actual</i> dancers. We practice every day except Tuesday and Thursday, so don''t be late."'
@@ -236,7 +236,7 @@ if $ARGS[0] = 'albina5':
 					'"Well of course you are! I can''t let someone as good as you go to waste on these bow-legged amateurs. We practice every day except for Tuesday and Thursday, so don''t be late!" Albina replies.'
 					AlbinaQW['StarletsJoined'] = 1
 					!! If Sveta is virgin
-					if pcs_vag = 0 and stat['vaginal'] = 0:
+					if stat['virgin'] = 1 and stat['vaginal'] = 0:
 						'When the other girls leave, Albina pulls you aside. "Hey, are you ''pure''?" she whispers.'
 						'"Why would you want to know such a personal thing?" you reply as you blush.'
 						'"Oh, it''s... nothing. I just... look out for my girls is all." she says with hesitation.'
@@ -318,7 +318,7 @@ if $ARGS[0] = 'starlets':
 						dynamic $showerdin
 						if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 
-						if pcs_apprnc >= 52 and (pcs_vag > 0 or stat['vaginal'] > 0):
+						if pcs_apprnc >= 52 and (stat['virgin'] = 0 or stat['vaginal'] > 0):
 							if pcs_apprnc < 64:
 								AlbinaQW['StarletCustomer'] = rand(1,15)
 							elseif pcs_apprnc < 72:

locations/albinahome.qsrc

@@ -605,7 +605,7 @@ if $ARGS[0] = 'receive_strapon':
 	'You take the dildo into your mouth and start sucking on it while stroking the shaft with one hand. "Yeah, just like that <<$pcs_nickname>>!" she moans as she reaches between the straps and gently rubs her pussy. You spend several minutes sucking on the dildo, getting it nice and wet with your drool before she pulls it out of your mouth. "I''m so going to enjoy fucking you!"'
 	gs 'arousal', 'foreplay', 5, 'lesbian'
 	gs 'stat'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'You''re a virgin':
 			*clr & cla
 			gs 'stat'

locations/anushka.qsrc

@@ -184,7 +184,7 @@ if $ARGS[0] = 'Her turn':
 		*clr & cla
 		'<center><b><font color="maroon">Detention</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/detention/sex/detcowgirl.jpg"></center>'
-		if pcs_vag ! 0:
+		if stat['virgin'] = 0:
 			'You blush as you shake your head. "Sorry, but I don''t want to get fucked. I''m still a virgin."'
 			'They both look at you with surprise. Then Valentin says. "Well I will happily pop your cheery for you." Which earns him a slap on the shoulder from Anushka.'
 			'"Shut up whore dog, a girl picks her time and with whom she wants to lose it." Then she says to you. "Don''t worry about it." Then Anushka climbs on top of him herself. She mounts him cowgirl style then starts riding him hard and fast. You kneel down next to them on the couch, squeezing and kissing her lovely ass as she rides him.'
@@ -225,7 +225,7 @@ if $ARGS[0] = 'Her turn':
 		end
 	end
 
-	if pcs_vag ! 0:
+	if stat['virgin'] = 0:
 		act 'Mount him':
 			*clr & cla
 			'<center><b><font color="maroon">Detention</font></b></center>'

locations/anushkaev1.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'strapon1':
 			'You pull out the strap-on harness and hold it up. "Yeah, I like this..."'
 			'Her eyes widen ever so slightly. "Just what do you plan to do with that?"'
 		end
-		if domnush >= -50 and pcs_vag ! 0:
+		if domnush >= -50 and stat['virgin'] = 0:
 			act 'Take turns':
 				*clr & cla
 				minut += 2
@@ -32,7 +32,7 @@ if $ARGS[0] = 'strapon1':
 				act 'Strap-on fun': gt 'anushkaev1', 'bedstrapongive'
 			end
 		end
-		if pcs_vag ! 0:
+		if stat['virgin'] = 0:
 			act 'Fuck me':
 				*clr & cla
 				nushstrapon = 1
@@ -1352,7 +1352,7 @@ if $ARGS[0] = 'bedstrapongive':
 			'You smack her on the ass as she rides you. "Yeah, that''s right! Ride my dick like the slut you are!" you tell her in a teasing tone. She''s moaning so loudly that you don''t even think she heard your comment. A few more minutes go by before she cries out in orgasm and you can feel her wetness running down onto your thighs. She almost collapses on you, breathing hard, and you have to help her get off you.'
 			gs 'arousal', 'vaginal_strap_give', 5, 'lesbian'
 			gs 'stat'
-			if pcs_vag > 0: act 'Have her fuck you now': gt 'anushkaev1','bedstraponget'
+			if stat['virgin'] = 0: act 'Have her fuck you now': gt 'anushkaev1','bedstraponget'
 			act 'Have her fuck your ass now': gt 'anushkaev1','bedstrapongetanal'
 			act 'Fuck her ass now': gt 'anushkaev1','bedstrapongiveanal'
 			act 'Finish':
@@ -1524,7 +1524,7 @@ if $ARGS[0] = 'bedstrapongiveanal':
 		'You ride her all the way down, still fucking her ass. Even once the last orgasm passes and she seems completely spent, you keep hammering away at her ass, just to show her who''s boss. Finally tiring yourself out, you stop and pull out of her.'
 		gs 'arousal', 'vaginal_strap_give', 5, 'lesbian', 'rough', 'dom'
 		gs 'stat'
-		if pcs_vag > 0: act 'Have her fuck you now': gt 'anushkaev1','bedstraponget'
+		if stat['virgin'] = 0: act 'Have her fuck you now': gt 'anushkaev1','bedstraponget'
 		act 'Have her fuck your ass now': gt 'anushkaev1','bedstrapongetanal'
 		act 'Finish':
 			*clr & cla

locations/arousal.qsrc

@@ -324,15 +324,6 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 			count['vaginal'] = 1
 		end
 		stim['mag'] += 3
-		!! This section deals with pcs_vag if she still thinks she is virgin. There are many instances where virginity is 
-		!! checked via pcs_vag = 0, so for the time being i will not adjust pcs_vag if she believes. 
-		if temp_unaware = 0 or count['vaginal'] > 0:
-			if pcs_vag < dick:pcs_vag += 1
-			if pcs_vag*2 < dick:pcs_vag += 1
-		else
-			if pcs_vag < dick:pcs_hidden_vag += 1
-			if pcs_vag*2 < dick:pcs_hidden_vag += 1
-		end 
 		!! length and girth abilities of vagina are not separated , but I suppose that they are related
 		!! we can estimate difference in girth and length vaginal_girth_difference and vaginal_lenght_difference - names are shortened
 		vgrdif = grange - pcs_vag

locations/artem_events.qsrc

@@ -661,7 +661,7 @@ if $ARGS[0] = 'sex':
 							end
 						end
 					end	
-				elseif pcs_vag = 0:
+				elseif stat['virgin'] = 1:
 					'You take his dick out of your mouth for a second and smile at him a bit apologetically telling him: "Sorry, Artem, but I''m still a virgin and I am not sure I am ready to lose my virginity yet, ok? I bet I could still make you feel good with my mouth."'
 					'Artem blushes, but presses on and asks: "I would like to be your first, it can be both of our first times together."'
 					gs 'arousal', 'bj', 1

locations/audition_sex2.qsrc

@@ -387,7 +387,7 @@ if $ARGS[0] = 'neutral_bj1':
 			else
 				'"Alright, that''s enough of a warmup. Time for the main course. Bend over."'
 			end
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				act'Wait I''m a virgin':
 					audition['virgin_know'] = 1
 					cla & *clr

locations/audition_sex3.qsrc

@@ -381,7 +381,7 @@ if $ARGS[0] = 'slutty_bj1':
 			else
 				'"Alright, that''s enough of a warmup. Time for the main course. Bend over."'
 			end
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				act'Wait I''m a virgin':
 					audition['virgin_know'] = 1
 					cla & *clr
@@ -591,7 +591,7 @@ if $ARGS[0] = 'slutty_fuck':
 	gs 'underwear', 'remove'
 	gs 'stat'
 	if rand(0,1) = 1:
-		if pcs_vag = 0:
+		if stat['virgin'] = 1:
 			act'"By the way, I''m a virgin"':
 				cla & *nl
 				audition['virgin_know'] = 1				
@@ -602,7 +602,7 @@ if $ARGS[0] = 'slutty_fuck':
 			end
 		end
 		act'Get fucked':
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				gt'audition_sex3','slutty_virgin2'
 			else
 				gt'audition_sex3','slutty_fuck2'
@@ -611,7 +611,7 @@ if $ARGS[0] = 'slutty_fuck':
 		if prezikcount > 0:
 			act'Put on a condom on him':
 				audition['condom'] = 1
-				if pcs_vag = 0:
+				if stat['virgin'] = 1:
 					gt'audition_sex3','slutty_virgin2'
 				else
 					gt'audition_sex3','slutty_fuck2'
@@ -619,7 +619,7 @@ if $ARGS[0] = 'slutty_fuck':
 			end
 		end
 	else
-		if pcs_vag = 0:
+		if stat['virgin'] = 1:
 			act'"By the way, I''m a virgin"':
 				cla & *nl
 				audition['virgin_know'] = 1
@@ -630,7 +630,7 @@ if $ARGS[0] = 'slutty_fuck':
 			end
 		end
 		act'Get fucked':
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				gt'audition_sex3','slutty_virgin1'
 			else
 				gt'audition_sex3','slutty_fuck1'
@@ -639,7 +639,7 @@ if $ARGS[0] = 'slutty_fuck':
 		if prezikcount > 0:
 			act'Put on a condom on him':
 				audition['condom'] = 1
-				if pcs_vag = 0:
+				if stat['virgin'] = 1:
 					gt'audition_sex3','slutty_virgin1'
 				else
 					gt'audition_sex3','slutty_fuck1'

locations/auditions_minor1.qsrc

@@ -155,7 +155,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 					elseif audition['position'] = 2:
 						'"Then take off your clothes and bend over."'
-						if pcs_vag = 0:
+						if stat['virgin'] = 1:
 							act'"Uhhh..." (I''m a virgin)':
 								audition['virgin_know'] = 1
 								if rand(1,2) = 1:
@@ -215,7 +215,7 @@ if $ARGS[0] = 'casting_couch':
 							end
 						end
 						act'Bend over':
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex2','neutral_virgin2'
 							else
 								gt'audition_sex2','neutral_fuck2'
@@ -223,7 +223,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 						act'Ask him to put on a condom':
 							audition['condom'] = 1
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex2','neutral_virgin2'
 							else
 								gt'audition_sex2','neutral_fuck2'
@@ -231,7 +231,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 					elseif audition['position'] = 3:
 						'"Take off your clothes and lay down on the desk."'
-						if pcs_vag = 0:
+						if stat['virgin'] = 1:
 							act'"Uhhh..." (I''m a virgin)':
 								audition['virgin_know'] = 1
 								if rand(1,2) = 1:
@@ -292,7 +292,7 @@ if $ARGS[0] = 'casting_couch':
 							end
 						end
 						act'Get on the desk':
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex2','neutral_virgin1'
 							else
 								gt'audition_sex2','neutral_fuck1'
@@ -300,7 +300,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 						act'Ask him to put on a condom':
 							audition['condom'] = 1
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex2','neutral_virgin1'
 							else
 								gt'audition_sex2','neutral_fuck1'
@@ -323,7 +323,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 					elseif audition['position'] = 2:
 						'"Then take off your clothes and bend over."'
-						if pcs_vag = 0:
+						if stat['virgin'] = 1:
 							act'"By the way, I''m a virgin"':
 								cla & *nl
 								audition['virgin_know'] = 1
@@ -348,7 +348,7 @@ if $ARGS[0] = 'casting_couch':
 							end
 						end
 						act'Bend over':
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex3','slutty_virgin2'
 							else
 								gt'audition_sex3','slutty_fuck2'
@@ -356,7 +356,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 						act'Ask him to put on a condom':
 							audition['condom'] = 1
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex3','slutty_virgin2'
 							else
 								gt'audition_sex3','slutty_fuck2'
@@ -364,7 +364,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 					elseif audition['position'] = 3:
 						'"Take off your clothes and lay down on the desk."'
-						if pcs_vag = 0:
+						if stat['virgin'] = 1:
 							act'"By the way, I''m a virgin"':
 								cla & *nl
 								audition['virgin_know'] = 1
@@ -384,7 +384,7 @@ if $ARGS[0] = 'casting_couch':
 							end
 						end
 						act'Get on the desk':
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex3','slutty_virgin1'
 							else
 								gt'audition_sex3','slutty_anal1'
@@ -392,7 +392,7 @@ if $ARGS[0] = 'casting_couch':
 						end
 						act'Ask him to put on a condom':
 							audition['condom'] = 1
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								gt'audition_sex3','slutty_virgin1'
 							else
 								gt'audition_sex3','slutty_anal1'

locations/bedrPar.qsrc

@@ -471,7 +471,7 @@ if $ARGS[0] = 'intro':
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
 					'"You want me to wake up that early?!" you huff. "Can''t I wake up at like... 07:00?"'
 					'Your <<$npc_nickname[''A29'']>> shrugs. "You could, but then you might have to cut corners or even end up running late to school, and I won''t be having any of that. Your teachers won''t either." she warns you before making her way towards the kitchen.'
-					if pcs_vag = 0: '"Oh, don''t forget; you need to head down to the clinic and see the gynecologist for a check up. Not just once, but every month." she adds quickly.'
+					if stat['virgin'] = 1: '"Oh, don''t forget; you need to head down to the clinic and see the gynecologist for a check up. Not just once, but every month." she adds quickly.'
 					act 'But why do I--':
 						cla & *clr
 						minut += 2

locations/booty_call.qsrc

@@ -943,7 +943,7 @@ if $ARGS[0] = 'bj_react1.2':
 		if booty_call['cum_choice'] = 3:
 			'"Thanks for the warning," you smile, licking your lips.'
 			'"Ugh! Seriously?" Despite just blowing his load in your mouth, he looks somewhat upset. "I told you, I wanted to fuck tonight, not just get a blowjob."'
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				act'Sorry, saving myself for marriage':
 					booty_call['virgin'] = 1
 					cla & *clr
@@ -1003,7 +1003,7 @@ if $ARGS[0] = 'bj_react2':
 		'"Mmmm. Tasty."'
 		if rand(0,1) = 0 and booty_call['fuck'] ! 1:
 			'"Aww man, I never got to fuck you."'
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				act'Sorry, saving myself for marriage':
 					booty_call['virgin'] = 1
 					cla & *clr

locations/booty_call_after.qsrc

@@ -120,7 +120,7 @@ end
 if $ARGS[0] = 'no_cum_end':
 	'"Let''s end here."'
 	'"Really? We didn''t do anything other than getting me off."'
-	if know_virgin[$boy] = 1 and pcs_vag = 0:
+	if know_virgin[$boy] = 1 and stat['virgin'] = 1:
 		act'You know I''m saving my virginity':
 			cla & *clr
 			'<center><b><font color="maroon"><<$npc_firstname[$boy]>>''s Bedroom</font></b></center>'
@@ -149,7 +149,7 @@ if $ARGS[0] = 'no_cum_end':
 			gs'booty_call_after','after_sex1'
 		end
 		
-		if pcs_vag = 0:
+		if stat['virgin'] = 1:
 			act'I''m saving my virginity':
 				know_virgin[$boy] = 1
 				cla & *clr

locations/booty_call_sex.qsrc

@@ -420,7 +420,7 @@ end
 if $ARGS[0] = 'miss1':
 	!! slow pace
 	$booty_call['position'] = 'miss'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'miss_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'miss_virg_norm1'
 	gs 'arousal', 'vaginal', rand(3,5),'no_orgasm_msg'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/miss/slow2.mp4"></video></center>'
@@ -508,7 +508,7 @@ end
 if $ARGS[0] = 'miss2':
 	!! medium pace
 	$booty_call['position'] = 'miss'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'miss_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'miss_virg_norm1'
 	gs 'arousal', 'vaginal', rand(3,5),'no_orgasm_msg'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/miss/kotovsex0.mp4"></video></center>'
@@ -614,7 +614,7 @@ end
 if $ARGS[0] = 'miss3':
 	!! fast/rough pace
 	$booty_call['position'] = 'miss'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'miss_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'miss_virg_norm1'
 	gs 'arousal', 'vaginal',1,'no_orgasm_msg', 'rough'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/doggy/rough1.mp4"></video></center>'
@@ -821,7 +821,7 @@ end
 if $ARGS[0] = 'doggy1':
 	!! slow pace
 	$booty_call['position'] = 'doggy'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'doggy_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'doggy_virg_norm1'
 	gs 'arousal', 'vaginal', rand(3,5),'no_orgasm_msg'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/doggy/slow1.mp4"></video></center>'
@@ -915,7 +915,7 @@ end
 if $ARGS[0] = 'doggy2':
 	!! medium pace
 	$booty_call['position'] = 'doggy'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'doggy_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'doggy_virg_norm1'
 	gs 'arousal', 'vaginal', rand(3,5),'no_orgasm_msg'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/doggy/med1.mp4"></video></center>'
@@ -1026,7 +1026,7 @@ end
 if $ARGS[0] = 'doggy3':
 	!! fast/rough pace
 	$booty_call['position'] = 'doggy'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'doggy_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'doggy_virg_norm1'
 	gs 'arousal', 'vaginal',1,'no_orgasm_msg', 'rough'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/doggy/rough1.mp4"></video></center>'
@@ -1219,7 +1219,7 @@ if $ARGS[0] = 'cowgirl1':
 	booty_call['speed'] = 1
 	$booty_call['pos_speed'] = 'cowgirl1'
 	$booty_call['position'] = 'cowgirl'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'cowgirl_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'cowgirl_virg_norm1'
 	gs 'arousal', 'vaginal', rand(3,5),'no_orgasm_msg'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/slow2.mp4"></video></center>'
@@ -1306,7 +1306,7 @@ if $ARGS[0] = 'cowgirl2':
 	booty_call['speed'] = 2
 	$booty_call['pos_speed'] = 'cowgirl2'
 	$booty_call['position'] = 'cowgirl'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'cowgirl_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'cowgirl_virg_norm1'
 	gs 'arousal', 'vaginal', rand(3,5),'no_orgasm_msg'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/med1.mp4"></video></center>'
@@ -1392,7 +1392,7 @@ if $ARGS[0] = 'cowgirl3':
 	booty_call['speed'] = 3
 	$booty_call['pos_speed'] = 'cowgirl3'
 	$booty_call['position'] = 'cowgirl'
-!!	if pcs_vag = 0:gt 'booty_call_virgin', 'cowgirl_virg_norm1'
+!!	if stat['virgin'] = 1:gt 'booty_call_virgin', 'cowgirl_virg_norm1'
 	gs 'arousal', 'vaginal', rand(3,5),'no_orgasm_msg'
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/hard2.mp4"></video></center>'

locations/booty_call_start.qsrc

@@ -1161,7 +1161,7 @@ if $ARGS[0] = 'bj_force_cum_grumble':
 		!! IMAGE HERE
 		'You grumble but don''t say anything else.'
 		gs'booty_call_sex','sex_end'
-		if pcs_vag ! 0 or (booty_call['virgin'] < 1 and know_virgin[$boy] < 1):
+		if stat['virgin'] = 0 or (booty_call['virgin'] < 1 and know_virgin[$boy] < 1):
 			act'Can we have sex now?':
 				cla & *clr
 				!! IMAGE HERE

locations/brother.qsrc

@@ -1188,7 +1188,7 @@ if $ARGS[0] = 'virginitydialog':
 	'Kolka suddenly interrupts you. "Does it hurt?" he asks.'
 	'You blink in confusion, "Does what hurt?"'
 	'He sits for a moment, silently, before asking slowly, "When a boy puts <i>it</i> in?"'
-	if pcs_vag > 0:
+	if stat['virgin'] = 0:
 		brother_knows_not_virgin = 1
 		'"Only the first time or two," you respond.'
 		'Kolka inquires, "Have you tried?"'
@@ -1319,7 +1319,7 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 		'"Satisfied, now?" you ask.'
 		'Kolka continues to stare at your exposed pussy, "Almost..."'
 		ivrand = rand (1,2)
-		if brother_knows_not_virgin = 1 and pcs_vag > 0 and ivrand = 1:
+		if brother_knows_not_virgin = 1 and stat['virgin'] = 0 and ivrand = 1:
 			'You sigh, "What else?"'
 			'He looks up at you, "<<$pcs_nickname>>, can you poke a finger inside?"'
 			'You cannot believe he asked you that. "What? Why?"'
@@ -1395,7 +1395,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 			picrand = rand(1,2)
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/f (6.<<picrand>>).jpg"></center>'
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
-		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
+		if stat['virgin'] = 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
 		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. He kneels between your spread knees and starts to jerk himself off while he watches you play with yourself. Your heart begins to beat faster and faster, you start panting as you feel a primitive heat bubbling up deep from within. Moments later, you hear Kolka groan and watch as ropes of hot cum fly out of his cock, splashing over your crotch, stomach and even your breasts. It''s too much for you and soon you join your brother in ecstasy when your own release finally peaks. It takes everything inside of you to keep from screaming in bliss as your hips buck up and down, your fingers rubbing faster as you ride wave after wave of your orgasm.'
 
 		gs 'arousal','masturbate', 10, 'incest'
@@ -1443,7 +1443,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		picrand = rand(1,2)
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/f (6.<<picrand>>).jpg"></center>'
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
-		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
+		if stat['virgin'] = 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
 		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$pc_desc[''lips'']>> lips moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
 		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...'
 
@@ -1478,7 +1478,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		picrand = rand(1,2)
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/f (6.<<picrand>>).jpg"></center>'
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
-		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
+		if stat['virgin'] = 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
 		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$pc_desc[''lips'']>> lips moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
 		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...'
 

locations/cikl.qsrc

@@ -440,12 +440,12 @@ end
 if magikDostup = 0:
 	if pcs_horny < 100:pcs_horny += pcs_vag
 else
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		razeba = 0
 
 		if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
 		if pcs_horny > 50:pcs_horny -= 25
-	elseif pcs_vag > 0:
+	elseif stat['virgin'] = 0:
 		if pregtimes = 0:
 			if age < 18:
 				razeba = 1

locations/djibrilev1.qsrc

@@ -131,7 +131,7 @@ if $ARGS[0] = 'djibrilgb':
 							gs 'stat'
 							act 'More butt fucking': gt 'djibrilev1', 'gangbang_anal'
 						end
-						if pcs_vag ! 0:
+						if stat['virgin'] = 0:
 							act 'Get fucked':
 								*clr & cla
 								gs 'stat'

locations/dreams.qsrc

@@ -27,7 +27,7 @@ if $ARGS[0] = 'start':
 		end
 		if pcs_horny > 50:
 			!erotic dream
-			if pcs_vag = 0 and stat['vaginal'] = 0 and pcs_ass = 0 and stat['anal'] = 0 and stat['bj'] = 0 and stat['hj'] = 0 and stat['cuni'] = 0 and girl = 0 and guy = 0:
+			if pcs_vag = 0 and stat['virgin'] = 0 and pcs_ass = 0 and stat['anal'] = 0 and stat['bj'] = 0 and stat['hj'] = 0 and stat['cuni'] = 0 and girl = 0 and guy = 0:
 				!dreams only for virgin
 				ivrand = rand(1,5)
 			elseif haveHypnoDream = 1:
@@ -168,7 +168,7 @@ if $ARGS[0] = 'hypno_dreams':
 	if guy = 0:
 		'You wake up feeling strange and excited, even though you have never had sex the dream felt very real.'
 	elseif pcs_vag > 0 and stat['vaginal'] = 0:
-		'You have never had a cock in your pussy and even though you are a virgin the sensations from the dream felt very real and have gotten you a little excited.'
+		'You have never had a cock in your pussy and and yet the sensations from the dream felt very real and have gotten you a little excited.'
 	elseif stat['vaginal'] > 0 or pcs_vag > 0:
 		'It seems your <<$vaginatipe>> pussy urgently needs some attention.'
 	end
@@ -249,11 +249,11 @@ if $ARGS[0] = 'sex_dreams':
 		'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/sex/sex5.jpg"></center>'
 		'You dream that you are sitting on top of a guy, bouncing up and down on his cock.'
 	end
-	if pcs_vag = 0 and stat['vaginal'] = 0:
+	if stat['virgin'] = 0:
 		'You wake up feeling strange and excited, even though you have never had sex the dream felt very real.'
 	elseif pcs_vag > 0 and stat['vaginal'] = 0:
-		'You have never had a cock in your pussy and even though you are a virgin the sensations from the dream felt very real and have gotten you a little excited.'
-	elseif stat['vaginal'] > 0 or pcs_vag > 0:
+		'You have never had a cock in your pussy and yet the sensations from the dream felt very real and have gotten you a little excited.'
+	else
 		'It seems your <<$vaginatipe>> pussy urgently needs some attention.'
 	end
 	exit
@@ -269,11 +269,11 @@ if $ARGS[0] = 'anal_dreams':
 		'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/sex/anal2.jpg"></center>'
 		'You dream that you are laying on your side and a guy is fucking your ass. You moan loudly from the feeling.'
 	end
-	if pcs_vag = 0 and stat['vaginal'] = 0 and stat['anal'] = 0 and pcs_ass = 0:
+	if stat['anal'] = 0 and pcs_ass = 0:
 		'You wake up feeling strange and excited, even though you have never had anal sex the dream felt very real.'
-	elseif (pcs_vag > 0 or stat['vaginal'] > 0) and stat['anal'] = 0 and pcs_ass = 0:
+	elseif stat['anal'] = 0:
 		'You have never had a cock in your ass but the sensations from the dream felt very real and have gotten you a little excited.'
-	elseif stat['anal'] > 0 or pcs_ass > 0:
+	else
 		'It seems your <<$anustipe>> anus urgently needs some attention.'
 	end
 	exit
@@ -329,13 +329,13 @@ if $ARGS[0] = 'gang_dreams':
 		'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/sex/gang2.jpg"></center>'
 		'You dream that you are in-between two hot guys. One is fucking your pussy and the other one is fucking your ass. Both of them slam you with force causing you to moan loudly with pleasure.'
 	end
-	if pcs_vag = 0 and stat['vaginal'] = 0 and pcs_ass = 0 and stat['anal'] = 0 and stat['bj'] = 0 and stat['hj'] = 0 and gang = 0 and guy = 0 and girl = 0:
+	if stat['virgin'] = 0 and pcs_ass = 0 and stat['anal'] = 0 and stat['bj'] = 0 and stat['hj'] = 0 and gang = 0 and guy = 0 and girl = 0:
 		'You haven''t even had normal sex, least of all a threesome. Even though you are excited, the dream still scared you a little.'
-	elseif pcs_vag > 0 and stat['vaginal'] = 0 and pcs_ass = 0 and stat['anal'] = 0 and stat['bj'] = 0 and stat['hj'] = 0 and gang = 0 and guy = 0 and girl = 0:
+	elseif stat['virgin'] = 1 and pcs_ass = 0 and stat['anal'] = 0 and stat['bj'] = 0 and stat['hj'] = 0 and gang = 0 and guy = 0 and girl = 0:
 		'Even though you are not a virgin, the thought of a gangbang, even in a dream, is a little alarming.'
 	elseif pcs_vag = 0 and stat['vaginal'] = 0 and pcs_ass > 0 and gang = 0 and guy > 0 and girl = 0:
 		'Even though you are only technically still a virgin, the thought of a gangbang, even in a dream, is a little alarming.'
-	elseif pcs_vag > 0 and stat['vaginal'] > 0 and pcs_ass = 0 and stat['anal'] = 0 and gang = 0 and guy > 0 and girl = 0:
+	elseif pcs_ass = 0 and stat['anal'] = 0 and gang = 0 and guy > 0 and girl = 0:
 		'It seems, that in your dreams one guy at a time is not enough...'
 	elseif gang > 0 and guy > 0 and girl = 0:
 		'It seems, that your experience with swinging with a few guys was not in vain and your subconscious is actively reminding you about it.'

locations/fathersex.qsrc

@@ -181,13 +181,13 @@ if $ARGS[0] = 'fathersex_act1':
 					*clr & cla
 					'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/martin/cowgirl/cowgirl_rub.mp4"></video></center>'
 					
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						'But daddy, I''m still a virgin...'
 					else
 						'Pound me daddy, all my holes are yours...'
 					end
 
-					if pcs_vag > 0:
+					if stat['virgin'] = 0:
 						act 'Hard pounding vag':
 							*clr & cla
 							'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/rought/dog2.mp4"></video></center>'
@@ -315,7 +315,7 @@ if $ARGS[0] = 'fathersex_act1':
 						end
 					end
 
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 
 						act 'Hard pounding vag (virgin)':
 							*clr & cla

locations/foto_events.qsrc

@@ -1165,7 +1165,7 @@ if $ARGS[0] = 'fine_art':
 				else
 					act'What?! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
-				if pcs_vag > 0:
+				if stat['virgin'] = 0:
 					act'Say nothing, do as instructed':
 						fine_art_deal = 4
 						gt'foto_events','fine_art2'
@@ -1242,8 +1242,8 @@ if $ARGS[0] = 'fine_art2':
 		'The woman steps forward, reaching into her purse to pull out <<modelpayfin>> <b>₽</b>, which she places in your hand.'
 		'"I am disappointed with your commitment," she says. "Great people should be willing to sacrifice for the sake of great art. I vish you vere one of those people." She shakes her head and walks away, snapping her fingers twice and causing her crew to start packing up equipment.'
 		*nl
-		if pcs_vag = 0:'You watch them leave, the money from the job in hand and your virginity still intact.'
-		if pcs_vag > 0:'You watch them leave, the money from the job in hand and your dignity still intact.'
+		if stat['virgin'] = 1:'You watch them leave, the money from the job in hand and your virginity still intact.'
+		if stat['virgin'] = 0:'You watch them leave, the money from the job in hand and your dignity still intact.'
 		act'Leave':
 			fine_art_deal = 0
 			gt'foto','studio'

locations/gdksex.qsrc

@@ -872,7 +872,7 @@ if $ARGS[0] = 'blowjob':
 				end
 			end
 			
-!!			if pcs_vag = 0:
+!!			if stat['virgin'] = 1:
 !!				act'I''m a virgin':
 !!					cla & *clr
 !!					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
@@ -1035,7 +1035,7 @@ end
 if $ARGS[0] = 'fuck1':
 	gdk['fuck'] = 1
 	gdk['orgasm'] = orgasm
-	if pcs_vag = 0:gt'gdksex','virgin_fuck'
+	if stat['virgin'] = 1:gt'gdksex','virgin_fuck'
 	gs'arousal','vaginal', rand(3,7), 'no_orgasm_msg'
 	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/fuck.mp4"></video></center>'
 	if mesec > 0:
@@ -1598,7 +1598,7 @@ if $ARGS[0] = 'hotel':
 end
 
 if $ARGS[0] = 'heating_up':
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Tell him you''re still a virgin':
 			*clr & cla
 			gs 'stat'

locations/gdktoilet_mens.qsrc

@@ -148,7 +148,7 @@ if $ARGS[0] = 'mens_entrance_events':
 		'<center><b><font color="maroon">Community Center - Men''s Restroom</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/gangbangbath.jpg"></center>'
 		'You look inside the men''s restroom and see Sonia getting pounded by a bunch of guys. You can tell she is enjoying every second of it as she gets fucked in both holes.'
-		if pcs_vag > 0:
+		if stat['virgin'] = 0:
 			gs 'stat'
 			'You feel excited as you watch Sonia. You decide to leave before you are noticed.'
 			gs 'arousal', 'voyeur_sex', 5
@@ -177,7 +177,7 @@ if $ARGS[0] = 'mens_entrance_events':
 		'<center><b><font color="maroon">Community Center - Men''s Restroom</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/gangbangbath.jpg"></center>'
 		'You look inside the men''s restroom and see Vitek, Dan, Vasily, and one other you don''t recongnize and someone else under some woman getting pounded.'
-		if pcs_vag > 0 and pcs_ass > 0:
+		if stat['virgin'] = 0 and pcs_ass > 0:
 			pcs_horny += 30
 			'Your pussy starts to itch. You wish you were that woman in between all those horny men taking it in all your holes. The feeling of excitement is enough to make you want to masturbate in the hallway but you decide to leave before your feelings become too much.'
 		end

locations/gevent.qsrc

@@ -28,7 +28,7 @@ if $ARGS[0] = '1':
 			'<center><video autoplay loop src="images/characters/pavlovsk/resident/misha/sex/sex.mp4"></video></center>'
 			'You are no longer resisting, having lost all hope of getting yourself out of this situation. Lying wearily on the bed, he quickly takes your clothes off and sits down at your feet, examining your pussy with his fingers as much as his eyes.'
 
-			if pcs_vag = 0 and stat['vaginal'] = 0:
+			if pcs_vag = 0:
 				cumprecheck = 1
 				gs 'cum_manage'
 				'"You''re still a virgin? We''ll have to fix that."'

locations/gopsex.qsrc

@@ -27,7 +27,7 @@ end
 !===================!============================================
 !deduce if gg first time
 if $ARGS[0] = 'gg_devst_deflor':
-	if pcs_vag <= 0:
+	if stat['virgin'] = 1:
 		pcs_horny = 0
 		pcs_mood = pcs_mood - 15
 		'You tell them that it''s your first time, and ask them to be gentle.'
@@ -229,7 +229,7 @@ if $ARGS[0] = 'shgopsex':
 		'"So <<$boydesc>>, do you want to have fun with me?" You lick your lips sensually and ask him: "What can I do for you?"'
 		if mesec > 0:
 			'<font color = red><b>You warn him that you''re on your period and so your pussy is off limits!</b></font>'
-		elseif mesec <= 0 and pcs_vag <= 0:
+		elseif mesec <= 0 and stat['virgin'] = 1:
 			'<font color = red><b>You tell him, that you want to save your virginity, so your pussy is available only for eating.</b></font>'
 		end
 	end
@@ -238,7 +238,7 @@ if $ARGS[0] = 'shgopsex':
 	if pcs_throat >= 20:
 		act 'Deep Throat': gt 'gopsex', 'shgopsex_throat'
 	end
-	if mesec <=0 and pcs_vag >=1:
+	if mesec <=0 and stat['virgin'] = 0:
 		act 'Sex': gt 'gopsex', 'shgopsex_vag'
 	end
 	act 'Anal sex': gt 'gopsex', 'shgopsex_anal'
@@ -272,7 +272,7 @@ if $ARGS[0] = 'shgopsex_end':
 		act 'In your mouth': gt 'gopsex', 'hide','shgopsex_swallow'
 		act 'On your face' : gt 'gopsex', 'hide','shgopsex_cumface'
 		act 'On your body' : gt 'gopsex', 'hide','shgopsex_cumbelly'
-		if pcs_vag >=1: act 'In your pussy': gt 'gopsex', 'hide','shgopsex_cumvag'
+		if stat['virgin'] = 0: act 'In your pussy': gt 'gopsex', 'hide','shgopsex_cumvag'
 		act 'In your butt' : gt 'gopsex', 'hide','shgopsex_cumanal'
 	end
 	killvar 'sh_bjandhj_cum'
@@ -481,9 +481,9 @@ if $ARGS[0] = 'shgopsex_group':
 	gs 'boyStat', 'A11','2'
 	if $ARGS[1] ! 'cont':
 		gs 'gopsex','hide','group_sex_text'
-		if mesec > 0 and pcs_vag >=1:
+		if mesec > 0 and stat['virgin'] = 0:
 			'<font color = red><b>You warn them that you''re on your period and so your pussy is off limits!</b></font>'
-		elseif mesec <=0 and pcs_vag <=0:
+		elseif mesec <=0 and stat['virgin'] = 1:
 			'<font color = red><b>you remind to them, that you want to preserve your virginity, so your pussy is not available for play!</b></font>'
 		end
 	end
@@ -491,11 +491,11 @@ if $ARGS[0] = 'shgopsex_group':
 	if stat['bj'] >= 50:
 		act 'Suck all at once': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_bja'
 	end
-	if pcs_vag >=1 and mesec <=0:
+	if stat['virgin'] = 0 and mesec <=0:
 		act 'The pussy': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_vag'
 	end
 	act 'In the ass': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_anal'
-	if pcs_vag >=1 and mesec <=0:
+	if stat['virgin'] = 0 and mesec <=0:
 		act 'In the pussy and ass': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_dp'
 	end
 	if pcs_ass >= 20:

locations/gschool_boys_bathroom.qsrc

@@ -1409,7 +1409,7 @@ if $ARGS[0] = 'caughtb1':
 					gs 'arousal', 'bj', 5, 'dom'
 					gs 'stat'
 					'He enjoys your blowjob in silence.'
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'Cum':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/makar/sex/school/caughtcum.jpg"></center>'

locations/gschool_break.qsrc

@@ -205,7 +205,7 @@ if $ARGS[0] = 'girls_restroom_events':
 		gs 'arousal', 'end'
 		gs 'stat'
 		gs 'gschool_break', 'restroom_actions'
-	elseif girls_event_rand = 15 and pcs_vag ! 0:
+	elseif girls_event_rand = 15 and stat['virgin'] = 0:
 		menu_off = 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/sweettalk1.jpg"></center>'
@@ -295,7 +295,7 @@ if $ARGS[0] = 'girls_restroom_events':
 			'"Okay, I was just asking..." you say in response, but she just ignores you and walks out.'
 			gs 'gschool_break', 'restroom_actions'
 		end
-	elseif girls_event_rand = 16 and pcs_vag ! 0 and uniform_steal_day ! daystart:
+	elseif girls_event_rand = 16 and stat['virgin'] = 0 and uniform_steal_day ! daystart:
 		menu_off = 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/girlspose1.jpg"></center>'
@@ -1123,7 +1123,7 @@ if $ARGS[0] = 'smoke2':
 														'She reaches down and pulls you up into a kneeling position. She forces you to open your mouth and sticks her toes in your mouth. "You''re not a bad little girl. You''re just a dirty little girl. Now clean my feet." She makes you suck on her toes and lick both of her feet.'
 														gs 'arousal', 'foreplay', 2, 'sub'
 														gs 'stat'
-														if grupTipe = 3 or grupTipe = 5 or pcs_vag = 0:
+														if grupTipe = 3 or grupTipe = 5 or stat['virgin'] = 1:
 															'She finally lets go of you and tosses you back your shirt. "Get dressed and get out before you make things worse for yourself." You gather up your shirt and walk out of the classroom. You button up your shirt with your ass still stinging.'
 															act 'Leave the restroom': gt 'gschool_lessons', 'short_break'
 														else

locations/gschool_girls_bathroom.qsrc

@@ -1065,7 +1065,7 @@ if $ARGS[0] = 'caught2':
 					gs 'arousal', 'bj', 5, 'dom'
 					gs 'stat'
 					'He enjoys your blowjob in silence for several minutes.'
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'Cum':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/makar/sex/school/caughtcum.jpg"></center>'

locations/gschool_lunch.qsrc

@@ -381,7 +381,7 @@ if $ARGS[0] = 'events':
 				end
 			end
 		end
-	elseif npc_rel['A144'] >= 50 and anush_sex >= 10 and hotcat >= 6 and pcs_vag ! 0 and rand(0,5) = 0:
+	elseif npc_rel['A144'] >= 50 and anush_sex >= 10 and hotcat >= 6 and stat['virgin'] = 0 and rand(0,5) = 0:
 		pcs_horny += 20
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/anushka/sex/school/want.jpg"></center>'
 		'As you are leaving the canteen, Anushka grabs you and pushes you up against the wall. She starts kissing you passionately while one of her hands slides up your skirt and starts rubbing your clit. You can hear several of your fellow classmates whistling, hooting and hollering, but right now you don''t really care. She breaks the kiss just long enough to moan into your ear. "I want to fuck you, come with me." she whispers as her fingers slide up into your pussy.'

locations/gschool_sex.qsrc

@@ -408,7 +408,7 @@ if $ARGS[0] = 'Anush_kiss':
 		'It doesn''t take long until she is on her knees sucking them both off, shortly followed by the boys fucking her. It is pretty clear you are not invited to take part. Unsure what else to do, you simply sit there waiting until they finish, wondering how badly you fucked up. Once they finish, the three of them head out, talking to each other and ignoring you. You know you''ve got some work to do to repair your relationship with them. That is, if you even want to.'
 		act 'Continue': gt 'gschool_lessons', 'short_break'
 	end
-	if pcs_vag ! 0:
+	if stat['virgin'] = 0:
 		act 'Continue':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/sex/l4undress.jpg"></center>'
@@ -729,7 +729,7 @@ if $ARGS[0] = 'storagesex':
 				'You open your mouth and wrap your lips around his shaft. You start bobbing your head and sucking his dick for a few minutes before he says "Stand up so I can fuck you."'
 				gs 'arousal', 'bj', 3, 'sub', 'deepthroat'
 				gs 'stat'
-				if pcs_vag ! 0:
+				if stat['virgin'] = 0:
 					act 'Let him':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/victor/sex/storage6.jpg"></center>'
@@ -903,7 +903,7 @@ if $ARGS[0] = 'lazar_lockerroom':
 			gs 'stat'
 			act 'Continue': gt 'gschool_sex', 'lazar_lockerroom_cum'
 		end
-		if pcs_vag ! 0:
+		if stat['virgin'] = 0:
 			act 'Mount him':
 				*clr & cla
 				gs 'boyStat', 'A149'
@@ -1069,7 +1069,7 @@ if $ARGS[0] = 'petka_lockerroom':
 			gs 'arousal', 'bj', 5
 			gs 'stat'
 			act 'Make him lick you': gt 'gschool_sex', 'petka_eatpussy'
-			if pcs_vag ! 0:
+			if stat['virgin'] = 0:
 				act 'Ride him': gt 'gschool_sex', 'petka_ride'
 			end
 			act 'Suck him off':
@@ -1093,7 +1093,7 @@ if $ARGS[0] = 'petka_lockerroom':
 			gs 'arousal', 'cuni', 5, 'dom'
 			gs 'stat'
 			act 'Make him lick your ass': gt 'gschool_sex', 'petka_eatpussy'
-			if pcs_vag ! 0:
+			if stat['virgin'] = 0:
 				act 'Ride him': gt 'gschool_sex', 'petka_ride'
 				act 'Tell him to fuck you': gt 'gschool_sex', 'petka_fuck'
 			end
@@ -1333,13 +1333,13 @@ if $ARGS[0] = 'petka_eatpussy':
 		'You put your foot down and step away from him. Turning away from him, you put one foot on the bench and bend over slightly. You look back at him expectantly as he crawls over and starts licking your pussy from behind. "No, lick my asshole." you command. He doesn''t even hesitate and immediately starts lapping away at your hole. You feel empowered and very turned on, making a boy do what you want.'
 		gs 'arousal', 'rimming', 5, 'dom'
 		gs 'stat'
-		if pcs_vag ! 0:
+		if stat['virgin'] = 0:
 			act 'Ride him': gt 'gschool_sex', 'petka_ride'
 			act 'Tell him to fuck you': gt 'gschool_sex', 'petka_fuck'
 		end
 		act 'Tell him to fuck your ass': gt 'gschool_sex', 'petka_anal'
 	end
-	if pcs_vag ! 0:
+	if stat['virgin'] = 0:
 		act 'Ride him': gt 'gschool_sex', 'petka_ride'
 		act 'Tell him to fuck you': gt 'gschool_sex', 'petka_fuck'
 	end

locations/gschool_socialchg1.qsrc

@@ -327,7 +327,7 @@ if $ARGS[0] = 'ivan_fedor_naked':
 				'Their eyes roam all over your naked body and you feel more than a bit of a thrill from it. "Yeah you do, and no you have nothing to be ashamed of." Ivan says. "Yeah, you have every reason to be proud." Fedor adds before they exchange looks and grin at you.'
 				'You arch a brow at them. "What?"'
 				'They exchange looks again and Ivan speaks up. "Would you want to go somewhere more private where we could...appreciate your body even more?" You know exactly what he means.'
-				if pcs_vag > 0:
+				if stat['virgin'] = 0:
 					act 'Sure': gt 'gschool_socialchg1', 'ivanfedor_threesome'
 				end
 				act 'No thanks':

locations/hookup.qsrc

@@ -436,7 +436,7 @@ if $ARGS[0] = 'bj_react1.2':
 				'"Ugh! Seriously?" Despite just blowing his load in your mouth, he looks somewhat upset. "I told you, I wanted to fuck, not just get a blowjob."'
 			end
 			
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				act'Sorry, saving myself for marriage':
 					hookup['virgin'] = 1
 					cla & *clr
@@ -496,7 +496,7 @@ if $ARGS[0] = 'bj_react2':
 		'"Mmmm. Tasty."'
 		if rand(0,1) = 0 and hookup['fuck'] ! 1:
 			'"Aww man, I never got to fuck you."'
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				act'Sorry, saving myself for marriage':
 					hookup['virgin'] = 1
 					cla & *clr
@@ -659,7 +659,7 @@ if $ARGS[0] = 'bj2':
 			'"Well, that was fun, but I should get going," you say, standing up.'
 			if rand(0,1) = 0:
 				'"Seriously?" he says, sitting up in bed. "We never even got to fuck."'
-				if pcs_vag = 0:
+				if stat['virgin'] = 1:
 					act'Sorry, saving myself for marriage':
 						hookup['virgin'] = 1
 						cla & *nl
@@ -1042,7 +1042,7 @@ if $ARGS[0] = 'lick_pussy':
 							end
 						elseif hookup['virgin'] = 1:
 							gs'hookup_virgin','virginity_take'
-						elseif pcs_vag = 0:
+						elseif stat['virgin'] = 0
 							act'Ask him to fuck you':
 								*clr & cla
 								'<center><b><font color="maroon"><<$npc_firstname[$npclastsaved]>>''s Bedroom</font></b></center>'
@@ -1063,7 +1063,7 @@ if $ARGS[0] = 'lick_pussy':
 				end
 			else
 				'"So, ready to fuck?"'
-				if pcs_vag = 0:
+				if stat['virgin'] = 1:
 					act'I''m saving my virginity':
 						if daystage = 1 or daystage = 4:
 							$hookup['tonight_or_today'] = 'tonight'
@@ -1833,7 +1833,7 @@ if $ARGS[0] = 'position_choose':
 		'You give him a few more jerks before throwing your legs over his, holding his cock between your thighs.'
 		'"I think it''s time to go for a ride," you grin, gently slapping his hardon against your belly.'
 		act'Put him inside you':
-			if pcs_vag = 0:gt'hookup_sex','cowgirl_virg_norm1'
+			if stat['virgin'] = 1:gt'hookup_sex','cowgirl_virg_norm1'
 			cla & *clr
 			gs'arousal','vaginal',1,'no_orgasm_msg'
 			gs'stat'
@@ -1936,7 +1936,7 @@ if $ARGS[0] = 'position_he_choose':
 end
 
 $VirginHookUp = {
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act'Wait I''m a virgin!': gt 'hookup_virgin', 'start'
 	end
 }

locations/hookup_morning.qsrc

@@ -558,7 +558,7 @@ end
 
 		end
 
-		if pcs_vag > 0:
+		if stat['virgin'] = 0:
 			act'Let''s fuck':
 				hookup['position'] = rand(1,3)
 				if hookup['position'] = 1:

locations/hookup_sex.qsrc

@@ -59,7 +59,7 @@ if $ARGS[0] = 'start':
 		$hookupposition = 'cowgirl'
 		'You give him a few more jerks before throwing your legs over his, holding his cock between your thighs.'
 		'"I want you inside me," you whisper, lowering yourself down onto his cock.'
-		if pcs_vag = 0:
+		if stat['virgin'] = 1:
 			act'Ride him':gt'hookup_virgin','cowgirl_virg_norm1'
 		else
 			act'Ride him':gt'hookup_sex','cowgirl_norm1'
@@ -96,7 +96,7 @@ end
 
 if $ARGS[0] = 'miss_norm1':
 	$hookup['position'] = 'miss'
-	if pcs_vag = 0:gt'hookup_virgin','miss_virg_norm1'
+	if stat['virgin'] = 1:gt'hookup_virgin','miss_virg_norm1'
 	gs'arousal','vaginal',rand(4,8),'no_orgasm_msg'
 	gs'stat'
 	
@@ -215,7 +215,7 @@ end
 
 if $ARGS[0] = 'miss_hard1':
 	$hookup['position'] = 'miss'
-	if pcs_vag = 0:gt'hookup_virgin','miss_virg_hard1'
+	if stat['virgin'] = 1:gt'hookup_virgin','miss_virg_hard1'
 	if mesec > 0:
 		if hookup['condom'] = 1:
 			'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/blood_condom1.jpg"></center>'
@@ -338,7 +338,7 @@ end
 
 if $ARGS[0] = 'doggy_norm1':
 	$hookup['position'] = 'doggy'
-	if pcs_vag = 0:gt'hookup_virgin','doggy_virg_norm1'
+	if stat['virgin'] = 1:gt'hookup_virgin','doggy_virg_norm1'
 	gs'arousal','vaginal',1,'no_orgasm_msg'
 	gs'stat'
 	'<center><video autoplay loop src="images/shared/sex/vag/doggy/enter1.mp4"></video></center>'
@@ -464,7 +464,7 @@ end
 
 if $ARGS[0] = 'doggy_hard1':
 	$hookup['position'] = 'doggy'
-	if pcs_vag = 0:gt'hookup_virgin','doggy_virg_hard1'
+	if stat['virgin'] = 1:gt'hookup_virgin','doggy_virg_hard1'
 	minut += rand(4,8)
 	gs'arousal','vaginal',1,'no_orgasm_msg','rough'
 	gs'stat'
@@ -599,7 +599,7 @@ end
 if $ARGS[0] = 'cowgirl_norm1':
 	$hookup['position'] = 'cowgirl'
 	hookup['orgasm'] = orgasm
-	if pcs_vag = 0:gt'hookup_virgin','cowgirl_virg_norm1'
+	if stat['virgin'] = 1:gt'hookup_virgin','cowgirl_virg_norm1'
 	if pcs_horny >= 80 + rand(0,15): $orgasm_or = 'yes'
 	gs'arousal','vaginal',rand(4,8),'no_orgasm_msg'
 	if $orgasm_or ! '': $orgasm_or = ''
@@ -626,7 +626,7 @@ if $ARGS[0] = 'cowgirl_hard1':
 	$hookup['position'] = 'cowgirl'
 	hookup['orgasm'] = orgasm
 	if pcs_horny >= 80 + rand(0,15): $orgasm_or = 'yes'
-	if pcs_vag = 0:gt'hookup_virgin','cowgirl_virg_norm1'
+	if stat['virgin'] = 1:gt'hookup_virgin','cowgirl_virg_norm1'
 	gs'arousal','vaginal',rand(4,8),'no_orgasm_msg'
 	gs'stat'
 	if $orgasm_or ! '': $orgasm_or = ''

locations/igorev.qsrc

@@ -247,7 +247,7 @@ if $ARGS[0] = 'din_sex':
 				gs 'stat'
 				act 'Continue':gt 'igorEv', 'din_igor_end'
 			end
-			if pcs_vag >= 1 and Igorsex >= 1:
+			if stat['virgin'] = 0 and Igorsex >= 1:
 				act 'Tell him to fuck you in the pussy':
 					cls
 					Igorsex += 1

locations/igorhome.qsrc

@@ -541,7 +541,7 @@ if $ARGS[0] = 'livingroom1':
 								'"Well, I hope he''ll get out of his shell and I''m sure the two of you will have a great relationship..."'
 								'You finish by saying if Igor has any questions you''ll make sure to send him Gemorgen''s way...'
 								act 'Leave the living room': gt 'igorhome','hallway'
-							elseif pcs_vag > 0:
+							elseif stat['virgin'] = 0:
 								'"I hope something will happen soon as he''s been avoiding the best part of our relationship..." you say a bit discouraged.'
 								'"Don''t worry I''ll have a talk with him. He''s innocent like a little lamb. He probably doesn''t know how to make a move..."'
 								'You begin thanking him but he stops you and says he should be thanking you as he never thought Igor would end up with an attractive girl as you.'
@@ -675,12 +675,12 @@ if $ARGS[0] = 'livingroom3':
 						'"Well, I''m sure you''re quite the teacher... I''m just glad Igor has found someone to look after him..."'
 						'You wink at the father as not to worry. You grab Igor by the arm, and the two of you leave the living room feeling relieved that you''ve told Gemorgen.'
 						act 'Leave the living room': gt 'igorhome','hallway'
-					elseif pcs_vag ! 0:
+					elseif stat['virgin'] = 0:
 						'"I hope something will happen soon he''s been avoiding that part of our relationship..." you say a bit disappointed.'
 						'"Don''t worry I''ll have a talk man to man. He''s innocent like a little lamb. He probably doesn''t know what to do..."'
 						'Igor blushes while you thank the father for wanting to help out. The two of you leave the living room.'
 						act 'Leave the living room': gt 'igorhome','hallway'
-					elseif pcs_vag = 0:
+					elseif stat['virgin'] = 1:
 						'"No, I''m still a virgin and I''m not ready yet to lose it yet and Igor is really understanding. One day maybe but not right now..."'
 						'Gemorgen looks a bit disappointed at Igor but doesn''t say anything since his son as he doesn''t want to jeopardize the relationship...'
 						act 'Leave the living room': gt 'igorhome','hallway'

locations/kompMFC.qsrc

@@ -842,7 +842,7 @@ else
 	'One of the visitors asks in broken English: "You have dildo or vibrator? I want to see you fuck you!"'
 	'You frown at the camera and apologize: "I''m sorry, but no. I don''t have anything like that..."'
 	'The visitor replies: ":( :( :(. OK, maybe you use hand or fingers then yes?"'
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Do as he asks':
 			cls
 			mfcclients = 0

locations/kotovSex.qsrc

@@ -14,7 +14,7 @@ If $ARGS[0] = '':
 		end
 		'Vitek begins to grope you, while he aggressively kisses you on your lips. He grunts: "<<$pcs_nickname>>, take off your clothes."'
 
-		if pcs_vag = 0 and stat['vaginal'] = 0:
+		if stat['virgin'] = 1:
 			if SchoolAtestat = 0:
 				act '"I''m still a virgin!"':
 					cla

locations/ludahome.qsrc

@@ -939,7 +939,7 @@ if $ARGS[0] = 'chat_luda':
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/luda/talk.jpg"></center>'
 						'You are a little shocked you didn''t know they had an open relationship "You are in an open relationship? You mean you can sleep with other people?"'
 						'She laughs at your reaction "Yes and no it doesn''t bother me and it doesn''t bother him. We know we love each other and sex is just sex."'
-						if (fame['pav_slut'] >= 100 or LudaQW['KnowsSexActive'] >= 10) and LudaQW['olu_offer'] = 0 and pcs_vag ! 0:
+						if (fame['pav_slut'] >= 100 or LudaQW['KnowsSexActive'] >= 10) and LudaQW['olu_offer'] = 0 and stat['virgin'] = 0:
 							'You nod a bit "Yeah OK I guess I can see that."'
 							'Then she stops and seems to be considering something before saying "Actually I am kinda glad of it, the man has amazing stamina and just loves sex, he can''t get enough of it honestly. Don''t get me wrong I love sex but he wears me out, so I am glad he can burn up some of that sexual energy with other women."'
 							'You are a little surprised by that, but it does explain why she is OK with sharing him "I see Auntie." You say with a sly smile of understanding.'

locations/mey_home.qsrc

@@ -95,7 +95,7 @@ if $ARGS[0] = 'start':
 		end
 
 		! Vic calls in the shower
-		if mesec = 0 and pcs_vag > 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart and rand(0,1) = 0 and locat['Vicky'] = 9:
+		if mesec = 0 and stat['virgin'] = 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart and rand(0,1) = 0 and locat['Vicky'] = 9:
 			gs 'mey_vika_events', 'bath_qw1'
 			exit
 		end

locations/mey_tamara_events.qsrc

@@ -605,7 +605,7 @@ if $args[0] = 'party2':
 		'By now you''re really bored and feel left out.	Tamara is too absorbed by the conversation, not paying you any attention.'
 
 		if alko >= 3:
-			if mesec = 0 and pcs_vag > 0 and mey_tamara['drink_qw'] = 0:
+			if mesec = 0 and stat['virgin'] = 0 and mey_tamara['drink_qw'] = 0:
 				act 'Search for an adventure':
 					minut += rand(30,40)
 					gs 'stat'

locations/mey_vika_events.qsrc

@@ -155,7 +155,7 @@ if $ARGS[0] = 'play_game_wish0':
 
 	pcs_horny += iif(pcs_horny < 60,40,20)
 	gs 'stat'
-	if pcs_vag > 0:
+	if stat['virgin'] = 0:
 		act 'Further':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/vika_game1.jpg"></center>'
@@ -788,7 +788,7 @@ if $ARGS[0] = 'beach_event0':
 					'"I need to go and cool off." He says, and goes for a swim.'
 
 					! check celostnosti
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						! if virgin go to the beach
 						*clr & cla
 						minut += rand(60,90)
@@ -1286,7 +1286,7 @@ if $ARGS[0] = 'gym0':
 											'"Time to hit the shower! Won''t you join me, <<$pcs_nickname>>?"'
 
 
-											if mesec = 0 and pcs_vag > 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart:
+											if mesec = 0 and stat['virgin'] = 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart:
 												!act 'Join Vicky in the shower':
 												!	gt 'mey_vika_events', 'bath_common',1
 												!end
@@ -1391,7 +1391,7 @@ if $ARGS[0] = 'bath_qw0':
 	'Vicky grabs her nose...'
 	'"You smell really bad, <<$pcs_nickname>>! You need a bath, you smell like an animal at the zoo! Let me fix you a bath! Come on, the bathtub is already filling up." Vicky grabs your hand and starts pulling you along, not paying attention if you''re having any objections.'
 
-	if mesec = 0 and pcs_vag > 0:
+	if mesec = 0 and stat['virgin'] = 0:
 		act 'Take a bath':
 			mey_vika['bath_qw'] = 1
 			mey_vika['bath_qw_day'] = daystart
@@ -1415,7 +1415,7 @@ if $ARGS[0] = 'bath_qw1':
 	'Standing in the hallway in her shorts and a short top Vicky confronts you, pointing at the stairs.'
 	'"<<$pcs_nickname>>! No excuses you''re taking a bath now! Come with me!"'
 
-	if mesec = 0 and pcs_vag > 0:
+	if mesec = 0 and stat['virgin'] = 0:
 		act 'Take a bath':
 			gt 'mey_vika_events', 'bath_common',1
 		end

locations/mirafather.qsrc

@@ -168,7 +168,7 @@ else
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
 						*nl
 						pose = 0
-						if mesec = 0 and pcs_vag > 0:
+						if mesec = 0 and stat['virgin'] = 0:
 							gs 'dinsex', 'boy_puts_condom'
 							gs 'dinsex','vaginal_sex',10
 							gs 'dinsex','sexcum'
@@ -224,7 +224,7 @@ else
 					end
 					*nl
 					if temp_mf < 5:
-						if mesec = 0 and pcs_vag > 0 and rand(0,2) < 2:
+						if mesec = 0 and stat['virgin'] = 0 and rand(0,2) < 2:
 							gs 'dinsex', 'boy_puts_condom'
 							gs 'dinsex','vaginal_sex',10
 							gs 'dinsex','sexcum'

locations/mitka.qsrc

@@ -102,7 +102,7 @@ if $ARGS[0] = 'sex_chat':
 	if npc_QW['A63'] = 0:
 		*nl
 		'Mitka scratches his balls and adds with a grin: "Hey <<$pcs_nickname>>, do you want to have some fun?"'
-		if pcs_vag = 0:
+		if stat['virgin'] = 1:
 			gs 'willpower', 'bj', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'I don''t know. My mother is obsessed with me staying a virgin. (<<will_cost>> Willpower)':
@@ -190,9 +190,9 @@ if $ARGS[0] = 'sex_chat':
 		*nl
 		'Mitka scratches his balls and adds with a grin: "Hey <<$pcs_nickname>>, do you want to have some fun?"'
 		mitkarand = rand(1,10)
-		if (mitkarand = 1 or (mitkarand < 5 and pcs_vag > 0)) and mesec = 0:
+		if (mitkarand = 1 or (mitkarand < 5 and stat['virgin'] = 0)) and mesec = 0:
 			'"How about you let me fuck you today?" Mitka asks.'
-			if pcs_vag = 0: 
+			if stat['virgin'] = 1: 
 				gs 'willpower', 'sex', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'No, I''m still a virgin. (<<will_cost>> Willpower)':

locations/mitkabuh.qsrc

@@ -463,7 +463,7 @@ if $ARGS[0] = 'solo_1to9':
 	'You are way too drunk and can barely stand. Mitka, noticing your condition, grabs you by the waist. "Well, well little <<$pcs_nickname>>, had a bit too much to drink? Come with me."'
 	
 	mitkarand = rand(1,10)
-	if (mitkarand = 1 or (mitkarand < 5 and pcs_vag > 0)) and mesec = 0:
+	if (mitkarand = 1 or (mitkarand < 5 and stat['virgin'] = 0)) and mesec = 0:
 		act 'You nod and slur your words... mumbling something as you fall into his waiting arms':
 			*clr & cla
 			if pcs_vag = 0:

locations/mother_sextalk.qsrc

@@ -580,7 +580,7 @@ if $ARGS[0] = 'bathroom_dildo_response_single':
 			'"Oh yeah? Then you won''t mind if I throw this straight into the garbage. And you won''t mind getting a referral from the clinic either. <i>Today</i> <<$pcs_firstname>>."'
 			gs'mother_sextalk','dildo_dumpster_ending1'
 			*nl
-			if pcs_vag > 0:
+			if stat['virgin'] = 0:
 				'<i>Great. Now I''m going to get in even bigger trouble. <b>And</b> I lost my dildo...</i>'
 			else
 				'<i>Great. Now I have to do that too. I didn''t even get to use it...</i>'
@@ -605,7 +605,7 @@ if $ARGS[0] = 'bathroom_dildo_response_single':
 		GspravkaTimes = 2
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mother.jpg"></center>'
-		if stat['vaginal_dildo'] = 0 or pcs_vag = 0:
+		if stat['vaginal_dildo'] = 0 or stat['virgin'] = 1:
 			'"No! I haven''t! I... I didn''t get to use it yet..."'
 			'"You think I''m going to fall for an obvious lie like that <<$pcs_firstname>>??"'
 			'"No! I swear! It''s true!"'
@@ -647,7 +647,7 @@ if $ARGS[0] = 'bathroom_dildo_response_single':
 		'"Oh yeah? Then you won''t mind if I throw this straight into the garbage. And you won''t mind getting a referral from the clinic either. <i>Today</i> <<$pcs_firstname>>."'
 		gs'mother_sextalk','dildo_dumpster_ending1'
 		*nl
-		if pcs_vag > 0:
+		if stat['virgin'] = 0:
 			'<i>Great. Now I''m going to get in even bigger trouble. <b>And</b> I lost my dildo...</i>'
 		else
 			'<i>Great. Now I have to do that too. I didn''t even get to use it...</i>'
@@ -712,7 +712,7 @@ if $ARGS[0] = 'bathroom_dildo_response_multiple':
 			'"Oh yeah? Then you won''t mind if I throw these straight into the garbage. And you won''t mind getting a referral from the clinic either. <i>Today</i> <<$pcs_firstname>>."'
 			gs'mother_sextalk','dildo_dumpster_ending1'
 			*nl
-			if pcs_vag > 0:
+			if stat['virgin'] = 0:
 				'<i>Great. Now I''m going to get in even bigger trouble. <b>And</b> I lost my dildo...</i>'
 			else
 				'<i>Great. Now I have to do that too. I didn''t even get to use it...</i>'
@@ -737,7 +737,7 @@ if $ARGS[0] = 'bathroom_dildo_response_multiple':
 		GspravkaTimes = 2
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mother.jpg"></center>'
-		if stat['vaginal_dildo'] = 0 or pcs_vag = 0:
+		if stat['vaginal_dildo'] = 0 or stat['virgin'] = 1:
 			'"No! I haven''t! I... I didn''t get to use them yet..."'
 			'"You think I''m going to fall for an obvious lie like that <<$pcs_firstname>>? There were <i>two of them</i> in there!"'
 			'"No! I swear! It''s true!"'
@@ -780,7 +780,7 @@ if $ARGS[0] = 'bathroom_dildo_response_multiple':
 		'There were <i>two of them</i> in there! Are you jerking one off while you suck on the other? Besides, you shouldn''t be doing that either!" she sputters. "Well, if you''re telling the truth then you won''t mind if I throw these straight into the garbage. And you won''t mind getting a referral from the clinic either. <i>Today</i> <<$pcs_firstname>>."'
 		gs'mother_sextalk','dildo_dumpster_ending1'
 		*nl
-		if pcs_vag > 0:
+		if stat['virgin'] = 0:
 			'<i>Great. Now I''m going to get in even bigger trouble. <b>And</b> I lost my dildo...</i>'
 		else
 			'<i>Great. Now I have to do that too. I didn''t even get to use it...</i>'

locations/motherkafeboss.qsrc

@@ -456,7 +456,7 @@ end
 if $ARGS[0] = 'first_sex2':
 	cla & *clr
 	slavafuck += 1
-	if pcs_vag > 0:
+	if stat['virgin'] = 0:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/cafe/pre.jpg"></center>'
 		'Pushing you backwards onto the table, Borislav now lines up his cock to fuck your pussy.'
 		act'Cry':

locations/olu.qsrc

@@ -64,7 +64,7 @@ if $ARGS[0] = 'olusex':
 				end
 			end
 		end
-		if pcs_vag ! 0:
+		if stat['virgin'] = 0:
 			act 'No':
 				*clr & cla
 				OluQW['vaginal'] += 1
@@ -273,7 +273,7 @@ if $ARGS[0] = 'seduction_strip':
 					end
 				end
 			end
-			if pcs_vag ! 0:
+			if stat['virgin'] = 0:
 				act 'Ok':
 					*clr & cla
 					OluQW['think_virgin'] = 0
@@ -415,7 +415,7 @@ if $ARGS[0] = 'olusex1':
 							end
 						end
 					end
-					if pcs_vag ! 0:
+					if stat['virgin'] = 0:
 						act 'Ok':
 							*clr & cla
 							OluQW['think_virgin'] = 0

locations/olutaxi.qsrc

@@ -257,7 +257,7 @@ if $ARGS[0] = 'djibril_taxi_sex':
 				'<center><img <<$set_imgh>> src="images/characters/city/university/boy/djibril/sex/taxi/taxi3.jpg"></center>'
 				'You climb off him as he pulls down his pants and underwear, his massive cock springs free. He is not as big as his uncle but he is not a lot smaller either, huge cocks must run in the family. You grab ahold of it and can''t even wrap your fingers all the way around it, you start jerking him off then you lean over and start sucking on the head of his dick. You slowly work your mouth lower, his monstrous dick causes your jaws to stretch as you take him into your mouth. He moans as you suck his cock and jerk it off with one hand. He reaches over your body with one arm and starts rubbing and fingering your pussy.'
 				*nl
-				if pcs_vag = 0:
+				if stat['virgin'] = 1:
 					'His fingers probe your virgin pussy carefully, careful not to break your hymen.'
 					'He alternates between rubbing your clit and fingering your pussy, as you start getting aroused and wet, he starts pulling his wet fingers out of your pussy and rubbing them on your asshole, after several times of that he starts to finger your asshole as well, it seems he shares another thing with his uncle as well, love of anal sex.'
 				end	
@@ -266,7 +266,7 @@ if $ARGS[0] = 'djibril_taxi_sex':
 				gs 'arousal', 'vaginal_finger', -5
 				gs 'stat'
 				act 'Just the butt': gt 'olutaxi', 'djibril_just_anal'
-				if pcs_vag > 0:
+				if stat['virgin'] = 0:
 					act 'Get fucked':
 						*clr & cla
 						gs 'boyStat', 'A82'
@@ -419,7 +419,7 @@ if $ARGS[0] = 'olu_taxi_sex':
 			'You try and take as much of his cock into your mouth as you can but you can only get about a third of the way down his shaft before you start to gag on it. He moans in pleasure anyway from your efforts to take more of him into your mouth. He starts to rub his hand up and down your spine gentle caressing you as you suck on his dick. You can tell he is wanting to fuck you, as his hands start roaming your body more and more, he hasn''t yet tried to force your to turn around but you know it is coming.'
 			gs 'arousal', 'bj', 5
 			gs 'stat'
-			if pcs_vag > 0:act 'Get fucked': gt 'olutaxi', 'olu_taxi_sex_vaginal' 
+			if stat['virgin'] = 0:act 'Get fucked': gt 'olutaxi', 'olu_taxi_sex_vaginal' 
 			act 'Just the butt': gt 'olutaxi', 'olu_taxi_sex_anal'
 			
 			gs 'willpower', 'bj', 'force', 'easy'
@@ -463,7 +463,7 @@ if $ARGS[0] = 'olu_taxi_sex':
 				'You stop sucking his dick and instead lay back on the seat and spread you legs wide, exposing your glistening wet pussy to him. He understands what you want, with out you even having to ask. He kneels down on the floor, leaning forward, placing his head between your legs, he begins to lick, kiss and suck on your clit. He alternates between that and sliding his tongue between your pussy lips to tongue fuck you as best he can. You feel yourself getting wetter and wetter from his ministrations. Eventually he uses a hand to rub your clit as well, you can tell by his movements he is about to try and fuck you.'
 				gs 'arousal', 'cuni', 5
 				gs 'stat'
-				if pcs_vag = 0:act 'Get fucked': gt 'olutaxi', 'olu_taxi_sex_vaginal' 
+				if stat['virgin'] = 0:act 'Get fucked': gt 'olutaxi', 'olu_taxi_sex_vaginal' 
 				act 'Just the butt': gt 'olutaxi', 'olu_taxi_sex_anal'
 				gs 'willpower', 'bj', 'force', 'easy'
 				if will_cost <= pcs_willpwr:

locations/pav_aptcourtev.qsrc

@@ -1675,7 +1675,7 @@ if $ARGS[0] = 'two_boys':
 						end
 					end
 				end
-				if pcs_vag > 0:
+				if stat['virgin'] = 0:
 					act 'Let them do what they want':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/events/sex/apartment/nfuck1.jpg"></center>'

locations/pav_clinic.qsrc

@@ -834,62 +834,68 @@ if $ARGS[0] = 'referral':
 		*clr & cla
 		minut += 5
 		gs 'stat'
+
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
-		'You''re a bit nervous as you enter the gynaecologist''s office. Your mother expects you to get a referral from him that states you''re still a virgin, except there''s one small problem... you''re not a virgin any more! Maybe you can work something out with him?'
-		if gpoliuborka = 2:
-			'"Hi <<$pcs_nickname>>. What brings you in today?" Dr. Petrovich says with a smile.'
-			'"Hello, doctor. It''s time for my monthly check-up again. My mother needs a referral from you to make sure I''m still a virgin," you reply.'
-			'"Ah, yes. For... school, right? Let''s take a look," the doctor replies with a chuckle as you are already on your way to stand by the examination table, like last time.'
+		if stat['virgin'] = 1 and stat['hidden_vaginal'] > 0:
+			'You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a moment to realize that it is heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.'
+			act 'Have the check-up': gt 'pav_clinic', 'referral2'
 		else
-			'"Hello, young lady. I''m Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" the doctor asks as he comes into the examination room.'
-			'"Hello sir. I''m here for my monthly referral. My mother needs one from you to establish I''m still a virgin. It''s for school," you explain.'
-			'"For... school?" he asks, a tad confused. Then he snaps out of it and replies: "Anyway... let''s take a look, shall we?" as he gestures for you to stand next to the examination table.'
-		end
+			'You''re a bit nervous as you enter the gynaecologist''s office. Your mother expects you to get a referral from him that states you''re still a virgin, except there''s one small problem... you''re not a virgin any more! Maybe you can work something out with him?'
+			if gpoliuborka = 2:
+				'"Hi <<$pcs_nickname>>. What brings you in today?" Dr. Petrovich says with a smile.'
+				'"Hello, doctor. It''s time for my monthly check-up again. My mother needs a referral from you to make sure I''m still a virgin," you reply.'
+				'"Ah, yes. For... school, right? Let''s take a look," the doctor replies with a chuckle as you are already on your way to stand by the examination table, like last time.'
+			else
+				'"Hello, young lady. I''m Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" the doctor asks as he comes into the examination room.'
+				'"Hello sir. I''m here for my monthly referral. My mother needs one from you to establish I''m still a virgin. It''s for school," you explain.'
+				'"For... school?" he asks, a tad confused. Then he snaps out of it and replies: "Anyway... let''s take a look, shall we?" as he gestures for you to stand next to the examination table.'
+			end
 
-		act 'Have the check-up':
-			*clr & cla
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
-			'The doctor breathes on his stethoscope to warm it up and says: "Lift your shirt, please."'
-			'Lift your shirt? What does that have to do with your virginity?'
-			'He sees your hesitation, and reassures you: "I''m just doing some basic check-ups while you''re here anyway. Now... your shirt, please?"'
-			'That makes sense. You expose your <<$titsize>> breasts to him when you lift your shirt up, and he examines you. You''re no medical professional, but you''re fairly sure he''s not supposed to put the stethoscope on your boob like that! Nevertheless... you need him to give you that referral, and calling him out on it will definitely not help your cause.'
-			'You decide to humour him and just let him play with your boobs for several minutes, after which he nods happily and says: "Everything seems to be in order."'
-			'There is an eager sparkle in his eyes when he looks at your bare breasts. The pervert!'
-			'He continues: "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."'
-			act 'Undress':
+			act 'Have the check-up':
 				*clr & cla
 				minut += 5
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
-				'You reluctantly take your clothes off, trying to put off the moment as long as you can. You know he will find out about your secret in a moment. Nevertheless, you don''t have any other option. Maybe you''ll get lucky and he won''t notice?'
-				act 'Sit in the chair': gt 'pav_clinic', 'referral2'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
+				'The doctor breathes on his stethoscope to warm it up and says: "Lift your shirt, please."'
+				'Lift your shirt? What does that have to do with your virginity?'
+				'He sees your hesitation, and reassures you: "I''m just doing some basic check-ups while you''re here anyway. Now... your shirt, please?"'
+				'That makes sense. You expose your <<$titsize>> breasts to him when you lift your shirt up, and he examines you. You''re no medical professional, but you''re fairly sure he''s not supposed to put the stethoscope on your boob like that! Nevertheless... you need him to give you that referral, and calling him out on it will definitely not help your cause.'
+				'You decide to humour him and just let him play with your boobs for several minutes, after which he nods happily and says: "Everything seems to be in order."'
+				'There is an eager sparkle in his eyes when he looks at your bare breasts. The pervert!'
+				'He continues: "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."'
+				act 'Undress':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
+					'You reluctantly take your clothes off, trying to put off the moment as long as you can. You know he will find out about your secret in a moment. Nevertheless, you don''t have any other option. Maybe you''ll get lucky and he won''t notice?'
+					act 'Sit in the chair': gt 'pav_clinic', 'referral2'
+				end
 			end
-		end
 
-		act 'Admit you''re no virgin':
-			*clr & cla
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
-			if gpoliuborka = 2:
-				'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
-				'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
-				'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
-				'You continue: "But... my <<$npc_nickname[''A29'']>> thinks I''m still a virgin, and I would really like to keep it that way. Could you please help me?"'
-				'He looks puzzled for a second, and his eyes widen when he realizes what you''re asking of him: "You mean... fake your referral? That''s fraud! Do you have any idea how much trouble I could end up in if I do that?"'
-			else
-				'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
-				'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
-				'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
-				'You continue: "But... my <<$npc_nickname[''A29'']>> thinks I''m still a virgin, and I would really like to keep it that way. Could you please help me?"'
-				'He nods again and says: "I see what you''re getting at. I might be able to help you, but I''m running a big risk by doing that. What''s in it for me?"'
-			end
+			act 'Admit you''re no virgin':
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
+				if gpoliuborka = 2:
+					'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
+					'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
+					'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
+					'You continue: "But... my <<$npc_nickname[''A29'']>> thinks I''m still a virgin, and I would really like to keep it that way. Could you please help me?"'
+					'He looks puzzled for a second, and his eyes widen when he realizes what you''re asking of him: "You mean... fake your referral? That''s fraud! Do you have any idea how much trouble I could end up in if I do that?"'
+				else
+					'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
+					'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
+					'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
+					'You continue: "But... my <<$npc_nickname[''A29'']>> thinks I''m still a virgin, and I would really like to keep it that way. Could you please help me?"'
+					'He nods again and says: "I see what you''re getting at. I might be able to help you, but I''m running a big risk by doing that. What''s in it for me?"'
+				end
 
-			act 'Offer him money':gt 'pav_clinic', 'spravka_money'
-			act 'Try to negotiate':gt 'pav_clinic', 'spravka_arrange'
-			act 'Just accept the referral as is':gt 'pav_clinic', 'badend'
+				act 'Offer him money':gt 'pav_clinic', 'spravka_money'
+				act 'Try to negotiate':gt 'pav_clinic', 'spravka_arrange'
+				act 'Just accept the referral as is':gt 'pav_clinic', 'badend'
+			end
 		end
 	end
 end
@@ -915,7 +921,7 @@ if $ARGS[0] = 'referral2':
 
 	if $gpoli_sick = '':
 		'"Well, you are completely healthy. However, you are also no longer a virgin." At these words you see the corners of his mouth twitch, and you think his trousers look a little tighter in his crotch area. "Please get dressed again while I write out the referral for your mother."'
-		if stat['vaginal'] = 0 and stat['hidden_vaginal'] > 0:
+		if stat['virgin'] = 1:
 			'Your heart begins to race when you hear that, your mother can''t find out! How could this have happened you''ve never even had sex!'
 		else
 			'Your heart begins to race when you hear that, your mother can''t find out! She would kill you if she finds out what you have been up to!'
@@ -926,7 +932,7 @@ if $ARGS[0] = 'referral2':
 		'The doctor frowns when he gives you the results: "I''m afraid I have some bad news, <<$pcs_nickname>>. You <<$gpoli_sick>>.'
 		if venera > 0 or Kandidoz > 10: gs 'pav_clinic', 'std_check'
 		'You''re also not a virgin any more, obviously."'
-		if stat['vaginal'] = 0 and stat['hidden_vaginal'] > 0:
+		if stat['virgin'] = 1:
 			'Your heart begins to race when you hear that, your mother can''t find out! How could this have happened you''ve never even had sex!'
 		else
 			'Your heart begins to race when you hear that, your mother can''t find out! She would kill you if she finds out what you have been up to!'

locations/pav_disco_gopniks.qsrc

@@ -1571,7 +1571,7 @@ if $ARGS[0] = 'anushka_dance':
 								act 'Take her home': gt 'anushkaev1','bedroom_lesbian_finish'
 							end
 						end
-						if strapon = 1 and pcs_vag ! 0 and PCLoSkirt > 0:
+						if strapon = 1 and stat['virgin'] = 0 and PCLoSkirt > 0:
 							act 'You want her to fuck you':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/anushka_dance4.jpg"></center>'

locations/pav_disco_sex.qsrc

@@ -861,7 +861,7 @@ if $ARGS[0] = 'blowjob':
 				end
 			end
 			
-!!			if pcs_vag = 0:
+!!			if stat['virgin'] = 1:
 !!				act'I''m a virgin':
 !!					cla & *clr
 !!					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
@@ -1024,7 +1024,7 @@ end
 if $ARGS[0] = 'fuck1':
 	gdk['fuck'] = 1
 	gdk['orgasm'] = orgasm
-	if pcs_vag = 0:gt'pav_disco_sex','virgin_fuck'
+	if stat['virgin'] = 1:gt'pav_disco_sex','virgin_fuck'
 	gs'arousal','vaginal', rand(3,7), 'no_orgasm_msg'
 	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/fuck.mp4"></video></center>'
 	if mesec > 0:
@@ -1586,7 +1586,7 @@ if $ARGS[0] = 'hotel':
 end
 
 if $ARGS[0] = 'heating_up':
-	if pcs_vag = 0:
+	if stat['virgin'] = 1:
 		act 'Tell him you''re still a virgin':
 			*clr & cla
 			gs 'stat'

locations/pav_hotelWork.qsrc

@@ -53,7 +53,7 @@ if $ARGS[0] = 'hotcouple':
 			'While you were vigorously sucking on the cock you could feel Uliana''s fingers touching and entering your pussy.'
 			gs 'npcgeneratec', 0, 'Motya', rand(30,40)
 			gs 'stat'
-			if pcs_vag = 0:
+			if stat['virgin'] = 1:
 				'When she reached your hymen she yelled out: "Oh my god, she is still a virgin!"'
 				'"How about it honey, do you want my husband to be your first?"'
 				gs 'willpower', 'sex', 'resist'
@@ -151,9 +151,9 @@ if $ARGS[0] = 'firsthotelprosevent':
 		gs 'npcgeneratec', 0, 'Black guy', rand(18,40)
 		gs 'boyStat', $npclastgenerated
 		'As you continue servicing Pavlin''s manhood, the black guy moves behind you. He suddenly grabs you by the hips and yanks you up to a standing position.'
-		if pcs_vag = 0:'As you feel the massive member rub up against your exposed snatch, your heart skips a beat. "Oh god, am I really about to lose my virginity to a black man?!?! What would my family think of me if they knew? And why do I feel so excited about it?" You think, mind racing with emotion. '
+		if stat['virgin'] = 1:'As you feel the massive member rub up against your exposed snatch, your heart skips a beat. "Oh god, am I really about to lose my virginity to a black man?!?! What would my family think of me if they knew? And why do I feel so excited about it?" You think, mind racing with emotion. '
 		'He places one calloused hand on you back and starts pushing his big <<dick>> cm schlong inside your dripping pussy. "Oh fuck!" You groan as he buries himself inside you.'
-		if pcs_vag = 0:'As the thick, dark dick slams into you, you yelp in pain as tears roll down your cheeks. It feels as if you''re being split in half and you''re sure there''s some blood leaking from your conquered maidenhead. "Too late to turn back now." you think. "My virginity is his. It will always be his. God, how am i going to explain this to my mother?"'
+		if stat['virgin'] = 1:'As the thick, dark dick slams into you, you yelp in pain as tears roll down your cheeks. It feels as if you''re being split in half and you''re sure there''s some blood leaking from your conquered maidenhead. "Too late to turn back now." you think. "My virginity is his. It will always be his. God, how am i going to explain this to my mother?"'
 		' '
 		'Mr. Black gives you little time to adjust to his size before he''s pounding away in force.'
 		'"Don''t get distracted skank, you got plenty of dick right here too." Pavlin says as he forces your mouth back onto his cock.'

locations/placer_sex.qsrc

@@ -903,7 +903,7 @@ if $args[0] = 'card_stript':
 						gs 'arousal', 'flash', 5, 'unknown', 'sub', 'group'
 						gs 'stat'
 						act 'Continue':
-							if pcs_horny < 100 or pcs_vag = 0:
+							if pcs_horny < 100 or stat['virgin'] = 1:
 								*clr & cla
 								gs 'underwear', 'remove'
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex72.jpg"></center>'
@@ -1991,7 +1991,7 @@ if $ARGS[0] = 'sleeping_park_alco_rape':
 						gs 'underwear', 'remove'
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_6.jpg"></center>'
-						if pcs_vag = 0:
+						if stat['virgin'] = 1:
 							'Your eyes grow wide, and you cry out: "Please, sir! Please, I''m begging you! I''m still a virgin... I can''t lose my virginity like this!"'
 							'The guy is not interested in your pleas: "Look, girl. This can go two ways... either you take your clothes off for me, or I will do it for you. What''s it going to be?"'
 							'You realize he''s not going to let you go. With tears in your eyes you slowly begin to take off your clothes, softly begging the whole time: "Please, sir... please don''t do this..."'
@@ -2003,7 +2003,7 @@ if $ARGS[0] = 'sleeping_park_alco_rape':
 							cla & *clr
 							'<center><img <<$set_imgh>> src="images/locations/shared/park/sex/bench/sleeping_parc_alco1_7.jpg"></center>'
 							if pcs_throat < dick: pcs_throat += 1
-							if pcs_vag = 0:
+							if stat['virgin'] = 1:
 								'His stone cold expression never leaves his face, while he orders you in an even tone: "Good, now suck my cock."'
 								'It''s still flaccid, and you hesitantly close your lips around it. You put one hand near the base to help yourself while you slowly feel his cock harden between your lips, never taking it out of your mouth. It''s a bit longer than you expected it to be, and you have a rough time suppressing your gag reflex when it hits the back of your throat.'
 								'He''s not very impressed with your efforts so far, and moans: "Come on, street trash... put some effort into it!"'

locations/rolanbath.qsrc

@@ -506,7 +506,7 @@ if $ARGS[0] = 'bazar':
 			act 'Chat some more': gt 'rolanbath', 'bazar'
 			act 'Ask to take a shower': gt 'rolanbath', 'pervshower'
 		end
-		if sh_rolan_bazar >= 25 and npc_rel['A133'] >= 50 and rolan_bazar_count >= 1 and pcs_vag >=1:
+		if sh_rolan_bazar >= 25 and npc_rel['A133'] >= 50 and rolan_bazar_count >= 1 and stat['virgin'] = 0:
 			act 'Suggest bathing together': gt 'rolanbath', 'bonershower'
 		end
 	end

locations/selfplay.qsrc

@@ -87,7 +87,7 @@ if $ARGS[0] = 'start':
 
 				if vgape <= 0:
 					act 'Use the dildo on your pussy':
-						if pcs_vag = 0 and dick >= 20:
+						if stat['virgin'] = 1 and dick >= 20:
 							'Are you sure? Doing so will most likely break your hymen.'
 							act 'Yes, do it':
 								cls

locations/shulga_room.qsrc

@@ -1388,7 +1388,7 @@ if $ARGS[0] = 'shulga_lern':
 			'"<<$pcs_nickname>>, if you would like to keep learning, I''ve been told that I''m an excellent teacher", Vasily says as he gently starts to paw at you.'
 			'You have a sneaking suspicion that he isn''t talking about the biology assignment.'
 			'You stammer: "I... don''t know... would you please..."'
-			if pcs_vag >= 1:
+			if stat['virgin'] = 0:
 				gs 'willpower', 'sex', 'resist', 'easy'
 				if will_cost <= pcs_willpwr:
 					act 'Stop it (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'shulga_room', 'shulga_lern_sex_no'
@@ -1552,7 +1552,7 @@ if $ARGS[0] = 'shulga_bazar_day':
 		act 'Do homework': gt 'shulga_room', 'shulga_lern'
 	end
 
-	if npc_rel['A11'] >= 70 and pcs_vag >= 1 and (alko >= 1 or pcs_horny >= 30):
+	if npc_rel['A11'] >= 70 and stat['virgin'] = 0 and (alko >= 1 or pcs_horny >= 30):
 		gs 'willpower', 'sex', 'self', 'easy'
 		if will_cost <= pcs_willpwr:
 			act 'Suggest sex (<<will_cost>> Willpower)':

locations/shulgabath.qsrc

@@ -151,7 +151,7 @@ if $ARGS[0] = 'ev1':
 			act 'Suggest you take a bath together (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
-	if sh_sonya_bazar >= 25 and npc_rel['A112'] >= 50 and pcs_vag >= 1:
+	if sh_sonya_bazar >= 25 and npc_rel['A112'] >= 50 and stat['virgin'] = 0:
 		gs 'willpower', 'group', 'self'
 		if will_cost <= pcs_willpwr:
 			act 'Suggest you and Sonia fuck Sergey together (<<will_cost>> Willpower)': gs 'willpower', 'group', 'self' & gs 'willpower', 'pay', 'self' & gt 'shulgabath', 'serg_sex'
@@ -217,7 +217,7 @@ if $ARGS[0] = 'bazar':
 			act 'Suggest you take a bath together (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
-	if sh_sonya_bazar >= 25 and npc_rel['A112'] >= 50 and sonya_bazar_count >= 1 and pcs_vag >= 1:
+	if sh_sonya_bazar >= 25 and npc_rel['A112'] >= 50 and sonya_bazar_count >= 1 and stat['virgin'] = 0:
 		gs 'willpower', 'group', 'self'
 		if will_cost <= pcs_willpwr:
 			act 'Suggest you and Sonia fuck Sergey together (<<will_cost>> Willpower)': gs 'willpower', 'group', 'self' & gs 'willpower', 'pay', 'self' & gt 'shulgabath', 'serg_sex'

locations/sister.qsrc

@@ -434,7 +434,7 @@ if $ARGS[0] = 'scene1':
 !1 - knows about the parties
 !2 - agreed to go to the party
 !!again want to change rexs party to only every other Friday
-		elseif week < 5 and week > 1 and ((daystart+2) / 7) mod 2 = 0 and pcs_vag > 0 and (sisterQW['party'] = 0 or sisterQW['party'] = 2) and daystart - sisterQW['partyday'] > 3:
+		elseif week < 5 and week > 1 and ((daystart+2) / 7) mod 2 = 0 and stat['virgin'] = 0 and (sisterQW['party'] = 0 or sisterQW['party'] = 2) and daystart - sisterQW['partyday'] > 3:
 			'Roma looks up at you, suddenly remembering something. "<<$pcs_nickname>>, Rex''s apartment is available on Friday and he''s having a party. Do you want to go?"'
 			sisterQW['partyday'] = daystart
 			minut += 5

locations/sisterQW.qsrc

@@ -410,7 +410,7 @@ if $ARGS[0] = 'flash_boobs':
 					end	
 
 					!!pc is virgin:
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'You are virgin, offer butt':
 							*clr & cla
 							gs 'boyStat', 'A56'

locations/sister_chat.qsrc

@@ -281,7 +281,7 @@ if $ARGS[0] = 'sister_chat':
 				end
 			end
 			act 'Continue': gt 'sister_chat', 'sister_chat'
-		elseif week < 5 and week > 1 and ((daystart + 2)/ 7) mod 2 = 0 and pcs_vag > 0 and npc_rel['A33'] >= 80 and (sisterQW['party'] = 0 or sisterQW['party'] = 2) and daystart - sisterQW['partyday'] > 3:
+		elseif week < 5 and week > 1 and ((daystart + 2)/ 7) mod 2 = 0 and stat['virgin'] = 0 and npc_rel['A33'] >= 80 and (sisterQW['party'] = 0 or sisterQW['party'] = 2) and daystart - sisterQW['partyday'] > 3:
 			*clr & cla
 			minut += 5
 			sisterQW['partyday'] = daystart

locations/stat.qsrc

@@ -18,12 +18,18 @@ view
 rand1 = rand(0,100)
 $stat_msg=''
 
-if MagikDostup = 0: magik_exp = orgasm
+if $start_type[1] ! 'nomagic': magik_exp = orgasm
 
 if insleep = 0: gs 'stat_sklattrib'
 
 if cheatHealth = 1: dynamic $cheatmenu['std_cure']
 
+if stat['vagainal'] = 0 and stat['vaginal_fist'] = 0 and stat['vaginal_dildo'] = 0 and stat['vaginal_strap'] = 0:
+	stat['virgin'] = 1
+else
+	stat['virgin'] = 0
+end
+
 if (analplay >= 2 and pcs_ass <= 10) or (analplay >= 4 and pcs_ass <= 15) or (analplay >= 8 and pcs_ass <= 20): pcs_ass += 1 & analplay = 0
 
 !!This is a temporary stop-gap measure for the accomadation skill and will be removed

locations/tatiana_lab.qsrc

@@ -720,7 +720,7 @@ if $ARGS[0] = 'teach_strip':
 	!! NOTE - This action will determine the fucking machine event that initiates the chain.
 	!! NOTE 2 - This action will be repeated every time Sveta asks to learn more spells, but the "act" must be restricted to Sveta''s current fucking machine level.
 
-	if pcs_vag = 0 or tatiana_teach_escalation <= 2:
+	if stat['virgin'] = 1 or tatiana_teach_escalation <= 2:
 		act 'The saddle-looking one(No penetration)': gt 'tatiana_lab', 'saddle'
 	end
 	if tatiana_teach_escalation <= 4:
@@ -752,7 +752,7 @@ if $ARGS[0] = 'saddle':
     'Finally, the controller slips from your clenching fingers as your magical climax triggers, taking your breath and self-control away and sending wave after wave of magically enhanced pleasure pulsing through your body.'
 
 	act 'Time for a lesson':
-		if pcs_vag = 0 or tatiana_teach_escalation < 2:
+		if stat['virgin'] = 1 or tatiana_teach_escalation < 2:
 			if pcs_vag ! 0: tatiana_teach_escalation += 1
 			gt 'tatiana_lab', 'lesson<<tat_lesson_number>>'
 		else

locations/tatiana_missions.qsrc

@@ -842,7 +842,7 @@ if $ARGS[0] = 'mission2sex':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/city/btatiana/Sex/MT8.jpg"></center>'
 				'At some point, between your moans, calls to God and screaming her name, Tatiana has managed to turn you face down. She lies over you, kissing your back and whispering sweet-nothings at the same time as her finger penetrates your vulva.'
-				if pcs_vag = 0:
+				if stat['virgin'] = 1:
 					'"Tatiana! I am... <i>ahh...</i> a virgin!"'
 					'You don''t know exactly why you muttered those words as Tatiana drills your cunt a little too deep, but it makes her stop and withdraw the intruding finger to your engorged outer lips, where she proceeds to do more delicate masturbation.'
 					'"Oh... okay. Sorry, <<$pcs_nickname>>, I won''t take that from you. I... understand that you want to gift it to someone special."'

locations/therapist.qsrc

@@ -519,7 +519,7 @@ if $ARGS[0] = 'firstHypnoStage':
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting<<rand(1,2)>>.jpg"></center>'
 				if age < 18:
 					'"<<age>>? Good. And are you a virgin?"'
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'Yes, <i>Master</i>':
 							cla
 							*clr
@@ -596,7 +596,7 @@ if $ARGS[0] = 'firstHypnoStage':
 					end
 				elseif age = 18:
 					'<<age>>? Good. And are you a virgin?'
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'Yes, <i>Master</i>':
 							cla
 							*clr
@@ -673,7 +673,7 @@ if $ARGS[0] = 'firstHypnoStage':
 					end
 				else
 					'"Hmm a bit older than I like, but I will use your holes just the same. Are you a virgin?"'
-					if pcs_vag = 0:
+					if stat['virgin'] = 1:
 						act 'Yes, <i>Master</i>':
 							cla
 							*clr
@@ -1184,7 +1184,7 @@ if $ARGS[0] = 'fuck':
 	'<b>The moment you see his massive dick, your mind enters the black room.</b>'
 	''
 	'<<$hypnofuck>> As soon as he is inside your pussy, he starts to fuck you.'
-	if pcs_vag = 0 and stat['hidden_vaginal'] = 0:
+	if stat['virgin'] = 1 and stat['hidden_vaginal'] = 0:
 		gs 'pain', 5, 'vaginal', 'stretch'
 		if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0:
 			'You feel a sharp pain as Dr. Pavlov pushes through your maidenhead, taking it away. "Fresh virgin school girl pussy! So tight..."'
@@ -1300,7 +1300,7 @@ if $ARGS[0] = 'hypnoFuck':
 	end
 	$hypnofuck
 	'As soon as he is inside your pussy, he starts to fuck you.'
-	if pcs_vag = 0 and stat['hidden_vaginal'] = 0:
+	if stat['virgin'] = 1 and stat['hidden_vaginal'] = 0:
 		gs 'pain', 5, 'vaginal', 'stretch'
 		if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0:
 			'You feel a sharp pain as your <i>Master</i> pushes through your maidenhead, taking it away. "Fresh virgin school girl pussy! So tight... I will pump you full of cum every day until you bear my child."'

locations/trFatherMisha.qsrc

@@ -526,7 +526,7 @@ if $ARGS[0] = '':
 						cls
 						'<center><img <<$set_imgh>> src="images/characters/city/mikhail/sex/trfatherqw_43.jpg"></center>'
 						'Before he''s able to answer, you start pushing him out of the truck. Mikhail barely manages to get out of the truck, as you push him down on the grass and jump on top of him.'
-						if pcs_vag = 0:'"I''ve always fantasized about this moment. You''ll be my first, daddy." with these words, you grab his cock leading it towards your wet clit, eagerly awaiting for your father to deflower you.'
+						if stat['virgin'] = 1:'"I''ve always fantasized about this moment. You''ll be my first, daddy." with these words, you grab his cock leading it towards your wet clit, eagerly awaiting for your father to deflower you.'
 						'As you insert his cock into your wet slit, you take a minute to adjust yourself to your fathers cock. Slowly you begin rhythmically bouncing up and down his cock, as you bend over kissing him.'
 						'Overcome by arousal, your father grabs your ass adjusting the speed of how quickly you bounce up and down. He makes you go faster and faster as he penetrates you deeper. By now you''re loudly moaning your father is a great lover and he knows exactly how to fuck you to give you outmost pleasure.'
 						'Not holding back you furiously and wildly begin bouncing on top of his cock. The two of you sound like two animals in heat as you''re moaning loudly so that everyone in the near vicinity can hear you.'

locations/traits.qsrc

@@ -158,15 +158,15 @@ if $ARGS[0] = 'menu':
 	elseif traits['buttslut_lvl'] = 1:
 		'You have this trait at level 1. To reach lvl 2 you need to gain more anal orgasm exp.'
 		'You currently have <<traits[''buttslut_exp'']>> experience. Having more anal orgasms will increase this, otherwise it will degrade over time.'
-		'You''re starting to enjoy anal sex ' + iif(pcs_vag > 0, 'almost as much as regular sex.', 'more than before.')
+		'You''re starting to enjoy anal sex ' + iif(stat['virgin'] = 0, 'almost as much as regular sex.', 'more than before.')
 	elseif traits['buttslut_lvl'] = 2:
 		'You have this trait at level 2. To reach lvl 3 you need to gain more anal orgasm exp.'
 		'You currently have <<traits[''buttslut_exp'']>> experience. Having more anal orgasms will increase this, otherwise it will degrade over time.'
-		'You''re enjoy anal sex ' + iif(pcs_vag > 0, 'as much as regular sex.', 'a great deal.')
+		'You''re enjoy anal sex ' + iif(stat['virgin'] = 0, 'as much as regular sex.', 'a great deal.')
 	elseif traits['buttslut_lvl'] = 3:
 		'You have this trait at level 3. This is the highest level.'
 		'You currently have <<traits[''buttslut_exp'']>> experience. Having more anal orgasms will increase this, otherwise it will degrade over time.'
-		if pcs_vag > 0:
+		if stat['virgin'] = 0:
 			'You now enjoy anal sex more than regular sex.'
 		else
 			'You find anal sex to be extremely gratifying.'

locations/zaprFWash.qsrc

@@ -483,7 +483,7 @@ if $ARGS[0] = 'blowjob':
 	'After a while, the man starts trying to remove your clothes. He asks you to let him fuck your pussy: "I''ll give you 400 <b>₽</b> if you let me take your pussy! C''mon!'
 	
 	if (bimbolevel >= 1 and pcs_inhib >= 40) or pcs_horny >= 40:
-		if pcs_vag = 0:
+		if stat['virgin'] = 1:
 			act 'Offer your ass instead (you don''t want to lose your virginity to this stranger...)':gt 'zaprFWash', 'fuckAnal', 'Paid'
 		else
 			act 'Offer your pussy':gt 'zaprFWash', 'fuckPussy', 'Paid'