Computercraft TerrariCCa Alpha

local engine = {}
engine.w, engine.h = term.getSize()

engine.ui = {}
engine.ui = {
  isBoxClicked = function(box, x, y)
    return x>=box.x and y>=box.y and x<box.x+box.w and y<box.y+box.h
  end,
  codes = {
    [colors.red] = "e",
    [colors.orange] = 1,
    [colors.yellow] = 4,
    [colors.black] = "f",
    [colors.gray] = 7,
    [colors.lightGray] = 8,
    [colors.white] = 1,
    [colors.blue] = "b",
    [colors.cyan] = 9,
    [colors.lightBlue] = 3,
    [colors.green] = "d",
    [colors.lime] = 5,
    [colors.brown] = "c",
    [colors.magenta] = 2,
    [colors.pink] = 6,
    [colors.purple] = "a",
  },
  getColorOfPaintCode = function(code)
    for color, paintCode in pairs(engine.ui.paintColorCodes) do
      if paintCode == code then return color end
    end
  end
}

engine.mouseKeys = {"left", "right", "wheel"}
engine.mouse = {x = 0, y = 0}
engine.keyboard = {}
engine.eventHandler = {
  mouse_click = function(button, x, y)
    engine.mouse.x, engine.mouse.y = x, y
    engine.mouse[engine.mouseKeys[button]] = true
  end,
  mouse_up = function(button, x, y)
    engine.mouse.x, engine.mouse.y = x, y
    engine.mouse[engine.mouseKeys[button]] = false
    engine.mouse.dragged = false
  end,
  mouse_drag = function(button, x, y)
    engine.eventHandler.mouse_click(button, x, y)
    engine.mouse.dragged = true
  end,

  key = function(key)
    engine.keyboard[keys.getName(key)] = true
  end,
  key_up = function(key)
    engine.keyboard[keys.getName(key)] = false
  end,
  char = function(char)
    engine.keyboard[char] = true
  end
}

engine.math = {
  reduce = function(value)
    local returnValue = value
    if math.abs(value) ~= 0 then
      if value > 0 then
        returnValue = returnValue - 1
      else
        returnValue = returnValue + 1
      end
    end
    return returnValue
  end,
  getOffset = function(w, pos)
    return math.floor(-pos+w/2)
  end,
  getDistance = function(x1, y1, x2, y2)
    --error(x1.." "..x2.." "..y1.." "..y2.." "..math.sqrt((x1-x2)^2+(y2-y2)^2))
    return math.sqrt((x1-x2)^2+(y1-y2)^2)
  end
}

engine.elements = {}
engine.elements.methods = {
  element = true,
  moveAndCollide = function(self, xmove, ymove, tilemap)
    local canMove = true
    for x = self.x, self.x+self.w-1 do
      for y = self.y, self.y+self.h-1 do
        local tile = tilemap:getTile(x+xmove, y+ymove)
        if (not tile) or tile.solid then canMove = false end
      end
    end
    if canMove then
      self:move(xmove, ymove)
    end
  end,
  move = function(self, xmove, ymove)
    self.x = self.x + xmove
    self.y = self.y + ymove
  end
}
engine.elements.newElement = function(elementTable)
  return function(argTable)
    return setmetatable(argTable, {__index = setmetatable(elementTable, {__index = engine.elements.methods})})
  end
end
engine.elements.new = {
  template = engine.elements.newElement({
    INIT = function(self)
    end,
    UPDATE = function(self, event, var1, var2, var3)
    end,
    DRAW = function(self)
    end
  }),
  texture = engine.elements.newElement({
    offX = 0,
    offY = 0,
    getDimensions = function(self)
      local w = 1
      for rowNum = 1, #self do
        local row = self[rowNum][1]
        if #row > w then
          w = #row
        end
      end
      return w, #self
    end,
    INIT = function(self)
      self.w, self.h = self:getDimensions()
    end,
    DRAW = function(self)
      if self.x and self.y then
        self:drawTexture(self.x, self.y)
      end
    end,
    drawTexture = function(self, x, y, offX, offY)
      local drawX, drawY = x+(offX or 0)+self.offX, y+(offY or 0)+self.offY
      if not (drawX < 0 or drawX > engine.w or drawY < 0 or drawY > engine.h) then
        for row = 1, #self do
          local texture = self[row]
          term.setCursorPos(drawX, drawY+row-1)
          term.blit(texture[1], texture[2], texture[3])
        end
      end
    end,
    replaceColor = function(self, toReplaceColor, color)
      for row = 1, #self do
        local texture = self[row]
        for i = 2, #texture do
          texture[i] = string.gsub(texture[i], toReplaceColor, color)
        end
      end
    end
  }),
  button = engine.elements.newElement({
    clicked = false,
    INIT = function(self)
      self.mouse_drag = self.mouse_click
    end,
    mouse_click = function(self, button, x, y)
      if engine.ui.isBoxClicked(self, x, y) then
        self.clicked = true
        if self.clickedFunction then
          self:clickedFunction()
        end
      else
        self.clicked = false
      end
    end,
    mouse_up = function(self)
      if self.clicked then
        if self.releasedFunction then
          self:releasedFunction()
        end
        self.clicked = false
      end
    end,
    DRAW = function(self)
      local color = self.color
      if self.clicked then
        color = self.clickedColor
      end
      paintutils.drawFilledBox(self.x, self.y, self.x+self.w, self.y+self.h, color)
    end
  }),
  tileset = engine.elements.newElement({
  }),
  tilemap = engine.elements.newElement({
    INIT = function(self)
      self.w, self.h = 0, 0
    end,
    offX = 0,
    offY = 0,
    DRAW = function(self)
      offX, offY = self.offX, self.offY
      for x = 1, engine.w do
        for y = 1, engine.h do
          if self[x-offX] then
            local tile = self.tileset[self[x-offX][y-offY]]
            if tile then
              tile.texture:drawTexture(x, y)
            end
          end
        end
      end
    end,
    updateDimensions = function(self)
      local h = 0
      for rowNum = 1, #self do
        local row = self[rowNum]
        if #row > h then
          h = #row
        end
      end
      self.w, self.h = #self, h
    end,
    getTile = function(self, x, y)
      if self[x] then
        return self.tileset[self[x][y]]
      end
    end,
    set = {
      tile = function(self, x, y, tile)
        local tileToSet = tile
        if type(tile) == "table" then
          tileToSet = tile[math.random(#tile)]
        end
        if not self[x] then self[x] = {} end
        self[x][y] = tileToSet
        --self:updateDimensions()
      end,
      rectangle = function(self, x, y, w, h, tile)
        for x = x, x+w-1 do
          for y = y, y+h-1 do
            self.set.tile(self, x, y, tile)
          end
        end
      end,
      sphere = function(self, sx, sy, r, tile)
        for x = sx-r*2, sx+r*2 do
          for y = sy-r*2, sy+r*2 do
            if engine.math.getDistance(x, y, sx, sy) <= r then
              self.set.tile(self, x, y, tile)
            end
          end
        end
      end
    }
  }),
  kinematic = engine.elements.newElement({
    jumping = false,
    jumpedHeight = 0,
    w = 1, h = 1,
    moves = {
      left = {-1, 0},
      right = {1, 0}
    },
    INIT = function(self)
      self.w, self.h = self.texture:getDimensions()
    end,
    UPDATE = function(self)
      self.jumping = engine.keyboard.up
      if self.tilemap:getTile(self.x, self.y-1).solid then
        self.jumping = false
      end
    end,
    DRAW = function(self)
      self.texture:drawTexture(self.x, self.y, self.offX, self.offY)
    end,
    PHYSICSUPDATE = function(self)
      for key, move in pairs(self.moves) do
        if engine.keyboard[key] then
          self:moveAndCollide(move[1], move[2], self.tilemap)
        end
      end

      if self.jumping and self.jumpedHeight<self.maxJumpHeight then
        self:moveAndCollide(0, -1, self.tilemap)
        self.jumpedHeight = self.jumpedHeight + 1
      else
        self:moveAndCollide(0, 1, self.tilemap)
      end
      if self.tilemap:getTile(self.x, self.y+self.h).solid then
        self.jumpedHeight = 0
      end
    end
  })
}
engine.elements.new.inventory = engine.elements.newElement({
  INIT = function(self)
    for slotNum = 1, self.slotNum do
      self[slotNum] = {}
    end
  end,
  UPDATE = function(self, event, var1, var2, var3)
  end,
  textures = {
    up = engine.elements.new.texture({{"\143", "a", "0"}}),
    left = engine.elements.new.texture({{"\149", "a", "0"}}),
    right = engine.elements.new.texture({{"\149", "0", "a"}}),
    down = engine.elements.new.texture({{"\131", "0", "a"}})
  },
  charPos = {
    up = {0, -1},
    down = {0, 1},
    left = {-1, 0},
    right = {1, 0},
  },
  drawSlot = function(self, slotNum)
    local slotX, slotY = self.x+(slotNum-1)*3, self.y
    for direction, pos in pairs(self.charPos) do
      local charX, charY = slotX+pos[1], slotY+pos[2]
      local texture = self.textures[direction]
      local tileX, tileY = charX-self.tilemap.offX, charY-self.tilemap.offY
      local colorOfTile = self.tilemap:getTile(tileX, tileY).texture[1][3]
      texture:replaceColor("a", colorOfTile)
      texture:drawTexture(charX, charY)
      texture:replaceColor(colorOfTile, "a")
    end
  end,
  DRAW = function(self)
    for slotNum = 1, #self do
      self:drawSlot(slotNum)
    end
  end
})

engine.elements.runFunction = function(elements, func, ...)
  local prioritys = {}
  for elementName, element in pairs(elements) do
    local priority = element.priority
    if priority then
      if priority == true then
        table.insert(prioritys, element)
      else
        prioritys[priority] = element
      end
    end
    if element.element then
      if element[func] then
        element[func](element, ...)
      end
    else
      engine.elements.runFunction(element, func, ...)
    end
  end
  for priorityNum = 1, #prioritys do
    local element = prioritys[priorityNum]
    if element[func] then
      element[func](element, ...)
    end
  end
end
engine.elements.init = function(elements)
  engine.elements.runFunction(elements, "INIT")
  engine.elements.runFunction(elements, "init")
end
engine.elements.update = function(elements, event, ...)
  engine.elements.runFunction(elements, "UPDATE", event, ...)
  engine.elements.runFunction(elements, "update", event, ...)
  engine.elements.runFunction(elements, event, ...)
end
engine.elements.physicsUpdate = function(elements)
  engine.elements.runFunction(elements, "PHYSICSUPDATE")
  engine.elements.runFunction(elements, "physicsUpdate")
end
engine.elements.draw = function(elements)
  engine.elements.runFunction(elements, "DRAW")
  engine.elements.runFunction(elements, "draw")
end

engine.run = function(elements, dt)
  engine.elements.init(elements)

  local dt = dt or 0.01
  local buffer = window.create(term.current(), 1, 1, engine.w, engine.h)
  local oldTerm = term.redirect(buffer)

  local succ, mess = pcall(function()
  local gameRunning = true
  local physicsUpdateTimer = os.startTimer(0.1)
  while gameRunning do
    buffer.setVisible(false)
    term.setBackgroundColor(colors.black)
    term.clear()
    engine.elements.draw(elements)
    buffer.setVisible(true)

    local event, var1, var2, var3 = os.pullEventRaw()
    if engine.eventHandler[event] then
      engine.eventHandler[event](var1, var2, var3)
    end
    if event == "timer" then
      engine.elements.physicsUpdate(elements)
      os.cancelTimer(physicsUpdateTimer)
      physicsUpdateTimer = os.startTimer(0.1)
    end
    if event == "char" and var1 == "q" then gameRunning = false end
    engine.elements.update(elements, event, var1, var2, var3)
  end
  end)

  buffer.setVisible(true)
  term.setBackgroundColor(colors.black)
  term.clear()
  term.setCursorPos(1, 1)
  term.setTextColor(colors.red)
  if not succ and mess then
    print("The game crashed!")
    print("Error: "..tostring(mess))
  end
end

local elements = {}
elements.tilemap = engine.elements.new.tilemap({
  offset = {0, 0},
  tileset = engine.elements.new.tileset({
    air = {texture = engine.elements.new.texture({{" ", "3", "3"}})},
    grass = {texture = engine.elements.new.texture({{" ", "7", "d"}}),solid = true, behind = "dirt"},
    plant = {texture = engine.elements.new.texture({{"p", "d", "3"}})},
    dirt = {texture = engine.elements.new.texture({{" ", "7", "c"}}), solid = true, behind = "wall"},
    stone = {texture = engine.elements.new.texture({{" ", "f", "8"}}), solid = true, behind = "wall"},
    leaves = {texture = engine.elements.new.texture({{"b", "5", "d"}}), behind = "air"},
    log = {texture = engine.elements.new.texture({{"B", "7", "c"}}), behind = "air"},
  }),
  createWall = function(self, tileName)
    local tile = self.tileset[tileName]
    self.tileset[tileName.."wall"] = {
      texture = engine.elements.new.texture({{"\127", tile.texture[1][3], "7"}})
    }
  end,
  changeMove = function(oldMove)
    local move = oldMove
    if math.random(1, 10) == 1 then
      if math.random(2) == 1 then
        move = 0.6
      else
        move = -0.6
      end
      if math.random(1, 10) == 1 then
        move = move * 2
      end
    elseif math.random(1, 10) == 1 then
      move = engine.math.reduce(oldMove)
    elseif math.random(1, 10) == 1 then
      move = move + 0.5
    elseif math.random(1, 10) == 1 then
      move = move - 0.5
    end
    if math.abs(move) >= 3 then
      engine.math.reduce(move)
    end
    return move
  end,
  generateLine = function(self, x, surfaceHeight, stoneHeight, height)
    self.set.rectangle(self, x, surfaceHeight, 1, height-surfaceHeight, "dirt")
    self.set.rectangle(self, x, stoneHeight, 1, height-stoneHeight, "stone")
    self.set.tile(self, x, surfaceHeight, "grass")
    if math.random(1, 5) == 1 then
      self.set.tile(self, x, surfaceHeight+1, "grass")
    end
    if math.random(1, 2) == 1 then
      self.set.tile(self, x, surfaceHeight-1, "plant")
    end
  end,
  addTree = function(self, x, trees, surfaceHeight, height)
    local height = math.random(4, 12)
    table.insert(trees, {
      x = x, y = surfaceHeight-height-1,
      height = height,
    })
    return trees
  end,
  generateStump = function(self, tree)
    for y = tree.y, tree.y+tree.height do
      self.set.tile(self, tree.x, y, "log")
    end
  end,
  generateLeaves = function(self, tree)
    self.set.sphere(self, tree.x, tree.y, tree.height/2, "leaves")
  end,
  generateWalls = function(self)
    for tileName, tile in pairs(self.tileset) do
      if tile.texture then
        self:createWall(tileName)
      end
    end
  end,
  generateTrees = function(self, trees)
    local generatedTrees = {}
    for treeNum = 1, #trees do
      local tree = trees[treeNum]
      if not generatedTrees[tree.x-1] and not generatedTrees[tree.x+1] then
        self:generateStump(tree)
        generatedTrees[tree.x] = true
      end
    end
    for treeNum = 1, #trees do
      local tree = trees[treeNum]
      if not generatedTrees[tree.x-1] and not generatedTrees[tree.x+1] then
        self:generateLeaves(tree)
        generatedTrees[tree.x] = true
      end
    end
  end,
  spawnPlayer = function(self)
    local y = 1
    while true do
      if self[elements.player.x][y] ~= "air" then
        elements.player.y = y-1
        return
      end
      y = y + 1
    end
  end,
  init = function(self)
    local trees = {}
    local width = engine.w*50
    local height = engine.h*20
    local surfaceY = math.floor(height/2)
    local surfaceHeight = surfaceY
    local stoneHeight = surfaceY+10
    local move = 0

    self:generateWalls()
    self.set.rectangle(self, 1, 1, width, height, "air")

    for x = 1, width do
      move = self.changeMove(move)
      stoneHeight = stoneHeight + move+math.random(3)-2
      surfaceHeight = surfaceHeight + move
      local tiledSurfaceHeight = math.floor(surfaceHeight)
      local tiledStoneHeight = math.floor(stoneHeight)
      if stoneHeight-surfaceHeight < 5 then stoneHeight = stoneHeight + 2 end

      self:generateLine(x, tiledSurfaceHeight, tiledStoneHeight, height)
      if math.floor(move) == 0 and math.random(1, 5) == 1 then
        trees = self:addTree(x, trees, tiledSurfaceHeight, height)
      end
    end

    self:spawnPlayer()
    self:generateTrees(trees)
  end
})
elements.player = engine.elements.new.kinematic({
  priority = true,
  tilemap = elements.tilemap,
  texture = engine.elements.new.texture({
    {" ", "4", "4"},
    {" ", "9", "9"}
  }),
  x = math.floor(engine.w*3/2), y = 3,
  maxJumpHeight = 6,
  breakBlock = function(self, tileX, tileY)
    local tileToSetOn = self.tilemap:getTile(tileX, tileY)
    if tileToSetOn then
      local tileToSet = tileToSetOn.behind
      local tileName = self.tilemap[tileX][tileY]
      if tileToSet == "wall" then
        tileToSet = tileName.."wall"
      end
      if tileToSet then
        if not self.tilemap.tileset[tileToSet] then
          self.tilemap:createWall(tileName)
        end
        self.tilemap.set.tile(self.tilemap, tileX, tileY, tileToSet)
      end
    end
  end,
  update = function(self)
    local offX, offY = engine.math.getOffset(engine.w, self.x), engine.math.getOffset(engine.h, self.y)
    self.offX, self.offY = offX, offY
    self.tilemap.offX, self.tilemap.offY = offX, offY
    if engine.mouse.left then
      self:breakBlock(engine.mouse.x-offX, engine.mouse.y-offY)
    end
  end
})
elements.inventory = engine.elements.new.inventory({
  x = 3, y = 3, slotNum = 5, priority = true, tilemap = elements.tilemap
})

engine.run(elements, 0.001)