#!/usr/bin/perl #語りかけ # 99/1/31 update(v4.5) by 普通 #==================================================================== #ご協力を頂いた方 #oidon$chatname";} else {$chatname_disp = $chatname;} #アクティブメンバーチェック &actmemcheck(); $msg = $in{'msg'}; $msg =~ s//>/g; $msg =~ s/\r//g; $msg =~ s/\n//g; $msg =~ s/(http:\/\/[\w\-\?\#\+\.\/~:]{9,})/$1<\/A>/ig; if ($ic_chat) {$msg =~ s/\[(\w{3,8})\]//g;} $calluserw = $in{'calluser'}; $moji = 'に居る'; #####################オリジナルスクリプト######## # if ($icon eq 'y') { # $roomdisp = ""; # $roomdisp2 = ""; ##################フラッシュバージョン##################### if ($ficon eq 'y') { $roomdisp = ""; $roomdisp2 = ""; ##############変更はここまで############### if ($calluserw =~ /(.*)\((.*)\).*/) { $gochatname = $1; $goroomno = $2;} else {;}} else { $roomdisp = $roomname; $roomdisp2 = $roomname; if ($calluserw =~ /.*$moji(.*)\((.*)\).*/) { $gochatname = $1; $goroomno = $2;} else {;}} $color = $in{'color'}; } sub main { print<<"__EOF__"; $title2 __EOF__ &goroomset(); print<<"__EOF__";

ここは、$title - $roomnameです。

ど〜も！「$chatname」さん。$goroomnameの「$gochatname」さん宛に下記内容で語りかけを完了！
$chatname($roomdisp2)>『$gochatname』さん！$msg[$date$rhost]
__EOF__ if ($wind) { print "部屋に戻るには、上の「発言／リロード」をクリックしてください。\n"; } else { print<<"__EOF__";
__EOF__ } #他Ｃｈａｔ室へのメッセージ投稿 &WriteComment ($goroomno,"$chatname_disp$cend1($roomdisp2)>『$gochatname』さん！$msg$cend2\[$date$rhost\]
\n"); if ($ranking) {&ranking();} print "
\n"; exit(0); } #アクティブメンバーチェック sub actmemcheck { &ReadMember ($roomno); foreach (@mf_list) { ($mf_roomno,$roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/); if ($chatname eq $mf_chatname) {return;} } &actmemerr(); } #部屋属性取得 sub goroomset { &ReadHeader ($goroomno); ($goroomname,$f_intime,$f_outtime,$f_memcnt,$hf_bgcolor,$hf_txcolor,$hf_line,$hf_roomenv,$hf_roompass,$dmy) = split(/｜|\n/,$hf_list); } #発言ランキング累計 sub ranking { if ($chatname =~ /＠/) {@rk_chatname = split(/＠|@/,$chatname);} else {push (@rk_chatname,$chatname);} &LockReadRanking; $mod = '0'; foreach (@rf_list) { ($rf_chatname,$rf_ltime,$rf_mon,$rf_cnt1,$rf_cnt2,$rf_cnt3,$rf_lhost,$rf_profno) = split(/｜|\n/); if ($rf_chatname eq $rk_chatname[0]) { if ($rf_mon eq $mon) { $mrf_cnt = $rf_cnt1 + 1; } else { $rf_mon = $mon; $rf_cnt3 = $rf_cnt2; $rf_cnt2 = $rf_cnt1; $mrf_cnt = 1; } $_ = "$rf_chatname｜$date_now｜$rf_mon｜$mrf_cnt｜$rf_cnt2｜$rf_cnt3｜$rf_lhost｜$profno\n"; $mod = '1'; last; } } if ($mod eq '0') {unshift(@rf_list,"$rk_chatname[0]｜$date_now｜$mon｜1｜0｜0｜｜$profno\n");} &UnlockWriteRanking; } #エラー表示 sub error { print<<"__EOF__"; $title2 $hp_bcolor
ここに入る為の情報に誤りがあります。
__EOF__ exit(0); } #エラー表示 sub actmemerr { print<<"__EOF__"; $title2 $hp_bcolor
ここに発言する為の情報が不足しています。
__EOF__ exit(0); }