507                 end;

   507                 end;

   508       gtPortal: begin

   508       gtPortal: begin

   509                 gear^.ImpactSound:= sndMelonImpact;

   509                 gear^.ImpactSound:= sndMelonImpact;

   510                 gear^.nImpactSounds:= 1;

   510                 gear^.nImpactSounds:= 1;

   511                 gear^.AdvBounce:= 0;

   511                 gear^.AdvBounce:= 0;

   513                 // set color

   513                 // set color

   514                 gear^.Tag:= 2 * gear^.Timer;

   514                 gear^.Tag:= 2 * gear^.Timer;

   515                 gear^.Timer:= 15000;

   515                 gear^.Timer:= 15000;

   516                 gear^.RenderTimer:= false;

   516                 gear^.RenderTimer:= false;

   517                 gear^.Health:= 100;

   517                 gear^.Health:= 100;