罪と罰++二律背反

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){      # ←この数字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; }                   # <==ここを修正

添付ファイル: fileore_sub-leave.txt 96件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:16 (2745d)