if ($av ne 'dead') { return }
これは、「自分が死んでいなかったら何もしない」ということなので不要です。
代わりに、
　　return if($bg eq '');
　　my $num = -1;
　　&splititem('i');
　　foreach(0..$#items){
　　　　($item,$sts) = split(/△/,$items[$_]);
　　　　if(index($sts,'No')>=0 && $sts=~/Q[swat]/){
　　　　　　$num = $_;
　　　　　　last;
　　　　}
　　}
　　if($num<0){
　　　　push(@msg,'あなたは呪われていません');
　　　　return;
　　}
のようにして呪われた品を装備中であるかを判断します。

　　$mn -= $kaizyu; $pmn += $kaizyu; $php -= $def_hr;if($sts =~ /No/ && $sts =~ /Q[swat]/){$sts =~ s/No//g;}
　　&add_record("[$id] $nmを$kl\Gで解呪しました");
を上記に関連して、
　　$mn -= $kaizyu;
　　$pmn += $kaizyu;
　　$php -= $def_hr;
　　$sts =~ s/No//g; # 上記で$stsは呪われたアイテムのステータスを指しているはずなので改めてsplitをしない
　　$items[$num] = "$item△$sts";
　　&joinitem('i');
　　&add_record("[$id] $nmを${kaizyu}Gで解呪しました");
と変更します。

# 文法チェックなし ＆ 未テスト

▼関連発言
│
└◆444:解呪について（；； [masaki] 03/22 12:58
　└◆445:Re:解呪について（；； [masaki] 03/22 13:41
　　└◆446:Re[2]:解呪について（；； [moon] 03/22 16:36
　　　└◆448:Re[3]:解呪について（；； [masaki] 03/22 17:59
　　　　└◆450:Re[4]:解呪について（；； [moon] 03/22 21:27
　　　　　└◆451:Re[5]:解呪について（；； [masaki] 03/22 22:43<-last