1 files changed, 26 insertions, 24 deletions
diff --git a/Game/Code/Classes/UMedia_dummy.pas b/Game/Code/Classes/UMedia_dummy.pas
index 0752ab64..bf3ad727 100644
--- a/Game/Code/Classes/UMedia_dummy.pas
+++ b/Game/Code/Classes/UMedia_dummy.pas
@@ -37,9 +37,9 @@ type
       procedure init();
 
       function  Open( aFileName : string): boolean; // true if succeed
-      procedure Close;
-
-      procedure Play;
+      procedure Close;
+
+      procedure Play;
       procedure Pause;
       procedure Stop;
 
@@ -90,7 +90,7 @@ type
 
 function  Tmedia_dummy.GetName: String;
 begin
-  result := 'dummy';
+  result := 'dummy';
 end;
 
 
@@ -104,23 +104,23 @@ end;
 
 constructor Tmedia_dummy.create();
 begin
-end;
-
-procedure Tmedia_dummy.init();
+end;
+
+procedure Tmedia_dummy.init();
+begin
+end;
+
+
+function Tmedia_dummy.Open( aFileName : string): boolean; // true if succeed
 begin
-end;
-
-
-function Tmedia_dummy.Open( aFileName : string): boolean; // true if succeed
-begin
   result := false;
-end;
-
-procedure Tmedia_dummy.Close;
+end;
+
+procedure Tmedia_dummy.Close;
 begin
 end;
 
-procedure Tmedia_dummy.Play;
+procedure Tmedia_dummy.Play;
 begin
 end;
 
@@ -138,7 +138,7 @@ end;
 
 function  Tmedia_dummy.getPosition: real;
 begin
-  result := 0;
+  result := 0;
 end;
 
 // IAudioInput
@@ -169,8 +169,8 @@ end;
 // IAudioPlayback
 procedure Tmedia_dummy.InitializePlayback;
 begin
-end;
-
+end;
+
 procedure Tmedia_dummy.SetVolume(Volume: integer);
 begin
 end;
@@ -189,11 +189,13 @@ end;
 
 function Tmedia_dummy.Finished: boolean;
 begin
-end;
-
+  result := false;
+end;
+
 function Tmedia_dummy.Length: real;
 begin
-end;
+  Result := 60;
+end;
 
 procedure Tmedia_dummy.PlayStart;
 begin
@@ -267,8 +269,8 @@ initialization
   writeln( 'UMedia_dummy - Register dummy Video_Playback' );
   AudioManager.add( IAudioInput( singleton_dummy ) );
   
-finalization
-  AudioManager.Remove( IVideoPlayback( singleton_dummy ) );
+finalization
+  AudioManager.Remove( IVideoPlayback( singleton_dummy ) );
   AudioManager.Remove( IAudioPlayback( singleton_dummy ) );
   AudioManager.Remove( IAudioInput( singleton_dummy ) );