[edit] Now allows for a custom message to be used when Sveta is the one putting on the condom (who doesn't eventually want a scene where Sveta puts it on with her mouth?!)

locations/dinSex.qsrc

@@ -963,23 +963,44 @@ end &! --- boy_puts_his_condom ---
 if $ARGS[0] = 'pc_puts_condom':
 	protect = iif(prezik > 0,1,0)
 	vidageday -= 1 &! the people guess that you are a bit more older than you are in fact
-	! do you have condoms?
-	if prezik > 0:
-		if rand(1,prezik) <= badprezik: 
-			badprezik -= 1
-			noprotect = 1
-			sexcontra = 7
-			*p 'You take your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and put it on <<$xyr>> <<dick>> centimeter dick.'
+	if $ARGS[1] = '':
+		! do you have condoms?
+		if prezik > 0:
+			if rand(1,prezik) <= badprezik: 
+				badprezik -= 1
+				noprotect = 1
+				sexcontra = 7
+				*p 'You take your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and put it on <<$xyr>> <<dick>> centimeter dick.'
+			else
+				sexcontra = 3
+				*p 'You take your condom and put it on <<$xyr>> <<dick>> centimeter dick.'
+				noprotect = 0
+			end
+			prezik -= 1
+			sexcontra = iif(preziktype = 2,7,sexcontra) 
 		else
-			sexcontra = 3
-			*p 'You take your condom and put it on <<$xyr>> <<dick>> centimeter dick.'
-			noprotect = 0
+			sexcontra = 0
+			!! the hormonal contraception is still taken in account
 		end
-		prezik -= 1
-		sexcontra = iif(preziktype = 2,7,sexcontra) 
 	else
-		sexcontra = 0
-		!! the hormonal contraception is still taken in account
+		$custmsg = $ARGS[1]
+		*p '<<$custmsg>>'
+		! do you have condoms?
+		if prezik > 0:
+			if rand(1,prezik) <= badprezik: 
+				badprezik -= 1
+				noprotect = 1
+				sexcontra = 7
+			else
+				sexcontra = 3
+				noprotect = 0
+			end
+			prezik -= 1
+			sexcontra = iif(preziktype = 2,7,sexcontra) 
+		else
+			sexcontra = 0
+			!! the hormonal contraception is still taken in account
+		end
 	end
 end &! --- pc_puts_condom ---