bug fixes from Izlis

locations/Gadbana

@@ -1,10 +1,10 @@
 # Gadbana
 
 CLOSE ALL
-$metkaM = $ARGS[0]
-$locM = $CURLOC
-$metka = $ARGS[0]
-$loc = $CURLOC
+$metkaM = ''
+$locM = 'Gadbana'
+$metka = ''
+$loc = 'Gadbana'
 $location_type = 'bathroom'
 frost = 0
 
@@ -117,37 +117,8 @@ if mira = 0:
 		end
 	end
 
-	if leghair > 3 and stanok > 0:
-		act 'Shave your legs (0:15)':
-			cla
-			*clr
-			minut = minut + 15
-			leghair = 0
-			pcs_horny = pcs_horny + 5
-			stanok = stanok - 1
-
-			'<center><img src="images/shared/home/bathroom/shave.gif"></center>'
-			'You use the shaving gel to lather your legs and pick up the razor. You skillfully shave the hair off your legs and finish by washing off the remaining shaving foam.'
-
-			act 'Put away the razor':gt $curloc
-		end
-	end
+	dynamic $brit
 
-	if pcs_pubes > 3 and stanok > 0:
-		act 'Shave your pubic hair (0:15)':
-			cla
-			*clr
-			minut = minut + 15
-			pcs_pubes = 0
-			pcs_horny = pcs_horny + 5
-			stanok = stanok - 1
-
-			'<center><img src="images/shared/home/bathroom/shave.gif"></center>'
-			'You lather your pubic hair with shaving gel and pick up a razor. With neat movements you begin to shave the pubic area. After a short time the pubic area feels smooth and you wash off the remaining foam from the pussy.'
-			
-			act 'Put away the razor':gt $curloc
-		end
-	end
 	if dirtbelo > 0 and $loc = 'Gadbana':
         act 'Wash panties (<<dirtbelo * 5>> Minutes)':
             cla

locations/HanterLoveSex

@@ -479,7 +479,7 @@ $din_hanters_bjH8 ={
 	''
 	gs 'arousal', 'bj', 5, 'sub'
 	gs 'stat'
-	if hanters_bj_times < 3 and throat <= 15:'Try <a href="exec:dynamic $din_hanters_bj_bonusH8">swallowing</a> more of it.'
+	if hanters_bj_times < 3 and pcs_throat <= 15:'Try <a href="exec:dynamic $din_hanters_bj_bonusH8">swallowing</a> more of it.'
 	''
 	gs 'arousal', 'bj', 5, 'sub'
 	gs 'stat'
@@ -3148,7 +3148,7 @@ $din_hanters_sex_misionary_bonus2 ={
 
 $din_hanters_sex_misionary_bonus1 ={
 	cls
-	agil += 1
+	pcs_agil += 1
 	gs 'stat'
 	'<center><H4>Hut</H4></center>'
 	'<center><img src="images/shared/sex/vag/miss/kotovsexbonus4.gif"></center>'
@@ -3194,7 +3194,7 @@ $din_hanters_sex_misionary_bonus ={
 	i = rand(1,4)
 	j = rand(1,3)
 	h = rand(1,3)
-	if agil > 60 and pcs_dom > 30 and musle >= salo:'Throw legs <a href="exec:dynamic $din_hanters_sex_misionary_bonus1">head</a> .'
+	if pcs_agil > 50 and pcs_dom > 30 and musle >= salo:'Throw legs <a href="exec:dynamic $din_hanters_sex_misionary_bonus1">head</a> .'
 	''
 	if h < 3:'Have you had enough of this position he asks you...'
 	if h = 3:'Suddenly <<$boydesc>> begins to move even faster and you realize that he is already on edge and ready...'

locations/IgorEv

@@ -167,7 +167,7 @@ if $ARGS[0] = 'Kiss':
 			act 'Well...': gt 'igorEv', 'din_sex'
 		end
 !!I want to change the following. Now if they are dating and Sveta just needs a dom/will of 20 and knows Igor cross dresses.
-		if dom >= 20 and igor_krossdresssex >= 1 and igor_kdsexday ! daystart:
+		if pcs_dom >= 20 and igor_krossdresssex >= 1 and igor_kdsexday ! daystart:
 			cla
 			*nl
 			'As you''re not that keen getting penetrated you suggest that you want to introduce Igor to some special kind of kinky sex that turns you on.'
@@ -245,7 +245,7 @@ if $ARGS[0] = 'din_sex':
 				gs 'stat'
 				gt 'igorEv', 'din_igor_end'
 			end
-			if vagina >= 1 and sex >= 1:
+			if pcs_vag >= 1 and sex >= 1:
 				act 'Tell him to fuck you in the pussy':
 					*clr & cla
 					Igorsex += 1
@@ -709,7 +709,7 @@ if $ARGS[0] = 'din_sisterkom_krossdress':
 			'"Alright!" you cry out in excitement.'
 			act 'Put this on...':
 				*clr & cla
-				dom += 1
+				pcs_dom += 1
 				minut += 5
 				'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
 				'<center><img src="images/characters/pavlovsk/school/boy/igor/crossdress/odet.jpg"></center>'
@@ -745,7 +745,7 @@ if $ARGS[0] = 'din_sisterkom_krossdress':
 							'"Cool!" you let out a sigh of relief.'
 							act 'Put on makeup':
 								*clr & cla
-								dom += 1
+								pcs_dom += 1
 								minut += 15
 								gs 'stat'
 								'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'

locations/Miroslava

@@ -373,7 +373,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 					*clr
 					minut += 60
 					pcs_mood += 10
-					tan += 1
+					pcs_tan += 1
 					pcs_sweat += 10
 					gs 'stat'
 					
@@ -408,7 +408,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 				minut += 30
 				pcs_sweat += 10
 				pcs_mood += 5
-				tan += 1
+				pcs_tan += 1
 				gs 'stat'
 					
 				'<center><img src="images/characters/village/mira/graze_cow_sun_mira2.jpg"></center>'

locations/Serge_kuh

@@ -952,7 +952,7 @@ if $ARGS[0] = 'izdev9':
 						cls
 						gs 'boyStat', 112
 						sexpartkno = 1
-						throat += 1
+						pcs_throat += 1
 						gs'stat'
 						'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/sex5-6.jpg"></center>'
 						'Sergey leans back against the counter, when he sees how eager you are. Normally he comes across as a very demanding man, but he''s happy to leave you in control for now.'
@@ -1212,7 +1212,7 @@ if $ARGS[0] = 'izdev13':
 						cls
 						pcs_horny += 20
 						stat['bj'] +=1
-						throat += 1
+						pcs_throat += 1
 						gs'stat'
 						'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/sex1-6.jpg"></center>'
 						'Then Sergey can''t take it any more, and walks over to you. He firmly grabs you by your hair while his pants drop to the ground, making his cock spring free eagerly.'
@@ -1270,7 +1270,7 @@ if $ARGS[0] = 'izdev13':
 										sexvolume = 5
 										spafinloc = 11
 										gs 'cum_manage'
-										hapri = 0
+										pcs_hairbsh = 0
 										gs 'boyStat', 112
 										sexpartkno = 1
 										sexvolume = 5
@@ -1331,7 +1331,7 @@ if $ARGS[0] = 'izdev14':
 					cls
 					gs 'boyStat', 112
 					sexpartkno = 1
-					throat += 1
+					pcs_throat += 1
 					gs'stat'
 					'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/sex4-5.jpg"></center>'
 					'You immediately drop to your knees with your mouth wide open, eagerly taking his cock inside your mouth while your hands caress his balls.'
@@ -1373,7 +1373,7 @@ if $ARGS[0] = 'izdev14':
 								gs 'stat'
 								act 'Continue':
 									cls
-									hapri = 0
+									pcs_hairbsh = 0
 									spafinloc = 14
 									sexvolume = 20
 									gs 'cum_manage'
@@ -1531,7 +1531,7 @@ if $ARGS[0] = 'izn1':
 	sexpartkno = 1
 	serge_countsex += 1
 	rape += 1
-	hapri = 0
+	pcs_hairbsh = 0
 	gs'stat'
 	'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/gif/bj'+rand(1,11)+'.gif"></center>' 
 	if $clothingworntype ! 'nude': 'Sergey roughly strips you, easily overpowering you. He tosses your clothes aside, laughing at your futile attempts to break free.'
@@ -1582,7 +1582,7 @@ if $ARGS[0] = 'izn1':
 			gs 'stat'
 			act 'Continue':
 				cls
-				throat += 1
+				pcs_throat += 1
 				gs'stat'
 				'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/gif/foto.gif"></center>'
 				'"Not bad, <<$pcs_nickname>>. You sure you''re no whore?" Sergey laughs. He pulls out and tells you: "Stay there. I''ll be right back."'
@@ -1601,7 +1601,7 @@ if $ARGS[0] = 'izn1':
 					gs 'cum_manage'
 					facial += 1
 					minut += 5
-					hapri = 0
+					pcs_hairbsh = 0
 					gs'stat'
 					'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/gif/end1.gif"></center>'
 					'Then, before you know it, it''s over. With a loud groan, Sergey shoots his load all over your face, leaving you looking like a complete mess.'
@@ -1623,7 +1623,7 @@ if $ARGS[0] = 'izn2':
 	sexpartkno = 1
 	serge_countsex += 1
 	rape += 1
-	hapri = 0
+	pcs_hairbsh = 0
 	gs'stat'
 	'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/gif/bj'+rand(1,3)+'.gif"></center>' 
 	'"You''re such a slut, <<$pcs_nickname>>... you''re not even wearing a bra! Everyone can see your nipples poking through your clothes!" Sergey scolds you, making you blush and lower your head in shame.'
@@ -1691,7 +1691,7 @@ if $ARGS[0] = 'izn2':
 				spafinloc = 4
 				gs 'cum_manage'
 				if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-				hapri = 0
+				pcs_hairbsh = 0
 				gs'stat'
 				'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/gif/ra'+rand(6,8)+'.gif"></center>'
 				'Feeling his cock in your ass, you can''t resist the urge to masturbate. Sergey''s rough pounding makes it difficult for you to hold yourself in place and masturbate at the same time, but with some difficulty you manage and let your fingers dart over your clit. Your pussy and clit feel very slippery, probably because of your saliva from the extensive deepthroating earlier.'
@@ -1766,7 +1766,7 @@ if $ARGS[0] = 'sex1':
 				facial += 1
 				pcs_mood = 100
 				pcs_willpwr +=20
-				hapri = 0
+				pcs_hairbsh = 0
 				gs'stat'
 				'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/sex1-4.jpg"></center>'
 				'You''re very close to your orgasm when Sergey suddenly interrupts you. He wraps his arms around you and lifts you up, putting you down before him. "Uncle Sergey, I was just about to-" you complain, but he puts his finger over your lips and whispers: "Shh... I know. You''ll get there."'
@@ -1797,7 +1797,7 @@ if $ARGS[0] = 'sex2':
 	gs 'stat'
 	act 'Continue':
 		cls
-		throat += 1
+		pcs_throat += 1
 		gs'stat'
 		'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/sex2-2.jpg"></center>'
 		'"I''m sorry, uncle Sergey... but your dick is just so beautiful!" you whisper at him. "It''s like it was made to please women! I''m so lucky!"'
@@ -1834,7 +1834,7 @@ if $ARGS[0] = 'sex2':
 					pcs_willpwr +=20
 					spafinloc = 0
 					gs 'cum_manage'
-					hapri = 0
+					pcs_hairbsh = 0
 					gs'stat'
 					'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/sex2-5.jpg"></center>'
 					'Your mouth is wide open, producing lewd moans and cries while Sergey pleases you.'
@@ -1935,7 +1935,7 @@ if $ARGS[0] = 'sex3':
 							pcs_mood = 100
 							pcs_willpwr +=20
 							gs 'cum_manage'
-							hapri = 0
+							pcs_hairbsh = 0
 							gs'stat'
 							'<center><img src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/sex3-7.jpg"></center>'
 							'"Uncle Sergey, please... fuck me?" you mutter. Why is he making you beg? Doesn''t he want this just as much?'

locations/albinaEv

@@ -65,7 +65,7 @@ if albinaCar = 0:
 							gs 'stat'
 							'<center><img src="images/characters/pavlovsk/school/girl/albina/event/bmw.jpg"></center>'
 
-							if agil >= 100:
+							if pcs_agil >= 80:
 								'With a deft movement, you manage to get behind the wheel of the car.'
 								'Looking out the windows, you see the short one standing right in front of the car, touching the hood as if to stop you from driving forwards, while the tall one runs towards the driver side door.'
 
@@ -94,7 +94,7 @@ if albinaCar = 0:
 									'To the right you recognize the gateway Albina drove through when she took you here.'
 									'To the left you see a brick wall, part of the abandoned factory building.'
 								end
-							elseif agil < 100:
+							else
 								'You try your best to wriggle your way over to the drivers seat, but only manage to get stuck with one of your legs between the gear shift and the seat.'
 								'Suddenly, the driver side door is violently thrust open.'
 

locations/albinahome

@@ -205,7 +205,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 						albsportday = daystart
 						minut += 120
 						fat -= 5
-						agil += rand (1, 3)
+						pcs_agil += rand (1, 3)
 						pcs_mood -= 8
 						pcs_sweat += 30
 						gs 'stat'

locations/annafrends

@@ -396,7 +396,7 @@ if $ARGS[0] = 'scene1':
 				end
 			end
 
-			if volleyboll >= 100:
+			if volleysostav > 0:
 				act 'No (volleyball)':
 					cls
 					minut += 5

locations/artemEv

@@ -1077,7 +1077,7 @@ $artemGopSkver = {
 						cls
 						minut += 5
 						gs 'stat'
-						artemGopRange = speed + pcs_agil + beg
+						artemGopRange = speed + pcs_agil + pcs_run
 						if artemGopRange < 50:
 							artemRand = rand(0,1)
 						elseif artemGopRange >= 50 and artemGopRange < 100:

locations/atak

@@ -216,7 +216,7 @@ if $ARGS[0] = 'uronKrit':
 
 			if zerkaloV > 0:
 				zerkaloV = zerkaloV - 1
-				health = health - damage
+				pcs_health = pcs_health - damage
 
 				'<b><font color = red><<$boydesc>> reflected the damage and you get <<damage>> points of damage</font></b>'
 			end

locations/balkon2

@@ -131,7 +131,7 @@ if $ARGS[0] = 'masopt':
 		act 'Masturbate and use your dildo with your ass':
 			cla
 			*clr
-			anus += rand(0, 2)
+			pcs_ass += rand(0, 2)
 			'<center><img src="images/locations/city/residential/apartment/sex/balcony_anal1.gif"></center>'
 			'It feels like your whole ass is burning.'
 			

locations/din_van

@@ -256,7 +256,12 @@ $brit = {
 				if britrand = 5:gt 'vann', 'brit1'
 			end
 
-			'<center><img src="images/shared/home/bathroom/shave3.jpg"></center>'
+			if $loc ='Gadbana':
+				'<center><img src="images/shared/home/bathroom/shave.gif"></center>'
+			else
+				'<center><img src="images/shared/home/bathroom/shave3.jpg"></center>'
+			end
+
 			*nl
 			if daystart < 10 and StoryLine = 0:
 				'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
@@ -311,7 +316,12 @@ $brit = {
 				if britrand = 5:gt 'vann', 'brit1'
 			end
 
-			'<center><img src="images/shared/home/bathroom/shave3.jpg"></center>'
+			if $loc ='Gadbana':
+				'<center><img src="images/shared/home/bathroom/shave.gif"></center>'
+			else
+				'<center><img src="images/shared/home/bathroom/shave3.jpg"></center>'
+			end
+
 			*nl
 			'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
 

locations/dreams

@@ -149,7 +149,7 @@ if $ARGS[0] = 'anal_dreams':
 		'<center><img 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 vagina = 0 and stat['vaginal'] = 0 and stat['anal'] = 0 and pcs_ass = 0:
+	if pcs_vag = 0 and stat['vaginal'] = 0 and 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:
 		'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.'

locations/gadfield

@@ -1,10 +1,10 @@
 # gadfield
 if $ARGS[0] = 'field':
 	$location_type = 'secluded'
-    $metka = $ARGS[0]
-    $loc = $CURLOC
+    $metka = 'field'
+    $loc = 'gadfield'
     gs 'gadukino_event', 'sound'
-    clr
+    cls
     gs'stat'
     !gs'time'
 
@@ -155,7 +155,7 @@ if $ARGS[0] = 'cow':
 		            minut += 60
 		            fat -= 5
 		            run_exp += 1
-		            sweat += 10
+		            pcs_sweat += 10
                     pcs_mood += 5
                     if temper >= 25 and sunWeather = 1:water -= 24
                     gs 'stat'
@@ -173,7 +173,7 @@ if $ARGS[0] = 'cow':
 			        minut += 60
                     pcs_mood += 10
                     pcs_tan += 1
-                    sweat += 10
+                    pcs_sweat += 10
                     gs 'stat'
 
                     '<center><img src="images/locations/gadukino/village/graze_cow_sun.jpg"></center>'
@@ -315,7 +315,7 @@ if $ARGS[0] = 'cow2':
 			        *clr
 			        minut += 15
 			        cumspclnt = 4 & gs 'cum_cleanup'
-			        sweat = 10 + rand(0,4)
+			        pcs_sweat = 10 + rand(0,4)
 			        pcs_mood += 5
 			        pcs_willpwr += 5
 			        if pcs_stren < 30:stren_exp += 1
@@ -330,7 +330,7 @@ if $ARGS[0] = 'cow2':
 			        cla
 			        *clr
 					minut += 30
-					sweat += 10
+					pcs_sweat += 10
 					pcs_mood += 5
 					pcs_tan += 1
                     gs 'stat'
@@ -423,7 +423,7 @@ if $ARGS[0] = 'cow3':
 		            minut += 60
 		            fat -= 5
 		            run_exp += 1
-		            sweat += 10
+		            pcs_sweat += 10
                     pcs_mood += 5
                     if temper >= 25 and sunWeather = 1:water -= 24
                     gs 'stat'
@@ -454,7 +454,7 @@ if $ARGS[0] = 'cow3':
 			        minut += 60
                     pcs_mood += 10
                     pcs_tan += 1
-                    sweat += 10
+                    pcs_sweat += 10
                     gs 'stat'
 
                     '<center><img src="images/locations/gadukino/village/graze_cow_sun.jpg"></center>'

locations/meet

@@ -519,8 +519,6 @@ if $ARGS[0] = 'start':
 	end
 	
 
-	!! manna , mannamax * 50 / 100:
-	
 	if pcs_hairbsh = 1 and curly > 0:
 		bfA += 2 &
 		$meetHair = 'Your hair looks very beautiful.'
@@ -689,12 +687,12 @@ if $ARGS[0] = 'start':
 				'You take the initiative and when he opens his mouth you thrust your tongue into his mouth.'
 				gs 'arousal', 'kiss', 5
 				pcs_dom += 1
-				manna += mannamax * 10 / 100
+				pcs_mood += 10
 				gs 'stat'
 				if venera > 4:
 					bfa = 0
 					'<<$boydescA>> takes a closer look at you and says, "What is wrong with your lips? They are very sore. Is that genital herpes? I better go, I do not want to get infected. I''m sorry, goodbye."'
-					manna = mannamax * 30 / 100
+					pcs_mood -= 20
 					act 'Leave':gt 'street'
 					exit
 				elseif venera < 4 and spdirtyv = 0 and spdirtyc = 0:
@@ -742,13 +740,13 @@ if $ARGS[0] = 'start':
 					if spdirtyv > 0:
 						bfa = 0
 						'He notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you out of his face. "We are through, I don''t want to see your face again!'
-						manna = mannamax * 30 / 100
+						pcs_mood -= 20
 						act 'Leave':gt 'street'
 						exit
 					elseif spdirtyc > 0:
 						bfa += 2
 						'He notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
-						manna = mannamax * 30 / 100
+						pcs_mood -= 20
 						act 'Leave':gt 'street'
 						exit
 					end
@@ -763,7 +761,7 @@ if $ARGS[0] = 'start':
 			act 'Kiss with lips':
 				*clr 
 				'You press your <<$meetlip>> softly against his, and for a split second time seems to stop.'
-				manna += mannamax * 10 / 100
+				pcs_mood += 10
 				if spdirtyv = 0 and spdirtyc = 0:
 					if harakBoyA = 0:
 						bfa += 2
@@ -829,13 +827,13 @@ if $ARGS[0] = 'start':
 					if spdirtyv > 0:
 						bfa = 0
 						'He notices the sperm on your face, "<<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you out of his face. "We are through, I don''t want to see your face again!'
-						manna = mannamax * 30 / 100
+						pcs_mood -= 20
 						act 'Leave':gt 'street'
 						exit
 					elseif spdirtyc > 0:
 						bfa = 0
 						'He notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
-						manna = mannamax * 30 / 100
+						pcs_mood -= 20
 						act 'Leave':gt 'street'
 						exit
 					end
@@ -850,7 +848,7 @@ if $ARGS[0] = 'start':
 			act 'Hint for a kiss on the cheek':
 				*clr 
 				'You make a cute pouty face and turn your cheek toward <<$boydescA>>. He understands and though he wanted to kiss you, he settles with giving you a peck on the cheek'
-				manna += mannamax * 10 / 100
+				pcs_mood += 10
 				if spdirtyv = 0 and spdirtyc = 0:
 					if harakBoyA = 0:
 						bfa += 2
@@ -902,19 +900,19 @@ if $ARGS[0] = 'start':
 					if spdirtyv > 0:
 						bfa = 0
 						'He notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you out of his face. "We are through, I don''t want to see your face again!'
-						manna = mannamax * 30 / 100
+						pcs_mood -= 20
 						act 'Leave':gt 'street'
 						exit
 					elseif spdirtyc > 0:
 						bfa = 0
 						'He notices the sperm on your ass, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
-						manna = mannamax * 30 / 100
+						pcs_mood -= 20
 						act 'Leave':gt 'street'
 						exit
 					elseif spdirtyc > 0:	
 						bfa = 0
 						'He realizes your mouth smells like sperm, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
-						manna = mannamax * 30 / 100
+						pcs_mood -= 20
 						act 'Leave':gt 'street'
 						exit
 					end

locations/metro_events

@@ -306,7 +306,7 @@ if $ARGS[0] = 'station':
 		act 'Listen':
 			cla
 			minut += 10
-			mood += 10
+			pcs_mood += 10
 			'You stop and listen to him play several songs, he really is pretty good. You wonder why he is playing in a metro station, perhaps the old adage about starving artist applies to musicians as well.'
 
 			act 'Leave':minut += 5 & gt $loc, $metka
@@ -314,7 +314,7 @@ if $ARGS[0] = 'station':
 				act 'Give him money':
 					cla
 					money -= 50
-					mood += 10
+					pcs_mood += 10
 					'You reach into your purse and pull out some money, you drop it into his case. He looks up at you and smiles and nods his head, but keeps playing. With your good deed done you leave the station and go on your way.'
 
 					act 'Leave':minut += 5 & gt $loc, $metka
@@ -328,14 +328,14 @@ if $ARGS[0] = 'station':
 		act 'Listen':
 			cla
 			minut += 10
-			mood += 10
+			pcs_mood += 10
 			'You stop and listen to her play several songs, she really is pretty good. You wonder why she is playing in a metro station, perhaps the old adage about starving artist applies to musicians as well.'
 			act 'Leave': minut += 5 & gt $loc, $metka
 			if money > 50:
 				act 'Give her money':
 					cla
 					money -= 50
-					mood += 10
+					pcs_mood += 10
 					'You reach into your purse and pull out some money, you drop it into her case. She looks up at you and smiles and nods her head, but keeps playing. With your good deed done you leave the station and go on your way.'
 
 					act 'Leave':minut += 5 & gt $loc, $metka

locations/mey_home

@@ -341,7 +341,7 @@ if $ARGS[0] = '3':
 			*clr
 			minut += 5
 			narkday = daystart
-			pcs_health = vital * 10 + pcs_stren * 5
+			pcs_health = pcs_vital * 10 + pcs_stren * 5
 			pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
 			pcs_mood = 100
 			pcs_horny = 100

locations/mey_tamara_events

@@ -410,7 +410,7 @@ if $args[0] = 'rebuke':
 
 						act 'Listen':
 							cla
-							if Suspeh < 80:
+							if pcs_grades < 80:
 								'<font color="maroon"><i>"Listen to me very carefully. From now on, no more adventures. You will follow all my orders, no exemptions. To the letter. You''re not even allowed to fart without my permission, understand! Don''t worry you''ll have lots of adventures."</i></font>'
 								'<font color="maroon"><i>"Whether you like it or not, your school performance must improve. You will make a plan that you''ll show me on how you''ll improve. Don''t think this is a fairy tale. You will be putting blood, sweat and tears until your grades have gone up and I''m satisfied! You can forget about drinking and partying until your grades are good enough."</i></font>'
 								'You sadly nod your head, saying goodbye to the easy life...'
@@ -476,7 +476,7 @@ if $args[0] = 'check_look':
 	*clr & cla
 	! dress, medium black, clean, looks stunning
 	!there need a good glamour dress, change to formal or expensive in ECV (she already give you 1 formal)
-	if ($clothingworntype = 'formal' or $clothingworntype = 'expensive') and (pcs_makeup = 1 or pcs_makeup = 2) and sweat <= 20 and pcs_apprnc >= 60:
+	if ($clothingworntype = 'formal' or $clothingworntype = 'expensive') and (pcs_makeup = 1 or pcs_makeup = 2) and pcs_sweat <= 20 and pcs_apprnc >= 60:
 		! if long hair is desired styling
 		if shorthair = 0 and pcs_hairbsh = 0:
 			'<center><img src="images/characters/pavlovsk/school/girl/vicky/event/party0.jpg"></center>'

locations/mey_vika_events

@@ -617,7 +617,7 @@ if $args[0] = 'park_qw':
 		*clr & cla
 		$ImageNeededPlacholder
 		'You walk for an hour in the Park and spend a wonderful time with them. You walk between them. Vicky, cheerfully chatting, holds you by the waist with one of her hands.'
-		if dom > 10:'You, of course, respond to her advances. You gently touch her back, continuing to walk arm in arm.'
+		if pcs_dom > 10:'You, of course, respond to her advances. You gently touch her back, continuing to walk arm in arm.'
 
 		minut += 60
 		gs 'stat'

locations/portmirror

@@ -314,7 +314,7 @@ if $ARGS[0] = 'works':
 		lipkoef += rand(0, 1)
 		if lipkoef > 50:
 			lipkoef = 0
-			lip += 1
+			pcs_lip += 1
 		end
 		pcs_lipbalm += 8
 		*pl $applyLipbalm

locations/street_event

@@ -343,6 +343,7 @@ if tanga = 0 and PCloSkirt > 2 and hour > 6 and hour <= 20:
 		pcs_mood -= 5
 		SUB += 1
 		pcs_horny += SUB
+		gs 'stat'
 		'You hear a deliberately loud whisper from grandmothers on the bench, "That whore! Walks in a short skirt and no panties, everyone can see her ass!"'
 		'You blush in shame from the old ladies caustic remarks.'
 	end

locations/webcam_site

@@ -632,7 +632,7 @@ $webcam_show = {
 					my_show_tip_mod = 1
 				end
 				
-				my_show_tip = (pcs_dancero + dance/2 + pcs_dancero/3)/my_show_tip_mod
+				my_show_tip = (pcs_dancero + pcs_danc/2)/my_show_tip_mod
 				webcam_show_strip +=1
 				'For this little idea you have earned <<my_show_tip>> <b>₽</b>.'