Improve mirror text

Improve mirror text adding number of the days to expire he curly hair.
Also compacts Cosmetics/LipBalm text.

locations/mirror

@@ -6,6 +6,7 @@ if $ARGS[0] = 'start':
 	gs 'portmirror'
 	$gt1 = 'mirror'
 	$gt2 = 'fin'
+	
 	dynamic $portmirror
 
 	act 'Move away from the mirror':

locations/portmirror

@@ -6,11 +6,18 @@ $portmirror = {
 	'<<$hair>> <<$mop>> <<$skin>> <<$vnesh>>'
 	if daystart < 10 and StoryLine = 0:'In the mirror, you looked quite strange woman''s face which is exactly copied all your actions. You hardly get to accept the idea that it is now is you.'
 	if daystart >= 10 and daystart < 30 and StoryLine = 0:'From the mirror looks at you a woman''s face, to which you have become accustomed to, but sometimes, no, no and yes flash the idea that it is not your face.'
-	if kosmetica > 0:'Cosmetics <<kosmetica>>'
-	if kosmetica = 0:'You have no makeup.'
+	
+	if curly > 0: '<br>Your curly hair will last for another <<curly>> days.'
+	
+	set $makeUpString = ''
+	
+	if kosmetica > 0: $makeUpString += 'Cosmetics <<kosmetica>>'
+	if kosmetica = 0: $makeUpString += 'You have no makeup.'
 
-	if lipbalm > 0:'Lip Balm <<lipbalm>>'
-	if lipbalm = 0:'You have no lip balm left.'
+	if lipbalm > 0: $makeUpString += ' Lip Balm <<lipbalm>>'
+	if lipbalm = 0: $makeUpString += ' You have no lip balm left.'
+	
+	*pl $makeUpString
 
 	if hapri = 0 and AutoHapri = 1:
 		minut += 3