# frozen_string_literal: true

require_relative 'forces'

module ColonialTwilight
  class Track
    attr_accessor :v, :name

    def initialize(max, name)
      @v = 0
      @max = max
      @name = name
    end

    def max?
      @v == @max
    end

    def min?
      @v.zero?
    end

    def shift(val)
      @v += val
      raise "out of track #{@v}" if @v.negative? || @v > @max

      @v
    end

    def clamp(val)
      @v = (@v + val).clamp(0, @max)
    end

    def data
      @v
    end
  end

  class Box < Forces
  end

  class Sector
    MOUNTAIN = 1
    COASTAL = 2
    BORDER = 4

    attr_reader :wilaya, :sector, :name, :resettled
    attr_accessor :pop, :terror, :adjacents, :alignment, :control

    def initialize(name, wilaya, sector, pop, attrs = 0)
      @name = name
      @wilaya = wilaya
      @sector = sector
      @pop = pop
      @attrs = attrs
      @alignment = :neutral
      @control = :uncontrolled
      @resettled = false
      @terror = 0
      @forces = Forces.new self.class.name.split('::')[-1].to_sym
      _compute_strings
    end

    private

    def _compute_strings
      @terrain = %i[mountain coastal border].map { |s| send("#{s}?") ? s : nil }.reject(&:nil?).join('/')
      @descr = "#{@name} #{self.class.name.split('::')[-1]}#{number}"
    end

    def number
      return '' if @wilaya.nil? && @sector.nil?

      @descr = "(#{@wilaya}-#{@sector})"
    end

    def update_control
      ctr = @control
      @control = (
        case @forces.gov <=> @forces.fln
        when  0 then :uncontrolled
        when  1 then :GOV
        when -1 then :FLN
        end
      )
      @control != ctr
    end

    public

    def to_s
      @name
    end

    def inspect
      "\n#{@descr} : #{@terrain}
      population : #{@pop}#{@resettled ? ' resettled' : ''}
      control    : #{@control}
      alignment  : #{@alignment}
      terror     : #{@terror}
      #{@forces}
      adjs       : #{@adjacents}"
    end

    def data
      { name: @name, alignment: @alignment, terror: @terror, pop: @pop, resettled: @resettled }.merge(@forces.data)
    end

    %i[gov gov_bases gov_cubes french_cubes algerian_cubes troops police
       french_troops french_police algerian_troops algerian_police
       fln fln_bases guerrillas fln_underground fln_active bases max_bases].each do |sym|
      define_method(sym) { @forces.send(sym) }
    end

    def sector?
      true
    end

    def city?
      false
    end

    def country?
      false
    end

    def border?
      (@attrs & BORDER) == BORDER
    end

    def coastal?
      (@attrs & COASTAL) == COASTAL
    end

    def mountain?
      (@attrs & MOUNTAIN) == MOUNTAIN
    end

    def terror?
      @terror.positive?
    end

    def support?
      @alignment == :support
    end

    def oppose?
      @alignment == :oppose
    end

    def neutral?
      @alignment == :neutral
    end

    def uncontrolled?
      @control == :uncontrolled
    end

    def fln_control?
      @control == :FLN
    end

    def gov_control?
      @control == :GOV
    end

    def add(type, num = 1)
      @forces.add(type, num)
      update_control
    end

    def shift_terror(num = 1)
      raise 'terror cant be negative' if @terror.zero? && num.negative?

      @terror += num
    end

    def resettled?
      @resettled
    end

    def resettle!
      raise 'cannot resettle a country' if country?
      raise 'cannot resettle a sector with a population =! 1' if @pop != 1

      @pop = 0
      @resettled = true
    end

    def shift(towards)
      if towards == :oppose
        raise 'cannot shift towards oppose' if oppose?

        @alignment = (support? ? :neutral : :oppose)
      elsif towards == :support
        raise 'cannot shift towards support' if support?

        @alignment = (oppose? ? :neutral : :support)
      else
        raise "unknown shift direction : #{towards}"
      end
    end

    def activate(num)
      @forces.activate(num)
    end
  end

  class City < Sector
    def initialize(name, wilaya, pop, attrs = 0)
      super name, wilaya, 0, pop, attrs
    end

    def sector?
      false
    end

    def city?
      true
    end
  end

  # if independent, FLN may Rally, March and Extort in these Countries,
  # but their Population is never counted in the total Opposition
  class Country < Sector
    attr_reader :independent

    def initialize(name)
      super(name, nil, nil, 1, MOUNTAIN | BORDER | COASTAL)
      @independent = false
      @descr += ' : French'
    end

    def update_control; end

    def sector?
      false
    end

    def country?
      true
    end

    def independent?
      @independent
    end

    def independent!
      @independent = true
      @descr.gsub!(/French/, 'Independent')
      @independent
    end
  end
end