schach.lua

shell.run("clear")
local FiguresArt = {"B","B","B","B","B","B","B","B","T","S","L","K","k","L","S","T"}
local posB,posW,Figures = {},{},{}
local currentTurn = "LightBlue / White"
local selectedX = 0
local selectedY = 0
local c, d = 0, 0
args = { ... }
local firstMove = true

function insertFigures()
  posB = {{2,1,"B",16},{2,2,"B",16},{2,3,"B",16},{2,4,"B",16},{2,5,"B",16},{2,6,"B",16},{2,7,"B",16},{2,8,"B",16},
          {1,1,"T",16},{1,2,"S",16},{1,3,"L",16},{1,4,"K",16},{1,5,"k",16},{1,6,"L",16},{1,7,"S",16},{1,8,"T",16}}
  posW = {{7,1,"B",1},{7,2,"B",1},{7,3,"B",1},{7,4,"B",1},{7,5,"B",1},{7,6,"B",1},{7,7,"B",1},{7,8,"B",1},
          {8,1,"T",1},{8,2,"S",1},{8,3,"L",1},{8,4,"K",1},{8,5,"k",1},{8,6,"L",1},{8,7,"S",1},{8,8,"T",1}}
end

function loadFiguresT()
  for xx = 1, 100 do
    Figures[xx]={}
    for xxx = 1, 100 do
      Figures[xx][xxx] = {}
      Figures[xx][xxx][1] = " "
      Figures[xx][xxx][2] = 0
    end
  end
  for i = 1, 16 do
    Figures[posB[i][1]][posB[i][2]][1] = posB[i][3]
    Figures[posB[i][1]][posB[i][2]][2] = posB[i][4]
  end
  for i = 1, 16 do
    Figures[posW[i][1]][posW[i][2]][1] = posW[i][3]
    Figures[posW[i][1]][posW[i][2]][2] = posW[i][4]
  end
end

function loadBoard()
  loadFiguresT()
  shell.run("clear")
  color = 0
  for x = 1, 8 do
  for y = 1, 8 do
    term.setCursorPos(x+10,y+1)
    if selectedX == x and selectedY == y then
    term.setCursorPos(1, 12)
      term.setBackgroundColor(colors.yellow)
      --print("yellow")
    elseif selectedX2 == x and selectedY2 == y then
    term.setCursorPos(1, 12)
      term.setBackgroundColor(colors.pink)
      --print("pink")
    elseif color%2 == 1 then
    term.setCursorPos(1, 12)
      term.setBackgroundColor(colors.black)
      --print("black")
    else
    term.setCursorPos(1, 12)
      term.setBackgroundColor(1)
      --print("white")
    end
    term.setCursorPos(x+10,y+1)
    if Figures[y][x][2] == 16 then
      term.setTextColor(colors.red)
    else
      term.setTextColor(colors.lightBlue)
    end
    write(Figures[y][x][1])
    color=color+1
    term.setCursorPos(1, 11)
    --print("x: "..x.." y:"..y)
    --sleep(0)
    end
    color=color+1
  end
  term.setBackgroundColor(colors.black)
  term.setTextColor(colors.lime)
  term.setCursorPos(1, 11)
  term.write("Current Turn: "..currentTurn)
  term.setCursorPos(1, 13)
end

function checkValid()
  if Figures[selectedY][selectedX] == "B" then
    if Figures[selectedY][selectedX] == 1 then
      if selectedY2 == selectedY+1 and selectedX2 == selectedX and Figures[selectedY+1][selectedX][2] == 0 then
        return true
      elseif selectedY2 == selectedY+2 and selectedX2 == selectedX and Figures[selectedY+2][selectedX][2] == 0 and firsMove == true then
        return true
      elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+1 and Figures[selectedY+1][selectedX+1][2] == 16 then
        return true
      elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-1 and Figures[selectedY+1][selectedX-1][2] == 16 then
        return true
      end
    elseif Figures[selectedX][selectedY][2] == 16 then
      if selectedY2 == selectedY-1 and selectedX2 == selectedX and Figures[selectedY-1][selectedX][2] == 0 then
        return true
      elseif selectedY2 == selectedY+2 and selectedX2 == selectedX and Figures[selectedY+2][selectedX][2] == 0 and firsMove == true then
        return true
      elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX+1][2] == 1 then
        return true
      elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX-1][2] == 1 then
        return true
      end
    end
  elseif Figures[selectedX][selectedY][1] == "S" then
    if Figures[selectedX][selectedY][2] == 1 then
        if selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        end
    elseif Figures[selectedX][selectedY][2] == 16 then
        if selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        end
    end
  elseif Figures[selectedX][selectedY][1] == "T" then
    test = true
    if Figures[selectedX][selectedY][2] == 1 then
        if selectedY2 == selectedY then
            if selectedX < selectedX2 then
                for iii = selectedX2, selectedX-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedX > selectedX2 then
                for iii = selectedX, selectedX2-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            end
        elseif selectedX2 == selectedX then
            if selectedY < selectedY2 then
                for iii = selectedY2, selectedY-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedY > selectedY2 then
                for iii = selectedY, selectedY2-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            end
        end
        if Figures[selectedY2][selectedX2][2] == 1 then test = false end
        if test == true then
        return true
        end
    elseif Figures[selectedX][selectedY][2] == 16 then
        if selectedY2 == selectedY then
            if selectedX < selectedX2 then
                for iii = selectedX2, selectedX-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedX > selectedX2 then
                for iii = selectedX, selectedX2-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            end
        elseif selectedX2 == selectedX then
            if selectedY < selectedY2 then
                for iii = selectedY2, selectedY-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedY > selectedY2 then
                for iii = selectedY, selectedY2-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            end
        end
        if Figures[selectedY2][selectedX2][2] == 16 then test = false end
        if test == true then
        return true
        end
    end
  elseif Figures[selectedX][selectedY][1] == "L" then
    test = false
    xtest = selectedX
    ytest = selectedY
    for iii = 1, 8 do
        ytest,xtest=ytest+1,xtest+1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    for iii = 1, 8 do
        ytest,xtest=ytest-1,xtest-1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    for iii = 1, 8 do
        ytest,xtest=ytest+1,xtest-1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    for iii = 1, 8 do
        ytest,xtest=ytest-1,xtest+1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    if Figures[selectedX][selectedY][2] == 1 then
        xtest = selectedX
        ytest = selectedY
        if test == true then
            if testy < selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            elseif testy > selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            end
            if Figures[selectedY2][selectedX2][2] == 16 then test = false end
            if test == true then
                return true
            end
        end
    elseif Figures[selectedX][selectedY][2] == 16 then
        xtest = selectedX
        ytest = selectedY
        if test == true then
            if testy < selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            elseif testy > selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            end
            if Figures[selectedY2][selectedX2][2] == 16 then test = false end
        end
    end
  elseif Figures[selectedX][selectedY][1] == "K" then
    xtest = selectedX
    ytest = selectedY
    if Figures[selectedX][selectedY][2] == 1 then
        if selectedX2 == xtest+1 then
        if selectedY2 == ytest+1 then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        elseif selectedX2 == xtest then if selectedY2 == ytest+1 then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest+1 then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest-1 then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        elseif selectedX2 == xtest then if selectedY2 == ytest-1 then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        elseif selectedX2 == xtest+1 then if selectedY2 == ytest-1 then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest then
        if not Figures[selectedX2][selectedY2][2] == 1 then
        return true
        end
        end
        end
    elseif Figures[selectedX][selectedY][2] == 16 then
        if selectedX2 == xtest+1 then if selectedY2 == ytest+1 then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        elseif selectedX2 == xtest then if selectedY2 == ytest+1 then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest+1 then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest-1 then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        elseif selectedX2 == xtest then if selectedY2 == ytest-1 then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        elseif selectedX2 == xtest+1 then if selectedY2 == ytest-1 then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        elseif selectedX2 == xtest-1 then if selectedY2 == ytest then
        if not Figures[selectedX2][selectedY2][2] == 16 then
        return true
        end
        end
        end
    end
  elseif Figures[selectedX][selectedY][1] == "k" then
    if Figures[selectedX][selectedY][2] == 1 then
        if selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        end
    elseif Figures[selectedX][selectedY][2] == 16 then
        if selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 0 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY-2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY-1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX+2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY+1 and selectedX2 == selectedX-2 and Figures[selectedY-1][selectedX][2] == 1 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX+1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        elseif selectedY2 == selectedY+2 and selectedX2 == selectedX-1 and Figures[selectedY-1][selectedX][2] == 16 then
            return true
        end
    end
    test = true
    if Figures[selectedX][selectedY][2] == 1 then
        if selectedY2 == selectedY then
            if selectedX < selectedX2 then
                for iii = selectedX2, selectedX-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedX > selectedX2 then
                for iii = selectedX, selectedX2-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            end
        elseif selectedX2 == selectedX then
            if selectedY < selectedY2 then
                for iii = selectedY2, selectedY-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedY > selectedY2 then
                for iii = selectedY, selectedY2-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            end
        end
        if Figures[selectedY2][selectedX2][2] == 1 then test = false end
        if test == true then
        return true
        end
    elseif Figures[selectedX][selectedY][2] == 16 then
        if selectedY2 == selectedY then
            if selectedX < selectedX2 then
                for iii = selectedX2, selectedX-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedX > selectedX2 then
                for iii = selectedX, selectedX2-1 do
                    if Figures[selectedY][iii][2] ~= 0 then
                        test = false
                    end
                end
            end
        elseif selectedX2 == selectedX then
            if selectedY < selectedY2 then
                for iii = selectedY2, selectedY-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            elseif selectedY > selectedY2 then
                for iii = selectedY, selectedY2-1 do
                    if Figures[iii][selectedX][2] ~= 0 then
                        test = false
                    end
                end
            end
        end
        if Figures[selectedY2][selectedX2][2] == 16 then test = false end
        if test == true then
        return true
        end
    end
    test = false
    xtest = selectedX
    ytest = selectedY
    for iii = 1, 8 do
        ytest,xtest=ytest+1,xtest+1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    for iii = 1, 8 do
        ytest,xtest=ytest-1,xtest-1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    for iii = 1, 8 do
        ytest,xtest=ytest+1,xtest-1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    for iii = 1, 8 do
        ytest,xtest=ytest-1,xtest+1
        if selectedX2 == xtest or selectedY2 == ytest then
            test = true
            break
        end
    end
    if Figures[selectedX][selectedY][2] == 1 then
        xtest = selectedX
        ytest = selectedY
        if test == true then
            if testy < selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            elseif testy > selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            end
            if Figures[selectedY2][selectedX2][2] == 16 then test = false end
            if test == true then
                return true
            end
        end
    elseif Figures[selectedX][selectedY][2] == 16 then
        xtest = selectedX
        ytest = selectedY
        if test == true then
            if testy < selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy-1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            elseif testy > selectedY2 then
                if testx < selectedX2 then
                    for iii = testx, selectedX22 do
                        testx, testy = testx-1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                elseif testx > selectedX2 then
                    for iii = selectedX2, testx do
                        testx, testy = testx+1, testy+1
                        if Figures[testy][testx][2] ~= 0 then
                            test = false
                        end
                    end
                end
            end
            if Figures[selectedY2][selectedX2][2] == 16 then test = false end
        end
    end
  end
end

function move()
    print("A")
    --print(checkValid())
    sleep(1)
    --if checkValid() then
        Figures[selectedY2][selectedX2][1] = Figures[selectedY][selectedX][1]
        Figures[selectedY2][selectedX2][2] = Figures[selectedY][selectedX][2]
        Figures[selectedY][selectedX][1] = " "
        Figures[selectedY][selectedX][2] = 0
        return true
    --else
    --  return false
    --end
end

function slect()
  valid = false
  while not valid do
  loadBoard()
  c, d, slectedX2, selectedY2, slectedX, selectedY,continue = 0, 0,0,0,0,0,0
  while c < 1 or c > 8 or d < 1 or d > 8 or selectedX == 0 or selectedX2 == 0 or selectedY == 0 or selectedY2 == 0 or continue == 2 do
    loadBoard()
    a, b, c, d = os.pullEvent("mouse_click")
    c, d = c-10, d-1
    if b == "1" or b == 1 then
    if currentTurn == "LightBlue / White" then
    --print(c.." : "..d)
    --print(Figures[c][d][2])
    --print(Figures[5][8][2])
    --sleep(1)
    if Figures[d][c][2] == 1 then
    selectedX = c
    selectedY = d
    if selectedX < 1 and selectedY < 1 then
    continue = continue+1
    end
    end
    elseif currentTurn == "Red / Black" then
    if Figures[d][c][2] == 16 then
    selectedX = c
    selectedY = d
    if selectedX < 1 and selectedY < 1 then
    continue = continue+1
    end
    end
    end
    else
    selectedX2 = c
    selectedY2 = d
    if selectedX2 < 1 and selectedY2 < 1 then
    continue = continue+1
    end
    end
    loadBoard()
  end
  sleep(1)
  valid = move()
  end
end

insertFigures()

if args[1] == "debug" then
loadBoard()
  for i = 1, 8 do
    for ii = 1, 8 do
      selectedX = ii
      selectedY = i
      loadBoard()
      print(i..":"..ii..":1 = "..Figures[i][ii][1])
      print(i..":"..ii..":2 = "..Figures[i][ii][2])
      sleep(0.1)
    end
  end
end

while true do
loadBoard()
slect()
sleep(5)
end