Author: devapromix

uCalendar.pas

@@ -104,9 +104,9 @@ function TCalendar.GetTime: string;
 function TCalendar.GetTimeStr: string;
 begin
   case Hour of
-    6..8: Result := _('Day');
+    6..8: Result := _('Morning');
     9..17: Result := _('Day');
-    18..20: Result := _('Day');
+    18..20: Result := _('Evening');
     else Result := _('Night');
   end;
 end;

uScenes.pas

@@ -1652,9 +1652,9 @@ procedure TSceneRest.Render;
   Self.FromAToZ;
   Y := 1;
 
-  Inc(Y); Terminal.Print(1, Y, KeyStr(Chr(Y + 95)) + ' ' + _('Rest 10 turns'), TK_ALIGN_LEFT);
-  Inc(Y); Terminal.Print(1, Y, KeyStr(Chr(Y + 95)) + ' ' + _('Rest 100 turns'), TK_ALIGN_LEFT);
-  Inc(Y); Terminal.Print(1, Y, KeyStr(Chr(Y + 95)) + ' ' + _('Rest 1000 turns'), TK_ALIGN_LEFT);
+  Inc(Y); Terminal.Print(1, Y, KeyStr(Chr(Y + 95)) + ' ' + _('Rest for 10 turns'), TK_ALIGN_LEFT);
+  Inc(Y); Terminal.Print(1, Y, KeyStr(Chr(Y + 95)) + ' ' + _('Rest for 100 turns'), TK_ALIGN_LEFT);
+  Inc(Y); Terminal.Print(1, Y, KeyStr(Chr(Y + 95)) + ' ' + _('Rest for 1000 turns'), TK_ALIGN_LEFT);
 
   MsgLog.Render(2, True);