hedgewars/uGears.pas
changeset 4790 4cb3f7890fbd
parent 4784 d8eafc8dba38
child 4792 68f9b331014a
equal deleted inserted replaced
4789:7036abbaf3bb 4790:4cb3f7890fbd
   475       gtPortal: begin
   475       gtPortal: begin
   476                 gear^.ImpactSound:= sndMelonImpact;
   476                 gear^.ImpactSound:= sndMelonImpact;
   477                 gear^.nImpactSounds:= 1;
   477                 gear^.nImpactSounds:= 1;
   478                 gear^.AdvBounce:= 0;
   478                 gear^.AdvBounce:= 0;
   479                 gear^.Radius:= 16;
   479                 gear^.Radius:= 16;
   480                 gear^.Tag:= 0;
   480                 // set color
       
   481                 gear^.Tag:= 2 * gear^.Timer;
   481                 gear^.Timer:= 15000;
   482                 gear^.Timer:= 15000;
   482                 gear^.RenderTimer:= false;
   483                 gear^.RenderTimer:= false;
   483                 gear^.Health:= 100;
   484                 gear^.Health:= 100;
   484                 end;
   485                 end;
   485        gtPiano: begin
   486        gtPiano: begin