#--- [注意事項] ------------------------------------------------#
# 1. このスクリプトを使用したいかなる損害に対しても #
# 作者は一切の責任を負いませんし負えません。 #
# 2. これに関する質問はメール,掲示板で #
# 3. このスクリプトはＧＵＮさん[http://www.gun-online.com/] #
# やD.Takamiyaさん[http://www.interq.or.jp/sun/cumro/] #
# のスクリプトを流用している箇所があります #
# #
# 余談ですが作者は #
# http://www.yamabuki.sakura.ne.jp/~darkrose/cgi/potya/ #
# ↑ここ辺にいます #
#---------------------------------------------------------------#
○著作権○
FFadventureはD.Takamiyaさんの作品です
TOMORROW IS ANOTHER DAY[http://www.interq.or.jp/sun/cumro/]で配布されています
FFadventure(改)はＧＵＮさんの改造です
ＧＵＮオンラインコム[http://www.gun-online.com/]で配布されています
○コレは改造の資料程度のものですので好きに使って下さい(質問は受けますが)
++++++++++++++++++++++++++++☆説明☆+++++++++++++++++++++++++++++
プログラム名:[FFA(改)ログインカウンタライブラリ]
・eventmes.pl[カウンタライブラリ]
・readme_mes.txt
目的・ログインした回数をカウントする
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
★使用例★【ログインをカウントする＆回数を表示】
ライブラリをffadventure.cgiのあるディレクトリに転送しておきます
次にffadventure.iniに以下の記述を追加します
それぞれお好みで設定して下さい
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#┏━━━━━━┓#
#┃ex. 追加設定┃#
#┗━━━━━━┛#
#others.cgiのフルパス(http://〜)
$count_o = "http://";
#カウントファイルのあるディレクトリ(最後に/無しで)
$count_dir = "./count";
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
次はカウンタファイルを保存するディレクトリを
パーミッション７７７で作成します
ディレクトリ名はiniで設定する名前にして下さい
そして、ffadventure.cgiに一部記述を追加します
上の方の
###################################
# 初期設定ファイルの読み込み
require 'ffadventure.ini';
###################################
の下に
###################################
# カウンタライブラリの読み込み
require 'eventmes.pl';
###################################
と記述し、requireしておきます
次の書き換えは最初のヒアドキュメントがある140行目付近のココを
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
&guest_list;
&header;
&guest_view;
print <<"EOM";
$knameさん用ステータス画面
登録者一覧/ \能\力別ランキングへ / 各職業に必要な特性値 / $bbs_title / $sbbs_title / FFA改造情報交換掲示板/
EOM
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
以下のように記述追加します
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
&guest_list;
&header;
&guest_view;
#################↓追加###################
if($ENV{'HTTP_REFERER'} eq "$count_o"){&eventcount;&countmes;}
#################↑追加###################
print <<"EOM";
$knameさん用ステータス画面
$eventcount回目のログイン
登録者一覧/ \能\力別ランキングへ / 各職業に必要な特性値 / $bbs_title / $sbbs_title / FFA改造情報交換掲示板/
EOM
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
以上で初参加時にメッセージが自動送信されます
★追加機能＃
お好みのカウント時にメッセージを送ることができるようにしています
デフォルトでは初参加時に「ようこそ」と送るようになってます
ライブラリファイルの下の方に説明が書いてあるので
やってみて下さい、ＩＦ文を書式どうりに追加するだけです
★分かっている問題点#
現在分かっている問題として、ログインしたとき
(一回戦ったりとか、別のＣＧＩ等に飛ぶと問題ありません)
ブラウザのリロードを押すとカウント数が増えてしまうことです
★その他
他の使い方として、countmesサブルーチン内のＩＦ文をいろいろいじって($eventcount以外のフラグにしたりする)
レベルアップ時や特定の戦闘後等にフラグがわたるようサブルーチンを呼び出せば
【イベント＞「レベルが上がったようだね・・まぁがんばれ」(2001/00/00) 】
のようにゲームのイベントメッセージを実現できます
まぁよく分からない人は考えまくるか聞いてみて下さい
----------------------☆最後に☆--------------------------------------------
質問や意見、要望等、かなり(笑)お待ちしています！！
皆さんの意見を取り入れて作っていけたらと思います
★参考資料★
FFadventure(改)スクリプトソース (やっぱ元のシステムが分かんないとですね〜)
CGI&Perlポケットリファレンス[技術評論社] (コレがないとワカランです・・(苦笑))
メールや掲示板からのユーザーさんの意見 (アイデア貧乏なボクにとっては嬉しい限り♪)
立ち読みで得た知識(^^;)・・・
★環境★
Win98SE (Vine Linuxを使おうとして挫折、リベンジ予定(笑))
ActivePerl [Windows用Perlインタプリタ] [http://www.activestate.com/]
httpd [Windows用httpサーバー] [http://www.st.rim.or.jp/~nakata/]
xyzzy [テキストエディタ] [http://www.jsdlab.co.jp/~kei/download/index.html]
IE5.5、NN4.7、NN6で確認
◇配布サイト◇
http://www.yamabuki.sakura.ne.jp/~darkrose/cgi/potya/
再配布：【RCIF.NET】
星を守りし者
http://www.rcif.net/
ぽちゃさんのサイトで絶対に質問しないようにお願いいたします
質問がある場合は下記掲示板へ
質問掲示板：http://bbs.rcif.net/?id=q_a