#!/usr/bin/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
# Arranged by あくあ
# Aqure's Web Page [http://aqure.zive.net/]
#--- [注意事項] --------------------------------------------#
# ・このスクリプトは以下の利用規程に従って配布しています。 #
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
#-----------------------------------------------------------#
#
# 2004.09.24 1.0 - 作成
#
#-----------------------------------------------------------#
# 導入方法
#
#-----------------------------------------------
# 1.拘束時間の上に&sync_read;実行を追加
#
# require './inc/ore_sub-sync.cgi'; &sync_read;
#
# # 拘束時間
# if($pr>$spend_time){ require './inc/ore_sub-main.cgi'; &wt_st; }
# }elsif($sync>0 && &sync_menu==0){
# # sync_menu が 0以外を返したら、通常処理を続行
# }
#
# # 初期メニュー
#-----------------------------------------------
# 2.イベントの追加は、管理者メニューにて行います
# ore_admin.cgiを変更します
#
# a) 統一期限、現在?期の下のに共通イベント1行追加
# 統一期限:あと秒
#
# 現在期
#
# 共通イベント
#
# b) 書き換え処理 sub cdat_regist2の &cdat_write の直前の行に1行追加
# $csync = $in{'csync'};
#
# c) 更にその下に共通イベントの表示を1行追加
# 統一期限:あと $in{'set'} 秒
#
# 現在 $in{'goal_no'} 期
#
# 共通イベント [$csync]
sub sync_read {
if ($sync<1) {
# $csync = "aqure.2_"; # デバッグ用テストデータ
my @cary = split(/\//,$csync);
$csync = '';
# my $flg = 0;
foreach(0..$#cary){
if($sync<1){
my ($ctrg, $data) = split(/_/,$cary[$_]);
$sync = $data;
if($ctrg eq $id){
&sync_exe();
# $flg=1;
}elsif($ctrg>$lsync){
$csync .= qq|$ctrg_$sync/|;
&sync_exe();
# $flg=1;
}else{
$csync .= qq|$ctrg_$sync/|;
}
}
}
}
}
# 処理実行
sub sync_exe {
if($sync>0){
# 一時的な効果を設定する
if($sync == 0){ # dummy
$sync=0; # 完了したらフラグ$syncを0クリア
}elsif($sync==2){ # GOLD -10%
$gold -= int($gold/100*10);
$log .= qq|緊急徴収により、所持金10%減。|;
$sync=0;
}
}
}
# ore_.cgiから呼び出される
sub sync_menu {
my $menu = 1; # メニューを表示
# my $menu = 0; # メニューを非表示
my $ret = 0; # 通常メニューを続行しない
if($sync==1){
# オークション 落札メニューへ強制ジャンプ
$type = "お買い物";
require "./inc/ore_sub-auction.cgi";
# &auc_menu;
$log .= qq|
落札品をお受け取り下さい
|;
$menu = 0; # メニュー表示なし
# オークションコマンド
$cmd = 2;
$tm = 500;
$sync = 0; # フラグを初期化
$ret = 1; # 通常のメニューを続行
# &sync_menu;
}
return $ret;
}
sub sync_menu2 {
# @c = ('');
$log2 .=qq|