InfoTafel 1.0

term.redirect(peripheral.wrap("top"))
names = {
[1] = "Muzze77 - Stadtowner",
[2] = "Pyrotecbln - Stadtadmin",
[3] = "Wuschi2000",
[4] = "xxEnderDjxx",
[5] = "Capture_HD",
[6] = "Mikey4D",
[7] = "PkOwnit",
[8] = "DarkRome",
[9] = "CreatorCece",
[10] = "TheMarvin01",
[11] = "BatiCrafter",
[12] = "_CFLEP_",
[13] = "darksider56473",
[14] = "Hans153",
}
b = table.maxn(names)
b = b + 1
mon = peripheral.wrap("top")
orange = colors.orange
black = colors.black
white = colors.white
green = colors.green
blue = colors.blue
brown = colors.brown
red = colors.red
yellow = colors.yellow
bnorm = black
tnorm = green
s = 1
term.setBackgroundColor(bnorm)
shell.run("clear")
function rec()
    term.restore()
    term.setCursorPos(16, 16)
    term.setBackgroundColor(brown)
    nName = read()
    table.insert(names, nName)
    term.setBackgroundColor(bnorm)
    shell.run("clear")
    term.redirect(peripheral.wrap("top"))
    term.setBackgroundColor(bnorm)
    b = b + 1
end
function del()

    term.restore()
    term.setCursorPos(16, 16)
    term.setBackgroundColor(brown)

    nName = read()
    for num, rName in pairs(names) do

    pos = num
    end
        table.remove(names, pos)
        term.setBackgroundColor(bnorm)
    shell.run("clear")
    term.redirect(peripheral.wrap("top"))
    term.setBackgroundColor(bnorm)
    b = b - 1
end


function cbut(cx, cy, text, bcol, tcol)
term.setCursorPos(cx, cy)
term.setBackgroundColor(bcol)
term.setTextColor(tcol)
print(text)
term.setBackgroundColor(bnorm)
term.setTextColor(tnorm)

end

function stan()
cbut(4,5, "                                   ", yellow, black)
cbut(4,6, "  Willkommen in BURNING KEYS CITY  ", yellow, black)
cbut(4,7, "                                   ", yellow, black)

cbut(4,10, "                ", red, black)
cbut(4,11, "  Neueste User  ", red, black)
cbut(4,12, "                ", red, black)

cbut(38,2, "        ", green, black)
cbut(38,3, " RULES: ", green, black)
cbut(38,4, "        ", green, black)

cbut(48,2, "                     ", blue, black)
cbut(48,3, " Kein Flaming        ", blue, black)
cbut(48,4, "                     ", blue, black)

cbut(48,6, "                     ", blue, black)
cbut(48,7, " Kein Griefing       ", blue, black)
cbut(48,8, "                     ", blue, black)

cbut(48,10,"                     ", blue, black)
cbut(48,11," Keine 1x1 Tuerme    ", blue, black)
cbut(48,12,"                     ", blue, black)

cbut(48,14,"                     ", blue, black)
cbut(48,15," Max 2 GS Pro User   ", blue, black)
cbut(48,16,"                     ", blue, black)

cbut(4,16,"          ", orange, black)
cbut(4,17," Add User ", orange, black)
cbut(4,18,"          ", orange, black)

cbut(18,16,"          ", orange, black)
cbut(18,17," Del User ", orange, black)
cbut(18,18,"          ", orange, black)
end


while true do
term.setBackgroundColor(bnorm)
shell.run("clear")
stan()


while s ~= b do
evt, side, x, y = os.pullEvent("monitor_touch")
if evt == "monitor_touch" then
if x == 39 and y == 3 then
    evt, side, x, y = os.pullEvent("monitor_touch")
for mx = 4, 14, 1 do
for my = 16, 18, 1 do
    if x == mx then
    if y == my then
     cbut(16, 18," Namen Eingeben am PC ", brown, black)
     rec()
    end
    end
    end
    end
for mx = 18, 28, 1 do
for my = 16, 18, 1 do
    if x == mx then
    if y == my then
     cbut(16, 18," Namen Eingeben am PC ", brown, black)
     del()
    end
    end
    end
    end
end
shell.run("clear")

stan()

cbut(4, 14, " " .. names[s] .. " ", blue, black)
stan()
s = s + 1
if s == b then
s = 1
end
end
end

end