hedgewars/GSHandlers.inc
changeset 3107 1fa539758c10
parent 3104 6cdc45b3b8a6
child 3115 831bd0f7050d
--- a/hedgewars/GSHandlers.inc	Sat Mar 27 12:05:01 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Sat Mar 27 14:03:30 2010 +0000
@@ -694,7 +694,9 @@
     gtATStartGame: begin
                    AllInactive:= false;
                    if Gear^.Timer = 0 then
+                      begin
                       AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState);
+                      end
                    end;
  gtATSmoothWindCh: begin
                    if Gear^.Timer = 0 then
@@ -706,6 +708,12 @@
                    end;
    gtATFinishGame: begin
                    AllInactive:= false;
+                   if Gear^.Timer = 1000 then
+                      begin
+                      ScreenFade:= sfToBlack;
+                      ScreenFadeValue:= 0;
+                      ScreenFadeSpeed:= 1;
+                      end;
                    if Gear^.Timer = 0 then
                       begin
                       SendIPC('N');