glimmer-dsl-swt 4.20.13.12 → 4.20.13.16

data/samples/elaborate/battleship.rb

@@ -0,0 +1,79 @@
+# Copyright (c) 2007-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer-dsl-swt'
+require 'facets/string/titlecase'
+require 'facets/string/underscore'
+
+require_relative 'battleship/model/game'
+
+require_relative 'battleship/view/grid'
+require_relative 'battleship/view/ship_collection'
+require_relative 'battleship/view/action_panel'
+
+class Battleship
+  include Glimmer::UI::CustomShell
+
+  COLOR_WATER = rgb(156, 211, 219)
+  COLOR_SHIP = :dark_gray
+  
+  before_body do
+    @game = Model::Game.new
+  end
+    
+  after_body do
+    observe(@game, :over) do |game_over_value|
+      if game_over_value
+        game_over_message = if game_over_value == :you
+          "Game over!\nYou Won!"
+        else
+          "Game over!\nYou Lost!"
+        end
+        
+        message_box {
+          text 'Game Over!'
+          message game_over_message
+        }.open
+      end
+    end
+  end
+  
+  body {
+    shell(:no_resize) {
+      grid_layout(2, false) {
+        horizontal_spacing 15
+        vertical_spacing 15
+      }
+      
+      text 'Glimmer Battleship'
+
+      @enemy_grid = grid(game: @game, player: :enemy)
+      @enemy_ship_collection = ship_collection(game: @game, player: :enemy)
+      
+      @player_grid = grid(game: @game, player: :you)
+      @player_ship_collection = ship_collection(game: @game, player: :you)
+
+      action_panel(game: @game)
+    }
+  }
+end
+
+Battleship.launch

data/samples/elaborate/battleship/model/cell.rb

@@ -0,0 +1,84 @@
+# Copyright (c) 2007-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+class Battleship
+  module Model
+    class Cell
+      attr_reader :grid, :row_index, :column_index
+      attr_accessor :hit, :ship, :ship_index
+      alias hit? hit
+            
+      def initialize(grid, row_index, column_index)
+        @grid = grid
+        @row_index = row_index
+        @column_index = column_index
+      end
+      
+      def reset!
+        self.hit = nil
+        self.ship = nil
+        self.ship_index = nil
+      end
+      
+      # Places ship horizontally so that its top left cell is self,
+      # automatically figuring out the rest of the cells
+      def place_ship!(ship)
+        begin
+          old_ship_top_left_cell = ship.top_left_cell
+          old_ship_orientation = ship.orientation
+          ship.top_left_cell = self
+          if old_ship_top_left_cell
+            ship.cells(old_ship_orientation).each(&:reset!)
+            ship.length.times do |index|
+              if ship.orientation == :horizontal
+                old_cell = grid.cell_rows[old_ship_top_left_cell.row_index][old_ship_top_left_cell.column_index + index]
+              else
+                old_cell = grid.cell_rows[old_ship_top_left_cell.row_index + index][old_ship_top_left_cell.column_index]
+              end
+              old_cell.reset!
+            end
+          end
+          ship.length.times do |index|
+            if ship.orientation == :horizontal
+              cell = grid.cell_rows[row_index][column_index + index]
+            else
+              cell = grid.cell_rows[row_index + index][column_index]
+            end
+            cell.ship = ship
+            cell.ship_index = index
+          end
+        rescue => e
+          Glimmer::Config.logger.debug(e.full_message)
+        end
+      end
+      
+      def hit=(value)
+        @hit = value
+        ship&.sunk = true if ship&.all_cells_hit?
+        grid.game.over = grid.game.opposite_player(grid.player) if grid.game.started? && grid.game.ship_collections[grid.player].ships.values.map(&:sunk).all?
+      end
+      
+      def to_s
+        "#{(Grid::ROW_ALPHABETS[row_index])}#{(column_index + 1)}"
+      end
+    end
+  end
+end

data/samples/elaborate/battleship/model/game.rb

@@ -0,0 +1,143 @@
+# Copyright (c) 2007-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require_relative 'grid'
+require_relative 'ship'
+
+class Battleship
+  module Model
+    class Game
+      BATTLESHIPS = {
+        aircraft_carrier: 5,
+        battleship: 4,
+        submarine: 3,
+        cruiser: 3,
+        destroyer: 2
+      }
+      PLAYERS = [:enemy, :you]
+      
+      attr_reader :grids, :ship_collections
+      attr_accessor :started, :current_player, :over
+      alias started? started
+      alias over? over
+            
+      def initialize
+        @grids = PLAYERS.reduce({}) { |hash, player| hash.merge(player => Grid.new(self, player)) }
+        @ship_collections = PLAYERS.reduce({}) { |hash, player| hash.merge(player => ShipCollection.new(self, player)) }
+        @started = false
+        @current_player = :enemy
+        @enemy_moves = []
+      end
+      
+      def battle!
+        self.started = true
+        place_enemy_ships!
+        enemy_attack!
+      end
+      
+      def reset!
+        self.started = false
+        self.over = false
+        self.current_player = :enemy
+        @grids.values.each(&:reset!)
+        @ship_collections.values.each(&:reset!)
+        @enemy_moves = []
+      end
+      
+      def attack!(row_index, column_index)
+        return unless started?
+        cell = opposite_grid.cell_rows[row_index][column_index]
+        return unless cell.hit.nil?
+        cell.hit = !!cell.ship
+        switch_player!
+        enemy_attack! if current_player == :enemy
+      end
+      
+      # Enemy attack artificial intelligence
+      def enemy_attack!
+        begin
+          cell = nil
+          if @enemy_moves.any? && @enemy_moves.last.hit? && !@enemy_moves.last.ship.sunk?
+            if @enemy_moves[-2].nil? || !@enemy_moves[-2].hit?
+              orientation = Ship::ORIENTATIONS[(rand * 2).to_i]
+            else
+              orientation = @enemy_moves.last.row_index == @enemy_moves[-2].row_index ? :horizontal : :vertical
+            end
+            offset = 1 * ((rand * 2).to_i == 1 ? 1 : -1)
+            if orientation == :horizontal
+              offset *= -1 if [-1, Grid::WIDTH].include?(@enemy_moves.last.column_index + offset)
+              cell = opposite_grid.cell_rows[@enemy_moves.last.row_index][@enemy_moves.last.column_index + offset]
+            else
+              offset *= -1 if [-1, Grid::HEIGHT].include?(@enemy_moves.last.row_index + offset)
+              cell = opposite_grid.cell_rows[@enemy_moves.last.row_index + offset][@enemy_moves.last.column_index]
+            end
+            cell = nil if cell.hit?
+          end
+          if cell.nil?
+            random_row_index = (rand * Grid::HEIGHT).to_i
+            random_column_index = (rand * Grid::WIDTH).to_i
+            cell = opposite_grid.cell_rows[random_row_index][random_column_index]
+          end
+        end until cell.hit.nil?
+        attack!(cell.row_index, cell.column_index)
+        @enemy_moves << cell
+      end
+      
+      def opposite_grid
+        grids[opposite_player]
+      end
+      
+      def opposite_player(player = nil)
+        player ||= current_player
+        PLAYERS[(PLAYERS.index(player) + 1) % PLAYERS.size]
+      end
+      
+      def switch_player!
+        self.current_player = opposite_player
+      end
+      
+      def over=(value)
+        @over = value
+        self.started = false
+      end
+      
+      private
+      
+      def place_enemy_ships!
+        ship_collection = @ship_collections[:enemy]
+        ship_collection.ships.values.each do |ship|
+          until ship.top_left_cell
+            random_row_index = (rand * Grid::HEIGHT).to_i
+            random_column_index = (rand * Grid::WIDTH).to_i
+            enemy_grid = @grids[:enemy]
+            top_left_cell = enemy_grid.cell_rows[random_row_index][random_column_index]
+            top_left_cell.place_ship!(ship)
+            begin
+              ship.toggle_orientation! if (rand * 2).to_i == 1
+            rescue => e
+              Glimmer::Config.logger.debug(e.full_message)
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/battleship/model/grid.rb

@@ -0,0 +1,54 @@
+# Copyright (c) 2007-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require_relative 'cell'
+
+class Battleship
+  module Model
+    class Grid
+      HEIGHT = 10
+      WIDTH = 10
+      ROW_ALPHABETS = %w[A B C D E F G H I J]
+      
+      attr_reader :game, :player, :cell_rows
+            
+      def initialize(game, player)
+        @game = game
+        @player = player
+        build
+      end
+      
+      def reset!
+        @cell_rows.flatten.each(&:reset!)
+      end
+
+      private
+            
+      def build
+        @cell_rows = HEIGHT.times.map do |row_index|
+          WIDTH.times.map do |column_index|
+            Cell.new(self, row_index, column_index)
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/battleship/model/ship.rb

@@ -0,0 +1,114 @@
+# Copyright (c) 2007-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require_relative 'cell'
+
+class Battleship
+  module Model
+    class Ship
+      ORIENTATIONS = [:horizontal, :vertical]
+      
+      attr_reader :ship_collection, :name, :length
+      attr_accessor :orientation, :top_left_cell, :sunk
+      alias sunk? sunk
+            
+      def initialize(ship_collection, name, length)
+        @ship_collection = ship_collection
+        @name = name
+        @length = length
+        @orientation = :horizontal
+      end
+      
+      def to_s
+        "#{name.titlecase} (#{length} cells)"
+      end
+      
+      def top_left_cell=(a_cell)
+        if a_cell
+          raise "Top left cell #{a_cell} already occupied by ship #{a_cell.ship.name}" if a_cell.ship && a_cell.ship != self
+          raise "Top left cell #{a_cell} cannot fit ship #{name}" if a_cell.column_index + length > Grid::WIDTH
+          grid = ship_collection.game.grids[ship_collection.player]
+          1.upto(length - 1).each do |index|
+            if orientation == :horizontal
+              other_cell = grid.cell_rows[a_cell.row_index][a_cell.column_index + index]
+            else
+              other_cell = grid.cell_rows[a_cell.row_index + index][a_cell.column_index]
+            end
+            raise "Cell #{other_cell} already occupied by ship #{other_cell.ship.name}" if other_cell.ship && other_cell.ship != self
+          end
+        end
+        @top_left_cell = a_cell
+      end
+      
+      def orientation=(value)
+        if top_left_cell
+          if value == :horizontal
+            if top_left_cell.column_index + length > Grid::WIDTH
+              raise "Top left cell #{top_left_cell} cannot fit ship #{name}"
+            end
+          else
+            if top_left_cell.row_index + length > Grid::HEIGHT
+              raise "Top left cell #{top_left_cell} cannot fit ship #{name}"
+            end
+          end
+          if cells(value)[1..-1].map(&:ship).reject {|s| s == self}.any?
+            raise 'Orientation #{value} cells occupied by another ship'
+          end
+          if value != @orientation
+            cells.each(&:reset!)
+            @orientation = value
+            cells.each_with_index do |cell, index|
+              cell.ship = self
+              cell.ship_index = index
+            end
+          end
+        end
+      end
+        
+      def cells(for_orientation = nil)
+        for_orientation ||= orientation
+        if top_left_cell
+          length.times.map do |index|
+            if for_orientation == :horizontal
+              top_left_cell.grid.cell_rows[top_left_cell.row_index][top_left_cell.column_index + index]
+            else
+              top_left_cell.grid.cell_rows[top_left_cell.row_index + index][top_left_cell.column_index]
+            end
+          end
+        end
+      end
+      
+      def all_cells_hit?
+        cells&.map(&:hit)&.all? {|h| h == true}
+      end
+      
+      def reset!
+        self.sunk = nil
+        self.top_left_cell = nil
+        self.orientation = :horizontal
+      end
+      
+      def toggle_orientation!
+        self.orientation = ORIENTATIONS[(ORIENTATIONS.index(orientation) + 1) % ORIENTATIONS.length]
+      end
+    end
+  end
+end