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-2012 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2013 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 * |
572 |
572 |
573 procedure chSetSeed(var s: shortstring); |
573 procedure chSetSeed(var s: shortstring); |
574 begin |
574 begin |
575 if isDeveloperMode then |
575 if isDeveloperMode then |
576 begin |
576 begin |
577 SetRandomSeed(s); |
577 SetRandomSeed(s, true); |
578 cSeed:= s; |
578 cSeed:= s; |
579 InitStepsFlags:= InitStepsFlags or cifRandomize |
579 InitStepsFlags:= InitStepsFlags or cifRandomize |
580 end |
580 end |
581 end; |
581 end; |
582 |
582 |