hedgewars/uGears.pas
changeset 5872 454f246fe4c5
parent 5871 09daa06191d7
child 5958 f9e3033d929f
equal deleted inserted replaced
5871:09daa06191d7 5872:454f246fe4c5
  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 / 100;
  1021         cGravity:= cMaxWindSpeed * 2;
  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;