mcblocky 0.1.0.pre.alpha.pre.6

data/examples/hello/hello.rb

@@ -0,0 +1,81 @@
+require_relative 'helpers/foo'
+
+helper 'hello' do |args, user|
+  server.say "Hello, #{user}!"
+end
+
+helper 'clean' do |args, user|
+  Executor.to_commands($context).each{|c| server.command c}
+end
+
+initial do
+  gamerule 'doDaylightCycle', false
+  gamerule 'commandBlockOutput', false
+  gamerule 'logAdminCommands', false
+  time :set, 'day'
+
+  ['red', 'blue', 'yellow', 'green'].each do |color|
+    scoreboard :teams do
+      add color.capitalize
+      option color.capitalize, :color, color
+    end
+  end
+  scoreboard :teams do
+    add 'Spectators'
+    option 'Spectators', :color, 'gray'
+  end
+  scoreboard :objectives do
+    add 'SwitchingTeam', 'dummy'
+  end
+
+  tellraw @a[team: 'Red'], {text: "Hello world", color: "red"}
+end
+
+repeat 171, 82, 242, 175, 84, 247 do
+  scoreboard :players, :set, @a[x: 172, y: 81, z: 236, r: 1, team: '!Red'], 'SwitchingTeam', 1
+  scoreboard :players, :set, @a[x: 170, y: 81, z: 236, r: 1, team: '!Blue'], 'SwitchingTeam', 1
+  execute @a[x: 170, y: 81, z: 236, r: 1, score_SwitchingTeam_min: 1], '~ ~ ~', 'scoreboard teams join Blue @p'
+  execute @a[x: 170, y: 81, z: 236, r: 1, score_SwitchingTeam_min: 1], '~ ~ ~', :tellraw, @a, JSON.dump([
+    {selector: @p},
+    {text: ' joined the ', color: 'reset'},
+    {text: 'Blue', color: 'blue'},
+    {text: ' team', color: 'reset'}
+  ])
+  execute @a[x: 172, y: 81, z: 236, r: 1, score_SwitchingTeam_min: 1], '~ ~ ~', 'scoreboard teams join Red @p'
+  execute @a[x: 172, y: 81, z: 236, r: 1, score_SwitchingTeam_min: 1], '~ ~ ~', :tellraw, @a, JSON.dump([
+    {selector: @p},
+    {text: ' joined the ', color: 'reset'},
+    {text: 'Red', color: 'red'},
+    {text: ' team', color: 'reset'}
+  ])
+  scoreboard :players, :reset, @a[score_SwitchingTeam_min: 1], 'SwitchingTeam'
+  #tellraw @a[team: 'Red'], {text: "Hello", color: "red"}
+end
+
+fill 171, 78, 242, 181, 78, 252, 'minecraft:stained_glass', Color::BLUE
+
+cleanup do
+  fill 172, 80, 243, 174, 80, 243, 'minecraft:air', 0, 'replace'
+end
+
+at 172, 79, 243 do
+  fill '~', '~1', '~', '~2', '~1', '~', 'minecraft:stone'
+end
+
+at 172, 81, 243 do
+  fill '~ ~-1 ~ ~2 ~-1 ~', 'minecraft:redstone_block'
+end
+
+setblock 175, 79, 248, 'minecraft:standing_sign', 0, 'replace', {'Text1'=>'{"text":"hello friends"}'}
+
+furnace 176, 79, 248 do
+  item 'minecraft:diamond', 64
+  item 'minecraft:spawn_egg', 1, 0, {'EntityTag'=>{'id'=>'Chicken', 'CustomName'=>'Chickfila'}, 'display'=>{'Name'=>'Chicken Egg'}}
+  item 'minecraft:gold_ingot'
+end
+
+after do
+  # setblock 175, 79, 248, 'minecraft:standing_sign', 0, 'replace'
+  # blockdata 175, 79, 248, {'Text1'=>'{"text":"hola mundo"}'}
+  setblock 172, 80, 243, 'minecraft:redstone_block', 0, 'replace'
+end

data/examples/hello/helpers/bar.rb

@@ -0,0 +1,3 @@
+helper 'bar' do
+  server.say 'bar'
+end

data/examples/hello/helpers/foo.rb

@@ -0,0 +1,3 @@
+helper 'foo', 'bar' do |args, user, command|
+  server.say "#{command}, #{user}, #{args}"
+end

data/exe/mcblocky

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+require "thor"
+require "yaml"
+require "mcblocky"
+
+McBlocky::Cli.start(ARGV)

data/lib/mcblocky/cli.rb

@@ -0,0 +1,108 @@
+require "yaml"
+require "thor"
+
+module McBlocky
+  class Cli < Thor
+    include Logging
+
+    class_option :config,
+      desc: 'Path to config file',
+      default: 'config.yml',
+      type: :string,
+      aliases: '-f'
+
+    desc "list", "List commands that would be sent to the server"
+    option :watch, aliases: '-w'
+    option :diff
+    def list
+      begin
+        Config.load(options[:config])
+      rescue ArgumentError => e
+        log_error "Error in #{File.basename Config.config_path}:"
+        log_error e.message
+        exit 1
+      end
+      if options[:watch]
+        $old_context = nil
+        listener = Listener.from_config do |context|
+          Executor.to_commands(context, options[:diff] ? $old_context : nil).each{|c| puts c}
+          $old_context = context
+        end
+        listener.start
+        while true; end
+      else
+        context = Context.run_file(Config.config['code']['main'], File.dirname(Config.config_path))
+        Executor.to_commands(context).each{|c| puts c}
+      end
+    rescue Interrupt
+    end
+
+    desc "start", "Start the server"
+    def start
+      begin
+        Config.load(options[:config])
+      rescue ArgumentError => e
+        log_error "Error in #{File.basename Config.config_path}:"
+        log_error e.message
+        exit 1
+      end
+      $server = Server.from_config
+      log_status "Starting server..."
+      $server.start
+      log_status "Server is ready! Connect to 127.0.0.1:25565"
+      reader = Thread.new do
+        until $stdin.closed?
+          line = $stdin.gets.chomp
+          $server.command line unless line.empty?
+        end
+      end
+      $server.say("McBlocky is ready")
+      $server.on_message '!stop' do
+        log_status "Stopping server..."
+        $server.stop
+      end
+      $server.on_message /^!/ do |message, user|
+        next unless $context
+        command, _, args = message.partition(/\s+/)
+        $context.helpers.each do |aliases, block|
+          aliases = [aliases] if String === aliases
+          aliases.each do |a|
+            if command == "!#{a}"
+              block.call(args, user, a)
+              break
+            end
+          end
+        end
+      end
+      listener = Listener.from_config do |context|
+        old_context = $context
+        $context = context
+        $context.server = $server # needed by helpers
+        Executor.to_commands(context, old_context).each{|c| $server.command c}
+      end
+      listener.start
+      $server.loop!
+    rescue SystemExit
+      if $server
+        log_status "Stopping server..."
+        $server.stop
+      end
+      reader.kill if reader
+    rescue Interrupt
+      if $server
+        log_status "Stopping server..."
+        $server.stop
+      end
+      reader.kill if reader
+    rescue Exception
+      log_error "Caught error, stopping server..."
+      begin
+        $server.stop if $server
+        reader.kill if reader
+      rescue
+      end
+      log_error "Error trace:"
+      raise
+    end
+  end
+end

data/lib/mcblocky/config.rb

@@ -0,0 +1,63 @@
+require 'yaml'
+
+module McBlocky
+  class Config
+    class << self
+      attr_reader :config
+      attr_reader :config_path
+      def load(filename)
+        @valid = false
+        filename = File.expand_path('config.yml', filename) if File.directory? filename
+        @config_path = filename
+        open(filename) do |f|
+          @config = YAML.safe_load(f)
+        end
+        validate
+      end
+
+      def validate
+        return if @valid
+        raise ArgumentError, "No config loaded" unless config
+        raise ArgumentError, "No server section" unless config['server']
+        config['code'] ||= {}
+
+        if config['server']['ops']
+          raise ArgumentError, "server.ops must be an array" unless Array === config['server']['ops']
+        end
+
+        config['server']['properties'] = {'enable-command-block' => 'true'}.merge(config['server']['properties'] || {})
+
+        Dir.chdir File.dirname(config_path) do
+          unless which 'java'
+            java = config['server']['java']
+            raise ArgumentError, "Java not found. Specify the full path in server.java" if !java or java.empty?
+            raise ArgumentError, "Java specified in server.java is not executable" unless File.executable? java
+          end
+
+          jar = config['server']['jar']
+          raise ArgumentError, "No server.jar specified" if !jar or jar.empty?
+          raise ArgumentError, "Jar specified in server.jar does not exist" unless File.exist? jar
+
+          config['code']['main'] ||= "#{File.basename File.dirname(config_path)}.rb"
+          main = config['code']['main']
+          raise ArgumentError, "No code.main specified" if !main or main.empty?
+          raise ArgumentError, "#{main} does not exist" unless File.exist? main or File.exist? "#{main}.rb"
+        end
+
+        @valid = true
+      end
+
+      protected
+      def which(cmd)
+        exts = ENV['PATHEXT'] ? ENV['PATHEXT'].split(';') : ['']
+        ENV['PATH'].split(File::PATH_SEPARATOR).each do |path|
+          exts.each { |ext|
+            exe = File.join(path, "#{cmd}#{ext}")
+            return exe if File.executable?(exe) && !File.directory?(exe)
+          }
+        end
+        return nil
+      end
+    end
+  end
+end

data/lib/mcblocky/context.rb

@@ -0,0 +1,87 @@
+require 'mcblocky/dsl'
+
+module McBlocky
+  class Context
+    attr_accessor :server
+
+    def self.run_file(file, dir=nil)
+      dir = File.dirname(file) unless dir
+      Dir.chdir dir do
+        begin
+          ctx = Context.new
+          f = open(file)
+          ctx.instance_eval(f.read, file)
+          return ctx
+        ensure
+          f.close if f
+        end
+      end
+    end
+
+    def self.run_block(&block)
+      ctx = Context.new
+      ctx.instance_exec &block
+      return ctx
+    end
+
+    def helpers
+      @helpers ||= []
+    end
+
+    def required_files
+      @required_files ||= Set.new
+    end
+
+    def chains
+      @chains ||= []
+    end
+
+    def blocks
+      @blocks ||= {}
+    end
+
+    def rects
+      @rects ||= {}
+    end
+
+    def areas
+      @areas ||= []
+    end
+
+    def context
+      self
+    end
+
+    def require(file)
+      if file.start_with? './'
+        file = "#{file.sub('./','')}.rb" unless file.end_with? '.rb'
+        required_files << file
+        begin
+          f = open(file)
+          instance_eval(f.read, file)
+          true
+        ensure
+          f.close if f
+        end
+      else
+        Kernel.require(file)
+      end
+    end
+
+    def require_relative(file)
+      path = File.dirname caller[0].split('.rb')[0]
+      file = "#{file}.rb" unless file.end_with? '.rb'
+      file = File.expand_path(file, path)
+      required_files << file
+      begin
+        f = open(file)
+        instance_eval(f.read, file)
+        true
+      ensure
+        f.close if f
+      end
+    end
+
+    include McBlocky::DSL
+  end
+end

data/lib/mcblocky/dsl/block.rb

@@ -0,0 +1,13 @@
+module McBlocky::DSL
+  class Block
+    attr_reader :x, :y, :z, :block_data, :block_kind, :nbt
+    def initialize(x, y, z, kind, data=0, nbt={})
+      @x = x
+      @y = y
+      @z = z
+      @block_kind = kind
+      @block_data = data
+      @nbt = nbt
+    end
+  end
+end

data/lib/mcblocky/dsl/command_block.rb

@@ -0,0 +1,23 @@
+module McBlocky::DSL
+  class CommandBlock < Commands
+    attr_reader :x, :y, :z, :block_data, :block_kind
+    def initialize(x, y, z, facing, kind, nbt={})
+      super(:at)
+      @x = x
+      @y = y
+      @z = z
+      @block_data = facing
+      @block_kind = kind
+      @nbt = nbt
+    end
+
+    def command(*args)
+      raise ArgumentError, "Only one command is allowed per block" unless commands.empty?
+      super
+    end
+
+    def nbt
+      return @nbt.merge({'Command'=>commands[0] || ''})
+    end
+  end
+end

data/lib/mcblocky/dsl/commands.rb

@@ -0,0 +1,152 @@
+module McBlocky::DSL
+  class Commands
+    attr_reader :kind
+    attr_accessor :commands
+
+    def initialize(kind, *args)
+      @kind = kind
+      @args = args
+      @commands = []
+      @a = Selector.new '@a'
+      @p = Selector.new '@p'
+      @r = Selector.new '@r'
+      @e = Selector.new '@e'
+    end
+
+    def command(*args)
+      commands << args.map(&:to_s).join(' ')
+    end
+
+    def to_nbt(obj)
+      McBlocky::DSL.to_nbt(obj)
+    end
+
+    COMMANDS = [:achievement, :ban, :ban_ip, :banlist, :blockdata, :clear, :clone, :debug, :defaultgamemode, :deop, :difficulty, :effect, :enchant, :entitydata, :execute, :fill, :gamemode, :gamerule, :give, :help, :kick, :kill, :list, :me, :op, :pardon, :pardon_ip, :particle, :playsound, :replaceitem, :save_all, :save_off, :save_on, :say, :scoreboard, :seed, :setblock, :setidletimeout, :setworldspawn, :spawnpoint, :spreadplayers, :stats, :stop, :summon, :tell, :tellraw, :testfor, :testforblock, :testforblocks, :time, :title, :toggledownfall, :tp, :trigger, :weather, :whitelist, :worldborder, :xp]
+
+    def blockdata(*args)
+      args[-1] = to_nbt(args[-1]) if Hash === args[-1]
+      command :blockdata, *args
+    end
+
+    def detect(selector, *args, &block)
+      if block
+        chain = Commands.new(:detect)
+        chain.instance_exec &block
+        chain.commands.each do |c|
+          command :execute, selector, '~ ~ ~', :detect, *args, c
+        end
+      else
+        command :execute, selector, '~ ~ ~', :detect, *args
+      end
+    end
+
+    def execute(selector, *args, &block)
+      if args.empty?
+        args = ['~ ~ ~']
+      end
+      if block
+        chain = Commands.new(:execute)
+        chain.instance_exec &block
+        chain.commands.each do |c|
+          command :execute, selector, *args, c
+        end
+      else
+        command :execute, selector, *args
+      end
+    end
+
+    def gamerule(rule=nil, value=nil, &block)
+      if (rule and block) or (rule and value.nil?)
+        raise ArgumentError
+      end
+      unless block
+        command :gamerule, rule, value
+      else
+        o = PartialCommand.new(self, :gamerule)
+        o.instance_exec &block
+      end
+    end
+
+    def replaceitem(*args)
+      args[-1] = to_nbt(args[-1]) if Hash === args[-1]
+      command :replaceitem, *args
+    end
+
+    def scoreboard(*args, &block)
+      if block
+        d = SimpleDelegator.new(self)
+        d.instance_variable_set :@a, @a
+        d.instance_variable_set :@p, @p
+        d.instance_variable_set :@r, @r
+        d.instance_variable_set :@e, @e
+        d.instance_variable_set :@args, args
+        def d.method_missing(m, *a)
+          super
+        rescue NoMethodError
+          command :scoreboard, *@args, m, *a
+        end
+        d.instance_exec(&block)
+      else
+        command :scoreboard, *args
+      end
+    end
+
+    def setblock(*args)
+      args[-1] = to_nbt(args[-1]) if Hash === args[-1]
+      command :setblock, *args
+    end
+
+    def tellraw(player, *args)
+      if args.length < 1
+        raise ArgumentError, "No message given in tellraw"
+      end
+      obj = []
+      args.each do |arg|
+        if Array === arg
+          obj += arg
+        else
+          obj << arg
+        end
+      end
+      command :tellraw, player, JSON.dump(obj)
+    end
+
+    def title(selector, subcommand, *args)
+      if args.length < 1
+        raise ArgumentError, "No message given in title"
+      end
+      obj = []
+      args.each do |arg|
+        if Array === arg
+          obj += arg
+        else
+          obj << arg
+        end
+      end
+      command :title, selector, subcommand, JSON.dump(obj)
+    end
+
+    COMMANDS.each do |c|
+      unless method_defined? c
+        define_method c do |*args|
+          command c.to_s.gsub('_', '-'), *args
+        end
+      end
+    end
+  end
+
+  class PartialCommand
+    def initialize(context, *args)
+      @context = context
+      @args = args
+      @a = Selector.new '@a'
+      @p = Selector.new '@p'
+      @r = Selector.new '@r'
+      @e = Selector.new '@e'
+    end
+
+    def method_missing(m, *args)
+      @context.command *(@args + [m] + args)
+    end
+  end
+end

data/lib/mcblocky/dsl/container.rb

@@ -0,0 +1,24 @@
+module McBlocky::DSL
+  class Container
+    attr_reader :x, :y, :z, :block_data, :block_kind, :nbt
+    def initialize(x, y, z, kind, data=0, nbt={})
+      @x = x
+      @y = y
+      @z = z
+      @block_kind = kind
+      @block_data = data
+      @nbt = nbt
+      @last_slot = -1
+    end
+
+    def item_in_slot(slot, kind, count=1, damage=0, tag={})
+      nbt['Items'] ||= []
+      nbt['Items'] << {'Slot'=>slot, 'id'=>kind, 'Count'=>count, 'Damage'=>damage, 'tag'=>tag}
+      @last_slot = slot if slot > @last_slot
+    end
+
+    def item(kind, count=1, damage=0, tag={})
+      item_in_slot(@last_slot+1, kind, count, damage, tag)
+    end
+  end
+end

data/lib/mcblocky/dsl/repeat_chain.rb

@@ -0,0 +1,9 @@
+module McBlocky::DSL
+  class RepeatChain < Commands
+    attr_reader :rect
+    def initialize(*args)
+      super(:repeat)
+      @rect = McBlocky::Rect.new(*args)
+    end
+  end
+end

data/lib/mcblocky/dsl/selector.rb

@@ -0,0 +1,29 @@
+module McBlocky::DSL
+  class Selector
+    def initialize(name, **kwargs)
+      @name = name
+      if kwargs[:loc]
+        loc = kwargs[:loc]
+        raise ArgumentError, "Relative locations are not allowed in selectors" if loc.is_relative?
+        kwargs[:x] = loc.x
+        kwargs[:y] = loc.y
+        kwargs[:z] = loc.z
+        kwargs.delete :loc
+      end
+      @args = kwargs
+    end
+
+    def [](**args)
+      Selector.new(@name, @args.merge(args))
+    end
+
+    def to_s
+      if @args.empty?
+        @name
+      else
+        pairs = @args.map{|k,v| "#{k}=#{v}"}
+        "#{@name}[#{pairs.join(',')}]"
+      end
+    end
+  end
+end