罪罰改造板２/280

$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;