0chの神々に萌えるﾇﾚｯﾄﾞ

78 ：◆dq7M./4Uw. ：2003/07/26 19:43 ID:???

ごめん、こうだ。
srand;
my $kuji;
my $omikuji=int(rand(1025));
if ($omikuji < 3){ $kuji = q|カラフル|}
elsif ($omikuji < 7) { $kuji = q|<font color=black>忍者</font>| }
elsif ($omikuji < 11) { $kuji = q|<font color=black>最悪</font>| }
elsif ($omikuji < 15) { $kuji = q|<font color=gray>引退</font>| }
elsif ($omikuji < 19) { $kuji = q|<font color=sienna>印度</font>| }
elsif ($omikuji < 30) { $kuji = q|<font color=dimgray>漢</font>| }
elsif ($omikuji < 40) { $kuji = q|<font color=white>雲隠れ</font>| }
elsif ($omikuji < 50) { $kuji = q|<font color=lightslategray>実験体</font>| }
~〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
elsif ($omikuji < 1008) { $kuji = q|<font color=black>特大吉</font>| }
elsif ($omikuji < 1020) { $kuji = q|<font color=black>終了</font>| }
elsif ($omikuji < 1025) { $kuji = q|<font color=silver>フルメタル</font>| }
else { $kuji = q|ERROR| }
$kuji=qq|</b>【$kuji】<b>|;
$kuji and $name=qq|$name$kuji|;
これでいけるはずだ。と思う。多分。