summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/colonial_twilight/board.rb712
1 files changed, 416 insertions, 296 deletions
diff --git a/lib/colonial_twilight/board.rb b/lib/colonial_twilight/board.rb
index 9110755..facbbbe 100644
--- a/lib/colonial_twilight/board.rb
+++ b/lib/colonial_twilight/board.rb
@@ -1,47 +1,46 @@
#! /usr/bin/env ruby
-# -*- coding: UTF-8 -*-
+# frozen_string_literal: true
-module ColonialTwilight
+# rubocop:disable Style/AccessorGrouping
+# rubocop:disable Style/ParallelAssignment
+# rubocop:disable Layout/ArrayAlignment
+module ColonialTwilight
+ # pieces container
class Forces
-
attr_accessor :algerian_troops, :algerian_police
attr_accessor :french_troops, :french_police
attr_accessor :fln_underground, :fln_active
attr_accessor :fln_bases, :gov_bases
attr_reader :max_bases, :control
- def initialize k
- @algerian_troops = 0
- @algerian_police = 0
- @french_troops = 0
- @french_police = 0
- @gov_bases = 0
- @fln_underground = 0
- @fln_active = 0
- @fln_bases = 0
+ def initialize(kind)
+ @algerian_troops, @algerian_police = 0, 0
+ @french_troops, @french_police, @gov_bases = 0, 0, 0
+ @fln_underground, @fln_active, @fln_bases = 0, 0, 0
@max_bases = nil
@control = :uncontrolled
- rm = nil
- case k
- when :available
- rm = [:@control, :@fln_active]
- when :casualties
- rm = [:@control, :@fln_active, :@fln_bases]
- when :out_of_play
- rm = [:@control, :@algerian_troops, :@algerian_police, :@fln_active, :@fln_bases]
- when :Country
- @max_bases = 2
- rm = [:@control, :@algerian_troops, :@algerian_police, :@french_troops, :@french_police, :@gov_bases]
- when :Sector
- @max_bases = 2
- end
- rm.each do |sym|
+ @max_bases = 2 if %i[Country Sector].include? kind
+ _instance_variables(kind)&.each do |sym|
instance_variable_set(sym, nil)
- end unless rm.nil?
+ end
end
- def to_s; inspect end
+ private
+
+ def _instance_variables(kind)
+ case kind
+ when :available then %i[@control @fln_active]
+ when :casualties then %i[@control @fln_active @fln_bases]
+ when :out_of_play then %i[@control @algerian_troops @algerian_police @fln_active @fln_bases]
+ when :Country then %i[@control @algerian_troops @algerian_police @french_troops @french_police @gov_bases]
+ when :Sector then nil
+ end
+ end
+
+ public
+
+ alias to_s inspect
def inspect
"
#{gov_bases} GOV bases
@@ -55,28 +54,28 @@ module ColonialTwilight
end
def data
- h={}
- [:algerian_troops, :algerian_police, :french_troops, :french_police,
- :fln_underground, :fln_active, :fln_bases, :gov_bases, :control].each do |sym|
+ h = {}
+ %i[algerian_troops algerian_police french_troops french_police
+ fln_underground fln_active fln_bases gov_bases control].each do |sym|
h[sym] = send(sym) unless send(sym).nil?
end
h
end
def bases
- (@gov_bases||0) + (@fln_bases||0)
+ (@gov_bases || 0) + (@fln_bases || 0)
end
def fln
- guerrillas + (@fln_bases||0)
+ guerrillas + (@fln_bases || 0)
end
def guerrillas
- (@fln_underground||0) + (@fln_active||0)
+ (@fln_underground || 0) + (@fln_active || 0)
end
def gov
- gov_cubes + (@gov_bases||0)
+ gov_cubes + (@gov_bases || 0)
end
def gov_cubes
@@ -84,208 +83,323 @@ module ColonialTwilight
end
def french_cubes
- (@french_troops||0) + (@french_police||0)
+ (@french_troops || 0) + (@french_police || 0)
end
def algerian_cubes
- (@algerian_troops||0) + (@algerian_police||0)
+ (@algerian_troops || 0) + (@algerian_police || 0)
end
def troops
- (@french_troops||0) + (@algerian_troops||0)
+ (@french_troops || 0) + (@algerian_troops || 0)
end
def police
- (@french_police||0) + (@algerian_police||0)
- end
-
- def add t, n=1
- case t
- when :french_troops; @french_troops += n
- when :french_police; @french_police += n
- when :algerian_troops; @algerian_troops += n
- when :algerian_police; @algerian_police += n
- when :fln_underground; @fln_underground += n
- when :fln_active; @fln_active += n
- when :gov_base; add_base :gov_base, n
- when :fln_base; add_base :fln_base, n
+ (@french_police || 0) + (@algerian_police || 0)
+ end
+
+ def add(type, num = 1)
+ case type
+ when :french_troops then @french_troops += num
+ when :french_police then @french_police += num
+ when :algerian_troops then @algerian_troops += num
+ when :algerian_police then @algerian_police += num
+ when :fln_underground then @fln_underground += num
+ when :fln_active then @fln_active += num
+ when :gov_base then add_base(:gov_base, num)
+ when :fln_base then add_base(:fln_base, num)
else
- raise "unknown force type : #{t}"
+ raise "unknown force type : #{type}"
end
update_control
end
private
- def add_base t, n=1
- raise "too much bases in #@name (#{bases} + #{n}) > #@max_bases" if not @max_bases.nil? and (bases + n) > @max_bases
- @gov_bases += n if t == :gov_base
- @fln_bases += n if t == :fln_base
+ def add_base(type, num = 1)
+ if !@max_bases.nil? && (bases + num) > @max_bases
+ raise "too much bases in #{@name} (#{bases} + #{num}) > #{@max_bases}"
+ end
+
+ @gov_bases += num if type == :gov_base
+ @fln_bases += num if type == :fln_base
end
def update_control
return if @control.nil?
+
@control = (
case gov <=> fln
- when 0; :uncontrolled
- when 1; :GOV
- when -1; :FLN
+ when 0 then :uncontrolled
+ when 1 then :GOV
+ when -1 then :FLN
end
- )
+ )
end
-
end
+ # a point Track
class Track
attr_accessor :v
- def initialize max
+
+ def initialize(max)
@v = 0
@max = max
end
- def shift v
- w = @v + v
- return false if (w < 0 or w > @max)
+
+ def shift(val)
+ w = @v + val
+ return false if w.negative? || w > @max
+
@v = w
true
end
- def clamp v
- @v = (@v + v).clamp(0, @max)
+
+ def clamp(val)
+ @v = (@v + val).clamp(0, @max)
+ end
+
+ def data
+ @v
end
- def data; @v end
end
+ # a piece holding Box
class Box < Forces
attr_reader :name
- def initialize sym
+
+ def initialize(sym)
super sym
@name = sym
end
end
+ # a map Sector
class Sector
-
- MOUNTAIN=1
- COASTAL=2
- BORDER=4
+ MOUNTAIN = 1
+ COASTAL = 2
+ BORDER = 4
attr_reader :wilaya, :sector, :name, :resettled
attr_accessor :pop, :terror, :adjacents
attr_accessor :alignment
- def initialize n, w, s, p, attrs=0
- @name = n
- @wilaya = w
- @sector = s
- @pop = p
- @terror = 0
- @attributes = attrs
- @descr = "#{self.class.name} #@name #{@wilaya == 0 ? '' : @wilaya}" + (@sector == 0 ? '' : "-#{@sector}")
- @terrain = [mountain? ? 'mountain' : nil ,coastal? ? 'coastal' : nil, border? ? 'border' : nil].reject(&:nil?).join '/'
- @forces = Forces.new self.class.name.split('::')[-1].to_sym
+ def initialize(name, wilaya, sector, pop, attrs = 0)
+ @name = name
+ @wilaya = wilaya
+ @sector = sector
+ @pop = pop
+ @attrs = attrs
@alignment = :neutral
@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 = "#{self.class.name} #{@name} #{@wilaya.nil? ? '' : @wilaya}" + (@sector.nil? ? '' : "-#{@sector}")
+ end
+
+ public
+
+ def to_s
+ @name
end
- def to_s; @name end
def inspect
- "#@descr #@terrain
+ "#{@descr} #{@terrain}
control : #{@forces.control}
- alignment : #@alignment
- terror : #@terror
+ alignment : #{@alignment}
+ terror : #{@terror}
population : #{@pop}#{@resettled ? ' resettled' : ''}
forces : #{@forces}
adjs : #{@adjacents}"
end
def data
- { :name=>@name, :alignment=>@alignment, :terror=>@terror, :pop=>@pop, :resettled=>@resettled }.merge(@forces.data)
- end
-
- [:gov, :gov_cubes, :french_cubes, :algerian_cubes, :troops, :police, :gov_bases, :french_troops, :french_police, :algerian_troops, :algerian_police,
- :fln, :guerrillas, :fln_bases, :fln_underground, :fln_active,
- :max_bases].each do |sym|
- define_method sym do @forces.send(sym) end
- end
-
- def city?; false; end
- def country?; false; end
- def border?; (@attributes & BORDER) == BORDER end
- def coastal?; (@attributes & COASTAL) == COASTAL end
- def mountain?; (@attributes & MOUNTAIN) == MOUNTAIN end
- def support?; @alignment == :support end
- def oppose?; @alignment == :oppose end
- def neutral?; @alignment == :neutral end
- def control; @forces.control end
- def uncontrolled?; @forces.control == :uncontrolled end
- def fln_control?; @forces.control == :FLN end
- def gov_control?; @forces.control == :GOV end
- def has_terror?; terror > 0 end
- def has_gov?; not gov_bases_0? or not gov_cubes_0? end
- def has_fln?; not fln_bases_0? or fln > 0 end
- def gov_bases_0?; gov_bases == 0 end
- def fln_bases_0?; fln_bases == 0 end
- def gov_bases_1m?; gov_bases > 0 end
- def fln_bases_1m?; fln_bases > 0 end
- def pop0?; pop == 0 end
- def gov_cubes_0?; gov_cubes == 0 end
- def add t, n=1; @forces.add t, n end
- def fln_u_1l?; fln_underground < 2 end
- def fln_u_0?; fln_underground == 0 end
- def fln_u_1m?; fln_underground > 0 end
- def fln_u_2m?; fln_underground > 1 end
- def fln_u_3m?; fln_underground > 2 end
+ { name: @name, alignment: @alignment, terror: @terror, pop: @pop, resettled: @resettled }.merge(@forces.data)
+ end
+
+ %i[gov gov_cubes french_cubes algerian_cubes troops police gov_bases
+ french_troops french_police algerian_troops algerian_police
+ fln guerrillas fln_bases fln_underground fln_active max_bases].each do |sym|
+ define_method(sym) { @forces.send(sym) }
+ 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 support?
+ @alignment == :support
+ end
+
+ def oppose?
+ @alignment == :oppose
+ end
+
+ def neutral?
+ @alignment == :neutral
+ end
+
+ def control
+ @forces.control
+ end
+
+ def uncontrolled?
+ @forces.control == :uncontrolled
+ end
+
+ def fln_control?
+ @forces.control == :FLN
+ end
+
+ def gov_control?
+ @forces.control == :GOV
+ end
+
+ def has_terror?
+ terror.positive?
+ end
+
+ def has_gov?
+ !gov_bases_0? || !gov_cubes_0?
+ end
+
+ def has_fln?
+ !fln_bases_0? or fln.positive?
+ end
+
+ def gov_bases_0?
+ gov_bases.zero?
+ end
+
+ def fln_bases_0?
+ fln_bases.zero?
+ end
+
+ def gov_bases_1m?
+ gov_bases.positive?
+ end
+
+ def fln_bases_1m?
+ fln_bases.positive?
+ end
+
+ def pop0?
+ pop.zero?
+ end
+
+ def gov_cubes_0?
+ gov_cubes.zero?
+ end
+
+ def add(type, num = 1)
+ @forces.add(type, num)
+ end
+
+ def fln_u_1l?
+ fln_underground < 2
+ end
+
+ def fln_u_0?
+ fln_underground.zero?
+ end
+
+ def fln_u_1m?
+ fln_underground.positive?
+ end
+
+ def fln_u_2m?
+ fln_underground > 1
+ end
+
+ def fln_u_3m?
+ fln_underground > 2
+ end
+
def resettle!
raise "can't resettle a country " if country?
raise "can't resettle a sector with a population > 1" if @pop != 1
+
@pop = 0
@resettled = true
end
- def shift towards
+ def shift(towards)
if towards == :oppose
raise "can't shift towards oppose" if oppose?
+
@alignment = (support? ? :neutral : :oppose)
- end
- if towards == :support
+ elsif towards == :support
raise "can't shift towards support" if support?
+
@alignment = (oppose? ? :neutral : :support)
end
end
-
end
+ # a City Sector
class City < Sector
- def initialize n, w, p, attrs=0
- super n, w, 0, p, attrs
+ def initialize(name, wilaya, pop, attrs = 0)
+ super name, wilaya, 0, pop, attrs
+ end
+
+ def city?
+ true
end
- def city?; true; end
end
+ # a Country Sector
class Country < Sector
-
attr_reader :independant
- def initialize n, w
- super n, w, 0, 1, MOUNTAIN|BORDER|COASTAL
+ def initialize(name, wilaya)
+ super(name, wilaya, nil, 1, MOUNTAIN | BORDER | COASTAL)
@descr += " #{@independant ? 'Independant' : 'French'}"
end
- def add_gov_base n=1; raise "no gov bases allowed in #@name" end
- def country?; true; end
- end
+ def add_gov_base
+ raise "no gov bases allowed in #{@name}"
+ end
- class Board
+ def country?
+ true
+ end
+ end
- FRANCE_TRACK=['A','B','C','D','E','F'].freeze
+ # the game Board
+ class Board
+ FRANCE_TRACK = %w[A B C D E F].freeze
attr_reader :spaces_h, :spaces, :sectors, :cities, :countries
- [:commitment, :gov_resources, :fln_resources, :resettled_sectors, :france_track, :border_zone_track].each do |sym|
- define_method sym do instance_variable_get("@#{sym}").v end
+ %i[commitment gov_resources fln_resources resettled_sectors france_track border_zone_track].each do |sym|
+ define_method(sym) { instance_variable_get("@#{sym}").v }
end
- [:gov_bases, :french_troops, :french_police, :algerian_troops, :algerian_police, :fln_bases, :fln_underground].each do |sym|
- define_method "available_#{sym}" do @available.send(sym) end
+ %i[gov_bases french_troops french_police algerian_troops algerian_police fln_bases fln_underground].each do |sym|
+ define_method("available_#{sym}") { @available.send(sym) }
# define_method "casualties_#{sym}" do @casualties.send(sym) end
# define_method "out_of_play_#{sym}" do @out_of_play.send(sym) end
end
@@ -305,58 +419,57 @@ module ColonialTwilight
@opposition_bases = Track.new 50
@france_track = Track.new 5
@border_zone_track = Track.new 4
- feed
+ set_sectors
+ set_adjacents
@spaces = @spaces_h.values
- @sectors = @spaces.select { |s| not s.country? }
- @cities = @spaces.select { |s| s.city? }
- @countries = @spaces.select { |s| s.country? }
+ @sectors = @spaces.reject(&:country?) # FIXME
+ @cities = @spaces.select(&:city?) # FIXME
+ @countries = @spaces.select(&:country?) # FIXME
end
- def transfer n, what, from, to, towhat=nil
+ def transfer(num, what, from, to, towhat = nil)
towhat = what if towhat.nil?
from = get_var from if from.is_a? Symbol
to = get_var to if to.is_a? Symbol
- from.add what, -n
- to.add towhat, n
- { :n => n, :what => what, :from=>from, :to => to, :towhat=> towhat }
+ from.add what, -num
+ to.add towhat, num
+ { nn: num, what: what, from: from, to: to, towhat: towhat }
end
- def terror where, n
- where.terror += n
+ def terror(where, num)
+ where.terror += num
end
- def shift where, towards, n=1
- n.times do
- where.shift towards
- end
+ def shift(where, towards, num = 1)
+ num.times { where.shift towards }
end
- def shift_track what, dt
+ def shift_track(what, amount)
case what
- when :fln_resources; @fln_resources.clamp dt
- when :gov_resources; @gov_resources.clamp dt
- when :commitment; @commitment.clamp dt
- when :france_track; @france_track.shift dt
- when :border_zone_track; @border_zone_track.shift dt
+ when :fln_resources then @fln_resources.clamp amount
+ when :gov_resources then @gov_resources.clamp amount
+ when :commitment then @commitment.clamp amount
+ when :france_track then @france_track.shift amount
+ when :border_zone_track then @border_zone_track.shift amount
else
raise "shift_track: '#{what}'unknown"
end
end
- def has where=:spaces, &block
- r = search &block
- r.length > 0
+ def has(where = :spaces, &block)
+ r = search(where, &block)
+ r.length.positive?
end
- def search where=:spaces, &block
- send(where).select &block
+ def search(where = :spaces, &block)
+ send(where).select(&block)
end
- def count where=:spaces, &block
- send(where).inject(0) {|i,s| i + block.call(s) }
+ def count(where = :spaces, &block)
+ send(where).inject(0) { |i, s| i + block.call(s) }
end
- def resettle sector
+ def resettle(sector)
@spaces_h[sector].resettle!
@resettled_sectors += 1
end
@@ -364,8 +477,8 @@ module ColonialTwilight
def compute_victory_points
values = [@support_commitment.v, @opposition_bases.v]
@opposition_bases.v = 0
- @support_commitment.v = @commitment.v
- @spaces_h.each do |n,s|
+ @support_commitment.v = @commitment.v
+ @spaces_h.each do |_n, s|
@opposition_bases.clamp s.fln_bases
@opposition_bases.clamp s.pop if s.alignment == :oppose
@support_commitment.clamp s.pop if s.alignment == :support
@@ -374,85 +487,88 @@ module ColonialTwilight
end
def data
- h = { }
- [:gov_resources, :fln_resources, :commitment, :support_commitment, :opposition_bases,
- :france_track, :border_zone_track, :available, :casualties, :out_of_play].each do |sym|
+ h = {}
+ %i[gov_resources fln_resources commitment support_commitment opposition_bases
+ france_track border_zone_track available casualties out_of_play].each do |sym|
h[sym] = instance_variable_get("@#{sym}").data
end
h[:resettled_sectors] = @resettled_sectors
h[:capabilities] = @capabilities
- h[:spaces] = @spaces_h.inject([])do |a,(k,s)| a << s.data end
+ h[:spaces] = @spaces_h.inject([]) { |a, (_k, s)| a << s.data }
h
end
- def load scenario
+ def load(scenario)
case scenario
- when :short; short
- when :medium; medium
- when :full; full
+ when :short then short
+ when :medium then medium
+ when :full then full
else raise "unknown scenario : #{scenario}"
end
end
private
- def get_var sym
+ def get_var(sym)
case sym
- when :available; return @available
- when :casualties; return @casualties
- when :out_of_play; return @out_of_play
+ when :available then @available
+ when :casualties then @casualties
+ when :out_of_play then @out_of_play
else
raise "unknown Board variable named #{sym}"
end
end
- def add k, *args
- s = k.new *args
+ def add(kls, *args)
+ s = kls.new(*args)
# puts s
@names << s.name
@spaces_h[s.name] = s
end
- def adjacents i, *args
- @spaces_h[@names[i]].adjacents = args
- # @spaces_h[@names[i]].adjacents = args.map { |i| @names[i] }
- # puts @spaces_h[@names[i]]
- end
-
- def feed
- mountain=Sector::MOUNTAIN
- border=Sector::BORDER
- coastal=Sector::COASTAL
- add Sector, 'Barika', 'I', 1, 1, mountain # 0
- add Sector, 'Batna', 'I', 2, 0, mountain # 1
- add Sector, 'Biskra', 'I', 3, 0, border # 2
- add Sector, 'Oum El Bouaghi', 'I', 4, 0, mountain # 3
- add Sector, 'Tebessa', 'I', 5, 1, mountain|border # 4
- add Sector, 'Negrine', 'I', 6, 0, mountain|border # 5
- add City, 'Constantine', 'II', 2 # 6
- add Sector, 'Setif', 'II', 1, 1, mountain|coastal # 7
- add Sector, 'Philippeville', 'II', 2, 2, mountain|coastal # 8
- add Sector, 'Souk Ahras', 'II', 3, 2, coastal|border # 9
- add Sector, 'Tizi Ouzou', 'III', 1, 2, mountain|coastal # 10
- add Sector, 'Bordj Bou Arreridj', 'III', 2, 1, mountain # 11
- add Sector, 'Bougie', 'III', 3, 2, mountain|coastal # 12
- add City, 'Algiers', 'IV', 3, coastal # 13
- add Sector, 'Medea', 'IV', 1, 2, mountain|coastal # 14
- add Sector, 'Orleansville', 'IV', 2, 2, mountain|coastal # 15
- add City, 'Oran', 'V', 2, coastal # 16
- add Sector, 'Mecheria', 'V', 1, 0, mountain|border # 17
- add Sector, 'Tlemcen', 'V', 2, 1, border|coastal # 18
- add Sector, 'Sidi Bel Abbes', 'V', 3, 1, coastal # 19
- add Sector, 'Mostaganem', 'V', 4, 2, mountain|coastal # 20
- add Sector, 'Saida', 'V', 5, 0, mountain # 21
- add Sector, 'Mascara', 'V', 6, 0, mountain # 22
- add Sector, 'Tiaret', 'V', 7, 0, mountain # 23
- add Sector, 'Ain Sefra', 'V', 8, 0, border # 24
- add Sector, 'Laghouat', 'V', 9, 0 # 25
- add Sector, 'Sidi Aissa', 'VI', 1, 0, mountain # 26
- add Sector, 'Ain Oussera', 'VI', 2, 1, mountain # 27
- add Country, 'Moroco', 0 # 28
- add Country, 'Tunisia', 1 # 29
+ def adjacents(idx, *args)
+ @spaces_h[@names[idx]].adjacents = args
+ # @spaces_h[@names[idx]].adjacents = args.map { |i| @names[i] }
+ # puts @spaces_h[@names[idx]]
+ end
+
+ def set_sectors
+ mountain = Sector::MOUNTAIN
+ border = Sector::BORDER
+ coastal = Sector::COASTAL
+ add Sector, 'Barika', 'I', 1, 1, mountain
+ add Sector, 'Batna', 'I', 2, 0, mountain
+ add Sector, 'Biskra', 'I', 3, 0, border
+ add Sector, 'Oum El Bouaghi', 'I', 4, 0, mountain
+ add Sector, 'Tebessa', 'I', 5, 1, mountain | border
+ add Sector, 'Negrine', 'I', 6, 0, mountain | border
+ add City, 'Constantine', 'II', 2
+ add Sector, 'Setif', 'II', 1, 1, mountain | coastal
+ add Sector, 'Philippeville', 'II', 2, 2, mountain | coastal
+ add Sector, 'Souk Ahras', 'II', 3, 2, coastal | border
+ add Sector, 'Tizi Ouzou', 'III', 1, 2, mountain | coastal
+ add Sector, 'Bordj Bou Arreridj', 'III', 2, 1, mountain
+ add Sector, 'Bougie', 'III', 3, 2, mountain | coastal
+ add City, 'Algiers', 'IV', 3, coastal
+ add Sector, 'Medea', 'IV', 1, 2, mountain | coastal
+ add Sector, 'Orleansville', 'IV', 2, 2, mountain | coastal
+ add City, 'Oran', 'V', 2, coastal
+ add Sector, 'Mecheria', 'V', 1, 0, mountain | border
+ add Sector, 'Tlemcen', 'V', 2, 1, border | coastal
+ add Sector, 'Sidi Bel Abbes', 'V', 3, 1, coastal
+ add Sector, 'Mostaganem', 'V', 4, 2, mountain | coastal
+ add Sector, 'Saida', 'V', 5, 0, mountain
+ add Sector, 'Mascara', 'V', 6, 0, mountain
+ add Sector, 'Tiaret', 'V', 7, 0, mountain
+ add Sector, 'Ain Sefra', 'V', 8, 0, border
+ add Sector, 'Laghouat', 'V', 9, 0
+ add Sector, 'Sidi Aissa', 'VI', 1, 0, mountain
+ add Sector, 'Ain Oussera', 'VI', 2, 1, mountain
+ add Country, 'Moroco', 0
+ add Country, 'Tunisia', 1
+ end
+
+ def set_adjacents
adjacents 0, 1, 2, 3, 7, 8, 11, 26
adjacents 1, 0, 2, 3, 5
adjacents 2, 0, 1, 5, 25, 26, 29
@@ -485,16 +601,18 @@ module ColonialTwilight
adjacents 29, 2, 4, 5, 9
end
- def set_sector i, h, align=nil
- s = @spaces_h[@names[i]]
+ def set_sector(idx, opts, align = nil)
+ s = @spaces_h[@names[idx]]
s.alignment = align unless align.nil?
- s.add :gov_base, h[:govb] if h.has_key? :govb
- s.add :fln_base, h[:flnb] if h.has_key? :flnb
- s.add :french_troops, h[:ft] if h.has_key? :ft
- s.add :french_police, h[:fp] if h.has_key? :fp
- s.add :algerian_troops, h[:at] if h.has_key? :at
- s.add :algerian_police, h[:ap] if h.has_key? :ap
- s.add :fln_underground, h[:fln] if h.has_key? :fln
+ %i[gov_base fln_base french_troops french_police algerian_troops algerian_police
+ fln_underground].each { |sym| s.add(sym, opts[sym]) if opts.key? sym }
+ # s.add :gov_base, opts[:govb] if opts.key? :govb
+ # s.add :fln_base, opts[:flnb] if opts.key? :flnb
+ # s.add :french_troops, opts[:ft] if opts.key? :ft
+ # s.add :french_police, opts[:fp] if opts.key? :fp
+ # s.add :algerian_troops, opts[:at] if opts.key? :at
+ # s.add :algerian_police, opts[:ap] if opts.key? :ap
+ # s.add :fln_underground, opts[:fln] if opts.key? :fln
# puts s
end
@@ -513,35 +631,36 @@ module ColonialTwilight
resettle 'Setif'
resettle 'Tlemcen'
resettle 'Bordj Bou Arreridj'
- raise "resettled sectors not counted" if @resettled_sectors != 3
- set_sector 0, {:ap=>1, :fln=>1}, :oppose
- set_sector 2, {:fp=>1}
- set_sector 4, {:ap=>1, :fln=>1}, :oppose
- set_sector 5, {:fp=>1}
- set_sector 6, {:fp=>1}, :support
- set_sector 7, {:fln=>1}
- set_sector 8, {:ft=>4, :ap=>1, :govb=>1}
- set_sector 9, {:ft=>1, :ap=>1, :govb=>1, :fln=>1, :flnb=>1}, :oppose
- set_sector 10, {:fp=>1, :fln=>1, :flnb=>1}, :oppose
- set_sector 11, {:fp=>1}
- set_sector 12, {:fp=>1, :fln=>1, :flnb=>1}, :oppose
- set_sector 13, {:ft=>4, :at=>1, :fp=>1}, :support
- set_sector 14, {:at=>1, :govb=>1}
- set_sector 15, {:fp=>1, :ap=>1, :fln=>1, :flnb=>1}, :oppose
- set_sector 16, {:at=>1, :fp=>1, :ap=>1}, :support
- set_sector 17, {:fp=>1, :ap=>1}
- set_sector 18, {:fp=>2, :fln=>1}
- set_sector 19, {:fp=>1, :govb=>1}
- set_sector 20, {:fp=>1}
- set_sector 22, {:fp=>1}
- set_sector 23, {:fp=>1}
- set_sector 24, {:fp=>1}
+ raise 'resettled sectors not counted' if @resettled_sectors != 3
+
+ set_sector 0, { algerian_police: 1, fln_underground: 1 }, :oppose
+ set_sector 2, { french_police: 1 }
+ set_sector 4, { algerian_police: 1, fln_underground: 1 }, :oppose
+ set_sector 5, { french_police: 1 }
+ set_sector 6, { french_police: 1 }, :support
+ set_sector 7, { fln_underground: 1 }
+ set_sector 8, { french_troops: 4, algerian_police: 1, gov_base: 1 }
+ set_sector 9, { french_troops: 1, algerian_police: 1, gov_base: 1, fln_underground: 1, fln_base: 1 }, :oppose
+ set_sector 10, { french_police: 1, fln_underground: 1, fln_base: 1 }, :oppose
+ set_sector 11, { french_police: 1 }
+ set_sector 12, { french_police: 1, fln_underground: 1, fln_base: 1 }, :oppose
+ set_sector 13, { french_troops: 4, algerian_troops: 1, french_police: 1 }, :support
+ set_sector 14, { algerian_troops: 1, gov_base: 1 }
+ set_sector 15, { french_police: 1, algerian_police: 1, fln_underground: 1, fln_base: 1 }, :oppose
+ set_sector 16, { algerian_troops: 1, french_police: 1, algerian_police: 1 }, :support
+ set_sector 17, { french_police: 1, algerian_police: 1 }
+ set_sector 18, { french_police: 2, fln_underground: 1 }
+ set_sector 19, { french_police: 1, gov_base: 1 }
+ set_sector 20, { french_police: 1 }
+ set_sector 22, { french_police: 1 }
+ set_sector 23, { french_police: 1 }
+ set_sector 24, { french_police: 1 }
set_sector 27, {}, :oppose
- set_sector 28, {:fln=>4, :flnb=>2}
- set_sector 29, {:fln=>5, :flnb=>2}
+ set_sector 28, { fln_underground: 4, fln_base: 2 }
+ set_sector 29, { fln_underground: 5, fln_base: 2 }
compute_victory_points
- raise "wrong opposition + bases" if @opposition_bases.v != 19
- raise "wrong support + commitment" if @support_commitment.v != 22
+ raise "wrong opposition + bases #{@opposition_bases.v} != 19" if @opposition_bases.v != 19
+ raise "wrong support + commitment : #{@support_commitment.v} != 22" if @support_commitment.v != 22
end
def medium
@@ -551,9 +670,7 @@ module ColonialTwilight
def full
raise 'FULL scenario net implemented yet'
end
-
end
-
end
# class ColonialTwilight::Sector
@@ -561,55 +678,58 @@ end
# end
if $PROGRAM_NAME == __FILE__
- def check b
+ def check(board)
# puts '--- Coastal'
- # b.spaces.select{ |s| s.coastal? }.each { |s| puts s.name }
- raise "coastal sectors error" if b.spaces.select{ |s| s.coastal? }.size != 14
+ # board.spaces.select{ |s| s.coastal? }.each { |s| puts s.name }
+ raise 'coastal sectors error' if board.spaces.select(&:coastal?).size != 14
# puts '--- not Mountain'
- # b.spaces.select{ |s| not s.mountain? }.each { |s| puts s.name }
- raise "not moauntain sectors error" if b.spaces.select{ |s| not s.mountain? }.size != 9
+ # board.spaces.select{ |s| not s.mountain? }.each { |s| puts s.name }
+ raise 'not moauntain sectors error' if board.spaces.reject(&:mountain?).size != 9
# puts '--- Border'
- # b.spaces.select{ |s| s.border? }.each { |s| puts s.name }
- raise "border sectors error" if b.spaces.select{ |s| s.border? }.size != 9
+ # board.spaces.select{ |s| s.border? }.each { |s| puts s.name }
+ raise 'border sectors error' if board.spaces.select(&:border?).size != 9
# puts '--- City'
- # b.spaces.select{ |s| s.city? }.each { |s| puts s.name }
- raise "city sectors error" if b.spaces.select{ |s| s.city? }.size != 3
- [[0,11],[1,9],[2,9],[3,1]].each do |p,n|
+ # board.spaces.select{ |s| s.city? }.each { |s| puts s.name }
+ raise 'city sectors error' if board.spaces.select(&:city?).size != 3
+
+ [[0, 11], [1, 9], [2, 9], [3, 1]].each do |p, n|
# puts "--- Population #{p}"
- # b.spaces.select{ |s| s.pop==p }.each { |s| puts s.name }
- raise "population #{p} error" if b.spaces.select{ |s| s.pop==p}.size != n
+ # board.spaces.select{ |s| s.pop==p }.each { |s| puts s.name }
+ raise "population #{p} error" if board.spaces.select { |s| s.pop == p }.size != n
end
- raise "sectors count wrong" if b.sectors.size != 28
+ raise 'sectors count wrong' if board.sectors.size != 28
end
- def check_forces what, b, v
+ def check_forces what, board, vals
sup, opp, gov, fln = 0, 0, 0, 0
ft, fp, at, ap, g = 0, 0, 0, 0, 0
gb, fb = 0, 0
- b.spaces.each do |s|
+ board.spaces.each do |s|
sup += 1 if s.alignment == :support
opp += 1 if s.alignment == :oppose
gov += 1 if s.control == :GOV
fln += 1 if s.control == :FLN
- ft += s.french_troops unless s.french_troops.nil?
- fp += s.french_police unless s.french_police.nil?
- at += s.algerian_troops unless s.algerian_troops.nil?
- ap += s.algerian_police unless s.algerian_police.nil?
+ unless s.country?
+ ft += s.french_troops
+ fp += s.french_police
+ at += s.algerian_troops
+ ap += s.algerian_police
+ gb += s.gov_bases
+ end
g += s.fln_underground
- gb += s.gov_bases unless s.gov_bases.nil?
fb += s.fln_bases
end
- raise "wrong support #{sup} != #{v[0]}" if sup != v[0]
- raise "wrong oppose #{opp} != #{v[1]}" if opp != v[1]
- raise "wrong GOV control #{gov} != #{v[2]}" if gov != v[2]
- raise "wrong FLN control #{fln} != #{v[3]}" if fln != v[3]
- raise "wrong french troops #{ft} != #{v[4]}" if ft != v[4]
- raise "wrong french police #{fp} != #{v[5]}" if fp != v[5]
- raise "wrong algerian troops #{at} != #{v[6]}" if at != v[6]
- raise "wrong algerian police #{ap} != #{v[7]}" if ap != v[7]
- raise "wrong Guerrillas #{g} != #{v[8]}" if g != v[8]
- raise "wrong GOV bases #{gb} != #{v[9]}" if gb != v[9]
- raise "wrong FLN bases #{fb} != #{v[10]}" if fb != v[10]
+ raise "wrong support #{sup} != #{vals[0]}" if sup != vals[0]
+ raise "wrong oppose #{opp} != #{vals[1]}" if opp != vals[1]
+ raise "wrong GOV control #{gov} != #{vals[2]}" if gov != vals[2]
+ raise "wrong FLN control #{fln} != #{vals[3]}" if fln != vals[3]
+ raise "wrong french troops #{ft} != #{vals[4]}" if ft != vals[4]
+ raise "wrong french police #{fp} != #{vals[5]}" if fp != vals[5]
+ raise "wrong algerian troops #{at} != #{vals[6]}" if at != vals[6]
+ raise "wrong algerian police #{ap} != #{vals[7]}" if ap != vals[7]
+ raise "wrong Guerrillas #{g} != #{vals[8]}" if g != vals[8]
+ raise "wrong GOV bases #{gb} != #{vals[9]}" if gb != vals[9]
+ raise "wrong FLN bases #{fb} != #{vals[10]}" if fb != vals[10]
end
b = ColonialTwilight::Board.new
generated by cgit v1.1-2-g2b99 at 2024-11-21 21:22:28 +0100