637                 gear^.State:= Gear^.State or gstSubmersible

   637                 gear^.State:= Gear^.State or gstSubmersible

   638                 end;

   638                 end;

   639      gtMolotov: begin

   639      gtMolotov: begin

   640                 gear^.AdvBounce:= 1;

   640                 gear^.AdvBounce:= 1;

   641                 gear^.Radius:= 6;

   641                 gear^.Radius:= 6;

   642                 gear^.Density:= _2

   644                 gear^.Density:= _2

   643                 end;

   645                 end;

   644        gtBirdy: begin

   646        gtBirdy: begin

   645                 gear^.Radius:= 16; // todo: check

   647                 gear^.Radius:= 16; // todo: check

   646                 gear^.Health := 2000;

   648                 gear^.Health := 2000;