hedgewars/uGears.pas
changeset 3388 ab9352a4ddcc
parent 3387 733f4001b8b9
child 3390 1d4926d10a9e
equal deleted inserted replaced
3387:733f4001b8b9 3388:ab9352a4ddcc
   181             @doStepMolotov,
   181             @doStepMolotov,
   182             @doStepCase,
   182             @doStepCase,
   183             @doStepBirdy,
   183             @doStepBirdy,
   184             @doStepBigExplosion,
   184             @doStepBigExplosion,
   185             @doStepEggWork,
   185             @doStepEggWork,
   186             @doStepPortal,
   186             @doStepMovingPortal,
   187             @doStepPiano,
   187             @doStepPiano,
   188             @doStepBomb,
   188             @doStepBomb,
   189             @doStepSineGunShot
   189             @doStepSineGunShot
   190             );
   190             );
   191 
   191 
   476       gtPortal: begin
   476       gtPortal: begin
   477                 gear^.ImpactSound:= sndMelonImpact;
   477                 gear^.ImpactSound:= sndMelonImpact;
   478                 gear^.nImpactSounds:= 1;
   478                 gear^.nImpactSounds:= 1;
   479                 gear^.AdvBounce:= 0;
   479                 gear^.AdvBounce:= 0;
   480                 gear^.Radius:= 16;
   480                 gear^.Radius:= 16;
       
   481                 gear^.Tag:= 0;
   481                 end;
   482                 end;
   482        gtPiano: begin
   483        gtPiano: begin
   483                 gear^.Radius:= 32
   484                 gear^.Radius:= 32
   484                 end;
   485                 end;
   485  gtSineGunShot: begin
   486  gtSineGunShot: begin