罪と罰++二律背反


sub training {
  if(!$type){

     # ・・・( 省 略 )・・・

     $log2 .=qq|<select name="cmd" size="1">\n|;
     $log2 .=qq|<option value="1">前回の対戦者</option>\n| if($tid && -e "$usrdata$tid\.cgi");
     $log2 .=qq|<option value="2">一覧から選出</option>\n|;
     $log2 .=qq|<option value="3">モンスター</option>\n|;   # ←この行を追加
     $log2 .=qq|<option value="0">やめる</option>\n|;
     $log2 .=qq|</select><br>\n|;
sub training_exe {

     # ・・・( 省 略 )・・・

     }elsif($cmd==3){
               require './inc/ore_sub-npc_2.cgi';
               local $v=int(rand(7));

               $nation=$camp; # 自国モンスター固定
               # $nation=int(rand(5)+1); # モンスター可変

               &ck_ne_2;
               $type='修行中';
               $tm=0;
               $cmd=-1;
               $log .= qq|モンスターとの対戦を行います|;
               &dat_write;
               require './inc/ore_sub-battle.cgi';     &bt_st;
     }else{
               &sele_list;
     }


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