mitsudori
de60df87e0
new file: hako-main.cgi new file: hako-map.cgi new file: hako-mente.cgi new file: hako-readme.txt new file: hako-top.cgi new file: hako-turn.cgi new file: images/black.gif new file: images/f02.gif new file: images/hakoniwa.gif new file: images/land0.gif new file: images/land1.gif new file: images/land10.gif new file: images/land11.gif new file: images/land12.gif new file: images/land13.gif new file: images/land14.gif new file: images/land15.gif new file: images/land16.gif new file: images/land2.gif new file: images/land3.gif new file: images/land4.gif new file: images/land5.gif new file: images/land6.gif new file: images/land7.gif new file: images/land8.gif new file: images/land9.gif new file: images/monster0.gif new file: images/monster1.gif new file: images/monster2.gif new file: images/monster3.gif new file: images/monster4.gif new file: images/monster5.gif new file: images/monster6.gif new file: images/monster7.gif new file: images/monster8.gif new file: images/monument0.gif new file: images/monument1.gif new file: images/monument2.gif new file: images/prize0.gif new file: images/prize1.gif new file: images/prize10.gif new file: images/prize11.gif new file: images/prize2.gif new file: images/prize3.gif new file: images/prize4.gif new file: images/prize5.gif new file: images/prize6.gif new file: images/prize7.gif new file: images/prize8.gif new file: images/prize9.gif new file: images/space.gif new file: images/space0.gif new file: images/space1.gif new file: images/space10.gif new file: images/space11.gif new file: images/space2.gif new file: images/space3.gif new file: images/space4.gif new file: images/space5.gif new file: images/space6.gif new file: images/space7.gif new file: images/space8.gif new file: images/space9.gif new file: images/spacep.gif new file: images/xbar.gif new file: jcode.pl new file: manual/advanced.html new file: manual/beginner.html new file: manual/intermediate.html new file: manual/man-discovered.png new file: manual/man-goto.png new file: manual/man-listed.png new file: manual/man-name.png new file: manual/man-new.png new file: manual/man-owner.png new file: manual/man-ownerm.png new file: manual/man-register.png new file: manual/man-tourist.png
1614 lines
40 KiB
Perl
1614 lines
40 KiB
Perl
#!/usr/bin/perl
|
|
# ↑はサーバーに合わせて変更して下さい。
|
|
# perl5用です。
|
|
|
|
#----------------------------------------------------------------------
|
|
# 箱庭諸島 ver2.30
|
|
# メインスクリプト(ver1.02)
|
|
# 使用条件、使用方法等は、hako-readme.txtファイルを参照
|
|
#
|
|
# 箱庭諸島のページ: http://www.bekkoame.ne.jp/~tokuoka/hakoniwa.html
|
|
#----------------------------------------------------------------------
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
# 各種設定値
|
|
# (これ以降の部分の各設定値を、適切な値に変更してください)
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
# 以下、必ず設定する部分
|
|
#----------------------------------------------------------------------
|
|
|
|
# このファイルを置くディレクトリ
|
|
# my($baseDir) = 'http://サーバー/ディレクトリ';
|
|
#
|
|
# 例)
|
|
# http://cgi2.bekkoame.ne.jp/cgi-bin/user/u5534/hakoniwa/hako-main.cgi
|
|
# として置く場合、
|
|
# my($baseDir) = 'http://cgi2.bekkoame.ne.jp/cgi-bin/user/u5534/hakoniwa';
|
|
# とする。最後にスラッシュ(/)は付けない。
|
|
|
|
my($baseDir) = '';
|
|
|
|
# 画像ファイルを置くディレクトリ
|
|
# my($imageDir) = 'http://サーバー/ディレクトリ';
|
|
my($imageDir) = '';
|
|
|
|
# jcode.plの位置
|
|
|
|
# my($jcode) = '/usr/libperl/jcode.pl'; # ベッコアメの場合
|
|
# my($jcode) = './jcode.pl'; # 同じディレクトリに置く場合
|
|
## my($jcode) = './jcode.pl'; ## mod
|
|
|
|
# マスターパスワード
|
|
# このパスワードは、すべての島のパスワードを代用できます。
|
|
# 例えば、「他の島のパスワード変更」等もできます。
|
|
my($masterPassword) = '';
|
|
|
|
# 特殊パスワード
|
|
# このパスワードで「名前変更」を行うと、その島の資金、食料が最大値になります。
|
|
# (実際に名前を変える必要はありません。)
|
|
$HspecialPassword = '';
|
|
|
|
# 管理者名
|
|
my($adminName) = '';
|
|
|
|
# 管理者のメールアドレス
|
|
my($email) = '';
|
|
|
|
# 掲示板アドレス
|
|
my($bbs) = '';
|
|
|
|
# ホームページのアドレス
|
|
my($toppage) = '';
|
|
|
|
# ディレクトリのパーミッション
|
|
# 通常は0755でよいが、0777、0705、0704等でないとできないサーバーもあるらしい
|
|
$HdirMode = 0755;
|
|
|
|
# データディレクトリの名前
|
|
# ここで設定した名前のディレクトリ以下にデータが格納されます。
|
|
# デフォルトでは'data'となっていますが、セキュリティのため
|
|
# なるべく違う名前に変更してください。
|
|
$HdirName = 'data';
|
|
|
|
# データの書き込み方
|
|
|
|
# ロックの方式
|
|
# 1 ディレクトリ
|
|
# 2 システムコール(可能ならば最も望ましい)
|
|
# 3 シンボリックリンク
|
|
# 4 通常ファイル(あまりお勧めでない)
|
|
my($lockMode) = 2;
|
|
|
|
# (注)
|
|
# 4を選択する場合には、'key-free'という、パーミション666の空のファイルを、
|
|
# このファイルと同位置に置いて下さい。
|
|
|
|
#----------------------------------------------------------------------
|
|
# 必ず設定する部分は以上
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
# 以下、好みによって設定する部分
|
|
#----------------------------------------------------------------------
|
|
#----------------------------------------
|
|
# ゲームの進行やファイルなど
|
|
#----------------------------------------
|
|
# 1ターンが何秒か
|
|
$HunitTime = 21600; # 6時間
|
|
|
|
# 異常終了基準時間
|
|
# (ロック後何秒で、強制解除するか)
|
|
my($unlockTime) = 120;
|
|
|
|
# 島の最大数
|
|
$HmaxIsland = 30;
|
|
|
|
# トップページに表示するログのターン数
|
|
$HtopLogTurn = 1;
|
|
|
|
# ログファイル保持ターン数
|
|
$HlogMax = 8;
|
|
|
|
# バックアップを何ターンおきに取るか
|
|
## $HbackupTurn = 12;
|
|
$HbackupTurn = 4; ## mod
|
|
|
|
# バックアップを何回分残すか
|
|
## $HbackupTimes = 4;
|
|
$HbackupTimes = 12; ## mod
|
|
|
|
# 発見ログ保持行数
|
|
$HhistoryMax = 10;
|
|
|
|
# 放棄コマンド自動入力ターン数
|
|
## $HgiveupTurn = 28;
|
|
$HgiveupTurn = 120; ## mod
|
|
|
|
# コマンド入力限界数
|
|
# (ゲームが始まってから変更すると、データファイルの互換性が無くなります。)
|
|
$HcommandMax = 20;
|
|
|
|
# ローカル掲示板行数を使用するかどうか(0:使用しない、1:使用する)
|
|
$HuseLbbs = 1;
|
|
|
|
# ローカル掲示板行数
|
|
$HlbbsMax = 10;
|
|
|
|
# 島の大きさ
|
|
# (変更できないかも)
|
|
$HislandSize = 12;
|
|
|
|
# 他人から資金を見えなくするか
|
|
# 0 見えない
|
|
# 1 見える
|
|
# 2 100の位で四捨五入
|
|
$HhideMoneyMode = 2;
|
|
|
|
# パスワードの暗号化(0だと暗号化しない、1だと暗号化する)
|
|
my($cryptOn) = 1;
|
|
|
|
# デバッグモード(1だと、「ターンを進める」ボタンが使用できる)
|
|
$Hdebug = 0;
|
|
|
|
#----------------------------------------
|
|
# 資金、食料などの設定値と単位
|
|
#----------------------------------------
|
|
# 初期資金
|
|
$HinitialMoney = 100;
|
|
|
|
# 初期食料
|
|
$HinitialFood = 100;
|
|
|
|
# お金の単位
|
|
$HunitMoney = 'M$';
|
|
|
|
# 食料の単位
|
|
$HunitFood = '00 t';
|
|
|
|
# 人口の単位
|
|
$HunitPop = '00 ppl.';
|
|
|
|
# 広さの単位
|
|
## $HunitArea = 'M tsubo';
|
|
$HunitArea = '00 sq mi'; ## mod
|
|
|
|
# 木の数の単位
|
|
$HunitTree = '00 trees';
|
|
|
|
# 木の単位当たりの売値
|
|
$HtreeValue = 5;
|
|
|
|
# 名前変更のコスト
|
|
$HcostChangeName = 500;
|
|
|
|
# 人口1単位あたりの食料消費料
|
|
$HeatenFood = 0.2;
|
|
|
|
#----------------------------------------
|
|
# 基地の経験値
|
|
#----------------------------------------
|
|
# 経験値の最大値
|
|
$HmaxExpPoint = 200; # ただし、最大でも255まで
|
|
|
|
# レベルの最大値
|
|
my($maxBaseLevel) = 5; # ミサイル基地
|
|
my($maxSBaseLevel) = 3; # 海底基地
|
|
|
|
# 経験値がいくつでレベルアップか
|
|
my(@baseLevelUp, @sBaseLevelUp);
|
|
@baseLevelUp = (20, 60, 120, 200); # ミサイル基地
|
|
@sBaseLevelUp = (50, 200); # 海底基地
|
|
|
|
#----------------------------------------
|
|
# 防衛施設の自爆
|
|
#----------------------------------------
|
|
# 怪獣に踏まれた時自爆するなら1、しないなら0
|
|
$HdBaseAuto = 1;
|
|
|
|
#----------------------------------------
|
|
# 災害
|
|
#----------------------------------------
|
|
# 通常災害発生率(確率は0.1%単位)
|
|
$HdisEarthquake = 5; # 地震
|
|
$HdisTsunami = 15; # 津波
|
|
$HdisTyphoon = 20; # 台風
|
|
$HdisMeteo = 15; # 隕石
|
|
$HdisHugeMeteo = 5; # 巨大隕石
|
|
$HdisEruption = 10; # 噴火
|
|
$HdisFire = 10; # 火災
|
|
$HdisMaizo = 10; # 埋蔵金
|
|
|
|
# 地盤沈下
|
|
$HdisFallBorder = 90; # 安全限界の広さ(Hex数)
|
|
$HdisFalldown = 30; # その広さを超えた場合の確率
|
|
|
|
# 怪獣
|
|
$HdisMonsBorder1 = 1000; # 人口基準1(怪獣レベル1)
|
|
$HdisMonsBorder2 = 2500; # 人口基準2(怪獣レベル2)
|
|
$HdisMonsBorder3 = 4000; # 人口基準3(怪獣レベル3)
|
|
$HdisMonster = 3; # 単位面積あたりの出現率(0.01%単位)
|
|
|
|
# 種類
|
|
$HmonsterNumber = 8;
|
|
|
|
# 各基準において出てくる怪獣の番号の最大値
|
|
$HmonsterLevel1 = 2; # サンジラまで
|
|
$HmonsterLevel2 = 5; # いのらゴーストまで
|
|
$HmonsterLevel3 = 7; # キングいのらまで(全部)
|
|
|
|
# 名前
|
|
@HmonsterName =
|
|
(
|
|
'Mecha Inora', # 0(人造)
|
|
'Inora', # 1
|
|
'Sanjira', # 2
|
|
'Red Inora', # 3
|
|
'Dark Inora', # 4
|
|
'Inora Ghost', # 5
|
|
'Kujira', # 6
|
|
'King Inora' # 7
|
|
);
|
|
|
|
# 最低体力、体力の幅、特殊能力、経験値、死体の値段
|
|
@HmonsterBHP = ( 2, 1, 1, 3, 2, 1, 4, 5);
|
|
@HmonsterDHP = ( 0, 2, 2, 2, 2, 0, 2, 2);
|
|
@HmonsterSpecial = ( 0, 0, 3, 0, 1, 2, 4, 0);
|
|
@HmonsterExp = ( 5, 5, 7,12,15,10,20,30);
|
|
@HmonsterValue = ( 0, 400, 500, 1000, 800, 300, 1500, 2000);
|
|
|
|
# 特殊能力の内容は、
|
|
# 0 特になし
|
|
# 1 足が速い(最大2歩あるく)
|
|
# 2 足がとても速い(最大何歩あるくか不明)
|
|
# 3 奇数ターンは硬化
|
|
# 4 偶数ターンは硬化
|
|
|
|
# 画像ファイル
|
|
@HmonsterImage =
|
|
(
|
|
'monster7.gif',
|
|
'monster0.gif',
|
|
'monster5.gif',
|
|
'monster1.gif',
|
|
'monster2.gif',
|
|
'monster8.gif',
|
|
'monster6.gif',
|
|
'monster3.gif'
|
|
);
|
|
|
|
# 画像ファイルその2(硬化中)
|
|
@HmonsterImage2 =
|
|
('', '', 'monster4.gif', '', '', '', 'monster4.gif', '');
|
|
|
|
|
|
#----------------------------------------
|
|
# 油田
|
|
#----------------------------------------
|
|
# 油田の収入
|
|
$HoilMoney = 1000;
|
|
|
|
# 油田の枯渇確率
|
|
$HoilRatio = 40;
|
|
|
|
#----------------------------------------
|
|
# 記念碑
|
|
#----------------------------------------
|
|
# 何種類あるか
|
|
$HmonumentNumber = 3;
|
|
|
|
# 名前
|
|
@HmonumentName =
|
|
(
|
|
'Monolith',
|
|
'Peace monument',
|
|
'War monument'
|
|
);
|
|
|
|
# 画像ファイル
|
|
@HmonumentImage =
|
|
(
|
|
'monument0.gif',
|
|
'monument0.gif',
|
|
'monument0.gif'
|
|
);
|
|
|
|
#----------------------------------------
|
|
# 賞関係
|
|
#----------------------------------------
|
|
# ターン杯を何ターン毎に出すか
|
|
$HturnPrizeUnit = 100;
|
|
|
|
# 賞の名前
|
|
$Hprize[0] = '-turn cup';
|
|
$Hprize[1] = 'Prosperity award';
|
|
$Hprize[2] = 'Super prosperity award';
|
|
$Hprize[3] = 'Ultimate prosperity award';
|
|
$Hprize[4] = 'Peace award';
|
|
$Hprize[5] = 'Super peace award';
|
|
$Hprize[6] = 'Ultimate peace award';
|
|
$Hprize[7] = 'Disaster award';
|
|
$Hprize[8] = 'Super disaster award';
|
|
$Hprize[9] = 'Ultimate disaster award';
|
|
|
|
#----------------------------------------
|
|
# 外見関係
|
|
#----------------------------------------
|
|
# <BODY>タグのオプション
|
|
my($htmlBody) = 'BGCOLOR="#EEFFFF"';
|
|
## my($htmlBody) = 'style="background-color: #eeffff"';
|
|
|
|
# ゲームのタイトル文字
|
|
$Htitle = 'Hakoniwa Islands 2';
|
|
|
|
# タグ
|
|
# タイトル文字
|
|
$HtagTitle_ = '<h1 style="color:#8888ff;margin:0;font-size:3em;font-weight:normal">';
|
|
$H_tagTitle = '</h1>';
|
|
|
|
# H1タグ用
|
|
$HtagHeader_ = '<h2 style="color:#4444ff;margin:0.67em 0;font-size:2em">';
|
|
$H_tagHeader = '</h2>';
|
|
|
|
# 大きい文字
|
|
$HtagBig_ = '<span style="font-size:2em">';
|
|
$H_tagBig = '</span>';
|
|
|
|
# 島の名前など
|
|
$HtagName_ = '<span style="color:#a06040;font-weight:bold">';
|
|
$H_tagName = '</span>';
|
|
|
|
# 薄くなった島の名前
|
|
$HtagName2_ = '<span style="color:#808080;font-weight:bold">';
|
|
$H_tagName2 = '</span>';
|
|
|
|
# 順位の番号など
|
|
$HtagNumber_ = '<span style="color:#800000;font-weight:bold">';
|
|
$H_tagNumber = '</span>';
|
|
|
|
# 順位表における見だし
|
|
$HtagTH_ = '<span style="color:#c00000;font-weight:bold">';
|
|
$H_tagTH = '</span>';
|
|
|
|
# 開発計画の名前
|
|
$HtagComName_ = '<span style="color:#d08000;font-weight:bold">';
|
|
$H_tagComName = '</span>';
|
|
|
|
# 災害
|
|
$HtagDisaster_ = '<span style="color:#ff0000;font-weight:bold">';
|
|
$H_tagDisaster = '</span>';
|
|
|
|
# ローカル掲示板、観光者の書いた文字
|
|
$HtagLbbsSS_ = '<span style="color:#0000ff;font-weight:bold">';
|
|
$H_tagLbbsSS = '</span>';
|
|
|
|
# ローカル掲示板、島主の書いた文字
|
|
$HtagLbbsOW_ = '<span style="color:#ff0000;font-weight:bold">';
|
|
$H_tagLbbsOW = '</span>';
|
|
|
|
# 通常の文字色(これだけでなく、BODYタグのオプションもちゃんと変更すべし
|
|
$HnormalColor = '#000000';
|
|
|
|
# 順位表、セルの属性
|
|
$HbgTitleCell = 'BGCOLOR="#ccffcc"'; # 順位表見出し
|
|
$HbgNumberCell = 'BGCOLOR="#ccffcc"'; # 順位表順位
|
|
$HbgNameCell = 'BGCOLOR="#ccffff"'; # 順位表島の名前
|
|
$HbgInfoCell = 'BGCOLOR="#ccffff"'; # 順位表島の情報
|
|
$HbgCommentCell = 'BGCOLOR="#ccffcc"'; # 順位表コメント欄
|
|
$HbgInputCell = 'BGCOLOR="#ccffcc"'; # 開発計画フォーム
|
|
$HbgMapCell = 'BGCOLOR="#ccffcc"'; # 開発計画地図
|
|
$HbgCommandCell = 'BGCOLOR="#ccffcc"'; # 開発計画入力済み計画
|
|
|
|
#----------------------------------------------------------------------
|
|
# 好みによって設定する部分は以上
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
# これ以降のスクリプトは、変更されることを想定していませんが、
|
|
# いじってもかまいません。
|
|
# コマンドの名前、値段などは解りやすいと思います。
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
# 各種定数
|
|
#----------------------------------------------------------------------
|
|
# このファイル
|
|
$HthisFile = "$baseDir/hako-main.cgi";
|
|
|
|
# 地形番号
|
|
$HlandSea = 0; # 海
|
|
$HlandWaste = 1; # 荒地
|
|
$HlandPlains = 2; # 平地
|
|
$HlandTown = 3; # 町系
|
|
$HlandForest = 4; # 森
|
|
$HlandFarm = 5; # 農場
|
|
$HlandFactory = 6; # 工場
|
|
$HlandBase = 7; # ミサイル基地
|
|
$HlandDefence = 8; # 防衛施設
|
|
$HlandMountain = 9; # 山
|
|
$HlandMonster = 10; # 怪獣
|
|
$HlandSbase = 11; # 海底基地
|
|
$HlandOil = 12; # 海底油田
|
|
$HlandMonument = 13; # 記念碑
|
|
$HlandHaribote = 14; # ハリボテ
|
|
|
|
# コマンド
|
|
$HcommandTotal = 28; # コマンドの種類
|
|
|
|
# 計画番号の設定
|
|
# 整地系
|
|
$HcomPrepare = 01; # 整地
|
|
$HcomPrepare2 = 02; # 地ならし
|
|
$HcomReclaim = 03; # 埋め立て
|
|
$HcomDestroy = 04; # 掘削
|
|
$HcomSellTree = 05; # 伐採
|
|
|
|
# 作る系
|
|
$HcomPlant = 11; # 植林
|
|
$HcomFarm = 12; # 農場整備
|
|
$HcomFactory = 13; # 工場建設
|
|
$HcomMountain = 14; # 採掘場整備
|
|
$HcomBase = 15; # ミサイル基地建設
|
|
$HcomDbase = 16; # 防衛施設建設
|
|
$HcomSbase = 17; # 海底基地建設
|
|
$HcomMonument = 18; # 記念碑建造
|
|
$HcomHaribote = 19; # ハリボテ設置
|
|
|
|
# 発射系
|
|
$HcomMissileNM = 31; # ミサイル発射
|
|
$HcomMissilePP = 32; # PPミサイル発射
|
|
$HcomMissileST = 33; # STミサイル発射
|
|
$HcomMissileLD = 34; # 陸地破壊弾発射
|
|
$HcomSendMonster = 35; # 怪獣派遣
|
|
|
|
# 運営系
|
|
$HcomDoNothing = 41; # Cash flow
|
|
$HcomSell = 42; # 食料輸出
|
|
$HcomMoney = 43; # 資金援助
|
|
$HcomFood = 44; # 食料援助
|
|
$HcomPropaganda = 45; # 誘致活動
|
|
$HcomGiveup = 46; # 島の放棄
|
|
|
|
# 自動入力系
|
|
$HcomAutoPrepare = 61; # フル整地
|
|
$HcomAutoPrepare2 = 62; # フル地ならし
|
|
$HcomAutoDelete = 63; # 全コマンド消去
|
|
|
|
# 順番
|
|
@HcomList =
|
|
($HcomPrepare, $HcomSell, $HcomPrepare2, $HcomReclaim, $HcomDestroy,
|
|
$HcomSellTree, $HcomPlant, $HcomFarm, $HcomFactory, $HcomMountain,
|
|
$HcomBase, $HcomDbase, $HcomSbase, $HcomMonument, $HcomHaribote,
|
|
$HcomMissileNM, $HcomMissilePP,
|
|
$HcomMissileST, $HcomMissileLD, $HcomSendMonster, $HcomDoNothing,
|
|
$HcomMoney, $HcomFood, $HcomPropaganda, $HcomGiveup,
|
|
$HcomAutoPrepare, $HcomAutoPrepare2, $HcomAutoDelete);
|
|
|
|
# 計画の名前と値段
|
|
$HcomName[$HcomPrepare] = 'Ground leveling';
|
|
$HcomCost[$HcomPrepare] = 5;
|
|
$HcomName[$HcomPrepare2] = 'Quick ground leveling';
|
|
$HcomCost[$HcomPrepare2] = 100;
|
|
$HcomName[$HcomReclaim] = 'Landfill';
|
|
$HcomCost[$HcomReclaim] = 150;
|
|
$HcomName[$HcomDestroy] = 'Excavation';
|
|
$HcomCost[$HcomDestroy] = 200;
|
|
$HcomName[$HcomSellTree] = 'Deforestation';
|
|
$HcomCost[$HcomSellTree] = 0;
|
|
$HcomName[$HcomPlant] = 'Afforestation';
|
|
$HcomCost[$HcomPlant] = 50;
|
|
$HcomName[$HcomFarm] = 'Farm development';
|
|
$HcomCost[$HcomFarm] = 20;
|
|
$HcomName[$HcomFactory] = 'Factory construction';
|
|
$HcomCost[$HcomFactory] = 100;
|
|
$HcomName[$HcomMountain] = 'Mine development';
|
|
$HcomCost[$HcomMountain] = 300;
|
|
$HcomName[$HcomBase] = 'Missile base construction';
|
|
$HcomCost[$HcomBase] = 300;
|
|
$HcomName[$HcomDbase] = 'Defense facility construction';
|
|
$HcomCost[$HcomDbase] = 800;
|
|
$HcomName[$HcomSbase] = 'Undersea base construction';
|
|
$HcomCost[$HcomSbase] = 8000;
|
|
$HcomName[$HcomMonument] = 'Monument construction';
|
|
$HcomCost[$HcomMonument] = 9999;
|
|
$HcomName[$HcomHaribote] = 'Facade installation';
|
|
$HcomCost[$HcomHaribote] = 1;
|
|
$HcomName[$HcomMissileNM] = 'Missile launch';
|
|
$HcomCost[$HcomMissileNM] = 20;
|
|
$HcomName[$HcomMissilePP] = 'Pinpoint missile launch';
|
|
$HcomCost[$HcomMissilePP] = 50;
|
|
$HcomName[$HcomMissileST] = 'Stealth missile launch';
|
|
$HcomCost[$HcomMissileST] = 50;
|
|
$HcomName[$HcomMissileLD] = 'Land-destroying missile launch';
|
|
$HcomCost[$HcomMissileLD] = 100;
|
|
$HcomName[$HcomSendMonster] = 'Dispatch monster';
|
|
$HcomCost[$HcomSendMonster] = 3000;
|
|
$HcomName[$HcomDoNothing] = 'Cash flow';
|
|
$HcomCost[$HcomDoNothing] = 0;
|
|
$HcomName[$HcomSell] = 'Food export';
|
|
$HcomCost[$HcomSell] = -100;
|
|
$HcomName[$HcomMoney] = 'Financial aid';
|
|
$HcomCost[$HcomMoney] = 100;
|
|
$HcomName[$HcomFood] = 'Food aid';
|
|
$HcomCost[$HcomFood] = -100;
|
|
$HcomName[$HcomPropaganda] = 'Island promotion';
|
|
$HcomCost[$HcomPropaganda] = 1000;
|
|
$HcomName[$HcomGiveup] = 'Abandon island';
|
|
$HcomCost[$HcomGiveup] = 0;
|
|
$HcomName[$HcomAutoPrepare] = 'Auto ground leveling';
|
|
$HcomCost[$HcomAutoPrepare] = 0;
|
|
$HcomName[$HcomAutoPrepare2] = 'Auto quick ground leveling';
|
|
$HcomCost[$HcomAutoPrepare2] = 0;
|
|
$HcomName[$HcomAutoDelete] = 'Withdraw all plans';
|
|
$HcomCost[$HcomAutoDelete] = 0;
|
|
|
|
#----------------------------------------------------------------------
|
|
# 変数
|
|
#----------------------------------------------------------------------
|
|
|
|
# COOKIE
|
|
my($defaultID); # 島の名前
|
|
my($defaultTarget); # ターゲットの名前
|
|
|
|
|
|
# 島の座標数
|
|
$HpointNumber = $HislandSize * $HislandSize;
|
|
|
|
#----------------------------------------------------------------------
|
|
# メイン
|
|
#----------------------------------------------------------------------
|
|
|
|
# jcode.plをrequire
|
|
## require($jcode); ## mod
|
|
|
|
# 「戻る」リンク
|
|
$HtempBack = "<A HREF=\"$HthisFile\">${HtagBig_}Return to top${H_tagBig}</A>";
|
|
|
|
# ロックをかける
|
|
if(!hakolock()) {
|
|
# ロック失敗
|
|
# ヘッダ出力
|
|
tempHeader();
|
|
|
|
# ロック失敗メッセージ
|
|
tempLockFail();
|
|
|
|
# フッタ出力
|
|
tempFooter();
|
|
|
|
# 終了
|
|
exit(0);
|
|
}
|
|
|
|
# 乱数の初期化
|
|
srand(time^$$);
|
|
|
|
# COOKIE読みこみ
|
|
cookieInput();
|
|
|
|
# CGI読みこみ
|
|
cgiInput();
|
|
|
|
# 島データの読みこみ
|
|
if(readIslandsFile($HcurrentID) == 0) {
|
|
unlock();
|
|
tempHeader();
|
|
tempNoDataFile();
|
|
tempFooter();
|
|
exit(0);
|
|
}
|
|
|
|
# テンプレートを初期化
|
|
tempInitialize();
|
|
|
|
# COOKIE出力
|
|
cookieOutput();
|
|
|
|
# ヘッダ出力
|
|
tempHeader();
|
|
|
|
if($HmainMode eq 'turn') {
|
|
# ターン進行
|
|
require('hako-turn.cgi');
|
|
require('hako-top.cgi');
|
|
turnMain();
|
|
|
|
} elsif($HmainMode eq 'new') {
|
|
# 島の新規作成
|
|
require('hako-turn.cgi');
|
|
require('hako-map.cgi');
|
|
newIslandMain();
|
|
|
|
} elsif($HmainMode eq 'print') {
|
|
# 観光モード
|
|
require('hako-map.cgi');
|
|
printIslandMain();
|
|
|
|
} elsif($HmainMode eq 'owner') {
|
|
|
|
# 開発モード
|
|
require('hako-map.cgi');
|
|
ownerMain();
|
|
|
|
} elsif($HmainMode eq 'command') {
|
|
# コマンド入力モード
|
|
require('hako-map.cgi');
|
|
commandMain();
|
|
|
|
} elsif($HmainMode eq 'comment') {
|
|
# コメント入力モード
|
|
require('hako-map.cgi');
|
|
commentMain();
|
|
|
|
} elsif($HmainMode eq 'lbbs') {
|
|
|
|
# ローカル掲示板モード
|
|
require('hako-map.cgi');
|
|
localBbsMain();
|
|
|
|
} elsif($HmainMode eq 'change') {
|
|
# 情報変更モード
|
|
require('hako-turn.cgi');
|
|
require('hako-top.cgi');
|
|
changeMain();
|
|
|
|
} else {
|
|
# その他の場合はトップページモード
|
|
require('hako-top.cgi');
|
|
topPageMain();
|
|
}
|
|
|
|
# フッタ出力
|
|
tempFooter();
|
|
|
|
# 終了
|
|
exit(0);
|
|
|
|
# コマンドを前にずらす
|
|
sub slideFront {
|
|
my($command, $number) = @_;
|
|
my($i);
|
|
|
|
# それぞれずらす
|
|
splice(@$command, $number, 1);
|
|
|
|
# 最後に資金繰り
|
|
$command->[$HcommandMax - 1] = {
|
|
'kind' => $HcomDoNothing,
|
|
'target' => 0,
|
|
'x' => 0,
|
|
'y' => 0,
|
|
'arg' => 0
|
|
};
|
|
}
|
|
|
|
# コマンドを後にずらす
|
|
sub slideBack {
|
|
my($command, $number) = @_;
|
|
my($i);
|
|
|
|
# それぞれずらす
|
|
return if $number == $#$command;
|
|
pop(@$command);
|
|
splice(@$command, $number, 0, $command->[$number]);
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# 島データ入出力
|
|
#----------------------------------------------------------------------
|
|
|
|
# 全島データ読みこみ
|
|
sub readIslandsFile {
|
|
my($num) = @_; # 0だと地形読みこまず
|
|
# -1だと全地形を読む
|
|
# 番号だとその島の地形だけは読みこむ
|
|
|
|
# データファイルを開く
|
|
if(!open(IN, "${HdirName}/hakojima.dat")) {
|
|
rename("${HdirName}/hakojima.tmp", "${HdirName}/hakojima.dat");
|
|
if(!open(IN, "${HdirName}/hakojima.dat")) {
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
# 各パラメータの読みこみ
|
|
$HislandTurn = int(<IN>); # ターン数
|
|
if($HislandTurn == 0) {
|
|
return 0;
|
|
}
|
|
$HislandLastTime = int(<IN>); # 最終更新時間
|
|
if($HislandLastTime == 0) {
|
|
return 0;
|
|
}
|
|
$HislandNumber = int(<IN>); # 島の総数
|
|
$HislandNextID = int(<IN>); # 次に割り当てるID
|
|
|
|
# ターン処理判定
|
|
my($now) = time;
|
|
if((($Hdebug == 1) &&
|
|
($HmainMode eq 'Hdebugturn')) ||
|
|
(($now - $HislandLastTime) >= $HunitTime)) {
|
|
$HmainMode = 'turn';
|
|
$num = -1; # 全島読みこむ
|
|
}
|
|
|
|
# 島の読みこみ
|
|
my($i);
|
|
for($i = 0; $i < $HislandNumber; $i++) {
|
|
$Hislands[$i] = readIsland($num);
|
|
$HidToNumber{$Hislands[$i]->{'id'}} = $i;
|
|
}
|
|
|
|
# ファイルを閉じる
|
|
close(IN);
|
|
|
|
return 1;
|
|
}
|
|
|
|
# 島ひとつ読みこみ
|
|
sub readIsland {
|
|
my($num) = @_;
|
|
my($name, $id, $prize, $absent, $comment, $password, $money, $food,
|
|
$pop, $area, $farm, $factory, $mountain, $score);
|
|
$name = <IN>; # 島の名前
|
|
chomp($name);
|
|
if($name =~ s/,(.*)$//g) {
|
|
$score = int($1);
|
|
} else {
|
|
$score = 0;
|
|
}
|
|
$id = int(<IN>); # ID番号
|
|
$prize = <IN>; # 受賞
|
|
chomp($prize);
|
|
$absent = int(<IN>); # 連続資金繰り数
|
|
$comment = <IN>; # コメント
|
|
chomp($comment);
|
|
$password = <IN>; # 暗号化パスワード
|
|
chomp($password);
|
|
$money = int(<IN>); # 資金
|
|
$food = int(<IN>); # 食料
|
|
$pop = int(<IN>); # 人口
|
|
$area = int(<IN>); # 広さ
|
|
$farm = int(<IN>); # 農場
|
|
$factory = int(<IN>); # 工場
|
|
$mountain = int(<IN>); # 採掘場
|
|
|
|
# HidToNameテーブルへ保存
|
|
$HidToName{$id} = $name; #
|
|
|
|
# 地形
|
|
my(@land, @landValue, $line, @command, @lbbs);
|
|
|
|
if(($num == -1) || ($num == $id)) {
|
|
if(!open(IIN, "${HdirName}/island.$id")) {
|
|
rename("${HdirName}/islandtmp.$id", "${HdirName}/island.$id");
|
|
if(!open(IIN, "${HdirName}/island.$id")) {
|
|
exit(0);
|
|
}
|
|
}
|
|
my($x, $y);
|
|
for($y = 0; $y < $HislandSize; $y++) {
|
|
$line = <IIN>;
|
|
for($x = 0; $x < $HislandSize; $x++) {
|
|
$line =~ s/^(.)(..)//;
|
|
$land[$x][$y] = hex($1);
|
|
$landValue[$x][$y] = hex($2);
|
|
}
|
|
}
|
|
|
|
# コマンド
|
|
my($i);
|
|
for($i = 0; $i < $HcommandMax; $i++) {
|
|
$line = <IIN>;
|
|
$line =~ /^([0-9]*),([0-9]*),([0-9]*),([0-9]*),([0-9]*)$/;
|
|
$command[$i] = {
|
|
'kind' => int($1),
|
|
'target' => int($2),
|
|
'x' => int($3),
|
|
'y' => int($4),
|
|
'arg' => int($5)
|
|
}
|
|
}
|
|
|
|
# ローカル掲示板
|
|
for($i = 0; $i < $HlbbsMax; $i++) {
|
|
$line = <IIN>;
|
|
chomp($line);
|
|
$lbbs[$i] = $line;
|
|
}
|
|
|
|
close(IIN);
|
|
}
|
|
|
|
# 島型にして返す
|
|
return {
|
|
'name' => $name,
|
|
'id' => $id,
|
|
'score' => $score,
|
|
'prize' => $prize,
|
|
'absent' => $absent,
|
|
'comment' => $comment,
|
|
'password' => $password,
|
|
'money' => $money,
|
|
'food' => $food,
|
|
'pop' => $pop,
|
|
'area' => $area,
|
|
'farm' => $farm,
|
|
'factory' => $factory,
|
|
'mountain' => $mountain,
|
|
'land' => \@land,
|
|
'landValue' => \@landValue,
|
|
'command' => \@command,
|
|
'lbbs' => \@lbbs,
|
|
};
|
|
}
|
|
|
|
# 全島データ書き込み
|
|
sub writeIslandsFile {
|
|
my($num) = @_;
|
|
|
|
# ファイルを開く
|
|
open(OUT, ">${HdirName}/hakojima.tmp");
|
|
|
|
# 各パラメータ書き込み
|
|
print OUT "$HislandTurn\n";
|
|
print OUT "$HislandLastTime\n";
|
|
print OUT "$HislandNumber\n";
|
|
print OUT "$HislandNextID\n";
|
|
|
|
# 島の書きこみ
|
|
my($i);
|
|
for($i = 0; $i < $HislandNumber; $i++) {
|
|
writeIsland($Hislands[$i], $num);
|
|
}
|
|
|
|
# ファイルを閉じる
|
|
close(OUT);
|
|
|
|
# 本来の名前にする
|
|
unlink("${HdirName}/hakojima.dat");
|
|
rename("${HdirName}/hakojima.tmp", "${HdirName}/hakojima.dat");
|
|
}
|
|
|
|
# 島ひとつ書き込み
|
|
sub writeIsland {
|
|
my($island, $num) = @_;
|
|
my($score);
|
|
$score = int($island->{'score'});
|
|
print OUT $island->{'name'} . ",$score\n";
|
|
print OUT $island->{'id'} . "\n";
|
|
print OUT $island->{'prize'} . "\n";
|
|
print OUT $island->{'absent'} . "\n";
|
|
print OUT $island->{'comment'} . "\n";
|
|
print OUT $island->{'password'} . "\n";
|
|
print OUT $island->{'money'} . "\n";
|
|
print OUT $island->{'food'} . "\n";
|
|
print OUT $island->{'pop'} . "\n";
|
|
print OUT $island->{'area'} . "\n";
|
|
print OUT $island->{'farm'} . "\n";
|
|
print OUT $island->{'factory'} . "\n";
|
|
print OUT $island->{'mountain'} . "\n";
|
|
|
|
# 地形
|
|
if(($num <= -1) || ($num == $island->{'id'})) {
|
|
open(IOUT, ">${HdirName}/islandtmp.$island->{'id'}");
|
|
|
|
my($land, $landValue);
|
|
$land = $island->{'land'};
|
|
$landValue = $island->{'landValue'};
|
|
my($x, $y);
|
|
for($y = 0; $y < $HislandSize; $y++) {
|
|
for($x = 0; $x < $HislandSize; $x++) {
|
|
printf IOUT ("%x%02x", $land->[$x][$y], $landValue->[$x][$y]);
|
|
}
|
|
print IOUT "\n";
|
|
}
|
|
|
|
# コマンド
|
|
my($command, $cur, $i);
|
|
$command = $island->{'command'};
|
|
for($i = 0; $i < $HcommandMax; $i++) {
|
|
printf IOUT ("%d,%d,%d,%d,%d\n",
|
|
$command->[$i]->{'kind'},
|
|
$command->[$i]->{'target'},
|
|
$command->[$i]->{'x'},
|
|
$command->[$i]->{'y'},
|
|
$command->[$i]->{'arg'}
|
|
);
|
|
}
|
|
|
|
# ローカル掲示板
|
|
my($lbbs);
|
|
$lbbs = $island->{'lbbs'};
|
|
for($i = 0; $i < $HlbbsMax; $i++) {
|
|
print IOUT $lbbs->[$i] . "\n";
|
|
}
|
|
|
|
close(IOUT);
|
|
unlink("${HdirName}/island.$island->{'id'}");
|
|
rename("${HdirName}/islandtmp.$island->{'id'}", "${HdirName}/island.$island->{'id'}");
|
|
}
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# 入出力
|
|
#----------------------------------------------------------------------
|
|
|
|
# 標準出力への出力
|
|
sub out {
|
|
## print STDOUT jcode::sjis($_[0]);
|
|
print STDOUT $_[0]; ## mod
|
|
}
|
|
|
|
# デバッグログ
|
|
sub HdebugOut {
|
|
open(DOUT, ">>debug.log");
|
|
print DOUT ($_[0]);
|
|
close(DOUT);
|
|
}
|
|
|
|
# CGIの読みこみ
|
|
sub cgiInput {
|
|
my($line, $getLine);
|
|
|
|
# 入力を受け取って日本語コードをEUCに
|
|
$line = <>;
|
|
$line =~ tr/+/ /;
|
|
$line =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
|
|
## $line = jcode::euc($line); ## mod
|
|
$line =~ s/[\x00-\x1f\,]//g;
|
|
|
|
# GETのやつも受け取る
|
|
$getLine = $ENV{'QUERY_STRING'};
|
|
|
|
# 対象の島
|
|
if($line =~ /CommandButton([0-9]+)=/) {
|
|
# コマンド送信ボタンの場合
|
|
$HcurrentID = $1;
|
|
$defaultID = $1;
|
|
}
|
|
|
|
if($line =~ /ISLANDNAME=([^\&]*)\&/){
|
|
# 名前指定の場合
|
|
## $HcurrentName = cutColumn($1, 32);
|
|
$HcurrentName = cutColumn($1, 64); ## mod
|
|
}
|
|
|
|
if($line =~ /ISLANDID=([0-9]+)\&/){
|
|
# その他の場合
|
|
$HcurrentID = $1;
|
|
$defaultID = $1;
|
|
}
|
|
|
|
# パスワード
|
|
if($line =~ /OLDPASS=([^\&]*)\&/) {
|
|
$HoldPassword = $1;
|
|
$HdefaultPassword = $1;
|
|
}
|
|
if($line =~ /PASSWORD=([^\&]*)\&/) {
|
|
$HinputPassword = $1;
|
|
$HdefaultPassword = $1;
|
|
}
|
|
if($line =~ /PASSWORD2=([^\&]*)\&/) {
|
|
$HinputPassword2 = $1;
|
|
}
|
|
|
|
# メッセージ
|
|
if($line =~ /MESSAGE=([^\&]*)\&/) {
|
|
## $Hmessage = cutColumn($1, 80);
|
|
$Hmessage = cutColumn($1, 160); ## mod
|
|
}
|
|
|
|
# ローカル掲示板
|
|
if($line =~ /LBBSNAME=([^\&]*)\&/) {
|
|
$HlbbsName = $1;
|
|
$HdefaultName = $1;
|
|
}
|
|
if($line =~ /LBBSMESSAGE=([^\&]*)\&/) {
|
|
## $HlbbsMessage = cutColumn($1, 80);
|
|
$HlbbsMessage = cutColumn($1, 160); ## mod
|
|
}
|
|
|
|
# main modeの取得
|
|
if($line =~ /TurnButton/) {
|
|
if($Hdebug == 1) {
|
|
$HmainMode = 'Hdebugturn';
|
|
}
|
|
} elsif($line =~ /OwnerButton/) {
|
|
$HmainMode = 'owner';
|
|
} elsif($getLine =~ /Sight=([0-9]*)/) {
|
|
$HmainMode = 'print';
|
|
$HcurrentID = $1;
|
|
} elsif($line =~ /NewIslandButton/) {
|
|
$HmainMode = 'new';
|
|
} elsif($line =~ /LbbsButton(..)([0-9]*)/) {
|
|
$HmainMode = 'lbbs';
|
|
if($1 eq 'SS') {
|
|
# 観光者
|
|
$HlbbsMode = 0;
|
|
} elsif($1 eq 'OW') {
|
|
# 島主
|
|
$HlbbsMode = 1;
|
|
} else {
|
|
# 削除
|
|
$HlbbsMode = 2;
|
|
}
|
|
$HcurrentID = $2;
|
|
|
|
# 削除かもしれないので、番号を取得
|
|
$line =~ /NUMBER=([^\&]*)\&/;
|
|
$HcommandPlanNumber = $1;
|
|
|
|
} elsif($line =~ /ChangeInfoButton/) {
|
|
$HmainMode = 'change';
|
|
} elsif($line =~ /MessageButton([0-9]*)/) {
|
|
$HmainMode = 'comment';
|
|
$HcurrentID = $1;
|
|
} elsif($line =~ /CommandButton/) {
|
|
$HmainMode = 'command';
|
|
|
|
# コマンドモードの場合、コマンドの取得
|
|
$line =~ /NUMBER=([^\&]*)\&/;
|
|
$HcommandPlanNumber = $1;
|
|
$line =~ /COMMAND=([^\&]*)\&/;
|
|
$HcommandKind = $1;
|
|
$HdefaultKind = $1;
|
|
$line =~ /AMOUNT=([^\&]*)\&/;
|
|
$HcommandArg = $1;
|
|
$line =~ /TARGETID=([^\&]*)\&/;
|
|
$HcommandTarget = $1;
|
|
$defaultTarget = $1;
|
|
$line =~ /POINTX=([^\&]*)\&/;
|
|
$HcommandX = $1;
|
|
$HdefaultX = $1;
|
|
$line =~ /POINTY=([^\&]*)\&/;
|
|
$HcommandY = $1;
|
|
$HdefaultY = $1;
|
|
$line =~ /COMMANDMODE=(write|insert|delete)/;
|
|
$HcommandMode = $1;
|
|
} else {
|
|
$HmainMode = 'top';
|
|
}
|
|
|
|
}
|
|
|
|
|
|
#cookie入力
|
|
sub cookieInput {
|
|
my($cookie);
|
|
|
|
## $cookie = jcode::euc($ENV{'HTTP_COOKIE'});
|
|
$cookie = $ENV{'HTTP_COOKIE'}; ## mod
|
|
|
|
if($cookie =~ /${HthisFile}OWNISLANDID=\(([^\)]*)\)/) {
|
|
$defaultID = $1;
|
|
}
|
|
if($cookie =~ /${HthisFile}OWNISLANDPASSWORD=\(([^\)]*)\)/) {
|
|
$HdefaultPassword = $1;
|
|
}
|
|
if($cookie =~ /${HthisFile}TARGETISLANDID=\(([^\)]*)\)/) {
|
|
$defaultTarget = $1;
|
|
}
|
|
if($cookie =~ /${HthisFile}LBBSNAME=\(([^\)]*)\)/) {
|
|
$HdefaultName = $1;
|
|
}
|
|
if($cookie =~ /${HthisFile}POINTX=\(([^\)]*)\)/) {
|
|
$HdefaultX = $1;
|
|
}
|
|
if($cookie =~ /${HthisFile}POINTY=\(([^\)]*)\)/) {
|
|
$HdefaultY = $1;
|
|
}
|
|
if($cookie =~ /${HthisFile}KIND=\(([^\)]*)\)/) {
|
|
$HdefaultKind = $1;
|
|
}
|
|
|
|
}
|
|
|
|
#cookie出力
|
|
sub cookieOutput {
|
|
my($cookie, $info);
|
|
|
|
# 消える期限の設定
|
|
my($sec, $min, $hour, $date, $mon, $year, $day, $yday, $dummy) =
|
|
gmtime(time + 30 * 86400); # 現在 + 30日
|
|
|
|
# 2ケタ化
|
|
$year += 1900;
|
|
if ($date < 10) { $date = "0$date"; }
|
|
if ($hour < 10) { $hour = "0$hour"; }
|
|
if ($min < 10) { $min = "0$min"; }
|
|
if ($sec < 10) { $sec = "0$sec"; }
|
|
|
|
# 曜日を文字に
|
|
$day = ("Sunday", "Monday", "Tuesday", "Wednesday",
|
|
"Thursday", "Friday", "Saturday")[$day];
|
|
|
|
# 月を文字に
|
|
$mon = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
|
|
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")[$mon];
|
|
|
|
# パスと期限のセット
|
|
$info = "; expires=$day, $date\-$mon\-$year $hour:$min:$sec GMT\n";
|
|
$cookie = '';
|
|
|
|
if(($HcurrentID) && ($HmainMode eq 'owner')){
|
|
$cookie .= "Set-Cookie: ${HthisFile}OWNISLANDID=($HcurrentID) $info";
|
|
}
|
|
if($HinputPassword) {
|
|
$cookie .= "Set-Cookie: ${HthisFile}OWNISLANDPASSWORD=($HinputPassword) $info";
|
|
}
|
|
if($HcommandTarget) {
|
|
$cookie .= "Set-Cookie: ${HthisFile}TARGETISLANDID=($HcommandTarget) $info";
|
|
}
|
|
if($HlbbsName) {
|
|
$cookie .= "Set-Cookie: ${HthisFile}LBBSNAME=($HlbbsName) $info";
|
|
}
|
|
if($HcommandX) {
|
|
$cookie .= "Set-Cookie: ${HthisFile}POINTX=($HcommandX) $info";
|
|
}
|
|
if($HcommandY) {
|
|
$cookie .= "Set-Cookie: ${HthisFile}POINTY=($HcommandY) $info";
|
|
}
|
|
if($HcommandKind) {
|
|
# 自動系以外
|
|
$cookie .= "Set-Cookie: ${HthisFile}KIND=($HcommandKind) $info";
|
|
}
|
|
|
|
out($cookie);
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# ユーティリティ
|
|
#----------------------------------------------------------------------
|
|
sub hakolock {
|
|
if($lockMode == 1) {
|
|
# directory式ロック
|
|
return hakolock1();
|
|
|
|
} elsif($lockMode == 2) {
|
|
# flock式ロック
|
|
return hakolock2();
|
|
} elsif($lockMode == 3) {
|
|
# symlink式ロック
|
|
return hakolock3();
|
|
} else {
|
|
# 通常ファイル式ロック
|
|
return hakolock4();
|
|
}
|
|
}
|
|
|
|
sub hakolock1 {
|
|
# ロックを試す
|
|
if(mkdir('hakojimalock', $HdirMode)) {
|
|
# 成功
|
|
return 1;
|
|
} else {
|
|
# 失敗
|
|
my($b) = (stat('hakojimalock'))[9];
|
|
if(($b > 0) && ((time() - $b)> $unlockTime)) {
|
|
# 強制解除
|
|
unlock();
|
|
|
|
# ヘッダ出力
|
|
tempHeader();
|
|
|
|
# 強制解除メッセージ
|
|
tempUnlock();
|
|
|
|
# フッタ出力
|
|
tempFooter();
|
|
|
|
# 終了
|
|
exit(0);
|
|
}
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
sub hakolock2 {
|
|
open(LOCKID, '>>hakojimalockflock');
|
|
if(flock(LOCKID, 2)) {
|
|
# 成功
|
|
return 1;
|
|
} else {
|
|
# 失敗
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
sub hakolock3 {
|
|
# ロックを試す
|
|
if(symlink('hakojimalockdummy', 'hakojimalock')) {
|
|
# 成功
|
|
return 1;
|
|
} else {
|
|
# 失敗
|
|
my($b) = (lstat('hakojimalock'))[9];
|
|
if(($b > 0) && ((time() - $b)> $unlockTime)) {
|
|
# 強制解除
|
|
unlock();
|
|
|
|
# ヘッダ出力
|
|
tempHeader();
|
|
|
|
# 強制解除メッセージ
|
|
tempUnlock();
|
|
|
|
# フッタ出力
|
|
tempFooter();
|
|
|
|
# 終了
|
|
exit(0);
|
|
}
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
sub hakolock4 {
|
|
# ロックを試す
|
|
if(unlink('key-free')) {
|
|
# 成功
|
|
open(OUT, '>key-locked');
|
|
print OUT time;
|
|
close(OUT);
|
|
return 1;
|
|
} else {
|
|
# ロック時間チェック
|
|
if(!open(IN, 'key-locked')) {
|
|
return 0;
|
|
}
|
|
|
|
my($t);
|
|
$t = <IN>;
|
|
close(IN);
|
|
if(($t != 0) && (($t + $unlockTime) < time)) {
|
|
# 120秒以上経過してたら、強制的にロックを外す
|
|
unlock();
|
|
|
|
# ヘッダ出力
|
|
tempHeader();
|
|
|
|
# 強制解除メッセージ
|
|
tempUnlock();
|
|
|
|
# フッタ出力
|
|
tempFooter();
|
|
|
|
# 終了
|
|
exit(0);
|
|
}
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
# ロックを外す
|
|
sub unlock {
|
|
if($lockMode == 1) {
|
|
# directory式ロック
|
|
rmdir('hakojimalock');
|
|
|
|
} elsif($lockMode == 2) {
|
|
# flock式ロック
|
|
close(LOCKID);
|
|
|
|
} elsif($lockMode == 3) {
|
|
# symlink式ロック
|
|
unlink('hakojimalock');
|
|
} else {
|
|
# 通常ファイル式ロック
|
|
my($i);
|
|
$i = rename('key-locked', 'key-free');
|
|
}
|
|
}
|
|
|
|
# 小さい方を返す
|
|
sub min {
|
|
return ($_[0] < $_[1]) ? $_[0] : $_[1];
|
|
}
|
|
|
|
# パスワードエンコード
|
|
sub encode {
|
|
if($cryptOn == 1) {
|
|
return crypt($_[0], 'h2');
|
|
} else {
|
|
return $_[0];
|
|
}
|
|
}
|
|
|
|
# パスワードチェック
|
|
sub checkPassword {
|
|
my($p1, $p2) = @_;
|
|
|
|
# nullチェック
|
|
if($p2 eq '') {
|
|
return 0;
|
|
}
|
|
|
|
# マスターパスワードチェック
|
|
if($masterPassword eq $p2) {
|
|
return 1;
|
|
}
|
|
|
|
# 本来のチェック
|
|
if($p1 eq encode($p2)) {
|
|
return 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
# 1000億単位丸めルーチン
|
|
sub aboutMoney {
|
|
my($m) = @_;
|
|
if($m < 500) {
|
|
return "Estimated <500${HunitMoney}";
|
|
} else {
|
|
$m = int(($m + 500) / 1000);
|
|
return "Estimated ${m}000${HunitMoney}";
|
|
}
|
|
}
|
|
|
|
# エスケープ文字の処理
|
|
sub htmlEscape {
|
|
my($s) = @_;
|
|
$s =~ s/&/&/g;
|
|
$s =~ s/</</g;
|
|
$s =~ s/>/>/g;
|
|
$s =~ s/\"/"/g; #"
|
|
return $s;
|
|
}
|
|
|
|
# 80ケタに切り揃え
|
|
sub cutColumn {
|
|
my($s, $c) = @_;
|
|
if(length($s) <= $c) {
|
|
return $s;
|
|
} else {
|
|
# 合計80ケタになるまで切り取り
|
|
my($ss) = '';
|
|
my($count) = 0;
|
|
while($count < $c) {
|
|
$s =~ s/(^[\x80-\xFF][\x80-\xFF])|(^[\x00-\x7F])//;
|
|
if($1) {
|
|
$ss .= $1;
|
|
$count ++;
|
|
} else {
|
|
$ss .= $2;
|
|
}
|
|
$count ++;
|
|
}
|
|
return $ss;
|
|
}
|
|
}
|
|
|
|
# 島の名前から番号を得る(IDじゃなくて番号)
|
|
sub nameToNumber {
|
|
my($name) = @_;
|
|
|
|
# 全島から探す
|
|
my($i);
|
|
for($i = 0; $i < $HislandNumber; $i++) {
|
|
if($Hislands[$i]->{'name'} eq $name) {
|
|
return $i;
|
|
}
|
|
}
|
|
|
|
# 見つからなかった場合
|
|
return -1;
|
|
}
|
|
|
|
# 怪獣の情報
|
|
sub monsterSpec {
|
|
my($lv) = @_;
|
|
|
|
# 種類
|
|
my($kind) = int($lv / 10);
|
|
|
|
# 名前
|
|
my($name);
|
|
$name = $HmonsterName[$kind];
|
|
|
|
# 体力
|
|
my($hp) = $lv - ($kind * 10);
|
|
|
|
return ($kind, $name, $hp);
|
|
}
|
|
|
|
# 経験地からレベルを算出
|
|
sub expToLevel {
|
|
my($kind, $exp) = @_;
|
|
my($i);
|
|
if($kind == $HlandBase) {
|
|
# ミサイル基地
|
|
for($i = $maxBaseLevel; $i > 1; $i--) {
|
|
if($exp >= $baseLevelUp[$i - 2]) {
|
|
return $i;
|
|
}
|
|
}
|
|
return 1;
|
|
} else {
|
|
# 海底基地
|
|
for($i = $maxSBaseLevel; $i > 1; $i--) {
|
|
if($exp >= $sBaseLevelUp[$i - 2]) {
|
|
return $i;
|
|
}
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
}
|
|
|
|
# (0,0)から(size - 1, size - 1)までの数字が一回づつ出てくるように
|
|
# (@Hrpx, @Hrpy)を設定
|
|
sub makeRandomPointArray {
|
|
# 初期値
|
|
my($y);
|
|
@Hrpx = (0..$HislandSize-1) x $HislandSize;
|
|
for($y = 0; $y < $HislandSize; $y++) {
|
|
push(@Hrpy, ($y) x $HislandSize);
|
|
}
|
|
|
|
# シャッフル
|
|
my ($i);
|
|
for ($i = $HpointNumber; --$i; ) {
|
|
my($j) = int(rand($i+1));
|
|
if($i == $j) { next; }
|
|
@Hrpx[$i,$j] = @Hrpx[$j,$i];
|
|
@Hrpy[$i,$j] = @Hrpy[$j,$i];
|
|
}
|
|
}
|
|
|
|
# 0から(n - 1)の乱数
|
|
sub random {
|
|
return int(rand(1) * $_[0]);
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# ログ表示
|
|
#----------------------------------------------------------------------
|
|
# ファイル番号指定でログ表示
|
|
sub logFilePrint {
|
|
my($fileNumber, $id, $mode) = @_;
|
|
open(LIN, "${HdirName}/hakojima.log$_[0]");
|
|
my($line, $m, $turn, $id1, $id2, $message);
|
|
while($line = <LIN>) {
|
|
$line =~ /^([0-9]*),([0-9]*),([0-9]*),([0-9]*),(.*)$/;
|
|
($m, $turn, $id1, $id2, $message) = ($1, $2, $3, $4, $5);
|
|
|
|
# 機密関係
|
|
if($m == 1) {
|
|
if(($mode == 0) || ($id1 != $id)) {
|
|
# 機密表示権利なし
|
|
next;
|
|
}
|
|
$m = ' <B>(Classified)</B>';
|
|
} else {
|
|
$m = '';
|
|
}
|
|
|
|
# 表示的確か
|
|
if($id != 0) {
|
|
if(($id != $id1) &&
|
|
($id != $id2)) {
|
|
next;
|
|
}
|
|
}
|
|
|
|
# 表示
|
|
## out("<NOBR>${HtagNumber_}Turn $turn$m${H_tagNumber}: $message</NOBR><BR>\n");
|
|
out("${HtagNumber_}Turn $turn$m${H_tagNumber}: $message<BR>\n"); ## mod
|
|
}
|
|
close(LIN);
|
|
}
|
|
|
|
#----------------------------------------------------------------------
|
|
# テンプレート
|
|
#----------------------------------------------------------------------
|
|
# 初期化
|
|
sub tempInitialize {
|
|
# 島セレクト(デフォルト自分)
|
|
$HislandList = getIslandList($defaultID);
|
|
$HtargetList = getIslandList($defaultTarget);
|
|
}
|
|
|
|
# 島データのプルダウンメニュー用
|
|
sub getIslandList {
|
|
my($select) = @_;
|
|
my($list, $name, $id, $s, $i);
|
|
|
|
#島リストのメニュー
|
|
$list = '';
|
|
for($i = 0; $i < $HislandNumber; $i++) {
|
|
$name = $Hislands[$i]->{'name'};
|
|
$id = $Hislands[$i]->{'id'};
|
|
if($id eq $select) {
|
|
$s = 'SELECTED';
|
|
} else {
|
|
$s = '';
|
|
}
|
|
$list .=
|
|
"<OPTION VALUE=\"$id\" $s>${name} Island\n";
|
|
}
|
|
return $list;
|
|
}
|
|
|
|
|
|
# ヘッダ
|
|
sub tempHeader {
|
|
out(<<END);
|
|
Content-type: text/html
|
|
|
|
<HTML>
|
|
<HEAD>
|
|
<meta charset="UTF-8">
|
|
<meta name="viewport" content="width=device-width, initial-scale=1.0">
|
|
<link rel="stylesheet" href="/css/global.css">
|
|
<link rel="stylesheet" href="/hakoniwa2/css/main.css">
|
|
<link rel="shortcut icon" href="/favicon.ico">
|
|
<script src="/scripts/oldborders.js"></script>
|
|
<TITLE>
|
|
$Htitle
|
|
</TITLE>
|
|
<BASE HREF="$imageDir/">
|
|
</HEAD>
|
|
<BODY $htmlBody>
|
|
<!-- <A HREF="http://www.bekkoame.ne.jp/~tokuoka/hakoniwa.html">Hakoniwa Islands script distribution</A><HR> -->
|
|
<div><a href="/home.php">Home</a> / <a href="../manual/beginner.html">Manual</a> / <A HREF="$bbs">BBS</A> / <a href="https://hakopedia.uhyohyo.net/" target="_top">Hakoniwapedia (JP)</a> / <A HREF="https://web.archive.org/web/19991205021136/http://www.bekkoame.ne.jp/~tokuoka/hakoniwa.html" target="_top">Hakoniwa Islands page (1999)</A> / <A HREF="https://web.archive.org/web/20001110071200/http://t.pos.to/hako/" target="_top">Hakoniwa Islands page (2000)</A></div>
|
|
<hr>
|
|
END
|
|
}
|
|
|
|
# フッタ
|
|
sub tempFooter {
|
|
out(<<END);
|
|
<HR>
|
|
<P align=center>
|
|
Administrator: <A HREF="mailto:$email">$adminName</A><BR>
|
|
<A HREF="$toppage">Home</A> / <a href="../manual/beginner.html">Manual</a> / <A HREF="$bbs">BBS</A> / <a href="https://hakopedia.uhyohyo.net/">Hakoniwapedia (JP)</a> / <A HREF="https://web.archive.org/web/19991205021136/http://www.bekkoame.ne.jp/~tokuoka/hakoniwa.html">Hakoniwa Islands page (1999)</A> / <A HREF="https://web.archive.org/web/20001110071200/http://t.pos.to/hako/">Hakoniwa Islands page (2000)</A>
|
|
</P>
|
|
</BODY>
|
|
</HTML>
|
|
END
|
|
}
|
|
|
|
# ロック失敗
|
|
sub tempLockFail {
|
|
# タイトル
|
|
out(<<END);
|
|
${HtagBig_}Concurrent access error.<BR>
|
|
Please press the back button on your browser, wait a while, then try again.${H_tagBig}$HtempBack
|
|
END
|
|
}
|
|
|
|
# 強制解除
|
|
sub tempUnlock {
|
|
# タイトル
|
|
out(<<END);
|
|
${HtagBig_}The previous access was possibly terminated abnormally.<BR>
|
|
The lock has been forcibly released.${H_tagBig}$HtempBack
|
|
END
|
|
}
|
|
|
|
# hakojima.datがない
|
|
sub tempNoDataFile {
|
|
out(<<END);
|
|
${HtagBig_}The data file could not be opened.${H_tagBig}$HtempBack
|
|
END
|
|
}
|
|
|
|
# パスワード間違い
|
|
sub tempWrongPassword {
|
|
out(<<END);
|
|
${HtagBig_}Incorrect password.${H_tagBig}$HtempBack
|
|
END
|
|
}
|
|
|
|
# 何か問題発生
|
|
sub tempProblem {
|
|
out(<<END);
|
|
${HtagBig_}There is a problem, please come back later.${H_tagBig}$HtempBack
|
|
END
|
|
}
|