538                 gear^.Timer:= 5000;

   538                 gear^.Timer:= 5000;

   539                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;

   539                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;

   540                 end;

   540                 end;

   541  gtResurrector: begin

   541  gtResurrector: begin

   542                 gear^.Radius := 100;

   542                 gear^.Radius := 100;

   543                 end;

   544                 end;

   544      gtWaterUp: begin

   545      gtWaterUp: begin

   545                 gear^.Tag := 47;

   546                 gear^.Tag := 47;

   546                 end;

   547                 end;

   547     end;

   548     end;