Skill exp seeding by junjulaug75

locations/Gaddvor

@@ -1,5 +1,6 @@
 # Gaddvor
 
+
 if $ARGS[0]='':
 	$metka = ''
 	$loc = 'Gaddvor'
@@ -97,6 +98,7 @@ if $ARGS[0]='chickens':
 			minut += 30
 			grandmahelp += 1
 			feed_chickens = 0
+			hndiwrk_exp += rand(0,3)
 			gs 'stat'
 
 			act 'Finish':gt'Gaddvor'

locations/Gadgarden

@@ -36,6 +36,7 @@ if $ARGS[0] = 'garden':
 		    grandmahelp += 3
 		    stren_exp += 1
 		    fat -= RAND(1,5)
+			hndiwrk_exp += rand(3,9)
 		    gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/work_garden'+rand(1,5)+'.jpg"></center>'
@@ -53,7 +54,8 @@ if $ARGS[0] = 'garden':
 		    water_garden = 0
 		    grandmahelp += 1
 		    vital_exp += 1
-		    fat -= RAND(1,2)		    
+		    fat -= RAND(1,2)
+		    hndiwrk_exp += rand(0,3)
 		    gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/water_garden.jpg"></center>'
@@ -71,7 +73,8 @@ if $ARGS[0] = 'garden':
 		    harvest_garden = 0
 		    grandmahelp += 3
 		    stren_exp += 1
-		    fat -= RAND(1,3)		    
+		    fat -= RAND(1,3)
+		    hndiwrk_exp += rand(3,9)
 		    gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/harvest_garden'+rand(1,5)+'.jpg"></center>'
@@ -135,7 +138,8 @@ if $ARGS[0] = 'strawberry':
 			collect_strawberries = 0
 			grandmahelp += 5
 		    agil_exp += 1
-            fat -= 1			
+            fat -= 1
+			hndiwrk_exp += rand(3,9)
 			gs 'stat'
 			
 			if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries.jpg"></center>'
@@ -197,6 +201,7 @@ if $ARGS[0] = 'fruit_garden':
 			grandmahelp += 5
 		    agil_exp += 1
             fat -= RAND(1,3)
+			hndiwrk_exp += rand(3,9)
 			gs 'stat'
 			
 			if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect.jpg"></center>'

locations/Gadsarai

@@ -1,5 +1,6 @@
 # Gadsarai
 
+
 if $ARGS[0] = '':
 	$metka = ''
 	$loc = 'Gadsarai'
@@ -435,6 +436,7 @@ if $ARGS[0] = 'boar':
 			minut += 30
 			grandmahelp += 1
 			feed_boar = 0
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_boar.jpg"></center>'
@@ -462,6 +464,7 @@ if $ARGS[0] = 'cow':
 			minut += 30
 			milk_cow = 0
 			grandmahelp += 1
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/milk_cow.jpg"></center>'
@@ -477,6 +480,7 @@ if $ARGS[0] = 'cow':
 			minut += 30
 			feed_cow = 0
 			grandmahelp += 1
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_cow.jpg"></center>'
@@ -492,6 +496,7 @@ if $ARGS[0] = 'cow':
 			minut += 60
 			cow_field = 0
 			grandmahelp += 1
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_field.jpg"></center>'
@@ -522,6 +527,7 @@ if $ARGS[0] = 'horse':
 			minut += 30
 			feed_horse = 0
 			grandmahelp += 1
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_horse.jpg"></center>'
@@ -537,6 +543,7 @@ if $ARGS[0] = 'horse':
 			minut += 60
 			horse_field = 0
 			grandmahelp += 1
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
@@ -551,6 +558,7 @@ if $ARGS[0] = 'horse':
 			*clr
 			minut += 30
 			horse_river = 2
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
@@ -566,6 +574,7 @@ if $ARGS[0] = 'horse':
 			minut += 60
 			comb_horse = 0
 			grandmahelp += 1
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/comb_horse.jpg"></center>'

locations/Komp

@@ -573,6 +573,7 @@ if $ARGS[0] = 'study':
 	elektro = elektro + 3
 	internet -= 1
 	intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
+	compskl_exp += 1 
 	'<center><b>The Institute for Education Measurement</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/computer/study.jpg"></center>'
 	'You spend an hour on the IEM website, reading news articles and educational blogs. You feel a bit smarter afterwards.'
@@ -587,6 +588,7 @@ if $ARGS[0] = 'kursak':
 	elektro += 3
 	internet -= 1
 	pcs_mood -= 10
+	compskl_exp += 1 
 	kursovik = kursovik + RAND(pcs_intel/20,pcs_intel/10)
 	if kursovik > 100:kursovik = 100
 	'<center><b>Coursework</b></center>'

locations/Military

@@ -1,4 +1,5 @@
 # Military
+
 if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
@@ -13,6 +14,7 @@ if $ARGS[0] = 'start':
 		cla
 		minut += 60
 		sanrand = rand(0, 10)
+		medcn_exp += rand (0,2) 
 		gs 'stat'
 
 		if sanrand = 0:gt 'Military', 'san0'

locations/ParChurch

@@ -1,4 +1,5 @@
 # ParChurch
+
 $location_type = 'public_indoors'
 
 if $ARGS[0] = 'start':
@@ -122,9 +123,10 @@ if $ARGS[0] = 'liturgy':
 		moral += 2
 		'Your presence at the Divine Liturgy does not go unnoticed. People start mumbling and point fingers at you. Many wonder why you’re present at such an important and holy occasion. Father Kirill, who leads the service, seems to be confused about where the fuss comes from but then notices you. You see that even he heard about your little adventures in town, but at the same time his face doesn’t seem to condemn you. It looks a bit like pity.'
 		'"The church is place for everyone, my beloved children. Even if we sometimes forget, we must try to condemn no one. Think about John 8:10: Jesus once met a woman who had slept with a man who betrayed her trust. She was dragged away by his friends and thrown naked before Jesus. The people had ripped her clothes and humiliated her. He spoke to her: ''Woman'', he says. Not ''slut'', or ''whore'', but woman. He threw His coat over her near-naked body and gave her the sense of dignity she had been promised by the man who betrayed her trust. Jesus did not condemn her, so let us try to not condemn others."'
-		'The people in the congregation seem a bit uncomfortable while hearing these words. Some look towards you and seem to have trouble looking you in the eyes. Those that do meet your eyes look away guiltily. You feel better and it seems the townsfolk might see you in a slightly better light.'
+		'The people in the congregation seem a bit uncomfortable while hearing these words. Some look towards you and seem to have trouble looking you in the eyes. Those that do meet your eyes look away guiltily. You feel better and it seems the townsfolk might see you in a slightly better light.'	
 	end
-
+    vokal_exp += rand(0,3) 
+    
 	act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 end
 	

locations/WorkHosp

@@ -1,4 +1,5 @@
 # WorkHosp
+
 if $ARGS[0] = 'start':
 	$metka = 'start'
 	$loc = 'WorkHosp'
@@ -13,6 +14,7 @@ if $ARGS[0] = 'start':
 	act 'Work in the Operating Room (1:00)':
 		cla
 		minut += 60
+		medcn_exp += rand (0,2) 
 
 		if jobhosprand = 0:gt 'WorkHosp', '2'
 
@@ -24,6 +26,7 @@ if $ARGS[0] = 'start':
 	act 'Help the doctor at the Emergency Room (1:00)':
 		cla
 		minut += 60
+		medcn_exp += rand (0,2)
 
 		if jobhosprand = 0:gt 'WorkHosp', '3'
 
@@ -214,8 +217,7 @@ if $ARGS[0] = '2':
 	picrand = rand(13, 15)
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex11.jpg"></center>'
 	'A patient comes through the door and takes off his pants to show you his flaccid penis. He asks you to help him, as he can''t seem to get an erection and it''s causing him depression. You realize that it''s all just a silly game and that he hopes to fuck you, but you still feel sorry for him. You wonder what caused him to come up with this plan, and decide it might just be that he has no luck with girls, and if today is not his lucky day, he may jump out of the window.'
-
-	act 'Oust him':gt 'WorkHosp', 'start'
+	act 'Oust him':medcn_exp += rand (0,1) & gt 'WorkHosp', 'start'
 	act 'Give him what he wants':guy += 1 & gt 'sex', 'minet'
 end
 
@@ -224,9 +226,8 @@ if $ARGS[0] = '3':
 	*clr
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex12.jpg"></center>'
 	'A pretty patient comes into the room and the doctor tries to examine her.  Then she touches his trousers near his poorly hidden erection.  The doctor glances at you with a question in his eyes.'
-
-	act 'Ask if she actually needs treatment':gt 'WorkHosp', 'start'
-
+	act 'Ask if she actually needs treatment':medcn_exp += rand (0,1) & gt 'WorkHosp', 'start'
+     
 	act 'Play along':
 		guy += 1
 		girl += 1

locations/anushapt

@@ -1,5 +1,6 @@
 # anushapt
 
+
 !!Eduard Konstantinov - Anushka's father, who is known as being a hard and dangerous man. Since marrying Valeria and starting a family, he has mellowed out slightly, but he is still someone you don't want to piss off. In his youth, he was the leader of a local gang that would cause mayhem and chaos wherever they went. Surprisingly, he's managed to avoid spending any time behind bars.
 
 !!Valeria Konstantinov - Anushka's mother, who enjoyed being a bad girl and a heart breaker in her youth. Ironically, she is now a wife and mother of three, which she has come to resent. More often than not, she has nothing good to say about her family. Still living in the fantasy that she's still a youthful heart breaker makes her a hot topic among the rumormongers in the town that she flirts with a lot of men, but none of them are willing to risk fooling around with her as long as Eduard is her husband.
@@ -521,6 +522,7 @@ if $ARGS[0] = 'guitar':
 		act 'Pretend to play':
 			minut += 10
 			pcs_mood += 10
+			instrmusic_exp += rand(0,1) 
 			gs 'stat'
 			'Grabbing hold of the guitar, you begin pretending to play and putting on a show just like a real rock star. After a while you need to catch your breath; this was harder than you thought.'
 			act 'Put the guitar back':gt 'anushapt','anushroom'
@@ -528,7 +530,7 @@ if $ARGS[0] = 'guitar':
 		act 'Try to play it':
 			cla
 			*clr
-			instrmusic_lvl += rand(0,2)
+			instrmusic_exp += rand(0,2)
 			pcs_mood += 5
 			minut += 20
 			gs 'pain', 1, 'fingers', 'ache'

locations/artemhome

@@ -269,6 +269,7 @@ if $ARGS[0] = 'inside':
 			talkartemday = daystart
 			lern += rand(3, 6)
 			intel_exp += rand(1, 2)
+			comphckng_exp += rand(1,3)
 			minut += 60
 			pcs_mood += 10
 			gs 'stat'

locations/artgar

@@ -1,5 +1,6 @@
 # artgar
 
+
 apmeetday = daystart
 gs 'stat'
 frost = 0
@@ -274,6 +275,7 @@ elseif apmeet = 3:
 									'You get up to your knees, doing your best to not drop the bottle this time. You suck them off in turns, and you can tell they''ve been enjoying your ''training'' a great deal. They both cum in no time at all, and you make sure to drink it all down without missing a drop. Then they tell you to nuzzle and lick their crotches for a while, and you happily do realizing this session is almost over.'
 									if artemIzdev = 4 and microcamera = 1:
 										act 'Install the camera':
+										    photoskl_exp +=2  
 											cls
 											minut += 5
 											gs 'stat'
@@ -365,6 +367,7 @@ elseif apmeet = 4:
 					agape = 3
 					microcamera = 1
 					apmeet = 5
+					photoskl_exp +=2 
 
 					act 'Continue':minut += 20 & gt 'vanrPar'
 				end

locations/buklinik_event

@@ -1,4 +1,5 @@
 # buklinik_event
+
 if $ARGS[0] = 'pos1':
 	cla
 	*clr
@@ -83,6 +84,7 @@ if $ARGS[0] = 'pos5':
 	*clr
 	pcs_mood -= 5
 	bumtolik = 7
+	medcn_exp += rand (0,3)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_spal.jpg"></center>'
 	'You:- Thank you, me, and it is convenient.'
@@ -108,6 +110,7 @@ if $ARGS[0] = 'pos7':
 	cla
 	*clr
 	buklinikDay = daystart
+	medcn_exp += rand (0,3)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_eat2.jpg"></center>'
 	if bumtolik > 7:
@@ -124,9 +127,9 @@ end
 if $ARGS[0] = 'pos8':
 	cla
 	*clr
-
+    medcn_exp += rand (0,3)
 	if bumtolik = 8:bumtolik = 9
-
+     
 	buklinikDay = daystart
 	minut += 120
 	pcs_mood += 20
@@ -159,6 +162,7 @@ if $ARGS[0] = 'pos10':
 	*clr
 	bumtolik = 10
 	pcs_horny += 10
+	medcn_exp += rand (0,3)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_mission1.jpg"></center>'
 	'You are so excited that comes to mind is incredible idea to lure pervert lit up her panties. You get up in the position right in front of the shelter and utter tramps "- Dear, I have something for you there!"'
@@ -350,6 +354,7 @@ if $ARGS[0] = 'event1':
 	buklinik = 11
 	buklinikDay = daystart
 	minut += 20
+	medcn_exp += rand (0,3)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/vika/3.jpg"></center>'
 	'You came to the address and knocked on the door. You opened the young girl and asked: 

locations/dinParty

@@ -1,4 +1,5 @@
 # dinParty
+
 !A random event in the toilet
 if $ARGS[0] = 'party_toilet_event':
 	evt = rand(1,8)
@@ -265,6 +266,7 @@ if $ARGS[0] = 'dj_thank':
 	*clr
 	minut += 5
 	dj_bad =1
+	instrmusic_exp += rand(0,2) 
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_1.jpg"></center>'
 	'You are happy to take this opportunity, putting your fingers on the records you move them around, making god awful noises. The guys stop you before to long. "Ok I think that''s enough, I think you made my ears bleed." He says with a laugh.'

locations/events

@@ -135,6 +135,7 @@ if $ARGS[0] = 'read':
 					fashmag = 0
 					pcs_mood += 5
 					minut += 30
+					makupskl_exp += 1
 					'You relax for half an hour reading your fashion magazine.'
 					act 'Return':gt $loc, $Metka
 				end
@@ -146,6 +147,7 @@ if $ARGS[0] = 'read':
 					compmag = 0
 					pcs_mood += 5
 					minut += 30
+					compskl_exp += 1 
 					'You relax for half an hour reading your computing magazine.'
 					act 'Return':gt $loc, $Metka
 				end

locations/gadfield

@@ -1,4 +1,5 @@
 # gadfield
+
 $metka = $ARGS[0]
 $loc = 'gadfield'
 
@@ -50,6 +51,7 @@ if $ARGS[0] = 'field':
 			minut += 360
 			grandmahelp += 1
 			haying_time = 0
+			hndiwrk_exp += rand(0,2) 
 			gs 'stat'
 
 			act 'Further':gt'gadfield','field'
@@ -73,6 +75,7 @@ if $ARGS[0] = 'horse':
 			'You spot your grandfather''s horse wandering loose in the field and decide to help out by taking Desperado home. Reaching for the bridle, you start leading Desperado towards the village.'
 			minut += 60
 			grandmahelp += rand(0,1)
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 
 			act 'Further':gt'Gadsarai'
@@ -97,6 +100,7 @@ if $ARGS[0] = 'cow':
 			'Seeing the cow herd on the field, you decide to help your grandfather bring the cows home...'
 			minut += 60
 			grandmahelp += rand(0,1)
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 
 			act 'Further':gt'Gadsarai'
@@ -111,6 +115,7 @@ if $ARGS[0] = 'cow':
 				if graze_cow_exp = 1:'Some time flies by while waiting for the locals and their children to finish their gathering.'
 				if hour >= 9:minut += 20
 				if hour < 9:minut += 60
+				hndiwrk_exp += rand(0,4) 
 				gs 'stat'
 
 				act 'Further':gt'gadfield','cow'
@@ -125,6 +130,7 @@ if $ARGS[0] = 'cow':
 				if temper >= 25 and sunWeather = 1:water -= 12
 				graze_cow_exp = 1
 				grandmahelp += 1
+				hndiwrk_exp += rand(0,3) 
 				gs 'stat'
 
 				act 'Further':gt'gadfield','cow'
@@ -216,6 +222,7 @@ if $ARGS[0] = 'cow':
 			if temper >= 25 and sunWeather = 1:water -= 12
 			grandmahelp += 1
 			minut += 60
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 
 			act 'Further':gt'gadfield','cow2'
@@ -267,6 +274,7 @@ if $ARGS[0] = 'cow2':
 				if temper >= 25 and sunWeather = 1:water -= 12
 				grandmahelp += 1
 				graze_cow_exp = 1
+				hndiwrk_exp += rand(0,3) 
 				gs 'stat'
 
 				act 'Further':gt'gadfield','cow2'
@@ -330,6 +338,7 @@ if $ARGS[0] = 'cow2':
 			grandmahelp += 1
 			if temper >= 25 and sunWeather = 1:water -= 12
 			minut += 60
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 
 			act 'Further':gt'gadfield','cow3'
@@ -357,6 +366,7 @@ if $ARGS[0] = 'cow3':
 				if temper >= 25 and sunWeather = 1:water -= 12
 				grandmahelp += 1
 				graze_cow_exp = 1
+				hndiwrk_exp += rand(0,3) 
 				gs 'stat'
 
 				act 'Further':gt'gadfield','cow3'
@@ -450,6 +460,7 @@ if $ARGS[0] = 'cow3':
 			mira = 0
 			graze_cow = 0
 			grandmahelp += 1
+			hndiwrk_exp += rand(0,3) 
 			gs 'stat'
 
 			act 'Further':gt'gadukino'

locations/garfather

@@ -88,6 +88,7 @@ act 'Help':
 	cls
 	minut += 60
 	pcs_sweat += 10
+	hndiwrk_exp += rand(0,3)
 	gs 'stat'
 	'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'

locations/gschool_lessons

@@ -1810,12 +1810,14 @@ if $ARGS[0] = 'computer':
 	*nl
 	'If he has to correct one of the nerds he will take his time and quietly explain it to them, giving them lots of encouragement. For everyone else he loudly proclaims what you did wrong, drawing attention to how easy this is. He makes sure the whole class knows about their mistake and he does it in such a condescending manner, like he is trying to prove to everyone how much smarter he is than you are, or maybe he just wants the others students to make fun of them. With Mr. Ivanov it is hard to tell. He doesn''t to approve of anyone but the nerds and harshly grades everyone else.'
 	act 'Listen attentively to Mr. Ivanov':
-		*clr & cla
+		*clr & cla 
+		compskl_exp += rand(1,2) 
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/attention.jpg"></center>'
 		'You listen attentively to Mr. Ivanov for the duration of the class. Today''s lesson was interesting and informative, and you feel you learned from taking part in class.'
 		act 'Ask a question about the lesson':
 			*clr & cla
 			pcs_grades += 1
+			compskl_exp += rand(0,1) 
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/ask.jpg"></center>'
 			if grupTipe=3:
 				!!if Sveta is a nerd get this text.
@@ -1879,6 +1881,7 @@ if $ARGS[0] = 'computer':
 			end
 			act 'Reluctantly pay attention':
 				*clr & cla
+				compskl_exp += rand(0,1) 
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/angryteacher.jpg"></center>'
 				'The eyes of Mr. Ivanov grow narrower, and even though you roll your eyes at him, you sit through the rest of the lesson in silence, at least pretending to pay attention sometimes. You don''t learn anything today, though.'
 				gs 'gschool_lessonsev1', 'computer'
@@ -1888,6 +1891,7 @@ if $ARGS[0] = 'computer':
 				*clr & cla
 				grupvalue[4] -=5
 				grupvalue[3] +=5
+				compskl_exp += rand(0,2) 
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/attention.jpg"></center>'
 				'You don''t want to get in trouble so you straighten up in your chair. "Sorry." Mr. Ivanov gives you one final look and then goes back to teaching the class, you do your best to pay attention for the rest of class.'
 				gs 'gschool_lessonsev1', 'computer'
@@ -2146,10 +2150,12 @@ if $ARGS[0] = 'music':
 	'You sit in the classroom and listen to Mr Vasilyev go on about how great music is, you will give him one thing. He is always up beat and positive about teaching art and encourages all of his students to take part.'
 	act 'Listen attentively to Mr. Vasilyev':
 		*clr & cla
+		instrmusic_exp += rand(1,2) 
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/attention.jpg"></center>'
 		'You listen attentively to Mr. Vasilyev for the duration of the class. Today''s lesson was interesting and informative, and you feel you learned a lot about the history of music and famous artist.'
 		act 'Ask a question about the lesson':
 			*clr & cla
+			instrmusic_exp += rand(0,1) 
 			pcs_grades += 1
 			*clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/classmusic.jpg"></center>'
@@ -2201,6 +2207,7 @@ if $ARGS[0] = 'music':
 			end
 			act 'Reluctantly pay attention':
 				*clr & cla
+				instrmusic_exp += rand(0,1) 
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/angryteacher.jpg"></center>'
 				'The eyes of Mr. Vasilyev grow narrower, and even though you roll your eyes at him, you sit through the rest of the lesson in silence, at least pretending to pay attention sometimes. You don''t learn anything today, though.'
 				gs 'gschool_lessonsev3', 'music'
@@ -2210,6 +2217,7 @@ if $ARGS[0] = 'music':
 				*clr & cla
 				grupvalue[4] -=5
 				grupvalue[3] +=5
+				instrmusic_exp += rand(0,2) 
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/attention.jpg"></center>'
 				'You don''t want to get in trouble so you straighten up in your chair. "Sorry." The teacher gives you one final look and then goes back to teacher the class, you do your best to pay attention for the rest of class.'
 				gs 'gschool_lessonsev3', 'music'
@@ -2311,10 +2319,12 @@ if $ARGS[0] = 'art':
 	'You sit in the classroom and listen to Mr Vasilyev go on about how great art is, you will give him one thing. He is always up beat and positive about teaching art and encourages all of his students to take part.'
 	act 'Listen attentively to Mr. Vasilyev':
 		*clr & cla
+		artslks_exp += rand(1,2) 
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/attention.jpg"></center>'
 		'You listen attentively to Mr. Vasilyev for the duration of the class. Today''s lesson was interesting and informative, and you feel you learned a lot about the history of art and famous artist.'
 		act 'Ask a question about the lesson':
 			*clr & cla
+			artslks_exp += rand(0,1) 
 			pcs_grades += 1
 			*clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/ask.jpg"></center>'
@@ -2385,6 +2395,7 @@ if $ARGS[0] = 'art':
 			end
 			act 'Reluctantly pay attention':
 				*clr & cla
+				artslks_exp += rand(0,1) 
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/angryteacher.jpg"></center>'
 				'The eyes of Mr. Vasilyev grow narrower, and even though you roll your eyes at him, you sit through the rest of the lesson in silence, at least pretending to pay attention sometimes. You don''t learn anything today, though.'
 				gs 'gschool_lessonsev3', 'art'
@@ -2394,6 +2405,7 @@ if $ARGS[0] = 'art':
 				*clr & cla
 				grupvalue[4] -=5
 				grupvalue[3] +=5
+				artslks_exp += rand(0,2) 
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/attention.jpg"></center>'
 				'You don''t want to get in trouble so you straighten up in your chair. "Sorry." The teacher gives you one final look and then goes back to teacher the class, you do your best to pay attention for the rest of class.'
 				gs 'gschool_lessonsev3', 'art'
@@ -3481,6 +3493,5 @@ if $ARGS[0] = 'npc_data':
 
 end
 
-
 --- gschool_lessons ---------------------------------
 

locations/ivanRoom

@@ -203,6 +203,7 @@ if StoryLine = 0 or altQS = 1:
 															cls
 															softKAR = 10
 															IvanEvidence = 1
+															photoskl_exp += 2
 															cumface = 0
 															gs 'stat'
 															'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
@@ -380,5 +381,6 @@ else
 		end
 	end
 end
+
 --- ivanRoom ---------------------------------
 

locations/kseniyaQW

@@ -58,6 +58,7 @@ if $ARGS[0] = 'event2':
 	act 'Sure, why not?':
 		cls
 		minut += 5
+		photoskl_exp +=2 
 		gs 'stat'
 		'<center><b><font color="maroon">Kseniya</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/kseniya2.jpg"></center>'
@@ -67,6 +68,7 @@ if $ARGS[0] = 'event2':
 		act 'Continue':
 			cls
 			minut += 5
+			photoskl_exp +=2 
 			gs 'stat'
 			'<center><b><font color="maroon">Kseniya</font></b></center>'
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/kseniya3.jpg"></center>'
@@ -77,6 +79,7 @@ if $ARGS[0] = 'event2':
 			act 'Continue':
 				cls
 				minut += 5
+				photoskl_exp +=2 
 				gs 'stat'
 				'<center><b><font color="maroon">Kseniya</font></b></center>'
 				'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/kseniya4.jpg"></center>'
@@ -147,6 +150,7 @@ if $ARGS[0] = 'event3_1':
 	gs 'stat'
 	act 'Get started':
 		*clr & cla
+		mdlng_exp += rand(0,2)
 		'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/strip4.jpg"></center>'
 		'You hand her the bag and strike a pose, Kseniya laughs.'
 		'"More natural! That ugly building is showing through, try the path." She points to the track by the clearing.'
@@ -157,6 +161,7 @@ if $ARGS[0] = 'event3_1':
 		gs 'stat'
 		act 'Pose on the track':
 			*clr & cla
+			mdlng_exp += rand(0,2)
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/strip5.jpg"></center>'
 			'You walk over to the path, lift you arms over your head and try to look more natural.'
@@ -169,6 +174,7 @@ if $ARGS[0] = 'event3_1':
 			gs 'stat'
 			act 'Get behind the tree':
 				*clr & cla
+				mdlng_exp += rand(0,2)
 				'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/strip6.jpg"></center>'
 				'A man walks past with his dog, he doesn''t seem to notice or care and you quickly relax.'
 				'He is still behind you as you start posing again, You''re really getting in to this and can''t stop smiling.'
@@ -179,6 +185,7 @@ if $ARGS[0] = 'event3_1':
 				gs 'stat'
 				act 'One more pose':
 					*clr & cla
+					mdlng_exp += rand(0,2)
 					'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/strip7.jpg"></center>'
 					'Still smiling you find a large tree stump and sit down on it. You realise you are exposing yourself quite in this position.'
 					gs 'arousal', 'flash_breasts', 5
@@ -188,6 +195,7 @@ if $ARGS[0] = 'event3_1':
 					gs 'stat'
 					act 'Finish':
 						*clr & cla
+						mdlng_exp += rand(0,2)
 						'<center><img <<$set_imgh>> src="images/locations/shared/park/kseniya/strip8.jpg"></center>'
 						'You tell Kseniya you are done and want your clothes back.'
 						'She suddenly looks very stern and says, "If you want your clothes you are going to have to spread those legs."'

locations/metro_events

@@ -383,6 +383,7 @@ if $ARGS[0] = 'station':
 		act 'Leave': minut += 5 & gt $loc, $metka
 		act 'Record them':
 			cla
+			photoskl_exp += 2 
 			'You pull out your phone as well then start recording them. The one on all fours is going at it, and has her friend quickly moaning loudly, clutching at her hair. Moments later, she gasps loudly, and withers against her friends face, obviously having an orgasm. Once she recovers from her orgasm, they passionately kiss, then get up and straighten their clothes, before heading out.'
 
 			act 'Leave': minut += 5 & gt $loc, $metka
@@ -395,6 +396,7 @@ if $ARGS[0] = 'station':
 		act 'Leave': minut += 5 & gt $loc, $metka
 		act 'Record them':
 			cla
+			photoskl_exp += 2 
 			'You pull out your phone as well then start recording them. He pounds her without mercy, but by the sounds of her moans, she is loving every moment of it. They fuck for several more minutes until he starts to grunt, and then buries himself; balls deep in her for a moment, as he is obviously cumming. Once he pulls out of her, they both quickly get dressed then move to catch a train.'
 
 			act 'Leave': minut += 5 & gt $loc, $metka

locations/parkivent

@@ -255,6 +255,7 @@ if $ARGS[0] = '3':
 		if minifoto = 1 or zenit = 1:
 			act 'Take a photo':
 				cla
+				photoskl_exp +=2 
 
 				if minifoto = 1:fotoparkrand = rand(0, 10)
 				if minifoto = 0:fotoparkrand = rand(0, 1)
@@ -347,7 +348,7 @@ if $ARGS[0] = '3':
 					end
 				end
 			end
-
+            
 			act 'Back to the park':gt 'park', 'start'
 		end
 
@@ -889,7 +890,6 @@ if $ARGS[0] = 'run_reactions':
 	'You feel great after your run. A bit sweaty but also a bit better at running and its good for your waistline too.'
 	act 'Finish your run': gt $loc, $metka
 end
-	
 
 --- parkivent ---------------------------------
 

locations/reks

@@ -1,4 +1,5 @@
 # reks
+   
 if $ARGS[0] = 'rexRep':
 	if rex<20:'You and Rex get along terribly.'
 	if rex>=20 and rex<40:'You and Rex have some tension.'
@@ -537,6 +538,7 @@ if $ARGS[0] = 'sms':
 		'You pick up the phone to send Rex a text. Suddenly, you come up with a great idea: You take a photo of your legs and send it to Rex.'
 		smsForRex += 1
 		if smsForRex = 1:
+		    photoskl_exp += 1
 			act 'Photo':
 				cls
 				minut += 5
@@ -577,6 +579,7 @@ if $ARGS[0] = 'sms':
 		'You pick up your phone to send Rex another picture. You think you should show him a bit more this time'
 		smsForRex += 1
 		pcs_horny += 5
+		photoskl_exp += 1
 		if smsForRex = 5:
 			act 'Photo':
 				cls

locations/telefon

@@ -1,6 +1,5 @@
 # telefon
 
-
 if $ARGS[0] = 'start':
 	gs 'stat'
 	gs 'telefon','phone_call_receive'
@@ -819,7 +818,6 @@ if $ARGS[0] = 'phone_call_reject':
 	pl'<center><a href="exec:gs ''telefon'', ''Phone_contactlist'' "><img src="images/system/phone/decline.png"></a></center>'
 end &! --- phone_call_reject ---
 
-!<<FUNC(''$phone_theme'')>>
 if $ARGS[0] = 'Phone_megafon':
 	clr
 	pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
@@ -1106,10 +1104,12 @@ if $ARGS[0] = 'Phone_camera':
 	pl '<center><TABLE cellspacing="0" width="80%"><TR><TD><img src="images/system/icon/icon_statusbar_left.png"></TD><TD></TD><TD align="right"><img src="images/system/icon/icon_statusbar_right.png"></TD></TR></TABLE></center>'
 	pl'<center><font size=6>Camera</font></center>'
 	pl'<center><img src="<<FUNC(''$phone_theme'')>>icon_camera.png"><br></center>'
-	pl'<a href="exec:gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a>'
+	pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a>' 
 	pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
 end &! --- Phone_camera ---
+ 	 
 
+   
 if $ARGS[0] = 'Phone_wheather':
 	clr
 	pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'