[Added] A check to make sure the pc is able to wear revealing school uniforms

locations/clothing_QV.qsrc

@@ -1316,51 +1316,94 @@ if $ARGS[0] = 'change':
 		
 		!!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 CloStyle2 = 4:
+				if CloThinness < 3:		
+					act 'Wear this outfit':
+						cla
+						*clr		
+						'You pick up the uniform and think about trying them on... but you don''t really like wearing these type of uniform. You wonder if you can find more revealing uniform.'
+						gs 'willpower', 'misc', 'resist', 'easy'
+						will_cost += hypnoTime/CloThinness
+						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
-					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':
+					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
 			else
-				act 'Wear this outfit':
-					gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+				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
+					act 'Wear this outfit':
+						gs 'clothing', 'wear', $ARGS[1], ARGS[2]
 
-					if $regularwornclothingtype = '':
-						gt 'wardrobe', 'main'
-					else
-						gt 'clothing_QV', 'gym'
+						if $regularwornclothingtype = '':
+							gt 'wardrobe', 'main'
+						else
+							gt 'clothing_QV', 'gym'
+						end
 					end
 				end
-			end
+			end	
 		else
 			act 'Wear this outfit':
 				gs 'clothing', 'wear', $ARGS[1], ARGS[2]
-
 				if $regularwornclothingtype = '':
 					gt 'wardrobe', 'main'
 				else
@@ -1369,7 +1412,7 @@ if $ARGS[0] = 'change':
 			end
 		end
 		
-		
+
 	end
 end