罪罰修行の続行

# if($thp<1||$hp<1){                                         # ←この２行を
# $log2 .=qq|<input type="hidden" name="cmd" value=-1>\n|;   # コメントアウト

if($thp<1){                                                  ## ←この４行を 
   $log2 .=qq|<input type="hidden" name="cmd" value=1>\n|;   ## 追加する
}elsif($hp<1){                                               ##
   $log2 .=qq|<input type="hidden" name="cmd" value=-1>\n|;  ##
}else{
   &spell_sp;
}