罪と罰++二律背反
罪罰/他国へ一括通信2
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰通信]]
-罪罰/他国へ一括通信1も参照
*もうひとつの方法、これでもいいかも [#n6c0bc97]
-宛先のところに国名を入れれば届きます
-国名と同じキャラが存在した場合問題が発生します
**国名宛の通信を表示 [#o44884bf]
# ログ書き込み処理
sub regist{
.... ( 省略 ) ....
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} eq $camp_info[1][0] # <--ここを追加
|| $in{'nm'} eq $camp_info[2][0] #
|| $in{'nm'} eq $camp_info[3][0] #
|| $in{'nm'} eq $camp_info[4][0] #
|| $in{'nm'} eq $camp_info[5][0] # <--ここまでの5行を...
){
$flag=1;
last;
-全員宛メッセージを追加
|| $in{'nm'} eq '全員'
**国名宛の通信を許可 [#m792c519]
-書き込み条件に「$nm eq $camp_info[$DAT{'camp'}][0] || 」...
# ログを展開
.... ( 省略 ) ....
while (<IN>) {
$log_last_flag++;
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$...
if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DA...
-全員宛メッセージを使う場合
if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DA...
**全員宛メッセージを利用する場合 [#t5d9651d]
-上の2つの変更点に加えて呼び出し部分も修正する必要があり...
# ログを展開
open(IN,"$logfile") || &error("Open Error : $logfile");
local $log_last_flag=0;
my $camp_flag = $camp_info[$DAT{'camp'}][0];
while (<IN>) {
$log_last_flag++;
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$ti...
# if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'c...
if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'cam...
$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
終了行:
[[罪罰通信]]
-罪罰/他国へ一括通信1も参照
*もうひとつの方法、これでもいいかも [#n6c0bc97]
-宛先のところに国名を入れれば届きます
-国名と同じキャラが存在した場合問題が発生します
**国名宛の通信を表示 [#o44884bf]
# ログ書き込み処理
sub regist{
.... ( 省略 ) ....
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} eq $camp_info[1][0] # <--ここを追加
|| $in{'nm'} eq $camp_info[2][0] #
|| $in{'nm'} eq $camp_info[3][0] #
|| $in{'nm'} eq $camp_info[4][0] #
|| $in{'nm'} eq $camp_info[5][0] # <--ここまでの5行を...
){
$flag=1;
last;
-全員宛メッセージを追加
|| $in{'nm'} eq '全員'
**国名宛の通信を許可 [#m792c519]
-書き込み条件に「$nm eq $camp_info[$DAT{'camp'}][0] || 」...
# ログを展開
.... ( 省略 ) ....
while (<IN>) {
$log_last_flag++;
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$...
if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DA...
-全員宛メッセージを使う場合
if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DA...
**全員宛メッセージを利用する場合 [#t5d9651d]
-上の2つの変更点に加えて呼び出し部分も修正する必要があり...
# ログを展開
open(IN,"$logfile") || &error("Open Error : $logfile");
local $log_last_flag=0;
my $camp_flag = $camp_info[$DAT{'camp'}][0];
while (<IN>) {
$log_last_flag++;
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$ti...
# if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'c...
if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'cam...
$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
ページ名: