注目の投稿

[募集][告知] おしらせ

ここが一番デイビューあるのでダメ元で… 探しています: 2000 - 2010年頃までのいずれかの期間に、私が遊ばせていただいてたなりきりチャットのログ 該当多分3箇所くらい(表裏自前)だと思うのですが、いずれか一箇所でも上記期間のログをお持ちの方、もしいらっしゃったらコピーをお...

6.19.2022

かず13チャット の小改造

暇じゃない時ほどしなくていいことからしたい(ダメ人間) 
かず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{} ルーチンを移植して、変数を以下に書き換え
dquanmoji_4
dfacemoji_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>面


以上です

0 件のコメント:

コメントを投稿