New auto lube system, needs seeding

locations/arousal.qsrc

@@ -41,6 +41,7 @@ Format to use: gs 'arousal', 'act', 'duration', 'fetish', 'fetish', 'fetish', 'f
 eg: gs 'arousal', 'trib', 10, 'bound', 'sub'
 In this case lesbianism is automatically added, much as feet would be applied to 'footjob'
 Lubrication - if one of the arguments $ARGS[2] - [8] is set to 'lube', it supposes that it is used some kind of lubricant - preferably from PCs supply of lube.
+The lube will remain applied to the orifice in question until 'end' is called. The usage of Svetas lube and checks for her having any must be done in the sex act.
 Unaware - if one of the arguments $ARGS[2] - [8] is set to 'unaware', Sveta is not aware of this Sexact. Sveta will never know she had Sex!
 The lubrication is binded with anal or vaginal action. I think that the best combo is with 'anal_finger' and 'vaginal_finger'
 Only call one at a time, if more required, use multiple calls
@@ -78,15 +79,17 @@ if $ARGS[0] ! 'end' and $ARGS[0] ! 'checks' and $ARGS[0] ! 'count' and $ARGS[0]
 	!! first let us determine how slippery are pc''s holes
 	if vaginal_slip < pcs_horny / 10: vaginal_slip = pcs_horny / 10
 	if strpos($ARGS[2]+$ARGS[3]+$ARGS[4]+$ARGS[5]+$ARGS[6]+ $ARGS[7]+ $ARGS[8],'lube') > 0:
-		if mid($ARGS[0],1,4) = 'anal':
-			anal_slip += iif(lubri = 0,2,8)
-			if anal_slip > 10: anal_slip=10
-			if lubri > 0: lubri -= 1
+		if ar_anal_lube = 0:
+			if mid($ARGS[0],1,4) = 'anal':
+				anal_slip = 8
+				ar_anal_lube = 1
+			end
 		end
-		if mid($ARGS[0],1,4) = 'vagi':
-			vaginal_slip += iif(lubri = 0,2,8)
-			if vaginal_slip > 12: vaginal_slip=12
-			if lubri > 0: lubri -= 1
+		if ar_vag_lube = 0:
+			if mid($ARGS[0],1,4) = 'vagi':
+				vaginal_slip = 8
+				ar_vag_lube = 1
+			end
 		end
 	end
 	!!	This is to allow a Succubus with the right skill level to handle any size then go back to original size
@@ -701,9 +704,11 @@ if $ARGS[0] = 'end':
 	if stim['prostitution'] = 1: slutty += 1
 	if stim['hidden_prostitution'] = 1: hidden_slutty += 1
 	
+	killvar 'anal_slip'
+	killvar 'ar_anal_lube'
+	killvar 'vagi_slip'
+	killvar 'ar_vag_lube'
 	killvar '$orgasm_or'
-	anal_slip = 0
-	vaginal_slip = 0
 
 !!Updating fetish exp for acts carried out and clearing data
 	gs 'arousal', 'checks', 'maso'
@@ -817,5 +822,27 @@ if $ARGS[0] = 'checks':
 		dynamic '<<$ARGS[1]>>[''exp''] += 1'
 	end
 end
+
+if $ARGS[0] = 'auto_lube':
+	if $ARGS[1] = 'anal':
+		if lubri > 0:
+			anal_slip = 8
+			ar_anal_lube = 1
+			lubri -= 1
+		else
+			'You do not have any lube left so cannot use it during this sex act'
+		end
+	end
+	if $ARGS[1] = 'vag':
+		if lubri > 0:
+			vagi_slip = 8
+			ar_vag_lube = 1
+			lubri -= 1
+		else
+			'You do not have any lube left so cannot use it during this sex act'
+		end
+	end
+end
+
 --- arousal ---------------------------------
 

locations/din_bad.qsrc

@@ -162,10 +162,23 @@ if $ARGS[0] = 'd_bag':
 		elseif preziktype < 2 and preziksabo = 0:
 			'You have <b><<prezik+prezikcount>></b> <a href="exec:dynamic $din_Switch_Condom_Menu">condoms left in your purse.</a>'
 		end
-		*nl
 	else
 		'You are out of condoms.'
 	end
+	if lubri > 0:
+		'You have <b><<lubri>></b> squirts of lubricant available'
+		if auto_anal_lube = 0:
+			'Automatically use for anal sex: <a href="exec:auto_anal_lube = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">No</a>'
+		else
+			'Automatically use for anal sex: <a href="exec:auto_anal_lube = 0 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Yes</a>'
+		end
+		if auto_vag_lube = 0:
+			'Automatically use for vaginal sex: <a href="exec:auto_vag_lube = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">No</a>'
+		else
+			'Automatically use for vaginal sex: <a href="exec:auto_vag_lube = 0 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Yes</a>'
+		end
+	end
+	*nl
 	if amphetamine > 0:	'You have <b><<amphetamine>></b> tablets of amphetamine left in your purse. <a href="exec: gs ''drugs'', ''amphetamine'' & gs ''din_bad'', ''d_bag''">Take One</a>'
 	if joint > 0: 'You have enough weed for <b><<joint>></b> joints.'
 	if tabletki > 0 and pillsleft[ptype] > 0: