| changeset 8912 | 78ea1839aac9 |
| parent 8556 | 6f4c2711baa6 |
| child 8924 | 13ac59499066 |
| 8911:f17e505ef30b | 8912:78ea1839aac9 |
|---|---|
571 |
571 |
572 procedure chSetSeed(var s: shortstring); |
572 procedure chSetSeed(var s: shortstring); |
573 begin |
573 begin |
574 if isDeveloperMode then |
574 if isDeveloperMode then |
575 begin |
575 begin |
576 SetRandomSeed(s); |
576 SetRandomSeed(s, true); |
577 cSeed:= s; |
577 cSeed:= s; |
578 InitStepsFlags:= InitStepsFlags or cifRandomize |
578 InitStepsFlags:= InitStepsFlags or cifRandomize |
579 end |
579 end |
580 end; |
580 end; |
581 |
581 |