Bild-2

-- Made by Totoro (25.06.2014)

local computer = require('computer')
local robot = require("robot")
local fs = require("filesystem")
local shell = require("shell")
local args = {...}

if #args ~= 1 then
  print("Используй: build <filename>")
  return
end

local filename = shell.resolve(args[1]) -- вернуть путь к файлу

if require("component").isAvailable("generator")
    then
    generator=require("component").generator
end
local withg=(generator~=nil)

if not fs.exists(filename) then  -- проверить наличие файла
  print("Файла \""..filename.."\" не существует")
  --return
end

local length = 0
local height = 0
local width = 0
local blocks = {}
local data = {}

block_id = {}

block_id[0] = "Air"
block_id[1] = "Stone"
block_id[2] = "Grass"
block_id[3] = "Dirt"
block_id[4] = "Cobblestone"
block_id[5] = "Wooden Plank"
block_id[6] = "Sapling"
block_id[7] = "Bedrock"
block_id[8] = "Water"
block_id[9] = "Stationary water"
block_id[10] = "Lava"
block_id[11] = "Stationary lava"
block_id[12] = "Sand"
block_id[13] = "Gravel"
block_id[14] = "Gold Ore"
block_id[15] = "Iron (Ore)"
block_id[16] = "Coal Ore"
block_id[17] = "Log"
block_id[18] = "Leaves"
block_id[19] = "Sponge"
block_id[20] = "Glass"
block_id[21] = "Lapis Lazuli (Ore)"
block_id[22] = "Lapis Lazuli (Block)"
block_id[23] = "Dispenser"
block_id[24] = "Sandstone"
block_id[25] = "Note Block Tile entity"
block_id[26] = "Bed"
block_id[27] = "Powered Rail "
block_id[28] = "Detector Rail "
block_id[29] = "Sticky Piston"
block_id[30] = "Cobweb"
block_id[31] = "Tall Grass"
block_id[32] = "Dead Bush"
block_id[33] = "Piston"
block_id[34] = "Piston Extension"
block_id[35] = "Wool"
block_id[36] = "Block moved by Piston"
block_id[37] = "Dandelion"
block_id[38] = "Rose"
block_id[39] = "Brown Mushroom"
block_id[40] = "Red Mushroom"
block_id[41] = "Block of Gold"
block_id[42] = "Block of Iron"
block_id[43] = "Double Slabs"
block_id[44] = "Slabs"
block_id[45] = "Brick Block"
block_id[46] = "TNT"
block_id[47] = "Bookshelf"
block_id[48] = "Moss Stone"
block_id[49] = "Obsidian"
block_id[50] = "Torch"
block_id[51] = "Fire"
block_id[52] = "Monster Spawner"
block_id[53] = "Wooden Stairs"
block_id[54] = "Chest"
block_id[55] = "Redstone (Wire)"
block_id[56] = "Diamond (Ore)"
block_id[57] = "Block of Diamond"
block_id[58] = "Crafting Table"
block_id[59] = "Seeds"
block_id[60] = "Farmland"
block_id[61] = "Furnace"
block_id[62] = "Burning Furnace"
block_id[63] = "Sign Post"
block_id[64] = "Wooden Door"
block_id[65] = "Ladders"
block_id[66] = "Rails"
block_id[67] = "Cobblestone Stairs"
block_id[68] = "Wall Sign"
block_id[69] = "Lever"
block_id[70] = "Stone Pressure Plate"
block_id[71] = "Iron Door"
block_id[72] = "Wooden Pressure Plates"
block_id[73] = "Redstone Ore"
block_id[74] = "Glowing Redstone Ore"
block_id[75] = "Redstone Torch"
block_id[76] = "Redstone Torch"
block_id[77] = "Stone Button "
block_id[78] = "Snow"
block_id[79] = "Ice"
block_id[80] = "Snow Block"
block_id[81] = "Cactus"
block_id[82] = "Clay (Block)"
block_id[83] = "Sugar Cane"
block_id[84] = "Jukebox"
block_id[85] = "Fence"
block_id[86] = "Pumpkin"
block_id[87] = "Netherrack"
block_id[88] = "Soul Sand"
block_id[89] = "Glowstone"
block_id[90] = "Portal"
block_id[91] = "Jack-O-Lantern"
block_id[92] = "Cake Block"
block_id[93] = "Redstone Repeater"
block_id[94] = "Redstone Repeater"
block_id[95] = "Locked Chest"
block_id[96] = "Trapdoors"
block_id[97] = "Hidden Silverfish"
block_id[98] = "Stone Brick"
block_id[99] = "Huge brown and red mushroom"
block_id[100] = "Huge brown and red mushroom"
block_id[101] = "Iron Bars"
block_id[102] = "Glass Pane"
block_id[103] = "Melon"
block_id[104] = "Pumpkin Stem"
block_id[105] = "Melon Stem"
block_id[106] = "Vines"
block_id[107] = "Fence Gate"
block_id[108] = "Brick Stairs"
block_id[109] = "Stone Brick Stairs"
block_id[110] = "Mycelium"
block_id[111] = "Lily Pad"
block_id[112] = "Nether Brick"
block_id[113] = "Nether Brick Fence"
block_id[114] = "Nether Brick Stairs"
block_id[115] = "Nether Wart"
block_id[116] = "Enchantment Table"
block_id[117] = "Brewing Stand"
block_id[118] = "Cauldron"
block_id[119] = "Ender Portal"
block_id[120] = "Ender Portal Frame"
block_id[121] = "Ender Stone "
block_id[256] = "Iron Shovel"
block_id[257] = "Iron Pickaxe"
block_id[258] = "Iron Axe"
block_id[259] = "Flint and Steel"
block_id[260] = "Red Apple"
block_id[261] = "Bow"
block_id[262] = "Arrow"
block_id[263] = "Coal"

wool = {}
wool[0] = "White"
wool[1] = "Orange"
wool[2] = "Magenta"
wool[3] = "Light Blue"
wool[4] = "Yellow"
wool[5] = "Lime"
wool[6] = "Pink"
wool[7] = "Gray"
wool[8] = "Light Gray"
wool[9] = "Cyan"
wool[10] = "Purple"
wool[11] = "Blue"
wool[12] = "Brown"
wool[13] = "Green"
wool[14] = "Red"
wool[15] = "Black"


function energy() return computer.energy()<((computer.maxEnergy()*70)/100) end

function charg()
  print("Уровень энергии." ,computer.energy())
  if (energy()) then
    refuel()
  end
  if (computer.energy())<((computer.maxEnergy()*30)/100) then
    while energy() do
      for i=1, 10 do
        os.sleep(20)
        print("Заряжаюсь до 70% ")
      end
    end
  end
end

function refuel() -- Заправка генератора
    for invfuel=1,16 do
        robot.select(invfuel)
        generator.insert(33)
        if generator.count() >= 32 then
          print("заправка зевершена")
          print("топлива в генераторе = "..generator.count())
          do break end
        end
    end
end


function getBlockName(id, blockData)
  blockData = blockData or nil
  if(block_id[id] == nil) then
    return "UNKNOWN_"..id.."/"..blockData
  else
    if(blockData) then
      if(id == 35) then
        str = wool[blockData] .. " " .. block_id[id]
        return str
      end
    end
    return block_id[id]
  end
end

function getBlockId(x,y,z)
  return blocks[y + z*width + x*length*width + 1]
end

function getData(x,y,z)
  return data[y + z*width + x*length*width + 1]
end

function readbytes(file, n) -- чтение байта из файла
  for i=1,n do
    string.byte(file:read(1))
  end
end

function readname(file)
  n1 = string.byte(file:read(1))
  n2 = string.byte(file:read(1))

  if(n1 == nil or n2 == nil) then
    return ""
  end

  n = n1*256 + n2

  str = ""
  for i=1,n do
    c = file:read(1)
    if c == nil then
      return
    end
    str = str .. c
  end
  --
  --print("Name: "..str)
  --io.read()
  --
  return str
end

function parse(a, file, containsName)
  if containsName == nil then containsName = true end
  --print(a)
  if a==0 then
    return
  end
  if containsName then
    name = readname(file)
  end

  if a==1 then
    readbytes(file,1)
  elseif a==2 then
    i1 = string.byte(file:read(1))
    i2 = string.byte(file:read(1))
    i = i1*256 + i2
    if(name=="Height") then
      height = i
    elseif (name=="Length") then
      length = i
    elseif (name=="Width") then
      width = i
    end
  elseif a==3 then
    readbytes(file,4)
  elseif a==4 then
    readbytes(file,8)
  elseif a==5 then
    readbytes(file,4)
  elseif a==6 then
    readbytes(file,8)
  elseif a==7 then
    i1 = string.byte(file:read(1))
    i2 = string.byte(file:read(1))
    i3 = string.byte(file:read(1))
    i4 = string.byte(file:read(1))
    i = i1*256*256*256 + i2*256*256 + i3*256 + i4
    if name == "Blocks" then
      for i=1,i do
        table.insert(blocks, string.byte(file:read(1)))
      end
    elseif name == "Data" then
      for i=1,i do
        table.insert(data, string.byte(file:read(1)))
      end
    else
      readbytes(file,i)
    end
  elseif a==8 then
    i1 = string.byte(file:read(1))
    i2 = string.byte(file:read(1))
    i = i1*256 + i2
    readbytes(file,i)
  elseif a==9 then
    t = string.byte(file:read(1))
    i1 = string.byte(file:read(1))
    i2 = string.byte(file:read(1))
    i3 = string.byte(file:read(1))
    i4 = string.byte(file:read(1))
    i = i1*256*256*256 + i2*256*256 + i3*256 + i4
    --print("Num: "..i)
    for j=1,i do
      --print("Step: "..j.." of "..i)
      if t ~= 10 then
        parse(t, file, false)
      else
        break
        --parse(string.byte(file:read(1)), file)
      end
    end
  end
end

pos = {x=0, y=0, z=0}
dir = 0

function forward()
  while not robot.forward() do
    robot.swing()
  end

  if dir == 0 then pos.x = pos.x+1
  elseif dir == 2 then pos.x = pos.x-1
  elseif dir == 1 then pos.z = pos.z-1
  else pos.z = pos.z+1
  end
end

function up()
  while not robot.up() do
    robot.swingUp()
  end

  pos.y = pos.y+1
end

function down()
  while not robot.down() do
    robot.swingDown()
  end

  pos.y = pos.y-1
end

function turnLeft()
    dir = dir-1
    if dir<0 then dir=3 end
    robot.turnLeft()
end

function turnRight()
    dir = dir+1
    if dir>3 then dir=0 end
    robot.turnRight()
end

function turnAround()
    dir = dir+2
    if dir>3 then dir=dir-4 end
    robot.turnAround()
end

function place() -- поставить блок
  while not robot.placeDown() do
    robot.swingDown()
  end
end


-------------------------------------------------
--                 Программа
-------------------------------------------------
file = io.open(filename, "rb") --открыть файл для чтения в двоичном режиме

a = 0
while (a ~= nil) do
  a = file:read(1) --прочитать символ
  if a == nil then break end  -- конец, если файл достиг конца
  a = string.byte(a)
  parse(a, file)
end

io.write("Length: " .. length)
io.write("   Width: " .. width)
io.write("   Height: " .. height .. "\n")

uniqueblocks={}
for i,v in ipairs(blocks) do
  -- no air =)
  if v ~= 0 then
    found = false
    for j,w in ipairs(uniqueblocks) do
      -- на данный момент, данные учитываются только, когда блок шерсть
        if (w.blockID==v and (w.data==data[i] or w.blockID ~= 35)) then
          found = true
          w.amount = w.amount + 1
        break
      end
    end

    if found==false then
      uniqueblocks[#uniqueblocks+1] = {}
      uniqueblocks[#uniqueblocks].blockID = v
      uniqueblocks[#uniqueblocks].data = data[i]
      uniqueblocks[#uniqueblocks].amount = 1
    end
  end
end

print("Number of block types: " .. #uniqueblocks)
for i,v in ipairs(uniqueblocks) do
  if (i%9)==0 then
    io.read()
  end
  io.write(" " .. getBlockName(v.blockID, v.data) .. ": " .. v.amount .. ". ")
end

io.read()

print("Дайте номера всех слотов, содержащих указанный тип блока:")

slots={}
for i,block in ipairs(uniqueblocks) do
  blockData = block.data
  io.write(" -в каком слоте " .. getBlockName(block.blockID, blockData) .. "?")
  if not slots[block.blockID] then
    slots[block.blockID] = {}
  end
  slots[block.blockID][blockData] = {}
  io.write("   ")
  str = io.read()
  io.write("\n")
  for i = 1, #str do
    local c = str:sub(i,i)
    n = tonumber(c)
    if(n) then
      if(n>0 and n<10) then
        table.insert(slots[block.blockID][blockData], n)
      end
    end
  end
end

print("Press key to start building...")
io.read()
 --    Печать --
refuel()
up()
n = 1
robot.select(n)

for y=1,height do
  for x=1,width do
    for z=1,length do
      print("X: "..pos.x..", Y: "..(pos.y-1)..", Z: "..pos.z)
      blockID = getBlockId(pos.y-1,pos.x,pos.z)
      blockData = getData(pos.y-1,pos.x,pos.z)
      if blockID == 0 then
        robot.swingDown()
      else
        slot_lst = slots[blockID][blockData]
        if(slot_lst ~= nil) then
          if(#slot_lst > 0) then
            local found=false
            for i,v in ipairs(slot_lst) do
              if(robot.count(v) > 0) then
                found=true
                robot.select(v)
                break
              end
            end
            if not found then
              io.write("Not enough " .. getBlockName(blockID, blockData).." (")
              for i,v in ipairs(slot_lst) do
                io.write(v.." ")
              end
              io.write("\b). Please refill...\n")
              io.read()
            end
            place()
          end
        end
      end
      if z<length then forward() end
    end
    if x<width then
      charg() -- Проверка заряда батареи
      if x%2 == 1 then
        turnLeft()
        forward()
        turnLeft()
      else
        turnRight()
        forward()
        turnRight()
      end
    else
      if y<height then
        if x%2 == 1 then
          turnAround()
          up()
        else
          turnLeft()
          up()
        end
      else
        forward()
      end
    end
  end

end

for i=1,height do
  down()
end