write_genus.cgi

来自「这个是分屏聊天室源码。需要分屏的聊天室请参考」· CGI 代码 · 共 15 行

#########################################
#将精灵的话语写入信息文件
sub write_genus {
	$i = 0;
	if ($towho eq $bchatgenius) { $usersex = "Boy"; $geniusfile = $bchatfile; $addwordcolor = $bchatcolor;}
	else { $usersex = "Girl"; $geniusfile = $gchatfile; $addwordcolor = $gchatcolor; }
	@genius     =&readtxtfile($geniusfile);
	if ($#genius < 0 ) { return;}
	srand;
   $ramid=int(rand($#genius+1));
   $says =$genius[$ramid];
   chop($says);
   if ($says ne "") { $dnsecn++; $timen="$hourn\:$minn\:$dnsecn"; &write_message("genius"); }
}