equal
deleted
inserted
replaced
749 end; |
749 end; |
750 |
750 |
751 procedure freeModule; |
751 procedure freeModule; |
752 begin |
752 begin |
753 {$IFDEF DEBUGFILE} |
753 {$IFDEF DEBUGFILE} |
|
754 if logFile <> nil then |
|
755 begin |
754 pfsWriteLn(logFile, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft)); |
756 pfsWriteLn(logFile, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft)); |
755 pfsFlush(logFile); |
757 pfsFlush(logFile); |
756 pfsClose(logFile); |
758 pfsClose(logFile); |
|
759 end |
|
760 else |
|
761 WriteLn(stdout, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft)); |
757 {$IFDEF USE_VIDEO_RECORDING} |
762 {$IFDEF USE_VIDEO_RECORDING} |
758 DoneCriticalSection(logMutex); |
763 DoneCriticalSection(logMutex); |
759 {$ENDIF} |
764 {$ENDIF} |
760 {$ENDIF} |
765 {$ENDIF} |
761 end; |
766 end; |