[commande]
>obligatoire
a:1
g:true
>options
f:false
...

class Game_Interpreter
  def eval(script)
    cmd=script.split("\n")[0].gsub(/\[(\w+)\]/){$1}
    if $asaevent.commandes.include?(cmd)
      if script.split(/\\n/)[0]=~"[#{cmd}]"
        liste=script.split("\n")
        liste[0].gsub(cmd){@com=$&}
        liste.delete_at(0)
        $asaevent.asacmd[@com]={}
        liste.each{|c|c=~/:/;$asaevent.asacmd[@com][$`.to_sym]=$asaevent.trad($')}
        $asaevent.run($asaevent.asacmd[@com])
      end
    else
      Kernel.eval(script)
    end
  end
end

class ASA_Event
  attr_accessor :commandes,:asacmd
  def initialize
    @commandes,@asacmd=[],{}
  end
  def ajout_commande(cmd) # ajoute une commande
    @commandes<<cmd
  end
  def retire_commande(cmd) #enleve une commande
    @commandes.delete(cmd)
    return @commandes
  end
  def liste_commandes # pas tres utile ^^
    return @commandes
  end
  def trad(cmd) #convertit les chaines en objets spécifiques
    case cmd
    when "true";return true
    when "false";return false
    when /^[0-9]/;return eval(cmd).to_i
    else; return cmd
    end
  end
  def run(hash)
    p hash
    # trouver moyen execution:
    # |-> determiner la méthode a appeler
  end
end

$asaevent=ASA_Event.new
$asaevent.ajout_commande("test") # ajout d'une commande [test]
$asaevent.ajout_commande("rgss")

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#  Rgss2                          ASA_Event
#-------------------------------------------------------------------------------
# Par l'Assemblée des Scripteurs Associés              http://rpgmakervx-fr.com
#  |-> membres: Arayashiki, ASHKA, Mister M. et Berka
#-------------------------------------------------------------------------------
# Script Noyau:  permet l'utilisation et l'interprétation de nouvelles commandes
# d'events.
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

class Game_Interpreter
  def eval(script)
    cmd=script.split("\n")[0].gsub(/\[(\w+)\]/){$1}
    if ASA_Event.commandes.include?(cmd)
      begin
        if script.split(/\\n/)[0]=~"[#{cmd}]"
          liste=script.split("\n")
          liste[0].gsub(cmd){@com=$&}
          liste.delete_at(0)
          ASA_Event.asacmd[@com]={}
          liste.each{|c|
          c.gsub!(" :",":");c.gsub!(": ",":")
          c=~/:/;ASA_Event.asacmd[@com][$`.to_sym]=ASA_Event.trad($',@event_id)}
          ASA_Event.run(@com,ASA_Event.asacmd[@com])
        end
      rescue Exception
        msg="Type d'Erreur:\n\t\t#{$!.class}\n"
        msg<<"Commande exécutée:\n\t\t#{cmd}\n"
        msg<<"Valeur lancée:\n\t\t#{Kernel.eval("!@com.nil? ? @com : '-'")}\n"
        msg<<"Map conteneur:\n\t\t#{$game_map.map_id}\n"
        msg<<"Event conteneur:\n\t\t#{@event_id}\n"
        ASA.new.erreur_log(msg)       
      end
    else;Kernel.eval(script)
    end
  end
end

module ASA_Event
  class<<self
    attr_accessor :commandes,:asacmd
    def scripts(*args)
      @liste||={}
      @liste['Noyau']={:date=>'14-02-09',:ver=>'0.1a',:auteur=>'ASA'}
      @liste[args[0]]={:date=>args[1],:ver=>args[2],:auteur=>args[3]}if !args.empty?
      return @liste
    end
    def ajout_commande(cmd,classe)
      @commandes||=[];@cmdexec||={};@asacmd||={}
      @commandes<<cmd
      @cmdexec[cmd]=classe
      return @commandes
    end
    def retire_commande(cmd)
      @commandes.delete(cmd)
      @cmdexec.delete(cmd)
      return @commandes
    end
    def trad(cmd,event)
      case cmd
      when "joueur";return $game_player
      when "event";return $game_map.events[event]
      when "tous";return $game_map.events.values
      when "true";return true
      when "false";return false
      when /[0-9]/;return eval(cmd).to_i
      when /\W/;return eval(cmd)
      when /\w\s/;return cmd
      else;return cmd
      end
    end
    def run(com,hash)
      @cmdexec[com].new(hash)
    end
  end
end

class ASA
  def initialize
    p 'Noyau Manquant' if ASA_Event.nil?
  end
  def ok?(hash,cmd)
    return hash.include?(cmd)
  end
  def erreur_log(msg="")
    log=File.open("raport d'erreur ASA.txt","w+")
    log<<"Log d'erreur ASAEvent du #{Time.now}\n"
    ASA_Event.scripts.each{|s,c|log<<"\nscript: #{s}:\n"
    c.each{|k,v|log<<"\t\t#{k}: #{v}\n"}}
    log<<eval("'\n'+'-'*20+'\n'+msg")
    api=Win32API.new('kernel32','GetPrivateProfileString','pppplp','l')
    api.call("Game","Library","",dll="\0"*96,96,".//Game.ini")
    log<<'-'*20+"\nRgss Dll:\n\t\t#{dll.strip}"
    log<<"\n\nFichier à renvoyer aux auteurs, à http://www.rpgmakervx-fr.com"
    p "Un fichier d'erreur a été créé."
    log.close
  end
end

class Hash
  def get(k)
    k=k.to_sym if k.is_a?(String)
    return self[k] if self.has_key?(k)
    return nil
  end
end

class Exemple<ASA
  def initialize(hash)
    p @x=hash.get('x')
  end
end
ASA_Event.ajout_commande('test',Exemple)
ASA_Event.scripts('test','14-02-09','0.1','berka')