罪と罰++二律背反


	#-----------------------------------ここから 
       if($camp<$hcamp){
          $v1=$camp;
          $v2=$hcamp;
       } elsif($camp>$v) {
          $v1=$hcamp;
          $v2=$camp;
       } else {
          $v1="";
          $v2="";
       }

	# 統一ボーナス
	if($s_g == 0){	
		# 初期化
	    $s_g = $goal_no;
	}elsif($s_g < $goal_no){
	    if($hcamp == $camp){ # 統一国
	      # ボーナス
	      my $g = 50000;
	      $s_g = $goal_no;
	      $log .= qq|統一ボーナス $g が支給されました!!<br/>|;
	      $gold += $g;    # ボーナス金額

	    }elsif($cfs[$v1.$v2]==1){ # 同盟国
             # ボーナス
	      my $g = 20000;
	      $s_g = $goal_no;
	      $log .= qq|統一ボーナス $g が支給されました!!<br/>|;
	      $gold += $g;    # ボーナス金額
	    }
	}
	#-----------------------------------ここまで


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