No commit message

devapromix · Jul 4, 2017 · 1ef791d · 1ef791d
1 parent 02bcc06
commit 1ef791d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/uCalendar.pas b/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;

diff --git a/uScenes.pas b/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);