changeset 1784 | dfe9bafb4590 |
parent 1651 | f590918e15e9 |
child 1791 | 7c9d645d2591 |
1783:169ebeefd7ab | 1784:dfe9bafb4590 |
---|---|
74 gsLandGen: begin |
74 gsLandGen: begin |
75 GenMap; |
75 GenMap; |
76 GameState:= gsStart; |
76 GameState:= gsStart; |
77 end; |
77 end; |
78 gsStart: begin |
78 gsStart: begin |
79 if HasBorder then DisableSomeWeapons; |
|
79 AddClouds; |
80 AddClouds; |
80 AssignHHCoords; |
81 AssignHHCoords; |
81 AddMiscGears; |
82 AddMiscGears; |
82 StoreLoad; |
83 StoreLoad; |
83 ResetKbd; |
84 ResetKbd; |