| changeset 37 | 2b7f2a43b999 |
| parent 24 | 79c411363184 |
| 36:a803a00a3272 | 37:2b7f2a43b999 |
|---|---|
70 const cCons: boolean = false; |
70 const cCons: boolean = false; |
71 var s: string; |
71 var s: string; |
72 begin |
72 begin |
73 case GameState of |
73 case GameState of |
74 gsLandGen: begin |
74 gsLandGen: begin |
75 if (GameFlags and gfForts) = 0 then GenLandSurface |
75 GenMap; |
76 else MakeFortsMap; |
|
77 GameState:= gsStart; |
76 GameState:= gsStart; |
78 end; |
77 end; |
79 gsStart: begin |
78 gsStart: begin |
80 AssignHHCoords; |
79 AssignHHCoords; |
81 AddMiscGears; |
80 AddMiscGears; |