[外掛](ALL)聊天室Mod

由 **New-TypeChobits** » 2004-05-02 10:05 am

曾答應大家將ACP Mod和Chat Mod分開, 現在譯出簡化版本.. 可給只需要聊天功能和不熟悉PHP的玩家使用..
功能簡介: 有全頻,組頻和密頻3種
安裝難度: Easy
wog_chat.php

代碼: 選擇全部: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=big5" > <title></title> <script language="JavaScript"> function sendtowhos() { if(document.wog_chat_input.name.value!=null) { document.wog_chat_input.towhos.value=parent.foot.document.f1.towho.value; return true; } return false; } </script> </head> <style> td{ font-size : 10pt; } </style> <LINK href=./wog2.css rel=stylesheet type=text/css> <body bgcolor="#000000" leftmargin="0" topmargin="0" text="#FFFFFF" oncontextmenu="return false"> <? $root_path = "./../"; //require($root_path.'vbb_support/function.php'); require($root_path."vbb_support/global.bak.php"); $name = $_GET["name"]; if ($name ==""){ $name = $_POST["name"]; } if ($name == ""){ showscript("alert('聊天錯誤,請重新登入!');window.open('./','_top');"); exit(); } $password = $_GET["password"]; if ($password == ""){ $password = $_POST["password"];} $p=$DB_site->query_first("select p_id,p_name,p_lock,p_g_id from wog_player where p_name='$name' and p_password='$password'"); if($p) { if($p[p_lock]==1) { showscript("alert('你被凍結了');window.open('./','_top');"); exit(); } $gchat_id = $p[p_g_id]; $send_id = $p[p_id]; }else{ showscript("alert('帳號錯誤或密碼錯誤或尚未創造角色');window.open('./','_top');"); exit(); } $bsay = $_POST["bsay"]; $color = $_POST["color"]; $color_table=array("#FFFFFF","#FFFF00","#99CC00","#A6BCFF","#F2CEFB","FF0000","#00FFFF","#928A70");//顏色表可任意更換添加 if(!empty($bsay) && trim($bsay)!=""){ $word_say=str_replace(">","&",$bsay); $word_say=str_replace("<","&",$word_say); $fp=fopen("wog_chat.txt","a"); switch ($_POST["chat_mode"]) { case "prvite": $toname = $_POST["towhos"]; $target = $DB_site->query_first("select p_id from wog_player where p_name='$toname'"); if($target) { //$towhoid = $target[p_id]; } if ($send_id != $target[p_id] and $target[p_id] != ""){ $word_say= $send_id."#@#".$target[p_id]."#@#"."99999"."#@#".$color." #@#[密] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>→<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$toname."&)' target='foot' style='color: ".$color."'>".$toname."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; }else{ $word_say= $send_id."#@#"."0"."#@#"."0"."#@#".$color." #@#[全] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; } break; case "group": $word_say= $send_id."#@#"."0"."#@#".$gchat_id."#@#".$color." #@#[組] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; break; case "all": $word_say= $send_id."#@#"."0"."#@#"."0"."#@#".$color." #@#[全] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; break; } while(!is_writeable("wog_chat.txt")){ } fputs($fp,$word_say); fclose($fp); } ?> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=big5"> <title>即時聊天</title> </head> <body bgcolor="#000000" leftmargin="0" topmargin="0" text="#FFFFFF"> <form method="POST" action="wog_chat.php" name="wog_chat_input" onSubmit="sendtowhos()"> <input type="hidden" name="towhos" value=""> <input type="hidden" name="name" value="<?=$name;?>"> <input type="hidden" name="password" value="<?=$password; ?>"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber1" width="100%"> <tr> <td > <select size="1" name="color">//選顏色 <? for($t1=0;$t1<sizeof($color_table);$t1++){ $show_select=""; if($color_table[$t1]==$color) { $show_select=" selected "; } echo "<option $show_select value='".$color_table[$t1]."' style='background-color: ".$color_table[$t1]."'>&</option>"; } ?> </select> <input class="text" type="text" name="bsay" size="20" value=""> <?if ($gchat_id != 0 and $gchat_id != ""){?> 組織<input type="radio" value="group" <?if ($_POST["chat_mode"] == "group"){?>checked <?}?>name="chat_mode"><? } ?> 全體<input type="radio" value="all" onClick="javascript:parent.noname()" <?if ($_POST["chat_mode"] == "all" || $_POST["chat_mode"] == ""){?>checked <?}?>name="chat_mode"> 密談<input type="radio" value="prvite" <?if ($_POST["chat_mode"] == "prvite"){?>checked <?}?>name="chat_mode"> <input class="text" type="submit" value="送出" name="B1" > <www.et99.org name="wog_chat_write" src="wog_chat_write.php" width="102%" height="87" border="0" frameborder="0" ></www.et99.org> </td> </tr> </table> </form> <script> wog_chat_input.bsay.focus(); </script> </body> </html> <? // wog show java script function showscript($temp_s) { global $DB_site,$HTTP_SESSION_VARS,$wog_arry,$HTTP_SERVER_VARS,$HTTP_USER_AGENT; if(isset($DB_site)) { $DB_site->close(); } echo "<script language=\"JavaScript\">\n"; echo $temp_s.";\n"; echo "</script>\n"; // $HTTP_SESSION_VARS['act_time']=time(); compress_exit(); // EXIT here! } ?>

wog_chat_write.php

代碼: 選擇全部: <? $root_path = "./../"; require($root_path.'vbb_support/function.php'); require($root_path."vbb_support/global.php"); $p=$DB_site->query_first("select p_id,p_name,p_lock,p_g_id from wog_player where p_name='".$HTTP_COOKIE_VARS["wog_cookie_name"]."'"); if($p) { if($p[p_lock]==1) { showscript("alert('你被凍結了');window.open('./','_top');"); exit(); } $gchat_id = $p[p_g_id]; $p_id = $p[p_id]; }else{ showscript("alert('帳號錯誤或密碼錯誤或尚未創造角色');window.open('./','_top');"); exit(); } $timestamp1 = mktime(date("H",filemtime("wog_chat.txt")), date("i",filemtime("wog_chat.txt")), date("s",filemtime("wog_chat.txt")), date("m",filemtime("wog_chat.txt")),date("d",filemtime("wog_chat.txt")), date("Y",filemtime("wog_chat.txt"))); $timestamp2 = mktime(date("H"),date("i"),date("s"), date("m"), date("d"), date("Y")); $answer=($timestamp2-$timestamp1) / (60*60*24); if($answer>0.00694){//超過10分鐘未更新就清空 $fp=fopen("wog_chat.txt","w"); fputs($fp,""); fclose($fp); } //讀取檔案內容 $show=file("wog_chat.txt"); $max=sizeof($show); if($max-25<=0){$min=0;} else{$min=$max-25;} ?> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=big5"> <META HTTP-EQUIV="Refresh" CONTENT=10 src="wog_chat_write.php"> <title>即時聊天</title> <style type='text/css'>  </style> </head> <body bgcolor="#000000" leftmargin="0" topmargin="0" text="#FFFFFF"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber1" width="100%"> <? for($t1=$max;$t1>=$min;$t1--){ $show_word_text=split("#@#",$show[$t1]); //if (trim($show_word_text[0]) == $gchat_id and trim($show_word_text[0]) == "0"){ if (($show_word_text[0]) == $p_id || ($show_word_text[1]) == $p_id || ($show_word_text[2]) == $gchat_id || ($show_word_text[2]) == "0"){ //把顏色和文字分離出來 echo "<tr><td><font color='".trim($show_word_text[3])."'>".StripSlashes(trim($show_word_text[4]))."</td></tr><tr><td width='100%' height='1' bgcolor='#A2A9B8'></td></tr>"; } } ?> </table> </body> </html>

其實用Cookie可以減少SQL Query的次數... 如大家希望用Cookie可自行修改... (由於這是舊作品.. 所以.. 也懶修改了.. -.-")

由 **New-TypeChobits** » 2004-05-02 10:12 am

安裝步驟可參考 http://bbs.et99.org/viewtopic.php?t=7676&start=20
藍本是參考wog_only_talk的.. 所以安裝也很簡單..
自行創做一個叫wog_chat.txt放在你的wog目錄..將權限設定為777

代碼: 選擇全部: wog/index.php #---------[ FIND ]---------------------------------------- <frame name="peolist" src="wog_etc.php?f=peo" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" noresize> #---------[ AFTER, ADD ]---------------------------------- <frameset cols="560,*" border="0"> #---------[ FIND ]---------------------------------------- <frame src="wog_foot.php" name="foot" id="foot" frameborder="0" scrolling="Auto" noresize marginwidth="0" marginheight="0"> </frameset> </html> #---------[ REPLACE WITH ]-------------------------------- <frame src="wog_foot.php" name="foot" id="foot" frameborder="0" scrolling="Auto" noresize marginwidth="0" marginheight="0"> <frameset rows="*" border="0"> <frame src="" name="chat" frameborder="0" scrolling="Auto" noresize marginwidth="0" marginheight="0"> </frameset> </frameset> </frameset> </html> #---------[ OPEN ]---------------------------------------- wog/wog_act.php #---------[ FIND LINE 1055左右和1010左右(即function login和chara_save) ]------------------------------ setcookie("wog_bbs_id",$bbs_id); #---------[ AFTER, ADD ]--------------------------------- echo "<script>parent.frames['chat'].location.href=\"wog_chat.php?name=".htmlspecialchars(trim($_POST["id"]))."&password=".htmlspecialchars(trim($_POST["pass"]))."\";\n</script>";

由 **jayrual** » 2004-05-02 3:06 pm

我照了上面的修改之後

登入時會出現以下這問題

請問是哪裡出了個問題... 謝謝

附圖

http://wog.jayrual.iconrate.net/

由 **New-TypeChobits** » 2004-05-02 5:55 pm

已看過了.. 你試試備份你的index.htm換成這個試試..

代碼: 選擇全部: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>YOUR SITE TITLE HERE</title> <meta content="text/html; charset=big5" http-equiv=content-type> <script language="JavaScript" src="./wog.js"></script> <title>Untitled</title> </head>  <frameset rows="120,*,0,0,130" border="0" resize="no" oncontextmenu="return false" frameborder="0"> <frameset cols="*"> <frame src="wog_top.htm" name="top" id="top" frameborder="0" scrolling="No" noresize marginwidth="0" marginheight="0"> <frameset cols="*,20%" border="0"> <frame name="wog_view" id="wog_view" frameborder="0" scrolling="Auto" noresize marginwidth="10" marginheight="10"> <frame name="wog_peo" src="" marginwidth="0" marginheight="0" scrolling="auto" frameborder="0" noresize> </frameset> <frame name="mission" src="wog_etc.php?f=well" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" noresize> <frame name="peolist" src="wog_etc.php?f=peo" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" noresize><frameset cols="560,*" border="0"> <frame src="wog_foot.htm" name="foot" id="foot" frameborder="0" scrolling="Auto" noresize marginwidth="0" marginheight="0"> <frameset rows="*" border="0"> <frame src="" name="chat" frameborder="0" scrolling="Auto" noresize marginwidth="0" marginheight="0"> </frameset> </frameset> </frameset> </html>

由 **New-TypeChobits** » 2004-05-03 1:56 am

已修正了出現非法符號(1)的問題.. 再下載一次wog_chat.php和wog_chat_write.php蓋上就可以了..

代碼: 選擇全部: 還有...在 echo "<option $show_select value='".$color_table[$t1]."' style='background-color: ".$color_table[$t1]."'>& 之後是有nbsp;但phpbb的code功能吃掉了.. 自己加上去就可以... -.-

將vbb_support內的global.php複製成global.bak.php,並將global.bak.php內的post_check($_POST);前加上//

由 **king2001** » 2004-05-04 11:31 pm

聊天時不能用"功","蓋"那些字
能解決嗎

由 **New-TypeChobits** » 2004-05-05 12:46 am

king2001 寫:聊天時不能用"功","蓋"那些字
能解決嗎

能解決的.

由 **king2001** » 2004-05-05 2:13 am

New-TypeChobits 寫:
king2001 寫:聊天時不能用"功","蓋"那些字
能解決嗎

能解決的.

能否說一下怎麼解決??
謝謝

由 **king2001** » 2004-05-08 3:27 am

今天測試了禁言...
被禁言的人會出以下錯誤信息
Fatal error: Call to undefined function: alertwindowmsgsub() in c:\appserv\www\phpbb2\wog\wog_chat.php on line 125
紅色為125行
wog_chat.php

代碼: 選擇全部: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=big5" > <title></title> <script language="JavaScript"> function sendtowhos() { if(document.wog_chat_input.name.value!=null) { document.wog_chat_input.towhos.value=parent.foot.document.f1.towho.value; return true; } return false; } </script> </head> <style> td{ font-size : 10pt; } </style> <LINK href=./wog2.css rel=stylesheet type=text/css> <body bgcolor="#000000" leftmargin="0" topmargin="0" text="#FFFFFF" oncontextmenu="return false"> <? $root_path = "./../"; require($root_path.'vbb_support/function.php'); require($root_path."vbb_support/global.php"); $name = $_GET["name"]; if ($name ==""){ $name = $_POST["name"]; } if ($name == ""){ showscript("alert('聊天錯誤,請重新登入!');window.open('./','_top');"); exit(); } $gmid = $_GET["gmid"]; if ($gmid ==""){ $gmid = $_POST["gmid"]; } $adminid = $_GET["adminid"]; if ($adminid == ""){ $adminid = $_POST["adminid"];} $password = $_GET["password"]; if ($password == ""){ $password = $_POST["password"];} $p=$DB_site->query_first("select p_id,p_name,p_lock,p_lock_time,p_chatban,p_bbsid,p_userlv,p_g_id from wog_player where p_name='$name' and p_password='$password'"); if($p) { if($p[p_lock]==1) { showscript("alert('你被凍結了');window.open('./','_top');"); exit(); } if ($p[p_lock_time] !=0 and $p[p_lock_time] > time()){ showscript("alert('由於你的行為欠佳,系統管理員將暫時封閉你的帳號直至".date("Y,Md h:i a",$p[p_lock_time])."');window.open('./','_top');"); } $gchat_id = $p[p_g_id]; $send_id = $p[p_id]; }else{ $adm=$DB_site->query_first("select p_lock,p_userlv from wog_player where p_name='".$adminid."' and p_password='".$password."' "); if($adm) { $p_userlv = $adm[p_userlv]; }else{ showscript("alert('帳號錯誤或密碼錯誤或尚未創造角色');window.open('./','_top');"); exit(); } } $bsay = $_POST["bsay"]; $color = $_POST["color"]; $color_table=array("#FFFFFF","#FFFF00","#99CC00","#A6BCFF","#F2CEFB","FF0000","#00FFFF","#928A70");//顏色表可任意更換添加 if(!empty($bsay) && trim($bsay)!=""){ $word_say=str_replace(">","&",$bsay); $word_say=str_replace("<","&",$word_say); $fp=fopen("wog_chat_message.txt","a"); $hfp=fopen("wog_chat_history.txt","a"); $tname = $name; if ($gmid != "" and $p[p_userlv] != 1){ $name = ($name."(".$gmid.")"); } if ($_POST["chat_mode"] != "prvite"){ if ($_POST["chat_mode"] != "all" and $gchat_id != "0"){ $hword_say=$send_id."#@#"."1"."#@#".$color." #@#[組] (".date("Y,Md :h:i a").")".$name."：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; $name = $tname; $word_say= $send_id."#@#"."0"."#@#".$gchat_id."#@#".$color." #@#[組] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; }else{ $hword_say=$send_id."#@#"."0"."#@#".$color." #@#[全] (".date("Y,Md :h:i a").")".$name."：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; $name = $tname; $word_say= $send_id."#@#"."0"."#@#"."0"."#@#".$color." #@#[全] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; }}else{ //PRVITE CHAT $toname = $_POST["towhos"]; $send = $DB_site->query_first("select p_id,p_name,p_lock,p_chatban,p_bbsid,p_userlv,p_g_id from wog_player where p_name='$toname'"); if($send) { $towhoid = $send[p_id]; } if ($send_id != $towhoid and $towhoid != ""){ $hword_say=$send_id."#@#"."1"."#@#".$color." #@#[密] (".date("Y,Md :h:i a").")".$name."→".$toname."：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; $word_say= $send_id."#@#".$towhoid."#@#"."99999"."#@#".$color." #@#[密] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>→<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$toname."&)' target='foot' style='color: ".$color."'>".$toname."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; }else{ $hword_say= $send_id."#@#"."0"."#@#".$color." #@#[全] (".date("Y,Md :h:i a").")".$name."：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; $name = $tname; $word_say= $send_id."#@#"."0"."#@#"."0"."#@#".$color." #@#[全] (".date("h:i a").")<a title='發送給目標:".$name."' href='javascript:parent.yesname(&".$name."&)' target='foot' style='color: ".$color."'>".$name."</a>：".AddSlashes(strip_tags(trim($word_say)))."\r\n"; }} if($p[p_chatban]==1) { [color=RED]alertWindowMsgsub("恭喜~~ 你已被系統管理員禁言了.. ^.^");[/color] }else{ while(!is_writeable("wog_chat_message.txt")){ } fputs($fp,$word_say); fclose($fp); while(!is_writeable("wog_chat_history.txt")){ } fputs($hfp,$hword_say); fclose($hfp); } } ?> <form method="POST" action="wog_chat.php" name="wog_chat_input" onSubmit="sendtowhos()"> <input type="hidden" name="towhos" value=""> <?if ($adminid != "" and $password != ""){?> <input type="hidden" name="adminid" value="<?=$adminid; ?>"> <?}?> <input type="hidden" name="password" value="<?=$password; ?>"> <input type="hidden" name="name" value="<?=$name; ?>"> <?if ($name == "GameMaster" and $gmid != ""){?><input type="hidden" name="gmid" value="<?=$gmid; ?>"><?}?> <table align="left" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber1" width="100%"> <tr> <td align="left"> <select class="text" size="1" name="color">//選顏色 <? for($t1=0;$t1<sizeof($color_table);$t1++){ $show_select=""; if($color_table[$t1]==$color) { $show_select=" selected "; } echo "<option $show_select value='".$color_table[$t1]."' style='background-color: ".$color_table[$t1]."'>&&</option>"; } ?> </select> <? $tempurl = "?name=".$name."&adminid=".$adminid."&password=".$password.""; ?> <input class="text" type="text" name="bsay" size="30" value=""> <?if ($gchat_id != 0 and $gchat_id != ""){?> 組織<input type="radio" value="group" <?if ($_POST["chat_mode"] == "group"){?>checked <?}?>name="chat_mode"><? } ?> 全體<input type="radio" value="all" onClick="javascript:parent.noname()" <?if ($_POST["chat_mode"] == "all" || $_POST["chat_mode"] == ""){?>checked <?}?>name="chat_mode"> 密談<input type="radio" value="prvite" <?if ($_POST["chat_mode"] == "prvite"){?>checked <?}?>name="chat_mode"> <input class="text" type="submit" value="送出" name="B1" > <www.et99.org name="wog_vvt5" src="wog_chat_write.php<?if ($adminid != "" and $password != ""){echo $tempurl;}?>" width="102%" height="87" border="0" frameborder="0" ></www.et99.org> </td> </tr> </table> </form> <script> wog_chat_input.bsay.focus(); </script> </body> </html>

由 **king2001** » 2004-05-08 3:28 am

另外功.蓋跟特殊字符" . /這些會出錯誤能解決嗎

希望能加上表情圖

由 **New-TypeChobits** » 2004-05-08 5:46 am

king2001 寫:今天測試了禁言...
被禁言的人會出以下錯誤信息
Fatal error: Call to undefined function: alertwindowmsgsub() in c:\appserv\www\phpbb2\wog\wog_chat.php on line 125
紅色為125行
wog_chat.php

你這個wog_chat.php必須整合遊戲系統管理台使用.. 請你分清楚是兩個版本啊...

由 **king2001** » 2004-05-08 10:46 am

我有安裝遊戲系統管理台....除拍賣那個地方有問題外..其他地方都沒問題

由 **New-TypeChobits** » 2004-05-08 3:46 pm

king2001 寫:我有安裝遊戲系統管理台....除拍賣那個地方有問題外..其他地方都沒問題

有安裝遊戲管理控制台就應該在那文章內發問.. 而且你的答案可在該文章內看到的..

由 **New-TypeChobits** » 2004-05-09 9:57 am

king2001 寫:另外功.蓋跟特殊字符" . /這些會出錯誤能解決嗎

希望能加上表情圖

加上表情圖... 其實.. 這個聊天的功能只是方便大家.. 例如方便交易等... 並且由於版位有限.. 聊天的功能和一個真正的"聊天室"相距甚遠.. 更沒有這種必要...

由 **Frances3399** » 2004-05-16 11:38 pm

如果單純只裝此Chat Mod
可以擁有組織與密談的效果嗎？
謝謝~~很棒的程式。

[外掛](ALL)聊天室Mod

[外掛](ALL)聊天室Mod

[外掛](ALL)聊天室Mod

誰在線上