rear_admiral_randy 1.0

data/Battleship.Rakefile

@@ -0,0 +1,9 @@
+require 'rake'
+require 'spec/rake/spectask'
+
+desc "Run all examples with RCov"
+Spec::Rake::SpecTask.new('spec_with_rcov') do |t|
+  t.spec_files = FileList['spec/**/*.rb']
+  t.rcov = true
+  t.rcov_opts = ['-t', '--exclude', 'spec', '--no-html']
+end

data/Rakefile

@@ -0,0 +1,34 @@
+require 'rake'
+require 'rake/gempackagetask'
+require 'spec/rake/spectask'
+
+desc "Run all specs"
+Spec::Rake::SpecTask.new('spec') do |t|
+  t.spec_files = FileList['spec/**/*.rb']
+  t.rcov = false
+end
+
+PKG_NAME = "rear_admiral_randy"
+PKG_VERSION   = "1.0"
+PKG_TAG = "rear_admiral_randy-1_0"
+PKG_FILE_NAME = "#{PKG_NAME}-#{PKG_VERSION}"
+
+spec = Gem::Specification.new do |s|
+  s.name = PKG_NAME
+  s.version = PKG_VERSION
+  s.files = FileList['**/*'].to_a
+  s.require_path = 'lib'
+  s.test_files = Dir.glob('spec/*_spec.rb')
+  s.bindir = 'bin'
+  s.executables = []
+  s.summary = "Battleship Player:Rear Admiral Randy"
+
+  # You may modify the following attributes.
+  s.description = "A Player that positions ships and fires completely randomly."
+  s.author = "Micah Martin"
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+  pkg.need_zip = false
+  pkg.need_tar = false
+end

data/lib/rear_admiral_randy/grid.rb

@@ -0,0 +1,83 @@
+module RearAdmiralRandy
+  class Sector
+
+    attr_accessor :ship, :attacked
+
+  end
+
+  class Grid
+
+    CoordinatesRegex = /([A-J])(10|[1-9])/
+    PlacementRegex = /([A-J]([1-9]|10)) (HORIZONTAL|VERTICAL)/
+
+
+    def initialize
+      clear
+    end
+
+    def place(ship, placement)
+      match = PlacementRegex.match(placement.upcase)
+      raise Exception.new(placement) if match.nil?
+      coordinates = match[1]
+      orientation = match[3]
+
+      start_index = index = to_index(coordinates)
+      self[index] = ship
+      (ship.length - 1).times do
+        index = orientation == "HORIZONTAL" ? right(index) : down(index)
+        self[index] = ship
+      end
+
+    end
+
+    def attack(coordinates)
+      index = to_index(coordinates)
+      sector = @sectors[index]
+      raise Exception.new(coordinates) if sector.attacked
+      sector.attacked = true
+      return sector.ship
+    end
+
+    def [](coordinates)
+      return @sectors[to_index(coordinates)]
+    end
+
+    def clear
+      @sectors = Array.new(100) { Sector.new }
+    end
+
+    private ###############################################
+
+    def []=(index, ship)
+      raise Exception.new(@sectors[index].ship) if @sectors[index].ship
+      @sectors[index].ship = ship
+    end
+
+    def to_index(coordinates)
+      match = CoordinatesRegex.match(coordinates)
+      raise Exception.new(coordinates) if match.nil?
+      row = match[1]
+      col = match[2]
+
+      row_index = row_to_index(row)
+      col_index = col.to_i - 1
+      return row_index * 10 + col_index
+    end
+
+    Rows = %w{ A B C D E F G H I J }
+    def row_to_index(row)
+      return Rows.index(row)
+    end
+
+    def right(index)
+      raise Exception.new("Sector index #{index} is on the right edge") if index % 10 == 9
+      return index + 1
+    end
+
+    def down(index)
+      raise Exception.new("Sector index #{index} is on the bottom edge") if index > 89
+      return index + 10
+    end
+
+  end
+end

data/lib/rear_admiral_randy/rear_admiral_randy.rb

@@ -0,0 +1,93 @@
+require 'rear_admiral_randy/grid'
+require 'rear_admiral_randy/ship'
+
+module RearAdmiralRandy
+
+  class RearAdmiralRandy
+
+    def new_game(opponent_name)
+      find_valid_placements
+      build_move_list
+    end
+
+    attr_reader :carrier_placement, :battleship_placement, :destroyer_placement, :submarine_placement, :patrolship_placement
+
+    def next_target
+      return @targets.shift
+    end
+
+    def target_result(coordinates, was_hit, ship_sunk)
+    end
+
+    def enemy_targeting(coordinates)
+    end
+
+    def game_over(result, disqualification_reason=nil)
+    end
+
+    private #################################################
+
+    ROWS = %w{ A B C D E F G H I J }
+
+    def random_row
+      return ROWS[rand(10)]
+    end
+
+    def random_col
+      return rand(10) + 1
+    end
+
+    def random_orientation
+      return rand(2) == 0 ? "vertical" : "horizontal"
+    end
+
+    def random_placement
+      return "#{random_row}#{random_col} #{random_orientation}"
+    end
+
+    def find_valid_placements
+      need_valid_placement = true
+      attempts = 0
+      while need_valid_placement
+        attempts += 1
+        begin
+          create_random_placements
+          attempt_placements
+          need_valid_placement = false
+        rescue Exception => e
+          # ignore
+#                  puts "failed attempt ##{attempts} : #{e}"
+        end
+      end
+    end
+
+    def create_random_placements
+      @carrier_placement = random_placement
+      @battleship_placement = random_placement
+      @destroyer_placement = random_placement
+      @submarine_placement = random_placement
+      @patrolship_placement = random_placement
+    end
+
+    def attempt_placements
+      grid = Grid.new
+      grid.place(Ship.new(5), @carrier_placement)
+      grid.place(Ship.new(4), @battleship_placement)
+      grid.place(Ship.new(3), @destroyer_placement)
+      grid.place(Ship.new(3), @submarine_placement)
+      grid.place(Ship.new(2), @patrolship_placement)
+    end
+
+    def build_move_list
+      moves = []
+      ROWS.each do |row|
+        (1..10).each do |col|
+          moves << ["#{row}#{col}", rand(10000)]
+        end
+      end
+      moves.sort! { |a, b| a[1] <=> b[1] }
+      @targets = moves.collect { |move| move[0] }
+    end
+
+  end
+end

data/lib/rear_admiral_randy/ship.rb

@@ -0,0 +1,13 @@
+module RearAdmiralRandy
+
+ class Ship
+
+    attr_reader :length
+
+    def initialize(length)
+      @length = length
+    end
+
+  end
+
+end

data/spec/rear_admiral_randy/rear_admiral_randy_spec.rb

@@ -0,0 +1,35 @@
+require File.expand_path(File.dirname(__FILE__) + "/../spec_helper")
+require 'rear_admiral_randy/rear_admiral_randy'
+
+describe RearAdmiralRandy::RearAdmiralRandy do
+
+  before(:each) do
+    @randy = RearAdmiralRandy::RearAdmiralRandy.new
+  end
+
+  it "should find valid ship placements" do
+    @randy.new_game("Captain Katie")
+
+    grid = RearAdmiralRandy::Grid.new
+    lambda do
+      grid.place(RearAdmiralRandy::Ship.new(5), @randy.carrier_placement)
+      grid.place(RearAdmiralRandy::Ship.new(4), @randy.battleship_placement)
+      grid.place(RearAdmiralRandy::Ship.new(3), @randy.destroyer_placement)
+      grid.place(RearAdmiralRandy::Ship.new(3), @randy.submarine_placement)
+      grid.place(RearAdmiralRandy::Ship.new(2), @randy.patrolship_placement)
+    end.should_not raise_error
+  end
+
+  it "should have a random move list" do
+    @randy.new_game("Captain Katie")
+
+    targets = []
+    100.times do
+      target = @randy.next_target
+      targets.should_not include(target)
+      targets << target
+    end
+    targets.sort.should_not == targets
+  end
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1,4 @@
+$: << File.expand_path(File.dirname(__FILE__) + "/../lib")
+
+require 'rubygems'
+require 'spec'

metadata

@@ -0,0 +1,63 @@
+--- !ruby/object:Gem::Specification 
+name: rear_admiral_randy
+version: !ruby/object:Gem::Version 
+  version: "1.0"
+platform: ruby
+authors: 
+- Micah Martin
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-11-02 01:00:00 -05:00
+default_executable: 
+dependencies: []
+
+description: A Player that positions ships and fires completely randomly.
+email: 
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- Battleship.Rakefile
+- lib
+- lib/rear_admiral_randy
+- lib/rear_admiral_randy/grid.rb
+- lib/rear_admiral_randy/rear_admiral_randy.rb
+- lib/rear_admiral_randy/ship.rb
+- Rakefile
+- spec
+- spec/rear_admiral_randy
+- spec/rear_admiral_randy/rear_admiral_randy_spec.rb
+- spec/spec_helper.rb
+has_rdoc: false
+homepage: 
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: Battleship Player:Rear Admiral Randy
+test_files: []
+