delve 0.0.7

data/doc/examples/progress.rb

@@ -0,0 +1,25 @@
+require 'delve/display/display'
+require 'delve/display/curses_renderer'
+require 'delve/widgets/progress'
+
+display = Display.new CursesRenderer.new
+progress = ProgressWidget.new 3, 3, 20, 10, 10, :green, :white
+
+progress.draw display
+display.render
+
+sleep 2
+
+progress.current = 5
+progress.draw display
+display.render
+
+sleep 2
+
+progress.current = 2
+progress.draw display
+display.render
+
+sleep 2
+
+display.exit

data/doc/examples/rogue.rb

@@ -0,0 +1,15 @@
+require 'delve/generator/rogue'
+require 'delve/display/curses_renderer'
+require 'delve/display/display'
+
+display = Display.new CursesRenderer.new
+
+rogue = RogueGenerator.new 100, 40
+rogue.generate do |x, y, value|
+  display.draw(x, y, value == 1 ? '#' : '.')
+end
+display.render
+
+sleep 4
+
+display.exit

data/lib/delve.rb

@@ -0,0 +1,109 @@
+require 'fileutils'
+require 'erb'
+
+class Delve
+
+  def initialize(name)
+    raise 'Cannot create a new roguelike without a name' unless name
+    @name = name
+
+    @renderers = [:curses]
+    @generators = [:noise, :rogue, :cellular]
+    @renderer = :curses
+    @generator = :rogue
+
+    @statements = {
+      :curses => {
+        :renderer       => 'delve/display/curses_renderer',
+        :input          => 'delve/input/curses_input',
+        :new_renderer   => 'CursesRenderer.new',
+        :new_input      => 'CursesInput.new'
+      },
+      :noise => {
+        :generator      => 'delve/generator/noise',
+        :new_generator  => 'NoiseGenerator.new(128, 64, :fine)'
+      },
+      :rogue => {
+        :generator      => 'delve/generator/rogue',
+        :new_generator  => 'RogueGenerator.new(128, 64)'
+      }
+    }
+  end
+
+  def use_renderer(renderer)
+    raise "Cannot use unknown renderer: #{renderer}" unless @renderers.include? renderer
+    @renderer = renderer
+  end
+
+  def use_generator(generator)
+    raise "Cannot use unknown generator: #{generator}" unless @generators.include? generator
+    @generator = generator
+  end
+
+  def renderer
+    @renderer
+  end
+
+  def generator
+    @generator
+  end
+
+  def create_game path
+    raise "Cannot create roguelike when path already exists: #{path}/#{@name}" if Dir.exist?("#{path}/#{@name}")
+
+    @base_path = File.join(path, @name).to_s
+    create_directories
+    create_gem_files
+    create_bin_file
+    create_screens
+    create_game_classes
+  end
+
+  private
+  def create_game_classes
+    create_file_from_template 'world.rb.erb', "lib/#{@name}/world.rb"
+    create_file_from_template 'player_factory.rb.erb', "lib/#{@name}/factory/player.rb"
+  end
+
+  def create_screens
+    @generator_import       = @statements[@generator][:generator]
+    @new_generator          = @statements[@generator][:new_generator]
+    create_file_from_template 'title_screen.rb.erb', "lib/#{@name}/screens/title.rb"
+    create_file_from_template 'loading_screen.rb.erb', "lib/#{@name}/screens/loading.rb"
+    create_file_from_template 'game_screen.rb.erb', "lib/#{@name}/screens/game.rb"
+  end
+
+  def create_bin_file
+    @renderer_import        = @statements[@renderer][:renderer]
+    @input_import           = @statements[@renderer][:input]
+    @new_renderer_statement = @statements[@renderer][:new_renderer]
+    @new_input_statement    = @statements[@renderer][:new_input]
+
+    create_file_from_template 'binfile.erb', "bin/#{@name}"
+  end
+
+  def create_gem_files
+    create_file_from_template 'Gemfile.erb', 'Gemfile'
+    create_file_from_template 'gemspec.erb', "#{@name}.gemspec"
+    create_file_from_template 'README.md.erb', "README.md"
+  end
+
+  def create_file_from_template(template_name, target)
+    dir = File.expand_path(File.dirname(__FILE__))
+    content = File.read(File.join(dir, "../templates/#{template_name}"))
+    erb = ERB.new content
+    File.open(File.join(@base_path, target), 'w') do |file|
+      file.write erb.result(binding)
+    end
+  end
+
+  def create_directories
+    FileUtils.mkdir(@base_path)
+    FileUtils.mkdir(@base_path + '/bin')
+    FileUtils.mkdir(@base_path + '/lib')
+    FileUtils.mkdir(@base_path + '/lib/' + @name)
+    FileUtils.mkdir(@base_path + '/lib/' + @name + '/screens')
+    FileUtils.mkdir(@base_path + '/lib/' + @name + '/factory')
+  end
+
+end

data/lib/delve/component/collision.rb

@@ -0,0 +1,17 @@
+class CollisionComponent
+  def initialize(parent, detector)
+    raise 'Cannot create collision component when parent is nil' unless parent
+    raise 'Cannot create collision component when detector is nil' unless detector
+
+    @parent = parent
+    @detector = detector
+  end
+
+  def id
+    :collision
+  end
+
+  def free?(x, y)
+    @detector.free(x, y)
+  end
+end

data/lib/delve/component/movement.rb

@@ -0,0 +1,78 @@
+class MovementComponent
+
+  @@styles = [:fourway, :eightway]
+  @@diagonal_error = 'Style is not sufficient to move diagonally'
+
+  def initialize(parent, movement_style=:fourway)
+    raise 'Cannot create movement component when parent is nil' unless parent
+    @parent = parent
+    @style = movement_style || :fourway
+    raise 'Cannot create movement component with unknown style' unless @@styles.include?(@style)
+  end
+
+  def id
+    :movement
+  end
+
+  def style
+    @style
+  end
+
+  def north_west
+    raise @@diagonal_error unless diagonal_movement_is_valid
+    move -1, -1
+  end
+
+  def north_east
+    raise @@diagonal_error unless diagonal_movement_is_valid
+    move 1, -1
+  end
+
+  def south_west
+    raise @@diagonal_error unless diagonal_movement_is_valid
+    move -1, 1
+  end
+
+  def south_east
+    raise @@diagonal_error unless diagonal_movement_is_valid
+    move 1, 1
+  end
+
+  def north
+    move 0, -1
+  end
+  
+  def east
+    move 1, 0
+  end
+  
+  def south
+    move 0, 1
+  end
+
+  def west
+    move -1, 0
+  end
+
+  private
+  def diagonal_movement_is_valid
+    @style == :eightway
+  end
+
+  def move(dx, dy)
+    if @parent.has? :position
+      pos = @parent.get :position
+
+      if @parent.has? :collision
+        col = @parent.get :collision
+
+        if col.free?(pos.x + dx, pos.y + dy)
+          pos.displace(dx, dy)
+        end
+      else
+        pos.displace(dx, dy)
+      end
+    end
+  end
+
+end

data/lib/delve/component/position.rb

@@ -0,0 +1,30 @@
+class PositionComponent
+  def initialize(parent)
+    raise 'Cannot create position comonent when parent is nil' unless parent
+
+    @x = 0
+    @y = 0
+  end
+
+  def id
+    :position
+  end
+
+  def x
+    @x
+  end
+
+  def y
+    @y
+  end
+
+  def set(x, y)
+    @x = x
+    @y = y
+  end
+
+  def displace(dx, dy)
+    @x += dx
+    @y += dy
+  end
+end

data/lib/delve/component/symbol.rb

@@ -0,0 +1,23 @@
+class SymbolComponent
+  def initialize(parent, symbol, color=:white)
+    raise 'Cannot create symbol component when parent is nil' unless parent
+    raise 'Cannot create symbol component when symbol is nil' unless symbol
+
+    @parent = parent
+    @symbol = symbol
+    @color = color
+  end
+
+  def id
+    :symbol
+  end
+
+  def update(symbol, color=:white)
+    @symbol = symbol
+    @color = color
+  end
+
+  def symbol
+    { :char => @symbol, :color => @color }
+  end
+end

data/lib/delve/display/curses_renderer.rb

@@ -0,0 +1,63 @@
+require 'curses'
+
+class CursesRenderer
+
+  @@colors = {
+    :black      => Curses::COLOR_BLACK,
+    :red        => Curses::COLOR_RED,
+    :blue       => Curses::COLOR_BLUE,
+    :white      => Curses::COLOR_WHITE,
+    :cyan       => Curses::COLOR_CYAN,
+    :green      => Curses::COLOR_GREEN,
+    :magenta    => Curses::COLOR_MAGENTA,
+    :yellow     => Curses::COLOR_YELLOW
+  }
+
+  def init
+    Curses.init_screen
+    Curses.start_color
+    Curses.nl
+    Curses.noecho
+    Curses.curs_set 0
+    @pairs = Array.new
+  end
+
+  def exit
+    Curses.close_screen
+  end
+
+  def render(data)
+    Curses.clear
+    data.keys.each do |key|
+      draw_data = data[key]
+      draw(draw_data[:x], draw_data[:y], draw_data[:char], draw_data[:foreground], draw_data[:background])
+    end
+    Curses.refresh
+  end
+
+  def draw(x, y, char, fg, bg)
+    pair = "#{fg.to_s},#{bg.to_s}"
+    if !@pairs.include? pair
+      @pairs.push pair
+      Curses.init_pair(@pairs.index(pair)+1, @@colors[fg], @@colors[bg])
+    end
+    # Seem to need to flip x and y
+    index = @pairs.index(pair)+1
+    Curses.setpos(y, x)
+    Curses.attron(Curses.color_pair(index)) do
+      begin
+        Curses.addstr(char)
+      rescue TypeError => e
+        raise 'The char was ' + char.to_s
+      end
+    end
+  end
+
+  def width
+    Curses.cols
+  end
+
+  def height
+    Curses.lines
+  end
+end

data/lib/delve/display/display.rb

@@ -0,0 +1,51 @@
+class Display
+
+  def initialize(renderer, options=Hash.new)
+    raise 'Cannot initialize display with no renderer' unless renderer
+   
+    @renderer = renderer
+    @dirty = false
+    @render_data = Hash.new
+ 
+    default_options = {
+      :width        => 80,
+      :height       => 24,
+      :background   => :black,
+      :foreground   => :white
+    }
+
+    options.keys.each { |k| default_options[k] = options[k] }
+    @options = default_options
+    @renderer.init
+  end
+
+  def draw(x, y, char, foreground=nil, background=nil)
+    fg = foreground || @options[:foreground]
+    bg = background || @options[:background]
+    @render_data["#{x},#{y}"] = { :x => x, :y => y, :char => char, :foreground => fg, :background => bg }
+    @dirty = true
+  end
+
+  def options
+    return @options
+  end
+
+  def render
+    if @dirty
+      @renderer.render @render_data
+      @render_data = Hash.new
+    end
+  end
+
+  def exit
+    @renderer.exit
+  end
+
+  def height
+    @renderer.height
+  end
+  
+  def width
+    @renderer.width
+  end
+end

data/lib/delve/engine.rb

@@ -0,0 +1,30 @@
+class Engine
+
+  def initialize scheduler
+    raise 'Cannot initialize engine when scheduler is nil' unless scheduler
+    @scheduler = scheduler
+    @lock = 1
+  end
+
+  def locked?
+    @lock > 0
+  end
+
+  def lock
+    @lock += 1
+  end
+
+  def unlock
+    @lock -= 1
+
+    while !locked? do
+      actor = @scheduler.next
+      if !actor
+        lock
+        break
+      end
+      actor.act
+    end
+  end
+
+end