Discussions générales de making

class Game_Map
   attr_accessor :map
   alias soko_setup setup
   def setup(id)
      soko_setup(id)
      @level = Level.new
      @level.asXML
   end
end
class Game_Event
   def first_is_comment?
      page = @event.pages[0]
      return false unless page || page.list || page.list[0]
      return false unless page.list[0].code == 108
      index = 1
      list = [page.list[0].parameters[0]]
      while page.list[index].code == 408
         list << page.list[index].parameters[0]
         index += 1
      end
      return list
   end
end
class Tile
   attr_accessor :x, :y, :id
   def initialize *args
      @x, @y, @id = *args
   end
   def asXML
      "<tile id=\"#{@id}\" x=\"#{@x}\" y=\"#{@y}\" />"
   end
end
class Event < Tile
   attr_accessor :enum_in, :enum_out
   def initialize(x, y, id, enum_in = "", enum_out = "")
      super(x, y, id)
      @enum_in = enum_in
      @enum_out = enum_out
   end
   def asXML
      "<event id=\"#{@id}\" x=\"#{@x}\" y=\"#{@y}\" enum_int = \"#{@enum_in}\" enum_out=\"#{@enum_out}\"/>"
   end
end
class Level
   attr_accessor :id, :width, :height, :table, :events, :xml
   def initialize
      @xml = ""
      @id = $game_map.map_id
      @width, @height = $game_map.width, $game_map.height
      setup_table
      setup_events
   end
   def setup_table
      @table = []
      (0...@height).each do |y|
         (0...@width).each do |x|
            id = $game_map.map.data[x, y, 2]
            @table << Tile.new(x, y, id) if id.between?(1,64)
         end
      end
   end
   def setup_events
      @events = []
      $game_map.events.each do |id,ev|
         check = ev.first_is_comment?
         if check
            type = $1 if check.find{|x|x=~/^type\s*:\s*(.+)/}
            if type
               enum_in = $2  if check.find{|x|x=~/^(in|enum_in)\s*:\s*(.+)/}
               enum_out = $2  if check.find{|x|x=~/^(out|enum_out)\s*:\s*(.+)/}
               enum_in ||= ""
               enum_out ||= ""
               @events << Event.new(ev.x, ev.y, type, enum_in, enum_out)
            end
         end
      end
   end
   def asXML
      @xml += "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
      @xml += "<map id=\"#{$game_map.map_id}\" width=\"#{@width}\" height=\"#{@height}\" >\n"
      @xml += "\t<tiles>\n"
      @table.each do |tile|
         @xml += "\t\t" + tile.asXML + "\n"
      end
      @xml += "\t</tiles>\n"
      @xml += "\t<events>\n"
      @events.each do |ev|
         @xml += "\t\t" + ev.asXML + "\n"
      end
      @xml += "\t</events>\n"
      @xml += "</map>\n"
      file = File.open("Map#{@id}.xml", 'wb')
      file.write(@xml)
      file.close
      Win32API.new('user32','MessageBox',['L', 'P', 'P', 'L'],'I').call(0,"Map#{@id}.xml saved",'Info:',0)
      exit 
   end
end
class Scene_Title
   def start
      super
      DataManager.setup_new_game
      $game_map.autoplay
      SceneManager.goto(Scene_Map)
   end
   def dispose_background
      if @sprite1
         @sprite1.bitmap.dispose
         @sprite1.dispose
         @sprite2.bitmap.dispose
         @sprite2.dispose
      end
   end
   def dispose_foreground
      if @foreground_sprite
         @foreground_sprite.bitmap.dispose
         @foreground_sprite.dispose
      end
   end
end