gbtiles 0.0.1

data/lib/gbtiles/gbm/map/map_set.rb

@@ -0,0 +1,55 @@
+module GBTiles
+  module GBM
+    module Map
+      class MapSet
+
+        attr_accessor :objects
+        @objects
+
+        def initialize
+          @objects = []
+        end
+
+        def maps master_id = nil
+          @objects.select{ |a|
+            a.is_a? GBTiles::GBM::Map::Objects::Map
+          }.select{ |a|
+            master_id.nil? || a.object_id = master_id
+          }
+        end
+
+        def map_export_settings master_id = nil
+          @objects.select{ |a|
+            a.is_a? GBTiles::GBM::Map::Objects::MapExportSettings
+          }.select{ |a|
+            master_id.nil? || a.object_id = master_id
+          }
+        end
+
+        def map_settings master_id = nil
+          @objects.select{ |a|
+            a.is_a? GBTiles::GBM::Map::Objects::MapSettings
+          }.select{ |a|
+            master_id.nil? || a.object_id = master_id
+          }
+        end
+
+        def map_tile_data master_id = nil
+          @objects.select{ |a|
+            a.is_a? GBTiles::GBM::Map::Objects::MapTileData
+          }.select{ |a|
+            master_id.nil? || a.object_id = master_id
+          }
+        end
+
+        def producers master_id = nil
+          @objects.select{ |a|
+            a.is_a? GBTiles::GBM::Map::Objects::Producer
+          }.select{ |a|
+            master_id.nil? || a.object_id = master_id
+          }
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/object.rb

@@ -0,0 +1,21 @@
+module GBTiles
+  module GBM
+    module Map
+      class Object
+
+        attr_accessor :object_type
+        @object_type
+
+        attr_accessor :object_id
+        @object_id
+
+        attr_accessor :master_id
+        @master_id
+
+        def initialize object_type
+          @object_type = object_type
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/object_type.rb

@@ -0,0 +1,14 @@
+module GBTiles
+  module GBM
+    module Map
+      module ObjectType
+        PRODUCER            = 0x01
+        MAP                 = 0x02
+        MAP_TILE_DATA       = 0x03
+        MAP_SETTINGS        = 0x07
+        MAP_EXPORT_SETTINGS = 0x09
+        DELETED             = 0xFF
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/objects/map.rb

@@ -0,0 +1,49 @@
+module GBTiles
+  module GBM
+    module Map
+      module Objects
+        class Map < GBTiles::GBM::Map::Object
+
+          attr_accessor :name
+          @name
+
+          attr_accessor :width
+          @width
+
+          attr_accessor :height
+          @height
+
+          attr_accessor :prop_count
+          @prop_count
+
+          attr_accessor :tile_file
+          @tile_file
+
+          attr_accessor :tile_count
+          @tile_count
+
+          attr_accessor :prop_color_count
+          @prop_color_count
+
+          def initialize
+            super GBTiles::GBM::Map::ObjectType::MAP
+          end
+
+          def self.initFromBitString src
+            object = GBTiles::GBM::Map::Objects::Map.new
+
+            object.name               = GBTiles::DataType.string!(src, 128)
+            object.width              = GBTiles::DataType.long!(src)
+            object.height             = GBTiles::DataType.long!(src)
+            object.prop_count         = GBTiles::DataType.long!(src)
+            object.tile_file          = GBTiles::DataType.string!(src, 256)
+            object.tile_count         = GBTiles::DataType.long!(src)
+            object.prop_color_count   = GBTiles::DataType.long!(src)
+
+            object
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/objects/map_export_settings.rb

@@ -0,0 +1,77 @@
+module GBTiles
+  module GBM
+    module Map
+      module Objects
+        class MapExportSettings < GBTiles::GBM::Map::Object
+
+          attr_accessor :file_name
+          @file_name
+
+          attr_accessor :file_type
+          @file_type
+
+          attr_accessor :section_name
+          @section_name
+
+          attr_accessor :label_name
+          @label_name
+
+          attr_accessor :bank
+          @bank
+
+          attr_accessor :plane_count
+          @plane_count
+
+          attr_accessor :plane_order
+          @plane_order
+
+          attr_accessor :map_layout
+          @map_layout
+
+          attr_accessor :split
+          @split
+
+          attr_accessor :split_size
+          @split_size
+
+          attr_accessor :split_bank
+          @split_bank
+
+          attr_accessor :sel_tab
+          @sel_tab
+
+          attr_accessor :prop_count
+          @prop_count
+
+          attr_accessor :tile_offset
+          @tile_offset
+
+          def initialize
+            super GBTiles::GBM::Map::ObjectType::MAP_EXPORT_SETTINGS
+          end
+
+          def self.initFromBitString src
+            object = GBTiles::GBM::Map::Objects::MapExportSettings.new
+
+            object.file_name          = GBTiles::DataType.string!(src, 255)
+            object.file_type          = GBTiles::DataType.byte!(src)
+            object.section_name       = GBTiles::DataType.string!(src, 40)
+            object.label_name         = GBTiles::DataType.string!(src, 40)
+            object.bank               = GBTiles::DataType.byte!(src)
+            object.plane_count        = GBTiles::DataType.word!(src)
+            object.plane_order        = GBTiles::DataType.word!(src)
+            object.map_layout         = GBTiles::DataType.word!(src)
+            object.split              = GBTiles::DataType.boolean!(src)
+            object.split_size         = GBTiles::DataType.long!(src)
+            object.split_bank         = GBTiles::DataType.boolean!(src)
+            object.sel_tab            = GBTiles::DataType.byte!(src)
+            object.prop_count         = GBTiles::DataType.word!(src)
+            object.tile_offset        = GBTiles::DataType.word!(src)
+
+            object
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/objects/map_settings.rb

@@ -0,0 +1,73 @@
+module GBTiles
+  module GBM
+    module Map
+      module Objects
+        class MapSettings < GBTiles::GBM::Map::Object
+
+          attr_accessor :form_width
+          @form_width
+
+          attr_accessor :form_height
+          @form_height
+
+          attr_accessor :form_maximized
+          @form_maximized
+
+          attr_accessor :info_panel
+          @info_panel
+
+          attr_accessor :grid
+          @grid
+
+          attr_accessor :double_markers
+          @double_markers
+
+          attr_accessor :prop_colors
+          @prop_colors
+
+          attr_accessor :zoom
+          @zoom
+
+          attr_accessor :color_set
+          @color_set
+
+          attr_accessor :bookmarks
+          @bookmarks
+
+          attr_accessor :block_fill_pattern
+          @block_fill_pattern
+
+          attr_accessor :block_fill_width
+          @block_fill_width
+
+          attr_accessor :block_fill_height
+          @block_fill_height
+
+          def initialize
+            super GBTiles::GBM::Map::ObjectType::MAP_SETTINGS
+          end
+
+          def self.initFromBitString src
+            object = GBTiles::GBM::Map::Objects::MapSettings.new
+
+            object.form_width         = GBTiles::DataType.long!(src)
+            object.form_height        = GBTiles::DataType.long!(src)
+            object.form_maximized     = GBTiles::DataType.boolean!(src)
+            object.info_panel         = GBTiles::DataType.boolean!(src)
+            object.grid               = GBTiles::DataType.boolean!(src)
+            object.double_markers     = GBTiles::DataType.boolean!(src)
+            object.prop_colors        = GBTiles::DataType.boolean!(src)
+            object.zoom               = GBTiles::DataType.word!(src)
+            object.color_set          = GBTiles::DataType.word!(src)
+            object.bookmarks          = src.slice!(3)
+            object.block_fill_pattern = GBTiles::DataType.long!(src)
+            object.block_fill_width   = GBTiles::DataType.long!(src)
+            object.block_fill_height  = GBTiles::DataType.long!(src)
+
+            object
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/objects/map_tile_data.rb

@@ -0,0 +1,40 @@
+module GBTiles
+  module GBM
+    module Map
+      module Objects
+        class MapTileData < GBTiles::GBM::Map::Object
+
+          attr_accessor :records
+          @records
+
+          def initialize
+            super GBTiles::GBM::Map::ObjectType::MAP_TILE_DATA
+
+            @records = []
+          end
+
+          def self.initFromBitString src
+            object = GBTiles::GBM::Map::Objects::MapTileData.new
+
+            while !src.empty?
+              # Get the record
+              number = src.slice!(0..2) # Get 24-bits (3 bytes)
+              number = 0.chr + number # Convert from 24-bit to 32-bit
+              number = number.unpack("N").first # Unpack integer
+
+              object.records.push(
+                GBTiles::GBM::Map::Objects::MapTileDataRecord.initFromBitString(number)
+              )
+            end
+
+            object
+          end
+
+          def row width, row
+            @records[(width * (row - 1))..((width * row) - 1)]
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/objects/map_tile_data_record.rb

@@ -0,0 +1,40 @@
+module GBTiles
+  module GBM
+    module Map
+      module Objects
+        class MapTileDataRecord
+
+          attr_accessor :tile_number
+          @tile_number
+
+          attr_accessor :gbc_palette
+          @gbc_palette
+
+          attr_accessor :sgb_palette
+          @sgb_palette
+
+          attr_accessor :flipped_horizontally
+          @flipped_horizontally
+
+          attr_accessor :flipped_vertically
+          @flipped_vertically
+
+          def initialize
+          end
+
+          def self.initFromBitString number
+            record = GBTiles::GBM::Map::Objects::MapTileDataRecord.new
+
+            record.tile_number          = number.bits(0..9)
+            record.gbc_palette          = number.bits(10..14)
+            record.sgb_palette          = number.bits(16..18)
+            record.flipped_horizontally = number.bits(22..22)
+            record.flipped_vertically   = number.bits(23..23)
+
+            record
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/objects/producer.rb

@@ -0,0 +1,33 @@
+module GBTiles
+  module GBM
+    module Map
+      module Objects
+        class Producer < GBTiles::GBM::Map::Object
+
+          attr_accessor :name
+          @name
+
+          attr_accessor :version
+          @version
+          
+          attr_accessor :info
+          @info
+
+          def initialize
+            super GBTiles::GBM::Map::ObjectType::PRODUCER
+          end
+
+          def self.initFromBitString(src)
+            object = GBTiles::GBM::Map::Objects::Producer.new
+
+            object.name     = GBTiles::DataType.string!(src, 128)
+            object.version  = GBTiles::DataType.string!(src, 10)
+            object.info     = GBTiles::DataType.string!(src, 128)
+
+            object
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbm/map/objects/unknown.rb

@@ -0,0 +1,14 @@
+module GBTiles
+  module GBM
+    module Map
+      module Objects
+        class Unknown < GBTiles::GBM::Map::Object
+
+          attr_accessor :object_data
+          @object_data
+
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbr/cli/convert.rb

@@ -0,0 +1,58 @@
+require "gbtiles/data_type"
+
+require "gbtiles/gbr/tile_set/tile_set"
+require "gbtiles/gbr/tile_set/object"
+require "gbtiles/gbr/tile_set/object_type"
+require "gbtiles/gbr/tile_set/split_order"
+require "gbtiles/gbr/tile_set/color_set"
+
+require "gbtiles/gbr/tile_set/objects/palettes"
+require "gbtiles/gbr/tile_set/objects/producer"
+require "gbtiles/gbr/tile_set/objects/tile_data"
+require "gbtiles/gbr/tile_set/objects/tile_export"
+require "gbtiles/gbr/tile_set/objects/tile_import"
+require "gbtiles/gbr/tile_set/objects/tile_pal"
+require "gbtiles/gbr/tile_set/objects/tile_settings"
+require "gbtiles/gbr/tile_set/objects/unknown"
+
+require "gbtiles/gbr/import/gbr_file"
+
+require "gbtiles/gbr/export/asm/asm"
+
+desc "Convert a file from GBR format"
+arg_name "input"
+command :convert do |c|
+
+  c.desc "Output filename (*.s)"
+  c.flag :output
+
+  c.action do |global_options,options,args|
+    # Prepare input file
+    if !args[0].nil? then
+      # Use file
+      input_file = File.open(args[0], "rb")
+    else
+      # Use STDIN
+      input_file = $stdin
+    end
+
+    # Prepare output file
+    if !options[:output].nil? then
+      # Use file
+      output_file = File.open(options[:output], "w")
+    else
+      # Use STDOUT
+      output_file = $stdout
+    end
+
+    # Do import
+    import = GBTiles::GBR::Import::GBRFile.open(input_file)
+    input_file.close
+
+    # Do export
+    export = GBTiles::GBR::Export::ASM::ASM.new
+    export.tile_set = import.tile_set
+    export.write(output_file)
+    output_file.close
+  end
+end