www.pudn.com > coolchat.zip > chatpost.pl
sub Chat_post
{
$emoteyn=0;
my($imgstr,$message);
$UserData{'Bgcolor'} = "black" if($UserData{'Bgcolor'} eq "");
&get_form_data;
$formdata{'U'}="" if ($formdata{'U'} eq "所有人");
$formdata{'message'} =~ s/^\s*//g;
$formdata{'message'} =~ s/\s*$//g;
MyDo $Style_Config;
$imgstr = "![](\"$ChatURLpath/image/$ImageList{$formdata{'IMAGELIST'}}\")
" if(defined $ImageList{$formdata{'IMAGELIST'}});
$formdata{'Emote'} = lc($formdata{'Emote'});
if(exists $EmoteList{$formdata{'Emote'}})
{
my($me,$who) = ('_ME_','_WHO_');
my $emotestr = $EmoteList{$formdata{'Emote'}};
if($emotestr eq "")
{
&chatshowmsg;
return;
}
$emotestr =~ s/$me/$UserData{'Nick'}<\/font>/g;
if($formdata{'U'})
{
$emotestr =~ s/$who/$formdata{'U'}<\/font>/g;
}
else
{
$emotestr = $EmoteListself{$formdata{'Emote'}};
$emotestr =~ s/$me/$UserData{'Nick'}<\/font>/g;
}
# $message = " ".$emotestr."
";
$message = "$emotestr";
$emoteyn=1;
}
else
{
if($formdata{'message'} eq "")
{
&chatshowmsg;
return;
}
$fontstr = " color=\"$FontColor{$formdata{'Color'}}\"" if(defined $FontColor{$formdata{'Color'}});
$fontstr .= " face=\"$FontFace{$formdata{'Face'}}\"" if(defined $FontFace{$formdata{'Face'}});
$fontstr .= " size=\"$FontSize{$formdata{'Size'}}\"" if(defined $FontSize{$formdata{'Size'}});
if($fontstr ne "")
{
$message = " ".$formdata{'message'}." ";
}
else
{
$message = $formdata{'message'};
}
}
$message .= $imgstr;
my $lowid = lc($UserData{'User'});
my $counterpath = "$Userdatapath/$lowid$COUNTER";
my $count = 0;
if(-f "$counterpath")
{
if(open COUNT, "+<$counterpath")
{
flock(COUNT,2) if($Enable_Flock eq 1);
$count = ;
$count++;
seek COUNT,0,0;
print COUNT "$count";
close COUNT;
}
}
else
{
if(open COUNT, ">>$counterpath")
{
flock(COUNT,2) if($Enable_Flock eq 1);
print COUNT "1";
close COUNT;
}
}
if ($emoteyn==1){
&UpdateChatData(1, $UserData{'User'},$UserData{'Room'},$UserData{'Nick'},$message,$formdata{'U'},$formdata{'P'});
if ($formdata{'U'} eq "小精灵"){
$sizeram=@EmoteList;
$sizeram=$sizeram+0;
$ram2=int(rand($sizeram));
$emotestr=$EmoteList{$EmoteList[$ram2]};
$emotestr =~ s/_ME_/小精灵<\/font>/g;
$emotestr =~ s/_WHO_/$UserData{'Nick'}<\/font>/g;
$message =$emotestr;
sleep(1);
&UpdateChatData(1, 'robot',$UserData{'Room'},'小精灵',$message,$UserData{'Nick'},$formdata{'P'});
}
}else{
if ($formdata{'U'} eq "小精灵"){
$update=2;
&UpdateChatData(2, $UserData{'User'},$UserData{'Room'},$UserData{'Nick'},$message,$formdata{'U'},$formdata{'P'});
&chatshowmsg;
sleep(1);
$yn=0;
$update=2;
$sizerobot=@robot;
for($i=0;$i<$sizerobot;$i++){
$search=$robot[$i];
if ($message =~ /$search/gi){
$message=$robot{$search};
$i=$sizerobot;
$yn=1;
}
}
if($yn==0){
if ($message =~ /你/gi){
if($message =~m /你跟大家问声好/){
$UserData{'Nick'}='';
$message="大家好呀！欢迎常来我们的聊天室呦！我是个漂亮的MM呦！嘻嘻";
$yn=1;
}
elsif($message =~m /(你跟)*(问声好)/g){
$nick=$UserData{'Nick'};
$UserData{'Nick'}=$message;
$UserData{'Nick'}=~ s/你跟//g;
$UserData{'Nick'}=~ s/问声好//g;
$UserData{'Nick'}=~ s/!//g;
$UserData{'Nick'}=~ s/呀//g;
if ($UserData{'Nick'}=~/哥哥/gi){
$UserData{'Nick'}=~ s/哥哥//g;
$other="哥哥";
}
if ($UserData{'Nick'}=~/姐姐/gi){
$UserData{'Nick'}=~ s/姐姐//g;
$other="姐姐";
}
if ($UserData{'Nick'}=~/阿姨/gi){
$UserData{'Nick'}=~ s/阿姨//g;
$other="阿姨";
}
if ($UserData{'Nick'}=~/弟弟/gi){
$UserData{'Nick'}=~ s/弟弟//g;
$other="弟弟";
}
if ($UserData{'Nick'}=~/我/gi){
$UserData{'Nick'}=$nick;
$other="好哥哥";
}
if($other eq "姐姐"){
$message=$UserData{'Nick'}.$other."，认识你我很高兴呀！今天开心一点了么？怎么不跟我无缺大哥聊聊呀！嘻嘻!";
}else{
$message=$UserData{'Nick'}.$other."，你好呀！认识你我很高兴呀！嘻嘻!";
}
$yn=1;
}
elsif ($message =~ /我/gi){
$message=~ s/你/me/g;
$message=~ s/我/你/g;
$message=~ s/me/我/g;
$message =~ s/\!/\?/g;
$message .="?,我怎么好像不怎么明白呀？";
$yn=1;
}else{
$message=~ s/我/you/g;
$message =~ s/你/我/g;
$message=~ s/you/你/g;
$message =~ s/\?/\!/g;
$message .="?，你不能说清楚点不？气死我了！";
$yn=1;
}
}
else{
if ($message =~ /\?/gi){
$message =~ s/\?/\!\!\!/g;
$yn=1;
}
if ($message =~ /\!/gi){
$message =~ s/\!/\?\?\?/g;
$yn=1;
}
}
}
$ram=int(rand(10));
if(($ram>5)&&($ram<7)){
$message ="你说啥？我怎么不明白你的意思呀？你说清楚点莫！" if ($yn==0);
}
elsif(($ram>=7)&&($ram<9)){
$message ="我好闷呀！你都不关心我！~~" if ($yn==0);
}
elsif(($ram>=9)&&($ram<11)){
$message ="小精灵揉揉双眼，一副想睡觉的样子。" if ($yn==0);
$update=1;
}
elsif(($ram>3)&&($ram<6)&&($yn==0)){
$sizeram=@EmoteList;
$sizeram=$sizeram+0;
$ram2=int(rand($sizeram));
$emotestr=$EmoteList{$EmoteList[$ram2]};
$emotestr =~ s/_ME_/小精灵<\/font>/g;
$emotestr =~ s/_WHO_/$UserData{'Nick'}<\/font>/g;
$message =$emotestr;
$update=1;
}
else{
$update=2;
}
&UpdateChatData($update, 'robot',$UserData{'Room'},'小精灵',$message,$UserData{'Nick'},$formdata{'P'});
&chatshowmsg;
}else{
if (($message =~ /\/robot/gi)&&($UserData{'Group'} eq 99)){
$message =~ s/\/robot//g;
&UpdateChatData(0, 'robot',$UserData{'Room'},'小精灵',$message,$formdata{'U'},$formdata{'P'});
}
elsif (($message =~ /\/-tell/gi)&&($UserData{'Group'} >= 50)){
$message =~ s/\/-tell//g;
&UpdateChatData(0, 'master',$UserData{'Room'},'[授权管理员]',$message,$formdata{'U'},$formdata{'P'});
}
elsif (($message =~ /\/-told/gi)&&($UserData{'Group'} eq 99)){
$message =~ s/\/-told//g;
&UpdateChatData(0, 'sysop',$UserData{'Room'},'[聊吧管理员]',$message,$formdata{'U'},$formdata{'P'});
}
elsif ($message =~ /\/-link/gi){
$message1=$message;
$message1 =~ s/\/-link//g;
$message="".$message1."<\/a>";
&UpdateChatData(0, $UserData{'User'},$UserData{'Room'},$UserData{'Nick'},$message,$formdata{'U'},$formdata{'P'});
}
else{
&UpdateChatData(0, $UserData{'User'},$UserData{'Room'},$UserData{'Nick'},$message,$formdata{'U'},$formdata{'P'});
}
&chatshowmsg;
}
}
#&chatshowmsg;
}
1; #return true