--- 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');