hedgewars/uGears.pas
changeset 5871 09daa06191d7
parent 5863 cea9ac437839
child 5872 454f246fe4c5
equal deleted inserted replaced
5870:b9b9fb00c9dd 5871:09daa06191d7
  1016 begin
  1016 begin
  1017     SpeechText:= ''; // in case it has not been consumed
  1017     SpeechText:= ''; // in case it has not been consumed
  1018 
  1018 
  1019     if (GameFlags and gfLowGravity) = 0 then
  1019     if (GameFlags and gfLowGravity) = 0 then
  1020         begin
  1020         begin
  1021         cGravity:= cMaxWindSpeed * 2;
  1021         cGravity:= cMaxWindSpeed / 100;
  1022         cGravityf:= 0.00025 * 2
  1022         cGravityf:= 0.00025 * 2
  1023         end;
  1023         end;
  1024 
  1024 
  1025     if (GameFlags and gfVampiric) = 0 then
  1025     if (GameFlags and gfVampiric) = 0 then
  1026         cVampiric:= false;
  1026         cVampiric:= false;