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

76 ：◆dq7M./4Uw. ：2003/07/25 19:56 ID:???

動作確認してへんけど、↓
<code>
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|;
</code>
を、varda.pl内を☆で検索して★を☆に置き換えてるところを発見して、
その下でいいと思う。