[fixed] Screen not being cleared causing actions to remain

locations/stwork2.qsrc

@@ -516,16 +516,19 @@ if $ARGS[0] = 'pr2':
 	gs 'willpower', 'sex', 'resist', 'hard'
 	if will_cost <= pcs_willpwr:
 		act 'Refuse (<<will_cost>> Willpower)':
+			cla
+			*nl
 			'You refuse and kick him out before heading back to the main floor.'
 			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
-			gt 'stwork', 'start'
+			act 'Return to the dressing room':gt 'stwork', 'start'
 		end
 	else
 		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end	
 
 	act 'Agree':
+		*clr & cla
 		gs 'npcgeneratec', 0, 'Private dance client', rand(20,55)
 		'<center><video autoplay loop src="images/shared/sex/cum/facial/facial0,3.mp4"></video></center>'
 		'You nod and get on your knees as the client pulls his cock out and starts jerking it. After a few seconds, he loudly grunts that he''s close and you close your eyes as warm spurts of cum start splattering across your face. It drips down your chin as he squeezes the last few drops onto your forehead.'
@@ -545,16 +548,19 @@ if $ARGS[0] = 'pr3':
 	gs 'willpower', 'sex', 'resist', 'hard'
 	if will_cost <= pcs_willpwr:	
 		act 'Refuse (<<will_cost>> Willpower)':
+			cla
+			*nl
 			'You refuse and kick her out before heading back to the main floor.'
 			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
-			gt 'stwork', 'start'
+			act 'Return to the dressing room':gt 'stwork', 'start'
 		end
 	else
 		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end	
 
 	act 'Agree':
+		*clr & cla
 		girl += 1
 		lesbian += 1
 		money += 1000