| changeset 70 | 82d93eeecebe |
| parent 64 | 9df467527ae5 |
| child 71 | 5f56c6979496 |
| 69:d8a526934b9f | 70:82d93eeecebe |
|---|---|
66 |
66 |
67 procedure OnDestroy; forward; |
67 procedure OnDestroy; forward; |
68 |
68 |
69 //////////////////////////////// |
69 //////////////////////////////// |
70 procedure DoTimer(Lag: integer); // - обработка таймера |
70 procedure DoTimer(Lag: integer); // - обработка таймера |
71 const cCons: boolean = false; |
|
72 var s: string; |
71 var s: string; |
73 begin |
72 begin |
74 case GameState of |
73 case GameState of |
75 gsLandGen: begin |
74 gsLandGen: begin |
76 GenMap; |
75 GenMap; |