// Check whether there's a monster of the same alignment adjacent to the
// given monster in at least one of three given directions (relative to

// Check whether there's a monster of the same type and alignment adjacent
// to the given monster in at least one of three given directions (relative to

        // monsters of the same type.

        // monsters of the same genus.

        if (mmov.x != 0 && mmov.y != 0)

        // The rock worm will try to move along through rock for as long as
        // possible. If the player is walking through a corridor, for example,
        // moving along in the wall beside him is much preferable to actually
        // leaving the wall.
        // This might cause the rock worm to take detours but it still
        // comes off as smarter than otherwise.
        if (mmov.x != 0 && mmov.y != 0) // diagonal movement

                      t = monster->pos() + coord_def(0, mmov.y);

            t = monster->pos() + coord_def(0, mmov.y);

                      t = monster->pos() + coord_def(1, mmov.y);

            t = monster->pos() + coord_def(1, mmov.y);

                      t = monster->pos() + coord_def(mmov.x, 1);

            t = monster->pos() + coord_def(mmov.x, 1);

         || mgrd(newpos) != NON_MONSTER && monster->foe == mgrd(newpos))

           || mgrd(newpos) != NON_MONSTER && monster->foe == mgrd(newpos))

                                           coord_def(0, -mmov.x),
                                           coord_def(1, -mmov.x))

                                            coord_def(0, -mmov.y),
                                            coord_def(1, -mmov.y))