hedgewars/uGearsList.pas
changeset 10490 b30b8d39d662
parent 10354 56bd029245fc
child 10494 0eb97cf4c78e
equal deleted inserted replaced
10489:bde3e43d7b27 10490:b30b8d39d662
   286                         end;
   286                         end;
   287                     State:= State or gstInvisible;
   287                     State:= State or gstInvisible;
   288                     Health:= random(vobFrameTicks);
   288                     Health:= random(vobFrameTicks);
   289                     if gear^.Timer = 0 then Timer:= random(vobFramesCount);
   289                     if gear^.Timer = 0 then Timer:= random(vobFramesCount);
   290                     Damage:= (random(2) * 2 - 1) * (vobVelocity + random(vobVelocity)) * 8;
   290                     Damage:= (random(2) * 2 - 1) * (vobVelocity + random(vobVelocity)) * 8;
   291                     Tint:= (ExplosionBorderColor and RMask shl RShift) or
   291                     Tint:= ((ExplosionBorderColor and RMask) shl RShift) or
   292                            (ExplosionBorderColor and GMask shl GShift) or
   292                            ((ExplosionBorderColor and GMask) shl GShift) or
   293                            (ExplosionBorderColor and BMask shl BShift) or $FF;
   293                            ((ExplosionBorderColor and BMask) shl BShift) or $FF;
   294                     end
   294                     end
   295                 end;
   295                 end;
   296        gtGrave: begin
   296        gtGrave: begin
   297                 gear^.ImpactSound:= sndGraveImpact;
   297                 gear^.ImpactSound:= sndGraveImpact;
   298                 gear^.nImpactSounds:= 1;
   298                 gear^.nImpactSounds:= 1;