zundoko.tex

zundoko.tex

\documentclass[dvipdfmx]{jsarticle}

\usepackage{xcolor}
\usepackage[noalphabet]{pxchfon}
\setminchofont{Oradano.ttf}

\usepackage[first=1, last=3]{lcg}

\makeatletter
\newcount\LastFive
\LastFive=33333
\newif\ifZZZZD
\ZZZZDtrue

\def\rightfive{%
  \@tempcnta=\LastFive%
  \divide\@tempcnta by 100000%
  \multiply\@tempcnta by 100000%
  \advance\LastFive by -\@tempcnta}

\def\updateLastFive#1{%
  \multiply\LastFive by 10%
  \advance\LastFive by #1%
  \rightfive}

\def\ZunOrDoko#1{%
  \ifcase#1 \relax 
    \or {\color[rgb]{1.0,0.87,0.0}ズン} 
    \or {\color[rgb]{0.9,0.68,0.6}ドコ} 
    \or {\color[rgb]{0.3,0.81,0.8}ドコ}
    \fi}

\def\zundoko{%
  \@whilesw\ifZZZZD\fi{%
    \rand%
    \updateLastFive{\c@rand}%
    \ZunOrDoko{\c@rand}
    \ifnum\LastFive=11113\relax\ZZZZDfalse
      \else\ifnum\LastFive=11112\relax\ZZZZDfalse\fi
      \fi}}

\makeatother

\begin{document}

\pagecolor{black}
\Huge

\zundoko\ {\color[rgb]{0.84,0.23,0.24}キ ヨ シ ！}

\end{document}