罪罰アイテム

# 重量を考慮する
# my $btp = $ag + int(rand($lv/10)+1);
my $btp = $ag + int(rand($lv/10)+1) -$dg_data[$dg_a][6] -$df_data[6];
# my $bte = $tag+ int(rand($tlv/10)+1);
my $bte = $tag+ int(rand($tlv/10)+1)-$dg_data[$tdg_a][6]-$df_data[6];