◆おみくじ機能の追加

ゆいぼっとについているおみくじ機能のみの移植です。
まず、おみくじデータを作ります。ゆいぼっとのkuji.datでもよいでしょう。
kuji.datを、chat.cgiと同じディレクトリに置きます。
つぎに、chat.cgi sub write に、下記のようにおみくじ機能を追加します。



	if ($chat eq '退室') {
		$value = "<FONT COLOR=\"blue\"><B>管理人</B></FONT> &gt; <B><FONT COLOR=\"$color\" SIZE=+2>$name</FONT><FONT COLOR=\"red\">さん、またきておくれやすぅ。</FONT></B><FONT COLOR=\"#888888\" SIZE=-1>($date $host)</FONT><HR>\n";
		&writelog;
		print "Location: $endpage\n\n";
		&ended;
	}elsif ($email) {
		$value = "<FONT COLOR=\"$color\"><B>$name</B></FONT> <A HREF=\"mailto:$email\" TARGET=\"_top\">|&gt;</A> <B>$chat $emoji</B><FONT COLOR=\"#888888\" SIZE=-1>($date $host)</FONT><HR>\n";
		}else {
			$value = "<FONT COLOR=\"$color\"><B>$name</B></FONT> &gt; <B>$chat $emoji</B><FONT COLOR=\"#888888\" SIZE=-1>($date $host)</FONT><HR>\n";
		}
&count;#発言ランキングがいらなければ、削除。
#おみくじ機能
if ($chat eq 'おみくじ') {
	srand($times);
	$kuji_file = './kuji.dat';#おみくじファイル。
	unshift( @lines,$value);#おみくじ発言を@linesに収納
	open(DB,"$kuji_file")  || &ended('$kuji_file open error');
   	@lines2 = <DB>;
   	close(DB); 
	$msg= $lines2[rand($#lines2+1)];
	chop $msg;
	$value = "<FONT color=\"hotpink\"><B>巫女</B></FONT> &gt; <B>$msg＞$nameさん </B><FONT color=\"#888888\" size=-1>($date yui.bot.com)</FONT><HR>\n"; 
}#おみくじ機能ここまで。

&writelog;

}#write END