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 			AddClouds;

    80 			AddClouds;

    80 			AssignHHCoords;

    81 			AssignHHCoords;

    81 			AddMiscGears;

    82 			AddMiscGears;

    82 			StoreLoad;

    83 			StoreLoad;

    83 			ResetKbd;

    84 			ResetKbd;