罪と罰++二律背反


  • elsif(($tm>=190 && $tm<200)||$tm==1198){require './inc/ore_sub-shop-tensei.cgi';&tensei;}
    }elsif($cmd==4){#くえすと?
     $log .= "助手「いらっしゃいです〜♪<br> じゃ、まず闘ってみましょうか〜♪(何」<br>\n";
     $tm=1198;
     $tnm	= "闇$nm";		#名前 敵
     $tlv	= $lv;		#レベル 敵
     〜略〜
     $tlr	= $lr;		#LR
     $ck=1;
    
     $log .="$tnm が現れた!<br>\n";
     $log .="<p>どうしますか?</p>\n";
     $log .="<p>敵ステータス - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
    
     $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
    〜略〜
     $log2 .=qq|</select><br>\n|;
     $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    }
    }elsif($tm==1198){#$ckは要るのか?
     if($cmd<=0){
      $log .= "$nm は慌てて立ち去った。<br>\n";
      $tm = $cmd = 0;
      &shop_menu;
     }elsif($cmd==1){
      # 戦闘処理読み込み
      require './inc/ore_sub-battle.cgi';
      &bt_st;
      if($thp<1){
    〜略〜

  • }elsif($tm==1198){#$ckは要るのか?
     if($cmd<=0){
      $log .= "$nm は慌てて立ち去った。<br>\n";
      $tm = $cmd = 0;
      &shop_menu;
     }elsif($cmd==1){
      $type='くえすと中';
      $log .= "戦闘開始!<br>\n";
      $tm=65;#←多分ポイント。
      $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|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
      &dat_write;
     }
    }
    elsif($type eq 'くえすと中'){ require './inc/ore_sub-qtime.cgi';&quest_st; }
    sub quest_st {
     if($ck){
      # 戦闘処理読み込み
      require './inc/ore_sub-battle.cgi';
      if(!$b_n && !$tlr){
       $tm = 0;
       $ck = 0;
       $nation = 0;#猫討伐
       $type='';
       $log .="戦闘中にバグが発生しました!強制的にメイン画面に戻ります<br>\n";
      }
      if($tm==65){
       $log .="真剣勝負開始!<br>\n";
       $tm=75;
      }elsif($tm==75){
       &bt_cm;
       if($thp<1 && $hp>0){
        # 獲得金
        $G =int(rand(200))+((500*$tlv)-($lv*50));
     〜略〜
        $ck = $tm = 0;
        $nation=0;
        $type='';
       }elsif($hp<1 && $thp>0){
        $bst ='';
        $bt =0;
     〜略〜
        $ck= $tm = 0;
        $nation=0;
        $type='';
       }
      }
      $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
      $log2 .=qq|<td 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|;
      if($tsol<1||$sol<1){
       $log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
      }
      if($tm==65){
       $log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
      }elsif($tm==75){
       &spell_sp;
      }
      $log2 .=qq|<br>|;#テーブルずれ修正
      $log2 .=qq|<input type="submit" $button1 value="NEXT!">$td_end</form>\n|;#テーブル追加</tr></table>
     }
     &dat_write;
    }


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