罪罰/預かり所

sub shop_menu{
  # ショッピングモ−ル
  my @sg		 = ('去る','武具屋','防具屋','道具屋','金融業','プチロト','診療所','預かり所');

sub shop_exe{ 
  # 行き先選択
  if(!$tm){
    if($cmd<=0){
	$log .= "$nm は逃げるように立ち去った。<br>\n";
	$tm = $cmd = 0;
	$type='';
	&call_main_st;
     #----------------------------ここから追加
     }elsif($cmd==7){      # ←この数字７は、ショップメニューに追加で追加したメニューの順序番号をセットすること。
         $tm = 300;
         require './inc/ore_sub-leave.cgi'; &soko;
     #----------------------------ここまで追加
     }elsif($cmd==1){
	$log .= "いらっしゃい。今日はどうするんだい？<br>\n";
     

 # 結婚相談所
 elsif(	$tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
   $lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
 
 #----------------------------ここから追加

 elsif($tm>=300 && $tm<400){ require './inc/ore_sub-leave.cgi'; &soko_exe; }

 #----------------------------ここまで追加
 
 &dat_write;
 
 }
 
#-------------------------------------------------------------------------------
 #借金計算
 sub syakin {

 sub hash_data{
 
   #    ・・・ （　省略　）・・・
 
   $soko           = $DAT{'soko'};         # 倉庫
 

 sub dat_write{
 
   #    ・・・ （　省略　）・・・
 

• $soko .= qq|アイテム種別番号<>アイテム番号<>数量<>アイテムレベル_|;

• • # soko_outの
    	}elsif($cmd>-1 && $soko_typ[$cmd]==12){		# 防具
    		if($df_a<1){ 
    			$df_a=$soko_lst[$cmd];
    			$df_cnt=$soko_cnt[$cmd]; 
    		}else{ $flg=-1; }                   # <==ここを修正