hedgewars/uGears.pas
changeset 4197 dad127904958
parent 4182 5240a84df702
child 4198 55814f1ef60a
equal deleted inserted replaced
4196:78c45314f123 4197:dad127904958
   363                 gear^.State:= gear^.State or gstMoving;
   363                 gear^.State:= gear^.State or gstMoving;
   364                 gear^.Radius:= 2;
   364                 gear^.Radius:= 2;
   365                 gear^.Elasticity:= _0_55;
   365                 gear^.Elasticity:= _0_55;
   366                 gear^.Friction:= _0_995;
   366                 gear^.Friction:= _0_995;
   367                 if cMinesTime < 0 then
   367                 if cMinesTime < 0 then
   368                     gear^.Timer:= getrandom(6)*1000
   368                     gear^.Timer:= getrandom(51)*100
   369                 else
   369                 else
   370                     gear^.Timer:= cMinesTime*1;
   370                     gear^.Timer:= cMinesTime*1000;
   371                 end;
   371                 end;
   372        gtSMine: begin
   372        gtSMine: begin
   373                 gear^.Health:= 10;
   373                 gear^.Health:= 10;
   374                 gear^.State:= gear^.State or gstMoving;
   374                 gear^.State:= gear^.State or gstMoving;
   375                 gear^.Radius:= 2;
   375                 gear^.Radius:= 2;
   888         if CurrentHedgehog^.Gear <> nil then
   888         if CurrentHedgehog^.Gear <> nil then
   889             if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
   889             if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
   890                 and not isInMultiShoot then
   890                 and not isInMultiShoot then
   891                 begin
   891                 begin
   892                 if (TurnTimeLeft = 5000)
   892                 if (TurnTimeLeft = 5000)
   893                     and (cHedgehogTurnTime >= 10000)
   893                     and (cHedgehogTurnTime >= 10)
   894                     and (not PlacingHogs)
   894                     and (not PlacingHogs)
   895                     and (CurrentHedgehog^.Gear <> nil)
   895                     and (CurrentHedgehog^.Gear <> nil)
   896                     and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
   896                     and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
   897                         PlaySound(sndHurry, CurrentTeam^.voicepack);
   897                         PlaySound(sndHurry, CurrentTeam^.voicepack);
   898                 if ReadyTimeLeft > 0 then
   898                 if ReadyTimeLeft > 0 then