if ($sp =~ /Ws|As|Sc/) {
　　　　　　　　srand(time | $$);
　　　　　　　　$rnd = int(rand(100)) + 1;
if ($sp =~ /Ws/ && $sp =~ /As/ && $sp =~ /Sc/) {
$trndに代入しているif文全体といのは

$trnd = int(rand(8)) }
elsif ($sp =~ /Ws/ && $sp =~ /As/) { $trnd = int(rand(3)) }
elsif ($sp =~ /Ws/ && $sp =~ /Sc/) { $trnd = (0,3)[int(rand(2))] }
elsif ($sp =~ /As/ && $sp =~ /Sc/) { $trnd = int(rand(3)) + 1 }
elsif ($sp =~ /Ws/) { $trnd = int(rand(1)) }
elsif ($sp =~ /As/) { $trnd = int(rand(2)) + 1 }
elsif ($sp =~ /Sc/) { $trnd = 3 }

でしょうか？それとも
　　　　　　　　$rnd = 0 if $sp =~ /Bp/;
　　　　　　　　if ($rnd <= $def_pr) {
　　　　　　　　　　　　if ($trnd == 0) {
　　　　　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc1,$def_bn1);
$sts .= 'Yw'; $item = $def_yw;
　　　　　　　　　　　　}
　　　　　　　　　　　　if ($trnd == 1) {
　　　　　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc2,$def_bn2);
$sts .= 'Ys'; $item = $def_ys;
　　　　　　　　　　　　}
　　　　　　　　　　　　if ($trnd == 2) {
　　　　　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc3,$def_bn3);
$sts .= 'Ya'; $item = $def_ya;
　　　　　　　　　　　　}
　　　　　　　　　　　　if ($trnd == 3) {
　　　　　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc4,$def_bn4);
$sts .= 'Yt'; $item = $def_yt;
　　　　　　　　　　　　}
　　　　　　　　if ($trnd == 4) {
　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc5,$def_bn5);
　　　　　　　　　　　　$sts .= 'Yh'; $item = $def_yh;
　　　　　　　　　　　　}
　　　　　　　　if ($trnd == 5) {
　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc6,$def_bn6);
　　　　　　　　　　　　$sts .= 'Yr'; $item = $def_yr;
　　　　　　　　　　　　}
　　　　　　　　if ($trnd == 6) {
　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc7,$def_bn7);
　　　　　　　　　　　　$sts .= 'Ya'; $item = $def_ya;
　　　　　　　　　　　　}
　　　　　　　　if ($trnd == 7) {
　　　　　　　　　　　　$sts = sprintf("%04d%04d",$def_pc8,$def_bn8);
　　　　　　　　　　　　$sts .= 'Yt'; $item = $def_ym;
　　　　　　　　　　　　}
　　　　　　　　if ($trnd == 8) {
　　　　　　　　$sts = sprintf("%04d%04d",$def_pc9,$def_bn9);
　　　　　　　　$sts .= 'Ye'; $item = $def_ye;
　　　　　　　　　　　　}
　　　　　　　　$item =~ s/○○/$nm/;
　　　　　　　　　　　　&umsg('作');
　　　　　　　　}
　　　　　　　　else { $gn = 1; &umsg('失') }
　　　　} else { &umsg('加') }
}
でしょうか？

▼関連発言
│
└◆1360:下の続きです [cosmos] 11/20 23:23
　└◆1361:Re:下の続きです [moon] 11/21 00:15
　　└◆1362:Re[2]:下の続きです [cosmos] 11/21 15:12
　　　└◆1364:Re[3]:下の続きです [moon] 11/21 20:47
　　　　└◆1365:Re[4]:下の続きです [cosmos] 11/21 21:43
　　　　　└◆1366:Re[5]:下の続きです [cosmos] 11/21 21:45
　　　　　　└◆1367:Re[6]:下の続きです [moon] 11/21 23:20
　　　　　　　└◆1368:Re[7]:下の続きです [cosmos] 11/21 23:38
　　　　　　　　└◆1369:Re[8]:下の続きです [moon] 11/22 00:10
　　　　　　　　　├◆1370:Re[9]:下の続きです [cosmos] 11/22 00:26
　　　　　　　　　└◆1371:Re[9]:下の続きです [cosmos] 11/22 14:05
　　　　　　　　　　└◆1372:Re[10]:下の続きです [moon] 11/22 23:23
　　　　　　　　　　　└◆1373:Re[11]:下の続きです [cosmos] 11/23 00:12
　　　　　　　　　　　　└◆1374:Re[12]:下の続きです [moon] 11/23 01:12
　　　　　　　　　　　　　└◆1375:Re[13]:下の続きです [cosmos] 11/23 08:23<-last