sanjeok77
302 lines
11 KiB
Perl
302 lines
11 KiB
Perl
$ver = 'v02-04-16'; # バージョン情報(変更不可)
|
||
#-----------------------------------------------------------#
|
||
# 罪と罰++ 二律背反 #
|
||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||
# BLANK BOARD [ http://pom.to/ ] #
|
||
#-----------------------------------------------------------#
|
||
# 環境設定 Version 1.1
|
||
#--- [注意事項] --------------------------------------------#
|
||
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||
#-----------------------------------------------------------#
|
||
|
||
$er = 0; # メンテナンス表示(0:通常 1:メンテ)
|
||
$ertm = '30'; # メンテ予測時間(分)
|
||
$erni = 'メンテナンス'; # メンテ理由
|
||
|
||
$admin_pass = "admin"; # 管理者パスワード(変更しないと危険です)
|
||
|
||
#===============================================================================
|
||
# 初期設定
|
||
|
||
require './jcode.pl'; # jcode.plのパス
|
||
|
||
require './inc/ore_sub-system.cgi'; # 共通ライブラリのパス
|
||
|
||
$cdatfile = "./logdata/cdata.cgi"; # 国データ
|
||
|
||
$histfile = "./logdata/hist_log.cgi"; # 国バックアップ(過去の栄光ログ)
|
||
|
||
$usrdata = "./usrdata/"; # キャラデータ格納ディレクトリ。
|
||
|
||
$chmod = 0666; # キャラデータ作成時のパーミッション。
|
||
|
||
$lockdir = "./lock/"; # ロックファイルを入れるディレクトリ
|
||
$lockfile = "lock"; # ロックファイル名
|
||
|
||
$script = "./ore_.cgi"; # 本スクリプト名
|
||
|
||
$ore_reg = "./ore_reg.cgi"; # 新規登録
|
||
|
||
# 管理者機能 アクセス方法は
|
||
# http://あなたのURL/ore_plus/ore_admin.cgi?administrator=管理者パスワード
|
||
$ore_admin = "./ore_admin.cgi";
|
||
|
||
$park = "./park.cgi"; # 国際交流広場
|
||
|
||
$public = "./public.cgi"; # 公式条約
|
||
|
||
$campbbs = "./campbbs.cgi"; # 各国国際会議
|
||
|
||
$hist = "./hist.cgi"; # 過去の栄光
|
||
|
||
$imgs = "./imgs"; # 画像格納ディレクトリ
|
||
|
||
$css = "./html/ore_.css"; # 外部スタルシート
|
||
|
||
$titleh = '罪と罰++ 二律背反'; # <title>タグ
|
||
$title = '<img src="./imgs/title_game.png" width="220" height="52">'; # 表示タイトル
|
||
$title_i = '<div align="center">罪 と 罰 ++</div><div align="right">二律背反 </div>'; # 表示タイトル(ﾓﾊﾞｲﾙ)
|
||
|
||
$body = 'bgcolor="#000000" text="#dddddd" link="#9999dd" alink="#9999dd" vlink="#9999dd"'; # body装飾
|
||
|
||
$home = "http://pom.to/"; # 戻り先
|
||
$home_i = "http://pom.to/"; # 戻り先(ﾓﾊﾞｲﾙ)
|
||
|
||
$index = "./index.cgi"; # トップページ
|
||
|
||
# 自由項目
|
||
$kakiko=<<EOM;
|
||
<a href="http://www24.big.or.jp/~obo/game/ore_/gild/" target="_blank">[罪と罰++配布所]</a>
|
||
<a href="http://pom.to" target="_blank">ねっと遊園地♪</a>
|
||
<a href="http://www2s.biglobe.ne.jp/~aries/Mercury/ring1/ering.cgi?mode=all" target="_blank">[罪と罰++設置所]</a>
|
||
<br><br>
|
||
共有・共同サイト(<span style="color:#ff99cc">募集中♪</span>) /
|
||
<a href="" target="_blank"></a>/
|
||
<a href="" target="_blank"></a>/
|
||
<a href="" target="_blank"></a>/
|
||
<a href="" target="_blank"></a>/
|
||
<a href="" target="_blank"></a>
|
||
EOM
|
||
|
||
# ホスト名取得モード
|
||
# --> 0 : $ENV{'REMOTE_HOST'} で取得できる場合
|
||
# --> 1 : gethostbyaddr で取得できる場合
|
||
$get_remotehost = 1;
|
||
|
||
$gzip = ''; # 圧縮転送 gzipのパスを入力 無効の場合は無記入(転送量対策)
|
||
|
||
$play_limit = 15; # 同時ログイン可能数 これを超える人数がプレイ中はログイン不可(負荷対策)
|
||
|
||
@act_limit = ([22,0],[23,0],[0,0]); # [時間帯,行動間隔(秒)] 行動間隔をこの秒数以上空けないと無効にする(負荷対策)
|
||
|
||
@safetime = (-1); # プレイ規制時間 時間の間は[ , ]で区切ること。無効は-1を記入(負荷対策)
|
||
|
||
$no_mouse = 1; # マウス自動操作チート防止（yes=1 or no=0)(負荷対策)
|
||
|
||
$no_js = 1; # Javascript自動操作チート・frame取り込み防止（yes=1 or no=0)(負荷対策)
|
||
|
||
$act_cnt_limit = 250; # 修業の累計がこの数値に達すると強制的に内政or休憩させる(負荷対策)
|
||
|
||
$lock_check = 1; #lock処理を行なう（yes=1 or no=0)
|
||
|
||
$backdata = "./backup/"; # 定期バックアップディレクトリ(定期バックアップを行わない場合は無記入)
|
||
|
||
$sanka = 200; # 全参加人数 共用サーバでは安全のため300程度が限度
|
||
|
||
$del_limit = 10; # キャラ削除放置時間 これを超えるとキャラを削除します
|
||
|
||
$player_now = 60*5; # 何秒以内にログインした人をプレイ中の参加者にするか
|
||
|
||
# 各国の人数制限
|
||
# --> 0 : 手動割り当てモード(管理者モードで直接指定)
|
||
# --> 1 : 自動算出モード(参加人数/(国数+無所属)) 統一後の優劣機能搭載
|
||
$limit_mode = 1;
|
||
|
||
$clv = 2; # 仕官できるレベル
|
||
|
||
$kisei = 0; # 新規登録規制(0:なし 1:あり)
|
||
|
||
# デバックモード
|
||
# なし:PC･ﾓﾊﾞｲﾙ両対応
|
||
# pc :PC限定モード(ﾓﾊﾞｲﾙ非対応)
|
||
# mv :ﾓﾊﾞｲﾙ固定モード(PC上でモバイル画面をエミュレート表示)
|
||
$mv_mode = '';
|
||
|
||
# 機種別設定
|
||
if( $ENV{'HTTP_USER_AGENT'} =~/DoCoMo/ ||
|
||
$ENV{'HTTP_USER_AGENT'} =~/UP\.Browser/ ||
|
||
$ENV{'HTTP_USER_AGENT'} =~/J-PHONE/ ||
|
||
$ENV{'HTTP_USER_AGENT'} =~/ASTEL/ ||
|
||
$ENV{'HTTP_X_JPHONE_MSNAME'} || $mv_mode eq 'mv'){
|
||
# -- ﾓﾊﾞｲﾙ用設定 --
|
||
$mv_mode = 'mv'; # ﾓﾊﾞｲﾙ識別子 変更不可
|
||
require './inc/ore_sub-base_mv.cgi';# ﾓﾊﾞｲﾙ用ベースルーチン
|
||
|
||
$method = "GET"; # フォームメソッド
|
||
$bt_count = 15; # 修行時キャラ最大数
|
||
|
||
# ﾓﾊﾞｲﾙ用パケット軽量モード 0X か XX を選択
|
||
# ・プレイヤー情報>> 00:待機中だけ表示 無し:常に表示
|
||
# ・各種BBSリンク >> 01:待機中だけ表示 11:常に表示 無し:常に非表示
|
||
# ・最新情報 >> 02:待機中だけ表示 22:常に表示 無し:常に非表示
|
||
# ・各国ステータス>> 03:待機中だけ表示 33:常に表示 無し:常に非表示
|
||
# ・ゲームバランス>> 04:待機中だけ表示 44:常に表示 無し:常に非表示
|
||
# ・プレイ中参加者>> 05:待機中だけ表示 55:常に表示 無し:常に非表示
|
||
# ・一言伝言 >> 06:待機中だけ表示 66:常に表示 無し:常に非表示
|
||
$lt_mode = "00,01,02,03"; # 項目間は[ , ]で区切る
|
||
|
||
}else{
|
||
# -- PC用設定 --
|
||
$mv_mode = 'pc'; # PC識別子 変更不可
|
||
require './inc/ore_sub-base_pc.cgi';# PC用サブルーチン
|
||
$td_end = "</td>"; # レイアウト補正 変更不可
|
||
$button1 = 'class="button1"'; # レイアウト補正 変更不可
|
||
|
||
$method = "POST"; # フォームメソッド
|
||
$bt_count = 90; # 修行時キャラ最大数
|
||
}
|
||
|
||
# アクセス制限(ホスト名もしくはIPアドレスを記述)
|
||
@deny = (
|
||
"anonymizer.com",
|
||
"cache*.*.interlog.com",
|
||
"",
|
||
""
|
||
);
|
||
|
||
#===============================================================================
|
||
#以下設定変えないほうがいいかもよ
|
||
|
||
# ゲーム内拘束時間 3600 が一時間 変更は一時間単位で。
|
||
$GMT = int(3600*1); #int(3600*2)
|
||
$GMW = int($GMT/3600); #int($GMT/3600)
|
||
|
||
# この秒数ごとにHP,MPが1ポイント回復する
|
||
$hrg_time= 60;
|
||
|
||
# 統一難易度 ↑難しい：↓簡単 (ビミョウなので変更しないのが無難。)
|
||
$reset_point = 0.45; #変更は0.01～0.1刻みで。
|
||
|
||
# 統一期限 この日数以内に統一しないとリセットされる
|
||
$reset_time_limit= 20;
|
||
|
||
# 統一・リセット後の国データ(0:旧式[固定] 1:ランダム[多様性高])
|
||
$reset_cdat = 1;
|
||
|
||
# 何をしても行動中・・・あと??分と表示される場合の回避オプション[通常は0のまま]
|
||
# ??分の秒数換算を記入 EX 2分 >> 120
|
||
$spend_time = 0;
|
||
|
||
@cmp = ('無所属','ｱﾙﾒﾘｱ王国','ﾌﾗﾘﾝ教国','ｲｷﾞｽ連合国','ｿｰﾃﾞｨﾅ帝国','ﾔﾏﾄ神国'); # 陣営 国の追加は不可能です。改造すれば別ですが。
|
||
|
||
@color = ('#EEEEEE','#EE9999','#00EEEE','#88EE88','#FFCCFF','#55BBFF'); # 各陣営の色。無所属は関係なし
|
||
|
||
@cl = ('傭兵','農兵','従卒','足軽','槍兵士','足軽大将','騎士見習','騎士','上級騎士','騎士隊長','大隊長','大将','上級大将','将軍','元帥'); # 階級 名称は変更可能
|
||
|
||
@g_p = (0,1000,2000,3000,4000,5000,6000,7000,8000,10000,12000,14000,16000,18000,20000); # 階級兵士数上限他 変更可能ですがシステムを理解せずにいじるとゲームが崩壊します。
|
||
|
||
@sogo_p =('----','覇者','英雄','借金王','鬼畜',' ',' ',' ',' ',' ','管理人'); #称号
|
||
|
||
@seibetu =('--','男','女');
|
||
|
||
sub settei {
|
||
# 所属別必殺技 - 名称は変更可能 -
|
||
|
||
if($camp==0){
|
||
@spell = ('ﾏｼﾞﾝ剣','全回復');
|
||
@sp_mp = (3,9);
|
||
}elsif($camp==1){
|
||
@spell = ('疾風剣','生命功','奏撃功','炎蒼旋','鋼気','絶心功','鳳凰転生','魂砕き');
|
||
@sp_mp = (6,9,12,15,18,21,60,90);
|
||
}elsif($camp==2){
|
||
@spell = ('ﾊﾞｰﾃｨｶﾙｿｰﾄﾞ','ｱﾀｯｸ','ﾋｰﾙ','ｾｲﾝﾄｸﾛｽ','ｱﾝｸﾚｱﾌﾞﾚｲｸ','ﾊｲﾋｰﾙ','夢を継ぐ者','龍破斬');
|
||
@sp_mp = (6,12,9,18,30,21,45,90);
|
||
}elsif($camp==3){
|
||
@spell = ('ｿｰﾄﾞｽﾗｯｼｭ','ｱﾀｯｸ','ｿｰﾄﾞﾀﾞﾝｽ','ｼｰﾙﾄﾞ','ｱｰﾏｰﾌﾞﾚｲｸ','ﾊｲﾋｰﾙ','ｵｰｶﾞｿｰﾄﾞ','ｱﾙﾃｨﾒｯﾄｱﾀｯｸ');
|
||
@sp_mp = (6,12,12,18,25,21,40,99);
|
||
}elsif($camp==4){
|
||
@spell = ('暗黒剣','ﾃﾞｯﾄﾞｸﾗｳﾝ','ﾅｲﾄﾒｱ','黒炎','ﾊｲﾋｰﾙ','ｱﾀｯｸ','ｼｰﾙﾄﾞ','地獄門');
|
||
@sp_mp = (9,12,10,15,21,12,18,70);
|
||
}elsif($camp==5){
|
||
@spell = ('壱式','壱式・断','弐式','弐式・裂','参式','参式・波','零式','零式・絶');
|
||
@sp_mp = (10,10,20,20,30,30,60,80);
|
||
}
|
||
|
||
# 階級技 - 名称は変更可能 -
|
||
@kspell = ('ﾌｧｲｱｰ','ｱｲｽｽﾄｰﾑ','ﾀﾞｲﾔｷｭｰﾄ','ﾌﾞﾚｲﾝﾀﾞﾑﾄﾞ');
|
||
@ksp_mp = (5,25,50,100);
|
||
|
||
# 武具 追加簡単 [番号,武具名,値段,回数,攻撃力,説明] 1～10までが隠し武器 11～がお店の商品
|
||
# int(rand(xxx)) で 0～xxx のランダム値。EX. int(rand(20)+50) >> 0～20 + 50 が攻撃力
|
||
@dg_data =(
|
||
[0,'----', 0, 0, 0, 0],
|
||
[1,'ﾊｸﾞﾚﾒﾀﾙの剣', 100000, 100, int(rand(100)), 0],
|
||
[2,'ｴｸｽｶﾘﾊﾞｰ', 150000, 250, 60, 0],
|
||
[3,'ﾛﾝｷﾞﾇｽの槍', 100000, 100, 60, 0],
|
||
[4,'ｸｻﾅｷﾞの剣', 90000, 300, 50, 0],
|
||
[5,'',,,,],
|
||
[6,'',,,,],
|
||
[7,'',,,,],
|
||
[8,'',,,,],
|
||
[9,'',,,,],
|
||
[10,'',,,,],
|
||
[11,'ｸﾘｽﾀﾙｿｰﾄﾞ', 75000, 200, 35, 'ｸﾘｽﾀﾙから精製した剣'],
|
||
[12,'ﾑﾗﾏｻ', 50000, 75, 35, '古来より伝わる妖刀。強いが脆い'],
|
||
[13,'ﾅｲﾄｵﾌﾞｼｬﾄﾞｳ', 34000, 300, 25, '漆黒の剣。非常に頑丈'],
|
||
[14,'ﾏｼﾞﾝの斧', 20000, 100, 20, 'ﾊﾝﾄﾞｱｯｸｽ。刃毀れしやすい'],
|
||
[15,'ﾓｰﾆﾝｸﾞｽﾀｰ', 12000, 200, 15, '針つき鉄球'],
|
||
[16,'ﾛﾝｸﾞｽﾋﾟｱ', 6000, 100, 10, '鉄製の長槍'],
|
||
[17,'ﾌﾞﾛﾝｽﾞｿｰﾄﾞ', 3000, 150, 5, 'ﾌﾞﾛﾝｽﾞ製の剣']
|
||
);
|
||
|
||
# 防具 追加簡単 [番号,防具名,値段,回数,防御力,説明] 1～10までが隠し防具 11～がお店の商品
|
||
# int(rand(xxx)) で 0～xxx のランダム値。EX. int(rand(20)+50) >> 0～20 + 50 が防御力
|
||
@df_data =(
|
||
[0,'----', 0, 0, 0, 0],
|
||
[1,'水の羽衣', 100000, 150, int(rand(60)), 0],
|
||
[2,'光の鎧', 120000, 300, 40, 0],
|
||
[3,'刃の鎧', 900000, 150, 35, 0],
|
||
[4,'大地の鎧', 70000, 350, 30, 0],
|
||
[5,'',,,,],
|
||
[6,'',,,,],
|
||
[7,'',,,,],
|
||
[8,'',,,,],
|
||
[9,'',,,,],
|
||
[10,'',,,,],
|
||
[11,'ﾄﾞﾗｺﾞﾝｱｰﾏｰ', 50000, 250, 25, 'ﾄﾞﾗｺﾞﾝの角を加工した鎧'],
|
||
[12,'ﾐｽﾘﾙｱｰﾏｰ', 34000, 150, 20, 'ﾐｽﾘﾙ製の鎧'],
|
||
[13,'鋼の鎧', 20000, 300, 15, '鋼製の鎧。頑丈で壊れにくい'],
|
||
[15,'見交わしの服', 14000, 150, int(rand(30)), '軽く とても動きやすい服'],
|
||
[14,'鉄の鎧', 8000, 250, 10, '鉄製の鎧'],
|
||
[16,'鎖がたぴら', 4000, 150, 5, '鉄鎖が編みこまれた服'],
|
||
[17,'皮の鎧', 1500, 200, 2, '鞣革を鍛えた鎧 無いよりはﾏｼ･･']
|
||
);
|
||
|
||
# 道具 追加難しい [番号,道具名,値段,回数,説明] 1～10までが隠し道具 11～がお店の商品
|
||
@di_data =(
|
||
[0,'----', 0, 0, 0],
|
||
[1,'賢者の石', 80000, 250, 0],
|
||
[2,'ｾｶｲｼﾞｭの葉', 64000, 1, 0],
|
||
[3,'命の木の実', 64000, 1, 0],
|
||
[4,'魔物の尻尾', 64000, 1, 0],
|
||
[5,'',,,,],
|
||
[6,'',,,,],
|
||
[7,'',,,,],
|
||
[8,'',,,,],
|
||
[9,'',,,,],
|
||
[10,'',,,,],
|
||
[11,'皇帝液', 42000, 1, '体力&精神がある程度回復'],
|
||
[12,'精霊水', 24000, 1, '精神がある程度回復'],
|
||
[13,'和み液', 8000, 1, '精神が多少回復'],
|
||
[14,'癒し水', 15000, 1, '体力がある程度回復'],
|
||
[15,'薬草', 5000, 1, '体力が多少回復'],
|
||
);
|
||
}
|
||
|
||
|
||
|
||
|
||
|
||
1;#削除不可 |