rdgc-dm 0.1.0

data/lib/rdgc/map/room.rb

@@ -0,0 +1,69 @@
+# coding: UTF-8
+module RDGC
+  module Map
+    class Room < Area
+
+      def self.create(top, bottom, left, right)
+        room = super(top, bottom, left, right)
+        room.fill
+        room
+      end
+
+      def self.create_from_block(b, opt = nil)
+        room_w = room_size(b.width, opt)
+        room_h = room_size(b.height, opt)
+        return if (room_w <= 0 || room_h <= 0)
+
+        l_point = b.left+1 + room_point(b.width, room_w)
+        t_point = b.top+1 + room_point(b.height, room_h)
+
+        self.create(t_point, t_point + room_h - 1, l_point, l_point + room_w - 1)
+      end
+
+      def fill
+        fill_tile TileType::ROOM
+      end
+
+      private
+
+      def self.room_size(val, opt = nil)
+        opt ||= {}
+
+        # 部屋の最大サイズ = ブロックサイズ-壁1*2-通路1
+        base = val - 3
+        return 0 if base < Util::Config.min_room_size
+
+        # 最小値・最大値判定
+        min = min_size(base, opt[:min])
+        max = max_size(base, opt[:max])
+        min = max if min > max
+
+        range_rand(min, max)
+      end
+
+      def self.min_size(base, min)
+        min_room_size = Util::Config.min_room_size
+
+        return min_room_size unless min
+        min = min.to_i
+        return base if base < min
+        return min_room_size if min < min_room_size
+        min
+      end
+
+      def self.max_size(base, max)
+        return base unless max
+        max = max.to_i
+        return base if max > base
+        return Util::Config.min_room_size if max < Util::Config.min_room_size
+        max
+      end
+
+      def self.room_point(block_size, room_size)
+        # 右と下は余分に空ける => 結ぶ通路は左と上が担当
+        range_rand(0, block_size - 3 - room_size)
+      end
+
+    end
+  end
+end

data/lib/rdgc/map/tile.rb

@@ -0,0 +1,35 @@
+# coding: UTF-8
+module RDGC
+  module Map
+    class Tile
+
+      def initialize(type)
+        @type = type
+        @type.freeze
+      end
+
+      def movable?
+        return false if out?
+        return false if wall?
+        true
+      end
+
+      def out?
+        @type == :out ? true : false
+      end
+
+      def wall?
+        @type == :wall ? true : false
+      end
+
+      def room?
+        @type == :room ? true : false
+      end
+
+      def road?
+        @type == :road ? true : false
+      end
+
+    end
+  end
+end

data/lib/rdgc/map/tile_type.rb

@@ -0,0 +1,11 @@
+# coding: UTF-8
+module RDGC
+  module Map
+    module TileType
+      OUT = Tile.new(:out).freeze
+      WALL = Tile.new(:wall).freeze
+      ROOM = Tile.new(:room).freeze
+      ROAD = Tile.new(:road).freeze
+    end
+  end
+end

data/lib/rdgc/util/config.rb

@@ -0,0 +1,74 @@
+# coding: UTF-8
+module RDGC
+  module Util
+    class Config
+
+      DEFAULT_CONFIG = {
+        :min_room_size => 4,
+        :act_max_count => 200
+      }
+
+      self.class.class_eval do
+        @config_hash = DEFAULT_CONFIG
+      end
+
+      def self.set(hash)
+        return if seted?
+
+        default = nil
+        self.class.class_eval do
+          default = @config_hash
+        end
+
+        hash = default.merge(hash)
+
+        self.class.class_eval do
+          @config_hash = hash
+          @seted = true
+        end
+
+        true
+      end
+
+      def self.min_room_size
+        self.get(:min_room_size)
+      end
+
+      def self.min_block_size
+        # デフォルトのblock最小値 = 最小部屋サイズ+上下空き2+接線通路分1
+        self.min_room_size + 3
+      end
+
+      def self.act_max_count
+        self.get(:act_max_count)
+      end
+
+      def self.seted?
+        ret = false
+        self.class.class_eval do
+          ret = @seted
+        end
+        ret
+      end
+
+      def self.get(key)
+        val = nil
+        self.class.class_eval do
+          val = @config_hash[key]
+        end
+        val
+      end
+
+      def self.reset!
+        self.class.class_eval do
+          @config_hash = DEFAULT_CONFIG
+          @seted = false
+        end
+
+        true
+      end
+
+    end
+  end
+end
+

data/lib/rdgc/util/random_util.rb

@@ -0,0 +1,104 @@
+# coding: UTF-8
+module RDGC
+  module Util
+    module RandomUtil
+
+      def bool_rand
+        case rand(2)
+        when 1
+          true
+        when 0
+          false
+        end
+      end
+
+      def range_rand(s_val, e_val)
+        return s_val if e_val <= s_val
+        s_val + rand((e_val - s_val)+1)
+      end
+
+      def select_rand(hash)
+        return unless hash
+        return if hash.empty?
+
+        range_list = []
+        count = 0
+        hash.each do |k, v|
+          range = count...(count + v)
+          range_list << [range, k]
+          count += v
+        end
+        return if count <= 0
+
+        val = rand(count)
+
+        ret = nil
+        range_list.each do |r|
+          if r.first.include?(val)
+            ret = r.last
+            break
+          end
+        end
+
+        ret
+      end
+
+      def dice(n, max)
+        ret = 0
+        n.times{ret += range_rand(1, max)}
+        ret
+      end
+
+      module_function :bool_rand, :range_rand, :select_rand, :dice
+
+    end
+  end
+end
+
+class Integer
+
+  def dice(max)
+    RDGC::Util::RandomUtil.dice(self, max)
+  end
+  alias :d :dice
+
+  def method_missing(name, *args)
+    try_define_dice(name, args) ? (__send__ name) : super
+  end
+
+  def d4
+    self.dice(4)
+  end
+
+  def d6
+    self.dice(6)
+  end
+
+  def d10
+    self.dice(10)
+  end
+
+  private
+
+  def try_define_dice(name, args)
+    return false if args.size > 0
+
+    m = name.to_s.match(/^[d|D](\d+)$/)
+    return false unless m
+    return false if m[1].to_i <= 0
+
+    self.class.module_eval("def #{name};self.dice(#{m[1]});end")
+    true
+  end
+
+end
+
+class Array
+
+  def pickup!
+    ret = self.choice
+    self.delete(ret)
+    ret
+  end
+
+end

data/lib/rdgc-dm.rb

@@ -0,0 +1,17 @@
+# coding: UTF-8
+require 'rdgc/util/config'
+require 'rdgc/util/random_util'
+include RDGC::Util::RandomUtil
+
+require 'rdgc/map/tile'
+require 'rdgc/map/tile_type'
+require 'rdgc/map/area'
+require 'rdgc/map/block'
+require 'rdgc/map/room'
+require 'rdgc/map/road'
+require 'rdgc/map/board'
+
+require 'rdgc/maker/temp_block'
+require 'rdgc/maker/dungeon_maker'
+require 'rdgc/maker/divide_temp_block'
+require 'rdgc/maker/divide_dungeon_maker'

data/rdgc-dm.gemspec

@@ -0,0 +1,93 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{rdgc-dm}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["parrot_studio"]
+  s.date = %q{2010-04-01}
+  s.description = %q{    This gem is part of RDGC - Ruby(Random) Dungeon Game Core.
+    RDGC is core of random dungeon game (like rogue), make dungeon, manage mnsters etc.
+}
+  s.email = %q{parrot@users.sourceforge.jp}
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "lib/rdgc-dm.rb",
+     "lib/rdgc/maker/divide_dungeon_maker.rb",
+     "lib/rdgc/maker/divide_temp_block.rb",
+     "lib/rdgc/maker/dungeon_maker.rb",
+     "lib/rdgc/maker/temp_block.rb",
+     "lib/rdgc/map/area.rb",
+     "lib/rdgc/map/block.rb",
+     "lib/rdgc/map/board.rb",
+     "lib/rdgc/map/road.rb",
+     "lib/rdgc/map/room.rb",
+     "lib/rdgc/map/tile.rb",
+     "lib/rdgc/map/tile_type.rb",
+     "lib/rdgc/util/config.rb",
+     "lib/rdgc/util/random_util.rb",
+     "rdgc-dm.gemspec",
+     "spec/rdgc/maker/01_temp_block_spec.rb",
+     "spec/rdgc/maker/02_divide_temp_block_spec.rb",
+     "spec/rdgc/maker/03_divide_dungeon_maker_divide_spec.rb",
+     "spec/rdgc/maker/04_divide_dungeon_maker_create_spec.rb",
+     "spec/rdgc/map/01_tile_spec.rb",
+     "spec/rdgc/map/02_area_spec.rb",
+     "spec/rdgc/map/03_road_spec.rb",
+     "spec/rdgc/map/04_room_spec.rb",
+     "spec/rdgc/map/05_block_spec.rb",
+     "spec/rdgc/map/06_board_spec.rb",
+     "spec/rdgc/util/01_config_spec.rb",
+     "spec/rdgc/util/02_random_util_spec.rb",
+     "spec/spec.opts",
+     "spec/spec_helper.rb"
+  ]
+  s.homepage = %q{http://github.com/parrot-studio/rdgc-dm}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.required_ruby_version = Gem::Requirement.new(">= 1.8.7")
+  s.rubygems_version = %q{1.3.6}
+  s.summary = %q{Random Dungeon Maker from RDGC}
+  s.test_files = [
+    "spec/spec_helper.rb",
+     "spec/rdgc/util/02_random_util_spec.rb",
+     "spec/rdgc/util/01_config_spec.rb",
+     "spec/rdgc/map/04_room_spec.rb",
+     "spec/rdgc/map/06_board_spec.rb",
+     "spec/rdgc/map/01_tile_spec.rb",
+     "spec/rdgc/map/03_road_spec.rb",
+     "spec/rdgc/map/05_block_spec.rb",
+     "spec/rdgc/map/02_area_spec.rb",
+     "spec/rdgc/maker/02_divide_temp_block_spec.rb",
+     "spec/rdgc/maker/01_temp_block_spec.rb",
+     "spec/rdgc/maker/04_divide_dungeon_maker_create_spec.rb",
+     "spec/rdgc/maker/03_divide_dungeon_maker_divide_spec.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<rspec>, [">= 1.2.9"])
+    else
+      s.add_dependency(%q<rspec>, [">= 1.2.9"])
+    end
+  else
+    s.add_dependency(%q<rspec>, [">= 1.2.9"])
+  end
+end
+

data/spec/rdgc/maker/01_temp_block_spec.rb

@@ -0,0 +1,45 @@
+# coding: UTF-8
+require File.expand_path(File.dirname(__FILE__) + '../../../spec_helper')
+
+include RDGC::Map
+include RDGC::Maker
+
+describe RDGC::Maker::TempBlock, 'is temp Block for Dungeon make' do
+
+  it "create_whole_block will create from width/height" do
+    tb = TempBlock.create_whole_block(20, 30)
+    tb.should be_an_instance_of(TempBlock)
+    tb.width.should == 20
+    tb.height.should == 30
+    tb.top.should == 0
+    tb.bottom.should == 29
+    tb.left.should == 0
+    tb.right.should == 19
+  end
+
+  it "#create_pure_block provides a pure Block instance from self" do
+    tb = TempBlock.create(0, 20, 0, 20)
+
+    room = Room.create(5, 15, 5, 15)
+    road1 = Road.create(0, 4, 10, 10)
+    road2 = Road.create(16, 20, 12, 12)
+
+    tb.room = room
+    tb.roads << road1
+    tb.roads << road2
+
+    b = tb.create_pure_block
+    b.should be_an_instance_of(Block)
+    b.should_not be_an_instance_of(TempBlock)
+    b.room.should == room
+    b.roads.should be_include(road1)
+    b.roads.should be_include(road2)
+  end
+
+  it "#create_pure_block will return nil, if has no room and no road" do
+    tb = TempBlock.create_whole_block(20, 20)
+    tb.should be_an_instance_of(TempBlock)
+    tb.create_pure_block.should be_nil
+  end
+
+end

data/spec/rdgc/maker/02_divide_temp_block_spec.rb

@@ -0,0 +1,241 @@
+# coding: UTF-8
+require File.expand_path(File.dirname(__FILE__) + '../../../spec_helper')
+
+include RDGC::Map
+include RDGC::Maker
+
+describe RDGC::Maker::DivideTempBlock, 'is TempBlock for divide maker' do
+
+  describe 'block divide' do
+
+    it "#depth default is 0" do
+      dtb =DivideTempBlock.create(0, 10, 0, 10)
+      dtb.depth.should == 0
+      dtb.depth = 3
+      dtb.depth.should == 3
+    end
+
+    it "#min_size default is config value, and #min_divide_size provides twice value" do
+      dtb =DivideTempBlock.create(0, 10, 0, 10)
+      dtb.min_size.should == Util::Config.min_block_size
+      dtb.min_divide_size.should == Util::Config.min_block_size * 2
+
+      dtb.min_size = 1
+      dtb.min_size.should == Util::Config.min_block_size
+      dtb.min_divide_size.should == Util::Config.min_block_size * 2
+
+      val = Util::Config.min_block_size + 2
+      dtb.min_size = val
+      dtb.min_size.should == val
+      dtb.min_divide_size.should == val * 2
+    end
+
+    it "#opposite_direction provides opposite of divide_direction" do
+      dtb =DivideTempBlock.create_whole_block(20, 20)
+      dtb.opposite_direction.should be_nil
+      dtb.divide_direction = :vertical
+      dtb.opposite_direction.should == :horizontal
+      dtb.divide_direction = :horizontal
+      dtb.opposite_direction.should == :vertical
+    end
+
+    it "#dividable_size? check self can devidable for divide_direction" do
+      dtb_h = DivideTempBlock.create_whole_block(5, 30)
+      dtb_h.dividable_size?.should be_false
+      dtb_h.divide_direction = :vertical
+      dtb_h.dividable_size?.should be_false
+      dtb_h.divide_direction = :horizontal
+      dtb_h.dividable_size?.should be_true
+
+      dtb_w = DivideTempBlock.create_whole_block(30, 5)
+      dtb_w.dividable_size?.should be_false
+      dtb_w.divide_direction = :vertical
+      dtb_w.dividable_size?.should be_true
+      dtb_w.divide_direction = :horizontal
+      dtb_w.dividable_size?.should be_false
+    end
+
+    it "#set_dividable will set dividable, but reject if enough size" do
+      dtb =DivideTempBlock.create_whole_block(20, 20)
+      dtb.divide_direction = :vertical
+      dtb.dividable_size?.should be_true
+
+      dtb.dividable?.should be_false
+      dtb.set_dividable
+      dtb.dividable?.should be_true
+
+      dtb.dividable(false)
+      dtb.min_size = 99
+      dtb.dividable_size?.should be_false
+
+      dtb.dividable?.should be_false
+      dtb.set_dividable
+      dtb.dividable?.should be_false
+
+      dtb.dividable
+      dtb.dividable?.should be_true
+    end
+
+    it "#divide_point provides random value for divide" do
+      dtb =DivideTempBlock.create_whole_block(30, 40)
+      dtb.min_size = 5
+
+      10.times do
+        wval = dtb.divide_point(dtb.width)
+        wval.should >= dtb.min_size
+        wval.should <= (dtb.width - dtb.min_divide_size)
+
+        wval = dtb.divide_point(dtb.height)
+        wval.should >= dtb.min_size
+        wval.should <= (dtb.height - dtb.min_divide_size)
+      end
+    end
+
+    it "#divide provides new twice blocks, seted opposite direction" do
+      10.times do
+        dtb =DivideTempBlock.create_whole_block(40, 40)
+        dtb.divide_direction = :vertical
+
+        ret = dtb.divide
+        ret.should_not be_empty
+        ret.size.should <= 2
+
+        ret.each do |b|
+          b.width.should < dtb.width
+          b.height == dtb.height
+          b.divide_direction.should == :horizontal
+        end
+
+        dtb =DivideTempBlock.create_whole_block(40, 40)
+        dtb.divide_direction = :horizontal
+
+        ret = dtb.divide
+        ret.should_not be_empty
+        ret.size.should <= 2
+
+        ret.each do |b|
+          b.width.should == dtb.width
+          b.height < dtb.height
+          b.divide_direction.should == :vertical
+        end
+      end
+    end
+
+    it "#divide will returen nil, if not enough size" do
+      dtb =DivideTempBlock.create_whole_block(5, 40)
+      dtb.divide_direction = :vertical
+      dtb.divide.should be_nil
+    end
+
+  end
+
+  describe 'for road create' do
+
+    before(:each) do
+      @dtb =DivideTempBlock.create_whole_block(40, 40)
+    end
+
+    it "#road_created is sign for main road created" do
+      @dtb.road_created?.should be_false
+      @dtb.road_created
+      @dtb.road_created?.should be_true
+    end
+
+    it "#road_point is created road's coordinate for each four direction" do
+      params = {
+        :top => 1,
+        :bottom => 2,
+        :left => 3,
+        :right => 4
+      }
+
+      @dtb.road_point.should be_empty
+
+      params.each do |d, v|
+        @dtb.set_road_point(d, v)
+      end
+
+      params.each do |d, v|
+        @dtb.road_point[d].should == v
+      end
+    end
+
+    it "#remain_cling_blocks is cling block, not have room, and not connect by road from self" do
+      @dtb.remain_cling_blocks.should be_empty
+      @dtb.has_remain_cling_blocks?.should be_false
+
+      b = DivideTempBlock.create_whole_block(10, 10)
+      room = Room.create(1, 5, 1, 5)
+      b.room = room
+
+      @dtb.add_remain_cling_blocks(b)
+      @dtb.remain_cling_blocks.should be_empty
+      @dtb.has_remain_cling_blocks?.should be_false
+
+      b = DivideTempBlock.create_whole_block(10, 10)
+
+      @dtb.add_remain_cling_blocks(b)
+      @dtb.remain_cling_blocks.size.should == 1
+      @dtb.remain_cling_blocks.first.should == b
+      @dtb.has_remain_cling_blocks?.should be_true
+    end
+
+    it "#dead_end is only one road block of cross point" do
+      @dtb.dead_end?.should be_false
+
+      @dtb.create_room
+      @dtb.dead_end?.should be_false
+      @dtb.remove_all
+
+      @dtb.create_cross_point
+      @dtb.dead_end?.should be_false
+
+      @dtb.set_road_point(:top, 1)
+      @dtb.dead_end?.should be_true
+
+      @dtb.set_road_point(:bottom, 20)
+      @dtb.dead_end?.should be_false
+    end
+
+    it "#remain_direction provieds remain direction of not road create" do
+      @dtb.remain_direction.size.should == 4
+
+      @dtb.set_road_point(:top, 1)
+      @dtb.remain_direction.size.should == 3
+      @dtb.remain_direction.should_not be_include(:top)
+
+      @dtb.set_road_point(:bottom, 20)
+      @dtb.remain_direction.size.should == 2
+      @dtb.remain_direction.should_not be_include(:top)
+      @dtb.remain_direction.should_not be_include(:bottom)
+    end
+
+    it "create_road to cling block" do
+      b1 = DivideTempBlock.create(1, 10, 1, 10)
+      b2 = DivideTempBlock.create(11, 20, 1, 10)
+      b3 = DivideTempBlock.create(1, 10 , 11, 20)
+      b4 = DivideTempBlock.create(11, 20 , 11, 20)
+
+      b1.create_room
+      b2.create_cross_point
+      b3.create_cross_point
+      b4.create_room
+
+      b1.create_road_to(b2)
+      b1.roads.size.should == 2
+      b2.roads.size.should == 1
+
+      b2.create_road_to(b4)
+      b2.roads.size.should == 3
+      b4.roads.size.should == 1
+
+      b4.create_road_to(b3)
+      b4.roads.size.should == 2
+      b3.roads.size.should == 2
+
+      b3.dead_end?.should be_true
+    end
+
+  end
+
+end