Merge remote-tracking branch 'glife/master' into dev

glife.qproj

@@ -208,7 +208,6 @@
 		<Location name="atakB"/>
 		<Location name="atakB1"/>
 		<Location name="atakM"/>
-		<Location name="spell"/>
 		<Location name="ender"/>
 		<Location name="nill"/>
 		<Location name="test"/>
@@ -1116,7 +1115,8 @@
 	<Location name="BanSexType"/>
 	<Folder name="Magic">
 		<Location name="castSpell"/>
-		<Location name="spell_teleport"/>
+		<Location name="spellList"/>
+		<Location name="spell"/>
 		<Location name="treeCircle"/>
 		<Location name="treeCircActs"/>
 		<Location name="treeCircEntry"/>

locations/Cheatmenu_din.qsrc

@@ -1515,6 +1515,54 @@ $cheatmenu['month'] = {
 	'<a href="exec:temp_month = 12 & $temp_month = ''December'' & dynamic $cheatmenu[''time'']">December</a>'
 }
 
+$cheatmenu['magicTable'] = {
+	!Build a cheat table for spells with a given Array of spell names.
+	!	ARGS[0] = Friendly name for table
+	!	ARGS[1] = the name of the arraay to use
+
+	$SpellTabName = $ARGS[0]
+	$ThisArrName = $ARGS[1]
+	maxArrSizeC = dyneval("result=arrsize('<<$ThisArrName>>')")
+
+	! make the header for the table
+	$SpellListStr = "<center>
+		<table width='90%' cellspacing='0' cellpadding='5' valign='top' border='1'>
+			<tr><th colspan='4'><b><<$SpellTabName>></b></th></tr>
+			<tr>
+				<th></th>
+				<th>Spell</th>
+				<th>Mana</th>
+				<th>Description</th>
+			</tr>"
+	i = 0
+	:CheatDinSpell1
+	$ThisSpellName = dyneval("$result=<<$ThisArrName>>[<<i>>]")
+	if i < maxArrSizeC:
+		if spellKnown[$ThisSpellName] = 1:
+			$spellFlipper = "<a href=""EXEC: spellKnown['<<$ThisSpellName>>'] = 0 & dynamic $cheatmenu['magic']"">[Unlearn]</a>"
+		else
+			$spellFlipper = "<a href=""EXEC: spellKnown['<<$ThisSpellName>>'] = 1 & dynamic $cheatmenu['magic']"">[Learn]</a>"
+		end
+		$SpellListStr = $SpellListStr + " <tr><td><<$spellFlipper>></td><td><<$spellName[$ThisSpellName]>></td><td><<spellMana[$ThisSpellName]>></td><td><<$spellDesc[$ThisSpellName]>></td></tr>"
+		i += 1
+		jump 'CheatDinSpell1'
+	end
+
+	$SpellListStr = $SpellListStr + " 
+		</table>
+	</center>"
+
+	*p $SpellListStr
+
+	killvar 'i'
+	killvar '$ThisSpellName'
+	killvar '$ThisArrName'
+	killvar 'maxArrSizeC'
+	killvar '$SpellTabName'
+	killvar '$spellFlipper'
+	killvar '$SpellListStr'
+}
+
 $cheatmenu['magic'] = {
 	gs'stat'
 	*clr & cla
@@ -1525,72 +1573,44 @@ $cheatmenu['magic'] = {
 		'<center><a href="exec:dynamic $cheatmenu[''succubreset'']"><b>Remove & Reset Succubus status</b></a></center>'
 		*nl
 	end
-	'<center><table  width="90%" cellspacing="0" cellpadding="0" valign="top">'
-	'<tr><td width="50%" cellpadding="10" valign="top">'
-		*nl
-		'<b>General Spells:</b></a>'
-	if spelltuman = 0:'<a href="exec:spelltuman = 1 & dynamic $cheatmenu[''magic'']">Cover the area fog</a>'
-	if spellklon = 0:'<a href="exec:spellklon = 1 & dynamic $cheatmenu[''magic'']">Override clone of yourself</a>'
-	if spellstun = 0:'<a href="exec:spellstun = 1 & dynamic $cheatmenu[''magic'']">Checkmate</a>'
-	if spellweap = 0:'<a href="exec:spellweap = 1 & dynamic $cheatmenu[''magic'']">Invest energy into a weapon (It requires weapons)</a>'
-	if spellwind = 0:'<a href="exec:spellwind = 1 & dynamic $cheatmenu[''magic'']">Blow away the fog</a>'
-	if spellklon2 = 0:'<a href="exec:spellklon2 = 1 & dynamic $cheatmenu[''magic'']">Substitute itself clones (3 pieces)</a>'
-	if spellenergo = 0:'<a href="exec:spellenergo = 1 & dynamic $cheatmenu[''magic'']">Create a weak energy shield</a>'
-	if spellinit = 0:'<a href="exec:spellinit = 1 & dynamic $cheatmenu[''magic'']">Create a slight delay of time</a>'
-	if spellhel = 0:'<a href="exec:spellhel = 1 & dynamic $cheatmenu[''magic'']">Battle Heal</a>'
-
-	if spellfire0 = 0 or spellfire2 = 0 or spellfire3 = 0 or spellfire4 = 0 or spellfire5 = 0:
-		*nl
-		'<b>Elemental Spells Fire:</b></a>'
-	end
-	if spellfire0 = 0:'<a href="exec:spellfire0 = 1 & dynamic $cheatmenu[''magic'']">Flame</a>'
-	if spellfire2 = 0:'<a href="exec:spellfire2 = 1 & dynamic $cheatmenu[''magic'']">The release of fire</a>'
-	if spellfire3 = 0:'<a href="exec:spellfire3 = 1 & dynamic $cheatmenu[''magic'']">Fire Barrier</a>'
-	if spellfire4 = 0:'<a href="exec:spellfire4 = 1 & dynamic $cheatmenu[''magic'']">Firestorm</a>'
-	if spellfire5 = 0:'<a href="exec:spellfire5 = 1 & dynamic $cheatmenu[''magic'']">Flame Shield</a>'
 
-	if spellele0 = 0 or spellele2 = 0 or spellele3 = 0 or spellele4 = 0 or spellele5 = 0:
-		*nl
-		'<b>Elements Lightning Spells:</b></a>'
-	end
-	if spellele0 = 0:'<a href="exec:spellele0 = 1 & dynamic $cheatmenu[''magic'']">Category</a>'
-	if spellele2 = 0:'<a href="exec:spellele2 = 1 & dynamic $cheatmenu[''magic'']">Lightning</a>'
-	if spellele3 = 0:'<a href="exec:spellele3 = 1 & dynamic $cheatmenu[''magic'']">Electric barrier</a>'
-	if spellele4 = 0:'<a href="exec:spellele4 = 1 & dynamic $cheatmenu[''magic'']">Dance of thousands of birds</a>'
-	if spellele5 = 0:'<a href="exec:spellele5 = 1 & dynamic $cheatmenu[''magic'']">Dancing Sphere</a>'
+	!Make sure spell list is initialized
+	if spellMana['fog'] = 0:gs 'spellList'
 
-	'</td><td width="50%" cellpadding="10" valign="top">'
-	if spellert0 = 0 or spellert2 = 0 or spellert3 = 0 or spellert4 = 0 or spellert5 = 0:
-		*nl
-		'<b>Spells Earth Elements:</b></a>'
-	end
-	if spellert0 = 0:'<a href="exec:spellert0 = 1 & dynamic $cheatmenu[''magic'']">Quicksand</a>'
-	if spellert2 = 0:'<a href="exec:spellert2 = 1 & dynamic $cheatmenu[''magic'']">Active protection</a>'
-	if spellert3 = 0:'<a href="exec:spellert3 = 1 & dynamic $cheatmenu[''magic'']">Abyss</a>'
-	if spellert4 = 0:'<a href="exec:spellert4 = 1 & dynamic $cheatmenu[''magic'']">Absolute protection</a>'
-	if spellert5 = 0:'<a href="exec:spellert5 = 1 & dynamic $cheatmenu[''magic'']">Sando</a>'
+	dynamic $cheatmenu['magicTable'], 'Combat Spells', '$combatSpells'
+	dynamic $cheatmenu['magicTable'], 'Non-Combat Spells', '$nonComSpells'
 
-	if spellwind0 = 0 or spellwind2 = 0 or spellwind3 = 0 or spellwind4 = 0 or spellwind5 = 0:
-		*nl
-		'<b>Wind Elemental Spells:</b></a>'
+	! Add in Teleport Location toggles.
+	! make the header for the table
+	$SpellListStr = "<center>
+		<table width='90%' cellspacing='0' cellpadding='5' valign='top' border='1'>
+			<tr><th colspan='2'><b>Known Tree Circle Locations</b></th></tr>
+			<tr><td><a href=""EXEC: spellKnown['teleport']=<<iif(spellKnown['teleport']=1,'0','1')>> & dynamic $cheatmenu['magic']""><<iif(spellKnown['teleport']=1,'[Unlearn]','[Learn]')>></a></td><td>Teleport Spell</td></tr>"
+	i = 0
+	:CheatDinTP1
+	$ThisLocation = $tpLocations[i]
+	if i < arrsize('$tpLocations'):
+		if tpKnown[$ThisLocation] = 1:
+			$spellFlipper = "<a href=""EXEC: tpKnown['<<$ThisLocation>>'] = 0 & dynamic $cheatmenu['magic']"">[Unlearn]</a>"
+		else
+			$spellFlipper = "<a href=""EXEC: tpKnown['<<$ThisLocation>>'] = 1 & dynamic $cheatmenu['magic']"">[Learn]</a>"
+		end
+		$SpellListStr = $SpellListStr + " <tr><td><<$spellFlipper>></td><td><<$treeCircName[$ThisLocation]>></td></tr>"
+		i += 1
+		jump 'CheatDinTP1'
 	end
-	if spellwind0 = 0:'<a href="exec:spellwind0 = 1 & dynamic $cheatmenu[''magic'']">Wind gust</a>'
-	if spellwind2 = 0:'<a href="exec:spellwind2 = 1 & dynamic $cheatmenu[''magic'']">The horrific pressure</a>'
-	if spellwind3 = 0:'<a href="exec:spellwind3 = 1 & dynamic $cheatmenu[''magic'']">Vacuum Sphere</a>'
-	if spellwind4 = 0:'<a href="exec:spellwind4 = 1 & dynamic $cheatmenu[''magic'']">Vacuum shells</a>'
-	if spellwind5 = 0:'<a href="exec:spellwind5 = 1 & dynamic $cheatmenu[''magic'']">Devouring vacuum</a>'
 
-	if spellwater0 = 0 or spellwater2 = 0 or spellwater3 = 0 or spellwater4 = 0 or spellwater5 = 0:
-		*nl
-		'<b>Water Elemental Spell:</b></a>'
-	end
-	if spellwater0 = 0:'<a href="exec:spellwater0 = 1 & dynamic $cheatmenu[''magic'']">Creek manna</a>'
-	if spellwater2 = 0:'<a href="exec:spellwater2 = 1 & dynamic $cheatmenu[''magic'']">Flooding</a>'
-	if spellwater3 = 0:'<a href="exec:spellwater3 = 1 & dynamic $cheatmenu[''magic'']">Blister</a>'
-	if spellwater4 = 0:'<a href="exec:spellwater4 = 1 & dynamic $cheatmenu[''magic'']">Water shark rocket</a>'
-	if spellwater5 = 0:'<a href="exec:spellwater5 = 1 & dynamic $cheatmenu[''magic'']">The Great Flood</a>'
+	$SpellListStr = $SpellListStr + " 
+		</table>
+	</center>"
+
+	*p $SpellListStr
+
+	killvar 'i'
+	killvar '$ThisLocation'
+	killvar '$spellFlipper'
+	killvar '$SpellListStr'
 
-	'</td></tr></table></center>'
 }
 
 $cheatmenu['dynamic'] = {

locations/MagEncounterFairy.qsrc

@@ -226,7 +226,7 @@ if $ARGS[0] = 'fairychattopic':
 		'You get into a pretty heated discussion with the fairy over whether dogs or cats are better. Well, it''s mostly the fairy that gets heated. It would be a mundane discussion for anyone else, but she takes it very seriously.'
 	elseif frandchat = 15:
 		'Today the fairy introduces you to fairy knock-knock jokes. She spends almost half an hour telling joke after joke, but you failed to understand a single one. By the time you''re ready to leave, she''s complaining about how humans have no sense of humor.'
-	else:
+	else
 		! Teleport event
 		if spellKnown['teleport'] = 0:
 			!show and teach Teleport spell
@@ -251,7 +251,7 @@ if $ARGS[0] = 'fairychattopic':
 				cla
 				act 'You step out of the circle...':gt 'gadforest', '1'
 			end
-		else:
+		else
 			!take the user to random location
 
 			'The Fairy nudges you into the nearby tree circle, and giggles as you hear her incant "inla", then flies out of the ring.'

locations/NikoDates.qsrc

@@ -1748,7 +1748,7 @@ if $ARGS[0] = 'Walk Of Shame':
 						cls
 						gs'stat'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/restroom/6.jpg"></center>'
-						'Even though the pain is quite severe, you do as he says, not wanting to disappoint him. Feeling his dry dick roughly scraping against your inner ass you close your eyes and try to think of anything other than the pain. <font color=#FF00FF>Please cum soon. Please. I can''t tae much more of this. Please just cum. PLEEEEAASE!</font> to your relief you hear Radomir groan then feel his warm seed filling your ass. The focus on the warm as he continues pumping you with his cum. After Radomir is spent, he pushes you off of him then says, "You were great <<$pcs_firstname>>. We should do this again sometime." You reply, "Does that mean that we can out together, maybe?" Radomir laughs as he replies, "I didn''t say that. I''m not a one girl kind of guy, but you have my permission to keep dreaming about me." Radomir continues laughing as he gets dressed then leave you alone in the restroom. <font color=#FF00FF>So...He didn''t care for me. Does no one care for me? I need someone. Why won''t anyone care for me anymore?</font> you suddenly hear, "Ah there you are. I''ve been looking all over for you."'
+						'Even though the pain is quite severe, you do as he says, not wanting to disappoint him. Feeling his dry dick roughly scraping against your inner ass you close your eyes and try to think of anything other than the pain. <font color=#FF00FF>Please cum soon. Please. I can''t taKe much more of this. Please just cum. PLEEEEAASE!</font> to your relief you hear Radomir groan then feel his warm seed filling your ass. The focus on the warm as he continues pumping you with his cum. After Radomir is spent, he pushes you off of him then says, "You were great <<$pcs_firstname>>. We should do this again sometime." You reply, "Does that mean that we can out together, maybe?" Radomir laughs as he replies, "I didn''t say that. I''m not a one girl kind of guy, but you have my permission to keep dreaming about me." Radomir continues laughing as he gets dressed then leave you alone in the restroom. <font color=#FF00FF>So...He didn''t care for me. Does no one care for me? I need someone. Why won''t anyone care for me anymore?</font> you suddenly hear, "Ah there you are. I''ve been looking all over for you."'
 						gs 'cum_call', 'anus', $boy
 						gs 'arousal', 'anal', 5, 'sub'
 						gs 'arousal', 'end'

locations/NikoEv2.qsrc

@@ -554,7 +554,7 @@ if $ARGS[0] =  'Diner 1':
 					minut += 5
 					gs'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev2/diner/npc/1.jpg"></center>'
-					'You see the biker shake hands with Niko then give him the money. Niko counts the money then gives the biker an approving nod before the biker takes his seat again. Niko turns to you, and says, "Good job <<$pcs_nickname>>. We are making some good progre..." A nearby trucker begins examining your face before shouting out, "Is that what I think it is? Hey guys look at this girl. She is walking around with cum leaking off of my face!" You freeze in place. <font color=#FF00FF>Oh shit! I forgot to wash up. How did I forget that? I''m walking around with cum leaking off my chin. How could I forget?</font> the truckers, and bikers in the room surround you then begin talking to each other.'
+					'You see the biker shake hands with Niko then give him the money. Niko counts the money then gives the biker an approving nod before the biker takes his seat again. Niko turns to you, and says, "Good job <<$pcs_nickname>>. We are making some good progre..." A nearby trucker begins examining your face before shouting out, "Is that what I think it is? Hey guys look at this girl. She is walking around with cum plastering her face!" You freeze in place. <font color=#FF00FF>Oh shit! I forgot to wash up. How did I forget that? I''m walking around with cum leaking off my chin. How could I forget?</font> the truckers, and bikers in the room surround you then begin talking to each other.'
 					*nl
 					'<center><img <<$set_imgh>> src="images/pc/body/cum/cumface/blonde/15.jpg"></center>'
 

locations/ParChurch.qsrc

@@ -66,8 +66,7 @@ if $ARGS[0] = 'vigil':
 		pcs_horny -= temprand
 	end
 	moral += 1
-	hour = 22
-	gs 'stat'
+	minut += 30
 	PLAY 'sound/church/Blessing.mp3',30
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,5) +'.jpg"></center>'
 	'You attend the vigil and reflect on the recent events in your life. The harmonies as the hymns and psalms are sung sweep aside some of the worries in your heart, although you know they will return once you leave this holy place, you still enjoy the rest. The sweet scent of incense tickles your nose and reminds you of the scent of' + iif(rex_love = 1, 'Rex', 'your step-father') + '''s cologne.'  
@@ -78,6 +77,7 @@ if $ARGS[0] = 'vigil':
 	elseif pav_slut >= 25:
 		'You notice some of the old women looking at you with disapproval and one or two of the old men looking at you with interest.'
 	end
+	gs 'stat'
 
 	act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 	act 'Stay for the Rite of Mutual Forgiveness':
@@ -85,25 +85,27 @@ if $ARGS[0] = 'vigil':
 		pcs_mood += 10
 		pcs_horny -= 20
 		moral += 1
+		minut += 10
 		gs 'stat'
 		temprand = rand(1,100)
 		if temprand <= 80:
 			if pav_sex > 10: 
-				pav_sex -= 10
+				pav_sex -= 2
 			else
 				pav_sex = 0
 			end
 			if pav_prostitute > 10:
-				pav_prostitute -= 10
+				pav_prostitute -= 2
 			else
 				pav_prostitute = 0
 			end
 		end
-		hour = 23
+		
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(9,10) +'.jpg"></center>'
 		'You decide to stay for the rite of mutual forgiveness and feel much better afterwards.'
 		act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 	end
+
 end
 
 if $ARGS[0] = 'liturgy':
@@ -111,8 +113,7 @@ if $ARGS[0] = 'liturgy':
 	CLOSE ALL
 	churchday = daystart
 	menu_off = 1
-	gs 'stat'
-	hour = 12
+	minut += 60
 	PLAY 'sound/church/t' + rand(1,19) + '.mp3',30
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,8) +'.jpg"></center>'
 	if pav_slut < 50 and Conf_Kirill <= 1: 
@@ -129,12 +130,12 @@ if $ARGS[0] = 'liturgy':
 	elseif pav_slut >= 50:
 		if rand(1,100) > 20:
 			if pav_sex > 25:
-				pav_sex -= 25
+				pav_sex -= 5
 			else
 				pav_sex = 0
 			end
-			if pav_prostitute > 10:
-				pav_prostitute -= 10
+			if pav_prostitute > 25:
+				pav_prostitute -= 5
 			else
 				pav_prostitute = 0
 			end
@@ -147,7 +148,8 @@ if $ARGS[0] = 'liturgy':
 		'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) 
-    
+    gs 'stat'
+	
 	act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 end
 	
@@ -164,9 +166,7 @@ if $ARGS[0] = 'Narthex':
 	'To your left as you enter, there is a counter where a deacon sells candles, icons, and prayer books. He smiles and nods at you absently. acknowledging your presence without really seeing you.'
 	
 	act 'Leave the Church': gt 'ParChurch' , 'start'
-	if ((week <= 5 and hour >= 7 and hour < 9) or (hour >= 16 and hour < 18)) and confessday ! daystart:
-		act 'Go to confession': confessday = daystart & gt 'Parchurch2', 'confession'
-	end
+	if ((week <= 5 and hour >= 7 and hour < 9) or (hour >= 16 and hour < 18)) and confessday ! daystart: act 'Go to confession': confessday = daystart & gt 'Parchurch2', 'confession'
 	act 'Light a candle': gt 'ParChurch' , 'candle'
 	act 'Pray': gt 'ParChurch' , 'pray'
 	
@@ -174,7 +174,7 @@ end
 
 if $ARGS[0] = 'candle':
 	*clr & cla
-	minut += 30
+	minut += 10
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_candle.jpg"></center>'
@@ -209,11 +209,9 @@ end
 if $ARGS[0] = 'pray':
 	*clr & cla
 	menu_off = 1
-	randtime = rand(15,60)
-	minut += randtime
-	if pav_sex > 1: pav_sex -= 1
-	if pav_prostitute > 1: pav_prostitute -= rand(0,1)
-	gs 'stat'
+	minut += 10
+	if pav_sex > 10: pav_sex -= 1
+	if pav_prostitute > 10: pav_prostitute -= rand(0,1)
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_praying.jpg"></center>'
 	if hour >6 and hour < 20 and moral < 30:
 		pcs_horny -= 10
@@ -264,6 +262,7 @@ if $ARGS[0] = 'pray':
 		'The Nave is lit only with candles and small presence lights and the darkness feels very comforting, like being in the womb. You get the urge to pray very intensely. Before you know it, more than an hour went by and you feel a bit reborn and cleansed.'
 		'"That felt refreshing," you mumble to yourself.'	
 	end
+	gs 'stat'	
 
 	act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 end
@@ -276,7 +275,6 @@ if $ARGS[0] = 'amends':
 	'As you approach the priest, you recall your previous behaviour and that the priest said that he wanted to discuss it with you further.'
 	act 'Approach him':
 		*clr & cla
-		cla
 		gs 'stat'
 		moral += 1
 		Kirill += 1
@@ -295,10 +293,10 @@ if $ARGS[0] = 'amends':
 			'Taking out a broom, the priest smiles at you, "The Narthex and the Sanctuary could use a good sweeping and mopping." he says.'
 			act 'Take the broom':
 				*clr & cla
-				gs 'stat'
 				minut += 60
 				Churchbad = 0
 				moral += 1
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/churchclean.jpg"></center>'
 				'You take the broom and began your task, thankful that the church isn''t a very large one. You diligently sweep the floor, making sure to get into all the corners. Once the sweeping is done, you mop the floor then put everything away. You feel a sense of wellbeing at a job well done.'
 				'As you close the closet door, you turn around to find the priest looking at you with a pleased expression.'
@@ -307,11 +305,11 @@ if $ARGS[0] = 'amends':
 			end
 			act 'Tell him what he can do with the broom':
 				*clr & cla
-				gs 'stat'
 				minut += 5
 				Churchbad = 2
 				Kirill -= 5 
 				moral -= 2
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/pc/bukli_angry.jpg"></center>'
 				'"As if." you state flatly, looking at the priest coldly, "You''re the one that took an oath to work for God, not me. I''m out of here."'
 				'The priest looks as if he was going to say something then changed his mind. He shakes his head sadly as you walk away.'
@@ -353,8 +351,8 @@ if $ARGS[0] = 'amends':
 						Churchbadtime = daystart + badrand
 						'You look the priest right in the eyes then when his attention is on you, you slowly lean forward, allowing your breasts to be exposed. To your delight, you see his eyes dart to your tits then snap back up to your face. His face flushes red.'
 						if Kirill <= 0: 
-						'"You whore!" The priest roars in fury, "I''ll teach you what happens to those who desecrate the House of God!"'
-						'Stunned by his unexpected fury, you were unable to react before the furious priest grabs you by the arm and drags you to his office.'
+							'"You whore!" The priest roars in fury, "I''ll teach you what happens to those who desecrate the House of God!"'
+							'Stunned by his unexpected fury, you were unable to react before the furious priest grabs you by the arm and drags you to his office.'
 							act 'Continue': gt 'ParChurch', 'spank'
 						elseif Kirill > 0 and Kirill <= 20:
 							'"<<$pcs_nickname>> <<$lastname>>!" the priest hisses, his face twisted in rage, "How dare you behave like this in the House of God! Get out now!"'
@@ -372,12 +370,13 @@ if $ARGS[0] = 'amends':
 				moral += rand(0,3)
 				Churchbad = 1
 				Kirill += rand(0,2)
-				minut += rand(30,60)
+				minut += 45
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_talk.jpg"></center>'
 				'You sit and talk with the priest about morality and how Russian society has changed since the fall of the Soviet Union. You get the impression that although the priest was happy to see the church gain wider acceptance and freedom from the government, he doesn''t seem to approve of how today''s youth behave.'
 				'You see an old woman you know vaguely from the apartment block next to yours. She seems anxious to talk to the priest.'
 				if Kirill > 60:
 					'"It looks like Mrs. Seldipi needs to regal me with the latest of her neighbours'' multitude of sins." the priest confides with a wry smile, "We can continue our discussion another day."'
+					act 'Leave the church': gt 'ParChurch' , 'start'
 				else
 					'"I am sorry, <<$pcs_nickname>>. It seems that I am needed by Mrs. Seldipi." he says with obvious regret, "I''ve enjoyed our chat. Please think on what we''ve discussed and we will talk another time."'
 					act 'Leave the church': gt 'ParChurch' , 'start'
@@ -387,8 +386,8 @@ if $ARGS[0] = 'amends':
 	end
 	act 'Chicken out': 
 		'You could not bring yourself to talk to the priest yet. You were torn between stalling or simply leaving.'
-		act 'Stay in the Narthex': gt 'ParChurch', 'Narthex'
 		act 'Leave the church': gt 'ParChurch' , 'start'
+		act 'Stay in the Narthex': gt 'ParChurch', 'Narthex'
 	end
 end
 
@@ -505,7 +504,7 @@ if $ARGS[0] = 'Questions':
 	gs 'stat'
 	if Kirillsex = 0:
 		pcs_horny += 2
-		'"father, are you alright?" you ask concerned, "You sound out of breath."'
+		'"Father, are you alright?" you ask concerned, "You sound out of breath."'
 		'"Hmm, what?" Father Kirill stammers and you hear him moving around in the dark confessional, "No, I''m fine. I guess it must the dust and damp down here. I appreciate your conern though."'
 		'"Okay, then," you reply with a little smile as you imagine him covering himself up.'
 	else

locations/ParChurch2.qsrc

@@ -2,6 +2,7 @@
 if $ARGS[0] = 'confession':
 	*clr & cla
 	menu_off = 1
+	minut += 5
 	gs 'stat'
 	if confK ! 0: lastconf = daystart - confess
 	confess = daystart
@@ -30,9 +31,9 @@ if $ARGS[0] = 'confession':
 	'"Hello, my child. What''s troubling you?" he asks gently.'
 	'"Father, it has been <<lastconf>> days since I last confessed."'
 	if confK >= 10 and Kirill >= 60: gt 'ParChurch2', 'secrets'
-	minut += rand(20,45)
 	act 'Be honest':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		if con_box = 0: $confstring = 'kneel together next to the analogion holding a richly decorated Gospel Book with a blessing cross upon its cover' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		if con_box = 1:	$confstring = 'go to the confessional in the basement and sit down inside' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
@@ -69,6 +70,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -105,6 +108,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -141,6 +146,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -176,6 +183,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -211,6 +220,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -246,6 +257,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -281,6 +294,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				KnoKirillName = 1
+				minut += 5
+				gs 'stat'
 				'You once more feel the need to speak to the priest about some of the things that happened recently in your life.'
 				'"I sometimes think that my <<$npc_nickname[''A29'']>> doesn''t trust me. I''m still a virgin, but she won''t take my word for it. Every month she nags my head off about going to the gynecologist to prove I''m still a virgin. She claims that my school needs to know, but I know that is a lie. It’s starting to irritate me."'
 				'The priest sighed, "I''m sure she''s just doing what she thinks is best for you."'
@@ -306,6 +321,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				KnoKirillName = 1
+				minut += 5
+				gs 'stat'
 				'You once more feel the need to speak to the priest about some of the things that happened recently in your life.'
 				'"Every month my mother nags my head off about going to the gynecologist to prove I''m still a virgin. She claims that my school needs to know, but I know that is a lie. It’s starting to irritate me."'
 				'The priest sighed, "I''m sure she''s just doing what she thinks is best for you."'
@@ -337,8 +354,8 @@ end
 
 if $ARGS[0] = 'first_conf':
 	*clr & cla
+	minut += 5
 	gs 'stat'
-	minut += rand(20,30)
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 	'You wait for the priest to finish listening to an old woman than approach him.'
 	'You bow down, touching the floor with your right hand then place your right hand over the left with your palms upward and say, "Bless, Father"'
@@ -349,6 +366,7 @@ if $ARGS[0] = 'first_conf':
 	'You indicated your understanding and the priests asked you if you are ready to begin.'
 	act 'Be honest':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 
@@ -446,6 +464,7 @@ if $ARGS[0] = 'first_conf':
 	end
 	act 'Don''t confess':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		confK += 1
@@ -462,6 +481,7 @@ if $ARGS[0] = 'first_conf':
 	end
 	act 'Waste his time':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		confK += 1
@@ -512,8 +532,8 @@ end
 
 if $ARGS[0] = 'secrets':
 	*clr & cla
+	minut += 5
 	gs 'stat'
-	minut += rand(20,60)
 	if Kirill_Crpt >= 20 and con_box = 0: gt 'ParChurch', 'confessional'
 	if con_box = 0:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
@@ -523,6 +543,8 @@ if $ARGS[0] = 'secrets':
 		'As you enter the confessional and wait for Father Kirill to prepare himself, you think about what you want to say to him.'
 	end
 	act 'Hold back':
+		minut += 5
+		gs 'stat'
 		if pcs_vag = 0:
 			'You decide to talk to Father Kirill about some of the things going on in your life, but you don''t feel comfortable being too detailed. You touch briefly on some of the feelings you''ve had recently, but avoid going into any details. Father Kirill listens intently and asks a few questions, trying to get you to open up a little more but he doesn''t put any real pressure on you. In the end, Father Kirill absolves you of your sins and encourages you to put your trust in God and him. As you left, you felt unsatisfied.'
 			act 'Return to Narthex': gt 'ParChurch', 'Narthex'
@@ -534,6 +556,7 @@ if $ARGS[0] = 'secrets':
 	end
 	act 'Confess your less dramatic sins':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		if con_box = 0: $confstring = 'kneel together next to the analogion holding a richly decorated Gospel Book with a blessing cross upon its cover' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		if con_box = 1:	$confstring = 'go to the confessional in the basement and sit down inside' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
@@ -568,6 +591,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -603,6 +628,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -638,6 +665,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -673,6 +702,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -708,6 +739,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -743,6 +776,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -776,6 +811,8 @@ if $ARGS[0] = 'secrets':
 	if lesbian ! 0 or sisterLesb ! 0 or seepornofut ! 0:
 		act 'Confess a secret':
 			*clr & cla
+			minut += 5
+			gs 'stat'
 			if con_box = 0: $confstring = 'kneel together next to the analogion holding a richly decorated Gospel Book with a blessing cross upon its cover' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 			if con_box = 1:	$confstring = 'go to the confessional in the basement and sit down inside' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
 
@@ -784,7 +821,7 @@ if $ARGS[0] = 'secrets':
 			'"Go on, my dear." Father Kirill says gently, "Remember, our Lord already knows what you have done. All you need do is acknowledge the sin by speaking it."'
 			'Steeling your nerve, you decided to tell him about...'
 			if lesbian ! 0 or sisterLesb ! 0:
-				act 'wanting to have sex with a girl':
+				act 'Wanting to have sex with a girl':
 					cla
 					minut += 5
 					gs 'stat'
@@ -803,6 +840,8 @@ if $ARGS[0] = 'secrets':
 						'"Really?" Father Kirill answered eagerly, "And have you acted on these feelings?"'
 					end
 					act 'Tell him what you have done, but only in general terms':
+						minut += 5
+						gs 'stat'
 						'"Is it really bad that I''ve done stuff with another girl?" you ask hesitantly.'
 						if Kirill_Crpt < 20:
 							'"Well, technically, it is considered a sin by most priests," Father Kirill replied thoughtfully, "However, there are some who believe that having sex with someone of the same gender is only a sin for men. There are a number of hints in the Bible that seem to indicate that women were permitted to please one another so long as the marriage bed was respected. Of course it also depends on what you have done."'
@@ -819,6 +858,8 @@ if $ARGS[0] = 'secrets':
 					if sisterLesb = 0:
 						act 'Tell him what you have done in detail':
 							Kirill_Crpt += 3
+							minut += 5
+							gs 'stat'
 							'You describe in detail what you have done with other girls and, although you didn''t intend to name names, you accidentally mention who you were with. As you recount your lesbian activities, you become aware of a soft rustling noise from Fater Kirill''s direction. You also become away of a very slight rythmic rocking sensation. As you describe what it was like to taste another girl''s pussy, Father Kirill''s responses become more abrupt and grunt-like. As you finish, you ask Father Kirill if he is alright, his answer is a drawn out sibilant "Yessss".'
 							'When you are done, you step outside the confessional. It takes Father Kirill a bit longer than normal to join you and when he does, you notice that his face seems flushed and a little sweaty. You both kneel and you recite the prayer of absolution together.'
 							act 'Return to Narthex': gt 'ParChurch', 'Narthex'
@@ -826,6 +867,8 @@ if $ARGS[0] = 'secrets':
 					else
 						act 'Tell him what you have done in detail':
 							Kirill_Crpt += 5
+							minut += 5
+							gs 'stat'
 							'You describe in detail what you have done with other girls and, although you didn''t intend to name names, you accidentally mention you activities with your sister.'
 							'"Did you say that you''ve been intimate with your sister?" Father Kirill interjects, "I believe we need to delve a bit more into these activities."'
 							'As you recount your lesbian activities with Anya, starting with how you couldn''t stop looking at her ass, you become aware of a soft rustling noise from Fater Kirill''s direction. You also become away of a very slight rythmic rocking sensation. As you describe what it was like to taste Anya''s pussy, Father Kirill''s responses become more abrupt and grunt-like. As you finish describing Anya fucking your ass with her strapon, you ask Father Kirill if he is alright, his answer is a drawn out sibilant "Yessss".'
@@ -870,8 +913,8 @@ if $ARGS[0] = 'secrets':
 							cla
 							if con_box = 0: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 							if con_box = 1:	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
-							gs 'stat'
 							minut += 5
+							gs 'stat'
 							'"Well, there is a little more." you admit sheepishly, "The boys got a little excited and I couldn''t just leave them like that, so I helped them."'
 							'"And just how did you ''help'' them?" Father Kirill probed, "Remember, it is best to be as thorough as possible when confessing."'
 							'"It wasn''t my idea, but when they asked me to, you know, jerk them, I agreed." you say quickly, before you can change your mind.'
@@ -887,8 +930,8 @@ if $ARGS[0] = 'secrets':
 							*clr & cla
 							if con_box = 0: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 							if con_box = 1:	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
-							gs 'stat'
 							minut += 5
+							gs 'stat'
 							'Blushing fiercely, you think about the other stuff you''ve done with your brother and his friends.'
 							'"There''s more, Father." you admit softly, "After the first couple of times, the boys decided that my hands weren''t enough and so I started sucking them."'
 							if Kirill_Crpt < 20:
@@ -911,6 +954,8 @@ if $ARGS[0] = 'secrets':
 								if brothersex ! 0:
 									act 'Tell him about your brother':
 										'"He was there." you confess, "He didn''t do anything the first couple of times, I only jerked his friends. Then one time he just went and stuck his cock, I mean, penis into my mouth while I was jerking his friends."'
+										minut += 5
+										gs 'stat'
 										if Kirill_Crpt < 20:
 											Kirill_Crpt += 1
 											'"Hmmm." Father Kirill muses, "This is very disturbing. Incest is a sure path to hell."'

locations/_attributes_average.qsrc

@@ -156,6 +156,7 @@ elseif ARGS[1] = 25:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 26:
 	CloQuality = 3
 	CloThinness = 5
@@ -206,6 +207,7 @@ elseif ARGS[1] = 33:
 	CloTopCut = 2
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 34:
 	CloQuality = 3
 	CloThinness = 3
@@ -231,6 +233,7 @@ elseif ARGS[1] = 37:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 38:
 	CloQuality = 4
 	CloThinness = 3
@@ -432,12 +435,14 @@ elseif ARGS[1] = 69:
 	CloTopCut = 2
 	CloSkirtShortness = 3
 	CloExhibit = 10
+	CloStyle = 2
 elseif ARGS[1] = 70:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
 	CloSkirtShortness = 2
 	CloExhibit = 10
+	CloStyle = 2
 elseif ARGS[1] = 71:
 	CloQuality = 5
 	CloThinness = 3
@@ -493,7 +498,7 @@ elseif ARGS[1] = 79:
 	CloThinness = 3
 	CloTopCut = 2
 	CloSkirtShortness = 4
-	CloStyle = 2
+	CloStyle = 4
 	CloExhibit = 20
 elseif ARGS[1] = 80:
 	CloQuality = 3
@@ -525,6 +530,7 @@ elseif ARGS[1] = 84:
 	CloTopCut = 2
 	CloPantsShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 85:
 	CloQuality = 3
 	CloThinness = 5
@@ -574,6 +580,7 @@ elseif ARGS[1] = 92:
 	CloTopCut = 1
 	CloSkirtShortness = 3
 	CloExhibit = 25
+	CloStyle = 2
 elseif ARGS[1] = 93:
 	CloQuality = 4
 	CloThinness = 4
@@ -592,6 +599,7 @@ elseif ARGS[1] = 95:
 	CloBra = 1
 	CloPantsShortness = 1
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 96:
 	CloQuality = 4
 	CloThinness = 3
@@ -649,6 +657,7 @@ elseif ARGS[1] = 104:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 105:
 	CloQuality = 3
 	CloThinness = 2
@@ -674,6 +683,7 @@ elseif ARGS[1] = 108:
 	CloTopCut = 4
 	CloSkirtShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 109:
 	CloQuality = 3
 	CloThinness = 4
@@ -767,6 +777,7 @@ elseif ARGS[1] = 123:
 	CloTopCut = 4
 	CloSkirtShortness = 5
 	CloExhibit = 30
+	CloBimbo = 1
 elseif ARGS[1] = 124:
 	CloQuality = 4
 	CloThinness = 4
@@ -804,12 +815,14 @@ elseif ARGS[1] = 129:
 	CloTopCut = 4
 	CloPantsShortness = 6
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 130:
 	CloQuality = 4
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 6
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 131:
 	CloQuality = 4
 	CloThinness = 4 
@@ -945,6 +958,7 @@ elseif ARGS[1] = 152:
 	CloTopCut = 4
 	CloPantsShortness = 1
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 153:
 	CloQuality = 4
 	CloThinness = 4
@@ -993,6 +1007,7 @@ elseif ARGS[1] = 160:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 161:
 	CloQuality = 3
 	CloThinness = 4
@@ -1201,6 +1216,7 @@ elseif ARGS[1] = 194:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 195:
 	CloQuality = 3
 	CloThinness = 3
@@ -1213,6 +1229,7 @@ elseif ARGS[1] = 196:
 	CloTopCut = 1
 	CloSkirtShortness = 3
 	CloExhibit = 10
+	CloStyle = 4
 elseif ARGS[1] = 197:
 	CloQuality = 4
 	CloThinness = 2
@@ -1225,6 +1242,7 @@ elseif ARGS[1] = 198:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 199:
 	CloQuality = 3
 	CloThinness = 4
@@ -1353,6 +1371,7 @@ elseif ARGS[1] = 219:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 220:
 	CloQuality = 4
 	CloThinness = 3
@@ -1390,6 +1409,7 @@ elseif ARGS[1] = 225:
 	CloTopCut = 1
 	CloSkirtShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 226:
 	CloQuality = 4
 	CloThinness = 2
@@ -1474,6 +1494,7 @@ elseif ARGS[1] = 239:
 	CloTopCut = 1
 	CloPantsShortness = 1
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 240:
 	CloQuality = 3
 	CloThinness = 3
@@ -1510,6 +1531,7 @@ elseif ARGS[1] = 245:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 246:
 	CloQuality = 4
 	CloThinness = 4
@@ -1523,6 +1545,7 @@ elseif ARGS[1] = 247:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 248:
 	CloQuality = 3
 	CloThinness = 4
@@ -1663,6 +1686,7 @@ elseif ARGS[1] = 270:
 	CloTopCut = 2
 	CloSkirtShortness = 2
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 271:
 	CloQuality = 3
 	CloThinness = 3
@@ -1682,6 +1706,7 @@ elseif ARGS[1] = 273:
 	CloSkirtShortness = 5
 	CloBimbo = 1
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 274:
 	CloQuality = 4
 	CloThinness = 4
@@ -1854,6 +1879,7 @@ elseif ARGS[1] = 301:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 302:
 	CloQuality = 4
 	CloThinness = 4
@@ -2158,6 +2184,7 @@ elseif ARGS[1] = 349:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 350:
 	CloQuality = 4
 	CloThinness = 5
@@ -2244,6 +2271,7 @@ elseif ARGS[1] = 363:
 	CloTopCut = 3
 	CloSkirtShortness = 2
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 364:
 	CloQuality = 3
 	CloThinness = 4
@@ -2256,6 +2284,7 @@ elseif ARGS[1] = 365:
 	CloTopCut = 3
 	CloSkirtShortness = 2
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 366:
 	CloQuality = 4
 	CloThinness = 3
@@ -2651,7 +2680,7 @@ elseif ARGS[1] = 429:
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 15
 elseif ARGS[1] = 430:
 	CloQuality = 3
@@ -2714,6 +2743,7 @@ elseif ARGS[1] = 439:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 440:
 	CloQuality = 4
 	CloThinness = 4
@@ -2845,7 +2875,7 @@ elseif ARGS[1] = 461:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 20
 elseif ARGS[1] = 462:
 	CloQuality = 3
@@ -2909,6 +2939,7 @@ elseif ARGS[1] = 471:
 	CloTopCut = 1
 	CloPantsShortness = 5
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 472:
 	CloQuality = 4
 	CloThinness = 2
@@ -3137,6 +3168,7 @@ elseif ARGS[1] = 508:
 	CloTopCut = 3
 	CloSkirtShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 509:
 	CloQuality = 3
 	CloThinness = 2
@@ -3189,6 +3221,7 @@ elseif ARGS[1] = 516:
 	CloBra = 1
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 517:
 	CloQuality = 3
 	CloThinness = 3

locations/_attributes_cheap.qsrc

@@ -137,7 +137,7 @@ elseif ARGS[1] = 25:
 	CloThinness = 2
 	CloTopCut = 2
 	CloSkirtShortness = 4
-	CloStyle = 2
+	CloStyle = 4
 elseif ARGS[1] = 26:
 	CloQuality = 1
 	CloThinness = 4
@@ -273,13 +273,12 @@ elseif ARGS[1] = 51:
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloStyle = 2
+	CloStyle = 4
 elseif ARGS[1] = 52:
 	CloQuality = 2
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 3
-	CloStyle = 4
 elseif ARGS[1] = 53:
 	CloQuality = 1
 	CloThinness = 5
@@ -323,6 +322,7 @@ elseif ARGS[1] = 60:
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 2
 elseif ARGS[1] = 61:
 	CloQuality = 2
 	CloThinness = 4
@@ -620,6 +620,7 @@ elseif ARGS[1] = 115:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 116:
 	CloQuality = 1
 	CloThinness = 2
@@ -741,6 +742,7 @@ elseif ARGS[1] = 134:
 	CloBra = 1
 	CloPantsShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 135:
 	CloQuality = 1
 	CloThinness = 2
@@ -776,7 +778,7 @@ elseif ARGS[1] = 139:
 	CloThinness = 4
 	CloTopCut = 4
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 30
 elseif ARGS[1] = 140:
 	CloQuality = 1
@@ -864,6 +866,7 @@ elseif ARGS[1] = 153:
 	CloTopCut = 1
 	CloPantsShortness = 5
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 154:
 	CloQuality = 1
 	CloThinness = 2
@@ -883,6 +886,7 @@ elseif ARGS[1] = 156:
 	CloPantsShortness = 5
 	CloBimbo = 1
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 157:
 	CloQuality = 2
 	CloThinness = 2
@@ -908,6 +912,7 @@ elseif ARGS[1] = 160:
 	CloTopCut = 2
 	CloSkirtShortness = 2
 	CloExhibit = 10
+	CloStyle = 5
 elseif ARGS[1] = 161:
 	CloQuality = 2
 	CloThinness = 2
@@ -998,7 +1003,7 @@ elseif ARGS[1] = 175:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 20
 elseif ARGS[1] = 176:
 	CloQuality = 1
@@ -1198,6 +1203,7 @@ elseif ARGS[1] = 207:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 2
 elseif ARGS[1] = 208:
 	CloQuality = 2
 	CloThinness = 2
@@ -1222,6 +1228,7 @@ elseif ARGS[1] = 211:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 5
 elseif ARGS[1] = 212:
 	CloQuality = 2
 	CloThinness = 3
@@ -1348,6 +1355,7 @@ elseif ARGS[1] = 231:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 232:
 	CloQuality = 1
 	CloThinness = 2
@@ -1384,6 +1392,7 @@ elseif ARGS[1] = 237:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 238:
 	CloQuality = 2
 	CloThinness = 1
@@ -1533,6 +1542,7 @@ elseif ARGS[1] = 261:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 262:
 	CloStyle = 3
 	CloQuality = 2
@@ -1583,7 +1593,7 @@ elseif ARGS[1] = 269:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 30
 elseif ARGS[1] = 270:
 	CloQuality = 1
@@ -1603,6 +1613,7 @@ elseif ARGS[1] = 272:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 273:
 	CloQuality = 2
 	CloThinness = 2
@@ -1744,6 +1755,7 @@ elseif ARGS[1] = 294:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 295:
 	CloQuality = 1
 	CloThinness = 3
@@ -1762,6 +1774,7 @@ elseif ARGS[1] = 297:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 298:
 	CloQuality = 1
 	CloThinness = 2
@@ -1800,6 +1813,7 @@ elseif ARGS[1] = 303:
 	CloTopCut = 3
 	CloSkirtShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 304:
 	CloStyle = 4
 	CloQuality = 1
@@ -1819,6 +1833,7 @@ elseif ARGS[1] = 306:
 	CloTopCut = 2
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 307:
 	CloStyle = 1
 	CloQuality = 2
@@ -1858,6 +1873,7 @@ elseif ARGS[1] = 312:
 	CloTopCut = 4
 	CloSkirtShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 313:
 	CloQuality = 2
 	CloThinness = 3
@@ -1940,6 +1956,7 @@ elseif ARGS[1] = 325:
 	CloTopCut = 1
 	CloPantsShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 326:
 	CloQuality = 2
 	CloThinness = 2
@@ -2457,6 +2474,7 @@ elseif ARGS[1] = 410:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 411:
 	CloQuality = 2
 	CloThinness = 2

locations/_attributes_expensive.qsrc

@@ -32,7 +32,7 @@ elseif ARGS[1] = 6:
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 7:
 	CloQuality = 5
 	CloThinness = 3
@@ -77,6 +77,7 @@ elseif ARGS[1] = 14:
 	CloThinness = 3
 	CloTopCut = 3
 	CloPantsShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 15:
 	CloQuality = 5
 	CloThinness = 4
@@ -102,7 +103,7 @@ elseif ARGS[1] = 19:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 20:
 	CloQuality = 6
 	CloThinness = 5
@@ -179,13 +180,13 @@ elseif ARGS[1] = 34:
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 5
-	CloStyle = 2
+	CloStyle = 4
 elseif ARGS[1] = 35:
 	CloQuality = 6
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 3
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 36:
 	CloQuality = 5
 	CloThinness = 4
@@ -238,17 +239,18 @@ elseif ARGS[1] = 45:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloBimbo = 1
-	CloStyle = 3
 elseif ARGS[1] = 46:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 47:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 1
+	CloStyle = 5
 elseif ARGS[1] = 48:
 	CloQuality = 5
 	CloThinness = 4
@@ -259,6 +261,7 @@ elseif ARGS[1] = 49:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 50:
 	CloQuality = 6
 	CloThinness = 3
@@ -279,6 +282,7 @@ elseif ARGS[1] = 53:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 54:
 	CloQuality = 5
 	CloThinness = 4
@@ -355,7 +359,7 @@ elseif ARGS[1] = 67:
 	CloThinness = 3
 	CloTopCut = 2
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 68:
 	CloQuality = 5
 	CloThinness = 4
@@ -366,12 +370,13 @@ elseif ARGS[1] = 69:
 	CloThinness = 4
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 70:
 	CloQuality = 6
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 71:
 	CloQuality = 5
 	CloThinness = 4
@@ -387,7 +392,7 @@ elseif ARGS[1] = 73:
 	CloThinness = 3
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 74:
 	CloQuality = 5
 	CloThinness = 3
@@ -410,6 +415,7 @@ elseif ARGS[1] = 77:
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 78:
 	CloQuality = 5
 	CloThinness = 3
@@ -420,6 +426,7 @@ elseif ARGS[1] = 79:
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 80:
 	CloQuality = 6
 	CloThinness = 3
@@ -550,7 +557,7 @@ elseif ARGS[1] = 103:
 	CloThinness = 4
 	CloTopCut = 2
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 104:
 	CloQuality = 5
 	CloThinness = 4
@@ -571,7 +578,7 @@ elseif ARGS[1] = 107:
 	CloThinness = 4
 	CloTopCut = 4
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 108:
 	CloQuality = 6
 	CloThinness = 4
@@ -619,6 +626,7 @@ elseif ARGS[1] = 115:
 	CloThinness = 4
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 116:
 	CloQuality = 5
 	CloThinness = 4
@@ -636,7 +644,7 @@ elseif ARGS[1] = 118:
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 119:
 	CloQuality = 5
 	CloThinness = 5
@@ -714,18 +722,19 @@ elseif ARGS[1] = 132:
 	CloThinness = 4
 	CloTopCut = 4
 	CloSkirtShortness = 4
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 133:
 	CloQuality = 6
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 4
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 134:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 3
+	CloStyle = 4
 elseif ARGS[1] = 135:
 	CloQuality = 6
 	CloThinness = 4
@@ -771,6 +780,7 @@ elseif ARGS[1] = 142:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 143:
 	CloQuality = 6
 	CloThinness = 4
@@ -792,13 +802,13 @@ elseif ARGS[1] = 146:
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 147:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 148:
 	CloQuality = 5
 	CloThinness = 3
@@ -1037,6 +1047,7 @@ elseif ARGS[1] = 193:
 	CloThinness = 4
 	CloTopCut = 2
 	CloSkirtShortness = 3
+	CloStyle = 4
 elseif ARGS[1] = 194:
 	CloQuality = 5
 	CloThinness = 3
@@ -1091,6 +1102,7 @@ elseif ARGS[1] = 203:
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 204:
 	CloQuality = 6
 	CloThinness = 3
@@ -1149,7 +1161,7 @@ elseif ARGS[1] = 214:
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 3
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 215:
 	CloQuality = 6
 	CloThinness = 2
@@ -1303,7 +1315,6 @@ elseif ARGS[1] = 243:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloBra = 1
 	CloPantsShortness = 1
 	CloBimbo = 1
 elseif ARGS[1] = 244:
@@ -1414,7 +1425,7 @@ elseif ARGS[1] = 264:
 	CloThinness = 4
 	CloTopCut = 3
 	CloPantsShortness = 1
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 265:
 	CloQuality = 5
 	CloThinness = 4
@@ -1574,6 +1585,7 @@ elseif ARGS[1] = 294:
 	CloThinness = 4
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 295:
 	CloQuality = 6
 	CloThinness = 3
@@ -1731,6 +1743,7 @@ elseif ARGS[1] = 323:
 	CloTopCut = 3
 	CloPantsShortness = 1
 	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 324:
 	CloQuality = 5
 	CloThinness = 4
@@ -2009,6 +2022,7 @@ elseif ARGS[1] = 376:
 	CloThinness = 3
 	CloTopCut = 2
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 377:
 	CloQuality = 6
 	CloThinness = 3
@@ -2045,7 +2059,7 @@ elseif ARGS[1] = 383:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 384:
 	CloQuality = 6
 	CloThinness = 4
@@ -2174,6 +2188,7 @@ elseif ARGS[1] = 408:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 3
+	CloStyle = 4
 elseif ARGS[1] = 409:
 	CloQuality = 6
 	CloThinness = 4
@@ -2185,7 +2200,6 @@ elseif ARGS[1] = 410:
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 5
-	CloBimbo = 1
 	CloStyle = 4
 elseif ARGS[1] = 411:
 	CloQuality = 6

locations/anushapt.qsrc

@@ -797,6 +797,7 @@ if $ARGS[0] = 'chat':
 					cla
 					*nl
 					npc_rel['A144'] -= 3
+					gs 'arousal', 'end'
 					'You pull away before things go too far and catch your breath. You see her slightly confused look and you feel a bit bad about it. "Sorry, I got carried away. Can we just go back to talking?" She frowns a little. "Yeah whatever." You know you annoyed her a little and you don''t blame her, you did just tease her more or less.'
 					act 'Talk about something else': gt 'anushapt', 'chat'
 				end

locations/brother_voyeur.qsrc

@@ -1487,7 +1487,7 @@ if $ARGS[0] = 'brother_shower_bj':
 		gs 'arousal', 'bj', rand(1,5)
 		brotherbjfinish = rand(1,2)
 		if brotherbjfinish = 1:
-			gs 'cum_call', 'mouth', $boy
+			gs 'cum_call', 'mouth', 'A34', 1
 			brotherbjcomment = rand(1,2)
 			gs 'stat'
 
@@ -1497,7 +1497,7 @@ if $ARGS[0] = 'brother_shower_bj':
 			'	"Hey <<$pcs_nickname>>," he says through grunts. "I''m gonna cum soon. Can I cum on your face?"'
 			act'Ignore him and keep sucking':
 				cla
-				gs 'cum_call', 'mouth', $boy
+				gs 'cum_call', 'mouth', 'A34', 1
 				gs 'arousal', 'end'
 				gs 'stat'
 				*nl
@@ -1606,8 +1606,11 @@ end
 
 
 if $ARGS[0] = 'shower_swallow':
-	brotherbjcomment = rand(1,2)
 	cla & *clr
+	brotherbjcomment = rand(1,2)
+	gs 'boystat','A34'
+	gs 'cum_call', 'mouth', 'A34', 1
+	gs 'stat'
 	'<center><video src="images/shared/home/bathroom/showerbj.mp4"></center>'
 	if broshowerfuck = daystart:
 		'	Sinking to your knees, you barely put the tip of Kolka''s cock in before he explodes between your lips. Cum fills your mouth and you contemplate what to do with it.'
@@ -1782,10 +1785,11 @@ if $ARGS[0] = 'shower_swallow':
 end
 
 if $ARGS[0] = 'shower_facial':
+	cla & *clr
 	brotherbjcomment = rand(1,2)
-	gs 'cum_call', 'face', $boy
+	gs 'boystat','A34'
+	gs 'cum_call', 'face', 'A34', 1
 	gs 'stat'
-	cla & *clr
 	'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facial1.jpg"></center>'
 	if broshowerfuck = daystart:
 		'	You kneel down in front of Kolka, jerking his cock off. He starts to cum and as the first spurt hits you, you squeeze your eyes shut, continuing to jerk your brother until your face is thoroughly coated and feel no more droplets.'
@@ -2106,6 +2110,8 @@ if $ARGS[0] = 'brother_shower_fuck_first2':
 					'	<i>Well,</i> you think to yourself, <i>It''s a good thing I''m on birth control.</i>'
 				elseif mesec > 0:
 					'	<i>Well,</i> you think to yourself, <i>I don''t think I can get pregnant when I''m on my period... right...?</i>'
+				elseif knowpreg = 1:
+					'	<i>Well,</i> you think to yourself, <i>I''m already pregnant.</i>'
 				else
 					'	<i>Shit...</i> You close your eyes, sighing as you feel another glob of Kolka''s cum drip from your pussy. <i>I fucked up...</i>'
 				end
@@ -2155,6 +2161,7 @@ end
 
 if $ARGS[0] = 'brother_fuck_cum':
 	cla & *clr
+	gs 'boystat','A34'
 	'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
 	if brotherfuck ! 1:brothercumchoice = rand(1,4)
 	if brotherfuck = 1:brothercumchoice = 1
@@ -2226,7 +2233,7 @@ if $ARGS[0] = 'brother_fuck_cum':
 				gs 'cum_call', 'stomach', 'A34', 1
 				'<center><video src="images/shared/home/bathroom/showercum.mp4"></center>'
 				'	"No! Not inside me!" you cry out. You push him off you and turn around. Grabbing his cock, you jerk him vigorously until he groans, spraying hot cum that spatters all over your stomach.'
-				if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and succubusflag = 0:'	Feeling his spunk on your stomach, you suddenly grow annoyed and wonder why you even finished him off. "What the fuck Kolka?! Are you <i>trying</i> to get me pregnant?"'
+				if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and succubusflag = 0 and knowpreg = 0 and thinkpreg = 0:'	Feeling his spunk on your stomach, you suddenly grow annoyed and wonder why you even finished him off. "What the fuck Kolka?! Are you <i>trying</i> to get me pregnant?"'
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
 		end
@@ -2237,7 +2244,7 @@ if $ARGS[0] = 'brother_fuck_cum':
 			gs 'stat'
 			'<center><video src="images/shared/home/bathroom/showercum.mp4"></center>'
 			'	"Not today Kolka." You push your brother off of you and turn around. Grabbing his cock, you jerk him vigorously until he groans, spraying hot cum that spatters all over your stomach.'
-			if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and knowpreg = 0 and thinkpreg = 0:'	"Sorry little brother." You smile apologetically. "I''m not on birth control and I can''t afford to get knocked up. Especially not by my one of my siblings."'
+			if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and succubusflag = 0 and knowpreg = 0 and thinkpreg = 0:'	"Sorry little brother." You smile apologetically. "I''m not on birth control and I can''t afford to get knocked up. Especially not by my one of my siblings."'
 			act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 		end
 
@@ -2383,8 +2390,6 @@ if $ARGS[0] = 'brother_fuck_cum':
 				end
 			end
 		end
-
-
 	elseif brothercumchoice = 4:
 		'	"<<$pcs_nickname>>-! I''m almost there! Can I cum in your mouth?"'
 		brotherbjcomment = 3

locations/cardgame_durak.qsrc

@@ -32,7 +32,7 @@ if $ARGS[0] = 'start':
 		$cgd_clothes['A9'] = ' shirt, jeans, socks, briefs'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/durak.jpg"></center>'
 		'"Cards? We can deal you in, but only if you want to play strip poker", Vitek grins. "The loser does whatever the winner wants them to do. Because you''re a girl, you''ll get one extra piece of clothing to start with. Sound fair?"'
-		'Your game statistics: You''ve won <<card_game_durak_win>> times, lost <<card_game_durak_loss>> times, managed a draw <<card_game_durak_draw>> times, and have taken off <<card_game_durak_nude>> articles of clothing.'
+		'Your game statistics: You''ve won <<card_game_durak_win>> times, lost <<card_game_durak_loss>> times, managed a draw <<card_game_durak_draw>> times, and ended up naked <<card_game_durak_nude>> times.'
 		act 'Play': gt 'cardgame_durak', 'card_game_durak_play'
 	else
 		'<<iif(RAND(0,1) = 0,''Dan'',''Vitek'')>> sighs: "I''m tired of playing cards. Let''s just watch some TV or something, or have some more beers."'

locations/castSpell.qsrc

@@ -1,5 +1,5 @@
 # castSpell
-! Used to cast a spell.  Use as a function.  Returns 1 OR 0 for Success or Failure.
+! Used to cast a spell.
 !
 ! ARGS[0] is the spell being cast
 !	Valid Spells are listed below
@@ -9,20 +9,11 @@
 !	Example:
 !		gs 'castSpell', 'teleport', 'CentralPark'
 
-!teleport
-spellMana['teleport'] = 1000
-spellTime['teleport'] = 20
-spellWill['teleport'] = 20
-spellDiff['teleport'] = 20
-!glamour
-spellMana['glamour'] = 500
-spellTime['glamour'] = 1
-spellWill['glamour'] = 15
-spellDiff['glamour'] = 30
+gs 'spellList'
 
 spellSuccess = 0
 
-$SpellName = $ARGS[0]
+$SpellID = $ARGS[0]
 $SpellArgs = ""
 i=1
 :ArgLoop
@@ -33,38 +24,38 @@ if i < arrsize('$ARGS'):
 end
 killvar 'i'
 
-if spellKnown[$SpellName] = 1:
+if spellKnown[$SpellID] = 1:
 	!Make a Skill Check to see if the Spell succeeds
-	spellRoll = pcs_splcstng - spellDiff[$SpellName] - (pcs_horny/5) + rand(1,100)
+	spellRoll = pcs_splcstng - spellDiff[$SpellID] - (pcs_horny/5) + rand(1,100)
 	if spellRoll > 50:
 		!Critical Success
 		spellSuccess = 2
-		splcstng_exp += rand(1,spellDiff[$SpellName]) + rand(0,5)
+		splcstng_exp += rand(1,spellDiff[$SpellID]) + rand(0,5)
 	elseif spellRoll > 10:
 		!Success
 		spellSuccess = 1
-		splcstng_exp += rand(1,spellDiff[$SpellName])
+		splcstng_exp += rand(1,spellDiff[$SpellID])
 	elseif spellRoll > -20:
 		!Failure
 		spellSuccess = 0
-		splcstng_exp += rand(1,spellDiff[$SpellName]) / 2
-	else:
+		splcstng_exp += rand(1,spellDiff[$SpellID]) / 2
+	else
 		!Critical Failure
 		spellSuccess = -1
-		splcstng_exp += rand(1,spellDiff[$SpellName]) / 2
+		splcstng_exp += rand(1,spellDiff[$SpellID]) / 2
 	end
 	killvar 'spellRoll'
 
 	!Incur the costs of casting the spell
 	if spellSuccess = 2:
-		manaCost = spellMana[$SpellName] / 2
+		manaCost = spellMana[$SpellID] / 2
 	elseif spellSuccess = -1:
-		manaCost = spellMana[$SpellName] * 2
-	else:
-		manaCost = spellMana[$SpellName]
+		manaCost = spellMana[$SpellID] * 2
+	else
+		manaCost = spellMana[$SpellID]
 	end
 	pcs_manna -= manaCost
-	!pcs_willpwr -= spellWill[$SpellName]
+	!pcs_willpwr -= spellWill[$SpellID]
 	arouseVal = manaCost / 50
 	gs 'arousal', 'voyeur', arouseVal
 	minut -= arouseVal
@@ -73,15 +64,15 @@ if spellKnown[$SpellName] = 1:
 
 end
 
-minut += spellTime[$SpellName]
+minut += spellTime[$SpellID]
 
 gs 'stat'
 
-$SpellExec = "gs 'spell_<<$SpellName>>', '<<spellSuccess>>'<<$SpellArgs>>"
+$SpellExec = "gs 'spell', '<<$SpellID>>', '<<spellSuccess>>'<<$SpellArgs>>"
 
 dynamic $SpellExec
 
-killvar '$SpellName'
+killvar '$SpellID'
 killvar '$SpellArgs'
 killvar '$SpellExec'
 

locations/cikl.qsrc

@@ -1147,7 +1147,6 @@ if day = 25:
 			'<b><font color="green">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
 			kabelday = 1
 			karta -= 300 * hcount_cable
-			'<b><font color="red">Your card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
 		elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
 			'<b><font color="green">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
 			kabelday = 1
@@ -1350,8 +1349,11 @@ if storyline = 1:
         end
 	end
 	!!Brother''s dick growth as he gets older
-	kolka_dick_month = daystart/30
-	if kolka_dick_month > daystart/30 and npc_dick['A34'] < 26: npc_dick['A34'] += 1
+	
+	if kolka_dick_day + 30 < daystart and npc_dick['A34'] < 26: 
+		kolka_dick_day = daystart
+		npc_dick['A34'] += 1
+	end
 	if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
 		$npc_thdick['A34'] = 'well proportioned'
 	elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:

locations/dimaRevenge.qsrc

@@ -1114,30 +1114,30 @@ if dimaRevChoice = 5:
 						And if he isn''t. Fuck him. That is one kid who deserves to be picked on.'
 						act 'leave school': gt 'gschool_grounds', 'main'
 						!!normal end of school
-						act 'No more':
+					end
+				end
+				act 'No more':
+					*clr & cla
+					grupvalue[4] += 10
+					'<center><img src="images/characters/pavlovsk/school/boy/dimka/revenge/chokegirl.jpg"></center>'
+					'You''ve been picked on for the last time. You put your hands on her throat and continue choking her. She tries to pry your finger off, but you are running on hysterical strength now. As she passes out, the principal grabs you and throw you off her.
+					She calls for a nurse then drags you to her office.'
+					act 'In trouble':
+						*clr & cla
+						demerit += 40
+						'<center><img src="images/characters/pavlovsk/school/head/50.jpg"></center>'
+						'Miss. Volkov looks at you. "I don''t know what''s on your mind miss <<$pcs_lastname>> but what have you done will have serious consequences...now go"'
+						!!sent to princeipal''s office and earn 20 demerits, afterwards it goes to this scene.
+						!!Office doesn''t exist yet according to gschool_grounds.
+						act 'Back to class':
 							*clr & cla
-							grupvalue[4] += 10
-							'<center><img src="images/characters/pavlovsk/school/boy/dimka/revenge/chokegirl.jpg"></center>'
-							'You''ve been picked on for the last time. You put your hands on her throat and continue choking her. She tries to pry your finger off, but you are running on hysterical strength now. As she passes out, the principal grabs you and throw you off her.
-							She calls for a nurse then drags you to her office.'
-							act 'In trouble':
-								*clr & cla
-								demerit += 40
-								'<center><img src="images/characters/pavlovsk/school/head/50.jpg"></center>'
-								'Miss. Volkov looks at you. "I don''t know what''s on your mind miss <<$pcs_lastname>> but what have you done will have serious consequences...now go"'
-								!!sent to princeipal''s office and earn 20 demerits, afterwards it goes to this scene.
-								!!Office doesn''t exist yet according to gschool_grounds.
-								act 'Back to class':
-									*clr & cla
-									dimaRevenge += 1
-									minut += 60 * 2
-									hour = 14
-									minut = 0
-									'You sit in class. You noticed a lot of the students talking about what happened in the hall. They fall silent when you look at them. Some of the students are afraid of you now. And you are fine with that, as long as they leave you alone.
-									And the ones who don''t better watch out, because you aren''t gonna let them pick on you anymore.'
-									act 'Continue': gt 'gschool_grounds', 'main'
-								end
-							end
+							dimaRevenge += 1
+							minut += 60 * 2
+							hour = 14
+							minut = 0
+							'You sit in class. You noticed a lot of the students talking about what happened in the hall. They fall silent when you look at them. Some of the students are afraid of you now. And you are fine with that, as long as they leave you alone.
+							And the ones who don''t better watch out, because you aren''t gonna let them pick on you anymore.'
+							act 'Continue': gt 'gschool_grounds', 'main'
 						end
 					end
 				end

locations/exhibitionistshop.qsrc

@@ -13,7 +13,7 @@ if $ARGS[0] = 'start':
 	gs 'stat'
 
 	gs 'themes', 'indoors'
-	'<center><b><font color="maroon">Exhibitionist Shop</font></b></center>'
+	'<center><b><font color="maroon">Expression of You</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/exhibitshop/shop.jpg"></center>'
 	'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'
 
@@ -22,19 +22,24 @@ if $ARGS[0] = 'start':
 		gt 'liames'
 	end
 
-	act 'View clothing':
-		minut += 5
-		gt 'exhibitionistshop', 'clo'
-	end
+	if hour >= 18:
+		*nl
+		'The shop is closing and you have to leave.'
+	else
+		act 'View clothing':
+			minut += 5
+			gt 'exhibitionistshop', 'clo'
+		end
 
-	act 'View panties':
-		minut += 5
-		gt 'exhibitionistshop', 'panties'
-	end
+		act 'View panties':
+			minut += 5
+			gt 'exhibitionistshop', 'panties'
+		end
 
-	act 'View bras':
-		minut += 5
-		gt 'exhibitionistshop', 'bras'
+		act 'View bras':
+			minut += 5
+			gt 'exhibitionistshop', 'bras'
+		end
 	end
 end
 

locations/experiment.qsrc

@@ -3,14 +3,14 @@
 $loc = 'experiment'
 $location_type = private
 $locM = 'experiment'
-$menu_loc = 'experiment'
-$menu_arg = 'private'
-menu_off = 0
 
 $doc1 = 'Doctor Sokolnikov'
 $doc2 = 'Doctor Ivanov'
 
 if $ARGS[0] = 'start':
+	$menu_loc = 'experiment'
+	$menu_arg = 'start'
+	menu_off = 0
 	$metka = 'start'
 	minut += 2
 	gs 'stat'
@@ -797,6 +797,9 @@ end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
 	minut += 1
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:start:treatmentStart:wakeup1'
+	menu_off = 0
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lights.jpg"></center>'
 	*nl
@@ -811,6 +814,9 @@ if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
 end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup2':
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:start:treatmentStart:wakeup2'
+	menu_off = 0
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
 	*nl
 	'...you are not just bound, but also completely naked!'
@@ -822,6 +828,7 @@ end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup3':
 	minut += 5
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
 	*nl
@@ -984,6 +991,9 @@ end
 
 if $ARGS[0] = 'testarea:treatment:bed':
 	minut += 5
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:bed'
+	menu_off = 0
 	gs 'stat'
 	'<center><h3>Experiment public room</h3></center>'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound2.jpg"></center>'
@@ -1018,6 +1028,7 @@ if $ARGS[0] = 'testarea:treatment:bed':
 end
 
 if $ARGS[0] = 'testarea:treatment:bed:sleep':
+	menu_off = 1
 	if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
 	if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
 	*nl
@@ -1033,6 +1044,7 @@ if $ARGS[0] = 'testarea:treatment:bed:sleep':
 end
 
 if $ARGS[0] = 'testarea:treatment:bed:wait':
+	menu_off = 1
 	minut += rand (20, 60)
 	gs 'stat'
 
@@ -1240,6 +1252,7 @@ if $ARGS[0] = 'testarea:treatment:sex3':
 end
 
 if $ARGS[0] = 'testarea:treatment:deflower':
+	menu_off = 1
 	if experi_stage = 0:
 		minut += 2
 		gs 'stat'
@@ -1421,6 +1434,9 @@ end
 
 if $ARGS[0] = 'testarea:treatment:room':
 	minut += 1
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room'
+	menu_off = 0
 	gs 'stat'
 	$metka = 'testarea:treatment:room'
 	'<center><h3>Experiment private room</h3></center>'
@@ -1430,7 +1446,7 @@ if $ARGS[0] = 'testarea:treatment:room':
 	'The bed has arm and leg cuffs. A hook is hanging from the ceiling. A large box in the far corner is locked by a code lock, you can only guess what''s inside.'
 	'What strikes fear in your heart is a first aid kit on one of the walls, what just might happen here is so terrible that a first aid kit would be needed...'
 	'The <a href="exec:gt ''experiment'', ''testarea:treatment:room:shower''">bathroom</a> has, in addition to regular equipment, also an enema kit.'
-	'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'
+	'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:minut += 10 & gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'
 
 	act 'Wait for some time':gt 'experiment', 'testarea:treatment:room:wait'
 	act 'Go to the bathroom':gt 'experiment', 'testarea:treatment:room:shower'
@@ -1457,10 +1473,11 @@ if $ARGS[0] = 'testarea:treatment:room':
 	if pcs_sleep < 50:
 		act 'Go to sleep':gt 'experiment', 'testarea:treatment:room:sleep'
 	end
-	act 'Go to social room':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go to social room':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:sleep':
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\sleep.jpg"></center>'
 	*nl
 	'You fall asleep on the bed, barely covered by the sheets...'
@@ -1481,6 +1498,9 @@ if $ARGS[0] = 'testarea:treatment:room:shower':
 	$locM = 'experiment'
 	$metkaM = 'testarea:treatment:room:shower'
 	$metka = 'testarea:treatment:room:shower'
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room:shower'
+	menu_off = 0
 	'<center><h3>Experiment private - bathroom</h3></center>'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomshower.jpg"></center>'
 	*nl
@@ -1529,7 +1549,9 @@ if $ARGS[0] = 'testarea:treatment:room:wait':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social':
-	minut += 10
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room:social'
+	menu_off = 0
 	$metka = 'testarea:treatment:room:social'
 
 	G1R = rand (0, 100)
@@ -1639,6 +1661,8 @@ if $ARGS[0] = 'testarea:treatment:room:social':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
+	menu_off = 1
+	gs 'stat'
 	'"White whore stop reading! Too much cum in balls I have, I need to empty them!" you hear a deep voice say.'
 	*nl
 	'One of the men approached you directly in the social room! You have no choice but to submit to him... like some kind of pet.'
@@ -1648,16 +1672,18 @@ if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
 	*nl
 	'A petite young girl, she must''ve just turned eighteen. She is obviously in a bad mood, keeping to herself.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G1:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
+	menu_off = 1
 	$subloc = 'testarea:treatment:room:social:girls:G1:talk:question'
 	minut += 3
 	gs 'stat'
@@ -1669,10 +1695,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
 	act 'Why did you join this experiment?':G1Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G1Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G1Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
@@ -1696,16 +1723,18 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
 	*nl
 	'A thin but lively girl. She is observing everyone else in the room, probably looking for a distraction from the usual boredom.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G2:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	$subloc = 'testarea:treatment:room:social:girls:G2:talk:question'
@@ -1717,10 +1746,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
 	act 'Why did you join this experiment?':G2Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G2Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G2Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
@@ -1744,14 +1774,17 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3':
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
 	*nl
 	'A mature but fairly attractive woman in her late thirties. She is minding her own, reading a book.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G3:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	$subloc = 'testarea:treatment:room:social:girls:G3:talk:question'
@@ -1763,10 +1796,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
 	act 'Why did you join this experiment?':G3Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G3Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G3Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
@@ -1790,6 +1824,8 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event':
+	menu_off = 1
+	gs 'stat'
 	actionType = rand (1, 12)
 
 	! SEX
@@ -1849,6 +1885,7 @@ if $ARGS[0] = 'testarea:treatment:room:event':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1862,6 +1899,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1874,6 +1912,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1888,6 +1927,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:seduce':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1911,6 +1951,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:seduce':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:beg':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\beg.jpg"></center>'
@@ -1923,6 +1964,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:beg':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:resist':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\resist.jpg"></center>'
@@ -1933,6 +1975,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:resist':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:sex':
+	menu_off = 1
 	gs 'stat'
 
 	! COITUS: vaginal doggy, 1v1
@@ -2106,6 +2149,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:african:talk':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
@@ -2270,6 +2314,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q8':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
+	menu_off = 1
 	minut += 5
 	! STATUS CHECK: nurse
 	gs 'experiment', 'std_block'
@@ -2305,6 +2350,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
@@ -2313,6 +2359,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk':
+	menu_off = 1
 	nurseRel += 1
 	minut += 2
 	gs 'stat'
@@ -2445,6 +2492,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q7':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positiondoggy2.jpg"></center>'
@@ -2459,6 +2507,7 @@ if $ARGS[0] = 'testarea:treatment:impreg':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
+	menu_off = 1
 	minut += 3
 	thinpreg = 1
 	knowpreg = 1
@@ -2482,6 +2531,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:doctor':
+	menu_off = 1
 	minut += 3
 	thinpreg = 1
 	knowpreg = 1
@@ -2506,6 +2556,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:doctor':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:cry':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\cry.jpg"></center>'
@@ -2517,7 +2568,9 @@ if $ARGS[0] = 'testarea:treatment:impreg:cry':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:dressup':
+	menu_off = 1
 	minut += 8
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
 	'The nurse enters the room, "So miss <<$pcs_lastname>>, here are your things from the locker, please dress up."'
 	'You eagerly put on the clothing that you left in the locker before getting locked up for days, maybe weeks, but definitely dozens of ejaculations ago.'
@@ -2528,6 +2581,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:dressup':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:leave':
+	menu_off = 1
 	minut += 5
 	money += 50000
 	experimentAbsolved += 1
@@ -2566,9 +2620,10 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:volunteer2':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
-	'<center><img <<$set_imgh>> src="images\shout\pc.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images\pc\shout.jpg"></center>'
 	'"My life is ruined! You have forced upon this me! I was raped at least million times!" you angrily yell out.'
 	'<<$doc1>>: "Calm down miss <<$pcs_lastname>>. You should be proud of yourself, you helped the medical field progress.'
 	'"Go to hell! You and your medicine!" you keep on yelling.'
@@ -2584,6 +2639,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
+	menu_off = 1
 	'<center><video autoplay loop src="images\shared\sex\group\africangroup1.mp4"></video></center>'
 	'Several black men, most of them you have ''met'' before, start entering the room.'
 	'The one called Abdul is holding you while the other men grab your legs, making their way to your battered groin.'
@@ -2616,6 +2672,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:kickout':
+	menu_off = 1
 	minut += 5
 	'When they are finally done with you, one by one they leave the room and you crumble to the ground, filled with and covered by thick layers of jizz.'
 	'Far too exhausted, you can barely move, much less say anything. The only thing heard in the room for a moment is your hard, shaky breathing.'

locations/foto.qsrc

@@ -2151,7 +2151,7 @@ if $ARGS[0] = 'nude_shoot':
 				gs 'fame', 'pav', 'mdlng', rand(1,city_modelling)/10
 				inhib_exp += 1
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/ero<<rand(1,3)>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/ero<<rand(2,4)>>.jpg"></center>'
 				'	You dress up in sexy clothes and spend the next two hours posing for the photographer.'
 				*nl
 				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'

locations/gLakeNude.qsrc

@@ -6,6 +6,7 @@ $loc = 'gLakeNude'
 $metka = ''
 $menu_loc = 'gLakeNude'
 $menu_arg = ''
+$locclass = 'beach'
 menu_off = 0
 *clr & cla
 gs'stat'
@@ -59,8 +60,7 @@ end
 
 if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 	act'Get dressed':
-		cla
-		*clr
+		*clr & cla
 		menu_off = 1
 		minut+=5
 		gs 'clothing', 'wear_last_worn'
@@ -74,8 +74,7 @@ end
 if temper >= 15 and month >= 5 and month <= 9:
 	if ARRSIZE('swimwear') > 0 and $clothingworntype ! 'swimwear':
 		act'Change into your swimwear':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut+=5
 			if pcs_horny >= 90:
@@ -99,8 +98,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Take off your clothes':
 			menu_off = 1
 			if pcs_inhib > 30:
-				cla
-				*clr
+				*clr & cla
 				minut+=5
 				gs 'clothing', 'strip'
 				gs 'underwear', 'remove'
@@ -127,8 +125,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Go swimming (1:00)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-				cla
-				*clr
+				*clr & cla
 				cumspclnt = 4
 				gs 'cum_cleanup'
 				minut = minut + 60
@@ -161,8 +158,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Go sunbathing (1:00)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-				cla
-				*clr
+				*clr & cla
 				minut = minut + 60
 				if pcs_sweat < 35 : pcs_sweat += 5
 				pcs_mood += 5
@@ -175,12 +171,10 @@ if temper >= 15 and month >= 5 and month <= 9:
 				end
 				if krem = 0:
 					pcs_tan = pcs_tan + 1
-
 					'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
-				elseif krem > 0:
+				else:
 					krem = krem - 1
 					pcs_tan = pcs_tan + 3
-
 					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
 				end
 				act 'Continue':gt'gLakeNude'
@@ -201,8 +195,7 @@ end
 if temper >= 15 and month >= 5 and month <= 9:
 	if voyeurism_start = 0:
 		act'Look around the beach':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut += 5
 			voyeurism_start_view = RAND(1,3)
@@ -219,8 +212,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		end
 	elseif voyeurism_start = 1:
 		act'Watch couple on the beach':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			if voyeurism = 0:
 				minut += 5
@@ -248,8 +240,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 				gs'gLakeNudeEvent','gLakeNude_nudist'
 				act'Continue': gt 'gLakeNude'
 			else
-				cla
-				*clr
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
 				'You want to watch for nudists, but suddenly notice that you start to feel weird.<br><dh>"Probably spying too much."</dh> you think and look straight ahead.'
 				act'Continue': gt'gLakeNude'

locations/gdksport.qsrc

@@ -1113,8 +1113,8 @@ if $ARGS[0] = 'Ivan_bored':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/school/bbivanbj.jpg"></center>'
 		'Once inside Ivan starts to kiss you passionately while pulling your clothes off and tossing them all over, you return his kiss and help remove your clothes. He backs up pulling you along into one of the stalls with him. Once your clothes are removed he starts removing his own clothes, which you are only to happy to help with. Once you''re both fully naked, he sits down on the toilet and gently pushes you down to your knees.'
-		'He guides your head to his <<dick>>cm <<$dick_girth>> cock, using one your hands you grab his dick and start to stroke the shaft while you open your mouth and take his dick into your mouth. You wrap your lips tightly around his shaft and start sucking him, while using your tongue to tease the head. You alternate your hand from stroking him and fondling his balls.'
-		'He moans and grabs your hair, you can feel he is restraining himself from forcing your head down and jamming his dick down your throat. After a couple of minutes, he growls a bit and stands up, pulling you up as well. With out explaining he turns you around so quickly you almost stumble, only his strong hands on you keep you from falling into the stall wall. He roughly bends you over, using one hand to guide his cock the other grabs your butt cheek to spread it open.'
+		'He guides your head to his <<dick>>cm <<$dick_girth>> cock, using one of your hands you grab his dick and start to stroke the shaft while you open your mouth and take his dick into your mouth. You wrap your lips tightly around his shaft and start sucking him, while using your tongue to tease the head. You alternate your hand from stroking him and fondling his balls.'
+		'He moans and grabs your hair, you can feel he is restraining himself from forcing your head down and jamming his dick down your throat. After a couple of minutes, he growls a bit and stands up, pulling you up as well. Without explaining he turns you around so quickly you almost stumble, only his strong hands on you keep you from falling into the stall wall. He roughly bends you over, using one hand to guide his cock the other grabs your butt cheek to spread it open.'
 		gs 'arousal', 'kiss', 5, 'sub'
 		gs 'arousal', 'hj', 5, 'dom'
 		gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
@@ -1142,7 +1142,7 @@ if $ARGS[0] = 'Ivan_bored':
 			'He rubs the tip of his dick against your asshole for a couple of moments and then you feel a sharp pain as he pushes it in. With only your saliva as lubrication, it doesn''t slide in as easily. You bite your lip and cry out a little in pain. He relaxes a little and rubs your back as he takes it slow, giving you time to stretch and adjust to his cock invading your ass.'
 			'He slowly strokes his <<dick>>cm <<$dick_girth>> cock in your ass, with each stroke pushing it just a little deeper in your ass. Once he is about half way in your moans turn from pain to pleasure, while one of your hands starts rubbing your clit. You start moaning louder and panting, your pussy is now soaking wet. After a couple of minutes the pleasure is building up inside of your body so much you no longer even need to stimulate your clitorous any longer. "Fuck <<$pcs_nickname>>, you not only have the hottest ass of any girls in school, but the tightest one I have ever fucked." Ivan says as he can tell your getting into it, grabbing your hips with both hands. He drives himself balls deep into your ass, eliciting a squeak of pain from you, but sensation of pain is quickly overwhelmed by pleasure.'
 			'Holding onto your hips with both hands, he holds you steady and keeps you from pulling away, as he jack hammers his <<dick>>cm <<$dick_girth>> cock balls deep in your ass. You moan in pain and pleasure, mostly pleasure, the sounds of your moans, almost drowned out the sounds of his skin slapping against yours, his balls slapping against your wet pussy. You place your hands against the stall wall to keep him from driving your head into it, from his powerful and violent thrusts. As he abuses your poor little asshole, you find yourself loving every second of it.'
-			'You have an intense orgasm that leaves your legs shaking and barely able to keep standing. You are almost to the point where you are unable to take it anymore, either from the intense pleasure or the growing burning sensation in your ass. Either way the matter is moot, as Ivan drives himself once more balls deep into your ass, but this time holds himself there. You feel his cock twitching as he shoots hot sperm deep in your ass, spurt after spurt filling you up with his seamen in what seems an almost unending stream. Finally he takes a shuddering breath and pulls out of you, leaving you to almost collapse with out his support.'
+			'You have an intense orgasm that leaves your legs shaking and barely able to keep standing. You are almost to the point where you are unable to take it anymore, either from the intense pleasure or the growing burning sensation in your ass. Either way the matter is moot, as Ivan drives himself once more balls deep into your ass, but this time holds himself there. You feel his cock twitching as he shoots hot sperm deep in your ass, spurt after spurt filling you up with his semen in what seems an almost unending stream. Finally he takes a shuddering breath and pulls out of you, leaving you to almost collapse with out his support.'
 			'You both start to get dressed, him faster than you, as your still unsteady on your feet, from your shaky legs. Once he is done getting dressed he helps you gather the rest of your clothes from where he tossed them aside. As you are seeing to the final adjustments of your clothes he goes to the bathroom door and looks out both ways down the hall, motioning you over just as the class bell rings. Oh well, at least you have a good excuse to be a little late, you think to yourself with a smile.'
 			'As you start to go out the door, he stops you and squeezes your ass with his strong hand and says. "That was great <<$pcs_nickname>>, you are coolest chick in school, not to mention the hottest. Maybe we can do this again sometime soon, or maybe I will come see you in the shower at the community center some night, maybe even tonight." He grins and winks at you, giving your ass a hard slap, as he rushes off to class. You only have time to nod in agreement to his idea of doing this again, you bite your lip as you watch him go. You have mixed feelings about this, Ivan is a great guy and a lot of fun, but you know he doesn''t want a girlfriend. He just wants to be friends with benefits, but is that enough for you? You don''t have time to think on it more as you hurry to class.'
 

locations/glake.qsrc

@@ -5,6 +5,7 @@ $loc = 'gLake'
 $metka = ''
 $menu_loc = 'glake'
 $menu_arg = ''
+$locclass = 'beach'
 menu_off = 0
 $location_type = 'public_outdoors'
 gs'stat'
@@ -211,8 +212,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 
 	if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 		act 'Go swim in the lake (1:00)':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			pcs_makeup = 1
 			cumspclnt = 4
@@ -240,8 +240,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 
 				menu_off = 1
 				if $clothingworntype = 'nude' and zoo > 0 and rand(1,10) = 5:
-					cla
-					*clr
+					*clr & cla
 					pcs_willpwr -= 5
 					pcs_mood -= 5
 					inhib_exp += rand(1,3)
@@ -249,8 +248,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 					'As you lie down on your towel to catch some rays of sun and hopefully work on your tan a little, a stray dog appears out of nowhere. It keeps sniffing between your legs, which makes you feel very uncomfortable since you''re not wearing anything. You spend most of the hour trying to chase the dog away, but it comes back every time you think you got rid of it. You don''t get much sunbathing done as a result.'
 					act 'Give up on sunbathing':gt'glake'
 				else
-					cla
-					*clr
+					*clr & cla
 					minut += 60
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 					if pcs_sweat < 35 : pcs_sweat += 5
@@ -265,7 +263,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 					if krem = 0:
 						'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
 						pcs_tan = pcs_tan + 1
-					elseif krem > 0:
+					else
 						krem = krem - 1
 						'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
 						pcs_tan = pcs_tan + 3
@@ -395,8 +393,7 @@ act'Go to the secluded beach':minut += 10 & gt'gLakeNude'
 if month = 12 or month = 1 or month = 2:
 	if konki_cloth = 1:
 		act'Take off your skates':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut+=10
 			konki_cloth=0

locations/gopsex.qsrc

@@ -1566,7 +1566,7 @@ if $ARGS[0] = 'hide':
 				$dummytxt = 'He hikes up your skirt'
 			elseif CloPantsShortness > 2: 
 				$dummytxt = 'He pulls your shorts down to your knees'
-			else:
+			else
 				$dummytxt = 'He pulls your pants down to your knees'
 			end
 			$txt_sex_doggy = 'You delight <<$boydesc>>. He jumps, and prompts you to bend forward. <<$dummytxt>> revealing your cute tushy, and shoves his dick into your pussy from behind. You don''t expect such abrupt action, but he is fucking you for ten minutes, almost without slowing the pace, only occasionally stopping to take a breath. You think he would be tired soon, but it turns out that he is more tenacious than one might assume. The last five minutes you forget where you are, and screaming your head off. <<$boydesc>> is growling spanking your butt with one hand and pulling your <<$pcs_haircol>> <<$curly>> hair with the other.'

locations/gschool_lessons.qsrc

@@ -1612,7 +1612,7 @@ if $ARGS[0] = 'biology':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/classbiology.jpg"></center>'
-	'You go to your biology class and find a seat at your lab station. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Miss Orlov takes roll call, you say here when your name is called. With that done, she gets up and starts walking around the room explaining todays lessons. Occasionally stopping at each lab station to make sure the students are doing the work correctly, she often gives words of encouragement if things are going well or stops and helps the student understand what they are doing wrong.'
+	'You go to your biology class and find a seat at your lab station. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Miss Orlov takes roll call, you say here when your name is called. With that done, she gets up and starts walking around the room explaining today''s lessons. Occasionally stopping at each lab station to make sure the students are doing the work correctly, she often gives words of encouragement if things are going well or stops and helps the student understand what they are doing wrong.'
 	*nl
 	'She occasionally asks questions and those that get them right, she heaps praise upon them. Those that get them wrong, she takes the time to explain why they was wrong and what the correct answer is. Then making sure the student understands, once she is sure the student understands their mistake she moves on with her lesson. She is always quick to help anyone with a problem or answer questions about class, always with that shy smile of hers.'
 	act 'Listen attentively to Miss Orlov':
@@ -1766,7 +1766,7 @@ if $ARGS[0] = 'computer':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/classcomputer.jpg"></center>'
-	'You go to your computer class and find a seat at one of the computer stations. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Mr. Ivanov takes roll call, you say here when your name is called. With that done, he gets up and starts walking around the room explaining todays lessons. Occasionally stopping to look at the screen of varies students to make sure they are doing it right.'
+	'You go to your computer class and find a seat at one of the computer stations. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Mr. Ivanov takes roll call, you say here when your name is called. With that done, he gets up and starts walking around the room explaining today''s lessons. Occasionally stopping to look at the screen of various students to make sure they are doing it right.'
 	*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 seem to approve of anyone but the nerds and harshly grades everyone else.'
 	act 'Listen attentively to Mr. Ivanov':
@@ -1784,7 +1784,7 @@ if $ARGS[0] = 'computer':
 				'Mr. Ivanov nods approvingly. He happily spends some extra time explaining the topic again to you, and answers any extra questions you might have. You feel like you learned a lot, thoroughly understanding today''s lessons now.'
 			else
 				!!If Sveta is anything else other than a nerd then get this text.
-				'Mr. Ivanov audibly sighs. "Why are you unable to grasp this. I know you are not the smartest student, but this is very simple. Even a small child should be able to grasp it." He goes on to explain the part you asked about again, but he does so in a completely belittling manner.'
+				'Mr. Ivanov audibly sighs. "Why are you unable to grasp this? I know you are not the smartest student, but this is very simple. Even a small child should be able to grasp it." He goes on to explain the part you asked about again, but he does so in a completely belittling manner.'
 			end
 			act 'Wait for the end of the lesson': gs 'gschool_lessonsev1', 'computer'
 		end

locations/gschool_socialchg1.qsrc

@@ -209,8 +209,8 @@ if $ARGS[0] = 'tChristina':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/18.jpg"></center>'
-	'"What are you two up to?" you ask Christina ignoring Lina as you walk up to them.'
-	'"I''m trying to get this lazy ass to perform better..." Christina sourly answers. "Thanks to her we lost the last relay race. And now I''ve got to whip her into shape before the next race."'
+	'"What are the two of you up to?" you ask Christina ignoring Lina as you walk up to them.'
+	'"I''m trying to get this lazy ass to perform better..." Christina sourly answers. "Thanks to her we lost the last relay race. And now I''ve got to whip her into shape before the next one."'
 	
 	act 'You''re right':
 		cla & *clr
@@ -221,9 +221,9 @@ if $ARGS[0] = 'tChristina':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/18.jpg"> <img <<$set_imgh>> src="images/characters/pavlovsk/school/head/19.jpg"></center>'
 		'"But... But..." Lina tries to explain but gets interrupted by you, "No Lina, Christina is right. If you messed it up then you need to train harder and perform better next time. There''s no slacking off."'
 		'"Of course I''m correct." Christina fills in, "I''m the most prominent athlete at the school and also the captain of the track and field team. My word is law."'
-		'Dejected, Lina stares at the ground and you can hear her quietly whimper as she thought that you would help her out.'
-		'"No time to rest, time for you to take another run around the lake. I''ll time you this time and if you fail, you''ll be in a world of hurt." Christina commands.'
-		'As Lina can''t find a way out she nods and gets ready. You hear Christina yell out "GO!" and watch Lina speed off...'
+		'Dejected, Lina stares at the ground and you can hear her quietly whimper since she thought that you would have helped her out.'
+		'"No time to rest, time for you to take another run around the lake. I''ll time you this time and if you fail, you''ll be in a world of troubles." Christina commands.'
+		'As Lina can''t find a way out she nods and gets ready. You hear Christina shout "GO!" and watch Lina speed off...'
 		
 		act 'Leave them alone': gt 'gLake'
 	
@@ -237,9 +237,9 @@ if $ARGS[0] = 'tChristina':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/18.jpg"></center>'
 		'"Give her a break, Christina. Everyone can have a bad race once in a while..." you begin defending Lina.'
-		'"What do you know, <<$pcs_nickname>>? Where you there?! You have no idea how humiliated I felt." Christina replies.'
+		'"What do you know, <<$pcs_nickname>>? Were you there?! You have no idea how humiliated I felt." Christina replies.'
 		'"Put your ego aside. Just look at Lina, she''s totally exhausted and needs a break. What will you do if she gets injured?" you continue on.'
-		'Christina is looking at you with despise in her eyes, "Like I care... Only because of this you''ll do double the sprints, Lina."'
+		'Christina glares at you menacingly, "Like I care... Because of this you''ll do double the sprints, Lina."'
 		'The only thing you can do is sigh and look apologetically to Lina while she nods understandingly.'
 		
 		act 'Leave them alone': gt 'gLake'

locations/hotel_resep.qsrc

@@ -15,6 +15,98 @@ if $ARGS[0] = '':
 	
 	act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
 
+	if GermanQW < 1:
+		act 'Ask about the maid job':
+			menu_off = 1
+			*clr & cla
+			if GermanQW = 0:GermanQW = 1
+			gs'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+			'You approach the reception desk, and ask the girl: "Excuse me... I hear you are often looking for maids? I would like to come work as a maid here."'
+			'She nods understandingly, and takes a quick look at your figure: "We do often need maids, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Herman Leonidovich, the hotel manager. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
+
+			act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+		end
+	end
+	
+	if hotelcollect > 0:
+		act 'Collect your money':
+			cla
+			hotelcollect = 0
+			money += maidtime * 250
+			'She quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
+			maidtime=0
+			
+			if maidHotelCount >= rand(8,10) and nichHotelReferral = 0:
+				'"You are doing a good job as our maid. Did you ever think about working as a maid full-time? I know of a person who''s living in the city and is looking for a live-in maid. The job also pays well."'
+				'She hesitates for a second.'
+				'"I could write you a referral. He wouldn''t invite you for a job interview without one. But the boss wouldn''t like me referring his maids to another employer. That''s why I require you to pay me 5.000 <b>₽</b> for my troubles. Just look at it as a small fee. Just tell me if you want the job and have the money."'
+				nichHotelReferral = 1
+				act 'Thank her for the offer and step away from the reception desk':gt'HotelHole','skip_resepevent'
+			else
+				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+			end
+		end
+	end
+
+	if proshotelopen = 1 and proshotelday ! daystart:
+		act'Ask for "The Peacock"':
+			*clr & cla
+			menu_off = 1
+			if pavhotprosQW = 6:
+				pavhotprosQW = 7
+				PavlinQW = 1
+			end
+			gs'stat'
+			
+			if pavlevent = 1:
+				'You are too scared of <<$npc_nickname[''A217'']>> at the moment to meet him in a private place.'
+				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+				exit
+			elseif pcs_makeup <= 1 or pcs_hairbsh < 1 or pcs_sweat > 26:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+				'"<<$npc_nickname[''A217'']>> expects you to be clean, made-up and with your hair looking nice. I can''t let you go up looking like this." She says.'
+				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+				exit
+			else
+				'You approach <<$receptionName>> and ask for ''The Peacock''.'
+				gt 'hotel_resep', 'pavgenpros'
+			end
+		end
+	end
+	
+	if nichHotelReferral = 1:
+		act 'Ask about the live-in maid job':
+			*clr & cla
+			menu_off = 1
+			gs'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+			'You approach the reception desk, and ask the girl: "About the job you told me about ... I''d like to get your referral."'
+			'"Great. Do you have my fee of 5.000 <b>₽</b> with you?"'
+			
+			act 'No':
+				cla & *nl
+				'"Actually I don''t."'
+				'"Too bad. I''m afraid I can''t help you unless you pay me. Just come back as soon as you have the money."'
+				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+			end
+			
+			if money >= 5000:
+				act 'Yes (give it to her)':
+					cla & *nl
+					money -= 5000
+					nichHotelReferral = 2
+					gs 'stat'
+					'You give her the money and she swiftly puts it into her purse. Then she hands you your referral. It says that you are a experienced, wellbehaved and diligent maid. It is written on the official paper of the hotel and even has the signature of the manager on it.'
+					'"Don''t worry, the signature is legit. The boss signs everything I hand him."'
+					'She also hands you a small card with an address on it.'
+					'"This is the address. You can get there easily from the city center of St. Petersburg. Just go there in the late afternoon and present your referral. You also have to wear a maid uniform. If you don''t own one you can buy one at the G&M-Store. And make sure you look presentable in every way. I heard this man is a perfectionist. Good luck!"'
+					act 'Thank her and step away':gt'HotelHole','skip_resepevent'
+				end
+			end
+		end
+	end
+	
 	act'Rent a room':
 		menu_off = 1
 		*clr & cla
@@ -25,18 +117,15 @@ if $ARGS[0] = '':
 		else
 			'<<$receptionName>> smiles at you and asks: "Hello <<$pcs_nickname>>! Would you like to rent a room?"'
 		end
-		if hotelroom>0:
-			*clr
-			cla
+		if hotelroom > 0:
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
 			'She looks in the computer: "I see you already have a room here. As it is already booked and paid for the only way to change it to a different room, would be to cancel your existing booking. To do so without notice would forfeit your payment, I would advise against this, but you may do so if you wish."'
 			act'Yes, cancel your booking':hotelroom=0 & gt'HotelHole'
 			act'No':gt'HotelHole'
-		end
-		if hotelroom = 0:
-			act'Yes':
-				*clr
-				cla
+		elseif hotelroom = 0:
+			act 'Yes':
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
 				'She smiles at you happily: "Excellent! We have the following rooms available right now:"'
 				'Standard room - 500 <b>₽</b> / night;'
@@ -108,109 +197,6 @@ if $ARGS[0] = '':
 	end
 end
 
-if hotelcollect > 0:
-	hotelcollect = 0
-	money+=maidtime*250
-	'She quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
-	maidtime=0
-	
-	if maidHotelCount >= rand (8,10) and nichHotelReferral = 0:
-		'"You are doing a good job as our maid. Did you ever think about working as a maid full-time? I know of a person who''s living in the city and is looking for a live-in maid. The job also pays well."'
-		'She hesitates for a second.'
-		'"I could write you a referral. He wouldn''t invite you for a job interview without one. But the boss wouldn''t like me referring his maids to another employer. That''s why I require you to pay me 5.000 <b>₽</b> for my troubles. Just look at it as a small fee. Just tell me if you want the job and have the money."'
-		nichHotelReferral = 1
-	end
-	
-end
-
-if nichHotelReferral = 1:
-	act 'Ask about the live-in maid job':
-		menu_off = 1
-		*clr & cla
-
-		gs'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-		'You approach the reception desk, and ask the girl: "About the job you told me about ... I''d like to get your referral."'
-		'"Great. Do you have my fee of 5.000 <b>₽</b> with you?"'
-		if money >= 5000:
-			act 'Yes (give it to her)':
-				cla
-				money -= 5000
-				nichHotelReferral = 2
-				'You give her the money and she swiftly puts it into her purse. Then she hands you your referral. It says that you are a experienced, wellbehaved and diligent maid. It is written on the official paper of the hotel and even has the signature of the manager on it.'
-				'"Don''t worry, the signature is legit. The boss signs everything I hand him."'
-				'She also hands you a small card with an address on it.'
-				'"This is the address. You can get there easily from the city center of St. Petersburg. Just go there in the late afternoon and present your referral. You also have to wear a maid uniform. If you don''t own one you can buy one at the G&M-Store. And make sure you look presentable in every way. I heard this man is a perfectionist. Good luck!"'
-				act 'Thank her and step away':gt'HotelHole','skip_resepevent'
-			end
-		end
-		
-		act 'No':
-			cla
-			'"Actually I don''t."'
-			'"Too bad. I''m afraid I can''t help you unless you pay me. Just come back as soon as you have the money."'
-			act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-		end
-		
-		
-	end
-end
-
-
-If GermanQW < 1:
-	act 'Ask about the maid job':
-		menu_off = 1
-		*clr & cla
-		if GermanQW = 0:GermanQW = 1
-		gs'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-		'You approach the reception desk, and ask the girl: "Excuse me... I hear you are often looking for maids? I would like to come work as a maid here."'
-		'She nods understandingly, and takes a quick look at your figure: "We do often need maids, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Herman Leonidovich, the hotel manager. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
-
-		act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-	end
-
-	If GermanQW < 1:
-		act 'Ask about the maid job':
-			menu_off = 1
-			*clr & cla
-			if GermanQW = 0:GermanQW = 1
-			gs'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-			'You approach the reception desk, and ask the girl: "Excuse me... I hear you are often looking for maids? I would like to come work as a maid here."'
-			'She nods understandingly, and takes a quick look at your figure: "We do often need maids, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Herman Leonidovich, the hotel manager. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
-
-			act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-		end
-	end
-
-	if proshotelopen = 1 and proshotelday ! daystart:
-		act'Ask for "The Peacock"':
-			menu_off = 1
-			if pavhotprosQW = 6:
-				pavhotprosQW = 7
-				PavlinQW = 1
-			end
-			*clr & cla
-			gs'stat'
-			
-			if pavlevent = 1:
-				'You are too scared of <<$npc_nickname[''A217'']>> at the moment to meet him in a private place.'
-				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-				exit
-			elseif pcs_makeup <= 1 or pcs_hairbsh < 1 or pcs_sweat > 26:
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-				'"<<$npc_nickname[''A217'']>> expects you to be clean, made-up and with your hair looking nice. I can''t let you go up looking like this." She says.'
-				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-				exit
-			else
-				'You approach <<$receptionName>> and ask for ''The Peacock''.'
-				gt 'hotel_resep', 'pavgenpros'
-			end
-		end
-	end
-end
-
 if $ARGS[0] = 'pavlbar':
 	menu_off = 1
 	*clr & cla

locations/hunter_interactions.qsrc

@@ -544,7 +544,7 @@ if $ARGS[0] = 'shooting_bet':
                 end
 
                 act 'Let him lead you to the trees': gt 'hunter_favors', 'yard_bondage', 'lost_bet'
-            else:
+            else
                 '"I want you to lose the clothes for today and tomorrow. Be more in touch with nature and all that. You can put em back on the day after of course"'
 
                 act 'Strip naked':

locations/hunters.qsrc

@@ -39,7 +39,7 @@ if $ARGS[0] = 'check_opinion':
 	if hunter_sexual_comfort > 50:
 		if $clothingworntype ! 'nude':
 			'Andrei then looks at you and says "What is it with all the clothing? Let it all air out!"'
-		else:
+		else
 			'"Damn, <<$pcs_nickname>>, you look really good without the clothes. The things I would want to do to you..." said a somewhat aroused Andrei.'	
 		end
 	elseif hunter_sexual_comfort > 25:

locations/kakuzu.qsrc

@@ -134,514 +134,23 @@ if $ARGS[0] = 'mansion1':
 		'Kakuzu tells you "You have almost no energy, you need to rest."'
 	elseif tobiQW = 3 and pcs_manna >= 1000:
 		if stihia = 1:
-			if pcs_magik >= 6 and spellfire1 = 0:
-				act 'Learn Flame (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-
-					spellfireL += rand(1, 10)
-
-					if spellfireL < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellfire1 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 7 and spellfire2 = 0:
-				act 'Study the release of fire (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellfire2L += rand(1, 10)
-
-					if spellfire2L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellfire2 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 8 and spellfire3 = 0:
-				act 'Study Barrier fire (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellfire3L += rand(1, 10)
-
-					if spellfire3L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellfire3 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 9 and spellfire4 = 0:
-				act 'Study Firestorm (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellfire4L += rand(1, 10)
-
-					if spellfire4L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellfire4 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 10 and spellfire5 = 0:
-				act 'Learn Flame Shield (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellfire5L += rand(1, 10)
-
-					if spellfire5L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellfire5 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
+			gs 'spellList', 'teacherActions', '$fireSpells', 'kakuzu', 'mansion1'
 		end
 
 		if stihia = 2:
-			if pcs_magik >= 6 and spellele1 = 0:
-				act 'Study Discharge (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spelleleL += rand(1, 10)
-
-					if spelleleL < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellele1 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 7 and spellele2 = 0:
-				act 'Learn Lightning (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellele1L += rand(1, 10)
-
-					if spellele1L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellele2 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 8 and spellele3 = 0:
-				act 'Electro study barrier (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellele2L += rand(1, 10)
-
-					if spellele2L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellele3 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 9 and spellele4 = 0:
-				act 'Dance study thousands of birds (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellele3L += rand(1, 10)
-
-					if spellele3L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellele4 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 10 and spellele5 = 0:
-				act 'Study Plyaschuschaya sphere (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellele4L += rand(1, 10)
-
-					if spellele4L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellele5 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
+			gs 'spellList', 'teacherActions', '$electSpells', 'kakuzu', 'mansion1'
 		end
 
 		if stihia = 3:
-			if pcs_magik >= 6 and spellert1 = 0:
-				act 'Study Quicksand (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellertL += rand(1, 10)
-
-					if spellertL < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellert1 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 7 and spellert2 = 0:
-				act 'Active protection study (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellert2L += rand(1, 10)
-
-					if spellert2L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellert2 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 8 and spellert3 = 0:
-				act 'Study Chasm (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellert3L += rand(1, 10)
-
-					if spellert3L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellert3 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 9 and spellert4 = 0:
-				act 'Absolute protection study (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellert4L += rand(1, 10)
-
-					if spellert4L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellert4 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 10 and spellert5 = 0:
-				act 'Study Sando (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellert5L += rand(1, 10)
-
-					if spellert5L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellert5 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
+			gs 'spellList', 'teacherActions', '$earthSpells', 'kakuzu', 'mansion1'
 		end
 
 		if stihia = 4:
-			if pcs_magik >= 6 and spellwind1 = 0:
-				act 'Learn Gust (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellwind1L += rand(1, 10)
-
-					if spellwind1L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellwind1 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 7 and spellwind2 = 0:
-				act 'Horrific study pressure (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellwind2L += rand(1, 10)
-
-					if spellwind2L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellwind2 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 8 and spellwind3 = 0:
-				act 'Vacuum protective sphere (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellwind3L += rand(1, 10)
-
-					if spellwind3L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellwind3 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 9 and spellwind4 = 0:
-				act 'Vacuum Rockets (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellwind4L += rand(1, 10)
-
-					if spellwind4L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellwind4 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-
-			if pcs_magik >= 10 and spellwind5 = 0:
-				act 'Devouring vacuum (1:00)':
-					cla
-					pcs_manna -= 1000
-					minut += 60
-					spellwind5L += rand(1, 10)
-
-					if spellwind5L < 100:
-						'You diligently study the spell for an hour, but could not grasp it.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					else
-						spellwind5 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
-		end
-
-	if stihia = 5:
-		if pcs_magik >= 6 and spellwater1 = 0:
-			act 'Creek study manna (1:00)':
-				cla
-				pcs_manna -= 1000
-				minut += 60
-				spellwaterL += rand(1, 10)
-
-				if spellwaterL < 100:
-					'You diligently study the spell for an hour, but could not grasp it.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				else
-					spellwater1 = 1
-					'Finally you are able to grasp and learn the spell.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				end
-			end
-		end
-
-		if pcs_magik >= 7 and spellwater2 = 0:
-			act 'Flooding study (1:00)':
-				cla
-				pcs_manna -= 1000
-				minut += 60
-				spellwater2L += rand(1, 10)
-
-				if spellwater2L < 100:
-					'You diligently study the spell for an hour, but could not grasp it.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				else
-					spellwater2 = 1
-					'Finally you are able to grasp and learn the spell.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				end
-			end
+			gs 'spellList', 'teacherActions', '$airSpells', 'kakuzu', 'mansion1'
 		end
 
-		if pcs_magik >= 8 and spellwater3 = 0:
-			act 'Water bubble study (1:00)':
-				cla
-				pcs_manna -= 1000
-				minut += 60
-				spellwater3L += rand(1, 10)
-
-				if spellwater3L < 100:
-					'You diligently study the spell for an hour, but could not grasp it.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				else
-					spellwater3 = 1
-					'Finally you are able to grasp and learn the spell.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				end
-			end
-		end
-
-		if pcs_magik >= 9 and spellwater4 = 0:
-			act 'Water study shark missile (1:00)':
-				cla
-				pcs_manna -= 1000
-				minut += 60
-				spellwater4L += rand(1, 10)
-
-				if spellwater4L < 100:
-					'You diligently study the spell for an hour, but could not grasp it.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				else
-					spellwater4 = 1
-					'Finally you are able to grasp and learn the spell.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				end
-			end
-		end
-
-		if pcs_magik >= 10 and spellwater5 = 0:
-			act 'Study the Great Flood (1:00)':
-				cla
-				pcs_manna -= 1000
-				minut += 60
-				spellwater5L += rand(1, 10)
-
-				if spellwater5L < 100:
-					'You diligently study the spell for an hour, but could not grasp it.'
-
-					act 'Move away':gt 'kakuzu', 'mansion1'
-				else
-					spellwater5 = 1
-						'Finally you are able to grasp and learn the spell.'
-
-						act 'Move away':gt 'kakuzu', 'mansion1'
-					end
-				end
-			end
+		if stihia = 5:
+			gs 'spellList', 'teacherActions', '$waterSpells', 'kakuzu', 'mansion1'
 		end
 	end
 

locations/kid.qsrc

@@ -238,18 +238,18 @@ if $ARGS[0] = 'kidlist':
 			$kidPosProPN[k] = 'He'
 		end
 		if ks = k:
-		'<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
-		else:
-		'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.'
+			'<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
+		else
+			'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.'
 		end
 
 		if kidage[k] < 1:
 			if hour >= 12 and hour < 18:
-			$babyloc = 'onto the blanket'
-			'<<$kidname[k]>></a> is laying on a blanket'
-			else:
-			$babyloc = 'into the crib'
-			'<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
+				$babyloc = 'onto the blanket'
+				'<<$kidname[k]>></a> is laying on a blanket'
+			else
+				$babyloc = 'into the crib'
+				'<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
 			end
 
 		elseif kidage[k] >= 1 and kidage[k] < 7:

locations/kseniyaQW.qsrc

@@ -204,8 +204,10 @@ if $ARGS[0] = 'event3_1':
 							'You tell Kseniya you are done and want your clothes back.'
 							'"Over there. Sit down hand between your legs, that''s the one"'
 							'As you try and pose you realise your pussy is soaking wet and your nervousness about exposing yourself is completely overcome.'
-							'Kseniya hands you back your clothes and gives you a business card, it is for a shop in Old Town, off the high street. How odd.'
+							'Kseniya hands you back your clothes and gives you a business card, it is for a shop in Old Town. How odd.'
 							'"It was fun and I''m glad I found you. I have others to find though so good bye." Kseniya blows you a kiss and leaves. By the time you are dressed she is long gone.'
+							*nl
+							'You look at the card again "Expression of You" just off Pushkin High Street. Open Mon-Sat, 08:00 - 18:00'
 							gs 'arousal', 'flash', 10, 'sub'
 							gs 'arousal', 'end'
 							minut -= 5

locations/lab.qsrc

@@ -187,6 +187,104 @@ if $ARGS[0] = 'Gustav':
 	end
 end
 
+if $ARGS[0] = 'ListBuilder':
+	! Builds a list of Attributes to be able to change
+	!  $ARGS[1] = Name of the attribute
+	!  $ARGS[2] = Mana cost of the change
+	!  $ARGS[3] = Time the change will take
+	!  $ARGS[4] = Array name of change value display string
+	!  $ARGS[5] = Array name of value to change attribute to, 'i' means, just use array position
+	!  $ARGS[6] = variable name of attribute to change
+	$bodyModType = $ARGS[1]
+	bodyModMana = $ARGS[2]
+	bodyModTime = $ARGS[3]
+	$bodyModDesc = $ARGS[4]
+	$bodyModIndx = $ARGS[5]
+	$bodyModStat = $ARGS[6]
+
+	$hairColors[0]='black'
+	$hairColors[1]='brown'
+	$hairColors[2]='red'
+	$hairColors[3]='blonde'
+
+	hairTypes[0]=5 & $hairTypes[0]='extremely short'
+	hairTypes[1]=31 & $hairTypes[1]='pixie-cut'
+	hairTypes[2]=81 & $hairTypes[2]='medium'
+	hairTypes[3]=161 & $hairTypes[3]='shoulder-length'
+	hairTypes[4]=261 & $hairTypes[4]='long'
+	hairTypes[5]=401 & $hairTypes[5]='very long'
+	hairTypes[6]=601 & $hairTypes[6]='extremely long'
+
+	$lipSize[0]='thin'
+	$lipSize[1]='normal'
+	$lipSize[2]='plump'
+	$lipSize[3]='pouty'
+	$lipSize[4]='pillowy'
+
+	$eyeColors[0]='brown'
+	$eyeColors[1]='grey'
+	$eyeColors[2]='green'
+	$eyeColors[3]='blue'
+
+	$eyeLashes[0]='short'
+	$eyeLashes[1]='average'
+	$eyeLashes[2]='long'
+	$eyeLashes[3]='lavish'
+	$eyeLashes[4]='show-stealing'
+	$eyeLashes[5]='long, jewel-dusted'
+
+	breastSize[0]=5 & $breastSize[0]='AA'
+	breastSize[1]=10 & $breastSize[1]='A'
+	breastSize[2]=15 & $breastSize[2]='B'
+	breastSize[3]=20 & $breastSize[3]='C'
+	breastSize[4]=25 & $breastSize[4]='D'
+	breastSize[5]=30 & $breastSize[5]='E'
+	breastSize[6]=35 & $breastSize[6]='F'
+	breastSize[7]=40 & $breastSize[7]='G'
+	breastSize[8]=45 & $breastSize[8]='H'
+	breastSize[9]=50 & $breastSize[9]='I'
+	breastSize[10]=55 & $breastSize[10]='J'
+	breastSize[11]=60 & $breastSize[11]='K'
+
+
+	$ListStr = "<B><<$bodyModType>></B>"
+	i = 0
+	:BodyModLoop
+	if i < arrsize('<<$bodyModDesc>>'):
+		if $bodyModIndx = 'i':
+			bodymodValue = i
+		else
+			bodymodValue = dyneval("result = <<$bodyModIndx>>[<<i>>]")
+		end
+		$bodyModDescX = dyneval('$result = <<$bodyModDesc>>[<<i>>]')
+		$ListStr = $ListStr + "<br><a href=""EXEC:<<$bodyModStat>> = <<bodymodValue>> & pcs_manna -= <<bodyModMana>> & gs 'arousal', 'voyeur', <<bodyModTime>> & gs 'stat' & gt 'lab', 'BodyModded', '<<$bodyModType>>', '<<$bodyModDescX>>'""><<$bodyModDescX>></a>"
+		i += 1
+		jump 'BodyModLoop'
+	end
+
+	killvar 'i'
+	killvar '$bodyModDescX'
+	killvar 'bodymodValue'
+	$result = $ListStr
+end
+
+if $ARGS[0] = 'BodyModded':
+	! Landing page for having Body Mod done.
+  	!  $ARGS[1] = Name of the attribute
+  	!  $ARGS[2] = new value of attribute
+	$bodyModType = $ARGS[1]
+	$bodyModVal =  $ARGS[2]
+
+	cls & cla
+	act 'Thank you':gt 'lab', 'Tatiana'
+
+	"You feel a bit drained and tingly all over.  You look in the mirror."
+	"Your <<$bodyModType>> is now <<$bodyModVal>>."
+	"""Thanks Tatiana!"""
+
+end
+
+
 if $ARGS[0] = 'Tatiana':
 	cls
 	$loc = 'lab'
@@ -234,25 +332,65 @@ if $ARGS[0] = 'Tatiana':
 	act 'Ask for help with your appearance':
 		cla
 		'"Tatiana, I''m having problems with my body image, I''m not happy and was hoping that you might be able to help me."'
-		'"It''s possible but I will have to draw on your magical energy, it will cost 40 manna to perform a reset spell.'
-		'This will reduce excess fat, growth of body parts and reduce high levels of silicone, moving you closer to your original body shape.'
-		'Do you wish to try this spell?'
+		'"It''s possible but I will have to draw on your magical energy, it will cost some of your manna to perform a spell."'
+
+		$HairColorTab =  func('lab', 'ListBuilder', 'Hair Color', '40', '30', '$hairColors','i',         'pcs_haircol')
+		$HairLengthTab = func('lab', 'ListBuilder', 'Hair Length','40', '30', '$hairTypes', 'hairTypes', 'pcs_hairlng')
+		$EyeColorTab =   func('lab', 'ListBuilder', 'Eye Color',  '40', '30', '$eyeColors', 'i',         'pcs_eyecol')
+		$EyeLashTab =    func('lab', 'ListBuilder', 'Eye Lashes', '40', '30', '$eyeLashes', 'i',         'pcs_lashes')
+		$LipTab =        func('lab', 'ListBuilder', 'Lip Size',   '40', '30', '$lipSize',   'i',         'pcs_lip')
+		$BreastTab =     func('lab', 'ListBuilder', 'Breast Size','40', '30', '$breastSize','breastSize','pcs_cupsize')
+
+		$SkinTab = "<a href=""EXEC:pcs_skin = 100 & pcs_manna -= 40 & gs 'arousal', 'voyeur', 30 & gs 'stat' & gt 'lab', 'BodyModded', 'Skin', 'clear'"">Clear Skin</a>"
+		$VirginTab = "<a href=""EXEC:pcs_vag = 0 & pcs_manna -= 40 & gs 'arousal', 'voyeur', 30 & gs 'stat' & gt 'lab', 'BodyModded', 'Virginity', 'renewed'"">Renew Virginity</a>"
+		$SiliconeTab = "<a href=""EXEC:brSurTemp = 0 & stringimplant = 0 & fillimplant = 0 & pcs_manna -= 40 & gs 'arousal', 'voyeur', 30 & gs 'stat' & gt 'lab', 'BodyModded', 'Boobs', 'natural again'"">Remove Silicone</a>"
+
+		"<CENTER>
+	<TABLE CELLPADDING = '5'>
+		<TR>
+			<TD><<$SkinTab>></TD>
+			<TD><<$VirginTab>></TD>
+			<TD><<$SiliconeTab>></TD>
+		</TR>
+		<TR>
+			<TD VALIGN='top'><<$HairColorTab>></TD>
+			<TD VALIGN='top'><<$EyeColorTab>></TD>
+			<TD VALIGN='top'><<$BreastTab>></TD>
+		</TR>
+		<TR>
+			<TD VALIGN='top'><<$HairLengthTab>></TD>
+			<TD VALIGN='top'><<$EyeLashTab>></TD>
+			<TD VALIGN='top'><<$LipTab>></TD>
+		</TR>
+	</TABLE>
+</CENTER>"
 
 		act 'No, no, I''ve changed my mind. Thank you':gt 'lab', 'Tatiana'
 
-		if pcs_manna >= 40:
-			act 'That sounds great, let''s do it!':
-				*clr
-				cla
-				minut += 30
-				dounspell = 1
-				gs 'body_shape', 'hardreset'
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/city/tatiana/magiclook.jpg"></center>'
-				'Tatiana lowers her glasses and stares deeply into your eyes. It feels like time just stops being a thing and you are floating.'
-				'It seems very soon afterwards when you snap back to reality but the big clock on the lab wall tells you its been 30 minutes.'
-				'Your body has changed much as Tatiana said it would and she is already busy checking nothing went wrong.'
-				act 'Continue': gt 'lab', 'Tatiana'
+
+		act "Restore you body to it's original shape":
+			cla
+			'"Tatiana, I''m having problems with my body image, I''m not happy and was hoping that you might be able to help me."'
+			'"It''s possible but I will have to draw on your magical energy, it will cost 40 manna to perform a reset spell.'
+			'This will reduce excess fat, growth of body parts and reduce high levels of silicone, moving you closer to your original body shape.'
+			'Do you wish to try this spell?'
+
+			act 'No, no, I''ve changed my mind. Thank you':gt 'lab', 'Tatiana'
+
+			if pcs_manna >= 40:
+				act 'That sounds great, let''s do it!':
+					*clr
+					cla
+					minut += 30
+					dounspell = 1
+					gs 'body_shape', 'hardreset'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/city/tatiana/magiclook.jpg"></center>'
+					'Tatiana lowers her glasses and stares deeply into your eyes. It feels like time just stops being a thing and you are floating.'
+					'It seems very soon afterwards when you snap back to reality but the big clock on the lab wall tells you its been 30 minutes.'
+					'Your body has changed much as Tatiana said it would and she is already busy checking nothing went wrong.'
+					act 'Continue': gt 'lab', 'Tatiana'
+				end
 			end
 		end
 	end
@@ -315,101 +453,15 @@ if $ARGS[0] = 'Tatiana':
 		end
 	end
 
-	if spelltuman = 0 and pcs_magik >= 1:
-		act 'Learn technique fog (1:00)':
-			cla
-			minut += 60
-			spelltuman = 1
-			'You learnt the technique of calling fog in battle.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
-
-	if spellklon = 0 and pcs_magik >= 1:
-		act 'Learn technique protection cloning (1:00)':
-			cla
-			minut += 60
-			spellklon = 1
-			'You learnt the technique of cloning yourself to create decoys in battle.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
-
-	if spellstun = 0 and pcs_magik >= 2:
-		act 'Learn technique paralysis (1:00)':
-			cla
-			minut += 60
-			spellstun = 1
-			'You learnt the technique of paralyzing the enemy.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
-
-	if spellwind = 0 and pcs_magik >= 2:
-		act 'Learn mist blowing (1:00)':
-			cla
-			minut += 60
-			spellwind = 1
-			'You learnt the technique of blowing mist.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
-
-	if spellklon2 = 0 and pcs_magik >= 2:
-		act 'Learn triple cloning (1:00)':
-			cla
-			minut += 60
-			spellklon2 = 1
-			'You learnt the technique triple cloning.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
-
-	if spellenergo = 0 and pcs_magik >= 3:
-		act 'Learn energoschit (1:00)':
-			cla
-			minut += 60
-			spellenergo = 1
-			'You learnt the technique energoschita.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
-
-	if spellinit = 0 and pcs_magik >= 3:
-		act 'Learn technique deceleration time (1:00)':
-			cla
-			minut += 60
-			spellinit = 1
-			'You learnt the technique of time dilation.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
-
-	if pcs_magik >= 4 and spellhel = 0:
-		!!'With this level of magic I can not teach you anymore.'
-			act 'Learn the technique of treatment (1:00)':
-			cla
-			minut += 60
-			spellhel = 1
-			'You learnt the technique of treatment.'
-
-			act 'Leave':gt 'lab', 'Tatiana'
-		end
-	end
+	! Show Actions for Learning Spells
+	gs 'spellList', 'teacherActions', '$basicSpells', 'lab', 'Tatiana'
 
 	if pcs_magik >= 5 and spellavtoklon = 0:
 		act 'Learn technique preparation (1:00)':
 			cla
 			minut += 60
 			spellavtoklon = 1
-			'You learnt the technique preparation. This technique allows you to enter into battle with the already created three clones.'
+			'You learned the technique preparation. This technique allows you to enter into battle with the already created three clones.'
 
 			act 'Leave':gt 'lab', 'Tatiana'
 		end

locations/lact_lib.qsrc

@@ -291,12 +291,19 @@ if $ARGS[0] = 'breastrecalc':
 	lactation['breastfat'] = lactation['breastuseabletissue'] - lactation['breastglandtissue']
 end
 
-!!	This function is used for breastgrowth. When nbsize, magicf2b, silicone, alveolicount or the alveoliexpandlvl are changed the breastccm changes. Everything will be written back to the specific variable
-if $ARGS[0] = 'BreastGrowth':
-	!!	usage func('lact_lib','BreastGrowth')
+!!	This function fixes some things that are caused by cheats
+if ARGS[0] = 'AntiCheatIssues':
+	!! usage func('lact_lib', 'AntiCheatIssues')
 	if lactation['breasttissueinitiated'] <= 0: func('lact_lib','init_breasttissue')
 	if lactation['breastccm'] <= 0: func('lact_lib','breastrecalc')
 	if lactation['breastccm'] <= 0: lactation['breastccm'] = 1
+	if lactation['active'] > 0 and lactation['alveoliexpandlvl_change'] < lactation['alveoliexpandlvl']: lactation['alveoliexpandlvl_change'] = lactation['alveoliexpandlvl']
+end
+
+!!	This function is used for breastgrowth. When nbsize, magicf2b, silicone, alveolicount or the alveoliexpandlvl are changed the breastccm changes. Everything will be written back to the specific variable
+if $ARGS[0] = 'BreastGrowth':
+	!!	usage func('lact_lib','BreastGrowth')
+	!!	setting everything in here.
 	if lactation['breastccm'] <> func('lact_lib','bsizetoccm',(nbsize + magicf2b + silicone)) or lactation['alveolicount_change'] <> lactation['alveolicount'] or lactation['alveoliexpandlvl_change'] <> lactation['alveoliexpandlvl']:
 		!!	There are general breast growth events that will increase nbsize, magicf2b or silicone. So the breast "contents" have to be recalculated. This is happening here with the breastrecalc function.
 		!!	Now the fun part. Warning, crazy math ahead. I got headaches while doing this, so better not mess with it or you will break everything.
@@ -540,13 +547,17 @@ if $ARGS[0] = 'lact_switch':
 		lactation['nipgrowth'] = 2
 		pcs_nips += lactation['nipgrowth']
 		if lactation['alveoliexpandlvl'] < 10: lactation['alveoliexpandlvl'] = 10
+		if lactation['alveoliexpandlvl_change'] < 10: lactation['alveoliexpandlvl_change'] = 10
 		lactation['milkprod_type'] = 1
 	else
 		!!	If lactation is on, the stuff below will switch it off again.
 		lactation['active'] = 0
 		lactation['lactaterate'] = 0
 		lactation['breastmv'] = 0
-		lactation['breastmm']
+		lactation['breastmm'] = 0
+		lactation['alveoliexpandlvl'] = 0
+		lactation['alveoliexpandlvl_change'] = 0
+		lactation['prolactinlvl'] = 0
 		if pcs_nips > lactation['nipgrowth']: pcs_nips -= lactation['nipgrowth']
 		lactation['nipgrowth'] = 0
 	end
@@ -555,6 +566,7 @@ end
 !!	new breast cycle function, will replace the monster lactation function in femcyc
 if $ARGS[0] = 'breastcycle':
 	if lactation['breasttissueinitiated'] <= 0: func('lact_lib','init_breasttissue')
+	func('lact_lib', 'AntiCheatIssues')
 	!!	usage func('lact_lib','breastcycle')
 	!!	if lactating or not, breasts will grow during pregnancy. This will only happen during first full pregnancy
 	if pregchem => 2191 and lactation['maturebreast'] <= 0:
@@ -958,7 +970,7 @@ if $ARGS[0] = '$get_breastmilk':
 			if lactation['max_nip_flow_rate'] >= lactation['suck_flow_rate']:
 				lactation['get_bm_milkedvolume'] = max_sucktion_demand
 				lactation['breastmv'] -= max_sucktion_demand
-			else:
+			else
 				lactation['get_bm_milkedvolume'] = lactation['max_nip_flow_rate']*ARGS[2]
 				lactation['breastmv'] -= lactation['get_bm_milkedvolume']
 			end

locations/liames.qsrc

@@ -27,9 +27,22 @@ set minut+=10
 'Not so much of a street, more of a connection of several streets including cafes and shops.'
 'A street runs straight to the <a href="exec:gt ''liam'',''start''">Town center</a>.'
 'Street leads to the Old Town <a href="exec:gt ''parks'',''start''">park</a>.'
-if hour >= 8 and hour <= 20:'A small <a href="exec:gt ''larek'',''start''">shop</a> is currently open.'
-if hour >= 10 and hour <= 22: 'A <a href="exec:gt ''liamelkafe'',''start''">tiny cafe</a> displays a street sign outside its door.'
-if hour >= 8 and hour <= 17 and exhibitionQW > 3:'The <a href="exec:gt ''exhibitionistshop'',''start''">exhibitionist shop</a> is just down a small side street from here.'
+if hour >= 8 and hour <= 20:
+	'A small <a href="exec:gt ''larek'',''start''">shop</a> is currently open.'
+else
+	'There is a small local shop that is open 8:00 - 20:00 everyday. Currently closed.'
+end
+if hour >= 10 and hour <= 22:
+	'A <a href="exec:gt ''liamelkafe'',''start''">tiny cafe</a> displays a street sign outside its door.'
+else
+	'The tiny cafe here is close currently, it is open every day 10:00 - 22:00'
+if exhibitionQW > 3:
+	if week < 7 and hour >= 8 and hour <= 18:
+		'<a href="exec:gt ''exhibitionistshop'',''start''">Expression of You</a> is just down a small side street from here.'
+	else
+		'Expression of You is open Mon - Sat, 8:00 - 18:00'
+	end
+end
 
 if home_owned[4] = 1:
 	act '<b>Go home</b>':gt'korr2x'

locations/lug.qsrc

@@ -126,7 +126,7 @@ if $ARGS[0] = 'prut2':
 	! Setup for teleport circle
 	if tpKnown['PushkinPark'] = 1:
 		act 'Enter the hidden circle of trees': gt 'treeCircle', 'PushkinPark'
-	else:
+	else
 		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'PushkinPark'
 	end
 

locations/magik.qsrc

@@ -1,87 +1,40 @@
 # magik
 
-!!Selecting a magic attack
-if round >= 0:
-	if spelltuman > 0:'Cover terrain fog <a href="exec:gt ''spell'', ''tuman''">create the spell</a>'
-	if spellklon > 0:'Substitute yourself for a clone <a href="exec:gt ''spell'', ''klon''">create the spell</a>'
-	if spellstun > 0:'Paralyze the enemy <a href="exec:gt ''spell'', ''stun''">create the spell</a>'
-	if spellweap > 0 and weapon > 0:'Invest in energy weapons <a href="exec:gt ''spell'', ''weap''">create the spell</a>'
-	if spellwind > 0:'Blow the mist <a href="exec:gt ''spell'', ''wind''">create the spell</a>'
-	if spellklon2 > 0:'Substitute yourself for clones (3 clones) <a href="exec:gt ''spell'', ''klon2''">to create a spell</a>'
-	if spellenergo > 0:'Create weak energy shield <a href="exec:gt ''spell'', ''energo''">create the spell</a>'
-	if spellinit > 0:'Create weak deceleration time <a href="exec:gt ''spell'', ''init''">create the spell</a>'
-	if spellhel > 0:'Heal yourself <a href="exec:gt ''spell'', ''hel''">create the spell</a>'
-	if spellhand > 0:'Striking hand <a href="exec:gt ''spell'', ''hand''">create the spell</a>'
-	if spellreset > 0 or spellunmat > 0:'<b><font color="red">POWER Rikudo</font></b>'
-	if spellreset> 0:'Power Rikudo "Absorb collected energy" <a href="exec:gt ''spell'', ''reset''">to create a spell</a>'
-	if spellunmat > 0:'Power Rikudo "not material" <a href="exec:gt ''spell'', ''unmat''">to create a spell</a>'
-	if spellfire1 > 0:'<b><font color="red">SCHOOL FIRE</font></b>'
-	if spellfire1 > 0:'The Flame <a href="exec:gt ''spell'', ''fire1''">create the spell</a>'
-
-	if round >= 3:
-		if spellfire2 > 0:'Release of fire <a href="exec:gt ''spell'', ''fire2''">create the spell</a>'
-		if spellfire3 > 0:'Fire barrier <a href="exec:gt ''spell'', ''fire3''">create the spell</a>'
-	end
-
-	if round >= 6:
-		if spellfire4 > 0:'Firestorm <a href="exec:gt ''spell'', ''fire4''">create the spell</a>'
-		if spellfire5 > 0:'Flame Shield <a href="exec:gt ''spell'', ''fire5''">create the spell</a>'
-	end
-
-	if spellele1 > 0:'<b><font color="red">SCHOOL OF ELECTRICITY</font></b>'
-	if spellele1 > 0:'Electric Shock <a href="exec:gt ''spell'', ''ele1''">to create a spell</a>'
-
-	if round >= 3:
-		if spellele2 > 0:'Lightning <a href="exec:gt ''spell'', ''ele2''">create the spell</a>'
-		if spellele3 > 0:'Electric barrier <a href="exec:gt ''spell'', ''ele3''">create the spell</a>'
-	end
-
-	if round >= 6:
-		if spellele4 > 0:'Dance of a thousand birds <a href="exec:gt ''spell'', ''ele4''">create the spell</a>'
-		if spellele5 > 0:'Dancing Sphere of Protection <a href="exec:gt ''spell'', ''ele5''">create the spell</a>'
-	end
-
-	if spellert1 > 0:'<b><font color="red">SCHOOL LAND</font></b>'
-	if spellert1 > 0:'Quicksand <a href="exec:gt ''spell'', ''ert1''">create the spell</a>'
-
-	if round >= 3:
-		if spellert2 > 0:'Active Protection <a href="exec:gt ''spell'', ''ert2''">create the spell</a>'
-		if spellert3 > 0:'The Abyss <a href="exec:gt ''spell'', ''ert3''">create the spell</a>'
-	end
-
-	if round >= 6:
-		if spellert4 > 0:'Absolute protection <a href="exec:gt ''spell'', ''ert4''">to create a spell</a>'
-		if spellert5 > 0:'Sando <a href="exec:gt ''spell'', ''ert5''">create the spell</a>'
-	end
-
-	if spellwind1 > 0:'<b><font color="red">SCHOOL WIND</font></b>'
-	if spellwind1 > 0:'Gust <a href="exec:gt ''spell'', ''wind1''">create the spell</a>'
-
-	if round >= 3:
-		if spellwind2 > 0:'Horrendous pressure <a href="exec:gt ''spell'', ''wind2''">create the spell</a>'
-		if spellwind3 > 0:'Vacuum protective sphere <a href="exec:gt ''spell'', ''wind3''">create the spell</a>'
-	end
+$SpellListStr = "<center>
+	<table>
+		<tr>
+			<th>Spell</th>
+			<th>Mana</th>
+			<th>Description</th>
+		</tr>"
+i = 0
+:CombatSpellLoop
+$ThisSpellName = $combatSpells[i]
+if i < arrsize('$combatSpells'):
+	if spellKnown[$ThisSpellName] = 1:
+		$SpellListStr = $SpellListStr + " 
+		<tr>
+			<td><a href=""EXEC: cls & gs 'castSpell', '<<$ThisSpellName>>'& xgt 'fight','sta' & act 'Physical attacks':gt'boxing' & act 'Magic attacks':gt'magik'""><<$spellName[$ThisSpellName]>></a></td>
+			<td><<spellMana[$ThisSpellName]>></td>
+			<td><<$spellDesc[$ThisSpellName]>></td>
+		</tr>"
+	end
+	i += 1
+	jump 'CombatSpellLoop'
+end
 
-	if round >= 6:
-		if spellwind4 > 0:'Vacuum Rockets <a href="exec:gt ''spell'', ''wind4''">create the spell</a>'
-		if spellwind5 > 0:'Devouring vacuum <a href="exec:gt ''spell'', ''wind5''">create the spell</a>'
-	end
+$SpellListStr = $SpellListStr + " 
+	</table>
+</center>"
 
-	if spellwater1 > 0:'<b><font color="red">SCHOOL WATER</font></b>'
-	if spellwater1 > 0:'Leech manna <a href="exec:gt ''spell'', ''water1''">create the spell</a>'
+$SpellListStr
 
-	if round >= 3:
-		if spellwater2 > 0:'Flooding <a href="exec:gt ''spell'', ''water2''">create the spell</a>'
-		if spellwater3 > 0:'Blister <a href="exec:gt ''spell'', ''water3''">create the spell</a>'
-	end
+killvar 'i'
+killvar '$ThisSpellName'
+killvar '$SpellListStr'
 
-	if round >= 6:
-		if spellwater4 > 0:'Water shark missile <a href="exec:gt ''spell'', ''water4''">create a spell</a>'
-		if spellwater5 > 0:'Great Flood <a href="exec:gt ''spell'', ''water5''">create the spell</a>'
-	end
-end
+act 'Physical attacks':gt'boxing'
 
-act 'Physical Attack':gt 'boxing'
 
 --- magik ---------------------------------
 

locations/mirasex.qsrc

@@ -113,7 +113,7 @@ if $ARGS[0] = 'miralick_dog':
 	gs 'stat'
 	if svetahorny >= 50 and rand(0,2) ! 0:
 		you_orgasm = 1
-		orgasm_or = 'yes'
+		$orgasm_or = 'yes'
 		$orgasm_txt = 'You cannot hold out any more from the stimulation that Mira is providing and with a shudder you cum in her face.'
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick_dog_cum.jpg"></center>'
 	else

locations/mitka.qsrc

@@ -88,7 +88,7 @@ end
 if $ARGS[0] = 'first_chat':
 	cla	
 	minut += 10
-	npc_rel['A60'] = 10
+	npc_rel['A63'] = 10
 	gs 'stat'
 	
 	*nl
@@ -102,7 +102,7 @@ end
 if $ARGS[0] = 'normal_chat':
 	cla
 	minut += 5
-	npc_rel['A60'] += 1
+	npc_rel['A63'] += 1
 	gs 'stat'
 	
 	*nl
@@ -115,7 +115,7 @@ end
 if $ARGS[0] = 'sex_chat':
 	cla
 	minut += 5
-	npc_rel['A60'] += 2
+	npc_rel['A63'] += 2
 	gs 'stat'
 	
 	*nl
@@ -130,7 +130,7 @@ if $ARGS[0] = 'sex_chat':
 			if StoryLine = 1:
 				act 'I don''t know. My mother is obsessed with me staying a virgin.':
 					cla		
-					npc_rel['A60'] -= 1
+					npc_rel['A63'] -= 1
 					pcs_dom += 1
 					gs 'stat'
 					
@@ -141,7 +141,7 @@ if $ARGS[0] = 'sex_chat':
 			else
 				act 'I don''t know. I''m still a virgin...':
 					cla
-					npc_rel['A60'] -= 1
+					npc_rel['A63'] -= 1
 					pcs_dom += 1
 					gs 'stat'
 					
@@ -207,7 +207,7 @@ if $ARGS[0] = 'sex_chat':
 		end
 		act 'No thanks':
 			cla
-			npc_rel['A60'] -= 1
+			npc_rel['A63'] -= 1
 			gs 'stat'
 			
 			*nl
@@ -255,7 +255,7 @@ if $ARGS[0] = 'sex_chat':
 			if pcs_vag = 0: 
 				act 'No, I''m still a virgin':
 					cla
-					npc_rel['A60'] -= 2
+					npc_rel['A63'] -= 2
 					pcs_dom += 1
 					gs 'stat'
 					
@@ -267,7 +267,7 @@ if $ARGS[0] = 'sex_chat':
 			end
 			act 'No thanks, not today':
 				cla
-				npc_rel['A60'] -= 2
+				npc_rel['A63'] -= 2
 				gs 'stat'
 				
 				*nl
@@ -285,7 +285,7 @@ if $ARGS[0] = 'sex_chat':
 				'Mitka takes you to '+iif(mitka_first_drink > 1, 'the familiar old trailer','an old trailer')+' in the woods.'
 				'Mitka sits down on a couch as you kneel in front of him. You take his cock out of his pants and start to suck...'
 				
-				npc_rel['A60'] += 1
+				npc_rel['A63'] += 1
 				if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 				gs 'boyStat', 'A63'
 				npc_sex['A63'] += 1
@@ -332,7 +332,7 @@ if $ARGS[0] = 'sex_chat':
 			end
 			act 'No thanks, not today':
 				cla
-				npc_rel['A60'] -= 2
+				npc_rel['A63'] -= 2
 				gs 'stat'
 				
 				*nl
@@ -377,7 +377,7 @@ if $ARGS[0] = 'sex_chat':
 			if pcs_ass = 0: 
 				act 'No, I''ve never done anal before':
 					cla
-					npc_rel['A60'] -= 2
+					npc_rel['A63'] -= 2
 					pcs_dom += 1
 					gs 'stat'
 					
@@ -389,7 +389,7 @@ if $ARGS[0] = 'sex_chat':
 			end
 			act 'No thanks, not today':
 				cla
-				npc_rel['A60'] -= 2
+				npc_rel['A63'] -= 2
 				gs 'stat'
 				
 				*nl

locations/natkolEv.qsrc

@@ -0,0 +1,874 @@
+# natkolEv
+
+!! Events concerning Natasha Belova and Kolka
+
+!! Sex between Natasha and Kolka while Sveta watches
+if $ARGS[0] = 'kolkabj':
+	*clr & cla
+	natfuckday = daystart
+	if NatashaQW = 8: NatashaQW = 9
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natnudebed.jpg"></center>'
+	if NatKolkaSex = 0:
+		'"Today I want you to do something different for me Natasha. You did promise to do anything I wanted, remember?"'
+		'"Y-Yes <<$pcs_nickname>>."'
+		'"Good, then undress and I''ll arrange for a special guest. Don''t worry, it''ll stay between the three of us."'
+		'You take out your phone and call your brother while you watch as Natasha undresses. After a couple of rings your bother picks up. "Hello <<pcs_nickname>> whats up?" He asks.'
+		*nl
+		'You tell him. "Hey Kolka come up to apartment #, I got a special surprise for you."'
+		'He pauses a moment obviously wonder what it might be. "What is it?" He asks.'
+		'You giggle slightly as you look at Natasha now naked. "I promise you will like it."'
+		'"Ok, I''ll be up in a couple of minutes." He tells you before hanging up.'
+	else
+		'"Today we are going to train my brother some more, you would like that wouldn''t you?" You ask her.'
+		'Her eyes drop a bit and she nods. "Y-Yes <<$pcs_nickname>>." She starts to get undressed without you even asking.'
+		'You take out your phone and call your brother while you watch as Natasha undresses. After a couple of rings your bother picks up. "Hello <<pcs_nickname>>, whats up?" He asks.'
+		*nl
+		'You tell him. "Hey Kolka come up to Natasha''s, we have another lesson for you."'
+		'"Ok, I''ll be right up." He tells you eagerly before hanging up, you can just imagine him running up the stairs.'
+	end
+	act 'Wait for him':
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natnudebed.jpg"></center>'
+		'A few minutes later you hear the front door open and close and then Kolka call out. "Hello?"'
+		'"In the bedroom!" You call out to him.'
+		'When Kolka enters the room Natasha immediately tries to cover herself with her hands. He stops dead, when he see''s Natasha naked and stares at her.'
+		'"Don''t you dare hide Natasha. Show him your pretty body." You order her, to which she drops her hands allowing Kolka a good look at her exposed tits.'
+		'Kolka''s eyes are glued to Natasha''s body. He has a noticeable bulge in his pants.'
+		if NatKolkaSex = 0:
+			if brotherSex > 6:
+				'"You like Natasha more than me brother?" You ask him with mock hurt in your voice.'
+				'"I-I..." He starts stammering. "I didn''t expect her to have a body like this."'
+				'"So, who''s pussy do you think is tighter, hers or mine?" You say, enjoying the look of confusion in his eyes as he tries to come up with an answer that will please you.'
+				'"I''m just teasing you bro, I''m pretty sure there isn''t a single boy on the planet who can think past a naked girl in front of him."'
+				'"Just remember, we''re here so that we can teach you how to do this properly. So you''re going to obey my directions."'
+			elseif npc_rel['A34'] >= 80:
+				'"She''s pretty isn''t she?" You ask him.'
+				'"I-I..." He starts stammering, but manages to nod. "Yes."'
+				'"So, who''s body is hotter, hers or mine?" You say, seeing the shocked and confused look in his eyes, as he blushes scarlet red.'
+				'"I''m just teasing you bro, I''m pretty sure there isn''t a single boy on the planet who can think past a naked girl in front of him."'
+				'He smiles bit at that, but doesn''t answer. As he stares at Natasha with obvious lust in his eyes.'
+				'"How would you like to fuck her bro?" You ask him.'
+				'He looks at you shocked at the question, then starts nodding. "I would love to."'
+			else
+				'"I can clearly see that you want her." You tell your brother, indicating the bulge in his pants which causes him to blush.'
+				'"How would you like to fuck her bro?" You ask him.'
+				'He looks at you shocked at the question, then starts nodding. "I would love to."'
+				'"Good we''re going to teach you how to treat a girl, at least once you get to her bedroom." You say with a laugh.'
+			end
+		else
+			'"I see that you''re ready for your next lesson bro."'
+		end
+		act 'Blowjob':
+			*clr & cla
+			natsub += 1
+			pcs_dom += 1
+			NatDolg -= 500
+			natbj += 1
+			natbro += 1
+!!I added it for 3 but I would suggest just having 2 to cut down on the size of the number of mp4''s
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natbj' + rand(1,3) + '.mp4"></center>'
+			'"You''re going to use that mouth of yours to make Kolka feel good, you got it?" You hiss at Natasha, grabbing her jaw and staring into her eyes.'
+			'Natasha jerkily nods and motions him over to the side of the bed. She reaches up with trembling hands to unfastens Kolka''s pants and pulls out his semi-hard dick. She tentatively begins to lick it and after a moment takes the now fully hard shaft into her mouth.'
+			'"Get her hair out of the way Kolka. I want to see this properly." You tell Kolka and he gathers her hair in his hand and keeps hold of it to guide her mouth up and down his shaft.'
+			'After a few more minutes Kolka says "I''m going to cum."'
+			gs 'arousal', 'voyeur', 5, 'dom'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Let Kolka cum': gt 'natkolkaEv', 'kolkacum', 0
+			if NatKolkaSex > 5: act 'Continue': gt 'natkolkaEv', 'softsex'
+		end
+		
+		act '69':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natbj4.mp4"></center>'
+			'"Kolka you need to learn how to pleasure a girl, if you want to keep one. I want you to eat Natasha''s pussy while she sucks you dick. Now lie back on the bed" He eagerly lays down on the bed, on his back, pulling his clothes off as he does.'
+			'"You''re going to use that mouth of yours to make Kolka feel good, you got it?" You hiss at Natasha, grabbing her jaw and staring into her eyes. "Don''t worry, you''re going to enjoy this too."'
+			*nl
+			'Natasha jerkily nods and starts undressing. "Now lie down on top of Kolka so he can lick you while you suck his dick."'
+			'Natasha positions herself on top of Kolka and reaches up with trembling hands to grab hold of his semi-hard dick. She tentatively begins to lick it and after a moment takes the now fully hard shaft into her mouth.'
+			'"Don''t just look at it Kolka, lick her." You order Kolka and he obediently starts licking Natasha''s pussy, occasionally sucking on her clit, making Natasha moan around his cock.'
+			'After a few more minutes Kolka says "I''m going to cum."'
+			gs 'arousal', 'voyeur', 5, 'dom'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Let Kolka cum': gt 'natkolkaEv', 'kolkacum', 0
+			if NatKolkaSex > 5: act 'Continue': gt 'natkolkaEv', 'softsex'
+		end
+	end
+end
+
+if $ARGS[0] = 'softsex':
+	*clr & cla
+	act 'Give him a titjob':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/nattitjob.mp4"></center>'
+		'"I want you to finish him off with your tits today Natasha." You order her.'
+		'Natasha obediently kneels between his legs and presses her tits around Kolka''s dick. She starts to move them up and down his shaft slowly at first, then rapidly picking up speed as her saliva lubricates the motion.'
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natfacial.mp4"></center>'
+			'After a few more minutes Kolka says "I''m going to cum."'
+			'"Jerk him off on your tits Natasha."'
+			'Natasha leans over Kolka''s cock and squeezes her tits together with one hand. With the other she rapidly strokes his cock. With a grunt Kolka shoots his cum onto Natasha''s tits. By the time he''s done Natasha''s chest is covered in cum.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			NatKolkaSex += 1
+			gs 'arousal', 'voyeur', 5, 'dom'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+	end
+	act 'Give him a assjob':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natassjob.mp4"></center>'
+		'"I want you to finish him off with your asscheeks today Natasha." You order her.'
+		'Natasha obediently lies down on her stomach and presenting her ass for Kolka to use. Kolka takes his time rubbing his dick over Natasha''s asshole and pussy before he presses his dick between her cheeks and starts hammering away.'
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natassjobcum.mp4"></center>'
+			'After a few minutes Natasha gets on all fours so she can fuck Kolka back. Soon after he says "I''m going to cum."'
+			'"Shoot your load on her back brother."'
+			'Kolka groans and shoots his cum onto Natasha''s back. By the time he''s done Natasha''s back is covered in cum.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			NatKolkaSex += 1
+			gs 'arousal', 'voyeur', 5, 'dom'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+	end
+	act 'Give him a thighjob':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natthighjob01.mp4"></center>'
+		'"That''s enough of a warmup. Lie down on your back and put your legs in the air Natasha. You are going to fuck Kolka with your thighs."'
+		'Natasha obediently lays back and positions Kolka''s dick between her thighs so that it rubs against her pussy as she slowly moves up and down.'
+		'You can see Kolka''s dick getting wet from Natasha''s juices.'
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natthighjob02.mp4"></center>'
+			'When Natasha starts to tire Kolka takes over and starts thrusting his dick against Natasha''s pussy, making her moan in pleasure.'
+			act 'Continue':
+				*clr & cla
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natthighjob03.mp4"></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				'"Cum on her pussy Kolka." You tell him.'
+				'Natasha pulls her legs up against her chest while Kolka holds his dick against her pussy with one hand as he keeps thrusting. With a grunt Kolka shoots his cum onto Natasha''s wet pussy. By the time he''s done her pussy is covered in his sperm.'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				NatKolkaSex += 1
+				gs 'arousal', 'voyeur', 5, 'dom'
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Continue': gt 'natbelapt', 'natroom'
+			end
+		end		
+	end	
+	act 'Give him a footjob':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natfootjob.mp4"></center>'
+		if NatKolkaFootjob = 0:
+			NatKolkaFootjob = 1
+			'"Have you ever had a footjob Kolka? I bet Natasha''s feet feel great."'
+			'"No, but you know I''m open to these new kind of things." Kolka says with a grin.'
+		end
+		'"Well Natasha, lie back and use those soft feet of yours to get him off."'
+		'The two of them get comfortable on the bed and Natasha takes Kolka''s dick between her feet and gently starts playing with him.'
+		'"So, do her feet feel as soft as they look Kolka?"'
+		'"Y-Yeah, this is amazing." He lets out in a low groan.'
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natfootjobcum.mp4"></center>'
+			'After a few more minutes Kolka says "I''m going to cum."'
+			'"Pick up the pace Natasha." You tell her.'
+			'Natasha wraps her toes around his cock and starts moving more rapidly. With a grunt Kolka shoots his cum on his belly. By the time he''s done his belly and Natasha''s feet are covered in sperm.'
+			'"That''s all for today Kolka. You can clean up and get dressed. I have a few things I want to discuss with Natasha."'
+			NatKolkaSex += 1
+			gs 'arousal', 'voyeur', 5, 'dom'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end		
+	end	
+	if NatKolkaSex > 10:
+		act 'More': gt 'natkolkaEv', 'penetration'
+	end
+end
+
+if $ARGS[0] = 'penetration':
+	*clr & cla
+	'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natfinger.mp4"></center>'
+	'You kneel down behind Natasha and put your hand between her legs, caressing her pussy for a few seconds before putting a finger in her, feeling how wet she is. When you pull it out again your finger is covered in her juices.'
+	'"Do you want Kolka''s dick in your pussy?" You whisper in her ear.'
+	'Natasha looks at you and then nods her head slowly.'
+	act 'Missionary':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natmissionary01.mp4"></center>'
+		'"Then ask him, better yet, beg him to make your pussy feel good. Let him know how much you want it." You tell her as you push her down on her back.'
+		'Natasha immediately opens her legs, giving Kolka an inviting view of her soaking pussy. "P-Please fuck my pussy Kolka... I-I need it. I want you inside me now."'
+		'Kolka looks at you and grins before turning his attention back to Natasha. He guides his cock in Natasha''s eager pussy and starts fucking her gently, causing her to moan out in pleasure.'
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natmissionary02.mp4"></center>'
+			'"Fuck her harder Kolka. She can take it."'
+			'Kolka first looks at you and then at Natasha, searching for confirmation of what you just said.'
+			'"F-Faster... Please." She begs him.'
+			'Kolka doesn''t need any further urging on and starts to fuck Natasha hard, causing her tits to bounce up and down each time he thrusts into her.'
+			act 'Continue':
+				*clr & cla
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natmissionary03.mp4"></center>'
+				'You can see that Natasha is getting right on the edge. "She''s almost there Kolka. Just grab her and fuck her hard. I want to see her cum on your dick."'
+				'Kolka grabs hold of Natasha, lifting her up and starts fucking her as fast as he can. Within a few minutes you can see Natasha''s eyes roll back in her head while she moans loudly as her orgasm hits her.'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				gt 'kolkacum', 1
+			end
+		end
+	end
+	act 'Cowgirl':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natride01.mp4"></center>'
+		'"Maybe I''ll let you fuck him." You tell Natasha as you push Kolka down on the bed.'
+		'"Grind your pussy on his cock Natasha. And you better start begging or I won''t let him put it inside."'
+		'Natasha immediately starts rubbing her soaked pussy on Kolka''s dick. "P-Please put it in... I-I need it. I want you inside me now."'
+		'You run your hand over Natasha''s body and give Kolka a nod "Ok Kolka, put it in, you should never leave a girl hanging when she needs it this bad."'
+		'"I won''t <<$pcs_nickname>>. She can ride my dick all she wants." He tells you as he guides his dick inside.'
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natride02.mp4"></center>'
+			'As you step back Natasha needs no further encouragement . She places her hands on Kolka''s chest and starts riding his dick, letting out a moan from time to time.'
+			'"Your tight pussy feels great." Kolka tells her. "Keep going." To which she starts riding him even faster.'
+			act 'Continue':
+				*clr & cla
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natride03.mp4"></center>'
+				'You can see that Natasha is getting right on the edge. "She''s almost there Kolka. Just grab her and fuck her hard. I want to see her cum on your dick."'
+				'Kolka grabs Natasha by the ass, holding her in place and starts fucking her as fast as he can. Within a few minutes you can see Natasha''s eyes roll back in her head while she moans loudly as her orgasm hits her.'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				gt 'kolkacum', 2
+			end
+		end
+	end
+	act 'Doggystyle':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natonbelly.mp4"></center>'
+		'"Then ask him, better yet, beg him to make your pussy feel good. Let him know how much you want it." You tell her as you push her down on her belly.'
+		'Natasha immediately pushes her ass up, giving Kolka an inviting view of her soaking pussy. "P-Please fuck my pussy Kolka... I-I need it. I want you inside me now."'
+		'Kolka looks at you and grins before turning his attention back to Natasha. He guides his cock in Natasha''s eager pussy and starts fucking her gently, causing her to moan out in pleasure.'
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natdoggy01.mp4"></center>'
+			'After a while you see that Kolka is starting to tire and you decide to give him a little bit of rest.'
+			'"Time for you to do some work too Natasha. Get on all fours and fuck Kolka''s dick."'
+			'Kolka grabs Natasha by the hips and pulls her up until she''s sitting on her hands and knees. Keeping his dick inside of her pussy all the time.'
+			'Once she''s positioned properly he urges her on. "Come on Natasha, you heard <<$pcs_nickname>>."'
+			'Not skipping a beat Natasha starts to fuck Kolka''s dick as hard as she can. Each time she bottoms out she moans in pleasure.'
+			act 'Continue':
+				*clr & cla
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natdoggy02.mp4"></center>'
+				'You can see that Natasha is getting right on the edge. "She''s almost there Kolka. Just grab her and fuck her hard. I want to see her cum on your dick."'
+				'Kolka grabs Natasha by the hips, holding her in place and starts fucking her even faster. Within a few minutes you can see Natasha''s eyes roll back in her head while she moans loudly as her orgasm hits her.'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				gt 'kolkacum', 3
+			end
+		end
+	end
+	
+	if NatKolkaSex > 20:		
+		act 'Anal sex': gt 'natkolkaEv', 'natkolkaanalprep'
+	end
+end
+
+if $ARGS[0] = 'natkolkaanalprep':
+	*clr & cla
+	'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanalfinger.mp4"></center>'
+	if natanal < 5:
+		natanal += 1
+		if natanal = 0:
+			'"Natasha has a cute little ass doesn''t she Kolka? Would you like to fuck it?"'
+			'"W-Wait... I''ve never had anal sex before." She whimpers.'
+		else
+			'"Would you like to fuck Natasha''s cute little asshole again?" You ask Kolka.'
+			'"W-Wait... It really hurt last time we did that." She whimpers.'
+		end
+		'"Present your ass to him. You just need to get used to it Natasha."'
+		'Natasha hesitantly gets on all fours and Kolka immediately starts playing with her asshole, testing it with a finger.'
+		'"Wow. That''s really tight. How does it feel, having my finger up there Natasha?" He asks her.'
+		'"I-It''s weird." She stammers.'
+		'"You''ll learn to love it." You tell her. "You know what, how about a deal? If Kolka manages to get you off with his mouth you''ll let him try fucking your ass."'
+		if natanal = 0:
+			'Natasha looks at you and you can clearly see that she''s not sure she wants this. "You''ll never know if you like it if you don''t try it at least once Natasha." You try to persuade her.'
+			'"Ok, I guess I can give it a try."'
+		else
+			'Natasha looks at you and you can clearly see that she''s not sure she wants this again. "You never gave yourself the chance to get into it Natasha." You try to persuade her.'
+			'"Ok, I guess I can give it a try again."'
+		end
+	else
+		'"Would you like to fuck Natasha''s cute little asshole again?" You ask Kolka.'
+		'"Ofcourse <<$pcs_nickname>>" He says with a big grin on his face at the prospect of fucking her tight asshole again.'
+		'"Present your ass to him. Time for some more training, Natasha."'
+		'Natasha hesitantly gets on all fours and Kolka immediately starts playing with her asshole, testing it with a finger.'
+		'"Wow. It''s always so tight. You like having my finger up there, don''t you, Natasha?" He asks her.'
+		'"Y-Yeah." She stammers. "But would you... Would you lick me again first please?"'
+	end
+	act 'Kolka licks her':
+		*clr & cla
+		natkolkadeal = 1
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcuni.mp4"></center>'
+		'Natasha lies back on the bed and opens her legs for Kolka.'
+		'"Come on Kolka. Earn your reward." You eagerly urge him on.'
+		'He doesn''t waste a second and places his mouth on her pussy. Licking it gently first, then gradually putting more passion into it.'
+		'You enjoy the sound of Natasha''s moans as Kolka keeps working her pussy, switching between sucking on her clit and fucking her pussy with his tongue.'
+		'After a few minutes Natasha suddenly grabs his head and keeps it pressed firmly in her pussy.'
+		'"P-Please." She begs him, right before her entire body starts to shake in an intense orgasm.'
+		'"It looks like Kolka earned a reward." You say, looking in Natasha''s eyes.'
+		if natanal = 0:
+			'"Y-Yeah, I''ll try it <<$pcs_nickname>>." She says, still out of breath.'
+		elseif natanal < 5:
+			'"Y-Yeah, he can fuck my ass again." She says, still out of breath.'
+		else
+			'"Y-Yeah, please take my ass again Kolka." She says, still out of breath.'
+		end
+		act 'Anal sex': gt 'natkolkaEv', 'natkolkaanalsex'
+	end
+	if natanal >= 5:
+		act 'Skip straight to anal': gt 'natkolkaEv', 'natkolkaanalsex'
+	end
+end
+
+if $ARGS[0] = 'natkolkaanalsex':
+	act 'Missionary anal':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanalmissionary01.mp4"></center>'
+		'"Move over to the edge of the bed and spread that ass, Natasha." You order her.'
+		if natanal = 0:
+			'"Ok, but please be gentle Kolka. I''ve never done this before." She begs him as she does as you instructed.'
+		elseif natanal < 10:
+			'"Ok, but please be gentle Kolka." She begs him as she does as you instructed.'
+		else
+			'"I want you in my ass, Kolka." She begs him as she does as you instructed.'
+		end
+		'Kolka doesn''t waste any time and presses the tip of his dick against her sphincter.'
+		if natkolkadeal = 1:
+			'"Time for my reward." He tells her as he slowly starts pushing himself into Natasha''s ass.'
+		else
+			'"I love your tight asshole." He tells her as he slowly starts pushing himself into Natasha''s ass.'
+		end
+		if natanal < 5:
+			'The moment his tip pops inside Natasha lets out a groan of pain. "I-It hurts... Aah... I don''t know if I... Please... Gently..." She begs him in pained gasps.'
+		elseif natanal < 10:
+			'The moment his tip pops inside Natasha lets out a groan of mixed pleasure and pain. "Aah... Be gentle with my ass." She begs him.'
+		else
+			'The moment his tip pops inside Natasha lets out a groan of pleasure. "Aah... Please take my ass. I want it." She begs him.'
+		end
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanalmissionary02.mp4"></center>'
+			if natanal = 0:
+				'"I''m going to start moving now Natasha." Kolka says as he slowly pushes deeper into her ass, making her cry out again.'
+				'"Please do it gently. I-It hurts." Natasha pleads again as she uses her hands to keep Kolka from going too deep.'
+				'"Jesus your ass is tight Natasha. You''re nearly crushing me." He pants as he slowly pushes in and out, making her wince and gasp with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing great for your first time."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 4
+			elseif natanal < 5:
+				'"I''m going to start moving now Natasha." Kolka says as he slowly pushes deeper into her ass, making her moan.'
+				'"Ok, just go slow so I can adjust." Natasha pleads again as she uses her hands to keep Kolka from going too deep.'
+				'"Relax your ass. I won''t go too fast." He pants as he slowly pushes in and out, making her gasp with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing a lot better than last time."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 4
+			elseif natanal < 10:
+				'"You like it, don''t you?" Kolka asks as he slowly pushes himself deep into her ass, making her moan.'
+				'"Y-Yeah but don''t go too fast. I need to adjust a bit." Natasha says as she uses her hands to keep Kolka from going too deep.'
+				'"Relax your ass. I won''t go too fast." He pants as he slowly pushes in and out, making her moan with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing great."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 4
+			else
+				'"How much do you want it?" Kolka asks as he slowly pushes himself deep into her ass, making her moan.'
+				'"Y-Yeah i love how you feel in my ass." Natasha says as she uses her hands to keep Kolka from going too deep right away.'
+				'"I love fucking your tight ass Natasha." He pants as he slowly pushes in and out, making her moan with each stroke.'
+				'"Harder, I-I want it harder." She pleads with him.'
+				act 'Continue':
+					*clr & cla
+					'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanalmissionary03.mp4"></center>'
+					'Kolka lifts Natasha''s ass off the bed, giving him better access to her asshole and really starts to pound away, making her cry out for even more.'
+					'The thought of having turned Natasha into a buttslut makes your pussy so wet that you can feel it running down your inner thighs.'
+					'It doesn''t take much of Kolka''s relentless pounding before she starts to shake in orgasm.'
+					'After a few more strokes Kolka says "I''m going to cum."'
+					gt 'kolkacum', 4
+				end
+			end	
+		end
+	end
+	act 'Cowgirl anal':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanalride01.mp4"></center>'
+		'"You''re going to ride him with that ass of yours, Natasha." You order her.'
+		if natanal = 0:
+			'"Ok, but please let me take it slow. I''ve never done this before." She begs as she does as you instructed.'
+		elseif natanal < 10:
+			'"Ok, but please let me take it slow." She begs as she does as you instructed.'
+		else
+			'"I want you in my ass again." She says to Kolka as she does as you instructed.'
+		end
+		if natkolkadeal = 1:
+			'"Time for my reward." He tells her as she slowly starts pushing his dick into her ass.'
+		else
+			'"I love your tight asshole." He tells her as she slowly starts pushing his dick into her ass.'
+		end
+		if natanal < 5:
+			'The moment his tip pops inside Natasha lets out a groan of pain. "I-It hurts... Aah... I don''t know if I..." She begs in pained gasps.'
+			'"Just hold it there Natasha. Give your ass a moment to adjust." You order her.'
+		elseif natanal < 10:
+			'The moment his tip pops inside Natasha lets out a groan of mixed pleasure and pain. "Aah... I have to take this slow." She tells him.'
+			'"Just go slow Natasha. Give your ass a moment to adjust." You order her.'
+		else
+			'The moment his tip pops inside Natasha lets out a groan of pleasure. "Aah... I love it in my ass." She tells him as she takes his dick as deep as she can.'
+		end
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanalride02.mp4"></center>'
+			'"Turn around and put your feed on his knees. Let him fuck your ass." You order Natasha.'
+			'Natasha obediently turns around and slowly puts his dick in her ass again before placing her feet on his knees.'
+			if natanal = 0:
+				'"I''m going to start moving now Natasha." Kolka says as he slowly pushes deeper into her ass, making her cry out again.'
+				'"Please do it gently. I-It hurts." Natasha pleads again.'
+				'"Jesus your ass is thight Natasha. You''re nearly crushing me." He pants as he slowly pushes in and out, making her wince and gasp with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing great for your first time."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 5
+			elseif natanal < 5:
+				'"I''m going to start moving now Natasha." Kolka says as he slowly pushes deeper into her ass, making her moan.'
+				'"Ok, just go slow so I can adjust." Natasha pleads again.'
+				'"Relax your ass. I won''t go too fast." He pants as he slowly pushes in and out, making her gasp with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing a lot better than last time."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 5
+			elseif natanal < 10:
+				'"You like it, don''t you?" Kolka asks as he slowly pushes himself deep into her ass, making her moan.'
+				'"Y-Yeah but don''t go too fast. I need to adjust a bit." Natasha says.'
+				'"Relax your ass. I won''t go too fast." He pants as he slowly pushes in and out, making her moan with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing great."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 5
+			else
+				'"How much do you want it?" Kolka asks as he slowly pushes himself deep into her ass, making her moan.'
+				'"Y-Yeah i love how you feel in my ass." Natasha says.'
+				'"I love fucking your tight ass Natasha." He pants as he slowly pushes in and out, making her moan with each stroke.'
+				'"Harder, I-I want it harder." She pleads with him.'
+				act 'Continue':
+					*clr & cla
+					'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanalride03.mp4"></center>'
+					'Kolka grabs Natasha''s legs and lays her on top of his chest, giving him better access to her asshole and really starts to pound away, making her cry out for even more.'
+					'The thought of having turned Natasha into a buttslut makes your pussy so wet that you can feel it running down your inner thighs.'
+					'It doesn''t take much of Kolka''s relentless pounding before she starts to shake in orgasm.'
+					'After a few more strokes Kolka says "I''m going to cum."'
+					gt 'kolkacum', 5
+				end
+			end	
+		end
+	end
+	act 'Doggystyle anal':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanaldoggy01.mp4"></center>'
+		'"Lie down and spread that ass, Natasha." You order her.'
+		if natanal = 0:
+			'"Ok, but please be gentle Kolka. I''ve never done this before." She begs him as she does as you instructed.'
+		elseif natanal < 10:
+			'"Ok, but please be gentle Kolka." She begs him as she does as you instructed.'
+		else
+			'"I want you in my ass, Kolka." She begs him as she does as you instructed.'
+		end
+		'Kolka doesn''t waste any time and presses the tip of his dick against her sphincter.'
+		if natkolkadeal = 1:
+			'"Time for my reward." He tells her as he slowly starts pushing himself into Natasha''s ass.'
+		else
+			'"I love your tight asshole." He tells her as he slowly starts pushing himself into Natasha''s ass.'
+		end
+		if natanal < 5:
+			'The moment his tip pops inside Natasha lets out a groan of pain. "I-It hurts... Aah... I don''t know if I... Please... Gently..." She begs him in pained gasps.'
+		elseif natanal < 10:
+			'The moment his tip pops inside Natasha lets out a groan of mixed pleasure and pain. "Aah... Be gentle with my ass." She begs him.'
+		else
+			'The moment his tip pops inside Natasha lets out a groan of pleasure. "Aah... Please take my ass. I want it." She begs him.'
+		end
+		act 'Continue':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanaldoggy02.mp4"></center>'
+			'"Get on all fours now Natasha." You order her.'
+			'Natasha obediently gets up on her hands and knees and presents her ass to Kolka, allowing him to insert his dick again.'
+			if natanal = 0:
+				'"I''m going to start moving now Natasha." Kolka says as he slowly pushes deeper into her ass, making her cry out again.'
+				'"Please do it gently. I-It hurts." Natasha pleads again.'
+				'"Jesus your ass is thight Natasha. You''re nearly crushing me." He pants as he slowly pushes in and out, making her wince and gasp with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing great for your first time."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 4
+			elseif natanal < 5:
+				'"I''m going to start moving now Natasha." Kolka says as he slowly pushes deeper into her ass, making her moan.'
+				'"Ok, just go slow so I can adjust." Natasha pleads again.'
+				'"Relax your ass. I won''t go too fast." He pants as he slowly pushes in and out, making her gasp with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing a lot better than last time."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 4
+			elseif natanal < 10:
+				'"You like it, don''t you?" Kolka asks as he slowly pushes himself deep into her ass, making her moan.'
+				'"Y-Yeah but don''t go too fast. I need to adjust a bit." Natasha says.'
+				'"Relax your ass. I won''t go too fast." He pants as he slowly pushes in and out, making her moan with each stroke.'
+				'You sit down on the bed next to Natasha and whisper in her ear. "Keep your asshole relaxed. You''re doing great."'
+				'After a few more minutes of slowly fucking her ass Kolka says "I''m going to cum."'
+				gt 'kolkacum', 4
+			else
+				'"How much do you want it?" Kolka asks as he slowly pushes himself deep into her ass, making her moan.'
+				'"Y-Yeah I love how you feel in my ass." Natasha says.'
+				'"I love fucking your tight ass Natasha." He pants as he slowly pushes in and out, making her moan with each stroke.'
+				'"Harder, I-I want it harder." She pleads with him.'
+				act 'Continue':
+					*clr & cla
+					'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natanaldoggy03.mp4"></center>'
+					'Kolka grabs Natasha by the hips and really starts to pound away, making her cry out for even more.'
+					'The thought of having turned Natasha into a buttslut makes your pussy so wet that you can feel it running down your inner thighs.'
+					'It doesn''t take much of Kolka''s relentless pounding before she starts to shake in orgasm.'
+					'After a few more strokes Kolka says "I''m going to cum."'
+					gt 'kolkacum', 4
+				end
+			end	
+		end
+	end
+end
+	
+if $ARGS[0] = 'kolkacum':
+!! ARGS[1] is used to determine where Kolka can cum.
+!!	0	should be used when there is no vaginal or anal penetration
+!!	1 	if there is vaginal penetration, missionary
+!!	2 	if there is vaginal penetration, cowgirl
+!!	3	if there is vaginal penetration, doggy
+!!	4	if there is anal penetration, missionary
+!!	5 	if there is anal penetration, cowgirl
+!!	6	if there is anal penetration, doggy
+	NatKolkaSex += 1
+	gs 'arousal', 'voyeur', 5, 'dom'
+	gs 'arousal', 'end'
+	gs 'stat'
+	act 'Cum on her face':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natfacial.mp4"></center>'
+		'"Do it on her face."'
+		'Natasha kneels down at Kolka''s feet and jerks his cock over her face rapidly. With a grunt Kolka shoots his cum onto Natasha''s face. By the time he''s done Natasha''s face and chest are covered in the cum that she didn''t manage to catch in her mouth.'
+		'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+		act 'Continue': gt 'natbelapt', 'natroom'
+	end
+	act 'Cum in her mouth':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcummouth.mp4"></center>'
+		'"Cum in her mouth."'
+		'Kolka holds Natasha by the hair as he pistons his cock into her mouth rapidly. Natasha''s chin is covered with her drool and it is dripping down everywhere. With a grunt, Kolka pulls his dick from Natasha''s mouth and she automatically opens her mouth and sticks out her tongue. Kolka pumps his dick a few times then shoots his cum into Natasha''s waiting mouth.'	
+		act 'Swallow':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natswallow2.mp4"></center>'
+			'"Swallow it, slut." You command, when Kolka is done, before Natasha can spit the sperm out.'
+			'Natasha grimaces but complies, swallowing Kolka''s load then opening her mouth to show that it is all gone.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+	end
+	act 'Cum down her throat':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natthroat.mp4"></center>'
+		'"Do it in her throat."'
+		'Natasha, sits down at the side of the bed starts deepthroating his cock rapidly. Natasha''s chin is covered with her drool and it is dripping down everywhere. "Here it comes." He says and Natasha''s forces herself down on his cock as far as she can go while Kolka releases his cum in her. Not a drop escapes her mouth.'
+		'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+		act 'Continue': gt 'natbelapt', 'natroom'
+	end
+	act 'Cum on her tits':
+		*clr & cla
+		'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natfacial.mp4"></center>'
+		'"Jerk him off on your tits Natasha."'
+		'Natasha leans over Kolka''s cock and squeezes her tits together with one hand. With the other she rapidly strokes his cock. With a grunt Kolka shoots his cum onto Natasha''s tits. By the time he''s done Natasha''s chest is covered in cum.'
+		'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+		act 'Continue': gt 'natbelapt', 'natroom'
+	end
+	if ARGS[1] = 1:
+		NatKolkaSex += 1
+		gs 'arousal', 'voyeur', 15, 'dom'
+		gs 'arousal', 'end'
+		gs 'stat'
+		act 'Cum on her belly':
+			*clr & cla
+			if rand(0,9) = 0:
+				natcp += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampiemissionary.mp4"></video></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'You let her pull away from your brother, but it appears Kolka was really close, and before anyone could do anything, your brother pumps his seed in Natasha''s body.'
+				'"Fuck, I really am sorry, Natasha!", he says apologetically. "It is just, you are so hot!"'
+				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
+				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
+				if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
+			else
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcumbelly.mp4"></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'"Cum on her belly."'
+				'With a grunt Kolka''s pulls his cock out of Natasha at the last second and starts jerking it over her pussy, shooting his load all over Natasha''s belly and pussy. By the time he''s done Natasha''s belly is covered in cum, some even reached her tits.'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			end
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+		act 'Cum on her pussy':
+			*clr & cla
+			if rand(0,9) = 0:
+				natcp += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampiemissionary.mp4"></video></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'You let her pull away from your brother, but it appears Kolka was really close, and before anyone could do anything, your brother pumps his seed in Natasha''s body.'
+				'"Fuck, I really am sorry, Natasha!", he says apologetically. "It is just, you are so hot!"'
+				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
+				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
+				if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
+			else
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcumpussy.mp4"></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'"Cum on her pussy."'
+				'With a grunt Kolka''s pulls his cock out of Natasha at the last second and starts jerking it over her pussy, shooting his load all over Natasha''s her pussy. By the time he''s done Natasha''s pussy is covered in cum, some dripping down her ass.'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			end
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+		if natcp > 0:
+			act 'Cum inside':
+				*clr & cla
+				natcp += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampiemissionary.mp4"></video></center>'
+				'"Cum in her pussy Kolka, I want you to paint her insides with your cum."'
+				'With a grunt Kolka''s pushes himself deep in Natasha, shooting his load in her pussy. When he pulls out you can see some of it dripping out of her full pussy.'
+				'Natasha just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
+				act 'Continue': gt 'natbelapt', 'natroom'
+			end		
+		end
+	end
+	if ARGS[1] = 2:
+		NatKolkaSex += 1
+		gs 'arousal', 'voyeur', 15, 'dom'
+		gs 'arousal', 'end'
+		gs 'stat'
+		act 'Cum on her ass':
+			*clr & cla
+			if rand(0,9) = 0:
+				natcp += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampieride.mp4"></video></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'You let her pull away from your brother, but it appears Kolka was really close, and before anyone could do anything, your brother pumps his seed in Natasha''s body.'
+				'"Fuck, I really am sorry, Natasha!", he says apologetically. "It is just, you are so hot!"'
+				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
+				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
+				if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
+			else
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcumride.mp4"></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'"Cum on her ass."'
+				'With a grunt Kolka''s pulls his cock out of Natasha''s pussy at the last second and starts jerking it over her ass, shooting his load all over Natasha''s ass.  By the time he''s done Natasha''s ass is covered in cum, some even reached lower back.'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			end
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+		if natcp > 0:
+			act 'Cum inside':
+				*clr & cla
+				natcp += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampieride.mp4"></video></center>'
+				'"Cum in her pussy Kolka, I want you to paint her insides with your cum."'
+				'As if on command Kolka starts shooting his load in her pussy. When he pulls out you can see some of it dripping out of her full pussy.'
+				'Natasha just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
+				act 'Continue': gt 'natbelapt', 'natroom'
+			end
+		end
+	end
+	if ARGS[1] = 3:
+		NatKolkaSex += 1
+		gs 'arousal', 'voyeur', 15, 'dom'
+		gs 'arousal', 'end'
+		gs 'stat'
+		act 'Cum on her ass':
+			*clr & cla
+			if rand(0,9) = 0:
+				natcp += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampiedoggy.mp4"></video></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'You let her pull away from your brother, but it appears Kolka was really close, and before anyone could do anything, your brother pumps his seed in Natasha''s body.'
+				'"Fuck, I really am sorry, Natasha!", he says apologetically. "It is just, you are so hot!"'
+				'Natasha doesn''t even listen to him, just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
+				'You quietly signal your brother to dress up and leave while you kiss her deeply. "I hope you enjoyed it, pet. We may repeat it."'
+				if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
+			else
+				'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcumassdoggy.mp4"></center>'
+				'After a few more minutes Kolka says "I''m going to cum."'
+				gs 'natbelEv', 'natcumresponse'
+				'"Cum on her ass."'
+				'With a grunt Kolka''s pulls his cock out of Natasha''s pussy at the last second and starts jerking it over her ass, shooting his load all over Natasha''s ass  By the time he''s done Natasha''s ass is covered in cum, some even reached her lower back.'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			end
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+		if natcp > 0:
+			act 'Cum inside':
+				*clr & cla
+				natcp += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natcreampieride.mp4"></video></center>'
+				'"Cum in her pussy Kolka, I want you to paint her insides with your cum."'
+				'As if on command Kolka starts shooting his load in her pussy. When he pulls out you can see some of it dripping out of her full pussy.'
+				'Natasha just looks at you with a strange expression on her face. You can''t really decide whether she is scared that Kolka came in her pussy, or enjoyed it. Maybe both at the same time?'
+				'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+				if rand(1,100) >= 95 and natpregday = 0:natpregday = daystart
+				act 'Continue': gt 'natbelapt', 'natroom'
+			end
+		end
+	end
+	
+	if ARGS[1] = 4:
+		natanal += 1
+		NatKolkaSex += 1
+		gs 'arousal', 'voyeur', 15, 'dom'
+		gs 'arousal', 'end'
+		gs 'stat'
+		
+		act 'Cum on her pussy':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcumpussy.mp4"></center>'
+			'After a few more minutes Kolka says "I''m going to cum."'
+			'"Cum on her pussy."'
+			'With a grunt Kolka''s pulls his cock out of Natasha at the last second and starts jerking it over her pussy, shooting his load all over Natasha''s her pussy. By the time he''s done Natasha''s pussy is covered in cum, some dripping down her ass.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+		act 'Cum inside':
+			*clr & cla
+			'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natanalcreampiemissionary.mp4"></video></center>'
+			'"Cum in her ass Kolka, I want you to paint her intestines with your cum."'
+			'As if on command Kolka starts shooting his load in her ass. After a second he takes his dick out and shoots the rest of his load on her asshole.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+	end
+	
+	if ARGS[1] = 5:
+		natanal += 1
+		NatKolkaSex += 1
+		gs 'arousal', 'voyeur', 15, 'dom'
+		gs 'arousal', 'end'
+		gs 'stat'
+		
+		act 'Cum inside':
+			*clr & cla
+			'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natanalcreampieride.mp4"></video></center>'
+			'"Cum in her ass Kolka, I want you to paint her intestines with your cum."'
+			'As if on command Kolka starts shooting his load in her ass. When he pulls out, Natasha rolls off him and you can see some of it dripping out of her full asshole.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+	end
+		
+	if ARGS[1] = 6:
+		natanal += 1
+		NatKolkaSex += 1
+		gs 'arousal', 'voyeur', 15, 'dom'
+		gs 'arousal', 'end'
+		gs 'stat'
+		
+		act 'Cum on her ass':
+			*clr & cla
+			'<center><video <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natcumassdoggy.mp4"></center>'
+			'After a few more minutes Kolka says "I''m going to cum."'
+			'"Cum on her ass."'
+			'With a grunt Kolka''s pulls his cock out of Natasha''s ass at the last second and starts jerking it, shooting his load all over Natasha''s ass  By the time he''s done Natasha''s ass is covered in cum, some even reached her lower back.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+		act 'Cum inside':
+			*clr & cla
+			'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/natasha/sex/natanalcreampiedoggy.mp4"></video></center>'
+			'"Cum in her ass Kolka, I want you to paint her intestines with your cum."'
+			'As if on command Kolka starts shooting his load in her ass. When he pulls out you can see some of it dripping out of her full ass.'
+			'He pushes his dick back into her ass a few more times. Each time he takes it out his cum seeps out as well.'
+			'"That''s all for today Kolka. You can get dressed. I have a few things I want to discuss with Natasha."'
+			act 'Continue': gt 'natbelapt', 'natroom'
+		end
+	end
+end
+
+!! Catching Natasha and Kolka in the shower
+if $ARGS[0] = 'showerspy':
+	menu_off = 1
+	CLOSE ALL
+		
+	$metka = 'bathroom'
+	$loc = 'natbelapt'
+	$metkaM = 'bathroom'
+	$locM = 'natbelapt'
+	gs 'stat'
+	$location_type = 'bathroom'
+	
+	*clr & cla
+	'<center><img src="images/characters/pavlovsk/school/girl/natasha/sex/natkolkashowerbj1.jpg"></center>'
+	'You open the bathroom door as quietly as you can and peer through the crack to see Natasha on her knees sucking Kolka off under the shower.'
+	gs 'arousal', 'voyeur', 5
+ 	if NatashaQW >= 5:
+		act 'Get a closer look':
+			*clr & cla
+			'<center><img src="images/characters/pavlovsk/school/girl/natasha/sex/natkolkashowerbj2.jpg"></center>'
+			'Wanting to get a better look you step into the bathroom and close the door behind you.'
+			'They''re so absorbed in eachother that they don''t even notice your entry.'
+			'"Taking private lessons Kolka?" You say with a grin on your face.'
+			'At the sound of your voice they both startle visibly. Natasha''s face instantly turns crimson.'
+			'"Don''t stop on my account. I love watching you guys get eachother off."'
+			gs 'arousal', 'voyeur', 5
+			act 'Make Kolka to fuck her':
+				*clr & cla
+				'<center><img src="images/characters/pavlovsk/school/girl/natasha/sex/natshowerfuck.jpg"></center>'
+				'"It looks like Natasha needs a dick in her pussy. Give her what she wants Kolka."'
+				'Obedience seems to be well trained into Natasha by now as she immediately gets up and offers her pussy to Kolka.'
+				'Kolka doesn''t waste any time and immediately plunges his full length inside her, making her moan loudly. He starts to move gently at first but Natasha almost immediately starts begging him: "Please fuck me hard and fast Kolka. Yes... Like that... Keep going."'
+				'The bathroom is suddenly filled with the sounds of Natasha''s moaning and flesh smacking against flesh.'
+				'It doesn''t take long before Natasha''s moaning turns into pleading again, "Please... Yes... Almost..." before her legs start trembling in Kolka''s arms.'
+				'You squirm a bit yourself as you watch Natasha having what looks to be one hell of an orgasm.'
+				'It seems to take her forever to stop cumming, but eventually she just can''t stay on her feet any longer and sinks down to the floor. Kolka looks like he''s on the edge himself.'
+				gs 'arousal', 'voyeur', 20
+				minut -= 15
+				gs 'stat'
+				act 'Cum on her face':
+					*clr & cla
+					'<center><img src="images/characters/pavlovsk/school/girl/natasha/sex/natshowercum.jpg"></center>'
+					'"Looks like you did her in Kolka." You say. "Come lie down here Natasha and let him cum on your face."'
+					'She looks dazed as she crawls out of the shower and lies down on her back. Kolka follows her out and straddles her chest. He immediately starts jerking off furiously over her face.'
+					'"Open your mouth. Here it comes." He tells her and seconds after that he starts shooting his cum into her mouth and over her face.'
+					'By the time he''s done cumming Natasha''s mouth is overflowing and half of her face is covered in cum.'
+					'"A true cumshower. Fitting." You say, unable to hold in your laughter. "Well Kolka, looks like it''s time for you to get going. I''ll help her get to her feet."'
+					'Kolka quickly gets dressed before he slips out of the bathroom. After he''s gone you pull Natasha to her feet and help her over to the sink to clean up.'
+					gs 'arousal', 'voyeur', 5
+					act 'Go to Natasha''s room': gt 'natbelapt','natroom'
+				end
+			end
+		end
+	else
+		'Not wanting to intrude any further you decide to leave them be and close the door again.'
+		act 'Leave': gt 'natbelapt','hallway'
+	end	
+end
+
+!! Threesome with Natasha, Kolka and Sveta coming once I have enough images/mp4s
+
+
+--- natkolEv ---------------------------------

locations/npcstatic4.qsrc

@@ -379,26 +379,7 @@ $npc_selfie['A<<npctemp>>'] = '<a href="exec:numnpc = 165 & gt ''phone_selfies''
 
 
 npctemp = 166
-gs 'npcstaticdefaults', 'defaults'
-$npc_dna['A<<npctemp>>'] = '3081104871 3359076800 3939413889 3911496040 3098487725 3546780075 3860974284'
-$npc_firstname['A<<npctemp>>'] = 'Rex'
-$npc_nickname['A<<npctemp>>'] = 'Rex'
-$npc_lastname['A<<npctemp>>'] = 'The Dog'
-$npc_usedname['A<<npctemp>>'] = 'Rex, Sonia''s dog'
-$npc_notes['A<<npctemp>>'] = 'Sonia''s dog'
-npc_cyc['A<<npctemp>>'] = -1
-npc_fert['A<<npctemp>>'] = -1
-$npc_firstpart['A<<npctemp>>'] = 'U'
-$npc_lastpart['A<<npctemp>>'] = 'U'
-$npc_kidpater['A<<npctemp>>'] = 'N'
-npc_gender['A<<npctemp>>'] = 0
-$npc_thdick['A<<npctemp>>'] = 'knotted'
-npc_dick['A<<npctemp>>'] = 0
-npc_spermpot['A<<npctemp>>'] = -1
-npc_vag['A<<npctemp>>'] = -1
-npc_hymen['A<<npctemp>>'] = -1
-npc_nips['A<<npctemp>>'] = 1
-
+!!RIP Rex
 
 npctemp = 167
 gs 'npcstaticdefaults', 'defaults'

locations/obj_din.qsrc

@@ -1489,85 +1489,55 @@ if $ARGS[0] = 'magic':
 		'You have <<pcs_manna>> units of manna available to you.'
 		!!' Forces Rikudo available to you <<rikudo>> units'
 		*nl
-		if spelltuman > 0 or spellklon > 0 or spellstun > 0 or spellweap > 0 or spellwind > 0 or spellklon2 > 0 or spellenergo > 0 or spellinit > 0 or spellhel > 0:'<b>Base Spells:</b>'
-		if spelltuman > 0:'<br>Cover area in fog, a great way to conceal yourself while attacking the enemy and increase the chance to dodge attacks (cost 10 units of manna)'
-		
-		if spellklon > 0:'<br>Swap aces with a clone of yourself, good way to avoid enemy attacks and make enemy waste their power (cost 15 units of manna)'
-		
-		if spellstun > 0:'<br>Stun, a great way to stop the enemy. They will not be able to defend or attack. ( cost 20 units of manna)'
-		
-		if spellweap > 0 and weapon > 0:'<br>Infuse weapon with energy'
-		
-		if spellwind > 0:'<br>Blow away the fog, dissipates any mist over the battlefield.'
-		
-		if spellklon2 > 0:'<br>Substitute yourself with 3 clones, the enemy will not be able to get to you, until they destroy all of your clones. (cost 45 units of manna)'
-		
-		if spellenergo > 0:'<br>Create a weak energy shield, protecting you against all attacks of the physical nature, even if the enemy attack exceeds the capabilities of the shield and destroys it, you will still be protected from damage(cost 50 units of manna)'
-		
-		if spellinit > 0:'<br>Create a slight delay of time, a powerful spell that allows you to move faster, steal initiative and increase the probability of hitting (cost 60 units of manna)'
-		
-		if spellhel > 0:'<br>Battle Heal, restores or adds 400 Health units in exchange for 400 units of manna.'
-		
-		if stihia = 1:'<br><b>Elemental Spells Fire:</b>'
-		
-		if spellfire1 = 1:'<br>Flame. Deals little damage. (Cost 10 manna)'
-		
-		if spellfire2 = 1:'<br>The release of fire. It causes great damage. (Cost 100 manna)'
-		
-		if spellfire3 = 1:'<br>Fire Barrier, It creates a shield with strength of 750 units. (Cost 150 manna)'
-		
-		if spellfire4 = 1:'<br>Firestorm. It causes great damage, difficult to dodge. (Cost 250 manna)'
-		
-		if spellfire5 = 1:'<br>Flame Shield, It creates a shield with strength of 2500 units. (Cost 500 manna)'
-		
-		if stihia = 2:'<br><b>Elements Lightning Spells:</b>'
-		
-		if spellele1 = 1:'<br>Zap. Deals very little damage. (Cost 10 manna)'
-		
-		if spellele2 = 1:'<br>Lightning. Inflicts above average damage. (Cost 100 manna)'
-		
-		if spellele3 = 1:'<br>Electric barrier, It creates a shield with strength of 1500 units. (Cost 150 manna)'
-		
-		if spellele4 = 1:'<br>Dance of thousand birds. Deals very high damage. (Cost 250 manna)'
-		
-		if spellele5 = 1:'<br>Dancing Sphere, It creates a shield with strength of 5000 units. (Cost 500 manna)'
-		
-		if stihia = 3:'<br><b>Spells Earth Elements:</b>'
-		
-		if spellert1 = 1:'<br>Quicksand, immobilizes the opponent in the quicksand trap and causes little damage. (Cost 10 manna)'
-		
-		if spellert2 = 1:'<br>Active protection, It creates a protective sphere of land, Gain 2500 units of health and mana, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. (Cost 100 manna)'
-		
-		if spellert3 = 1:'<br>Abyss, rend earth asunder beneath their feet inflicting high damage to the enemy and depriving him of the ability to move. (Cost 150 manna)'
-		
-		if spellert4 = 1:'<br>Absolute protection, It creates a huge protective sphere of land, which regenerates itself every turn and attacks the enemy. (Cost 250 manna)'
-		
-		if spellert5 = 1:'<br>Sando, two huge ates come out of the earth and crush the enemy inflicting huge damage and depriving them of the ability to move. Cost 500 manna.'
-		
-		if stihia = 4:'<br><b>Wind Elemental Spells:</b>'
-		
-		if spellwind1 = 1:'<br>Wind gust, It causes very little damage but destroys clones and fog, very difficult to dodge. (Cost 10 manna)'
-		
-		if spellwind2 = 1:'<br>The horrific pressure, causing moderate damage and destroying clones and fog, very difficult to dodge. (Cost 100 manna)'
-		
-		if spellwind3 = 1:'<br>Vacuum Sphere, It creates a shield with strength of 1500 units. (Cost 150 manna)'
-		
-		if spellwind4 = 1:'<br>Vacuum shells, high damage and kills clones and fog, very difficult to dodge. (Cost 250 manna)'
-		
-		if spellwind5 = 1:'<br>Devouring vacuum, sucks enemy shield destroying whatever strength it had left. (Cost 500 manna)'
-		
-		if stihia = 5:'<br><b>Water Elemental Spell:</b>'
-		
-		if spellwater1 = 1:'<br>Drain mana, It causes very little damage and absorbs a lot of mana. Cost 10 manna.'
-		
-		if spellwater2 = 1:'<br>Flood, causes moderate damage and absorbs large amount of mana. Cost 100 manna.'
-		
-		if spellwater3 = 1:'<br>Blister, It creates a protective sphere of water with strength of 1500 units against all impacts, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. (Cost 150 manna)'
-		
-		if spellwater4 = 1:'<br>Water shark rocket, causes great damage and absorbs a lot of mana. Cost 250 manna.'
-		
-		if spellwater5 = 1:'<br>The Great Flood, It creates a huge sphere that absorbs water and drains opponents mana, passing it to strengthen protection. Cost 500 manna.'
-		
+
+		$SpellListStr = "<center>
+			<table>
+				<tr>
+					<th>Spell</th>
+					<th>Mana</th>
+					<th>Description</th>
+				</tr>"
+		i = 0
+		:ObDinSpellLoop
+		$ThisSpellName = $combatSpells[i]
+		if i < arrsize('$combatSpells'):
+			if spellKnown[$ThisSpellName] = 1:
+				$SpellListStr = $SpellListStr + " 
+				<tr>
+					<td><<$spellName[$ThisSpellName]>></td>
+					<td><<spellMana[$ThisSpellName]>></td>
+					<td><<$spellDesc[$ThisSpellName]>></td>
+				</tr>"
+			end
+			i += 1
+			jump 'ObDinSpellLoop'
+		end
+		i = 0
+		:ObDinSpellLoop2
+		$ThisSpellName = $nonComSpells[i]
+		if i < arrsize('$nonComSpells'):
+			if spellKnown[$ThisSpellName] = 1:
+				$SpellListStr = $SpellListStr + " 
+				<tr>
+					<td><<$spellName[$ThisSpellName]>></td>
+					<td><<spellMana[$ThisSpellName]>></td>
+					<td><<$spellDesc[$ThisSpellName]>></td>
+				</tr>"
+			end
+			i += 1
+			jump 'ObDinSpellLoop2'
+		end
+
+		$SpellListStr = $SpellListStr + " 
+			</table>
+		</center>"
+
+		$SpellListStr
+
+		killvar 'i'
+		killvar '$ThisSpellName'
+		killvar '$SpellListStr'
+
 	end
 
 	if succubusflag = 1 and sucpcinfo >= 4 and sucskill >= 1:

locations/pavComplex.qsrc

@@ -42,7 +42,7 @@ if $ARGS[0] = 'start':
 		end
 	end
 
-	if StoryLine > 0 and hour < 4 and motherWorry = 0 and SchoolAtestat = 0 and age < 18 and home_owned[2] = 1: motherWorry = 1
+	if StoryLine > 0 and hour < 5 and motherWorry = 0 and SchoolAtestat = 0 and age < 18 and home_owned[2] = 1: motherWorry = 1
 
 	if  ((minut + 60*(hour+daystart*24) - pavcomplexevent_time) > 60) or ((daystart+1)*1440 < pavcomplexevent_time):
 		pavcomplexevent_time = minut + 60*(hour+daystart*24)

locations/pavComplexb3.qsrc

@@ -97,7 +97,7 @@ if $ARGS[0] = 'etaj_4':
 	act 'Go up to the fifth floor': minut +=1 & gt 'pavComplexb3','etaj_5'
 	if seenAd = 0:
 		gt 'pavSharedApt', 'advertNo30'
-	else:
+	else
 		act 'Apartment 30: Shared apartment': gt 'pavSharedApt', 'doorNo30'
 	end
 	act 'Take the elevator': gt 'pavComplexb3','lift','etaj_4'

locations/pavResidential.qsrc

@@ -88,8 +88,6 @@ if AlbFaterBlackTime > 0 and AlbFaterBlackTime <= totminut and hour >= 14 and Al
 
 if hour >= 14 and hour <= 22 and AlbFather = 2 and AlbZaDay + 30 < daystart and year > 2015: gt 'AlbStarsEnd'
 
-if hour < 4 and motherWorry = 0 and SchoolAtestat = 0 and age < 18 and home_owned[2] = 1: motherWorry = 1
-
 if rand(1, 5) >= 4 and pav_slut >= 75:
 	if pav_slut < 100:
 		'<br>You catch people staring at you intently, as if they''re supposed to know who you are but can''t quite remember why. You sincerely hope they don''t realize your promiscuous adventures are the reason why. The occasional person chuckling and pointing at you crushes those hopes, and you quickly keep walking before they get a chance to say anything.'
@@ -108,7 +106,11 @@ if fedorKozlovQW >= 20 and FedorKozHome = 1 or fedorKozlovQW = -15 and FedorKozH
 
 if hour >= 8 and hour <= 22:'<br>At the end of the street, there''s a small <a href="exec:$locM = ''pavResidential'' & gt ''kiosk'', ''start''">kiosk</a> selling a variety of items such as cigarettes, magazines, snacks, drinks and even themes for your phone.'
 
-$schoolname = 'the <a href="exec: minut += 2 & gt ''gschool_grounds'', ''main''">local school</a>.'
+if StoryLine > 0:
+	$schoolname = 'the <a href="exec: minut += 2 & gt ''gschool_grounds'', ''main''">local school</a>.'
+else
+	$schoolname = 'the local school.'
+end	
 
 '<br>In the center of Pavlovsk is the town square, which features the popular <a href="exec: minut += 2 & gt ''gdk''">community center</a>, a hotspot for the local teenagers to hangout at after a long day at <<$schoolname>></b> Connected to the town center is the old palace grounds which have now been turned into a large <a href="exec:minut += 5 & gt ''gskver'', ''start''">public park</a>. With the <a href="exec: minut += 5 & gt ''glake''">lake</a> nearby, the area can get quite busy, especially during the summer and winter when people can swim or skate at the lake.'
 

locations/pavcomplexrolan.qsrc

@@ -114,8 +114,7 @@ if month >=3 and month =< 11:
 					act 'Look':gt 'pavComplexrolan', 'spy'
 				end
 				act 'Move away':gt 'pavComplex', 'start'
-		
-			else:
+			else
 				cla & *clr
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/feeding.jpg"></center>'
 				'You hide after a tree to look what Rolan is doing. "oh crap, but how old he is that feeds little birds and post photos of himself feeding them"'

locations/phone_selfies.qsrc

@@ -9,12 +9,12 @@ if $ARGS[0] = 'selfies':
 	clovar = 1
 	undvar = 1
 	nudvar = 1
+	swimvar = 0
 	bathvar = 0
 	showervar = 0
-	
-	!!This variable will switch to bikini for beach selfies
-	$undname = 'underwear'
-	$undnamecap = 'Underwear'
+	titflashvar = 1
+	assflashvar = 1
+	pussyflashvar = 1
 	
 	'<center><h4><font color="maroon">Photo library</font></h4></center>'
 	*nl
@@ -56,19 +56,34 @@ if $ARGS[0] = 'listretrieve':
 			temp_clocnt += 1
 		if temp_clocnt <= temp_total: jump'temp_loop'
 	end
+	
+	!!Loop for swimwear selfies, dynamics set variables as mixing them in loop instructions is bad
+	if swimvar = 1:
+		'<center><b>Swimwear selfies</b></center>'
+		*nl
+		temp_clocnt = 1
+		dynamic 'temp_loop1 = <<$phone_loc>>_swimloop'
+		dynamic 'temp_total = <<$phone_loc>>_swim'
+		:temp_loop1
+			!!setting value to unmixed variable so it can be checked in the if below
+			dynamic '$phone_locval = <<$phone_loc>>_swim[<<temp_clocnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/bikini/<<temp_clocnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/bikini/<<temp_clocnt>>.jpg"     height="150" /></a>  '
+			temp_clocnt += 1
+		if temp_clocnt <= temp_total: jump'temp_loop1'
+	end
 		
 	!!loop for underwear selfies
 	if undvar = 1:
-		'<center><b><<$undnamecap>> selfies</b></center>'
+		'<center><b>Underwear selfies</b></center>'
 		*nl
 		temp_undcnt = 1
-		dynamic 'temp_loop1 = <<$phone_loc>>_undloop'
+		dynamic 'temp_loop2 = <<$phone_loc>>_undloop'
 		dynamic 'temp_total = <<$phone_loc>>_undtot'
-		:temp_loop1
+		:temp_loop2
 			dynamic '$phone_locval = <<$phone_loc>>_undselfie[<<temp_undcnt>>]'
-			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/<<$undname>>/<<temp_undcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/<<$undname>>/<<temp_undcnt>>.jpg"     height="150" /></a>  '
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/underwear/<<temp_undcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/underwear/<<temp_undcnt>>.jpg"     height="150" /></a>  '
 			temp_undcnt += 1
-		if temp_undcnt <= temp_total: jump'temp_loop1'
+		if temp_undcnt <= temp_total: jump'temp_loop2'
 	end
 
 	!!loop for nude selfies
@@ -76,13 +91,13 @@ if $ARGS[0] = 'listretrieve':
 		'<center><b>Nude selfies</b></center>'
 		*nl
 		temp_nudcnt = 1
-		dynamic 'temp_loop2 = <<$phone_loc>>_nudloop'
+		dynamic 'temp_loop3 = <<$phone_loc>>_nudloop'
 		dynamic 'temp_total = <<$phone_loc>>_nudtot'
-		:temp_loop2
+		:temp_loop3
 			dynamic '$phone_locval = <<$phone_loc>>_nudselfie[<<temp_nudcnt>>]'
 			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/nude/<<temp_nudcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/nude/<<temp_nudcnt>>.jpg"     height="150" /></a>  '
 			temp_nudcnt += 1
-		if temp_nudcnt <= temp_total: jump'temp_loop2'
+		if temp_nudcnt <= temp_total: jump'temp_loop3'
 	end
 	
 	!!loop for bath selfies
@@ -90,13 +105,13 @@ if $ARGS[0] = 'listretrieve':
 		'<center><b>Bath selfies</b></center>'
 		*nl
 		temp_bathcnt = 1
-		dynamic 'temp_loop2 = <<$phone_loc>>_bathloop'
+		dynamic 'temp_loop4 = <<$phone_loc>>_bathloop'
 		dynamic 'temp_total = <<$phone_loc>>_bathtot'
-		:temp_loop3
+		:temp_loop4
 			dynamic '$phone_locval = <<$phone_loc>>_bathselfie[<<temp_bathcnt>>]'
 			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/bath/<<temp_bathcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/bath/<<temp_bathcnt>>.jpg"     height="150" /></a>  '
 			temp_bathcnt += 1
-		if temp_bathcnt <= temp_total: jump'temp_loop3'
+		if temp_bathcnt <= temp_total: jump'temp_loop4'
 	end
 	
 	!!loop for shower selfies
@@ -104,13 +119,55 @@ if $ARGS[0] = 'listretrieve':
 		'<center><b>Shower selfies</b></center>'
 		*nl
 		temp_showercnt = 1
-		dynamic 'temp_loop2 = <<$phone_loc>>_showerloop'
+		dynamic 'temp_loop5 = <<$phone_loc>>_showerloop'
 		dynamic 'temp_total = <<$phone_loc>>_showertot'
-		:temp_loop4
+		:temp_loop5
 			dynamic '$phone_locval = <<$phone_loc>>_showerselfie[<<temp_showercnt>>]'
 			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/shower/<<temp_showercnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/shower/<<temp_showercnt>>.jpg"     height="150" /></a>  '
 			temp_showercnt += 1
-		if temp_showercnt <= temp_total: jump'temp_loop4'
+		if temp_showercnt <= temp_total: jump'temp_loop5'
+	end
+	
+	!!loop for flashing tits selfies
+	if titflashvar = 1:
+		'<center><b>Flashing tits selfies</b></center>'
+		*nl
+		temp_flashtitscnt = 1
+		dynamic 'temp_loop6 = <<$phone_loc>>_titflashloop'
+		dynamic 'temp_total = <<$phone_loc>>_titflash'
+		:temp_loop6
+			dynamic '$phone_locval = <<$phone_loc>>_titflash[<<temp_flashtitscnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/titflash/<<temp_flashtitscnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/titflash/<<temp_flashtitscnt>>.jpg"     height="150" /></a>  '
+			temp_flashtitscnt += 1
+		if temp_flashtitscnt <= temp_total: jump'temp_loop6'
+	end
+	
+	!!loop for flashing ass selfies
+	if assflashvar = 1:
+		'<center><b>Flashing ass selfies</b></center>'
+		*nl
+		temp_flashasscnt = 1
+		dynamic 'temp_loop7 = <<$phone_loc>>_assflashloop'
+		dynamic 'temp_total = <<$phone_loc>>_assflash'
+		:temp_loop7
+			dynamic '$phone_locval = <<$phone_loc>>_assflash[<<temp_flashasscnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/assflash/<<temp_flashasscnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/assflash/<<temp_flashasscnt>>.jpg"     height="150" /></a>  '
+			temp_flashasscnt += 1
+		if temp_flashasscnt <= temp_total: jump'temp_loop7'
+	end
+	
+	!!loop for flashing pussy selfies
+	if pussyflashvar = 1:
+		'<center><b>Flashing pussy selfies</b></center>'
+		*nl
+		temp_flashpussycnt = 1
+		dynamic 'temp_loop8 = <<$phone_loc>>_pussyflashloop'
+		dynamic 'temp_total = <<$phone_loc>>_pussyflash'
+		:temp_loop8
+			dynamic '$phone_locval = <<$phone_loc>>_pussyflash[<<temp_flashpussycnt>>]'
+			if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/pussyflash/<<temp_flashpussycnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/pussyflash/<<temp_flashpussycnt>>.jpg"     height="150" /></a>  '
+			temp_flashpussycnt += 1
+		if temp_flashpussycnt <= temp_total: jump'temp_loop8'
 	end
 end
 
@@ -739,8 +796,8 @@ if $ARGS[0] = 'beach':
 	'<center><h4><font color="maroon">Beach selfies</font></h4></center>'
 	$phone_loc = 'beach'
 	clovar = 0
-	$undname = 'bikini'
-	$undnamecap = 'Bikini'
+	undvar = 0
+	swimvar = 1
 	*nl
 	gs 'phone_selfies', 'listretrieve'
 		

locations/podrsex.qsrc

@@ -51,7 +51,7 @@ if $ARGS[0] = 'suck':
 
 	if pdsxbj = 0: pdsxbj = 1
 
-	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/minet<<picrand>>.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/minet<<picrand>>.jpg"></center>'
 	'You look the other girl deep in the eyes while the two of you suck the man''s cock, touching her tongue with yours when you reach it around his shaft. Then the two of you take turns sucking him off enthusiastically, while the other licks his balls.'
 	
 	gs 'arousal', 'bj', 10, 'sub', 'group'
@@ -69,7 +69,7 @@ if $ARGS[0] = 'suck':
 	if sexvar > 0:xgt 'podrsex', 'var'
 	if sexvar = 0:
 		*clr
-		'<br><center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/cum<<picrand>>.jpg"></center>'
+		'<br><center><img <<$set_imgh>> src="images/locations/shared/sex/pod/cum<<picrand>>.jpg"></center>'
 		spafinloc = 12
 		gs 'cum_manage'
 		gs 'podrsex', 'end'
@@ -88,7 +88,7 @@ if $ARGS[0] = 'pussy':
 	
 	if pdsxsex = 0: pdsxsex = 1
 
-	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/uvag<<picrand>>.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/uvag<<picrand>>.jpg"></center>'
 	'The man eagerly penetrates your pussy, and begins to thrust his length inside you over and over bringing you pleasure.'
 	
 	gs 'arousal', 'vaginal', 10, 'sub', 'group'
@@ -118,7 +118,7 @@ if $ARGS[0] = 'ass':
 
 	if pdsxanal = 0: pdsxanal = 1
 
-	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/uanal<<picrand>>.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/uanal<<picrand>>.jpg"></center>'
 	'The man slowly works the tip of his cock inside your ass, and halts for a moment so you can get used to the sensation. Then he begins to thrust his length inside you, fucking you more and more intensely with less regard for your feelings and more for his own pleasure.'
 	
 	gs 'arousal', 'anal', 10, 'sub', 'group'
@@ -155,7 +155,7 @@ if $ARGS[0] = 'voy':
 	end
 	if rand(0,1) = 0:
 		pos = 4
-		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/vag<<picrand>>.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/vag<<picrand>>.jpg"></center>'
 		'While the other girl is enjoying getting her pussy fucked, you find that she''ll do whatever you want her to do. She eagerly licks your pussy when you put it on her mouth, and lap up her sweet juices while the guy rams his cock inside her repeatedly.'
 		
 		gs 'arousal', 'cuni', 10, 'lesbian', 'dom', 'group'
@@ -163,7 +163,7 @@ if $ARGS[0] = 'voy':
 		
 	else
 		pos = 5
-		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/anal<<picrand>>.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/anal<<picrand>>.jpg"></center>'
 		'While the other girl is enjoying getting her ass fucked, you find that she''ll do whatever you want her to do. She eagerly licks your pussy when you put it on her mouth, and lap up her sweet juices while the guy rams his cock inside her repeatedly.'
 	
 		gs 'arousal', 'cuni', 10, 'lesbian', 'dom', 'group'

locations/saveupdater.qsrc

@@ -411,5 +411,44 @@ if arrsize('$bodimgsets') = 30:
 	$bodimgsets[39] = 'default_preg'
 end
 
+!! reorganizes old spell variables into new arrrays
+if spell_update ! 1:
+	spell_update = 1
+
+	if spelltuman = 1:spellKnown['fog'] = 1
+	if spellklon = 1:spellKnown['clone'] = 1
+	if spellstun = 1:spellKnown['stun'] = 1
+	if spellweap = 1:spellKnown['weapon'] = 1
+	if spellwind = 1:spellKnown['wind'] = 1
+	if spellklon2 = 1:spellKnown['multiclone'] = 1
+	if spellinit = 1:spellKnown['haste'] = 1
+	if spellhel = 1:spellKnown['heal'] = 1
+	if spellfire0 = 1:spellKnown['scaldingtouch'] = 1
+	if spellfire2 = 1:spellKnown['burninghands'] = 1
+	if spellfire3 = 1:spellKnown['firebarrier'] = 1
+	if spellfire4 = 1:spellKnown['firestorm'] = 1
+	if spellfire5 = 1:spellKnown['flameshield'] = 1
+	if spellele0 = 1:spellKnown['shock'] = 1
+	if spellele2 = 1:spellKnown['lightning'] = 1
+	if spellele3 = 1:spellKnown['electricbarrier'] = 1
+	if spellele4 = 1:spellKnown['1000birds'] = 1
+	if spellele5 = 1:spellKnown['dancingsphere'] = 1
+	if spellert0 = 1:spellKnown['quicksand'] = 1
+	if spellert2 = 1:spellKnown['earthshield'] = 1
+	if spellert3 = 1:spellKnown['abyss'] = 1
+	if spellert4 = 1:spellKnown['earthguardian'] = 1
+	if spellert5 = 1:spellKnown['sando'] = 1
+	if spellwind0 = 1:spellKnown['windgust'] = 1
+	if spellwind2 = 1:spellKnown['pressure'] = 1
+	if spellwind3 = 1:spellKnown['vacuum'] = 1
+	if spellwind4 = 1:spellKnown['vacuumshells'] = 1
+	if spellwind5 = 1:spellKnown['devouringvacuum'] = 1
+	if spellwater0 = 1:spellKnown['leechmana'] = 1
+	if spellwater2 = 1:spellKnown['flood'] = 1
+	if spellwater3 = 1:spellKnown['blister'] = 1
+	if spellwater4 = 1:spellKnown['sharkrockets'] = 1
+	if spellwater5 = 1:spellKnown['greatflood'] = 1
+end
+
 --- saveupdater ---------------------------------
 

locations/spell.qsrc

@@ -1,5 +1,60 @@
-
 # spell
+! This Location contains the meat of what each spell does to the PC, NPCs, and the environment. Mana costs are handled elsewhere.
+! This location should not be called directly.  Should only be called through the "castSpell" location.
+!	$ARGS[0] = the name of the spell being cast
+!	$ARGS[1] = Spell Success value
+!		2  = Critical Success	-> You can make something extra specail happen
+!		1  = Success			-> Normal spell effects
+!		0  = Failure			-> Spell doesn''t work, probably just fizzles out
+!		-1 = Critical Failure	-> Spell backfires.  Something bad (not terrible) should happen
+!	$ARGS[n >= 2] = Any extra parameters needed by the spell
+
+SuccessValue = $ARGS[1]
+
+"Spell='<<$ARGS[0]>>' SuccessValue=<<SuccessValue>>"
+
+if $ARGS[0] = 'teleport':
+	! Do the stuff of a Teleport
+	!	ARGS[1] = Success/Failure level
+	!	ARGS[2] = the Target Location
+
+	$NewLocation = $ARGS[2]
+
+	:RandLocLoop
+	$randomLoc = $tpLocations[rand(0,arrsize($tpLocations) - 1)]
+	if $randomLoc = $NewLocation or $randomLoc = $EntryPoint:
+		jump 'RandLocLoop'
+	end
+
+	if SuccessValue > 0:
+		*nl
+		"The blur you see just outside the ring seems to shift."
+		wait 1000
+		if $treeCircArg[$NewLocation] = "":
+			gt $treeCircLoc[$NewLocation]
+		else
+			gt $treeCircLoc[$NewLocation], $treeCircArg[$NewLocation]
+		end
+	elseif SuccessValue < 0:
+		*nl
+		"The blur you see just outside the ring seems to shift.  Something did not go right!"
+		wait 1000
+		if $treeCircArg[$randomLoc] = "":
+			gt $treeCircLoc[$randomLoc]
+		else
+			gt $treeCircLoc[$randomLoc], $treeCircArg[$randomLoc]
+		end
+	else
+		'You feel drained, but the energy fizzles out and nothing happens'
+	end
+
+	killvar '$randomLoc'
+	killvar '$NewLocation'
+
+	result = ""
+
+end
+
 if $ARGS[0] = 'reset':
 	cla
 	!Create mist
@@ -45,521 +100,328 @@ if $ARGS[0] = 'unmat':
 	end
 end
 
-if $ARGS[0] = 'tuman':
-	cla
-	!Create mist
+if $ARGS[0] = 'fog':
+	! tuman  = the amount of fog around you making you harder to hit
+	! tumanV = the amount of fog around your opponent making him harder to hit
 	if tumanV > 0:
-		'It is not possible to impose your fog on an existing fog opponent.'
-	elseif tumanV <= 0:
-		'Create a fog on the battlefield, closing review of the enemy. Cost 10 manna.'
-
-		act 'Create mist (10 manna)':
-			cla
-			*clr
-			pcs_manna -= 10
-			tuman = tuman + 10
-			gt'fight','sta'
+		'It is not possible to call your fog when an existing opponent is already fogged.'
+	else
+		if SuccessValue > 0:
+			tuman += (10 * SuccessValue)
+			'<b><font color = green>A Fog materializes around, obscuring you from your enemies.</font></b>'
+		elseif SuccessValue < 0:
+			tumanV += 10
+			'<b><font color = red>The spell backfires! A Fog materializes around your enemy, obscuring him from your view.</font></b>'
+		else
+			'<b>The spell fizzles.  Nothing seems to happen.</b>'
 		end
 	end
-
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
 end
 
-if $ARGS[0] = 'klon':
-	cla
-	'You can create an exact clone of your copying, and themselves to slip out of sight of the enemy. Cost 15 manna 1 clone.'
-
-	act 'Create a clone':
-		cla
-		*clr
-		pcs_manna -= 15
-		klon = klon + 1
-		gt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'clone':
+	! klon = the number of clones that the enemy must destroy before hitting you
+	if SuccessValue > 0:
+		klon += SuccessValue
+		'<b><font color = green><<SuccessValue>> clone<<iif(SuccessValue>1,"s","")>> of you springs from you confusing the enemy.</font></b>'
+	elseif SuccessValue < 0 and klon > 0:
+		klon -= 1
+		'<b><font color = red>The spell backfires! One of your clones disappears.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
 if $ARGS[0] = 'stun':
-	cla
-	'You need to touch the enemy, then he will be paralyzed. Cost 20 manna.'
-
-	act 'Paralytic stroke':
-		cla
-		*clr
-		pcs_manna -= 20
+	! stunner = 1 stuns the enemy for 3-6 rounds
+	if SuccessValue > 0:
 		stunner = 1
-		xgt'atak','player'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>Your enemy is stunned.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atak','player'
 end
 
-if $ARGS[0] = 'weap':
-	cla
-	'You can put the magical power of a weapon increasing its damage. Cost 20 manna.'
-
-	act 'Attach energy':
-		cla
-		*clr
-		pcs_manna -= 20
-		magweapbonus = weapbonus*4
-		xgt'atak','player'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'weapon':
+	if SuccessValue > 0:
+		magweapbonus = weapbonus * 4 * SuccessValue
+		'<b><font color = green>Your Weapon now feels more powerful.</font></b>'
+	elseif SuccessValue < 0:
+		magweapbonus = weapbonus * -1
+		'<b><font color = red>The spell backfires! Your weapon seems weaker.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atak','player'
 end
 
 if $ARGS[0] = 'wind':
-	cla
-	'Corrupts the wind, that would blow away the fog. Cost 40 manna.'
-
-	act 'Apply':
-		cla
-		*clr
-		pcs_manna -= 40
+	! tuman  = the amount of fog around you making you harder to hit
+	! tumanV = the amount of fog around your opponent making him harder to hit
+	if SuccessValue = 2:
+		tumanV = 0
+		'<b><font color = green>A wind blows through the area eliminating your enemys fog from the battlefield.</font></b>'
+	elseif SuccessValue = 1:
 		tumanV = 0
 		tuman = 0
-
-		'<b><font color = green>You sent against the wind on the battlefield and destroy the fog.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
-end
-
-if $ARGS[0] = 'klon2':
-	cla
-	'You can create three clones have exactly copying, and themselves to slip out of sight of the enemy. Cost 45 manna 3 clone.'
-
-	act 'Create clones':
-		cla
-		*clr
-		pcs_manna -= 45
-		klon = klon + 3
-		gt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>A wind blows through the area eliminating all fog on the battlefield.</font></b>'
+	elseif SuccessValue = -1:
+		tuman = 0
+		'<b><font color = red>A wind blows through the area eliminating your fog from the battlefield.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+end
+
+if $ARGS[0] = 'multiclone':
+	! klon = the number of clones that the enemy must destroy before hitting you
+	if SuccessValue > 0:
+		klon += SuccessValue * 3
+		'<b><font color = green><<SuccessValue * 3>> clone<<iif(SuccessValue>1,"s","")>> of you springs from you confusing the enemy.</font></b>'
+	elseif SuccessValue < 0 and klon > 0:
+		if klon < 3:
+			klon = 0
+		else
+			klon -= 3
+		end
+		'<b><font color = red>The spell backfires! Some of your clones disappear.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
 if $ARGS[0] = 'energo':
-	cla
-	'You can create an energy shield to protect against attacks on health. 100 protection units worth 50 manna.'
-
-	act 'Create energy shield':
-		cla
-		*clr
-		pcs_manna -= 50
-		defence = defence + 100
-
-		'<b><font color = green>You have imposed energy shield, now you <<defence>> protection units.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+	! defence = absorbs damage before health begins to be removed
+	if SuccessValue > 0:
+		defence += (100 * SuccessValue)
+		'<b><font color = green>An energy shield materializes around you, protecting you from your enemies.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 100
+		'<b><font color = red>The spell backfires! An energy shield materializes around your enemy, protecting him from you.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'init':
-	cla
-	'You can create a slight delay of time, To get the advantage of speed of reaction and to seize the initiative. Costs 60 manna.'
-
-	act 'Create slowdown':
-		cla
-		*clr
-		pcs_manna -= 60
-		initBonus = 120
-
-		'<b><font color = green>You put the manna in the intensification of reaction.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'haste':
+	if SuccessValue > 0:
+		initBonus += (120 * SuccessValue)
+		'<b><font color = green>Your mind and body seem to race though a sluggish world.</font></b>'
+	elseif SuccessValue < 0:
+		initBonusV += 120
+		'<b><font color = red>The spell backfires! Your enemy seems to move faster.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'hel':
-	cla
-	!Create mist
-	'Cure or add yourself 400 health units. Cost 400 manna.'
-
-	act 'Dermatologic (400 manna)':
-		cla
-		*clr
-		pcs_manna -= 400
-		pcs_health += 400
-
-		'<b><font color = green>You put the manna in the acceleration of the recovery processes in the body.</font></b>'
-
-		gt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'heal':
+	if SuccessValue > 0:
+		pcs_health += (400 * SuccessValue)
+		'<b><font color = green>Your body surges with life. You feel much stronger.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
 if $ARGS[0] = 'hand':
-	cla
-	!Create mist
-	'Striking hand increases damage 10 just one attack. Cost 100 manna.'
-
-	act 'Smashing palm (100 manna)':
-		cla
-		*clr
-		pcs_manna -= 100
-		strenK = pcs_stren*20/100
+	if SuccessValue > 0:
+		strenK = pcs_stren*20*SuccessValue/100
 		magweapbonus = RAND(pcs_stren*10 - strenK,pcs_stren*10 + strenK)
-
-		'<b><font color = green>You put the manna in the hand to apply the devastating impact.</font></b>'
-
-		xgt'atak','player'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>Your hands now feel more powerful.</font></b>'
+	elseif SuccessValue < 0:
+		strenK = pcs_stren*20/100
+		magweapbonus = 0 - RAND(pcs_stren*10 - strenK,pcs_stren*10 + strenK)
+		'<b><font color = red>The spell backfires! Your hands seem weaker.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atak','player'
 end
 
-if $ARGS[0] = 'fire1':
-	cla
-	!Create mist
-	'Flame. Cost 10 manna.'
-
-	act 'Flame (10 manna)':
-		cla
-		*clr
-		pcs_manna -= 10
-		damTip = 250
-
-		'<b><font color = green>You have created a torrent of flames escaping from your hand.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'scaldingtouch':
+	if SuccessValue > 0:
+		damTip = 250 * SuccessValue
+		'<b><font color = green>Flames spring from your hands.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'fire2':
-	cla
-	!Create mist
-	'The release of fire. Cost 100 manna.'
-
-	act 'The release of fire (100 manna)':
-		cla
-		*clr
-		pcs_manna -= 100
-		damTip = 2500
-
-		'<b><font color = green>You have created a huge flow of flames escaping from your hand.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'burninghands':
+	if SuccessValue > 0:
+		damTip = 2500 * SuccessValue
+		'<b><font color = green>A torrent of flames jets from your hands.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'fire3':
-	cla
-	!Create mist
-	'Fire Barrier, It creates a shield 750 units. Cost 150 manna.'
-
-	act 'Fire Barrier (150 manna)':
-		cla
-		*clr
-		pcs_manna -= 150
-		defence = defence + 750
-
-		'<b><font color = green>You have created around him fire barrier, now you <<defence>> protection units.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'firebarrier':
+	if SuccessValue > 0:
+		defence += (750 * SuccessValue)
+		'<b><font color = green>A flaming barrier has sprung up between you and your opponent. You now have <<defence>> protection units.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 750
+		'<b><font color = red>The spell backfires! A flaming barrier has sprung up between you and your opponent. Your enemy now has <<defence>> protection units.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'fire4':
-	cla
-	!Create mist
-	'Firestorm. Cost 250 manna.'
-
-	act 'Firestorm (250 manna)':
-		cla
-		*clr
-		pcs_manna -= 250
-		damTip = 6250
+if $ARGS[0] = 'firestorm':
+	if SuccessValue > 0:
+		damTip = 4250 + (2000 * SuccessValue)
 		bonusSh = 100
-
-		'<b><font color = green>The air around you overheat and catch fire, a sea of ​​fire struck the enemy.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>Uncountable glowing embers steak down upon your foes.</font></b>'
+	elseif SuccessValue < 0:
+		damTip = 2000
+		pcs_health -= 200
+		bonusSh = 100
+		'<b><font color = red>The spell backfires! Uncountable glowing embers steak down upon the battlefield burning everyone.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'fire5':
-	cla
-	!Create mist
-	'Flame Shield, It creates a shield 2500 units. Cost 500 manna.'
-
-	act 'Flame Shield (500 manna)':
-		cla
-		*clr
-		pcs_manna -= 500
-		defence = defence + 2500
-
-		'<b><font color = green>You''ve created a wall of fire around it absorbs damage, now you <<defence>> protection units.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'flameshield':
+	if SuccessValue > 0:
+		defence += (2500 * SuccessValue)
+		'<b><font color = green>A Shield made of Flames interposes itself between you and your enemy. You now have <<defence>> protection units.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 2500
+		'<b><font color = red>The spell backfires! A Shield made of Flames interposes itself between you and your enemy. Your enemy now has <<defence>> protection units.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'ele1':
-	cla
-	!Create mist
-	'Electric Shock. Cost 10 manna.'
-
-	act 'Electric Shock (10 manna)':
-		cla
-		*clr
-		pcs_manna -= 10
-		damTip = 150
+if $ARGS[0] = 'shock':
+	if SuccessValue > 0:
+		damTip = (150 * SuccessValue)
 		eleSh = 1
-
-		'<b><font color = green>You have created an electric discharge escaping from your hand.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>You build a static electric charge in your hand and zap your opponent.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 50
+		'<b><font color = red>The spell backfires! You manage to zap yourself with a static charge.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'ele2':
-	cla
-	!Create mist
-	'Lightning. Cost 100 manna.'
-
-	act 'Lightning (100 manna)':
-		cla
-		*clr
-		pcs_manna -= 100
-		damTip = 1500
+if $ARGS[0] = 'lightning':
+	if SuccessValue > 0:
+		damTip = (1500 * SuccessValue)
 		eleSh = 1
-
-		'<b><font color = green>You have created a lightning shot rattled out of your hand.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>You shoot a lightning bolt from your hand zapping your opponent.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 300
+		'<b><font color = red>The spell backfires! You manage to zap yourself with lightning.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'ele3':
-	cla
-	!Create mist
-	'Electric barrier, It creates a shield 1500 units. Cost 150 manna.'
-
-	act 'Electric barrier (150 manna)':
-		cla
-		*clr
-		pcs_manna -= 150
-		defence = defence + 1500
-
-		'<b><font color = green>You''ve created a wall around yourself of dancing lightning, now you have <<defence>> protection units.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'electricbarrier':
+	if SuccessValue > 0:
+		defence += (1500 * SuccessValue)
+		'<b><font color = green>A wall of dancing lightning springs up around yourself. You now have <<defence>> protection units.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 1500
+		'<b><font color = red>The spell backfires! A wall of dancing lightning springs up around your enemy. Your enemy now has <<defence>> protection units.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'ele4':
-	cla
-	!Create mist
-	'Dance of a thousand birds. Cost 250 manna.'
-
-	act 'Dance of a thousand birds (250 manna)':
-		cla
-		*clr
-		pcs_manna -= 250
-		damTip = 3750
+if $ARGS[0] = '1000birds':
+	if SuccessValue > 0:
+		damTip = 2750 + (1000 * SuccessValue)
 		bonusSh = 30
 		eleSh = 1
-
-		'<b><font color = green>You have collected the manna in the hand and around your palm danced lightning leaping through the air with shrieks.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>You shoot hundreds of small lightning bolts toward your enemy.</font></b>'
+	elseif SuccessValue < 0:
+		damTip = 2000
+		pcs_health -= 200
+		bonusSh = 30
+		eleSh = 1
+		'<b><font color = red>The spell backfires! Hundreds of small lightning bolts curl toward the battlefield shocking everyone.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'ele5':
-	cla
-	!Create mist
-	'Dancing Sphere, It creates a shield 5000 units. Cost 500 manna.'
-
-	act 'Dancing Sphere (500 manna)':
-		cla
-		*clr
-		pcs_manna -= 500
-		defence = defence + 5000
-
-		'<b><font color = green>You have created around him a large field of lightning dancing, now you <<defence>> protection units.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+if $ARGS[0] = 'dancingsphere':
+	if SuccessValue > 0:
+		defence += (5000 * SuccessValue)
+		'<b><font color = green>A large field of lightning dances around you blocking attacks. You now have <<defence>> protection units.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 5000
+		'<b><font color = red>The spell backfires! A large field of lightning dances around you blocking attacks. Your enemy now has <<defence>> protection units.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'ert1':
-	cla
-	!Create mist
-	'Quicksand, catches the opponent in the quicksand trap and inflicts 100 units. Cost 10 manna.'
-
-	act 'Quicksand (10 manna)':
-		cla
-		*clr
-		pcs_manna -= 10
+if $ARGS[0] = 'quicksand':
+	if SuccessValue > 0:
+		damTip = 100 * SuccessValue
+		eleSh = 5
+		'<b><font color = green>You have trapped your opponent in quicksand.</font></b>'
+	elseif SuccessValue < 0:
 		damTip = 100
+		pcs_health -= 50
 		eleSh = 5
-
-		'<b><font color = green>You have created a tightening opponent quicksand.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = red>The spell backfires! You are both trapped in quicksand.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'ert2':
-	cla
-	!Create mist
-	'Active protection, It creates a protective sphere of land, Cham 2500 Units of protection of health and mana, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. Cost 100 manna.'
-
-	act 'Active protection (100 manna)':
-		cla
-		*clr
-		pcs_manna -= 100
-		defence = defence + 2500
-		defenceM = defenceM + 2500
+if $ARGS[0] = 'earthshield':
+	if SuccessValue > 0:
+		defence += 1500 + (1000 * SuccessValue)
+		defenceM += 2500
 		defenceActPar = 1000
 		defenceActParM = 1000
 		defenceAct = 10
 		defenceActM = 10
-
-		'<b><font color = green>Earth is surrounded by you, giving you protection.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>Tendrils of Earth rise to defend you. You now have <<defence>> protection units.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 2500
+		'<b><font color = red>The spell backfires! Tendrils of Earth rise to defend your enemy. Your enemy now has <<defence>> protection units.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'ert3':
-	cla
-	!Create mist
-	'Abyss, earth asunder under their feet the enemy inflicting damage 1500 units, and depriving him of the ability to move. Cost 150 manna.'
-
-	act 'Quicksand (150 manna)':
-		cla
-		*clr
-		pcs_manna -= 150
+if $ARGS[0] = 'abyss':
+	if SuccessValue > 0:
+		damTip = 1500 * SuccessValue
+		eleSh = 5
+		'<b><font color = green>The Earth opens up beneath your opponents feet, slamming shut damaging him and depriving him of the ability to move.</font></b>'
+	elseif SuccessValue < 0:
 		damTip = 1500
+		pcs_health -= 200
 		eleSh = 5
-
-		'<b><font color = green>You are the earth under the feet of the enemy.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = red>The spell backfires! The Earth opens up beneath your opponents feet, slamming shut damaging him and depriving him of the ability to move.  You are also caught.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'ert4':
-	cla
-	!Create mist
-	'Absolute protection, It creates a huge protective sphere of land, which regenerates itself every turn attacks the enemy. Cost 250 manna.'
-
-	act 'Absolute protection (250 manna)':
-		cla
-		*clr
-		pcs_manna -= 250
-		defence = defence + 6250
-		defenceM = defenceM + 6250
-		defenceW = defenceW + 6250
+if $ARGS[0] = 'earthguardian':
+	if SuccessValue > 0:
+		defence += 5200 + (2000 * SuccessValue)
+		defenceM += 6250
+		defenceW += 6250
 		defenceActPar = 1000
 		defenceActParM = 1000
 		defenceActParW = 1000
@@ -567,301 +429,207 @@ if $ARGS[0] = 'ert4':
 		defenceActM = 15
 		defenceActW = 15
 		defAtk = 15
-
-		'<b><font color = green>Earth is surrounded by you, giving you protection.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>The Earth itself comes alive defending you from attacks.  It draws from the power of the land to regenerate itself every round. You now have <<defence>> protection units.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 2500
+		'<b><font color = red>The spell backfires! Tendrils of Earth rise to defend your enemy. Your enemy now has <<defence>> protection units.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'ert5':
-	cla
-	!Create mist
-	'Sando, two huge plates come out of the collapse of the earth and crushing the enemy inflicting damage 5000 units, and depriving him of the ability to move. Cost 500 manna.'
-
-	act 'Sando (500 manna)':
-		cla
-		*clr
-		pcs_manna -= 500
-		damTip = 5000
+if $ARGS[0] = 'sando':
+	if SuccessValue > 0:
+		damTip = 3000 + (2000 * SuccessValue)
 		bonusSh = 50
 		eleSh = 5
-
-		'<b><font color = green>Two huge plate with a roar came from the earth and imploded.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>Two huge plates of earth colapse together crushing the enemy and depriving him of the ability to move.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 200
+		'<b><font color = red>The spell backfires! Two huge plates of earth colapse together with crushing force, but the enemy is missed and you are instead caught.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'wind1':
-	cla
-	!Create mist
-	'Wind gust, inflicts 100 Units kills clones and fog, very difficult to dodge. Cost 10 manna.'
-
-	act 'Wind gust (10 manna)':
-		cla
-		*clr
-		pcs_manna -= 10
-		damTip = 100
+if $ARGS[0] = 'windgust':
+	if SuccessValue > 0:
+		damTip = 100 * SuccessValue
 		bonusSh = 50
-
 		'<b><font color = green>You have created a gust of wind.</font></b>'
-		if klonV > 0:klonV = 0 & '<b><font color = green>Clone the enemy turned into steam.</font></b>'
-		if tumanV > 0:tumanV = 0 & '<b><font color = green>Fog enemy torn to shreds by the wind.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
-end
-
-if $ARGS[0] = 'wind2':
-	cla
-	!Create mist
-	'The horrific pressure, inflicts 1000 Units kills clones and fog, very difficult to dodge. Cost 100 manna.'
-
-	act 'The horrific pressure (100 manna)':
-		cla
-		*clr
-		pcs_manna -= 100
-		damTip = 1000
+		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
+		if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 50
+		'<b><font color = red>The spell backfires! You have created a gust of wind, but the enemy is missed and you are instead caught.</font></b>'
+		if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
+		if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+	xgt'atakA','atak'
+end
+
+if $ARGS[0] = 'pressure':
+	if SuccessValue > 0:
+		damTip = 1000 * SuccessValue
 		bonusSh = 100
-
 		'<b><font color = green>You dramatically raised the air pressure.</font></b>'
-		if klonV > 0:klonV = 0 & '<b><font color = green>Clone the enemy broke and turned into steam.</font></b>'
-		if tumanV > 0:tumanV = 0 & '<b><font color = green>Fog enemy torn to shreds pressure.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
-end
-
-if $ARGS[0] = 'wind3':
-	cla
-	!Create mist
-	'Vacuum Sphere, It creates a shield 1500 units. Cost 150 manna.'
-
-	act 'Vacuum Sphere (150 manna)':
-		cla
-		*clr
-		pcs_manna -= 150
-		defence = defence + 1500
-
-		'<b><font color = green>You have created around themselves the vacuum, now you <<defence>> protection units.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
-end
-
-if $ARGS[0] = 'wind4':
-	cla
-	!Create mist
-	'Vacuum shells, cause damage 2500 Units kills clones and fog, very difficult to dodge. Cost 250 manna.'
-
-	act 'Vacuum shells (250 manna)':
-		cla
-		*clr
-		pcs_manna -= 250
-		damTip = 2500
+		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
+		if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 200
+		'<b><font color = red>The spell backfires! You dramatically raised the air pressure, but the enemy is missed and you are instead caught.</font></b>'
+		if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
+		if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+	xgt'atakA','atak'
+end
+
+if $ARGS[0] = 'vacuum':
+	if SuccessValue > 0:
+		defence += (1500 * SuccessValue)
+		'<b><font color = green>A turbulent sphere of vacuum surrounds you blocking incoming attacks. You now have <<defence>> protection units.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 1500
+		'<b><font color = red>The spell backfires! A turbulent sphere of vacuum surrounds your enemy blocking your attacks. Your enemy now has <<defence>> protection units.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+end
+
+if $ARGS[0] = 'vacuumshells':
+	if SuccessValue > 0:
+		damTip = 2500 * SuccessValue
 		bonusSh = 100
-
-		'<b><font color = green>You have created around him a lot of areas, and they vacuum at high speed with a whistle flew over the battlefield.</font></b>'
-		if klonV > 0:klonV = 0 & '<b><font color = green>Clone the enemy broke and turned into steam.</font></b>'
-		if tumanV > 0:tumanV = 0 & '<b><font color = green>Fog enemy torn to shreds pressure.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
-end
-
-if $ARGS[0] = 'wind5':
-	cla
-	!Create mist
-	'Devouring vacuum, sucks shield enemy destroying it whatever strength he was not. Cost 500 manna.'
-
-	if defenceV > 0:
-		act 'Devouring vacuum (500 manna)':
-			cla
-			*clr
-			pcs_manna -= 500
-			defenceV = 0
-			defenceMV = 0
-			defenceWV = 0
-			defenceActParV = 0
-			defenceActParMV = 0
-			defenceActV = 0
-			defenceActMV = 0
-			defAtkMV = 0
-
-			'<b><font color = green>You have created around themselves the vacuum that sucked in the defense of the enemy to destroy it.</font></b>'
-
-			xgt'fight','sta'
-		end
-	elseif defenceV <= 0:
-		'The enemy is not a shield that can break this spell.'
-	end
-
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
-end
-
-if $ARGS[0] = 'water1':
-	cla
-	!Create mist
-	'Leech manna, inflicts 100 units Absorbs 1000 units of manna. Cost 10 manna.'
-
-	act 'Leech manna (10 manna)':
-		cla
-		*clr
-		pcs_manna -= 10
-		damTip = 100
+		'<b><font color = green>Turbulent spheres of vacuum bombard your enemy. The air is full of whistling sounds as the spheres fly by at high speeds over the battlefield.</font></b>'
+		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
+		if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 200
+		'<b><font color = red>The spell backfires! Turbulent spheres of vacuum bombard your enemy. The air is full of whistling sounds as the spheres fly by at high speeds over the battlefield, but the enemy is missed and you are instead caught.</font></b>'
+		if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
+		if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+	xgt'atakA','atak'
+end
+
+if $ARGS[0] = 'devouringvacuum':
+	if SuccessValue > 0:
+		defenceV = 0
+		defenceMV = 0
+		defenceWV = 0
+		defenceActParV = 0
+		defenceActParMV = 0
+		defenceActV = 0
+		defenceActMV = 0
+		defAtkMV = 0
+		'<b><font color = green>A devouring vacuum sucks away your enemys defenses.</font></b>'
+	elseif SuccessValue < 0:
+		defence = 0
+		defenceM = 0
+		defenceW = 0
+		defenceActPar = 0
+		defenceActParM = 0
+		defenceAct = 0
+		defenceActM = 0
+		defAtkM = 0
+		'<b><font color = red>The spell backfires! A devouring vacuum sucks away your defenses.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+end
+
+if $ARGS[0] = 'leechmana':
+	if SuccessValue > 0:
+		damTip = 100 * SuccessValue
 		damTipM = 1000
-
-		'<b><font color = green>You have created in your hand a small stream of water that shoots into the enemy.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>You leech mana from your enemy.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 50
+		'<b><font color = red>The spell backfires! Ouch!</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'water2':
-	cla
-	!Create mist
-	'Flooding, inflicts 1000 units Absorbs 500 units of manna. Cost 100 manna.'
-
-	act 'Flooding (100 manna)':
-		cla
-		*clr
-		pcs_manna -= 100
-		damTip = 1000
+if $ARGS[0] = 'flood':
+	if SuccessValue > 0:
+		damTip = 1000 * SuccessValue
 		damTipM = 500
-
-		'<b><font color = green>From your mouth a flood of water flooded district.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>A surge of water rises towards your enemy.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 100
+		'<b><font color = red>The spell backfires! A surge of water rises towards your enemy, but missed and hits you.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
+	xgt'atakA','atak'
 end
 
-if $ARGS[0] = 'water3':
-	cla
-	!Create mist
-	'Blister, It creates a protective sphere of water 1500 Units of protection against all impacts, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. Cost 150 manna.'
-
-	act 'Blister (150 manna)':
-		cla
-		*clr
-		pcs_manna -= 150
-		defence = defence + 1500
-		defenceM = defenceM + 1500
-		defenceW = defenceW + 1500
+if $ARGS[0] = 'blister':
+	if SuccessValue > 0:
+		defence += 1500
+		defenceM += 1500
+		defenceW += 1500
 		defenceActPar = 500
 		defenceActParM = 500
 		defenceAct = 10
 		defenceActM = 10
-
-		'<b><font color = green>Water creates the scope of protection around you.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+		'<b><font color = green>A protective sphere of water surrounds you.</font></b>'
+	elseif SuccessValue < 0:
+		defenceV += 1500
+		'<b><font color = red>The spell backfires! A protective sphere of water surrounds your enemy.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
-if $ARGS[0] = 'water4':
-	cla
-	!Create mist
-	'Water shark rocket, inflicts 1500 units Absorbs 2500 units of manna. Cost 250 manna.'
-
-	act 'Water shark rocket (250 manna)':
-		cla
-		*clr
-		pcs_manna -= 250
-		damTip = 1500
+if $ARGS[0] = 'sharkrockets':
+	if SuccessValue > 0:
+		damTip = 1500 * SuccessValue
 		damTipM = 2500
 		bonusSh = 50
-
-		'<b><font color = green>You released a pack of sharks consisting of water flying towards the enemy like a torpedo.</font></b>'
-		if klonV > 0:klonV = 0 & '<b><font color = green>Clones enemy disappeared.</font></b>'
-
-		xgt'atakA','atak'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
-	end
-end
-
-if $ARGS[0] = 'water5':
-	cla
-	!Create mist
-	'The Great Flood, It creates a huge sphere that absorbs water and pumping opponent manna from it and passing it to strengthen protection. Cost 500 manna.'
-
-	act 'The Great Flood (500 manna)':
-		cla
-		*clr
-		pcs_manna -= 500
-		defence = defence + 5000
-		defenceM = defenceM + 5000
-		defenceW = defenceW + 5000
+		'<b><font color = green>Blobs of Water shaped like sharks fly towards your enemy stiking them.</font></b>'
+		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are eliminated.</font></b>'
+	elseif SuccessValue < 0:
+		pcs_health -= 100
+		'<b><font color = red>The spell backfires! Blobs of Water shaped like sharks fly towards your enemy, but missed and hits you.</font></b>'
+		if klon > 0:klon = 0 & '<b><font color = green>Your clones are eliminated.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+	xgt'atakA','atak'
+end
+
+if $ARGS[0] = 'greatflood':
+	if SuccessValue > 0:
+		defence += 5000
+		defenceM += 5000
+		defenceW += 5000
 		defenceActPar = 500
 		defenceActParM = 500
 		defenceAct = 10
 		defenceActM = 10
 		defAtkM = 10
-
-		'<b><font color = green>You have filled the whole neighborhood with water protecting you and devours enemy mana.</font></b>'
+		'<b><font color = green>You have filled the whole neighborhood with water protecting you and devouring enemy mana.</font></b>'
 		if klonV > 0:klonV = 0 & '<b><font color = green>Clones enemy disappeared.</font></b>'
-
-		xgt'fight','sta'
-	end
-	act 'Physical attacks':gt'boxing'
-
-	if pcs_magik > 0:
-		act 'Magic attacks':gt'magik'
+	elseif SuccessValue < 0:
+		defenceV += 1500
+		'<b><font color = red>The spell backfires! A huge flood of water surrounds your enemy protecting him.</font></b>'
+		if klon > 0:klon = 0 & '<b><font color = green>Clones enemy disappeared.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
 end
 
+
+killvar 'SuccessValue'
 --- spell ---------------------------------
 

locations/spellList.qsrc

@@ -0,0 +1,392 @@
+#spellList
+! Information pertaining to PC for each spell
+!	spellKnown['spellname'] = 1 if the spell is known by the player
+!	spellLearn['spellname'] = 0-100, percentage of study that has occured to learn this spell. 100+ will learn it.
+!
+! MetaData for Each Spell
+!	spellMana['spellname'] = Mana cost to cast this spell
+!	spellTime['spellname'] = How much time will pass in the casting of the spell
+!	spellDiff['spellname'] = Difficulty to learn and cast this spell
+!	$spellName['spellname'] = Pretty name for the spell
+!	$sellDesc['spellname'] = Description of what the spell does.
+!
+! There are also defined lists of spells grouped together
+!	$combatSpells = Spells that can be used in Combat
+!	$nonComSpells = Non-Combat Spells, ones that can be executed in any location.
+!	$basicSpells = basic spells that are taught by Tatiana
+!	$fireSpells = Fire-based spells
+!	$electSpells = Electricity based spells
+!	$earthSpells = Earth magic spells
+!	$airSpells = Air based spells
+!	$waterSpells = Water based spells
+!
+! To create a new spell, fill out the meta-data as listed above, then create a matching section in the "spell" location for it
+
+
+!teleport
+spellMana['teleport'] = 1000
+spellTime['teleport'] = 20
+spellDiff['teleport'] = 20
+$spellName['teleport'] = "Teleport"
+$spellDesc['teleport'] = "You can move from one Fairy Circle to another."
+!glamour
+spellMana['glamour'] = 500
+spellTime['glamour'] = 1
+spellDiff['glamour'] = 30
+$spellName['teleport'] = "Glamour"
+$spellDesc['teleport'] = "Change your appearance."
+!bodymod
+spellMana['bodymod'] = 40
+spellTime['bodymod'] = 30
+spellDiff['bodymod'] = 0
+$spellName['bodymod'] = "Body Modification"
+$spellDesc['bodymod'] = "Change your appearance."
+
+!fog
+spellMana['fog'] = 10
+spellTime['fog'] = 0
+spellDiff['fog'] = 1
+$spellName['fog'] = "Fog"
+$spellDesc['fog'] = "Create a fog on the battlefield, obscuring the view of the enemy."
+!clone
+spellMana['clone'] = 15
+spellTime['clone'] = 0
+spellDiff['clone'] = 1
+$spellName['clone'] = "Create Clone"
+$spellDesc['clone'] = "You can create an exact clone of yourself, and slip out of sight of the enemy."
+!stun
+spellMana['stun'] = 20
+spellTime['stun'] = 0
+spellDiff['stun'] = 2
+$spellName['stun'] = "Stun"
+$spellDesc['stun'] = "Paralyze the enemy with a touch."
+!weapon
+spellMana['weapon'] = 20
+spellTime['weapon'] = 0
+spellDiff['weapon'] = 0
+$spellName['weapon'] = "Empower Weapon"
+$spellDesc['weapon'] = "Magically power a weapon causing greater damage."
+!wind
+spellMana['wind'] = 40
+spellTime['wind'] = 0
+spellDiff['wind'] = 2
+$spellName['wind'] = "Gust of Wind"
+$spellDesc['wind'] = "Summon a gust of wind that will clear away fog."
+!multiclone
+spellMana['multiclone'] = 45
+spellTime['multiclone'] = 0
+spellDiff['multiclone'] = 2
+$spellName['multiclone'] = "Multi-Clone"
+$spellDesc['multiclone'] = "Summon three clones of yourself and slip out of the enemys sight."
+!energo
+spellMana['energo'] = 50
+spellTime['energo'] = 0
+spellDiff['energo'] = 3
+$spellName['energo'] = "Energy Shield"
+$spellDesc['energo'] = "Create an energy shield to absorb incoming damage.  You gain 100 defense."
+!haste
+spellMana['haste'] = 60
+spellTime['haste'] = 0
+spellDiff['haste'] = 3
+$spellName['haste'] = "Haste"
+$spellDesc['haste'] = "Hasten your passage through time to gain reaction speed to seize the initiative."
+!heal
+spellMana['heal'] = 400
+spellTime['heal'] = 0
+spellDiff['heal'] = 4
+$spellName['heal'] = "Heal"
+$spellDesc['heal'] = "Exchange mana for health, healing your wounds and fortifying your body."
+!hand
+spellMana['hand'] = 100
+spellTime['hand'] = 0
+spellDiff['hand'] = 0
+$spellName['hand'] = "Quivering Palm"
+$spellDesc['hand'] = "Add energy from your mana to your hand for a devistating strike."
+!scaldingtouch
+spellMana['scaldingtouch'] = 10
+spellTime['scaldingtouch'] = 0
+spellDiff['scaldingtouch'] = 6
+$spellName['scaldingtouch'] = "Scalding Touch"
+$spellDesc['scaldingtouch'] = "Flames spring from your hands."
+!burninghands
+spellMana['burninghands'] = 100
+spellTime['burninghands'] = 0
+spellDiff['burninghands'] = 7
+$spellName['burninghands'] = "Burning Hands"
+$spellDesc['burninghands'] = "A torrent of flames jets from your hands."
+!firebarrier
+spellMana['firebarrier'] = 150
+spellTime['firebarrier'] = 0
+spellDiff['firebarrier'] = 8
+$spellName['firebarrier'] = "Fire Barrier"
+$spellDesc['firebarrier'] = "You are shielded by a wall of flames.  Adds 750 defense."
+!firestorm
+spellMana['firestorm'] = 250
+spellTime['firestorm'] = 0
+spellDiff['firestorm'] = 9
+$spellName['firestorm'] = "Fire Storm"
+$spellDesc['firestorm'] = "Super heated embers rain down upon your enemies."
+!flameshield
+spellMana['flameshield'] = 500
+spellTime['flameshield'] = 0
+spellDiff['flameshield'] = 10
+$spellName['flameshield'] = "Flame Shield"
+$spellDesc['flameshield'] = "A Shield made of Flames interposes itself between you and your enemy, absorbing 2500 damage to defend you."
+!shock
+spellMana['shock'] = 10
+spellTime['shock'] = 0
+spellDiff['shock'] = 6
+$spellName['shock'] = "Electric Shock"
+$spellDesc['shock'] = "An electric spark shoots from your hand."
+!lightning
+spellMana['lightning'] = 100
+spellTime['lightning'] = 0
+spellDiff['lightning'] = 7
+$spellName['lightning'] = "Lightning"
+$spellDesc['lightning'] = "A lightning bolt shoots from your hand."
+!electricbarrier
+spellMana['electricbarrier'] = 150
+spellTime['electricbarrier'] = 0
+spellDiff['electricbarrier'] = 8
+$spellName['electricbarrier'] = "Electric Barrier"
+$spellDesc['electricbarrier'] = "A static electric field blocks incoming attacks from reaching you."
+!1000birds
+spellMana['1000birds'] = 250
+spellTime['1000birds'] = 0
+spellDiff['1000birds'] = 9
+$spellName['1000birds'] = "Dance of a Thousand Birds"
+$spellDesc['1000birds'] = "The air is filled with small lightning bolts leaping through the air with shrieks."
+!dancingsphere
+spellMana['dancingsphere'] = 500
+spellTime['dancingsphere'] = 0
+spellDiff['dancingsphere'] = 10
+$spellName['dancingsphere'] = "Dancing Sphere"
+$spellDesc['dancingsphere'] = "Lightning dances around you blocking attacks coming toward you."
+!quicksand
+spellMana['quicksand'] = 10
+spellTime['quicksand'] = 0
+spellDiff['quicksand'] = 6
+$spellName['quicksand'] = "Quicksand"
+$spellDesc['quicksand'] = "Opponent is caught in a quicksand trap."
+!earthshield
+spellMana['earthshield'] = 100
+spellTime['earthshield'] = 0
+spellDiff['earthshield'] = 7
+$spellName['earthshield'] = "Earth Shield"
+$spellDesc['earthshield'] = "Tendrils of earth reach up to defend you. Some of the damage it absorbs is captured as mana and given to you."
+!abyss
+spellMana['abyss'] = 150
+spellTime['abyss'] = 0
+spellDiff['abyss'] = 8
+$spellName['abyss'] = "Abyss"
+$spellDesc['abyss'] = "The Earth opens up beneath your opponents feet, slamming shut damaging him and depriving him of the ability to move."
+!earthguardian
+spellMana['earthguardian'] = 250
+spellTime['earthguardian'] = 0
+spellDiff['earthguardian'] = 9
+$spellName['earthguardian'] = "Earth Guardian"
+$spellDesc['earthguardian'] = "The Earth itself comes alive defending you from attacks.  It draws from the power of the land to regenerate itself every round."
+!sando
+spellMana['sando'] = 500
+spellTime['sando'] = 0
+spellDiff['sando'] = 10
+$spellName['sando'] = "Sando"
+$spellDesc['sando'] = "Two huge plates of earth colapse together crushing the enemy and depriving him of the ability to move."
+!windgust
+spellMana['windgust'] = 10
+spellTime['windgust'] = 0
+spellDiff['windgust'] = 6
+$spellName['windgust'] = "Wind Gust"
+$spellDesc['windgust'] = "a huge gust of wind rips past you killing clones and removing fog."
+!pressure
+spellMana['pressure'] = 100
+spellTime['pressure'] = 0
+spellDiff['pressure'] = 7
+$spellName['pressure'] = "Horrific Pressure"
+$spellDesc['pressure'] = "Enormous air pressure surrounds your enemy causing damage as well as killing clones and removing fog."
+!vacuum
+spellMana['vacuum'] = 150
+spellTime['vacuum'] = 0
+spellDiff['vacuum'] = 8
+$spellName['vacuum'] = "Vacuum Sphere"
+$spellDesc['vacuum'] = "A turbulent sphere of vacuum surrounds you blocking incoming attacks."
+!vacuumshells
+spellMana['vacuumshells'] = 250
+spellTime['vacuumshells'] = 0
+spellDiff['vacuumshells'] = 9
+$spellName['vacuumshells'] = "Vacuum Shells"
+$spellDesc['vacuumshells'] = "Turbulent spheres of vacuum bombard your enemy destroying clones and removing fog."
+!devouringvacuum
+spellMana['devouringvacuum'] = 500
+spellTime['devouringvacuum'] = 0
+spellDiff['devouringvacuum'] = 10
+$spellName['devouringvacuum'] = "Devouring Vacuum"
+$spellDesc['devouringvacuum'] = "A devouring vacuum sucks away your enemys defensive shields."
+!leechmana
+spellMana['leechmana'] = 10
+spellTime['leechmana'] = 0
+spellDiff['leechmana'] = 6
+$spellName['leechmana'] = "Leech Mana"
+$spellDesc['leechmana'] = "Inflict 100 damage and absorb 100 mana from your foe."
+!flood
+spellMana['flood'] = 100
+spellTime['flood'] = 0
+spellDiff['flood'] = 7
+$spellName['flood'] = "Flood"
+$spellDesc['flood'] = "Inflict 1000 damage and absorb 500 mana from your foe."
+!blister
+spellMana['blister'] = 150
+spellTime['blister'] = 0
+spellDiff['blister'] = 8
+$spellName['blister'] = "Blister"
+$spellDesc['blister'] = "Create a protective sphere of water.  Some of the damage absorbed is converted into mana for you."
+!sharkrockets
+spellMana['sharkrockets'] = 250
+spellTime['sharkrockets'] = 0
+spellDiff['sharkrockets'] = 9
+$spellName['sharkrockets'] = "Shark Rockets"
+$spellDesc['sharkrockets'] = "Blobs of Water shaped like sharks fly towards your enemy stiking them for 1500 damage and abosorbing 2500 mana for you.  Clones are destroyed"
+!greatflood
+spellMana['greatflood'] = 500
+spellTime['greatflood'] = 0
+spellDiff['greatflood'] = 10
+$spellName['greatflood'] = "Great Flood"
+$spellDesc['greatflood'] = "A huge flood of water fills the area absorbing mana from the enemy and giving you additional protection."
+
+
+! List Combat Spells for use in fight scenerios
+$combatSpells[0] = 'fog'
+$combatSpells[1] = 'clone'
+$combatSpells[2] = 'stun'
+$combatSpells[3] = 'weapon'
+$combatSpells[4] = 'wind'
+$combatSpells[5] = 'multiclone'
+$combatSpells[6] = 'energo'
+$combatSpells[7] = 'haste'
+$combatSpells[8] = 'heal'
+$combatSpells[9] = 'hand'
+$combatSpells[10] = 'scaldingtouch'
+$combatSpells[11] = 'burninghands'
+$combatSpells[12] = 'firebarrier'
+$combatSpells[13] = 'firestorm'
+$combatSpells[14] = 'flameshield'
+$combatSpells[15] = 'shock'
+$combatSpells[16] = 'lightning'
+$combatSpells[17] = 'electricbarrier'
+$combatSpells[18] = '1000birds'
+$combatSpells[19] = 'dancingsphere'
+$combatSpells[20] = 'quicksand'
+$combatSpells[21] = 'earthshield'
+$combatSpells[22] = 'abyss'
+$combatSpells[23] = 'earthguardian'
+$combatSpells[24] = 'sando'
+$combatSpells[25] = 'windgust'
+$combatSpells[26] = 'pressure'
+$combatSpells[27] = 'vacuum'
+$combatSpells[28] = 'vacuumshells'
+$combatSpells[29] = 'devouringvacuum'
+$combatSpells[30] = 'leechmana'
+$combatSpells[31] = 'flood'
+$combatSpells[32] = 'blister'
+$combatSpells[33] = 'sharkrockets'
+$combatSpells[34] = 'greatflood'
+
+! List of Non-Combat Spells for use in Menu
+$nonComSpells[0] = 'heal'
+
+
+! Basic Spells
+$basicSpells[0] = 'fog'
+$basicSpells[1] = 'clone'
+$basicSpells[2] = 'stun'
+$basicSpells[3] = 'wind'
+$basicSpells[4] = 'multiclone'
+$basicSpells[5] = 'energo'
+$basicSpells[6] = 'haste'
+
+
+! Elemental Spell Groups
+$fireSpells[0] = 'scaldingtouch'
+$fireSpells[1] = 'burninghands'
+$fireSpells[2] = 'firebarrier'
+$fireSpells[3] = 'firestorm'
+$fireSpells[4] = 'flameshield'
+
+$electSpells[0] = 'shock'
+$electSpells[1] = 'lightning'
+$electSpells[2] = 'electricbarrier'
+$electSpells[3] = '1000birds'
+$electSpells[4] = 'dancingsphere'
+
+$earthSpells[0] = 'quicksand'
+$earthSpells[1] = 'earthshield'
+$earthSpells[2] = 'abyss'
+$earthSpells[3] = 'earthguardian'
+$earthSpells[4] = 'sando'
+
+$airSpells[0] = 'windgust'
+$airSpells[1] = 'pressure'
+$airSpells[2] = 'vacuum'
+$airSpells[3] = 'vacuumshells'
+$airSpells[4] = 'devouringvacuum'
+
+$waterSpells[0] = 'leechmana'
+$waterSpells[1] = 'flood'
+$waterSpells[2] = 'blister'
+$waterSpells[3] = 'sharkrockets'
+$waterSpells[4] = 'greatflood'
+
+
+if $ARGS[0] = 'teacherActions':
+	! Make Actions for learning spells
+	!	$ARGS[1] = the name of the array of spells
+	!	$ARGS[2] = Exit Location
+	!	$ARGS[3] = Arg for exit location
+	! Example:
+	!	gs 'spellList', 'teacherActions', '$fireSpells', 'kakuzu', 'mansion1'
+
+	$ThisArrayName = $ARGS[1]
+	$ExitLocation = $ARGS[2]
+	$ExitLocation2 = $ARGS[3]
+
+	ThisArraySize = dyneval("result=arrsize('<<$ThisArrayName>>')")
+	i = 0
+	:LearnSpellLoop
+	$ThisSpellName = dyneval("$result = <<$ThisArrayName>>[<<i>>]")
+	spellDifficulty = $spellDiff[$ThisSpellName]
+	if spellDifficulty = 0: spellDifficulty = 1
+	if i < ThisArraySize:
+		if pcs_magik >= spellDifficulty and spellKnown[$ThisSpellName] = 0:
+			dynamic "act 'Learn <<$spellName[$ThisSpellName]>> (1:00)':
+				cla
+				pcs_manna -= 1000
+				minut += 60
+
+				spellLearn['<<$ThisSpellName>>'] += rand(1, 100/<<spellDifficulty>>)
+
+				if spellLearn['<<$ThisSpellName>>'] < 100:
+					'You diligently study the spell for an hour, but could not grasp it.'
+				else
+					spellKnown['<<$ThisSpellName>>'] = 1
+					'Finally you are able to grasp and learn the spell.'
+					*nl
+					'<<$spellName[$ThisSpellName]>>: <<$spellDesc[$ThisSpellName]>>'
+				end
+				act 'Move away':gt '<<$ExitLocation>>', '<<$ExitLocation2>>'
+			end"
+		end
+
+		i += 1
+		jump 'LearnSpellLoop'
+	end
+	killvar 'i'
+	killvar '$ThisSpellName'
+	killvar 'ThisArraySize'
+	killvar '$ThisArrayName'
+	killvar '$ExitLocation'
+	killvar '$ExitLocation2'
+	killvar 'spellDifficulty'
+end
+
+
+--- spellList ---------------------------------

locations/spell_teleport.qsrc

@@ -1,41 +0,0 @@
-#spell_teleport
-! Do the stuff of a Teleport
-!	ARGS[0] = Success/Failure level
-!	ARGS[1] = the Target Location
-
-didItWork = $ARGS[0]
-$NewLocation = $ARGS[1]
-
-:RandLocLoop
-$randomLoc = $tpLocations[rand(0,arrsize($tpLocations) - 1)]
-if $randomLoc = $NewLocation or $randomLoc = $EntryPoint:
-	jump 'RandLocLoop'
-end
-
-if didItWork > 0:
-	*nl
-	"The blur you see just outside the ring seems to shift."
-	wait 1000
-	if $treeCircArg[$NewLocation] = "":
-		gt $treeCircLoc[$NewLocation]
-	else:
-		gt $treeCircLoc[$NewLocation], $treeCircArg[$NewLocation]
-	end
-elseif didItWork < 0:
-	*nl
-	"The blur you see just outside the ring seems to shift.  Something did not go right!"
-	wait 1000
-	if $treeCircArg[$randomLoc] = "":
-		gt $treeCircLoc[$randomLoc]
-	else:
-		gt $treeCircLoc[$randomLoc], $treeCircArg[$randomLoc]
-	end
-else:
-	'You feel drained, but the energy fizzles out and nothing happens'
-end
-
-killvar '$randomLoc'
-killvar '$NewLocation'
-killvar didItWork
-
--- spell_teleport ---------------------------------

locations/street_event.qsrc

@@ -125,6 +125,10 @@ if money >= 2500:
 	end
 end
 
+!!The chance to get robbed is capped at 10%
+if streetev_rob > 10: streetev_rob = 10
+if streetev_hijack > 10: streetev_hijack = 10
+
 if $ARGS[1] = 'extras':
 	if rand(0, 100) < streetev_bf and pcs_lover < 3 and streetbfhour ! hour:
 		streetbfhour = hour
@@ -498,7 +502,7 @@ if $ARGS[1] = 'main':
 	end
 
 	streetrand = rand(0, 100)
-	if streetrand < streetev_rob and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1:
+	if streetrand < streetev_rob and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1 and streetev_rob_day ! daystart:
 		*clr & cla
 		menu_off = 1
 		streetev_day = daystart
@@ -589,11 +593,13 @@ if $ARGS[1] = 'main':
 			end
 		end
 		exit
+	elseif streetrand >= streetev_rob and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1 and streetev_rob_day ! daystart:
+		streetev_rob_day = daystart
 	end
 
 	streetrand = rand(0, 100)
 
-	if streetrand < streetev_hijack and daystart >= 10 and hour >= 6 and hour < 20 and streetev_day ! daystart and bag = 1:
+	if streetrand < streetev_hijack and daystart >= 10 and hour >= 6 and hour < 20 and streetev_day ! daystart and bag = 1 and streetev_hijack_day ! daystart:
 		*clr & cla
 		menu_off = 1
 		gs'stat'
@@ -644,6 +650,8 @@ if $ARGS[1] = 'main':
 			end
 		end
 		exit
+	elseif streetrand >= streetev_hijack and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1 and streetev_hijack_day ! daystart:
+		streetev_hijack_day = daystart
 	end
 
 	!!end of old random street events that can always happen

locations/telefon.qsrc

@@ -309,7 +309,7 @@ if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
 						'<<$loverdesc[lover_number]>>, "This is wonderful! We have to celebrate!"'
 						'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
 						'He warns you that his mother is very demanding and rigorous. <<$loverdesc[lover_number]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
-						'When you are totally ready <<$loverdesc[lover_number]>> will take you to their parents.'
+						'When you are totally ready <<$loverdesc[lover_number]>> will take you to his parents.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 
@@ -773,28 +773,52 @@ if $ARGS[0] = 'Phone_selfie_totals':
 	bathroom_clotot = 20
 	bathroom_undtot = 20
 	bathroom_nudtot = 20
+	bathroom_titflash = 10
+	bathroom_assflash = 10
+	bathroom_pussyflash = 10
 	bathroom_bathtot = 24
 	bathroom_showertot = 25
 	bedroom_clotot = 27
 	bedroom_undtot = 20
-	bedroom_nudtot = 20
+	bedroom_nudtot = 25
+	bedroom_titflash = 30
+	bedroom_assflash = 4
+	bedroom_pussyflash = 14
 	kitchen_clotot = 16
 	kitchen_undtot = 11
-	kitchen_nudtot = 20
+	kitchen_nudtot = 19
+	kitchen_titflash = 19
+	kitchen_assflash = 1
+	kitchen_pussyflash = 5
 	livingroom_clotot = 17
 	livingroom_undtot = 21
-	livingroom_nudtot = 21
+	livingroom_nudtot = 14
+	livingroom_titflash = 5
+	livingroom_assflash = 2
+	livingroom_pussyflash = 2
 	changingroom_clotot = 19
 	changingroom_undtot = 25
-	changingroom_nudtot = 21
+	changingroom_nudtot = 25
+	changingroom_titflash = 28
+	changingroom_assflash = 14
+	changingroom_pussyflash = 27
 	park_clotot = 28
 	park_undtot = 0
-	park_nudtot = 18
+	park_nudtot = 10
+	park_titflash = 13
+	park_assflash = 1
+	park_pussyflash = 4
 	lockeroom_clotot = 21
 	lockeroom_undtot = 16
-	lockeroom_nudtot = 14
+	lockeroom_nudtot = 6
+	lockeroom_titflash = 9
+	lockeroom_assflash = 1
+	lockeroom_pussyflash = 10
 	beach_swim = 21
-	beach_nudtot = 22
+	beach_nudtot = 15
+	beach_titflash = 11
+	beach_assflash = 1
+	beach_pussyflash = 2
 end
 
 
@@ -828,6 +852,9 @@ if $ARGS[0] = 'Phone_camera_selfie':
 	elseif $locclass = 'lockeroom':
 		$phone_loc = 'lockeroom'
 		gs 'telefon', 'Phone_selfie_image'
+	elseif $locclass = 'beach':
+		$phone_loc = 'beach'
+		gs 'telefon', 'Phone_selfie_image'
 	else
 		phone_rand = RAND(1,2)
 		phone_selfie[phone_rand] = 1
@@ -841,26 +868,57 @@ end
 
 !!taking selfies, this chooses a random image for the location for clothed, underwear and nude
 if $ARGS[0] = 'Phone_selfie_image':
-	if $clothingworntype ! 'nude':
-		!!changing to and unmixed variable so the rng will work
-		dynamic 'temp_clotot = <<$phone_loc>>_clotot'
-		phone_rand = rand(1,temp_clotot)
-		!!Setting the image owned flag to 1
-		dynamic '<<$phone_loc>>_closelfie[<<phone_rand>>] = 1'
-		gs 'stat'
-		view 'images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg'
-	elseif $pantyworntype ! 'none':
-		dynamic 'temp_undtot = <<$phone_loc>>_undtot'
-		phone_rand = rand(1,temp_undtot)
-		dynamic '<<$phone_loc>>_undselfie[<<phone_rand>>] = 1'
-		gs 'stat'
-		view 'images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg'
+	if $flashing = '':
+		if $clothingworntype = 'swimwear':
+			!!changing to and unmixed variable so the rng will work
+			dynamic 'temp_swim = <<$phone_loc>>_swim'
+			phone_rand = rand(1,temp_swim)
+			!!Setting the image owned flag to 1
+			dynamic '<<$phone_loc>>_swim[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/bikini/<<phone_rand>>.jpg'
+		elseif $clothingworntype ! 'nude':
+			!!changing to and unmixed variable so the rng will work
+			dynamic 'temp_clotot = <<$phone_loc>>_clotot'
+			phone_rand = rand(1,temp_clotot)
+			!!Setting the image owned flag to 1
+			dynamic '<<$phone_loc>>_closelfie[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/clothed/<<phone_rand>>.jpg'
+		elseif $pantyworntype ! 'none':
+			dynamic 'temp_undtot = <<$phone_loc>>_undtot'
+			phone_rand = rand(1,temp_undtot)
+			dynamic '<<$phone_loc>>_undselfie[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/underwear/<<phone_rand>>.jpg'
+		else
+			dynamic 'temp_nudtot = <<$phone_loc>>_nudtot'
+			phone_rand = rand(1,temp_nudtot)
+			dynamic '<<$phone_loc>>_nudselfie[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg'
+		end
 	else
-		dynamic 'temp_nudtot = <<$phone_loc>>_nudtot'
-		phone_rand = rand(1,temp_nudtot)
-		dynamic '<<$phone_loc>>_nudselfie[<<phone_rand>>] = 1'
-		gs 'stat'
-		view 'images/pc/selfies/<<$phone_loc>>/nude/<<phone_rand>>.jpg'
+		if $flashing = 'tits':
+			dynamic 'temp_titflash = <<$phone_loc>>_titflash'
+			phone_rand = rand(1,temp_titflash)
+			dynamic '<<$phone_loc>>_titflash[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/titflash/<<phone_rand>>.jpg'
+		elseif $flashing = 'ass':
+			dynamic 'temp_assflash = <<$phone_loc>>_assflash'
+			phone_rand = rand(1,temp_assflash)
+			dynamic '<<$phone_loc>>_assflash[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/assflash/<<phone_rand>>.jpg'
+		elseif $flashing = 'pussy':
+			dynamic 'temp_pussyflash = <<$phone_loc>>_pussyflash'
+			phone_rand = rand(1,temp_pussyflash)
+			dynamic '<<$phone_loc>>_pussyflash[<<phone_rand>>] = 1'
+			gs 'stat'
+			view 'images/pc/selfies/<<$phone_loc>>/pussyflash/<<phone_rand>>.jpg'
+		end
+		$flashing = ''
 	end
 end
 
@@ -888,14 +946,65 @@ end
 !!for taking photos - only selfies for now
 if $ARGS[0] = 'Phone_camera':
 	clr
+	if $location_type = 'bathroom':
+		$phone_loc = 'bathroom'
+	elseif $locclass = 'bedr':
+		$phone_loc = 'bedroom'
+	elseif $locclass = 'kitr':
+		$phone_loc = 'kitchen'
+	elseif $locclass = 'livingr':
+		$phone_loc = 'livingroom'
+	elseif $locclass = 'changingroom':
+		$phone_loc = 'changingroom'
+	elseif $locclass = 'park':
+		$phone_loc = 'park'
+	elseif $locclass = 'lockeroom':
+		$phone_loc = 'lockeroom'
+	elseif $locclass = 'beach':
+		$phone_loc = 'beach'
+	end
 	pl '<center><b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b></center>'
 	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" height="80" width="80"><br></center>'
+	!! Take a selfie depending on which clothes you are wearing
 	pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''Phone_camera_selfie'' "><b>Take a selfie</b></a>'
+	!! Flashing selfie
+	if $clothingworntype ! 'nude' and ($phone_loc = 'bathroom' or $phone_loc = 'bedroom' or $phone_loc = 'kitchen' or $phone_loc = 'livingroom' or $phone_loc = 'changingroom' or $phone_loc = 'park' or $phone_loc = 'lockeroom' or $phone_loc = 'beach'):
+		if $phone_loc = 'bedroom' or $phone_loc = 'bathroom':
+			pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a>'
+			pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a>'
+			pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a>'
+		else
+			if pcs_inhib >= 35 or exhibitionist_lvl > 0:
+				pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''titflash'' "><b>Flash your tits for a selfie</b></a>'
+			end
+			if exhibitionist_lvl > 0:
+				pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''assflash'' "><b>Flash your ass for a selfie</b></a>'
+			end
+			if exhibitionist_lvl > 1:
+				pl'<a href="exec:photoskl_exp += 1 & gs ''telefon'', ''pussyflash'' "><b>Flash your pussy for a selfie</b></a>'
+			end
+		end
+	end
 	pl'<center><a href="exec:gs ''telefon'', ''Phone_menu'' "><img src="images/system/icon/back.png"></a></center>'
 end
 
+if $ARGS[0] = 'titflash':
+	$flashing = 'tits'
+	gs 'telefon', 'Phone_camera_selfie'
+end
+
+if $ARGS[0] = 'assflash':
+	$flashing = 'ass'
+	gs 'telefon', 'Phone_camera_selfie'
+end
+
+if $ARGS[0] = 'pussyflash':
+	$flashing = 'pussy'
+	gs 'telefon', 'Phone_camera_selfie'
+end
+
 !!-----------------------------------end of Camera------------------------------------------
 
 if $ARGS[0] = 'Phone_wheather':

locations/test.qsrc

@@ -49,45 +49,28 @@ else
 	tits = 10
 end
 
-spelltuman = 1
-spellklon = 1
-spellstun = 1
-spellweap = 1
-spellwind = 1
-spellklon2 = 1
-spellenergo = 1
-spellinit = 1
-spellhel = 1
-spellreset= 1
-spellavtoklon = 1
-spellhand = 1
-spellfire1 = 1
-spellfire2 = 1
-spellfire3 = 1
-spellfire4 = 1
-spellfire5 = 1
-spellele1 = 1
-spellele2 = 1
-spellele3 = 1
-spellele4 = 1
-spellele5 = 1
-spellert1 = 1
-spellert2 = 1
-spellert3 = 1
-spellert4 = 1
-spellert5 = 1
-spellwind1 = 1
-spellwind2 = 1
-spellwind3 = 1
-spellwind4 = 1
-spellwind5 = 1
-spellwater1 = 1
-spellwater2 = 1
-spellwater3 = 1
-spellwater4 = 1
-spellwater5 = 1
-spellunmat = 1
-spellbefshild = 1
+
+! Mark all spells as known
+i = 0
+:CombatSpellTest
+$ThisSpellName = $combatSpells[i]
+if i < arrsize('$combatSpells'):
+	spellKnown[$ThisSpellName] = 1:
+	i += 1
+	jump 'CombatSpellTest'
+end
+i = 0
+:NonComSpellTest
+$ThisSpellName = $nonComSpells[i]
+if i < arrsize('$nonComSpells'):
+	spellKnown[$ThisSpellName] = 1:
+	i += 1
+	jump 'NonComSpellTest'
+end
+killvar 'i'
+killvar '$ThisSpellName'
+
+
 '<<pcs_hgt>>cm <<pcs_weight>>kg <<pcs_bust>>-<<pcs_waist>>-<<pcs_hips>> the size of the breast <<tits>>'
 'All articles on the 100, all spells, magical about the 10 forces Rikudo 9000'
 'Do you have any second shadow sedtse that may once to die for you.'

locations/therapist.qsrc

@@ -170,7 +170,7 @@ if $ARGS[0] = 'hypno':
 			$session = 'You will feel more confident. You are smart, beautiful, and if other people has other opinions, that is their problem. You know what you want, and do not fear to act upon your desires."<br>...<br>...<br>..."'
 		elseif $therapy = 'dominance':
 			pcs_dom += rand(1,2)
-			$session = 'You like to do what you want to do. It pleases you if people do what you tell them to do, or act according to your wishes, and you like to couse them pleasure this way. You have to be in control constantly, but that means others around you can relax."<br>...<br>...<br>..."'
+			$session = 'You like to do what you want to do. It pleases you if people do what you tell them to do, or act according to your wishes, and you like to cause them pleasure this way. You have to be in control constantly, but that means others around you can relax."<br>...<br>...<br>..."'
 		elseif $therapy = 'submission':
 			sub += rand(1,2)
 			$session = 'You want to be told what to do and what to think, what to feel and whom to please. Obeying others pleases you because it pleases them, and for a while you do not have to take responsibility for your actions."<br>...<br>...<br>..."'
@@ -437,7 +437,7 @@ if $ARGS[0] = 'hypnoEnd':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/room.jpg"></center>'
 	'<font color=brown>"All right, <i>Cunt</i>, now listen to me. You will not remember any of this. You do not feel any discomfort from any of our activities, and you do not notice anything related to what happened here. No taste, no smell, no aches, no fluids. Nothing. You will not respont to Cunt while you are Awake, just while you are Under. You will wake up feeling good, but responsive to all of my commands. Understand, <i>Cunt</i>?"'
 	'"Yes, <i>Master</i>."'
-	'"Oh, I almost forgotten. While you are Awake, you will call me Dr. Pavlov, you will not have any desire to call me Master. Now, you are sitting in the black room. Stand up, and start walking through the door. As you close the door of the black room, you forget..."</font>'
+	'"Oh, I almost forgot. While you are Awake, you will call me Dr. Pavlov, you will not have any desire to call me Master. Now, you are sitting in the black room. Stand up, and start walking through the door. As you close the door of the black room, you forget..."</font>'
 	'...'
 	'...'
 	if hypnoTime < 4:
@@ -474,10 +474,9 @@ if $ARGS[0] = 'hypnoEnd':
 		pcs_horny = 60
 		'When you wake up, you see your therapist fixing his shirt.'
 		'"Miss <<$pcs_lastname>>, how do you feel right now?"'
-		'Without hesitation, you reply.'
-		'"I feel wounderful, Dr. Pavlov."'
+		'Without hesitation, you reply, "I feel wounderful, Dr. Pavlov."'
 		'"Good, just as expected," nods the doctor, as he escorts you out of his office.'
-		'You feel aroused, and you try to close your legs as you walk out, unconsciously trying to keep you psychologist''s sperm inside your <<$cumdesciption3>> as long as possible.'
+		'You feel aroused, and you try to close your legs as you walk out, unconsciously trying to keep your psychologist''s sperm inside your <<$cumdesciption3>> as long as possible.'
 	end
 	'The doctor smiles jovially, his hand on your shoulder as he slowly escort you out of his office.'
 	'"Please, visit me again if you have any further problems, I will be glad to help!" Says Dr. Pavlov as a goodbye, taking your hands in his, patting them, then closes his door.'

locations/treeCircActs.qsrc

@@ -8,11 +8,11 @@ if $EntryPoint = $ARGS[0]:
 	act 'Leave the circle to <<$treeCircName[$ARGS[0]]>>':
 		if $treeCircArg['<<$ARGS[0]>>'] = '':
 			gt $treeCircLoc['<<$ARGS[0]>>']
-		else:
+		else
 			gt $treeCircLoc['<<$ARGS[0]>>'], $treeCircArg['<<$ARGS[0]>>']
 		end
 	end
-else:
+else
 	if canTeleport = 1 and tpKnown[$ARGS[0]] = 1:
 		$dynAction = "act 'Will yourself to <<$treeCircName[$ARGS[0]]>>': gs 'castSpell', 'teleport', '<<$ARGS[0]>>'"
 		dynamic $dynAction

locations/treeCircEntry.qsrc

@@ -7,7 +7,7 @@ if MagikDostup = 0:
 	! Setup for teleport circle
 	if tpKnown[$ARGS[0]] = 1:
 		$EntryAction = "act 'Enter the hidden circle of trees': gt 'treeCircle', '<<$ARGS[0]>>'"
-	else:
+	else
 		$EntryAction = "act 'Investigate a mysterious copse of trees': gt 'treeCircle', '<<$ARGS[0]>>'"
 	end
 	dynamic $EntryAction

locations/treeCircle.qsrc

@@ -53,11 +53,11 @@ if spellKnown['teleport'] = 1:
 	minut += 15
 	if pcs_manna > spellMana['teleport']:
 		canTeleport = 1
-	else:
+	else
 		*nl
 		'You feel too tired to pull off a shift right now.'
 	end
-else:
+else
 	'You can feel something strange and powerful in this place, but you can''t quite put your finger on it.  It is intriguing, though, so you take your time and loook the place over to try to understand it.'
 	minut += 15
 end
@@ -80,7 +80,7 @@ act 'Masturbate to clear your head.':
 	'<center><video autoplay loop src="images/locations/shared/park/tree_masturb.mp4"></center>'
 	*nl
 	'That''s better!'
-	orgasm_or = 'yes'
+	$orgasm_or = 'yes'
 	gs 'arousal', 'masturbate', 15
 	gs 'arousal', 'end'
 	gs 'stat'