罪罰/影修行

my @prats = split(/,/,$tdat[$_]);

# 自分自身を追加
foreach(0..$#usrfile+1){
    push(@BT_LIST, $_) if($usrfile[$_] eq "$id\.cgi");
}

# 表示参加者ランダム選出
foreach(0 .. $bt_count){

# if($nm ne $R{'nm'}){
    $NM_V{$R{'nm'}}         = $R{'nm'};             # 名前
    $NM_V{$R{'nm'}}         = "シャドウ" if($nm eq $R{'nm'});
    $HP_MAX_V{$R{'nm'}}     = $R{'max_hp'}; # HP
    $MP_MAX_V{$R{'nm'}}     = $R{'max_mp'}; # MP
    $LV_V{$R{'nm'}}         = $R{'lv'};             # レベル
    $TM_V{$R{'nm'}}         = $R{'tm'};             # 行動
    $UA_V{$R{'nm'}}         = $R{'ua'};             # UA
    $UD_V{$R{'nm'}}         = $R{'ud'};             # UD
    $LR_V{$R{'nm'}}         = $R{'lr'};             # LR
    $AG_V{$R{'nm'}}         = $R{'ag'};             # AG
    $CP_V{$R{'nm'}}         = $R{'camp'};   # 所属
    $SG_V{$R{'nm'}}         = $R{'sogo'};   # 称号
    $N_M{$R{'nm'}}          = $R{'id'};             # ID
    $ICON_V{$R{'nm'}}       = $R{'icon'};   #ICON
# }

# 対戦相手割り当て
$tid    = $VS{'id'};            # ID
$tnm    = $VS{'nm'};            # 名前
$tnm    = "シャドウ" if($VS{'nm'} eq $nm);  # 名前
$tlv    = $VS{'lv'};            # レベル