From dec577c0d954dfbbdcd03fc8b4159d8d5965e7c8 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 24 Jul 2010 08:31:15 +0000
Subject: - added session log - some minor changes for medley mode

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2606 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/ULog.pas | 41 ++++++++++++++++++++++++++++++++++-------
 1 file changed, 34 insertions(+), 7 deletions(-)

(limited to 'Game/Code/Classes')

diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index 62414999..8be7a8ca 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -294,19 +294,44 @@ var
   Num:      integer;
   FileName: string;
   I:        integer;
+  Year, Month, Day:     word;
+  Hour, Min, Sec, MSec: word;
+  timestamp:  integer;
+  datestr:    string;
+  timestr:    string;
+
+  function Fill(w: word): string;
+  begin
+    Result := '';
+    if (w<10) then
+      Result := '0';
+
+    Result := Result + IntToStr(w);
+  end;
 
 begin
+  timestamp := DateTimeToUnix(Now());
+  DecodeDate(UnixToDateTime(timestamp), Year, Month, Day);
+  DecodeTime(UnixToDateTime(timestamp), Hour, Min, Sec, MSec);
+
+  datestr := IntToStr(Year) + Fill(Month) + Fill(Day);
+  timestr := Fill(Hour) + Fill(Min) + Fill(Sec);
+
   if not FileSessionO then
   begin
     FileSessionO := false;
     NumSungSongs := 0;
+    FileName := SessionLogPath + 'Session_' + datestr + '-' + timestr + '.log';
 
-    for Num := 1 to 99999 do
+    if FileExists(FileName) then
     begin
-      FileName := IntToStr(Num);
-      while Length(FileName) < 5 do FileName := '0' + FileName;
-      FileName := SessionLogPath + 'Session_' + FileName + '.log';
-      if not FileExists(FileName) then break
+      for Num := 1 to 9999 do
+      begin
+        FileName := IntToStr(Num);
+        while Length(FileName) < 4 do FileName := '0' + FileName;
+        FileName := SessionLogPath + 'Session_' + datestr + '-' + timestr + '_' + FileName + '.log';
+        if not FileExists(FileName) then break
+      end;
     end;
 
     AssignFile(FileSession, FileName);
@@ -319,7 +344,8 @@ begin
     If (FileSessionO) then
     begin
       WriteLn(FileSession, 'Session Log');
-      WriteLn(FileSession, 'Date: ' + DatetoStr(Now) + ' Time: ' + TimetoStr(Now));
+      WriteLn(FileSession, 'Date: ' + IntToStr(Year) + '-' + Fill(Month) + '-' + Fill(Day) +
+         ' Time: ' + Fill(Hour) + ':' + Fill(Min) + ':' + Fill(Sec));
 
       Flush(FileSession);
     end;
@@ -332,7 +358,8 @@ begin
       WriteLn(FileSession, '');
       WriteLn(FileSession, '');
       WriteLn(FileSession, '#----------------------------------------------------------------');
-      WriteLn(FileSession, '# ' + IntToStr(NumSungSongs) + ') ' + 'Date: ' + DatetoStr(Now) + ' Time: ' + TimetoStr(Now));
+      WriteLn(FileSession, '# ' + IntToStr(NumSungSongs) + ') ' + 'Date: ' + IntToStr(Year) + '-' + Fill(Month) + '-' + Fill(Day) +
+        ' Time: ' + Fill(Hour) + ':' + Fill(Min) + ':' + Fill(Sec));
       WriteLn(FileSession, '# Sing mode: ' + singmode);
       WriteLn(FileSession, '#----------------------------------------------------------------');
       WriteLn(FileSession, '# Song: ' + Artist + ' - ' + Title + ':');
-- 
cgit v1.2.3