hedgewars/uGears.pas
changeset 540 b06c5aace2fa
parent 539 6a9bf1852bbc
child 542 ec26095f1bed
--- a/hedgewars/uGears.pas	Thu Jun 07 18:09:54 2007 +0000
+++ b/hedgewars/uGears.pas	Mon Jun 11 15:52:32 2007 +0000
@@ -288,6 +288,9 @@
                 Result^.Timer:= 1100;
                 Result^.Z:= 2000;
                 end;
+    gtSwitcher: begin
+                Result^.Z:= cCurrHHZ
+                end;
      end;
 InsertGearToList(Result);
 AddGear:= Result