sanjeok77
107 lines
2.5 KiB
Perl
107 lines
2.5 KiB
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 #
|
|
#--- [注意事項] --------------------------------------------#
|
|
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
|
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
|
#-----------------------------------------------------------#
|
|
|
|
#-------------------------------------------------------------------------------
|
|
# 参加人数取得
|
|
sub member_list{
|
|
|
|
$all_mem=$#tdat+1;
|
|
|
|
# 参加者合計取得
|
|
$c0 = grep(/camp;0/, @tdat);
|
|
$c1 = grep(/camp;1/, @tdat);
|
|
$c2 = grep(/camp;2/, @tdat);
|
|
$c3 = grep(/camp;3/, @tdat);
|
|
$c4 = grep(/camp;4/, @tdat);
|
|
$c5 = grep(/camp;5/, @tdat);
|
|
|
|
if($limit_mode){
|
|
$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ? 3 : int($all_mem/6)+1 ;
|
|
&member_adjust if(!$member_flag);
|
|
}
|
|
|
|
&cdat_write;
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------
|
|
# 前回統一の優劣設定(参加人数)
|
|
sub member_adjust{
|
|
|
|
$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ? 3 : int($all_mem/6)+1 ;
|
|
|
|
local($rca_p,$rca_m);
|
|
$rca_p=1 if($all_mem<50);
|
|
$rca_p=2 if($all_mem=>50 && $all_mem<100);
|
|
$rca_p=3 if($all_mem=>100 && $all_mem<150);
|
|
$rca_p=4 if($all_mem=>150 && $all_mem<200);
|
|
$rca_p=5 if($all_mem=>200);
|
|
|
|
if($all_mem<50){
|
|
$rca_p=0;
|
|
$rca_m=-1;
|
|
}
|
|
elsif($all_mem=>50 && $all_mem<100){
|
|
$rca_p=0;
|
|
$rca_m=-2;
|
|
}
|
|
elsif($all_mem=>100 && $all_mem<150){
|
|
$rca_p=1;
|
|
$rca_m=-3;
|
|
}
|
|
elsif($all_mem=>150 && $all_mem<200){
|
|
$rca_p=1;
|
|
$rca_m=-4;
|
|
}
|
|
elsif($all_mem=>200){
|
|
$rca_p=2;
|
|
$rca_m=-5;
|
|
}
|
|
|
|
if($cn1>=$data_reset || $hcamp==1){
|
|
$c1a +=$rca_m;
|
|
$c2a +=$rca_p;
|
|
$c3a +=$rca_p;
|
|
$c4a +=$rca_p;
|
|
$c5a +=$rca_p;
|
|
}elsif($cn2>=$data_reset || $hcamp==2){
|
|
$c1a +=$rca_p;
|
|
$c2a +=$rca_m;
|
|
$c3a +=$rca_p;
|
|
$c4a +=$rca_p;
|
|
$c5a +=$rca_p;
|
|
}elsif($cn3>=$data_reset || $hcamp==3){
|
|
$c1a +=$rca_p;
|
|
$c2a +=$rca_p;
|
|
$c3a +=$rca_m;
|
|
$c4a +=$rca_p;
|
|
$c5a +=$rca_p;
|
|
}elsif($cn4>=$data_reset || $hcamp==4){
|
|
$c1a +=$rca_p;
|
|
$c2a +=$rca_p;
|
|
$c3a +=$rca_p;
|
|
$c4a +=$rca_m;
|
|
$c5a +=$rca_p;
|
|
}elsif($cn5>=$data_reset || $hcamp==5){
|
|
$c1a +=$rca_p;
|
|
$c2a +=$rca_p;
|
|
$c3a +=$rca_p;
|
|
$c4a +=$rca_p;
|
|
$c5a +=$rca_m;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
1;
|