# == Schema Information
#
# Table name: matches
#
#  id            :integer          not null, primary key
#  contester1_id :integer
#  contester2_id :integer
#  score1        :integer
#  score2        :integer
#  match_time    :datetime
#  challenge_id  :integer
#  contest_id    :integer
#  report        :text
#  created_at    :datetime
#  updated_at    :datetime
#  map1_id       :integer
#  map2_id       :integer
#  server_id     :integer
#  motm_id       :integer
#  demo_id       :integer
#  week_id       :integer
#  referee_id    :integer
#  forfeit       :boolean
#  diff          :integer
#  points1       :integer
#  points2       :integer
#  hltv_id       :integer
#  caster_id     :string(255)
#

class Match < ActiveRecord::Base
  include Extra

  MATCH_LENGTH = 7200

  include Exceptions

  attr_accessor :lineup, :method, :motm_name, :friendly
  attr_protected :id, :updated_at, :created_at, :diff, :points1, :points2

  has_many :matchers, dependent: :destroy
  has_many :users, through: :matchers
  has_many :predictions, dependent: :destroy
  has_many :comments, as: :commentable, order: "created_at", dependent: :destroy
  has_many :match_proposals, inverse_of: :match, dependent: :destroy
  belongs_to :challenge
  belongs_to :contest
  belongs_to :contester1, class_name: "Contester", include: "team"
  belongs_to :contester2, class_name: "Contester", include: "team"
  belongs_to :map1, class_name: "Map"
  belongs_to :map2, class_name: "Map"
  belongs_to :server
  belongs_to :referee, class_name: "User"
  belongs_to :motm, class_name: "User"
  belongs_to :demo, class_name: "DataFile"
  belongs_to :week
  belongs_to :hltv, class_name: "Server"
  belongs_to :stream, class_name: "Movie"
  belongs_to :caster, class_name: "User"

  scope :future, conditions: ["match_time > UTC_TIMESTAMP()"]
  scope :future5, conditions: ["match_time > UTC_TIMESTAMP()"], limit: 5
  scope :finished, conditions: ["score1 != 0 OR score2 != 0"]
  scope :realfinished, conditions: ["score1 IS NOT NULL AND score2 IS NOT NULL"]
  scope :unfinished, conditions: ["score1 IS NULL AND score2 IS NULL"]
  scope :unreffed, conditions: ["referee_id IS NULL"]
  scope :ordered, order: "match_time DESC"
  scope :chrono, order: "match_time ASC"
  scope :recent, limit: "8"
  scope :bigrecent, limit: "50"
  scope :active, conditions: ["contest_id IN (?)", Contest.active]
  scope :on_day,
        ->(day) { where("match_time > ? and match_time < ?", day.beginning_of_day, day.end_of_day) }
  scope :on_week,
        lambda { |time|
          where("match_time > ? and match_time < ?", time.beginning_of_week, time.end_of_week)
        }
  scope :of_contester,
        ->contester { where("contester1_id = ? OR contester2_id = ?", contester.id, contester.id) }
  scope :of_user,
        ->user { includes(:matchers).where("matchers.user_id = ?", user.id) }
  scope :of_team,
        lambda { |team|
          includes(contester1: :team, contester2: :team)
            .where("teams.id = ? OR teams_contesters.id = ?", team.id, team.id)
        }
  scope :of_userteam,
        lambda { |user, team|
          includes(matchers: { contester: :team })
            .where("teams.id = ? AND matchers.user_id = ?", team.id, user.id)
        }
  scope :within_time,
        ->(from, to) { where("match_time > ? AND match_time < ?", from.utc, to.utc) }
  scope :around,
        lambda { |time|
          where("match_time > ? AND match_time < ?",
                time.ago(MATCH_LENGTH).utc, time.ago(-MATCH_LENGTH).utc)
        }
  scope :after,
        ->time { where("match_time > ? AND match_time < ?", time.utc, time.ago(-MATCH_LENGTH).utc) }
  scope :map_stats,
        select: "map1_id, COUNT(*) as num, maps.name",
        joins: "LEFT JOIN maps ON maps.id = map1_id",
        group: "map1_id",
        having: "map1_id is not null",
        order: "num DESC"
  scope :year_stats,
        select: "id, DATE_FORMAT(match_time, '%Y') as year, COUNT(*) as num",
        conditions: "match_time > '2000-01-01 01:01:01'",
        group: "year",
        order: "num DESC"
  scope :month_stats,
        select: "id, DATE_FORMAT(match_time, '%m') as month_n,
        DATE_FORMAT(match_time, '%M') as month,
        COUNT(*) as num",
        conditions: "match_time > '2000-01-01 01:01:01'",
        group: "month",
        order: "month_n"

  validates :contester1, :contester2, :contest, presence: true
  validates :score1, :score2, format: /\A[0-9]\z/, allow_nil: true
  validates :report, length: { maximum: 64_000 }, allow_blank: true

  before_create :set_hltv
  after_create :send_notifications
  before_save :set_motm, if: proc { |match| match.motm_name && !match.motm_name.empty? }
  before_update :reset_contest, if: proc { |match| match.score1_changed? || match.score2_changed? }
  before_destroy :reset_contest
  after_save :recalculate, if: proc { |match| match.score1_changed? || match.score2_changed? }
  after_save :set_predictions, if: proc { |match| match.score1_changed? || match.score2_changed? }

  accepts_nested_attributes_for :matchers, allow_destroy: true

  def to_s
    contester1.to_s + " vs " + contester2.to_s
  end

  def score_color
    return "black" if score1.nil? || score2.nil? || contester1.nil? || contester2.nil?
    return "yellow" if score1 == score2
    return "green" if contester1.team == friendly && score1 > score2
    return "green" if contester2.team == friendly && score2 > score1
    return "red" if contester1.team == friendly && score1 < score2
    "red" if contester2.team == friendly && score2 < score1
  end

  def preds(contester)
    perc = Prediction.count(conditions: ["match_id = ? AND score#{contester} > 2", id])
    perc != 0 ? (perc / predictions.count.to_f * 100).round : 0
  end

  def mercs(contester)
    matchers.all conditions: { merc: true, contester_id: contester.id }
  end

  def get_hltv
    self.hltv = hltv ? hltv : Server.hltvs.active.unreserved_hltv_around(match_time).first
  end

  def demo_name
    Verification.uncrap("#{contest.short_name}-#{id}_#{contester1}-vs-#{contester2}")
  end

  def team1_lineup
    matchers.all(conditions: { contester_id: contester1_id })
  end

  def team2_lineup
    matchers.all(conditions: { contester_id: contester2_id })
  end

  def get_friendly(param = nil)
    if param.nil?
      friendly == contester1.team ? contester1 : contester2
    elsif param == :score
      friendly == contester1.team ? score1 : score2
    elsif param == :points
      friendly == contester1.team ? points1 : points2
    end
  end

  def get_opponent(param = nil)
    if param.nil?
      friendly == contester1.team ? contester2 : contester1
    elsif param == :score
      friendly == contester1.team ? score2 : score1
    elsif param == :points
      friendly == contester1.team ? points2 : points1
    end
  end

  def set_hltv
    get_hltv if match_time.future?
  end

  def send_notifications
    Profile.includes(:user).where(notify_any_match: 1).find_each do |p|
      Notifications.match p.user, self if p.user
    end
    contester2.team.teamers.active.each do |teamer|
      if teamer.user.profile.notify_own_match
        Notifications.challenge teamer.user, self
      end
    end
  end

  def set_motm
    self.motm = User.find_by_username(motm_name)
  end

  def set_predictions
    predictions.update_all "result = 0"
    predictions.update_all "result = 1", ["score1 = ? AND score2 = ?", score1, score2]
  end

  def after_destroy
    predictions.update_all "result = 0"
    contest.recalculate
  end

  # Since ladders are broken anyway, they are not handled here
  def reset_contest
    return if score1_was.nil? || score2_was.nil?
    return if contest.contest_type == Contest::TYPE_LEAGUE &&
              !contester2.active || !contester1.active

    if score1_was == score2_was
      contester1.draw = contester1.draw - 1
      contester2.draw = contester2.draw - 1
    elsif score1_was > score2_was
      contester1.win = contester1.win - 1
      contester2.loss = contester2.loss - 1
    elsif score1_was < score2_was
      contester1.loss = contester1.loss - 1
      contester2.win = contester2.win - 1
    end

    unless contest.contest_type == Contest::TYPE_BRACKET
      contester1.score = contester1.score - score1_was
      contester2.score = contester2.score - score2_was
      contester1.save!
      contester2.save!
    end
  end

  def recalculate
    return if score1.nil? || score2.nil?
    return if contest.contest_type == Contest::TYPE_LEAGUE &&
              !contester2.active || !contester1.active

    if score1 == score2
      contester1.draw = contester1.draw + 1
      contester2.draw = contester2.draw + 1
      contester1.trend = Contester::TREND_FLAT
      contester2.trend = Contester::TREND_FLAT
    elsif score1 > score2
      contester1.win = contester1.win + 1
      contester2.loss = contester2.loss + 1
      contester1.trend = Contester::TREND_UP
      contester2.trend = Contester::TREND_DOWN
    elsif score1 < score2
      contester1.loss = contester1.loss + 1
      contester2.win = contester2.win + 1
      contester1.trend = Contester::TREND_DOWN
      contester2.trend = Contester::TREND_UP
    end

    self.diff = diff ? diff : (contester2.score - contester1.score)

    if contest.contest_type == Contest::TYPE_LADDER
      self.points1 = contest.elo_score score1, score2, diff
      self.points2 = contest.elo_score score2, score1, -(diff)
    elsif contest.contest_type == Contest::TYPE_LEAGUE
      self.points1 = score1
      self.points2 = score2
    end

    if contest.contest_type == Contest::TYPE_LADDER
      contester1.extra = contester1.extra + contest.modulus_base / 10
      contester2.extra = contester2.extra + contest.modulus_base / 10
    end

    unless contest.contest_type == Contest::TYPE_BRACKET
      contester1.score = contester1.score + points1 < 0 ? 0 : contester1.score + points1
      contester2.score = contester2.score + points2 < 0 ? 0 : contester2.score + points2
      contester1.save!
      contester2.save!
    end
  end

  def hltv_record(addr, pwd)
    if (match_time - MATCH_LENGTH * 10) > DateTime.now.utc ||
       (match_time + MATCH_LENGTH * 10) < DateTime.now.utc
      raise Error, I18n.t(:hltv_request_20)
    end
    if hltv && hltv.recording
      raise Error, I18n.t(:hltv_already) + hltv.addr
    end
    unless get_hltv
      raise Error, I18n.t(:hltv_notavailable)
    end

    save!
    hltv.reservation = addr
    hltv.pwd = pwd
    hltv.recordable = self
    hltv.save!
  end

  def hltv_move(addr, pwd)
    raise Error, I18n.t(:hltv_notset) if hltv.nil? || hltv.recording.nil?
    Server.move hltv.reservation, addr, pwd
  end

  def hltv_stop
    raise Error, I18n.t(:hltv_notset) if hltv.nil? || hltv.recording.nil?
    Server.stop hltv.reservation
  end

  def can_create?(cuser)
    cuser && cuser.admin?
  end

  def can_update?(cuser, params = {})
    return false unless cuser
    return true if cuser.admin?

    if cuser.ref?
      if referee == cuser
        return true if Verification.contain(params,
                                            [:score1, :score2, :forfeit, :report, :demo_id,
                                             :motm_name, :matchers_attributes, :server_id])
        return true if Verification.contain(params, [:hltv]) && !demo
      end
      if Verification.contain(params, [:referee_id])
        return true if (params[:referee_id].to_i == cuser.id && referee_id.blank?) ||
                       (params[:referee_id].blank? && referee_id == cuser.id)
      end
    end

    if contester1.team.is_leader?(cuser) || contester2.team.is_leader?(cuser)
      if match_time.past?
        return true if Verification.contain(params, [:score1, :score2]) &&
                       !score1 && !score2 && !forfeit
        return true if Verification.contain(params, [:matchers_attributes])
      end
      return true if match_time.today? && Verification.contain(params, [:stream_id])
    end

    if cuser.caster? && Verification.contain(params, [:caster_id])
      return true if (params[:caster_id].to_i == cuser.id && caster_id.blank?) ||
                     (params[:caster_id].blank? && caster_id == cuser.id)
    end

    false
  end

  def can_destroy?(cuser)
    cuser && cuser.admin?
  end

  def can_make_proposal?(cuser)
    cuser && (contester1.team.is_leader?(cuser) || contester2.team.is_leader?(cuser))
  end

  def user_in_match?(user)
    user && (user.team == contester1.team || user.team == contester2.team)
  end
end