[added] cuni check to willpower for giving and receiving cunnilingus to keep it simple

locations/willpower.qsrc

@@ -4,7 +4,7 @@
 !!type is the nature of the demand and can be any of the following:
 !!
 !!Sex acts, this is for the cost to refuse advances or force another to partake
-!!'hj', 'bj', 'sex', 'anal', 'gangbang', 'prostitution', 'swallow', 'cum_inside'
+!!'hj', 'bj', 'cuni', 'sex', 'anal', 'gangbang', 'prostitution', 'swallow', 'cum_inside'
 !!Bridging a gap in skill, for succeeding when not quite meeting the required skill/attribute, must include skill with _lvl postfix in $ARGS[1]
 !!'skill'
 !!Standing up to unwanted sex
@@ -86,6 +86,19 @@ if $ARGS[0] = 'bj':
 		will_cost = (100 + will_calc)/10
 	end
 end
+
+if $ARGS[0] = 'cuni':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	cuni_check = (stat['cuni'] + stat['cuni_give']) / 2
+	if cuni_check <= 90:
+		will_cost = (cuni_check + will_calc)/10
+	else
+		will_cost = (100 + will_calc)/10
+	end
+	killvar 'cuni_check'
+end
 	
 if $ARGS[0] = 'sex':
 	gs 'willpower', 'calc'