[fixed] panty loss due to mesec > 0 blocked in gaddvor and between 0:00 and 4:59 if sveta was using pad/tampon the day before

locations/cikl.qsrc

@@ -604,7 +604,13 @@ end
 lipkoef -= rand(0,1)
 if lipkoef <= 0: lipkoef = 0
 
-if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
+if isprok = 1 or isprokp = 1:
+	isprok_lastday = 1
+else
+	isprok_lastday = 0
+end
+
+if Enable_autotampon = 0 and isprok = 1: isprok = 0 & 'You threw away your used tampon.'
 if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
 
 if preg = 1:

locations/outdoors.qsrc

@@ -358,8 +358,8 @@ if $ARGS[0] = 'main':
 !!15 minute check to stop refreshes causing early gameover and cheating at exhibitionism
 		if outdoors_checks + 15 < totminut:
 			outdoors_checks = totminut
-			if isprok = 0 and isprokp = 0 and mesec > 0 and preg = 0:
-				'<b><font color="red">You have the blood flowing down your legs and staining your clothes.</font></b>'
+			if isprok = 0 and isprokp = 0 and mesec > 0 and preg = 0 and $loc ! 'Gaddvor' and (isprok_lastday = 0 or (hour > 4 and isprok_lastday = 1)):
+				'<b><font color="red">You have blood flowing down your legs and staining your clothes.</font></b>'
 
 				if $pantyworntype ! 'none':gs 'panties', 'dispose' & '<b><font color="red">Your panties have been ruined and you discreetly remove and dispose of them.</font></b>'