#!/usr/bin/perl
# サーバーの環境に合わせて変更して下さい。
require './ore_config.cgi';				# ore_config.cgi의 패스
#-----------------------------------------------------------#
#  罪と罰++ 二律背反										#
#  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/				#
#-----------------------------------------------------------#
# 以下処理 基本的にこれ以下はいじらないように。

&error("현재 점검 중입니다. 잠시만 기다려 주십시오(약 $ertm 분간)<br>상세 내역: $erni") if $er;
&get_time;	# 日時取得
&safetime;	# プレイ規制
&decode;	# フォームデコード
&axs_check;	# アクセスチェック
# ファイルロック(rename式)
$lock		= &lock if $lock_check;
&read_data;	# ログデータ読み込み

# 初回のみAG無い人に割り当て
$ag=int($lv*1.08) if(!$ag);

# 拘束時間
if($pr>$spend_time){ require './inc/ore_sub-main.cgi';	&wt_st; }

# 初期メニュー
elsif(!$type && $cmd==1 && $act_cnt<$act_cnt_limit)	{ require "./inc/ore_sub-training_$mv_mode\.cgi";	&training; }
elsif(!$type && $cmd==2)							{ require './inc/ore_sub-politics.cgi';	&politics; }
elsif(!$type && $cmd==3 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-war.cgi';		&war; }
elsif(!$type && $cmd==4 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-ability.cgi';	&ability; }
elsif(!$type && $cmd==5 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-changes.cgi';	&changes; }
elsif(!$type && $cmd==6)							{ require "./inc/ore_sub-infomation_$mv_mode\.cgi";&infomation_com; }
elsif(!$type && $cmd==7 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-subdue.cgi';	&subdue; }
elsif(!$type && $cmd==8 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-mission.cgi';	&mission; }
elsif(!$type && $cmd==20)							{ require './inc/ore_sub-shop.cgi';		&shop; }

# 続行メニュー
elsif($type eq '수행')		{ require "./inc/ore_sub-training_$mv_mode\.cgi";	&training_exe; }
elsif($type eq '수행중')	{ require './inc/ore_sub-battle.cgi';	&bt_st; }
elsif($type eq '전쟁')		{ require './inc/ore_sub-war.cgi';		&war_exe; }
elsif($type eq '전쟁중')	{ require './inc/ore_sub-wartime.cgi';	&wr_st; }
elsif($type eq '토벌')		{ require './inc/ore_sub-subdue.cgi';	&subdue_exe; }
elsif($type eq '토벌 중')	{ require './inc/ore_sub-subduetime.cgi';&ws_st; }
elsif($type eq '군사')		{ require './inc/ore_sub-mission.cgi';	&mission_exe; }
elsif($type eq '내정')		{ require './inc/ore_sub-politics.cgi';	&politics_exe; }
elsif($type eq '사관')		{ require './inc/ore_sub-changes.cgi';	&changes_exe; }
elsif($type eq '능력')		{ require './inc/ore_sub-ability.cgi';	&ability_exe; }
elsif($type eq '쇼핑')	{ require './inc/ore_sub-shop.cgi';		&shop_exe; }

else						{ require './inc/ore_sub-main.cgi';		&main_st; }

# ファイルアンロック(rename式)
&unlock($lock) if $lock_check;

&html;		# メニュー表示
&copyright;	# 削除・移動・変更不可

exit;

# 以下呼び出し用サブルーチン(メンテナンス性向上のため)
sub call_main_st	{ require './inc/ore_sub-main.cgi';		&main_st; }
sub call_mapdata	{ require './inc/ore_sub-map-p1_pc.cgi';&mapdata; }

sub sclv{ $LV_V{$b} <=> $LV_V{$a}; }

sub syogo{ $syogo = ($sogo > 0) ? "$nm [$sogo_p[$sogo]]" : "$nm"; }