%  verscnt.sty
%  \begin{versenumber}[Start]
%    \item Vers <Start> ...
%    \item Vers <Start>+1 ...
%    \item Vers <Start>+2 ...
%  \end{versenumber}
%  Start kann entfallen, Zaehlung dann fortlaufend
\RequirePackage{calc}

% entweder (Nummer) oder (Kapitel--Nummer)
\@ifundefined{chapter}
 {\newcounter{verscnt}
  \renewcommand{\theverscnt}
    {(\arabic{verscnt})}}
 {\newcounter{verscnt}[chapter]
  \renewcommand{\theverscnt}
    {(\thechapter--\arabic{verscnt})}}
\setcounter{verscnt}{0}

% damit Zaehler nicht mit 0 initialisiert wird
\newcommand{\myusecounter}[1]
 {\@nmbrlisttrue\def\@listctr{#1}}

% Verse mit \item einleiten
% optional: Start-Versnummer-1
\newenvironment{versenumber}[1][\value{verscnt}]
 {\begin{list}
   {\theverscnt}
   {\myusecounter{verscnt}
    \setcounter{verscnt}{#1}
    \@ifundefined{chapter}
      {\settowidth{\labelwidth}{(999)}}
      {\settowidth{\labelwidth}{(99--999)}}
    \setlength{\labelsep}{1ex}
    \setlength{\itemindent}{\labelwidth+\labelsep}
   }
 }
 {\end{list}}
