Select Dildo to use and more Code Fixes

New code to select which dildo to use in masturbation.
Remove  unused 'nude' variable
Add Maruda Hair mod braids to reduce daily and give same Beauty as currly hair
Elseif logic fix in 'KotovSex',
Scale bodykoef to range from 0 to 8 smoothly.

locations/EvOtelMan

@@ -211,7 +211,7 @@ $din_otel_man_beforesex = {
 				money += 3000
 				gs 'stat'
 				'<center><img src="images/qwest/alter/Ev/sex.jpg"></center>'
-				'You stretched palm and man shaking hands you counted five thousand. After that <<$bname>> threw you on the bed and spread your legs.'
+				'You stretched palm and man shaking hands you counted three thousand. After that <<$bname>> threw you on the bed and spread your legs.'
 				dynamic $sexstart
 				dynamic $sexstart2
 				dynamic $sexcum

locations/Gadsarai

@@ -266,7 +266,9 @@ if findvel=1 and hour >= 7 and hour < 20:
 		manna+=5
 		sweat+=2
 		findvelrand= RAND (0,100)
-		if nude = 1:
+		! WD: Fix old nude variable
+		! if nude = 1:
+		if $clothingworntype = 'nude':
 			horny += 20
 			willpower+=10
 			gs'stat'

locations/body

@@ -160,7 +160,6 @@ if hairlength > 400:$hair = 'You have a very long <<$hcol>> hair<<$hbangs>>, tha
 !!if hcol = 3:$hair = 'You have a <<$hapri>> <<$curly>>, blonde hair.'
 !!! Maruda Hair Mod
 
-if lip > 4:lip = 4
 if lip > 4:lip = 4
 if lip < 0:lip = 0
 
@@ -242,12 +241,22 @@ if lobok > 0 and lobok <= 2:lobkoef = 0 & $lobok = 'You have a light but visible
 if lobok > 2:lobkoef = 0 & $lobok = 'You have a full delta of thick <a href="exec:view''images/body/hpussy.jpg''">pubic hair</a>. <<$pirsG>>'
 
 bodytipe = bedra - talia
-
+! WD: Scale bodykoef
+!{
 if bodytipe < 20:bodykoef = 0
 if bodytipe >= 20 and bodytipe < 25:bodykoef = 2
 if bodytipe >= 25 and bodytipe < 30:bodykoef = 4
 if bodytipe >= 30 and bodytipe < 35:bodykoef = 8
 if bodytipe >= 35:bodykoef = 4
+}!
+if bodytipe >= 36:
+	set bodykoef = 8 - (bodytipe - 36) / 3
+elseif bodytipe >= 30:
+	set bodykoef = 8
+else
+	set bodykoef = (bodytipe - 15) / 3
+end
+if bodykoef < 0:set bodykoef = 0
 
 if tan > 0:
 	tanKoef = 1
@@ -255,7 +264,9 @@ else
 	tanKoef = 0
 end
 
-if curly > 0:
+
+! WD: Add braids (Maruda Hair Mod) to bonus to vnesh
+if curly > 0 or hbraids > 0:
 	curlykoef = 1
 else
 	curlykoef = 0

locations/cikl

@@ -1,6 +1,10 @@
 # cikl
 if curly > 0:curly -= 1
 
+! WD: Added daily reduction of braids for Maruda Hair Mod
+if hbraids > 0:hbraids -= 1 &
+
+
 sweat += 1
 
 if tan > 0:tan -= 1

locations/father

@@ -268,7 +268,9 @@ if mother_go = 1 and hour = 16 and TouchedByFather = 1 and horny >= 50 or hadsex
 	end
 end
 
-if nude=1:
+! WD: Fix old nude variable
+! if nude = 1:
+if $clothingworntype = 'nude':
 	'Stepfather with a smirk looking at you - "Nifiga! Blyadinka growing. Did you ever be ashamed,I-I`m still the man."'
 	if hadsexwithfather ! 1:
 		if father>=40:
@@ -293,13 +295,17 @@ if nude=1:
 end
 
 if hadsexwithfather=1:fatherwantssex=rand(1,2)
-if nude=1: fatherwantssex=1
+! WD: Fix old nude variable
+! if nude = 1:
+if $clothingworntype = 'nude': fatherwantssex=1
 if hadsexwithfather=1 and fatherwantssex=1 and mother_go = 1 and hour = 16 and father>60:
 	cls
 	gs 'stat'
 	'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
 	'<center><img src="images/qwest/alter/father.jpg"></center>'
-	if nude=1:'- Wow, I see you`ve prepared, I undressed for "Daddy"'
+	! WD: Fix old nude variable
+	! if nude = 1:
+	if $clothingworntype = 'nude': '- Wow, I see you`ve prepared, I undressed for "Daddy"'
 	'Not having to say a word stepfather, you notice, he unbuttons his pants and pulls out a ready to fight a member: "Svetik, Rejoice old."'
 	act '<B>Move away</B>':gt $loc, $metka
 	act 'Kneel down':dynamic $d_fatherblow_act[4]

locations/kotovSex

@@ -55,7 +55,9 @@ $din_kotov_bj = {
 							act 'Leave.':gt 'gorodok'
 						end
 
-						if kotovBJtimes > 12:
+						! WD: fix logic in if ... elseif
+						! if kotovBJtimes > 12:
+						if kotovBJtimes > 12 and kotovBJtimes <= 15:
 							act 'Swallow.':
 								cls
 								minut += 5

locations/selfplay

@@ -246,6 +246,69 @@ if bigdildo = 1:'Do you have a long dildo 25 cm.'
 if extradildo = 1:'Do you have a long dildo 30 cm.'
 if superdildo = 1:'Do you have a long dildo 35 cm.'
 if maddildo = 1:'Do you have a long dildo 40 cm.'
+}!
+if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0:
+	if dildohand ! 0: *pl & *pl 'You are using a <<dildohand>>cm long dildo.'
+
+	*pl
+
+	if dildo = 1:
+		if dildohand = 10:
+			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using a 10cm long dildo.'
+		else
+			*pl '<a href="exec:dildohand = 10 & gt $curloc">Start</a> using a 10cm long dildo.'
+		end
+	end
+
+	if middildo = 1:
+		if dildohand = 15:
+			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using a 15cm long dildo.'
+		else
+			*pl '<a href="exec:dildohand = 15 & gt $curloc">Start</a> using a 15cm long dildo.'
+		end
+	end
+
+	if largedildo = 1:
+		if dildohand = 20:
+			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using a 20cm long dildo.'
+		else
+			*pl '<a href="exec:dildohand = 20 & gt $curloc">Start</a> using a 20cm long dildo.'
+		end
+	end
+
+	if bigdildo = 1:
+		if dildohand = 25:
+			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using a 25cm long dildo.'
+		else
+			*pl '<a href="exec:dildohand = 25 & gt $curloc">Start</a> using a 25cm long dildo.'
+		end
+	end
+
+	if extradildo = 1:
+		if dildohand = 30:
+			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using a 30cm long dildo.'
+		else
+			*pl '<a href="exec:dildohand = 30 & gt $curloc">Start</a> using a 30cm long dildo.'
+		end
+	end
+
+	if superdildo = 1:
+		if dildohand = 35:
+			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using a 35cm long dildo.'
+		else
+			*pl '<a href="exec:dildohand = 35 & gt $curloc">Start</a> using a 35cm long dildo.'
+		end
+	end
+
+	if maddildo = 1:
+		if dildohand = 40:
+			*pl '<a href="exec:dildohand = 0 & gt $curloc">Stop</a> using a 40cm long dildo.'
+		else
+			*pl '<a href="exec:dildohand = 40 & gt $curloc">Start</a> using a 40cm long dildo.'
+		end
+	end
+end
+
 
 if horny > 0:
 	act 'caress the clitoris':
@@ -534,9 +597,11 @@ end
 
 if horny > 10:
 	if dildo >= 1 or middildo = 1 or largedildo = 1 or bigdildo = 1 or extradildo = 1 or superdildo = 1 or maddildo = 1:
+
 		if dildohand > 0:
-			'In your hands <<dildohand>>five inch dildo'
-		if vgape <= 0:
+			! WD: Fix Dildo choice Code ~ refer above
+			! 'In your hands <<dildohand>>five inch dildo'
+			if vgape <= 0:
 				act 'Dildo in pussy':
 					cls
 					minut += 15
@@ -607,6 +672,7 @@ if horny > 10:
 			if maddildo = 1:
 				act 'take 40cm long dildo':dildohand = 40 & gt $curloc
 			end
+		}!
 		end
 	end
 end