ComputerCraft Dungeons ALPHA 0.0.2

consoleRow = 3
cSpeaker = "Guide"
invShown = false
data = {}

data.melee = {
  {
    "Sword",5
  }
}

data.player = {
  inv = {
    "empty","empty","empty"
  },
  weaponType = "melee",
  weaponID = 1,
  hp = 10,
  int = 10,
  str = 10,
  dex = 10,
  gold = 10,
  name = "Explorer",
  class = "warrior",
  race = "human"
}

data.buttons = {
  startGameYes = {
    label = "Yes",
    color = colors.green
  },
  startGameNo = {
    label = "No ",
    color = colors.red
  }
}

data.maps = {
  {
    {"X","X","X","X","X","X","X","X","X","X"},
    {"X","X","X","X","X","X","X"," ","X","X"},
    {"X"," "," "," "," "," "," "," "," ","X"},
    {"X","X","X"," ","X","X","X","X","X","X"},
    {"X","X","X","D","X","X","X","X","X","X"}
  },
  {
    {"X","X","X","D","X","X","X","X","X","X"},
    {"X"," "," "," "," "," "," "," "," ","X"},
    {"X"," "," "," "," "," "," "," "," ","X"},
    {"X","X","X","X","X","X","X","X","X","X"}
  }
}

data.mapText = {
  "You stand in a dreary corridor..",
  "You enter a dimly lit room"
}

data.menu = {
  save = { label = "Save", output = "Not yet implemented :["},
  exit = { label = "Exit", output = "Good Bye!"}
}

function startGame()
  term.setBackgroundColor(colors.black)
  term.clear()
  term.setCursorPos(1,1)
  dial("Welcome to the dungeons of Mordug brave adventurer.")
  dial("Are you sure your up for the challenge?")
end

function drawButton(buttonName,x,y)
  if data["buttons"][buttonName] ~= nil then
    term.setCursorPos(x,y)
    term.setBackgroundColor(data["buttons"][buttonName]["color"])
    term.write(" "..data["buttons"][buttonName]["label"].." ")
  end
end

function getStartGame()
  drawButton("startGameYes",1,10)
  drawButton("startGameNo",1,12)
  event, button, x, y = os.pullEvent("mouse_click")
  if x >= 1 and x <= 5 then
    if y == 10 then
      return true
    end
    if y == 12 then
      return false
    end
  end
end

function dial(txt)
  term.setCursorPos(26,consoleRow)
  print(cSpeaker..":  "..txt)
  consoleRow = consoleRow+1
end

function speaker(speak_)
  cpseaker = speak_
end

function drawMap(name)
  if data["maps"][name] ~= nil then
    for i=1,#data["maps"][name] do
      for j = 1,#data["maps"][name][i] do
        term.setCursorPos(j,i)
        if data["maps"][name][i][j] == " " then
          term.setBackgroundColor(colors.black)
          term.write(" ")
        elseif data["maps"][name][i][j] == "X" then
          term.setBackgroundColor(colors.gray)
          term.write(" ")
        elseif data["maps"][name][i][j] == "D" then
          term.setBackgroundColor(colors.brown)
          term.write(" ")
        end
      end
    end
  end
  currentMap = name
end

function drawPlayer(x,y)
  if currentMap ~= nil then
    if data["maps"][currentMap][y][x] == " " then
      term.setCursorPos(x,y)
      term.setBackgroundColor(colors.blue)
      term.write(" ")
    elseif data["maps"][currentMap][y][x] == "X" or data["maps"][currentMap][y][x] == "D" then
      print("Invlaid! There's a wall there!")
      shell.exit()
    else
      term.setCursorPos(x,y)
      term.setBackgroundColor(colors.blue)
      term.write(" ")
    end
  else
    print("Invalid! No map loaded!")
    shell.exit()
  end
  data.player.x = x
  data.player.y = y
end

function checkMove(x,y)
  if currentMap ~= nil then
    if data["maps"][currentMap][y][x] == " " then
      return "clear"
    elseif data["maps"][currentMap][y][x] == "X" then
      return "wall"
    elseif data["maps"][currentMap][y][x] == "D" then
      return "door"
    end
  end
end

function movePlayer(x,y)
  term.setCursorPos(data.player.x,data.player.y)
  term.setBackgroundColor(colors.black)
  term.write(" ")
  term.setCursorPos(x,y)
  term.setBackgroundColor(colors.blue)
  term.write(" ")
  data.player.x = x
  data.player.y = y
end

function renderInv(x,y)
  term.setCursorPos(x,y)
  term.setBackgroundColor(colors.black)
  term.write("INVENTORY:")
  for i = 1,#data["player"]["inv"] do
    term.setCursorPos(x,y+i)
    term.write(data["player"]["inv"][i])
    y_ = y+i
  end
  term.setCursorPos(x,#data["player"]["inv"]+y+1)
  term.write("Weapon: ")
  term.write(data[data.player.weaponType][data.player.weaponID][1].." (dmg: "..data[data.player.weaponType][data.player.weaponID][2]..")")
  term.setCursorPos(x,#data["player"]["inv"]+y+2)
  term.write("Gold: "..data.player.gold)
end

function drawConsole()
  term.setBackgroundColor(colors.black)
  for i = 1,19 do
    term.setCursorPos(26,i)
    term.write("|")
    if i == 1 then
      term.write("Console")
    elseif i == 2 then
      for i = 1,25 do
        term.write("-")
      end
    end
  end
end

function getMapText(mapID)
    term.setBackgroundColor(colors.black)
    term.setCursorPos(27,consoleRow)
    --newRows_ = string.len(data["mapText"][mapID])/25
    term.write(data["mapText"][mapID])
    consoleRow = consoleRow + 1
end

startGame()
starter = getStartGame()

if starter == true then
  term.setBackgroundColor(colors.black)
  term.clear()
  term.setCursorPos(1,1)
  drawMap(1)
  drawPlayer(2,3)
  drawConsole()
  --renderInv(1,8)
  while true do
    event,button = os.pullEvent("key")
    if keys.getName(button) == "up" then
      check_ = checkMove(data.player.x,data.player.y-1)
      if check_ == "clear" then
        movePlayer(data.player.x,data.player.y-1)
      elseif check_ == "door" then
        term.setBackgroundColor(colors.black)
        term.clear()
        drawMap(currentMap-1)
        drawPlayer(2,3)
        if invShown == true then
          renderInv(1,8)
        end
        getMapText(currentRoom)
      end
      drawConsole()
    elseif keys.getName(button) == "right" then
      check_ = checkMove(data.player.x+1,data.player.y)
      if check_ == "clear" then
        movePlayer(data.player.x+1,data.player.y)
      end
    elseif keys.getName(button) == "left" then
      check_ = checkMove(data.player.x-1,data.player.y)
      if check_ == "clear" then
        movePlayer(data.player.x-1,data.player.y)
      end
    elseif keys.getName(button) == "down" then
      check_ = checkMove(data.player.x,data.player.y+1)
      if check_ == "clear" then
        movePlayer(data.player.x,data.player.y+1)
      elseif check_ == "door" then
        term.setBackgroundColor(colors.black)
        term.clear()
        drawMap(currentMap+1)
        drawPlayer(3,2)
        if invShown == true then
          renderInv(1,8)
        end
        getMapText(currentRoom)
      end
      drawConsole()
    elseif keys.getName(button) == "rightShift" then
      term.setBackgroundColor(colors.black)
      term.clear()
      term.setCursorPos(1,1)
      print("Thanks for playing CC Dungeons version ALPHA 0.0.1!")
      os.sleep(2)
      os.reboot()
    elseif keys.getName(button) == "e" then
      if invShown == false then
        renderInv(1,8)
        invShown = true
      else
        term.setBackgroundColor(colors.black)
        term.clear()
        drawMap(currentMap)
        drawPlayer(data.player.x,data.player.y)
        invShown = false
      end
    elseif keys.getName(button) == "q" then
      getMapText(currentRoom)
    end
    drawConsole()
  end
elseif starter == false then
  print("Then fly you fool!")
end