暇じゃない時ほどしなくていいことからしたい(ダメ人間)
かず13チャット(配布サイトのアーカイブ)の改造というか付け足しというか何というかをしたので備忘
もっと良い実装あったらぜひ教えていただけると感激しますので何卒 orz
1)時間ごとに変わるメッセージをログ部分に表示
かような。
改造対象: common.cgi、log.cgi common.cgi■140行付近 sub jikan{}内(後尾)に以下を追加
$ghour = 7;#時間区分の判定
$ghour = 0 if ($hour >= 0 && $hour < 3);
$ghour = 1 if ($hour >= 3 && $hour < 6);
$ghour = 2 if ($hour >= 6 && $hour < 9);
$ghour = 3 if ($hour >= 9 && $hour < 11);
$ghour = 4 if ($hour >= 11 && $hour < 14);
$ghour = 5 if ($hour >= 14 && $hour < 17);
$ghour = 6 if ($hour >= 17 && $hour < 20);
@dzone = ('深夜','明け方','早朝','朝','昼','昼過ぎ','夕方','夜');
$greet = $dzone[$ghour] ;
@meet = (''ランダムに,'出したい','メッセージを','好きなだけ');
$meetn = srand($mon+$mday+$ghour);
while ($meetn > @meet){ $meetn = $meetn - @meet };
$greet2 = $meet[int $meetn];
log.cgi■26行付近 sub html{}内
表示したい箇所に $greet、$greet2 の変数追加
サンプル画像と同じくリロードの横に表示する場合→ print "</HEAD>$body<A HREF=\"$link\">[リロード]</A>[$greet2・$butai]\n";
2)ダイス機能追加
かような。
改造対象:common.cgi、log.cgi、index.cgi
ダイス部分はつぼみしゅん氏のサイトにて紹介されている掛屋丈二氏のdicechat v3.01より移植させていただきました。
common.cgi■
記号入力機能を書き換えるので、21行付近にある記号入力機能の使用を1にしてください。
(任意の場所)140行付近 sub jikan{}と sub sanka{}の間に追加dicechat v3.01より sub dice{} ルーチンを移植して、変数を以下に書き換え
dquan → moji_4
dface → moji_5
変数 $dsyuu 使用箇所をストライクアウト(定義行と計算行)
if ($dsyuu == 0) {略} 判定を書き換え→ if ($damount == 0) { $d_data = ''; }
log.cgi■
<font size=$moji_2 color=$moji_5 face=\"symbol\">$moji_4 を検索して書き換え→ <font size=$moji_2>$d_data
index.cgi■235行付近 if($mark eq '1'){ print <<"_HTML_"; 以下のセレクト内容を書き換え
記号<select name=\"moji_4\" size=1>
<option selected value="">なし
<option value="ゥ">ハート
略
</select>
↓
サイコロ<select name=\"moji_4\" size=1>
<option selected value="0">
<option value="1">1
略
</select>個
記号色<select name=\"moji_5\" size=1>
<option SELECTED value=$log_color2>標準
<option value=\"red\">赤
略
</select>
↓
<select name=\"moji_5\" size=1>
<option SELECTED value="6">6
<option value="10">10
略
</select>面
以上です