hedgewars/uGears.pas
changeset 2221 ef52dae4130b
parent 2217 458c08d74ae6
child 2289 cb850ba733bd
equal deleted inserted replaced
2220:110266ba2ef7 2221:ef52dae4130b
   653 //Purpose, to reset all transient attributes toggled by a utility.
   653 //Purpose, to reset all transient attributes toggled by a utility.
   654 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here.
   654 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here.
   655 procedure ResetUtilities;
   655 procedure ResetUtilities;
   656 var  i: LongInt;
   656 var  i: LongInt;
   657 begin
   657 begin
   658     SpeechText:= ''; // in case it hasn't been consumed
   658     SpeechText:= ''; // in case it has not been consumed
   659 
   659 
   660     if (GameFlags and gfLowGravity) = 0 then
   660     if (GameFlags and gfLowGravity) = 0 then
   661         cGravity:= cMaxWindSpeed;
   661         cGravity:= cMaxWindSpeed;
   662 
   662 
   663     if (GameFlags and gfVampiric) = 0 then
   663     if (GameFlags and gfVampiric) = 0 then