sanjeok77
105 lines
2.7 KiB
Perl
105 lines
2.7 KiB
Perl
#-----------------------------------------------------------#
|
|
# 罪と罰++ 二律背反 #
|
|
# 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.0
|
|
#--- [注意事項] --------------------------------------------#
|
|
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
|
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
|
#-----------------------------------------------------------#
|
|
|
|
#-------------------------------------------------------------------------------
|
|
# 統一処理(国データリセット)
|
|
sub reset_cdat{
|
|
|
|
if($limit_mode){
|
|
require './inc/ore_sub-members-p1.cgi';
|
|
&member_adjust;
|
|
}
|
|
|
|
# 旧式・固定モード
|
|
if(!$reset_cdat){
|
|
my @camp_pw = (0,4500,4500,3500,5000,3500); # 国力 変更可能
|
|
my @camp_gl = (0,900,200,400,250,300); # 国家予算
|
|
my @camp_fd = (0,2000,5000,3500,8000,6000); # 総兵糧
|
|
my @camp_sl = (0,3000,2500,4000,5000,4000); # 総兵士数
|
|
|
|
$cn1=$camp_pw[1];
|
|
$cg1=$camp_gl[1];
|
|
$cf1=$camp_fd[1];
|
|
$cs1=$camp_sl[1];
|
|
|
|
$cn2=$camp_pw[2];
|
|
$cg2=$camp_gl[2];
|
|
$cf2=$camp_fd[2];
|
|
$cs2=$camp_sl[2];
|
|
|
|
$cn3=$camp_pw[3];
|
|
$cg3=$camp_gl[3];
|
|
$cf3=$camp_fd[3];
|
|
$cs3=$camp_sl[3];
|
|
|
|
$cn4=$camp_pw[4];
|
|
$cg4=$camp_gl[4];
|
|
$cf4=$camp_fd[4];
|
|
$cs4=$camp_sl[4];
|
|
|
|
$cn5=$camp_pw[5];
|
|
$cg5=$camp_gl[5];
|
|
$cf5=$camp_fd[5];
|
|
$cs5=$camp_sl[5];
|
|
}
|
|
|
|
# ランダムモード
|
|
else{
|
|
|
|
# リセット処理
|
|
|
|
$cn1=int(rand(40))*100+2500;
|
|
$cn2=int(rand(40))*100+2500;
|
|
$cn3=int(rand(40))*100+2500;
|
|
$cn4=int(rand(40))*100+2500;
|
|
$cn5=int(rand(40))*100+2500;
|
|
|
|
$cg1=int(rand(50))*20+200;
|
|
$cg2=int(rand(50))*20+200;
|
|
$cg3=int(rand(50))*20+200;
|
|
$cg4=int(rand(50))*20+200;
|
|
$cg5=int(rand(50))*20+200;
|
|
|
|
$cf1=int(rand(60))*100+2500;
|
|
$cf2=int(rand(60))*100+2500;
|
|
$cf3=int(rand(60))*100+2500;
|
|
$cf4=int(rand(60))*100+2500;
|
|
$cf5=int(rand(60))*100+2500;
|
|
|
|
$cs1=int(rand(60))*50+2000;
|
|
$cs2=int(rand(60))*50+2000;
|
|
$cs3=int(rand(60))*50+2000;
|
|
$cs4=int(rand(60))*50+2000;
|
|
$cs5=int(rand(60))*50+2000;
|
|
}
|
|
$ce1=$ce2=$ce3=$ce4=$ce5=0;
|
|
$set=$reset_time_limit * 3600 * 24 + $time;
|
|
$goal_no++;
|
|
# 国データを配列化したいけど、めんどくさいからいいや・・・。
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------
|
|
# タイムアウトによるリセット
|
|
sub reset_time_limit{
|
|
|
|
$log .="長き年月が過ぎたが、戦乱の世を制する覇者は最後まで出現しなかった。<br>各国データがリセットされます。\n";
|
|
$wr_mes="長き年月が過ぎたが、戦乱の世を制する覇者は最後まで出現しなかった。各国データがリセットされた";
|
|
&reset_cdat;
|
|
&hist_write;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
1;
|