罪罰改造掲示板/103

# 称号の取得部分
sub get_sogo(){       
    if( $sogo==123 ){    # 称号123なら２番目にセット
        $sogo3=$sogo2;
        $sogo2=@_[0];
    }else{
        $sogo3=$sogo2;   # ３つめの称号
        $sogo2=$sogo;
        $sogo = @_[0];    
    }
}