罪罰改造板２/387

	#-----------------------------------ここから 
       if($camp<$hcamp){
          $v1=$camp;
          $v2=$hcamp;
       } elsif($camp>$v) {
          $v1=$hcamp;
          $v2=$camp;
       } else {
          $v1="";
          $v2="";
       }

	# 統一ボーナス
	if($s_g == 0){	
		# 初期化
	    $s_g = $goal_no;
	}elsif($s_g < $goal_no){
	    if($hcamp == $camp){ # 統一国
	      # ボーナス
	      my $g = 50000;
	      $s_g = $goal_no;
	      $log .= qq|統一ボーナス $g が支給されました！！<br/>|;
	      $gold += $g;    # ボーナス金額

	    }elsif($cfs[$v1.$v2]==1){ # 同盟国
             # ボーナス
	      my $g = 20000;
	      $s_g = $goal_no;
	      $log .= qq|統一ボーナス $g が支給されました！！<br/>|;
	      $gold += $g;    # ボーナス金額
	    }
	}
	#-----------------------------------ここまで