罪罰改造板２/131

       $log2 .=qq|<option value=0>やめる</option>\n|;
       $log2 .=qq|<option value=1>治療</option>\n|;
       $log2 .=qq|<option value=2>HP回復</option>\n|;      # 追加
       $log2 .=qq|<option value=3>MP回復</option>\n|;      # 追加
       $log2 .=qq|</select><br>\n|;

       # 治療-2
       }elsif($tm==125){
               
               if($cmd<=0){
                       $log .= "$nm は立ち去った。<br>\n";
                       $tm = $cmd = 0;
                       &shop_menu;
               # ------------------------------------------------------ ここから追加
               }elsif($cmd==2){
                       $S = ($lv < 50) ? $lv*1000 : 50000;
                       if($S < $gold){
                               $hp = $max_hp;
                               # $mp = $max_mp;
                               $gold -= $S;
                               $log .= "$SＧを支払った…<br>体力が全回復した。<br>\n";
                               $tm = $cmd = 0;
                               &shop_menu;
                       }else{
                               $log .= "お金が足りないわ…<br>\n";
                               $tm=0;
                               &shop_menu;
                       }
               }elsif($cmd==3){
                       $S = ($lv < 50) ? $lv*1000 : 50000;
                       if($S < $gold){
                               $hp = $max_hp;
                               # $mp = $max_mp;
                               $gold -= $S;
                               $log .= "$SＧを支払った…<br>魔力が全回復した。<br>\n";
                               $tm = $cmd = 0;
                               &shop_menu;
                       }else{
                               $log .= "お金が足りないわ…<br>\n";
                               $tm=0;
                               &shop_menu;
                       }
               # ------------------------------------------------------ ここまで追加
               }else{
                       $S = ($lv < 50) ? $lv*2000 : 100000;