罪罰改造板２/284

• 	}elsif($s_g < $goal_no){
  		if($hcamp == $camp){
  			# ボーナス
  			my $g = 50000; # ボーナス金額
  			$log .= qq|我が国が大陸を統一しました！！<br>|;
  			$log .= qq|統一ボーナス $g が支給されました！！<br/>|;
  			$gold += $g;
  		}else{
  			$log .= qq|他国に統一されました<br>|;
  		}
  			$s_g = $goal_no;
  	}
  	#-----------------------------------ここまで

• sub hash_data{
  	$s_g		= $DAT{'s_g'};		# 統一ボーナス

# キャラデータ書き込み
sub dat_write{
	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
        $dat[0] .="s_g;$s_g,"; # この行を追加