この前はどうもありがとうございました。まだ完全に改造しきれていないのですがなんとか新装備も戦闘にも影響できるようになりました。それで最近二刀流の改造をしだしたのですがどうも、二刀流になりません。刀(Kt)と剣(Sw)とナイフのみ二刀流になるようにしたいのですがどの辺りがおかしいのかご口授いただけませんか？

# Sub Arm #
sub arm {
local($a1,$a2) = @_;
if ($sts =~ /Li/ && $sp !~ /Li/) { &umsg('レ') }
　　　　elsif ($sp =~ /$a1/) {
if ($sts =~ /Dh/ && $sp !~ /Oh/) {
if ($ch !~ /Q[sw]/) {
# 　　　　　　　　 $ab += $iak; $db += $idd;
#-------新装備
if($a1 eq 'Rp' || $a1 eq 'Yr' || $a1 eq 'Sa' || $a1 eq 'Ya' ||$a1 eq 'Hr' || $a1 eq 'Yh'){
$eit += $iak;
$db += $idd;
}
elsif($a1 eq 'He' || $a1 eq 'Ye' || $a1 eq 'Mt' || $a1 eq 'Yt' ){
$esd += $iak;
$db += $idd;
}
elsif($a1 eq 'Wd' || $a1 eq 'Yd'){
$ab += $iak;
$eit += $idd;
}
else{
$ab += $iak;
$db += $idd;
}
#-------END

　　　　　　　　&umsg('装') if !$nomsg;
if ($a1 eq 'Bw') { $sp .= 'Qb' }
if ($a1 eq 'Kt') { $sp .= 'Qk' }
if ($a1 eq 'Ax') { $sp .= 'Qx' }
if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' }
elsif ($ch =~ /Qw/ && $ch !~ /Qs/ && $ch !~ /Qn/ && $sp =~/Bh/ && $sts !~ /(Ar|Ya|Jw|Yt|Sh|Ys)/){
　　　　　　　　$ab += $iak; $db += $idd;
　　　　　　　　&umsg('左') if !$nomsg;
　　　　　　　　if ($a1 eq 'Kt') { $sp .= 'Qk' }
if ($a1 eq 'Ax') { $sp .= 'Qx' }
　　　　　　　　if ($a1 eq 'As') { $sp .= 'Ua' }
　　　　　　　　$ch .= 'QnQs'; $sts .= 'Qs';
　　　　}

　　　　foreach (@ele_ak) { if ($sts =~ /$_([0-9])/) { $sp .= $_; $sp .= $1 } }
　　　　foreach (@ele_df) { if ($sts =~ /$_([0-9])/) { $sp .= $_; $sp .= $1 } }
$ch .= 'QwQs'; $sts .= 'QwQs';
} else { &umsg('両') }
} elsif ($ch !~ /$a2/) {
#　　　　　　　　 $ab += $iak; $db += $idd;
#-------新装備
if($a1 eq 'Rp' || $a1 eq 'Yr' || $a1 eq 'Sa' || $a1 eq 'Ya' ||$a1 eq 'Hr' || $a1 eq 'Yh'){
$eit += $iak;
$db += $idd;
}
elsif($a1 eq 'He' || $a1 eq 'Ye' || $a1 eq 'Mt' || $a1 eq 'Yt' ){
$esd += $iak;
$db += $idd;
}
elsif($a1 eq 'Wd' || $a1 eq 'Yd'){
$ab += $iak;
$eit += $idd;
}
else{
$ab += $iak;
$db += $idd;
}
#-------END
　　　　　　　　&umsg('装') if !$nomsg;
if ($a1 eq 'Bw') { $sp .= 'Qb' }
if ($a1 eq 'Kt') { $sp .= 'Qk' }
if ($a1 eq 'Ax') { $sp .= 'Qx' }
if ($a1 eq 'Sw' && $sts =~ /Li/) { $sp .= 'Qm' }
　　　　foreach (@ele_ak) { if ($sts =~ /$_([0-9])/) { $sp .= $_; $sp .= $1 } }
　　　　foreach (@ele_df) { if ($sts =~ /$_([0-9])/) { $sp .= $_; $sp .= $1 } }
$ch .= $a2; $sts .= $a2;
} else { &umsg('別') }
　　　　} else { &umsg('職') }
}

▼関連発言
│
└◆1376:二刀流にならない [cosmos] 11/24 11:42
　├◆1379:Re:二刀流にならない [moon] 11/24 18:45
　│└◆1380:Re[2]:二刀流にならない [cosmos] 11/24 21:36
　│　└◆1383:Re[3]:二刀流にならない [moon] 11/25 01:19
　│　　├◆1384:Re[4]:二刀流にならない [moon] 11/25 01:28
　│　　└◆1386:Re[4]:二刀流にならない [cosmos] 11/25 14:50
　│　　　└◆1387:Re[5]:二刀流にならない [moon] 11/25 15:22
　│　　　　└◆1388:Re[6]:二刀流にならない [cosmos] 11/25 15:40
　│　　　　　└◆1389:Re[7]:二刀流にならない [moon] 11/25 18:59
　│　　　　　　└◆1390:Re[8]:二刀流にならない [cosmos] 11/25 19:28
　│　　　　　　　└◆1391:Re[9]:二刀流にならない [moon] 11/25 23:02
　│　　　　　　　　└◆1392:Re[10]:二刀流にならない [cosmos] 11/26 00:18
　│　　　　　　　　　└◆1393:Re[11]:二刀流にならない [moon] 11/26 12:15
　│　　　　　　　　　　└◆1394:Re[12]:二刀流にならない [moon] 11/26 12:18
　│　　　　　　　　　　　└◆1395:Re[13]:二刀流にならない [cosmos] 11/26 13:21
　│　　　　　　　　　　　　└◆1396:Re[14]:二刀流にならな... [cosmos] 11/26 13:22
　├◆1397:Re:二刀流にならない [moon] 11/26 15:59
　│└◆1398:Re[2]:二刀流にならない [cosmos] 11/26 16:35
　│　└◆1399:Re[3]:二刀流にならない [moon] 11/26 19:07
　│　　└◆1400:Re[4]:二刀流にならない [cosmos] 11/26 20:31
　│　　　└◆1401:Re[5]:二刀流にならない [moon] 11/26 23:49
　└◆1403:Re:二刀流にならない [ククロ] 11/27 07:33
　　└◆1404:Re[2]:二刀流にならない [moon] 11/27 20:06<-last