罪と罰++二律背反

  • sub shop_menu{
      # ショッピングモ−ル
      my @sg		 = ('去る','武具屋','防具屋','道具屋','金融業','プチロト','診療所','冒険者ギルド');
  • sub shop_exe{
    	# 行き先選択
    	if(!$tm){
    		if($cmd<=0){
    ・・・(省略)・・・
    		}elsif($cmd==6){
    			$log .= "いらっしゃい。罪罰診療所にようこそ。<br>\n";
    			$tm=120;
    
    			$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
    			$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
    			$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
    			$log2 .=qq|<select name=cmd size=1>\n|;
    			$log2 .=qq|<option value=0>やめる</option>\n|;
    			$log2 .=qq|<option value=1>治療</option>\n|;
    			$log2 .=qq|<option value=2>性転換</option>\n|;
    			$log2 .=qq|</select><br>\n|;
    			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    
    		}elsif($cmd==7){     # ショップメニューに追加した数字に合わせる
    			$log .= "ここは冒険者ギルドだ。なんか用か?<br>\n";
    			$tm=100;	# tmは自分用に合わせてください
    			$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
    			$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
    			$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
    			$log2 .=qq|<select name=cmd size=1>\n|;
    			$log2 .=qq|<option value=0>いいえ</option>\n|;
    			$log2 .=qq|<option value=1>依頼を引き受ける</option>\n|;
    			$log2 .=qq|<option value=3>報酬を貰う</option>\n|;
    			$log2 .=qq|<option value=4>依頼解除</option>\n|;
    			$log2 .=qq|<option value=5>依頼回数</option>\n|;
    			$log2 .=qq|</select><br>\n|;
    			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
  • 	# 冒険者ギルド
    	elsif($tm>=0 && $tm<300){require './inc/ore_sub-shop-girudo.cgi';&girudo;}
  •                         }else{
                                   # 敵キャラ通常攻撃処理
                                   &bogu_bt;
                           }
                   } else {                    #
                           &bogu_bt;           # ここが変更場所
                   }                           #
           }
    
           $log .="</font>\n";
    
           # 負け処理
           &battle_lost if($hp <= 0 && $type eq '修行中');
  • 	elsif(!$type && $cmd==13 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-girub.cgi';	&giru; }
  • 	elsif($type eq 'ギルド依頼')	{ require './inc/ore_sub-girubtime.cgi';&gi_st; }
    	elsif($type eq 'ギルド')		{ require './inc/ore_sub-girub.cgi';	&giru_exe; }


添付ファイル: fileore_sub-shop-girudo.cgi 113件 [詳細] fileore_sub-npc_3.cgi 114件 [詳細] fileore_sub-girubtime.cgi 112件 [詳細] fileore_sub-girub.cgi 94件 [詳細]

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