fix some bugs

locations/therapist.qsrc

@@ -480,15 +480,17 @@ if $ARGS[0] = 'firstHypnoStage':
 		act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 	act 'Strip naked':
+		cla
+		*clr
 		hypnoStripped = 1
 		hypnoTimesResistedStage = 0
 		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,3)>>.mp4"></video></center>'
 		'<font color=brown>'
 		'You get up from the couch and start to take off all of your clothing.'
 		act 'Continue':
-			hypnoStage = 1
 			cla
 			*clr
+			hypnoStage = 1
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting1.jpg"></center>'
 			'When you finish, Dr. Pavlov tells you to sit back on the couch. "Now I''m going to ask you a series of questions and you will answer them with complete honesty. You will answer first and finish by saying my name after. First question, how old are you?"'
 			act 'I''m <<age>> years old, <i>Master</i>':
@@ -1307,6 +1309,10 @@ if $ARGS[0] = 'hypnoDress':
 		bedPanty = 2
 	end
 	'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/dressup.mp4"></video></center>'
+
+	act 'Continue':
+		gt 'therapist', 'hypnoEnd'
+	end
 end
 
 if $ARGS[0] = 'hypnoEnd':