hedgewars/uGears.pas
changeset 5857 63276513b7b3
parent 5812 91d9de564ef5
child 5862 b4229b0abc70
equal deleted inserted replaced
5856:ed97138dc414 5857:63276513b7b3
  1010 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here.
  1010 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here.
  1011 procedure EndTurnCleanup;
  1011 procedure EndTurnCleanup;
  1012 var  i: LongInt;
  1012 var  i: LongInt;
  1013      t: PGear;
  1013      t: PGear;
  1014 begin
  1014 begin
       
  1015     AttackBar:= 0;  // rare case where they drowned while attacking
  1015     SpeechText:= ''; // in case it has not been consumed
  1016     SpeechText:= ''; // in case it has not been consumed
  1016 
  1017 
  1017     if (GameFlags and gfLowGravity) = 0 then
  1018     if (GameFlags and gfLowGravity) = 0 then
  1018         begin
  1019         begin
  1019         cGravity:= cMaxWindSpeed * 2;
  1020         cGravity:= cMaxWindSpeed * 2;