$di_data[29] = [29,'???のカギ',0,1,'骨を削り出した髑髏の柄のカギ']; $di_data[102] = [102,'髑髏のカギ',0,1,'骨を削り出した髑髏の柄のカギ'];
}elsif($di_a[$cmd-15] == 100){ $sogo = 91; $log .= qq|日頃の修行を認められ$sogo_p[$sogo]の称号を取得しました|; # $gold += 100000; }elsif($di_a[$cmd-15] == 101){ $sogo = 61; $log .= qq|日頃の徴兵の成果を認められ$sogo_p[$sogo]の称号を取得しました|; # $gold += 100000;