[added] Buttslut trait

locations/arousal.qsrc

@@ -168,8 +168,16 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		stim['act'] = 80
 	elseif $ARGS[0] = 'rimming':
 		orgasm_flag = 1
+		temp_anal = 1
 		count['rimming'] = 1
 		stim['act'] = 30
+		if traits['buttslut_lvl'] = 1:
+			stim['mag'] += 2
+			stim['act'] = 50
+		elseif traits['buttslut_lvl'] >= 2:
+			stim['mag'] += 4
+			stim['act'] = 80
+		end
 	elseif $ARGS[0] = 'trib':
 		orgasm_flag = 1
 		count['trib'] = 1
@@ -184,6 +192,11 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		else
 			count['anal'] = 1
 		end
+		if traits['buttslut_lvl'] = 1:
+			stim['mag'] += 1
+		elseif traits['buttslut_lvl'] >= 2:
+			stim['mag'] += 3
+		end
 		if pcs_ass < temp_dick:pcs_ass += 1
 		if pcs_ass*2 < temp_dick:pcs_ass += 1
 		!! length and girth abilities of anus are not also separated , but I suppose that they are related although it is not propable
@@ -215,11 +228,23 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		temp_anal = 1
 		count['anal_finger'] = 1
 		stim['act'] = 40
+		if traits['buttslut_lvl'] = 1:
+			stim['mag'] += 1
+			stim['act'] = 60
+		elseif traits['buttslut_lvl'] >= 2:
+			stim['mag'] += 1
+			stim['act'] = 80
+		end
 	elseif $ARGS[0] = 'anal_fist':
 		orgasm_flag = 1
 		temp_anal = 1
 		count['anal_fist'] = 1
 		stim['act'] = 30
+		if traits['buttslut_lvl'] = 1:
+			stim['act'] = 50
+		elseif traits['buttslut_lvl'] >= 2:
+			stim['act'] = 70
+		end
 		if pcs_ass + anal_slip < 30:
 			pcs_ass = 30
 			gs 'pain', 4-agape, 'asshole', 'stretch'
@@ -238,6 +263,11 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		if agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
 		if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0
 		stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
+		if traits['buttslut_lvl'] = 1:
+			stim['act'] += 10
+		elseif traits['buttslut_lvl'] >= 2:
+			stim['mag'] += 1
+		end
 		if agrdif < 0: agrdif = 0
 		if altdif < 0: altdif = 0
 		agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
@@ -256,6 +286,11 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		if agrdif > anal_slip: agrdif = agrdif - anal_slip else if agrdif > 0: agrdif = 0
 		if -agrdif > anal_slip: agrdif = agrdif + anal_slip else if agrdif < 0: agrdif = 0
 		stim['act'] = 80 - (iif(altdif>0,altdif,-altdif) + iif(agrdif >0,agrdif,-agrdif)) + temp_silavag*8
+		if traits['buttslut_lvl'] = 1:
+			stim['act'] += 10
+		elseif traits['buttslut_lvl'] >= 2:
+			stim['mag'] += 1
+		end
 		if agrdif < 0: agrdif = 0
 		if altdif < 0: altdif = 0
 		agape = iif((agrdif + altdif) > 10*agape,(agrdif + altdif)/10,agape)
@@ -267,6 +302,13 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		count['anal_vibe'] = 1
 		stim['mag'] += 1
 		stim['act'] = 60
+		if traits['buttslut_lvl'] = 1:
+			stim['mag'] += 1
+			stim['act'] = 70
+		elseif traits['buttslut_lvl'] >= 2:
+			stim['mag'] += 2
+			stim['act'] = 90
+		end
 	elseif $ARGS[0] = 'vaginal':
 		orgasm_flag = 1
 
@@ -469,6 +511,14 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 		stim['act'] = 10
 	end
 
+	!! anal acts
+	if (mid($ARGS[0],1,4) = 'anal' and mid($ARGS[0],len($ARGS[0])-3,len($ARGS[0])) ! 'give') or $ARGS[0] = 'rimming':
+		if traits['buttslut_lvl'] = 3:
+			stim['act'] += 20
+		end
+	end
+
+
 	if stim['mag'] > 9: stim['mag'] = 9
 
 	if ARGS[1] > 0: minut += ARGS[1]

locations/stat.qsrc

@@ -26,6 +26,12 @@ 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

@@ -148,6 +148,31 @@ if $ARGS[0] = 'menu':
 		'You''ve built up a tolerance, making it harder for you to feel the effects of alcohol.'
 	end
 
+	*nl
+	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
+
+	'<center><b>Buttslut</b></center>'
+	if traits['buttslut_lvl'] = 0:
+		'You need to have more anal orgasms to gain this trait.'
+	elseif traits['buttslut_lvl'] = 1:
+		'You have this trait at level 1. To reach lvl 2 you need to have at least 15 more anal orgasms than vaginal orgasms.'
+		'You''re starting to enjoy anal sex ' + iif(pcs_vag > 0, 'almost as much as regular sex.', 'more than before.')
+	elseif traits['buttslut_lvl'] = 2:
+		'You have this trait at level 2. To reach lvl 3 you need to have at least twice more anal orgasms than vaginal orgasms.'
+		'You''re starting to enjoy anal sex ' + iif(pcs_vag > 0, 'as much as regular sex.', 'more than before.')
+	elseif traits['buttslut_lvl'] = 3:
+		'You have this trait at level 3.'
+		if pcs_vag > 0:
+			'You now prefer anal sex over regular sex.'
+		else
+			'You really enjoy anal.'
+		end
+	end
+
 	act 'Exit the menu': gt $loc, $loc_arg
 	'</td></tr></table></center>'
 end