equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a free turn based strategy game |
2 * Hedgewars, a free turn based strategy game |
3 * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
490 |
490 |
491 procedure chCapture(var s: shortstring); |
491 procedure chCapture(var s: shortstring); |
492 begin |
492 begin |
493 s:= s; // avoid compiler hint |
493 s:= s; // avoid compiler hint |
494 flagMakeCapture:= true; |
494 flagMakeCapture:= true; |
495 flagDumpLand:= LocalMessage and gmPrecise <> 0; |
495 flagDumpLand:= (LocalMessage and gmPrecise <> 0); |
496 end; |
496 end; |
497 |
497 |
498 procedure chRecord(var s: shortstring); |
498 procedure chRecord(var s: shortstring); |
499 begin |
499 begin |
500 s:= s; // avoid compiler hint |
500 s:= s; // avoid compiler hint |