glimmer-dsl-swt 4.20.13.14 → 4.20.13.18

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

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

@@ -0,0 +1,56 @@
+# 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 'ship'
+
+class Battleship
+  module Model
+    class ShipCollection
+      BATTLESHIPS = {
+        aircraft_carrier: 5,
+        battleship: 4,
+        submarine: 3,
+        cruiser: 3,
+        destroyer: 2
+      }
+      
+      attr_reader :game, :player, :ships
+      attr_accessor :placed_count
+            
+      def initialize(game, player)
+        @game = game
+        @player = player
+        @ships = BATTLESHIPS.reduce({}) do |hash, pair|
+          name, width = pair
+          ship = Ship.new(self, name, width)
+          Glimmer::DataBinding::Observer.proc do |cell_value|
+            self.placed_count = ships.values.map(&:top_left_cell).compact.size
+          end.observe(ship, :top_left_cell)
+          hash.merge(name => ship)
+        end
+      end
+      
+      def reset!
+        ships.values.each(&:reset!)
+      end
+    end
+  end
+end

data/samples/elaborate/battleship/view/action_panel.rb

@@ -0,0 +1,59 @@
+# 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 View
+    class ActionPanel
+      include Glimmer::UI::CustomWidget
+      
+      options :game
+      
+      body {
+        composite {
+          row_layout(:horizontal) {
+            margin_width 0
+            margin_height 0
+          }
+          
+          layout_data(:center, :center, true, false)
+                  
+          @battle_button = button {
+            text 'Battle!'
+            enabled <= [game.ship_collections[:you], :placed_count, on_read: ->(c) {c == 5}]
+            
+            on_widget_selected do
+              game.battle!
+              @battle_button.enabled = false
+            end
+          }
+                  
+          button {
+            text 'Restart'
+            
+            on_widget_selected do
+              game.reset!
+            end
+          }
+        }
+      }
+    end
+  end
+end

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

@@ -0,0 +1,163 @@
+# 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 View
+    class Cell
+      include Glimmer::UI::CustomWidget
+      
+      class << self
+        attr_accessor :dragging
+        alias dragging? dragging
+      end
+      
+      COLOR_WATER = rgb(156, 211, 219)
+      COLOR_SHIP = :gray
+      COLOR_PLACED = :white
+      COLOR_EMPTY = :black
+      COLOR_NO_HIT = :white
+      COLOR_HIT = :red
+      
+      options :game, :player, :row_index, :column_index, :ship
+      option :type, default: :grid # other type is :ship
+      
+      body {
+        canvas {
+          if type == :grid
+            if player == :you
+              background <= [model, :ship, on_read: ->(s) {s ? COLOR_SHIP : COLOR_WATER}]
+            else
+              background COLOR_WATER
+            end
+          else
+            background <= [ship, :sunk, on_read: ->(s) {s ? COLOR_HIT : COLOR_PLACED}]
+            background <= [ship, :top_left_cell, on_read: ->(c) {c ? COLOR_PLACED : COLOR_SHIP}]
+          end
+          
+          rectangle(0, 0, [:max, -1], [:max, -1])
+          oval(:default, :default, 10, 10) {
+            foreground <= [model, :hit, on_read: ->(h) {h == nil ? COLOR_EMPTY : (h ? COLOR_HIT : COLOR_NO_HIT)}]
+          }
+          oval(:default, :default, 5, 5) {
+            background <= [model, :hit, on_read: ->(h) {h == nil ? COLOR_EMPTY : (h ? COLOR_HIT : COLOR_NO_HIT)}]
+          }
+          
+          on_mouse_move do |event|
+            if game.started?
+              if type == :grid
+                if player == :enemy
+                  body_root.cursor = :cross
+                else
+                  body_root.cursor = :arrow
+                end
+              else
+                body_root.cursor = :arrow
+              end
+            end
+          end
+                    
+          if player == :enemy
+            on_mouse_up do
+              game.attack!(row_index, column_index)
+            end
+          end
+          
+          if player == :you
+            on_drag_detected do |event|
+              unless game.started? || game.over?
+                Cell.dragging = true
+                body_root.cursor = :hand if type == :grid
+              end
+            end
+          
+            on_drag_set_data do |event|
+              the_ship = ship || model&.ship
+              if the_ship && !game.started? && !game.over? && !(type == :ship && the_ship.top_left_cell)
+                event.data = the_ship.name.to_s
+              else
+                event.doit = false
+                Cell.dragging = false
+              end
+            end
+            
+            on_mouse_up do
+              unless game.started? || game.over?
+                Cell.dragging = false
+                change_cursor
+              end
+            end
+                        
+            if type == :grid
+              on_mouse_move do |event|
+                unless game.started? || game.over?
+                  change_cursor
+                end
+              end
+              
+              on_mouse_hover do |event|
+                unless game.started? || game.over?
+                  change_cursor
+                end
+              end
+              
+              on_mouse_up do |event|
+                unless game.started? || game.over?
+                  begin
+                    model.ship&.toggle_orientation!
+                  rescue => e
+                    Glimmer::Config.logger.debug e.full_message
+                  end
+                  change_cursor
+                end
+              end
+              
+              on_drop do |event|
+                unless game.started? || game.over?
+                  ship_name = event.data
+                  place_ship(ship_name.to_s.to_sym) if ship_name
+                  Cell.dragging = false
+                  change_cursor
+                end
+              end
+            end
+          end
+        }
+      }
+      
+      def model
+        game.grids[player].cell_rows[row_index][column_index] if type == :grid
+      end
+      
+      def place_ship(ship_name)
+        ship = game.ship_collections[player].ships[ship_name]
+        model.place_ship!(ship)
+      end
+      
+      def change_cursor
+        if type == :grid && model.ship && !Cell.dragging?
+          body_root.cursor = model.ship.orientation == :horizontal ? :sizens : :sizewe
+        elsif !Cell.dragging?
+          body_root.cursor = :arrow
+        end
+      end
+    end
+  end
+end