hedgewars/uGears.pas
changeset 11887 083c12795632
parent 11881 34ede05e4d4f
child 11895 19cb0de79287
equal deleted inserted replaced
11886:b27d2351ec16 11887:083c12795632
   503     SpeechText:= ''; // in case it has not been consumed
   503     SpeechText:= ''; // in case it has not been consumed
   504 
   504 
   505     if (GameFlags and gfLowGravity) = 0 then
   505     if (GameFlags and gfLowGravity) = 0 then
   506         begin
   506         begin
   507         cGravity:= cMaxWindSpeed * 2;
   507         cGravity:= cMaxWindSpeed * 2;
   508         cGravityf:= 0.00025 * 2
   508         cGravityf:= 0.00025 * 2;
       
   509         cLowGravity:= false
   509         end;
   510         end;
   510 
   511 
   511     if (GameFlags and gfVampiric) = 0 then
   512     if (GameFlags and gfVampiric) = 0 then
   512         cVampiric:= false;
   513         cVampiric:= false;
   513 
   514 
   694 if p <> 0 then DeleteGear(Gear);
   695 if p <> 0 then DeleteGear(Gear);
   695 
   696 
   696 if (GameFlags and gfLowGravity) <> 0 then
   697 if (GameFlags and gfLowGravity) <> 0 then
   697     begin
   698     begin
   698     cGravity:= cMaxWindSpeed;
   699     cGravity:= cMaxWindSpeed;
   699     cGravityf:= 0.00025
   700     cGravityf:= 0.00025;
       
   701     cLowGravity:= true
   700     end;
   702     end;
   701 
   703 
   702 if (GameFlags and gfVampiric) <> 0 then
   704 if (GameFlags and gfVampiric) <> 0 then
   703     cVampiric:= true;
   705     cVampiric:= true;
   704 
   706