罪罰改造掲示板/5

# 称号の取得部分
sub get_sogo(){       # <-- ここを変更
    # sogo3=$sogo2;   # ３つめの称号
    $sogo2=$sogo;
    $sogo = @_[0];    # <-- ここを変更

    # 称号取得時の効果
    # たとえば、３回連続 覇者なら10万G
    # if($sogo==1&&$sogo==$sogo2&&$sogo2==$sogo3){
    #    $gold+=100000;       
    # }
}

# ./inc/ore_sub-system.cgi
# hash_data , dat_write それぞれの $sogo と同じように追加

# sub hash_data{
$sogo2 = $DAT{'sogo2'};
# $sogo3 = $DAT{'sogo3'};

# sub dat_write{
sogo2;$sogo2,
# sogo3;$sogo3,

# $sogo = 2;  # 今までの所をコメントアウト
&get_sogo(2);  # これを追加