> とりあえず盗難処理部分と$itemchanceを変更している全箇所のスクリプトを書き込んでください。

$itemchance = 0;
　　　　$result = $udice <=> $pdice;

<中略>

　　　　$itemchance = 0 if $#items + 1 >= $xi;
　　　　&splititem('I');
#-ADD-
　　　　if (!$find) {
#-END of ADD- SION0002v3.01-2-5(1)/18
　　　　　　　　if ($itemchance && $pitems[$Sidice]) {
　　　　　　　　　　　　&splititem('i');
　　　　　　　　　　　　($item,$sts,$price) = split(/△/,$pitems[$Sidice]);
　　　　　　　　　　　　if ($sts !~ /Ns/) {
#-EDIT-　　　　　　　　　　　　if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) }
#　　　　　　　　　　　　splice(@pitems,$Sidice,1); push(@items,"$item△$sts");
#　　　　　　　　　　　　$psp =~ s/Qb//g if $sts =~ /Bw/;
#　　　　　　　　　　　　$psp =~ s/Qk//g if $sts =~ /Kt/;
#　　　　　　　　　　　　$psp =~ s/Qx//g if $sts =~ /Ax/;
#　　　　　　　　　　　　$psp =~ s/Qm//g if $sts =~ /Sw/;
　　　　　　　　　　　　if ($psp =~ /Ng/ && $sts =~ /(Q[swat]|Cp)/) {
　　　　　　　　　　　　　　　　$sts =~ s/Cp//g;
　　　　　　　　　　　　　　　　push(@items,"$item△$sts");
　　　　　　　　　　　　} else {
　　　　　　　　　　　　　　　　if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) }
　　　　　　　　　　　　　　　　splice(@pitems,$Sidice,1); push(@items,"$item△$sts");
　　　　　　　　　　　　　　　　$psp =~ s/Qb//g if $sts =~ /Bw/;
　　　　　　　　　　　　　　　　$psp =~ s/Qk//g if $sts =~ /Kt/;
　　　　　　　　　　　　　　　　$psp =~ s/Qx//g if $sts =~ /Ax/;
　　　　　　　　　　　　　　　　$psp =~ s/Qm//g if $sts =~ /Sw/;
　　　　　　　　　　　　}
#-END of EDIT- SION0026v1.00-3-4/4
　　　　　　　　　　　　　　　　$psp =~ s/Of// if $sts =~ /Of/; # 釣り竿の盗み処理
#属性
　　　　　　　　　　　　　　　　foreach (@element_ak) { if($sts =~ /$_/) { $psp =~ s/$_// } }
　　　　　　　　　　　　　　　　foreach (@element_df) { if($sts =~ /$_/) { $psp =~ s/$_// } }
　　　　　　　　　　　　　　　　&joinitem('iI'); &fmsg('奪');
　　　　　　　　　　　　}
　　　　　　　　}
#-ADD-
　　　　} else {
　　　　　　　　if ($itemchance && $items[$Sidice]) {
　　　　　　　　　　　　&splititem('i');
　　　　　　　　　　　　($item,$sts,$price) = split(/△/,$items[$Sidice]);
　　　　　　　　　　　　if ($sts !~ /Ns/) {
　　　　　　　　　　　　　　　　if ($sts =~ s/Q[swat]//g) { $ab -= substr($sts,4,2); $db -= substr($sts,6,2) }
　　　　　　　　　　　　　　　　splice(@items,$Sidice,1); push(@pitems,"$item△$sts");
　　　　　　　　　　　　　　　　$sp =~ s/Qb//g if $sts =~ /Bw/;
　　　　　　　　　　　　　　　　$sp =~ s/Qk//g if $sts =~ /Kt/;
　　　　　　　　　　　　　　　　$sp =~ s/Qx//g if $sts =~ /Ax/;
　　　　　　　　　　　　　　　　$sp =~ s/Qm//g if $sts =~ /Sw/;
　　　　　　　　　　　　　　　　$sp =~ s/Of// if $sts =~ /Of/; # 釣り竿の盗み処理
#属性
　　　　　　　　　　　　　　　　foreach (@element_ak) { if($sts =~ /$_/) { $sp =~ s/$_// } }
　　　　　　　　　　　　　　　　foreach (@element_df) { if($sts =~ /$_/) { $sp =~ s/$_// } }
　　　　　　　　　　　　　　　　&joinitem('iI'); &fmsg('失');
　　　　　　　　　　　　}
　　　　　　　　}
　　　　}
#-END of ADD- SION0002v3.01-2-5(2)/18

以上で足りていますでしょうか…。よろしくお願いいたします。

▼関連発言
│
└◆1087:コロシアム設置報告とクエスト、強奪について [海産物] 10/27 02:31
　└◆1088:Re:コロシアム設置報告とクエスト、強奪について [moon] 10/27 20:01
　　└◆1089:Re[2]:コロシアム設置報告とクエスト、強奪につい.. [海産物] 10/27 21:38
　　　└◆1090:Re[3]:コロシアム設置報告とクエスト、強奪につ.. [moon] 10/27 22:04
　　　　└◆1091:Re[4]:コロシアム設置報告とクエスト、強奪に.. [海産物] 10/27 22:54
　　　　　└◆1092:Re[5]:コロシアム設置報告とクエスト、強奪.. [moon] 10/28 00:16
　　　　　　└◆1093:Re[6]:コロシアム設置報告とクエスト、強.. [海産物] 10/28 03:05
　　　　　　　└◆1094:Re[7]:コロシアム設置報告とクエスト、.. [moon] 10/28 08:55
　　　　　　　　└◆1095:Re[8]:コロシアム設置報告とクエスト.. [海産物] 10/28 16:39
　　　　　　　　　└◆1096:Re[9]:コロシアム設置報告とクエス.. [moon] 10/28 19:18
　　　　　　　　　　└◆1097:Re[10]:コロシアム設置報告とク... [moon] 10/28 20:00
　　　　　　　　　　　└◆1098:Re[11]:コロシアム設置報告と... [海産物] 10/28 22:35
　　　　　　　　　　　　└◆1099:Re[12]:強奪について [moon] 10/28 22:59
　　　　　　　　　　　　　└◆1100:Re[13]:強奪について [海産物] 10/28 23:55<-last