hedgewars/uGearsHedgehog.pas
changeset 11887 083c12795632
parent 11848 6a0d6b00dac8
child 11911 6145efcff302
equal deleted inserted replaced
11886:b27d2351ec16 11887:083c12795632
   376                              newGear:= AddGear(hwRound(lx), hwRound(ly) - 32, gtBirdy, 0, _0, _0, 0);
   376                              newGear:= AddGear(hwRound(lx), hwRound(ly) - 32, gtBirdy, 0, _0, _0, 0);
   377                              end;
   377                              end;
   378                    amLowGravity: begin
   378                    amLowGravity: begin
   379                                  PlaySound(sndLowGravity);
   379                                  PlaySound(sndLowGravity);
   380                                  cGravity:= cMaxWindSpeed;
   380                                  cGravity:= cMaxWindSpeed;
   381                                  cGravityf:= 0.00025
   381                                  cGravityf:= 0.00025;
       
   382                                  cLowGravity := true
   382                                  end;
   383                                  end;
   383                   amExtraDamage: begin
   384                   amExtraDamage: begin
   384                                  PlaySound(sndHellishImpact4);
   385                                  PlaySound(sndHellishImpact4);
   385                                  cDamageModifier:= _1_5
   386                                  cDamageModifier:= _1_5
   386                                  end;
   387                                  end;