236                     gear^.Timer:= 3000

   236                     gear^.Timer:= 3000

   237                 end;

   237                 end;

   238   gtMelonPiece: begin

   238   gtMelonPiece: begin

   239                 gear^.AdvBounce:= 1;

   239                 gear^.AdvBounce:= 1;

   240                 gear^.Density:= _2;

   240                 gear^.Density:= _2;

   241                 gear^.Radius:= 4

   243                 gear^.Radius:= 4

   242                 end;

   244                 end;

   243     gtHedgehog: begin

   245     gtHedgehog: begin

   244                 gear^.AdvBounce:= 1;

   246                 gear^.AdvBounce:= 1;

   245                 gear^.Radius:= cHHRadius;

   247                 gear^.Radius:= cHHRadius;