%   makecard.sty (Card for any playing bese-Macro)
%     version 1.1   1998.06.09
%             by NAKATA Yoshinori white@d51.net
%
%

\typeout{`makecard' Ver 1.1 <09 JUN 1998> by White}

%
% Usage:\makecard[width,height]{card-text}
%

\def\makecard{\@ifnextchar [{\@makecard}{\@makecard[5cm,8.5cm]}}
\def\@makecard[#1,#2]#3{%
\hbox to #1{\vrule
  \vtop to #2{\hrule \vglue 3pt plus 1pt minus 2pt \vss
    \hbox{
      \vtop{
        \hbox{\hsize=#1 \hglue 5pt minus 3pt \hss
          \vbox{#3}\hss \hglue 5pt minus 4pt}}}\vss \vglue 3pt plus 1pt minus 2pt \hrule}\vrule}}

\typeout{`MtGproxy' Ver 1beta <09 JUN 1998> by White}

%
% Usage:\MtGproxy{Card Name}{Card Type}{Casting Cost}{Card Text}{}
%
\def\MtGproxy#1#2#3#4#5{%
\makecard[5.7cm,8.2cm]{
  \kern 3mm\vss
  \hbox to 5.1cm{#1 \hss #3}
  \kern 1pt 
  \hbox to 5.1cm{\vrule
    \vbox to4.0cm{\hrule \vss
      \hbox to5.05cm{\hss\vbox to4.0cm{}\hss}\hrule}\vrule}
  \vbox to4mm{\hbox{\hskip 3pt \relax #2}}
  \hbox to 5.1cm{\vrule
    \vbox to2.6cm{\hrule \vglue 2pt plus 3pt 
      \hbox to5.05cm{\hsize=4.7cm \hss\vbox to2.4cm{\scriptsize #4 \vss}\hss}\hrule}\vrule}
  \vbox to 6mm{\hbox to 5.2cm{\hss #5 \relax}}
  \vss
}}
