sanjeok77
78 lines
3.4 KiB
Perl
78 lines
3.4 KiB
Perl
#!/usr/local/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; # メニュー表示
|
|
©right; # 削除・移動・変更不可
|
|
|
|
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"; }
|
|
|
|
|
|
|
|
|
|
|