っとある所の罠システムを
導入しているのですが、
この罠システムには、
HPが0になったら、
aliveをdeadにする処理が
ない模様なので、改造をしてみたのですが･･･
どうやらうまくいきません･･･。。

以下のようにしてみたのですが･･･
どうでしょうか？

#トラップデータ読み込みルーチン
# Sub Creat Traps #
sub creattraps {
unless (@traplines) { &error('トラップーデータ読みこみエラー') }
local($wnnam) = $#traplines+1;
foreach (0 .. $#traplines){
($wame[$_],$type[$_],$others)= split(/<>/,$traplines[$_]);
}
return($wnnam)
}

#トラップメインルーチン
# Sub Trap #
sub trap{
if ($av eq 'alive') {
local($wnnam) = &creattraps;
undef $wand;
local($wand) = int(rand($wnnam));
if($sp =~ /Wn/){
if ($wana <= $del_wana) { push (@msg,'トラップ解除成功!!'); }
else{ push (@msg,"トラップ解除失敗!!$wame[$wand]"); $tav = "$type[$wand]"; }
}
else{ push (@msg,"$wame[$wand]"); $tav = "$type[$wand]"; }
if ($tav eq 'cure') {$hp = $hp + 2; $hp = $xp if $hp >= $xp; push (@msg,"<font color=lightskyblue>2ポイント回復した</font>" ); }
if ($tav eq 'ya') { push (@msg,"<font color=red>$wandポイントのダメージを受けた</font>"); $hp=$hp-$wand; $av = 'daed' if $hp <= 0; }
if ($tav eq 'isi') { push (@msg,"<font color=red>２ポイントのダメージを受けた</font>"); $hp=$hp-2; $av = 'daed' if $hp <= 0; }
}
}
1;

▼関連発言
│
└◆679:度々申し訳ないです。。。 [戒] 07/29 04:02
　├◆680:Re:度々申し訳ないです。。。 [moon] 07/29 09:05
　│└◆681:Re[2]:度々申し訳ないです。。。 [戒] 07/29 18:04
　│　└◆682:Re[3]:度々申し訳ないです。。。 [moon] 07/29 19:23
　│　　└◆683:補足 [moon] 07/29 21:01
　│　　　└◆684:Re:補足 [戒] 07/29 22:58
　│　　　　└◆685:Re[2]:補足 [哲] 07/29 23:29
　│　　　　　└◆686:Re[3]:補足 [戒] 07/30 00:36
　│　　　　　　└◆687:Re[4]:補足 [哲] 07/30 02:20
　│　　　　　　　└◆688:Re[5]:補足 [戒] 07/30 19:42
　│　　　　　　　　└◆689:Re[6]:補足 [moon] 07/30 21:12
　│　　　　　　　　　└◆690:Re[7]:補足 [戒] 07/31 00:42
　│　　　　　　　　　　└◆691:Re[8]:補足 [哲] 07/31 02:02
　│　　　　　　　　　　　└◆692:Re[9]:補足 [moon] 07/31 09:00
　│　　　　　　　　　　　　└◆693:Re[10]:補足 [哲] 07/31 10:01
　└◆694:雑談(No.693への返信) [moon] 07/31 19:21
　　└◆695:Re:雑談(No.693への返信) [哲] 07/31 19:49
　　　└◆696:Re[2]:雑談(No.693への返信) [moon] 07/31 22:49
　　　　└◆697:Re[3]:雑談(No.693への返信) [哲] 08/01 00:11
　　　　　└◆698:Re[4]:雑談(No.693への返信) [moon] 08/01 09:14
　　　　　　└◆699:追記 [moon] 08/01 09:18<-last