#!/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 - 作成
#
#-----------------------------------------------------------#
# 設定
# イベント削除期間
#
$disable_time = 3600*24*$del_limit;
#
sub sync_read {
if ($sync<1) {
# $csync = "aqure_2/"; # デバッグ用テストデータ
my @cary = split(/\//,$csync);
$csync = '';
foreach(0..$#cary){
if($sync<1){
my ($ctrg, $data) = split(/_/,$cary[$_]);
$sync = $data;
if($ctrg eq $id){
&sync_exe();
}elsif($ctrg > $lsync){
$csync .= $ctrg."_".$sync."/";
&sync_exe();
$lsync=$ctrg if($sync==0);
}elsif($ctrg>0 && (time()-$ctrg>$disable_time)){
# 無効期限を過ぎたら、イベントを削除
}else{
$csync .= $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;
}else{
}
}
}
# 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;
}else{
$ret = 1;
}
return $ret;
}
sub sync_menu2 {
# @c = ('');
$log2 .=qq|