Fix formatting a bit
authorunc0rr
Thu, 30 Jun 2011 14:28:13 +0400
changeset 5354 e121d0d6823b
parent 5351 a4409b50bdc2
child 5357 ec36f3d53f3c
Fix formatting a bit
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Thu Jun 30 14:26:01 2011 +0400
+++ b/hedgewars/GSHandlers.inc	Thu Jun 30 14:28:13 2011 +0400
@@ -1072,39 +1072,39 @@
     dec(Gear^.Timer);
     case Gear^.Kind of 
         gtATStartGame: 
-    begin
+        begin
         AllInactive := false;
         if Gear^.Timer = 0 then
+            begin
+            AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState);
+            end
+        end;
+    gtATSmoothWindCh: 
+        begin
+        if Gear^.Timer = 0 then
         begin
-            AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState);
+            if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
+            else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
+            if WindBarWidth <> Gear^.Tag then Gear^.Timer := 10;
         end
+        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');
+                SendIPC('q');
+                GameState := gsExit
+                end
+        end;
     end;
-    gtATSmoothWindCh: 
-begin
-    if Gear^.Timer = 0 then
-    begin
-        if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
-        else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
-        if WindBarWidth <> Gear^.Tag then Gear^.Timer := 10;
-    end
-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');
-        SendIPC('q');
-        GameState := gsExit
-    end
-end;
-end;
 if Gear^.Timer = 0 then DeleteGear(Gear)
 end;