[fixed] could go into Gad from grandparents when naked

locations/gaddvor.qsrc

@@ -54,7 +54,15 @@ if $ARGS[0]='':
 	if mira_guest = 1: Miraloc = 7 & 'Your friend <a href="exec: gt ''miroslava'', ''Start''">Mira</a> stands next to you.'
 	if MiraLoc ! 7: mira_guest = 0
 
-	act '<b>Leave and go into the village</b>':minut += 5 & gt 'gadukino'
+	act '<b>Leave and go into the village</b>'
+		if $clothingworntype ! 'nude':
+			minut += 5
+			gt 'gadukino'
+		else
+			msg'<b><font color = red>You need to get dressed.</font></b>'
+			gt 'gaddvor'
+		end
+	end
 	if 	grandpaQW['chore_clean_yard'] = 1:
 		act 'Clean up the yard for Grandpa (1:00)':
 			*clr & cla