red_bird-demo 0.1.0

data/data/red_bird-demo/tile_map/move_on_tiles.yml

@@ -0,0 +1,4 @@
+---
+num_hor_tiles: 12
+num_ver_tiles: 12
+tiles: "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x03\0\x02\0\x01\0\x01\0\x01\0\x03\0\x02\0\x02\0\x02\0\x01\0\x03\0\x02\0\x02\0\x01\0\x02\0\x02\0\x01\0\x01\0\x03\0\x01\0\x01\0\x01\0\x01\0\x03\0\x03\0\x01\0\x02\0\x02\0\x03\0\x02\0\x01\0\x03\0\x02\0\x02\0\x01\0\x03\0\x02\0\x02\0\x01\0\x01\0\x03\0\x03\0\x03\0\x01\0\x01\0\x01\0\x01\0\x03\0\x02\0\x02\0\x03\0\x02\0\x03\0\x01\0\x03\0\x03\0\x01\0\x03\0\x03\0\x03\0\x03\0\x01\0\x02\0\x02\0\x02\0\x03\0\x02\0\x03\0\x01\0\x01\0\x01\0\x02\0\x02\0\x01\0\x01\0\x03\0\x01\0\x01\0\x02\0\x02\0\x02\0\x03\0\x03\0\x03\0\x01\0\x02\0\x02\0\x02\0\x02\0\x01\0\x03\0\x03\0\x01\0\x02\0\x02\0\x01\0\x01\0\x03\0\x02\0\x03\0\x03\0\x01\0\x02\0\x01\0\x03\0\x01\0\x02\0\x02\0\x03\0\x03\0\x03\0\x01\0\x01\0\x02\0\x01\0\x02\0\x02\0\x02\0\x03\0\x01\0\x02\0\x03\0\x02\0\x02\0\x01\0\x02\0\x01\0\x01\0\x01\0\x02\0\x02\0\x02\0"

data/data/red_bird-demo/tile_set/move_on_tiles.yml

@@ -0,0 +1,4 @@
+---
+texture: "/img/tileset.pgm"
+width: 32
+height: 32

data/exe/red_bird-demo

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require "red_bird/demo"
+
+RedBird::Demo.run

data/lib/red_bird/demo.rb

@@ -0,0 +1,36 @@
+# SPDX-License-Identifier: MIT
+require "red_bird"
+require "red_bird/demo/version"
+
+module RedBird
+  module Demo
+    require_relative "demo/stage_main"
+    require_relative "demo/stage_move_on_tiles"
+    require_relative "demo/stage_resolution"
+    require_relative "demo/version"
+
+    class Error < StandardError; end
+
+    def self.run
+      RedBird::Engine.debug = true
+      RedBird::Engine.set_pixel_quantity(256, 240)
+      RedBird::Engine.set_screen_resolution(256, 240)
+
+      gb = {
+        stage: :main,
+        palette: nil
+      }
+      RedBird::Engine.run(gb) do |global_data|
+        case global_data[:stage]
+        when :main then
+          Demo::Stage::Main.new(global_data)
+        when :move_on_tiles then
+          Demo::Stage::MoveOnTiles.new(global_data)
+        when :resolution then
+          Demo::Stage::Resolution.new(global_data)
+        end
+      end
+
+    end
+  end
+end

data/lib/red_bird/demo/controller_move_on_tiles.rb

@@ -0,0 +1,11 @@
+# SPDX-License-Identifier: MIT
+module RedBird::Demo
+  module Controller
+    class MoveOnTiles < RedBird::Controller
+      def initialize(entity)
+        super()
+        @entity = entity
+      end
+    end
+  end
+end

data/lib/red_bird/demo/entity_move_on_tiles.rb

@@ -0,0 +1,131 @@
+# SPDX-License-Identifier: MIT
+require 'red_bird/animation'
+require 'red_bird/relative_entity'
+
+module RedBird::Demo
+  module Entity
+    class MoveOnTiles < RedBird::RelativeEntity
+
+      def initialize(relative_pos_x, relative_pos_y, palette)
+        super(relative_pos_x, relative_pos_y, 32, 32)
+
+        texture = RedBird::Texture.new(
+          Gem.datadir("red_bird-demo") + "/img/player.pgm", palette)
+
+        vertical_sprites = 1
+        horizontal_sprites = 3
+        @sprites = {
+          walking_down: RedBird::Sprite.grid(
+            texture, 0, 0,
+            horizontal_sprites, vertical_sprites,
+            @collision_box.width, @collision_box.height),
+          walking_left: RedBird::Sprite.grid(
+            texture, 0, 1 * @collision_box.height,
+            horizontal_sprites, vertical_sprites,
+            @collision_box.width, @collision_box.height),
+          walking_right: RedBird::Sprite.grid(
+            texture, 0, 2 * @collision_box.height,
+            horizontal_sprites, vertical_sprites,
+            @collision_box.width, @collision_box.height),
+          walking_up: RedBird::Sprite.grid(
+            texture, 0, 3 * @collision_box.height,
+            horizontal_sprites, vertical_sprites,
+            @collision_box.width, @collision_box.height)
+        }
+
+        @animations = {
+          walking_down: RedBird::Animation::Loop.new(
+            RedBird::Animation::Frame.sequence(
+              [
+                [7, @sprites[:walking_down][0]],
+                [7, @sprites[:walking_down][1]],
+                [7, @sprites[:walking_down][2]]
+              ])),
+          walking_left: RedBird::Animation::Loop.new(
+            RedBird::Animation::Frame.sequence(
+              [
+                [7, @sprites[:walking_left][0]],
+                [7, @sprites[:walking_left][1]],
+                [7, @sprites[:walking_left][2]]
+              ])),
+          walking_right: RedBird::Animation::Loop.new(
+            RedBird::Animation::Frame.sequence(
+              [
+                [7, @sprites[:walking_right][0]],
+                [7, @sprites[:walking_right][1]],
+                [7, @sprites[:walking_right][2]]
+              ])),
+          walking_up: RedBird::Animation::Loop.new(
+            RedBird::Animation::Frame.sequence(
+              [
+                [7, @sprites[:walking_up][0]],
+                [7, @sprites[:walking_up][1]],
+                [7, @sprites[:walking_up][2]]
+              ])),
+        }
+
+        @current_animation = :walking_right
+
+        # Make entity move in circles.
+        @walk_count = 0
+        @number_hor_steps = 72
+        @number_ver_steps = 64
+
+        @walk_right = Proc.new do
+          @collision_box.x += 4
+          @walk_count += 1
+
+          if @walk_count >= @number_hor_steps then
+            @walk_count = 0
+            @current_animation = :walking_down
+            @walk_algorithm = @walk_down
+          end
+        end
+
+        @walk_down = Proc.new do
+          @collision_box.y += 4
+          @walk_count += 1
+
+          if @walk_count >= @number_ver_steps then
+            @walk_count = 0
+            @current_animation = :walking_left
+            @walk_algorithm = @walk_left
+          end
+        end
+
+        @walk_left = Proc.new do
+          @collision_box.x -= 4
+          @walk_count += 1
+
+          if @walk_count >= @number_hor_steps then
+            @walk_count = 0
+            @current_animation = :walking_up
+            @walk_algorithm = @walk_up
+          end
+        end
+
+        @walk_up = Proc.new do
+          @collision_box.y -= 4
+          @walk_count += 1
+
+          if @walk_count >= @number_ver_steps then
+            @walk_count = 0
+            @current_animation = :walking_right
+            @walk_algorithm = @walk_right
+          end
+        end
+
+        @walk_algorithm = @walk_right
+      end
+
+      def current_sprite
+        return @animations[@current_animation].current_sprite
+      end
+
+      def tick
+        @walk_algorithm.call
+        @animations[@current_animation].animate
+      end
+    end
+  end
+end

data/lib/red_bird/demo/stage_main.rb

@@ -0,0 +1,70 @@
+# SPDX-License-Identifier: MIT
+require 'red_bird/stage'
+require "red_bird/vertical_menu"
+
+module RedBird::Demo
+  module Stage
+    class Main < RedBird::Stage
+
+      def initialize(global_data)
+        super(global_data)
+
+        if global_data[:palette].nil? then
+          global_data[:palette] = RedBird::Palette.from_yml(
+            Gem.datadir("red_bird-demo") + "/palette/palette.yml")
+          global_data[:color] = {
+            white: RedBird::Color.new(255, 255, 255, 255),
+            black: RedBird::Color.new(0, 0, 0, 255),
+          }
+        end
+
+        font = RedBird::Font.new(
+          Gem.datadir("red_bird-demo") + "/font/connection.ttf", 18)
+
+        box_style = RedBird::UIBox::Style.new(
+          Gem.datadir("red_bird-demo") + "/img/text_box.pgm",
+          global_data[:palette], global_data[:color][:black],  16, 16)
+
+        main_menu = RedBird::VerticalMenu.new(
+          box_style, 20, 20,
+          [RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new(
+               "Move on Tiles", font, global_data[:color][:white],
+               global_data[:color][:black])
+           ) { global_data[:stage] = :move_on_tiles
+             RedBird::Engine::quit_stage },
+           RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new(
+               "Resolution", font, global_data[:color][:white],
+               global_data[:color][:black])
+           ) { global_data[:stage] = :resolution
+             RedBird::Engine::quit_stage },
+           RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new(
+               "Exit", font, global_data[:color][:white],
+               global_data[:color][:black])
+           ) { RedBird::Engine::quit_game }
+          ])
+
+        self.add_entities(main_menu)
+
+        @controller = RedBird::Controller.new
+        @controller.add_command(:press_up) do
+          main_menu.pred_opt
+        end
+        @controller.add_command(:press_down) do
+          main_menu.next_opt
+        end
+        @controller.add_command(:press_confirm) do
+          main_menu.activate
+        end
+
+        @input_device = RedBird::InputDevice.new(@controller)
+        @input_device.add_keydown(RedBird::Keycode::W, :press_up)
+        @input_device.add_keydown(RedBird::Keycode::S, :press_down)
+        @input_device.add_keydown(RedBird::Keycode::F, :press_confirm)
+      end
+
+    end
+  end
+end

data/lib/red_bird/demo/stage_move_on_tiles.rb

@@ -0,0 +1,34 @@
+# SPDX-License-Identifier: MIT
+require 'red_bird/camera'
+require 'red_bird/stage'
+
+module RedBird::Demo
+  require_relative 'controller_move_on_tiles'
+  require_relative 'entity_move_on_tiles'
+  require_relative 'tile_maps'
+
+  module Stage
+    class MoveOnTiles < RedBird::Stage
+      def initialize(global_data)
+        super(global_data)
+
+        @tile_map = RedBird::Demo::TileMaps.move_on_tiles(
+          global_data[:palette])
+        RedBird::RelativeEntity.scenario = @tile_map
+
+        @player = Entity::MoveOnTiles.new(32, 64, global_data[:palette])
+        @camera = RedBird::Camera.new(@player, @tile_map)
+
+        self.add_entities([@tile_map, @player])
+        @interactions = [@camera]
+        
+        @controller = Controller::MoveOnTiles.new(@player)
+        @input_device = RedBird::InputDevice.new(@controller)
+      end
+
+      def post_tick
+        @interactions.each { |i| i.call }
+      end
+    end
+  end
+end

data/lib/red_bird/demo/stage_resolution.rb

@@ -0,0 +1,63 @@
+# SPDX-License-Identifier: MIT
+require 'red_bird/stage'
+require "red_bird/vertical_menu"
+
+module RedBird::Demo
+  module Stage
+    class Resolution < RedBird::Stage
+
+      def initialize(global_data)
+        super(global_data)
+
+        font = RedBird::Font.new(
+          Gem.datadir("red_bird-demo") + "/font/connection.ttf", 18)
+
+        box_style = RedBird::UIBox::Style.new(
+          Gem.datadir("red_bird-demo") + "/img/text_box.pgm",
+          global_data[:palette], global_data[:color][:black], 16, 16)
+
+        resolution_menu = RedBird::VerticalMenu.new(
+          box_style, 20, 20,
+          [RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new("256x240", font, global_data[:color][:white],
+                               global_data[:color][:black])
+           ) { RedBird::Engine.set_screen_resolution(256, 240) },
+           RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new("512x480", font, global_data[:color][:white],
+                               global_data[:color][:black])
+           ) { RedBird::Engine.set_screen_resolution(512, 480) },
+           RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new("800x600", font, global_data[:color][:white],
+                               global_data[:color][:black])
+           ) { RedBird::Engine.set_screen_resolution(800, 600) },
+           RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new("600x800", font, global_data[:color][:white],
+                               global_data[:color][:black])
+           ) { RedBird::Engine.set_screen_resolution(600, 800) },
+           RedBird::VerticalMenu::Option.new(
+             RedBird::Text.new("Back", font, global_data[:color][:white],
+                               global_data[:color][:black])
+           ) { global_data[:stage] = :main; RedBird::Engine::quit_stage }
+          ])
+
+        self.add_entities(resolution_menu)
+
+        @controller = RedBird::Controller.new
+        @controller.add_command(:press_up) do
+          resolution_menu.pred_opt
+        end
+        @controller.add_command(:press_down) do
+          resolution_menu.next_opt
+        end
+        @controller.add_command(:press_confirm) do
+          resolution_menu.activate
+        end
+
+        @input_device = RedBird::InputDevice.new(@controller)
+        @input_device.add_keydown(RedBird::Keycode::W, :press_up)
+        @input_device.add_keydown(RedBird::Keycode::S, :press_down)
+        @input_device.add_keydown(RedBird::Keycode::F, :press_confirm)
+      end
+    end
+  end
+end

data/lib/red_bird/demo/tile_maps.rb

@@ -0,0 +1,14 @@
+# SPDX-License-Identifier: MIT
+require "red_bird/tile_map"
+
+require_relative "tile_sets.rb"
+
+module RedBird::Demo
+  module TileMaps
+    def self.move_on_tiles(palette)
+      return RedBird::TileMap.from_yml(
+               Gem.datadir("red_bird-demo"), "/tile_map/move_on_tiles.yml",
+               TileSets.move_on_tiles(palette), 0, 0, 256, 240)
+    end
+  end
+end

data/lib/red_bird/demo/tile_sets.rb

@@ -0,0 +1,12 @@
+# SPDX-License-Identifier: MIT
+require "red_bird/tile_set"
+
+module RedBird::Demo
+  module TileSets
+    def self.move_on_tiles(palette)
+      return RedBird::TileSet.from_yml(
+               Gem.datadir("red_bird-demo"), "/tile_set/move_on_tiles.yml",
+               palette)
+    end
+  end
+end

data/lib/red_bird/demo/version.rb

@@ -0,0 +1,5 @@
+module RedBird
+  module Demo
+    VERSION = "0.1.0"
+  end
+end

data/red_bird-demo.gemspec

@@ -0,0 +1,30 @@
+require_relative 'lib/red_bird/demo/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "red_bird-demo"
+  spec.version       = RedBird::Demo::VERSION
+  spec.authors       = ["Frederico Linhares"]
+  spec.email         = ["fred@linhares.blue"]
+
+  spec.summary       = %q{RedBird demonstration.}
+  spec.homepage      = "http://projects.linhares.blue/red_bid"
+  spec.license       = "MIT"
+  spec.required_ruby_version = Gem::Requirement.new(">= 2.3.0")
+
+  spec.metadata["homepage_uri"] = spec.homepage
+  spec.metadata["source_code_uri"] =
+    "https://bitbucket.org/fredlinhares/red_bird"
+  # spec.metadata["changelog_uri"] = "TODO: Put your gem's CHANGELOG.md URL here."
+
+  # Specify which files should be added to the gem when it is released.
+  # The `git ls-files -z` loads the files in the RubyGem that have been added
+  # into git.
+  spec.files         = Dir.chdir(File.expand_path('..', __FILE__)) do
+    `git ls-files -z`.split("\x0").reject do |f|
+      f.match(%r{^(test|spec|features)/})
+    end
+  end
+  spec.bindir        = "exe"
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+end

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification
+name: red_bird-demo
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Frederico Linhares
+autorequire: 
+bindir: exe
+cert_chain: []
+date: 2020-08-28 00:00:00.000000000 Z
+dependencies: []
+description: 
+email:
+- fred@linhares.blue
+executables:
+- red_bird-demo
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- MIT.txt
+- README.md
+- Rakefile
+- SIL_CONNECTION.txt
+- bin/setup
+- data/red_bird-demo/font/connection.ttf
+- data/red_bird-demo/img/player.pgm
+- data/red_bird-demo/img/text_box.pgm
+- data/red_bird-demo/img/tileset.pgm
+- data/red_bird-demo/palette/palette.yml
+- data/red_bird-demo/tile_map/move_on_tiles.yml
+- data/red_bird-demo/tile_set/move_on_tiles.yml
+- exe/red_bird-demo
+- lib/red_bird/demo.rb
+- lib/red_bird/demo/controller_move_on_tiles.rb
+- lib/red_bird/demo/entity_move_on_tiles.rb
+- lib/red_bird/demo/stage_main.rb
+- lib/red_bird/demo/stage_move_on_tiles.rb
+- lib/red_bird/demo/stage_resolution.rb
+- lib/red_bird/demo/tile_maps.rb
+- lib/red_bird/demo/tile_sets.rb
+- lib/red_bird/demo/version.rb
+- red_bird-demo.gemspec
+homepage: http://projects.linhares.blue/red_bid
+licenses:
+- MIT
+metadata:
+  homepage_uri: http://projects.linhares.blue/red_bid
+  source_code_uri: https://bitbucket.org/fredlinhares/red_bird
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 2.3.0
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.1.4
+signing_key: 
+specification_version: 4
+summary: RedBird demonstration.
+test_files: []