equal
deleted
inserted
replaced
68 const cCons: boolean = false; |
68 const cCons: boolean = false; |
69 var s: string; |
69 var s: string; |
70 begin |
70 begin |
71 case GameState of |
71 case GameState of |
72 gsLandGen: begin |
72 gsLandGen: begin |
73 GenLandSurface; |
73 if (GameFlags and gfForts) = 0 then GenLandSurface |
74 //MakeFortsMap; |
74 else MakeFortsMap; |
75 GameState:= gsStart; |
75 GameState:= gsStart; |
76 end; |
76 end; |
77 gsStart: begin |
77 gsStart: begin |
78 AssignHHCoords; |
78 AssignHHCoords; |
79 AdjustColor(cColorNearBlack); |
79 AdjustColor(cColorNearBlack); |