[Added] Willpower costs for wearing non exhibitionist clothing after a therapist event

locations/clothing_QV.qsrc

@@ -1313,15 +1313,63 @@ if $ARGS[0] = 'change':
 		if CloInhibit > 10:
 			if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
 		end
-		act 'Wear this outfit':
-			gs 'clothing', 'wear', $ARGS[1], ARGS[2]
-
-			if $regularwornclothingtype = '':
-				gt 'wardrobe', 'main'
+		
+		!!Therapist force exhibitionist clothing check
+		if hypnoClothes > 0:
+			if CloThinness < 6:		
+				act 'Wear this outfit':
+					cla
+					*clr		
+					'You pick up the outfit and think about trying them on... but you don''t really like wearing these type of outfits'
+					gs 'willpower', 'misc', 'resist', 'easy'
+					will_cost += hypnoTime
+					if will_cost <= pcs_willpwr:
+						act 'Put them on anyways (<<will_cost>> Willpower)':
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+
+							if $regularwornclothingtype = '':
+								gt 'wardrobe', 'main'
+							else
+								gt 'clothing_QV', 'gym'
+							end
+						end
+					else
+						act 'Put them on anyways (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+					act 'Back':
+						if $regularwornclothingtype = '':
+							gt 'wardrobe', 'main'
+						else
+							gt 'clothing_QV', 'gym'
+						end
+					end
+				end	
 			else
-				gt 'clothing_QV', 'gym'
+				act 'Wear this outfit':
+					gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+
+					if $regularwornclothingtype = '':
+						gt 'wardrobe', 'main'
+					else
+						gt 'clothing_QV', 'gym'
+					end
+				end
+			end
+		else
+			act 'Wear this outfit':
+				gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+
+				if $regularwornclothingtype = '':
+					gt 'wardrobe', 'main'
+				else
+					gt 'clothing_QV', 'gym'
+				end
 			end
 		end
+		
+		
 	end
 end