sanjeok77
104 lines
2.8 KiB
Perl
Executable File
104 lines
2.8 KiB
Perl
Executable File
#-----------------------------------------------------------#
|
|
# 죄와 벌++ 이율배반 #
|
|
# 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;
|