Stadtplan BKC

shell.run("clear")

mon = peripheral.wrap("back")
mon.setBackgroundColor(colors.white)
mon.setTextColor(colors.blue)
mon.setTextScale(1)
mon.clear()
gx,gy = mon.getSize()
-- switches --
t = {}
t[1] = "GS zum Verkauf von 400$"
t[2] = "Spawn"
t[3] = "TekkitLiteShowcenter"
t[4] = "ComputercraftShowcenter"
t[5] = "Manarola Owner: Muzze77"
t[6] = "GS von CyberD1"
t[7] = "Bauteam bitte Plannieren"
t[8] = "GS von Tobycraft2HD"
t[9] = "GS von _HDCrafter_"
t[10] = "GS von minecraftinf"
-- /switches --


black = colors.black
red = colors.red
green = colors.green
white = colors.white
blue = colors.blue
bnorm = colors.white
tnorm = colors.blue
brown = colors.brown
cyan = colors.cyan
orange = colors.orange
yellow = colors.yellow
pink = colors.pink
purple = colors.purple

function cbut(cx, cy, text, bcol, tcol)
mon.setCursorPos(cx, cy)
if bcol == nil then
bcol = bnorm
end
if tcol == nil then
tcol = tnorm
end

mon.setBackgroundColor(bcol)
mon.setTextColor(tcol)
mon.write(text)
mon.setBackgroundColor(bnorm)
mon.setTextColor(tnorm)
end






function rune()

--spawnbereich--
cbut(gx/2-6,1," STADTPLAN MANAROLA ",colors.white,colors.blue)
cbut(8,gy,"graue Pixel sind Strassen, angaben in Chunks!")
cbut(gx-2,1,"[R]",colors.white,colors.green)
cbut(2,3," ",colors.blue,colors.blue)
cbut(3,3," ", colors.gray, colors.white)
cbut(2,4," ",colors.blue,colors.blue)
cbut(3,4," ", colors.gray, colors.white)
cbut(2,5,"O",colors.green,colors.black)
cbut(3,5," ", colors.gray, colors.white)
cbut(2,6," ", colors.orange,colors.blue)
cbut(3,6," ", colors.gray, colors.white)
cbut(2,7," ", colors.orange,colors.blue)
cbut(3,7," ", colors.gray, colors.white)
cbut(3,8," ", colors.gray, colors.white)
cbut(2,8," ", colors.gray, colors.white)
cbut(4,6," ", colors.red,colors.white)
cbut(4,7," ", colors.red,colors.white)
cbut(5,6," ", colors.red,colors.white)
cbut(5,7," ", colors.red,colors.white)
cbut(1,8," ",colors.gray,colors.white)
cbut(2,9," ",colors.blue)
cbut(1,9," ",colors.blue)
cbut(4,9," ",colors.blue)
cbut(5,9," ",colors.blue)

cbut(4,5," ",colors.cyan)
cbut(4,4," ",colors.cyan)
cbut(5,5," ",colors.cyan)
cbut(5,4," ",colors.cyan)

cbut(3,3," ",colors.cyan)
cbut(4,3," ",colors.cyan)
cbut(5,3," ",colors.cyan)

cbut(3,9," ",colors.gray)
cbut(4,8," ",colors.gray)
cbut(5,8," ",colors.gray)
--/spawnbereich--


cbut(gx/2-6,gy-1," Ort anklicken für INFO", colors.white,colors.blue)
sleep(0.15)
end

function showCount(id)
cbut(gx/2-6,gy-3, "                                                                           ",colors.white,colors.blue)
sleep(0.01)
cbut(gx/2-6,gy-3,t[id],colors.white,colors.black)
end

rune()

pos = {}
pos["X"] = 1
pos["Y"] = 1

function update()
rune()
evt,side,dx,dy = os.pullEvent("monitor_touch")
if dx == gx-1 and dy == 1 then
    shell.run("reboot")
end

if dy > 1 and dy ~= gy-1 and dy ~= gy-3 then
rune()
cbut(1,gy-3,"                                                                           ",colors.white,colors.blue)
print(dx,dy)
mon.setCursorPos(dx,dy)
mon.setBackgroundColor(colors.white)
mon.setTextColor(colors.black)
mon.write("X")
mon.setCursorPos(pos["X"],pos["Y"])

mon.write(" ")

pos["X"] = dx
pos["Y"] = dy

if dx == 5 and dy == 6 then
    showCount(5)
elseif dx == 4 and dy == 6 then
    showCount(5)
elseif dx == 5 and dy == 7 then
    showCount(5)
elseif dx == 4 and dy == 7 then
    showCount(5)
elseif dx == 2 and dy == 3 then
    showCount(6)
elseif dx == 2 and dy == 4 then
    showCount(6)
elseif dx == 2 and dy == 5 then
    showCount(2)
elseif dx == 2 and dy == 6 then
    showCount(3)
elseif dx == 2 and dy == 7 then
    showCount(4)
elseif dx == 1 and dy == 9 then
    showCount(10)
elseif dx == 2 and dy == 9 then
    showCount(9)
elseif dx == 4 and dy == 9 then
    showCount(8)
elseif dx == 5 and dy == 9 then
    showCount(8)

elseif dx == 4 and dy == 4 then
    showCount(7)
elseif dx == 4 and dy == 5 then
    showCount(7)
elseif dx == 5 and dy == 5 then
    showCount(7)
elseif dx == 5 and dy == 4 then
    showCount(7)
elseif dx == 4 and dy == 3 then
    showCount(7)
elseif dx == 3 and dy == 3 then
    showCount(7)
elseif dx == 5 and dy == 3 then
    showCount(7)

end

end
end


while true do
update()







end




--------------------------------------------