[fixes] Mising clear screens and mistake in Mom scedule so she was never in the salon

locations/family_schedule.qsrc

@@ -215,7 +215,7 @@ if indorf = 0:
 		elseif hour = 11 and minut < 30:
 			!! Takes the car to town
 			momloc = 14
-		elseif hour < 12 and minut < 30:
+		elseif hour < 12 or hour = 12 and minut < 30:
 			!! Gets her nails done/hair cut at the salon or such things - On Sunday goes to the church during these hours
 			if week = 5:
 				momloc = 15

locations/gschool_lessonsev1.qsrc

@@ -47,13 +47,14 @@ if $ARGS[0] = 'fiz_rand':
 		*nl
 		'Unfortunately for Igor, his underwear went with the shorts and now he''s standing half naked in front of a bunch of girls. What''s worse is that now everyone can see how very small his penis is, making you and the others gasp and giggle, several girls even pointing and laughing loudly. Soon the whole class is in stitches, Igor desperately trying to pull up his shorts and failing, while cursing at Vitek and calling him all kinds of names. You almost feel sorry for him; not only is he a terrible flirt, but the whole class has seen his very tiny penis.'
 	elseif fizperand = 8 and $pantyworntype ! 'none':
-		cla
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/wedgie.jpg"></center>'
 		'During a break in gym class, you are chatting with several other girls when you feel someone''s hands reach down the back of your shorts, grabbing hold of your panties and sharply yanking them up. Dan yanks your panties up so hard that your feet actually lift off the ground for a moment. You cry out in pain, quickly turn around and see Dan laughing while several others are watching and laughing as well.'
 		act 'Don''t retaliate': grupvalue[4] -= 2 & gt 'gschool_lessons4', 'postphys'
 		gs 'willpower', 'misc', 'self', 'medium'
 		if will_cost <= pcs_willpwr:
 			act 'Kick him (<<will_cost>> Willpower)':
+				!!Screen not cleared as no event image, change that if you find an image for it
 				cla & *nl
 				gs 'willpower', 'misc', 'self', 'medium'
 				gs 'willpower', 'pay', 'self'
@@ -68,7 +69,7 @@ if $ARGS[0] = 'fiz_rand':
 		gs 'willpower', 'misc', 'self', 'hard'
 		if will_cost <= pcs_willpwr:
 			act 'Beat his ass (<<will_cost>> Willpower)':
-				cla & *nl
+				*clr & cla
 				gs 'willpower', 'misc', 'self', 'hard'
 				gs 'willpower', 'pay', 'self'
 				gs 'stat'