[added] Dispose option for bodysuits

[fixed] Therapist also disposes of bodysuit if making you remove panties
[fixed] Rolan doesn't steal bodysuits, he just likes panties

locations/rolanbath.qsrc

@@ -100,7 +100,7 @@ if $ARGS[0] = 'start':
 					'As the jet of warm water begins to caress you, you hear a noise. You call out, "Rolan, is that you?" You don''t hear a response. "Bah! Probably just me being paranoid."'
 					cumspclnt = 8
 					gs 'cum_cleanup'
-					if $pantyworntype ! 'none' and rolan_steal_day ! daystart:
+					if $pantyworntype ! 'none' and rolan_steal_day ! daystart and underwear['type'] ! 2::
 						gs 'panties', 'dispose'
 						rolan_panty_day = daystart
 						rolan_panty_count -= 1

locations/therapist.qsrc

@@ -48,7 +48,26 @@ if $ARGS[0] = 'hypnoGreet':
 		'"Come in! Miss <<$pcs_lastname>>, as you know, I''m going to inspect you now."'
 		act 'Wait for him to inspect you':
 			*clr & cla
-			if $pantyworntype ! 'none':
+			if underwear['type'] = 2:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/pavlov.jpg"></center>'
+				'"Miss <<$pcs_lastname>>, a bodysuit?"'
+				'You remain silent.'
+				'"That''s cheating and I will count it as panties."'
+				'"I''m sorry Dr. Pavlov... I don''t know what I was thinking. I-"'
+				'He interupts you and commands you to strip off your bodysuit and hand them to him.'
+				act 'Give Dr. Pavlov your bodysuit':
+					*clr & cla
+					'<center><img src="images/locations/pavlovsk/clinic/therapist/removePanties.jpg"></center>'
+					gs 'underwear_bodysuits', 'dispose'
+					if wornPanties < 5:
+					'He throws your bodysuit in the garbage. "Just don''t let it happen again. What did you need help with today, Miss <<$pcs_lastname>>?"'
+					else 
+					'You are still resisting ha? We need to fix that. Anyway, What did you need help with today Miss <<$pcs_lastname>>?'
+					end
+					cla
+					gs 'therapist', 'therapyOptions'
+				end
+			elseif $pantyworntype ! 'none':
 				wornPanties += 1
 				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/checkPanties2.mp4"></video></center>'
 				'"Miss <<$pcs_lastname>>, what is this?"'

locations/underwear_bodysuits.qsrc

@@ -213,6 +213,10 @@ if $ARGS[0] = 'view_bodysuit_item':
 		if $ARGS[1] ! 'wardrobe':
 			act 'Move to wardrobe': gt 'underwear_bodysuits', 'dest0', $ARGS[1], $ARGS[2], ARGS[3]
 		end
+		act '<font color="red">Throw this bodysuit away</font>':
+			dynamic '<<$ARGS[2]>>_bodysuits[<<ARGS[3]>>] = 0'
+			gt 'wardrobe', 'main'
+		end
 	end
 end