[changed] removed the old analorgasm variable and fixed the various places where it was called for when it is now handled in arousal

locations/Peterroom.qsrc

@@ -167,8 +167,8 @@ if $ARGS[0] = 'klap':
 			if pcs_ass < 25:pcs_ass += 1
 
 			if pcs_horny >= 100:
-				analorgasm += 1
 				$orgasm_or = 'yes'
+				gs 'arousal', 'anal', -10, 'sub'
 				$orgasm_txt = 'A pleasant sensation surges within you and an orgasm washes over you, juices spraying from your pussy as you moan loudly into the gag.'
 			end
 
@@ -246,8 +246,8 @@ if $ARGS[0] = 'd1':
 				'He continues to fuck you hard and you submit yourself to the pleasure of your ass being hammered, your pussy juices running down your legs.'
 
 				if pcs_horny >= 100:
-					analorgasm += 1
 					$orgasm_or = 'yes'
+					gs 'arousal', 'anal', -10, 'sub'
 					'He continues to fuck you hard and fast and you soon feel an intense orgasm washing over you, juices squirting from your pussy as his warm cum fills your ass.'
 					
 				elseif pcs_horny < 100:

locations/bed.qsrc

@@ -64,7 +64,6 @@ if $ARGS[0] = 'mast':
 							act 'Invite':
 								cla
 								*clr
-								analorgasm += 1
 								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m23.jpg"></center>'
 								'<<$husName>> gets his dick out and starts masturbating. It is not what you expected, and at first you feel a little sad that he didn''t enter into you, but began to masturbate.'
 								'Then it starts to hit you, watching your husband masturbate as he watches you fuck the dildo, his face covered in pleasure, you scream and fall on the table, having experienced an orgasm.'

locations/cikl.qsrc

@@ -234,6 +234,22 @@ if bimbo < 0: bimbo = 0
 !! flag reset
 bimbo_flag = 0
 
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Butt slut
+!!------------------------------------------------------------------------------------------------------------
+
+if orgasm_anal > orgasm_anal[1]: 
+	buttslut_exp += 1
+else
+	buttslut_exp -= 1
+end
+orgasm_anal[1] = orgasm_anal
+if orgasm_anal >= 10 and traits['buttslut_lvl'] = 0: traits['buttslut_lvl'] = 1
+if traits['buttslut_exp'] >= 15 and traits['buttslut_lvl'] = 1: traits['buttslut_lvl'] = 2 & traits['buttslut_exp'] = 0
+if traits['buttslut_exp'] >= 50 and traits['buttslut_lvl'] = 2: traits['buttslut_lvl'] = 3
+if traits['buttslut_exp'] <= 0 and traits['buttslut_lvl'] = 3: traits['buttslut_lvl'] = 2 & traits['buttslut_exp'] = 0
+
 !!------------------------------------------------------------------------------------------------------------
 !!	Exhibitionism
 !!------------------------------------------------------------------------------------------------------------

locations/city_kafe2.qsrc

@@ -265,9 +265,9 @@ if $ARGS[0] = 'ashot':
 									gs 'arousal', 'anal', 10, 'sub'
 									
 									if pcs_horny >= 100 :
-										analorgasm += 1
 										$orgasm_or = 'custom'
 										$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
+										gs 'arousal', 'anal', -5, 'sub'
 									end
 									
 									gs 'arousal', 'end'
@@ -301,9 +301,9 @@ if $ARGS[0] = 'ashot':
 								gs 'arousal', 'anal', 10, 'sub'
 								
 								if pcs_horny >= 100 :
-									analorgasm += 1
 									$orgasm_or = 'custom'
 									$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
+									gs 'arousal', 'anal', -5, 'sub'
 								end
 								
 								gs 'arousal', 'end'

locations/husbSex.qsrc

@@ -369,18 +369,9 @@ if $ARGS[0] = 'anal':
 
 		'<<$husName>> tightly grabs your buttcheeks as he drives is cock deep into your aching ass one last time, releasing the contents of his balls.'
 
+		$orgasm_txt = 'As you press your ass against his dick, your anus feels like it is blazing with fire and waves of pleasure sweep your body.'
 		gs 'arousal', 'anal', 20, 'sub'
-		gs 'stat'
-
-		if pcs_horny < 1:
-			pcs_horny = 1
-		elseif pcs_horny >= 100:
-			analorgasm = analorgasm+1
-
-			$orgasm_or = 'yes'
-			$orgasm_txt = 'As you press your ass against his dick, your anus feels like it is blazing with fire and waves of pleasure sweep your body. '
-		end
-
+		$orgasm_txt = ''
 		gs 'arousal', 'end'
 		gs 'stat'
 
@@ -539,7 +530,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Finish':gt'bed','start'
+				act 'Finish':gt $loc, $loc_arg
 			else
 				'"Well, I don''t know." He says hesitantly.'
 				'"So you want to." You say smiling'
@@ -558,8 +549,6 @@ if $ARGS[0] = 'husb_mastr_vtor':
 					act 'Of course':
 						cla
 						*clr
-						analorgasm += 1
-
 						'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m23.jpg"></center>'
 						'<<$husName>> takes out his member and begins to masturbate. This is not what you expected and at first you even feel a little sorry that he did not enter you, but then you start to masturbate again. You look at your husband, who masturbates looking at you, as you drive the dildo in your ass. Soon you feel yourself coming and you cry out in delight as you fall on the table, orgasming, the dildo still sticking out of your ass. <<$husName>> furiously masturbates looking at you stretched out on the table. You remov the dildo from your ass and start licking it in front of your husband''s eyes. Clearly excited from such a spectacle he soon starts cumming, spraying his sperm on the floor. You reach out to him sticking out your lips. A moment later he passionately kisses you.'
 
@@ -568,7 +557,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Finish':gt'bed','start'
+						act 'Finish':gt $loc, $loc_arg
 					end
 				end
 			end
@@ -591,7 +580,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Finish':gt'bed','start'
+				act 'Finish':gt $loc, $loc_arg
 			else
 				husband += 1
 

locations/kafesvid.qsrc

@@ -329,7 +329,6 @@ if $ARGS[0] = '2':
 						*clr & cla
 						spafinloc = 3
 						gs 'cum_manage'
-						analorgasm += 1
 						'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/19.jpg"></center>'
 						'You bend over the table waiting for what comes next. <<$telsob>> spreads your cheeks, and spits several times. As she works her saliva into you hole with her hand, she orders the man, "You will be gentle. I will not have my <<$pcs_nickname>> damaged." She then guides his cock through the process of stretching you out.'
 						'When he is finally all the way in, he starts moving with gentle thrusts. It''s almost overwhelming. Gentle or not this man has you stretched almost to the breaking point. The thought of what he is doing to your backside sends you over the edge, and you cum with a loud cry. Moments later you feel his wet warmth fill your ass.'
@@ -368,15 +367,13 @@ if $ARGS[0] = '2':
 			
 							act '<<$telsob>> knows best':
 								*clr & cla
-								analorgasm += 5
-								orgasm += 5
 								pcs_ass += 1
 								'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/21.jpg"></center>'
 								'The man lies back on the table, as <<$telsob>> helps you on top of him. When you are in position she guides his cock back into your already dripping hole. Once you are settled, the guy begins to fuck you with jackhammer thrusts. <<$telsob>> helps by forcing your hips down, sinking him in even deeper.' 
 								'"Faster boy, I want you to fuck her so she can''t sit for a week," she orders him. To you she says, "My <<$pcs_nickname>> fucking loves it." Her words send you over the edge again. Your body shakes from head to toe, as you ride another orgasm. When you have regained your senses she whispers to you again, "That''s twice you little slut."'
 								'When the waiter is getting close <<$telsob>> stops him with a command, "In her mouth this time, boy."'
 
-								$orgasm_or = 'yes'
+								$orgasm_or = 'custom'
 								gs 'arousal', 'anal', 5, 'sub'
 								gs 'stat'
 						
@@ -412,13 +409,12 @@ if $ARGS[0] = '2':
 				*clr & cla
 				spafinloc = 3
 				gs 'cum_manage'
-				analorgasm += 1
 				'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/19.jpg"></center>'
 				'You bend over the table and spread your asscheeks instead. <<$telsob>> smiles and agrees, spitting a couple of times on your asshole. As she works her saliva into your hole with her hand, she orders the man, "You will be gentle. I will not have my <<$pcs_nickname>> damaged." She then guides his cock through the process of stretching you out.'
 				'When he is finally all the way in, he starts moving with gentle thrusts. It''s almost overwhelming. Gentle or not this man has you stretched almost to the breaking point. The thought of what he is doing to your backside sends you over the edge, and you cum with a loud cry. Moments later you feel his wet warmth fill your ass.'
 				'"You little slut, I can''t believe you came from getting fucked in the ass," <<$telsob>> says, smiling at you with approval. "Now lick him clean," she finishes.'
 
-				$orgasm_or = 'yes'
+				$orgasm_or = 'custom'
 				gs 'arousal', 'anal', 5, 'sub'
 				gs 'stat'
 				gs 'willpower', 'misc', 'resist', 'easy'
@@ -451,7 +447,6 @@ if $ARGS[0] = '2':
 	
 					act '<<$telsob>> knows best':
 						*clr & cla
-						analorgasm += 5
 						orgasm += 5
 						pcs_ass += 1
 						'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/21.jpg"></center>'
@@ -459,7 +454,7 @@ if $ARGS[0] = '2':
 						'"Faster boy, I want you to fuck her so she can''t sit for a week," she orders him. To you she says, "My <<$pcs_nickname>> fucking loves it." Her words send you over the edge again. Your body shakes from head to toe, as you ride another orgasm. When you have regained your senses she whispers to you again, "That''s twice you little slut."'
 						'When the waiter is getting close <<$telsob>> stops him with a command, "In her mouth this time, boy."'
 
-						$orgasm_or = 'yes'
+						$orgasm_or = 'custom'
 						gs 'arousal', 'anal', 5, 'sub'
 						gs 'stat'
 				

locations/kuhr.qsrc

@@ -117,157 +117,7 @@ if dildo > 0 and pcs_horny >= 50:
 
 		if husband > 0 and husbandrink ! 10:
 			if week > 5 or week < 6 and hour > 16:
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m1.jpg"></center>'
-				'You climb up on the table and use your dildo to pleasure yourself.'
-
-				if hour = 7 or hour = 17:'<<$husName>> looks at you dumbfounded.'
-				if hour ! 7 or hour ! 17:'Just as you get into it, <<$husName>> walks into the room.'
-
-				gs 'arousal', 'vaginal_dildo', 15
-				gs 'stat'
-				
-				if harakHusb = 0:
-					'"What are you doing?" <<$husName>> asks.'
-					'"I''m sorry dear, but I really needed it and you''re always busy!" you reply without stopping.'
-					'"And how often do you that?" he asks.'
-					'"Every now and then. I sometimes put it in my ass too. Would you like to watch?"'
-
-					if izvratH = 0:
-						husband -= 1
-						'"I think I''ll step outside until you''re done." he says and leaves the apartment. You continue to satisfy yourself, but are a little disappointed that he didn''t ''help'' you.'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal_dildo', 5, 'masturbate'
-						gs 'arousal', 'end'
-						gs 'stat'
-
-						act 'Finish':gt 'kuhr'
-					elseif izvratH = 1:
-						'"Well, I''m... I''m not sure..." he stutters.'
-						'"So, what do you want?" you ask in response.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You pull the dildo out of your pussy and wink at him before pushing it into your ass. <<$husName>> watches closely and you notice the obvious bulge in his trousers.'
-							'"Is there anything else you want, dear?" you ask with a smile.'
-							'"Can I join you?" he asks, looking a little embarrassed.'
-
-							gs 'arousal', 'anal_dildo', 15, 'masturbate'
-							gs 'stat'
-							
-							act 'Yes':
-								cla
-								*clr
-								analorgasm += 1
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m13.jpg"></center>'
-								'<<$husName>> pulls his dick out and starts to masturbate in front of you. You''re surprised, having expected him to fuck you or ask for a blowjob instead. You sigh silently and continue to fuck your ass with the dildo as <<$husName>> watches and masturbates. You''re close to orgasm, and it sounds like <<$husName>> is too.'
-								'With a final thrust of your dildo, you''re hit by an orgasm so strong that you fall onto the floor. You slide your dildo out of your ass and lick it clean while locking eyes with your husband. He finds this incredibly erotic and his cum starts splattering over the floor. You passionately make out in the aftermath of your orgasms.'
-								
-								$orgasm_or = 'yes'
-								gs 'arousal', 'anal_dildo', 15, 'masturbate'
-								gs 'arousal', 'end'
-								gs 'stat'
-								
-								act 'Finish':gt 'kuhr'
-							end
-						end
-					end
-				elseif harakHusb = 1:
-					'"I guess sex with me isn''t enough?" he asks.'
-					'"I''m sorry dear, but I really needed it and you''re always busy!" you reply without stopping.'
-					'"Well then, why don''t you show me everything? I''d love to watch!"'
-					'"Do you want to watch me putting it in my ass?" you ask'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"No, not yet. That''s enough for now." he says as he sits down on a chair. You continue to satisfy yourself and soon orgasm in front of your husband. <<$husName>> applauds you. "Bravo! Care to do it again?" he chuckles.'
-						'"Anytime for such a lovely audience, but I need a quick break." you laugh as you take the dildo out of your pussy.'
-
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal_dildo', 5, 'masturbate'
-						gs 'stat'
-
-						act 'Finish':gt 'kuhr'
-					elseif izvratH = 1:
-						husband += 1
-						'"And what are you going to show me now?" he asks.'
-						'"Whatever you want..." you answer teasingly.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You push the dildo slowly into your ass. <<$husName>> watches closely and you notice the bulge in his pants.'
-							'It''s hard for you not to stare at it and you smile. "Need some...help there?" you ask teasingly.'
-							'"Now that you ask..." he says with a wink. "Give me a blowjob while you fuck your ass with that dildo." He unbuttons his pants and pulls his erect cock out.'
-
-							gs 'arousal', 'anal_dildo', 5
-							gs 'stat'
-							
-							act 'Blowjob':
-								cla
-								*clr
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-								'You start sucking his dick while continuing to pleasure yourself. After a few minutes, <<$husName>> pulls out of your mouth. "Time for me to fuck that hole."'
-
-								gs 'arousal', 'bj', 5, 'sub'
-								gs 'stat'
-								
-								act 'Anal':
-									picrand = 88
-									gt 'sex', 'anal'
-									gs 'arousal', 'end'
-									gs 'stat'
-								end
-							end
-						end
-					end
-				elseif harakHusb = 2:
-					'"Is your hole itching?" he asks.'
-					'"I''m sorry dear, but I really needed it and you''re always busy!" you reply without stopping.'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"Well then, open your mouth!" he orders as he pulls out his cock and pushes it into your mouth. He holds you by the hair and fucks your mouth while telling you to keep masturbating. After a few minutes, he stops. "Now take out that damn toy. Time for me to scratch your itch!"'
-
-						gs 'arousal', 'vaginal_dildo', 5 
-						gs 'arousal', 'bj', 5, 'rough'
-						minut -= 5
-						gs 'stat'
-						
-						act 'Spread your legs':
-							picrand = 87
-							gt 'sex', 'vag'
-							gs 'arousal', 'end'
-							gs 'stat'
-						end
-					elseif izvratH = 1:
-						husband += 1
-						'<<$husName>> orders you to put your toy into your ass and you submissively comply. "Now open your mouth and suck me off!"'
-
-						act 'Blowjob':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-							'You start sucking his dick while continuing to pleasure yourself. After a few minutes, <<$husName>> pulls out of your mouth. "Time for me to fuck that hole."'
-
-							gs 'arousal', 'bj', 5, 'sub'
-							gs 'stat'
-							
-							act 'Anal':
-								picrand = 87
-								gt 'sex', 'anal'
-								gs 'arousal', 'end'
-								gs 'stat'
-							end
-						end
-					end
-				end
+				gt 'husbsex','husb_mastr_vtor'
 			else
 				'<center><video autoplay loop src="images/shared/sex/mast/mastr.mp4"></video></center>'
 				'Unable to control yourself, you immediately reach for your dildo so you can take care of your lustful desires. You waste no time in attaching the suction base of the dildo to the floor before lowering yourself slowly onto it.'

locations/kuhr2x.qsrc

@@ -107,157 +107,7 @@ if dildo > 0 and pcs_horny >= 50:
 
 		if husband > 0 and husbandrink ! 10:
 			if week > 5 or week < 6 and hour > 16:
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m1.jpg"></center>'
-				'You climb up on the table and use your dildo to pleasure yourself.'
-
-				if hour = 7 or hour = 17:'<<$husName>> looks at you dumbfounded.'
-				if hour ! 7 or hour ! 17:'Just as you get into it, <<$husName>> walks into the room.'
-
-				gs 'arousal', 'vaginal_dildo', 15
-				gs 'stat'
-				
-				if harakHusb = 0:
-					'"What are you doing?" <<$husName>> asks.'
-					'"I''m sorry dear, but I really needed it and you''re always busy!" you reply without stopping.'
-					'"And how often do you that?" he asks.'
-					'"Every now and then. I sometimes put it in my ass too. Would you like to watch?"'
-
-					if izvratH = 0:
-						husband -= 1
-						'"I think I''ll step outside until you''re done." he says and leaves the apartment. You continue to satisfy yourself, but are a little disappointed that he didn''t ''help'' you.'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal_dildo', 5, 'masturbate'
-						gs 'arousal', 'end'
-						gs 'stat'
-
-						act 'Finish':gt 'kuhr'
-					elseif izvratH = 1:
-						'"Well, I''m... I''m not sure..." he stutters.'
-						'"So, what do you want?" you ask in response.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You pull the dildo out of your pussy and wink at him before pushing it into your ass. <<$husName>> watches closely and you notice the obvious bulge in his trousers.'
-							'"Is there anything else you want, dear?" you ask with a smile.'
-							'"Can I join you?" he asks, looking a little embarrassed.'
-
-							gs 'arousal', 'anal_dildo', 15, 'masturbate'
-							gs 'stat'
-							
-							act 'Yes':
-								cla
-								*clr
-								analorgasm += 1
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m13.jpg"></center>'
-								'<<$husName>> pulls his dick out and starts to masturbate in front of you. You''re surprised, having expected him to fuck you or ask for a blowjob instead. You sigh silently and continue to fuck your ass with the dildo as <<$husName>> watches and masturbates. You''re close to orgasm, and it sounds like <<$husName>> is too.'
-								'With a final thrust of your dildo, you''re hit by an orgasm so strong that you fall onto the floor. You slide your dildo out of your ass and lick it clean while locking eyes with your husband. He finds this incredibly erotic and his cum starts splattering over the floor. You passionately make out in the aftermath of your orgasms.'
-								
-								$orgasm_or = 'yes'
-								gs 'arousal', 'anal_dildo', 15, 'masturbate'
-								gs 'arousal', 'end'
-								gs 'stat'
-								
-								act 'Finish':gt 'kuhr'
-							end
-						end
-					end
-				elseif harakHusb = 1:
-					'"I guess sex with me isn''t enough?" he asks.'
-					'"I''m sorry dear, but I really needed it and you''re always busy!" you reply without stopping.'
-					'"Well then, why don''t you show me everything? I''d love to watch!"'
-					'"Do you want to watch me putting it in my ass?" you ask'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"No, not yet. That''s enough for now." he says as he sits down on a chair. You continue to satisfy yourself and soon orgasm in front of your husband. <<$husName>> applauds you. "Bravo! Care to do it again?" he chuckles.'
-						'"Anytime for such a lovely audience, but I need a quick break." you laugh as you take the dildo out of your pussy.'
-
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal_dildo', 5, 'masturbate'
-						gs 'stat'
-
-						act 'Finish':gt 'kuhr'
-					elseif izvratH = 1:
-						husband += 1
-						'"And what are you going to show me now?" he asks.'
-						'"Whatever you want..." you answer teasingly.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You push the dildo slowly into your ass. <<$husName>> watches closely and you notice the bulge in his pants.'
-							'It''s hard for you not to stare at it and you smile. "Need some...help there?" you ask teasingly.'
-							'"Now that you ask..." he says with a wink. "Give me a blowjob while you fuck your ass with that dildo." He unbuttons his pants and pulls his erect cock out.'
-
-							gs 'arousal', 'anal_dildo', 5
-							gs 'stat'
-							
-							act 'Blowjob':
-								cla
-								*clr
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-								'You start sucking his dick while continuing to pleasure yourself. After a few minutes, <<$husName>> pulls out of your mouth. "Time for me to fuck that hole."'
-
-								gs 'arousal', 'bj', 5, 'sub'
-								gs 'stat'
-								
-								act 'Anal':
-									picrand = 88
-									gt 'sex', 'anal'
-									gs 'arousal', 'end'
-									gs 'stat'
-								end
-							end
-						end
-					end
-				elseif harakHusb = 2:
-					'"Is your hole itching?" he asks.'
-					'"I''m sorry dear, but I really needed it and you''re always busy!" you reply without stopping.'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"Well then, open your mouth!" he orders as he pulls out his cock and pushes it into your mouth. He holds you by the hair and fucks your mouth while telling you to keep masturbating. After a few minutes, he stops. "Now take out that damn toy. Time for me to scratch your itch!"'
-
-						gs 'arousal', 'vaginal_dildo', 5 
-						gs 'arousal', 'bj', 5, 'rough'
-						minut -= 5
-						gs 'stat'
-						
-						act 'Spread your legs':
-							picrand = 87
-							gt 'sex', 'vag'
-							gs 'arousal', 'end'
-							gs 'stat'
-						end
-					elseif izvratH = 1:
-						husband += 1
-						'<<$husName>> orders you to put your toy into your ass and you submissively comply. "Now open your mouth and suck me off!"'
-
-						act 'Blowjob':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-							'You start sucking his dick while continuing to pleasure yourself. After a few minutes, <<$husName>> pulls out of your mouth. "Time for me to fuck that hole."'
-
-							gs 'arousal', 'bj', 5, 'sub'
-							gs 'stat'
-							
-							act 'Anal':
-								picrand = 87
-								gt 'sex', 'anal'
-								gs 'arousal', 'end'
-								gs 'stat'
-							end
-						end
-					end
-				end
+				gt 'husbsex','husb_mastr_vtor'
 			else
 				'<center><video autoplay loop src="images/shared/sex/mast/mastr.mp4"></video></center>'
 				'Unable to control yourself, you immediately reach for your dildo so you can take care of your lustful desires. You waste no time in attaching the suction base of the dildo to the floor before lowering yourself slowly onto it.'
@@ -269,7 +119,7 @@ if dildo > 0 and pcs_horny >= 50:
 				gs 'arousal', 'vaginal_dildo', 10, 'masturbate'
 				gs 'arousal', 'end'
 				
-				act 'Breathe':gt 'kuhr'
+				act 'Breathe':gt $loc
 			end
 		else
 			'<center><video autoplay loop src="images/shared/sex/mast/mastr.mp4"></video></center>'
@@ -282,7 +132,7 @@ if dildo > 0 and pcs_horny >= 50:
 			gs 'arousal', 'vaginal_dildo', 10, 'masturbate'
 			gs 'arousal', 'end'
 				
-			act 'Breathe':gt 'kuhr'
+			act 'Breathe':gt $loc
 		end
 	end
 end

locations/masharoom.qsrc

@@ -649,7 +649,6 @@ if $ARGS[0] = '2':
 			act 'Wait':
 				cla
 				*clr
-				analorgasm += 1
 				'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r25.jpg"></center>'
 				'You wait on your side, then you feel his fingers rubbing your asshole. They have a bit of lube on them, not as much as you would like but better than nothing. He rubs the lube against your asshole and slips his fingers into your ass. Then he pulls them out and you feel his cock pressed against your ass. He puts a hand on your hip and none to gentle shoves his dick into your ass. He jerks back on you by the hip and thrusts forward, driving himself balls deep on the first thrust. YOu cry out in pain, but you also kinda like it.'
 				'He starts hammering your ass balls deep, your moans of pain and pleasure get louder and louder. You don''t know which is the more powerful feeling the pain of him hammering your ass or the pleasure. After a bit the pain starts to subside and then all that is left is the pleasure, the thought of being used like this makes it all the more pleasurable. He hammers away at your ass for a long time, you have several orgasms and have completely lost track of time. Finally he starts cumming, you can feel his hot sperm shooting into your ass. Then pulls his dick out of you and gets up. "Quickly now, get up and open your mouth!" he commands.'

locations/obj_din.qsrc

@@ -721,9 +721,12 @@ if $ARGS[0] = 'stats':
 		if bordelslutty > 0: 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
 		if hidden_slutty > 0: 'Sold your body <<hidden_slutty>> times, and gave all the money to your therapist. You do not remember any of it.'
 	end
-
-	if orgasm > 0: 'Experienced orgasm <<orgasm>> times.'
-	if analorgasm > 0 : 'You''ve had <<analorgasm>> anal orgasms.'
+orgasm_masturbate
+	if orgasm > 0: 'You have experienced <<orgasm>> orgasms.'
+	if orgasm_masturbate > 0: '<<orgasm_masturbate>> of them from masturbation.'
+	if orgasm_clit > 0 : '<<orgasm_clit>> of them from clitoral stimulation.'
+	if orgasm - orgasm_clit - orgasm_anal > 0 : '<<orgasm - orgasm_clit - orgasm_anal>> of them vaginal orgasms.'
+	if orgasm_anal > 0 : '<<orgasm_anal>> of them anal orgasms.'
 	if swallow > 0: 'Sperm swallowed <<swallow>> times.'
 	if facial > 0: 'You have taken <<facial>> facials.'
 	if frot > 0 or hump > 0: 'Your clothes have been come on <<frot + hump>> times.'
@@ -732,7 +735,7 @@ if $ARGS[0] = 'stats':
 	if stat['pee'] > 0: 'You''ve been peed on <<stat[''pee'']>> times.'
 	if swallowpee > 0: 'You swallowed urine <<swallowpee>> times.'
 	!!!WD:FORMATING
-	if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + stat['pee_give'] + stat['pee'] + swallowpee) > 0:*nl
+	*nl
 	!!!
 	gs 'obj_din', 'husb_cheat_count'
 

locations/orgasm.qsrc

@@ -4,11 +4,15 @@
 
 
 orgasm_buildup -= 70
-if orgasm_flag['masturbate'] = 1: orgasm_masturbate += 1
+if orgasm_flag['masturbate'] = 1:
+	orgasm_masturbate += 1
+elseif orgasm_flag['anal'] = 1:
+	orgasm_anal += 1
+elseif orgasm_flag['clit'] = 1:
+	orgasm_clit += 1
+end
 orgasm += 1
 
-if temp_anal = 1: analorgasm += 1
-
 if $orgasm_or = 'custom':
 	$orgasm_txt
 elseif $orgasm_txt ! '':

locations/placer_sex.qsrc

@@ -1336,8 +1336,6 @@ gs 'stat'
 					gs 'arousal', 'anal', 5, 'unknown', 'sub'
 					gs 'stat'
 					act 'Continue':
-						pcs_mood += 15
-						analOrgasm += 1
 						gs'stat'
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex44.jpg"></center>'

locations/saveupdater.qsrc

@@ -1309,8 +1309,13 @@ if ((100*version_major +version_minor)*100+version_revision)*100+version_patch
 	i +=1
 	if i < ARRSIZE('lover'): jump 'girlfriend_looop'
 	Killvar 'i'
+	
+	if analorgasm > 0: orgasm_anal += analorgasm
 end
 
+
+
+
 gs 'saveg'
 --- saveupdater ---------------------------------
 

locations/sitr.qsrc

@@ -231,128 +231,7 @@ if dildo > 0 and pcs_horny >= 50:
 		pcs_vag += 1
 		if husband > 0 and husbandrink ! 10:
 			if week > 5 or week < 6 and hour > 16:
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m11.jpg"></center>'
-				'You sit down on the couch and push a dildo into your pussy.'
-
-				if hour > 17 and hour <= 22:'<<$husName>> looks at you, stunned by your sudden act of lewdness.'
-				if hour = 16 or hour > 22:'<<$husName>> enters the room after he heard moans from outside.'
-
-				if harakHusb = 0:
-					'"What are you doing?" <<$husName>> asks.'
-					'"I''m sorry dear, but I really need it, and you''re always busy," you reply without stopping masturbating.'
-					'"And how often do you that?" he asks.'
-					'"Every now and then, sometimes I put it in my ass too, would you like to watch me?" you ask him'
-
-					if izvratH = 0:
-						husband -= 1
-						'"I think I''ll step outside until you are done," he says and leaves the apartment. You continue to satisfy yourself but are a bit sad he didn''t ''help'' you.'
-						pcs_horny = 0
-						orgasm += 1
-
-						act 'Finish':gt 'sitr'
-					elseif izvratH = 1:
-						'"Well, I''m... I''m not sure," he stutters.'
-						'"So, what do you want?" you ask.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You pull out the dildo from your pussy and wink at your husband, then you push the dildo into your ass. <<$husName>> watches closely as the dildo moves in and out. You notice the obvious bulge in his trousers.'
-							'"Dear, is there anything else you want?" you ask, smiling at him.'
-							'"Can I join?" he asks you, a little embarrassed.'
-
-							act 'Together':
-								cla
-								*clr
-								analorgasm += 1
-								orgasm += 1
-								pcs_horny = 0
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m13.jpg"></center>'
-								'<<$husName>> takes out his dick and starts to masturbate right in front of you. You''re surprised because you expected he''d fuck you or something along those lines. You sigh silently and continue to fuck your ass with the dildo. <<$husName>> now masturbates furiously, as your moaning becomes louder. Both of you realize it won''t be long until either of you cums.'
-								'With a final thrust, it''s you, who experiences the first orgasm, and it''s so strong that you fall off the couch onto the floor. You take your dildo out of your ass and lick it clean while locking eyes with your husband. He finds this incredibly erotic, and it takes him merely a few more seconds to cum, spraying his salty fluids over the couch and carpet. In the afterbliss of both of your orgasms, you kiss each other passionately.'
-
-								act 'Finish':gt 'sitr'
-							end
-						end
-					end
-				elseif harakHusb = 1:
-					'"I guess sex with me isn''t enough?" he asks.'
-					'"I''m sorry dear, but I really need it, and you''re always busy," you reply without stopping masturbating.'
-					'"Well then, why don''t you show me everything then? I''d love to watch," he says.'
-					'"Do you want to see me putting it in my ass too?" you ask.'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"No, not yet, what you''re doing is enough for now," he says and sits down on a chair. You continue to satisfy yourself rapidly and soon orgasm in front of your husband. <<$husName>> applauds you. "Bravo! Care to do it again?" he says chuckling.'
-						'"Anytime for such a lovely audience, but I need a quick break," you laugh and take the dildo out of your pussy.'
-						pcs_horny = 0
-						orgasm += 1
-
-						act 'Finish':gt 'sitr'
-					elseif izvratH = 1:
-						husband += 1
-						'"And what are you going to show me now?" he asks.'
-						'"Whatever you would like to see," you answer.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You move your dildo slowly into your ass. <<$husName>> watches closely as the dildo moves in and out. You notice the bulge in his pants.'
-							'It''s hard for you not to look at it. Therefore, you ask him if he would like to participate somehow.'
-							'"Now that you ask," he says, "you could blow me while pumping that toy into your ass." He unbuttons his pants and takes his cock out.'
-
-							act 'Blowjob':
-								cla
-								*clr
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-								'You start to suck on his flaccid penis while you continue to pleasure yourself by pumping the dildo in and out of your ass. After a short while, <<$husName>>''s dick becomes rock hard. When it finally is, he says, "Time for me to fuck that hole."'
-
-								gs 'boyStat', $HusID
-								act 'Anal sex':
-									picrand = 88
-									gt 'sex', 'anal'
-								end
-							end
-						end
-					end
-				elseif harakHusb = 2:
-					'"Is your hole itching?" he asks.'
-					'"I''m sorry dear, but I really need it, and you''re always busy," you reply without stopping masturbating.'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"Well then, open your mouth," he orders you, pulling out his cock and pushing it into your mouth by force. He holds you by the hair and fucks your mouth while telling you not to stop masturbating. Soon after, he becomes tired of your mouth. "Now take out that damn toy, time for me to scratch your itch."'
-
-						gs 'boyStat', $HusID
-						act 'Spread your legs':
-							picrand = 88
-							gt 'sex', 'vag'
-						end
-					elseif izvratH = 1:
-						husband += 1
-						SUB += 1
-						'<<$husName>> orders you to put your toy into your ass, and you submissively oblige to do so. "Now open your mouth and suck me off," he tells you.'
-
-						act 'Blowjob':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-							'You start to suck on his flaccid penis while you continue to pleasure yourself by pumping the dildo in and out of your ass. After a short while, <<$husName>>''s dick becomes rock hard. When it finally is, he says, "Time for me to fuck your ass-pussy."'
-
-							gs 'boyStat', $HusID
-							act 'Anal Sex':
-								picrand = 88
-								gt 'sex', 'anal'
-							end
-						end
-					end
-				end
+				gt 'husbsex','husb_mastr_vtor'
 			else
 				'<center><video autoplay loop src="images/shared/sex/mast/mastr.mp4"></video></center>'
 				'Unable to control yourself anymore, you immediately reach for your dildo so you can finally take care of your lustful desires. You waste no time attaching the suction base of the dildo onto the floor before lowering yourself slowly to its tip.'

locations/sitr2x.qsrc

@@ -71,124 +71,7 @@ if dildo > 0 and pcs_horny >= 50:
 
 		if husband > 0 and husbandrink ! 10:
 			if week > 5 or week < 6 and hour > 16:
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m11.jpg"></center>'
-				'You sit down on the couch and push a dildo into your pussy.'
-
-				if hour > 17 and hour <= 22:'<<$husName>> looks at you, stunned by your sudden act of lewdness.'
-				if hour = 16 or hour > 22:'<<$husName>> enters the room after he heard moans from outside.'
-
-				if harakHusb = 0:
-					'"What are you doing?" <<$husName>> asks.'
-					'"I''m sorry dear, but I really need it, and you''re always busy," you reply without stopping masturbating.'
-					'"And how often do you that?" he asks.'
-					'"Every now and then, sometimes I put it in my ass too, would you like to watch me?" you ask him.'
-
-					if izvratH = 0:
-						husband -= 1
-						'"I think I''ll step outside until you are done," he says and leaves the apartment. You continue to satisfy yourself but are a bit sad he didn''t ''help'' you.'
-						pcs_horny = 0
-						orgasm += 1
-
-						act 'Finish':gt 'sitr2x'
-					elseif izvratH = 1:
-						'"Well, I''m... I''m not sure," he stutters.'
-						'"So, what do you want?" you ask.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You pull out the dildo from your pussy and wink at your husband, then you push the dildo into your ass. <<$husName>> watches closely as the dildo moves in and out. You notice the obvious bulge in his trousers.'
-							'"Dear, is there anything else you want?" you ask, smiling at him.'
-							'"Can I join?" he asks you, a little embarrassed.'
-
-							act 'Together':
-								cla
-								*clr
-								analorgasm += 1
-								orgasm += 1
-								pcs_horny = 0
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m13.jpg"></center>'
-								'<<$husName>> takes out his dick and starts to masturbate right in front of you. You''re surprised because you expected he''d fuck you or something along those lines. You sigh silently and continue to fuck your ass with the dildo. <<$husName>> now masturbates furiously, as your moaning becomes louder. Both of you realize it won''t be long until either of you cums.'
-								'With a final thrust, it''s you who experiences the first orgasm, and it''s so strong that you fall off the couch onto the floor. You take your dildo out of your ass and lick it clean while locking eyes with your husband. He finds this incredibly erotic, and it takes him merely a few more seconds to cum, spraying his salty fluids over the couch and carpet. In the afterbliss of both of your orgasms, you kiss each other passionately.'
-
-								act 'Finish':gt 'sitr2x'
-							end
-						end
-					end
-				elseif harakHusb = 1:
-					'"I guess sex with me isn''t enough?" he asks.'
-					'"I''m sorry dear, but I really need it, and you''re always busy," you reply without stopping masturbating.'
-					'"Well then, why don''t you show me everything then? I''d love to watch," he says.'
-					'"Do you want to see me putting it in my ass too?" you ask'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"No, not yet, what you''re doing is enough for now," he says and sits down on a chair. You continue to satisfy yourself rapidly and soon orgasm in front of your husband. <<$husName>> applauds you. "Bravo! Care to do it again?" he says chuckling.'
-						'"Anytime for such a lovely audience, but I need a quick break," you laugh and take the dildo out of your pussy.'
-						pcs_horny = 0
-						orgasm += 1
-
-						act 'Finish':gt 'sitr2x'
-					elseif izvratH = 1:
-						husband += 1
-						'"And what are you going to show me now?" he asks.'
-						'"Whatever you would like to see," you answer.'
-
-						act 'Put on a show':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
-							'You move your dildo slowly into your ass. <<$husName>> watches closely as the dildo moves in and out. You notice the bulge in his pants.'
-							'It''s hard for you not to look at it. Therefore, you ask him if he would like to participate somehow.'
-							'"Now that you ask," he says, "you could blow me while pump that toy into your ass." He unbuttons his pants and takes his cock out.'
-
-							act 'Blowjob':
-								cla
-								*clr
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-								'You start to suck on his flaccid penis while you continue to pleasure yourself by pumping the dildo in and out of your ass. After a short while, <<$husName>>''s dick becomes rock hard. When it finally is, he says, "Time for me to fuck that hole."'
-
-								act 'Anal sex':
-									picrand = 88
-									gt 'sex', 'anal'
-								end
-							end
-						end
-					end
-				elseif harakHusb = 2:
-					'"Is your hole itching?" he asks.'
-					'"I''m sorry dear, but I really need it, and you''re always busy," you reply without stopping masturbating.'
-
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
-						'"Well then, open your mouth," he orders you, pulling out his cock and pushing it into your mouth by force. He holds you by the hair and fucks your mouth while telling you not to stop masturbating. Soon after, he becomes tired of your mouth. "Now take out that damn toy, time for me to scratch your itch."'
-
-						act 'Spread your legs':
-							picrand = 88
-							gt 'sex', 'vag'
-						end
-					elseif izvratH = 1:
-						husband += 1
-						'<<$husName>> orders you to put your toy into your ass, and you submissively oblige to do so. "Now open your mouth and suck me off," he tells you.'
-
-						act 'Blowjob':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
-								'You start to suck on his flaccid penis while you continue to pleasure yourself by pumping the dildo in and out of your ass. After a short while, <<$husName>>''s dick became rock hard. When it finally is, he says, "Time for me to fuck your ass-pussy."'
-
-							act 'Anal sex':
-								picrand = 88
-								gt 'sex', 'anal'
-							end
-						end
-					end
-				end
+				gt 'husbsex','husb_mastr_vtor'
 			else
 				pcs_horny = 0
 				orgasm += 1

locations/stat.qsrc

@@ -26,12 +26,6 @@ if cheatHealth = 1: dynamic $cheatmenu['std_cure']
 
 if (analplay >= 2 and pcs_ass <= 10) or (analplay >= 4 and pcs_ass <= 15) or (analplay >= 8 and pcs_ass <= 20): pcs_ass += 1 & analplay = 0
 
-if analorgasm >= 10 and traits['buttslut_lvl'] = 0: traits['buttslut_lvl'] = 1
-if (analorgasm - (orgasm - analorgasm) >= 15) and traits['buttslut_lvl'] = 1: traits['buttslut_lvl'] = 2
-if (analorgasm - (orgasm - analorgasm) < 15) and traits['buttslut_lvl'] = 2: traits['buttslut_lvl'] = 1
-if ((orgasm - analorgasm)*2 <= analorgasm) and traits['buttslut_lvl'] = 2: traits['buttslut_lvl'] = 3
-if ((orgasm - analorgasm)*2 > analorgasm) and traits['buttslut_lvl'] = 3: traits['buttslut_lvl'] = 2
-
 !!The following seems to be part of the combat system.
 musle[1] = musle
 flex[1] = pcs_agil

locations/traits.qsrc

@@ -149,11 +149,8 @@ if $ARGS[0] = 'menu':
 	end
 
 	*nl
-	if analorgasm >= 10 and traits['buttslut_lvl'] = 0: traits['buttslut_lvl'] = 1
-	if traits['buttslut_exp'] >= 15 and traits['buttslut_lvl'] = 1: traits['buttslut_lvl'] = 2 & traits['buttslut_exp'] = 0
-	if traits['buttslut_exp'] >= 50 and traits['buttslut_lvl'] = 2: traits['buttslut_lvl'] = 3
-	if traits['buttslut_exp'] <= 0 and traits['buttslut_lvl'] = 3: traits['buttslut_lvl'] = 2 & traits['buttslut_exp'] = 0
 
+	!!exp earned from anal sex but degrades over time. Level 3 can be lost but lvl1 and 2 cannot
 	'<center><b>Buttslut</b></center>'
 	if traits['buttslut_lvl'] = 0:
 		'You need to have more anal orgasms to gain this trait. To reach lvl 1 you need to gain more anal orgasm exp.'

locations/zsoft_gopskverGorSlut.qsrc

@@ -700,12 +700,12 @@ end
 
 if $ARGS[0] = 'hornyparksex':
 	if horand > pcs_horny:pcs_horny = pcs_horny + 10 & pcs_sleep -=1 & '<<$horny_orgazm_text2>> <<$horny_orgazm_text3>>.'
-	if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & pcs_mood += 5 &'<<$horny_orgazm_text2>> <<$horny_orgazm_text4>>'
+	if horand <= pcs_horny:pcs_horny = 0 & pcs_mood += 5 &'<<$horny_orgazm_text2>> <<$horny_orgazm_text4>>'
 end
 
 if $ARGS[0] = 'hornyparksexanal':
 	if horand > pcs_horny:pcs_horny = pcs_horny + 10 & pcs_sleep -=1 & '<<$horny_orgazm_text2>> <<$horny_orgazm_text3>>.'
-	if horand <= pcs_horny:pcs_horny = 0 & analorgasm += 1 & pcs_mood += 5 &'<<$horny_orgazm_text2>> <<$horny_orgazm_text4>>'
+	if horand <= pcs_horny:pcs_horny = 0 & pcs_mood += 5 &'<<$horny_orgazm_text2>> <<$horny_orgazm_text4>>'
 end
 
 if $ARGS[0] = 'cumface':