[Skyblock] NewInfoScreen

local m = peripheral.wrap("back")

local function drawMenu()
  m.setBackgroundColor(colors.gray)
  m.clear()
  m.setBackgroundColor(colors.red)
  m.setTextColor(colors.orange)
  m.setCursorPos(5,4)
  m.write("SKYBLOCK")
  m.setCursorPos(18,4)
  m.write("RUDY ITP")
  m.setCursorPos(7,6)
  m.write("SWIATY")
  m.setCursorPos(18,6)
  m.write("WALUTA")
  m.setCursorPos(8,8)
  m.write("SPAWN")
  m.setCursorPos(18,8)
  m.write("INNE")
  m.setCursorPos(10,10)
  m.write("ZABLOKOWANE")
  m.setCursorPos(11,2)
  m.write("REGULAMIN")

  m.setCursorPos(1,12)
  m.setBackgroundColor(colors.gray)
  m.setTextColor(colors.cyan)
  m.write("Ekran Informacyjny Bonzaii.eu")
end


local function drawPage(pageName, pageNum)
  if pageName == "skyblock" then
    if pageNum == 1 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(1, 1)
      m.setTextColor(colors.orange)
      m.write("/is ")
      m.setTextColor(colors.black)
      m.write("- nowa wyspa/TP do wyspy")
      m.setCursorPos(1,2)
      m.setTextColor(colors.orange)
      m.write("/is invite nick ")
      m.setTextColor(colors.black)
      m.setCursorPos(5,3)
      m.write("- zapros gracza do wyspy")
      m.setCursorPos(1,4)
      m.setTextColor(colors.orange)
      m.write("/is accept ")
      m.setCursorPos(5,5)
      m.setTextColor(colors.black)
      m.write("- akceptuj zaproszenie")
      m.setCursorPos(1,6)
      m.setTextColor(colors.orange)
      m.write("/is leave ")
      m.setCursorPos(5,7)
      m.setTextColor(colors.black)
      m.write("- porzucasz wyspe")
      m.setCursorPos(1,8)
      m.setTextColor(colors.orange)
      m.write("/is kick nick ")
      m.setCursorPos(5,9)
      m.setTextColor(colors.black)
      m.write("- Kick gracza z wyspy")
      m.setCursorPos(1,10)
      m.setTextColor(colors.orange)
      m.write("/is restart ")
      m.setCursorPos(5,11)
      m.setTextColor(colors.black)
      m.write("- restart wyspy")
    elseif pageNum == 2 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(1, 1)
      m.setTextColor(colors.orange)
      m.write("/c ")
      m.setCursorPos(3,2)
      m.setTextColor(colors.black)
      m.write("- osiagniecia na wyspie")
      m.setCursorPos(1,3)
      m.setTextColor(colors.orange)
      m.write("/c nazwa ")
      m.setTextColor(colors.black)
      m.setCursorPos(3,4)
      m.write("- wiecej info o osiagnieciu")
      m.setCursorPos(1,5)
      m.setTextColor(colors.orange)
      m.write("/c c nazwa ")
      m.setCursorPos(3,6)
      m.setTextColor(colors.black)
      m.write("- ukonczenie osiagniecia")
      m.setCursorPos(1,7)
      m.setTextColor(colors.orange)
      m.write("/is help ")
      m.setCursorPos(3,8)
      m.setTextColor(colors.black)
      m.write("- Wiecej Komend o wyspach")
      m.setCursorPos(2,9)
      m.setTextColor(colors.white)
      m.write("Po ukonczeniu wszystkich")
      m.setCursorPos(1,10)
      m.write("osiagniec, dostajesz prawo")
      m.setCursorPos(1,11)
      m.write("craftu 'Autonomous Activator'")
    end
  elseif pageName == "rudy" then
    if pageNum == 1 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("Drop z Cobblestone'a")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      m.write("Coal Ore - ")
      m.setCursorPos(2,4)
      m.write("Tin Ore - ")
      m.setCursorPos(2,5)
      m.write("Copper Ore - ")
      m.setCursorPos(2,6)
      m.write("Iron Ore - ")
      m.setCursorPos(2,7)
      m.write("Silver Ore - ")
      m.setCursorPos(2,8)
      m.write("Gold Ore - ")
      m.setCursorPos(2,9)
      m.write("Redstone Ore - ")
      m.setCursorPos(2,10)
      m.write("Lapis Lazuli Ore - ")
      m.setCursorPos(2,11)
      m.write("Nether Quartz Ore - ")
    elseif pageNum == 2 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(2,3)
      m.write("Apatite Ore - ")
      m.setCursorPos(2,4)
      m.write("Sulfur Ore - ")
      m.setCursorPos(2,5)
      m.write("Saltpeter Ore - ")
    elseif pageNum == 3 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(8, 1)
      m.setTextColor(colors.orange)
      m.write("Drop ze Stone'a")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      m.write("Lead Ore - ")
      m.setCursorPos(2,4)
      m.write("Ferrous Ore - ")
      m.setCursorPos(2,5)
      m.write("Uranium Ore - ")
      m.setCursorPos(2,6)
      m.write("Certus Quartz Ore - ")
      m.setCursorPos(2,7)
      m.write("Diamond Ore - ")
      m.setCursorPos(2,8)
      m.write("Emerald Ore - ")
      m.setCursorPos(2,9)
      m.write("Ruby Ore - ")
      m.setCursorPos(2,10)
      m.write("Sapphire Ore - ")
      m.setCursorPos(2,11)
      m.write("Peridot Ore - ")
    elseif pageNum == 4 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(8, 1)
      m.setTextColor(colors.orange)
      m.write("Drop z Netherrack'a")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      m.write("Forest Hive - 0,05%")
      m.setCursorPos(2,4)
      m.write("Meadows Hive - 0,05%")
      m.setCursorPos(2,5)
      m.write("Modest Hive - 0,05%")
      m.setCursorPos(2,6)
      m.write("Tropical Hive - 0,05%")
      m.setCursorPos(2,7)
      m.write("Wintry Hive - 0,05%")
      m.setCursorPos(2,8)
      m.write("Marshy Hive - 0,05%")
      m.setCursorPos(2,9)
      m.write("Nether Star - 0,001%")
    end
  elseif pageName == "blok" then
    if pageNum == 1 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("Zablokowane Itemy")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      m.write("Mining Laser")
      m.setCursorPos(2,4)
      m.write("Quarry / Ender Quarry")
      m.setCursorPos(2,5)
      m.write("Quantum Set")
      m.setCursorPos(2,6)
      m.write("Matter Cannon")
      m.setCursorPos(2,7)
      m.write("NUKE")
      m.setCursorPos(2,8)
      m.write("Turtle (procz Mining)")
      m.setCursorPos(2,9)
      m.write("Advanced Crafting Table")
      m.setCursorPos(2,10)
      m.write("Auto Workbench")
      m.setCursorPos(2,11)
      m.write("Machinist Workbench")
    elseif pageNum == 2 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("Zablokowane Itemy")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      m.write("Worktable")
      m.setCursorPos(2,4)
      m.write("Cyclic Assembler")
      m.setCursorPos(2,5)
      m.write("Autonomous Activator")
      m.setTextColor(colors.red)
      m.write("*")
      m.setTextColor(colors.black)
      m.setCursorPos(3,6)
      m.write("Tylko do momentu ukonczenia")
      m.setCursorPos(2,7)
      m.write("wszystkich osiagniec")
      m.setTextColor(colors.white)
      m.setCursorPos(2,8)
      m.write("Chunk Loader (z chickencore)")
      m.setCursorPos(2,9)
      m.write("Lava Fabricator")
      m.setCursorPos(2,10)
      m.write("Czesc Itemow z ZeldaMod")
      m.setCursorPos(2,11)
      m.write("")
    end
  elseif pageName == "waluta" then
    if pageNum == 1 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("Waluta na Skyblocku")
      m.setTextColor(colors.green)
      m.setCursorPos(5,3)
      m.write("Industrial Credit")
      m.setTextColor(colors.white)
      m.setCursorPos(2,4)
      m.write("Z 1 sztabki zelaza mozna")
      m.setCursorPos(2,5)
      m.write("zrobic 4x Industrial Credit")
      m.setCursorPos(2,6)
      m.write("W naszym sklepie mozesz tez")
      m.setCursorPos(2,7)
      m.write("sprzedac 1 stack Cobblestone")
      m.setCursorPos(2,8)
      m.write("za 1x Industrial Credit")
      m.setCursorPos(2,9)
      m.write("Przedmioty w sklepie sa za")
      m.setCursorPos(2,10)
      m.write("Industrial Credity!")
      m.setCursorPos(2,11)
      m.write("")
    elseif pageNum == 2 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(10, 1)
      m.setTextColor(colors.orange)
      m.write("Sklep")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      m.write("W sklepie oprocz kupowania")
      m.setCursorPos(2,4)
      m.write("mozesz rowniez sprzedac")
      m.setCursorPos(2,5)
      m.write("wiele rzeczy.")
      m.setCursorPos(2,6)
      m.write("Od sadzonek, po arbuzy,")
      m.setCursorPos(2,7)
      m.write("a nawet zloto itp.")
      m.setCursorPos(2,8)
      m.write("W szczegolnych przypadkach")
      m.setCursorPos(2,9)
      m.write("waluta platnicza nie jest")
      m.setCursorPos(2,10)
      m.write("Industrial Credit, tylko")
      m.setCursorPos(2,11)
      m.setTextColor(colors.cyan)
      m.write("Diamenty ")
      m.setCursorPos(2,11)
      m.setTextColor(colors.white)
      m.setCursorPos(11,11)
      m.write("/ ")
      m.setTextColor(colors.green)
      m.setCursorPos(13,11)
      m.write("Szmaragdy")
    end
  elseif pageName == "swiaty" then
    if pageNum == 1 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("Nether")
      m.setTextColor(colors.green)
      m.setCursorPos(5,3)
      m.write("W przygotowaniu")
      m.setTextColor(colors.white)
      m.setCursorPos(2,4)
      --m.write("Z 1 sztabki zelaza mozna")
      m.setCursorPos(2,5)
      --m.write("zrobic 4x Industrial Credit")
      m.setCursorPos(2,6)
      --m.write("W naszym sklepie mozesz tez")
      m.setCursorPos(2,7)
      --m.write("sprzedac 1 stack Cobblestone")
      m.setCursorPos(2,8)
      --m.write("za 1x Industrial Credit")
      m.setCursorPos(2,9)
      --m.write("Przedmioty w sklepie sa za")
      m.setCursorPos(2,10)
      --m.write("Industrial Credity!")
      m.setCursorPos(2,11)
      m.write("")
    elseif pageNum == 2 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("End / Deepworld")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      m.write("W przygotowaniu")
      m.setCursorPos(2,4)
      --m.write("2")
      m.setCursorPos(2,5)
      --m.write("3")
      m.setCursorPos(2,6)
      --m.write("4")
      m.setCursorPos(2,7)
      --m.write("5")
      m.setCursorPos(2,8)
      --m.write("6")
      m.setCursorPos(2,9)
      --m.write("7")
      m.setCursorPos(2,10)
      --m.write("8")
      m.setCursorPos(2,11)
      --m.write("9")
    end
  elseif pageName == "inne" then
    if pageNum == 1 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("W przygotowaniu")
      m.setTextColor(colors.green)
      m.setCursorPos(5,3)
      --m.write("Industrial Credit")
      m.setTextColor(colors.white)
      m.setCursorPos(2,4)
      --m.write("Z 1 sztabki zelaza mozna")
      m.setCursorPos(2,5)
      --m.write("zrobic 4x Industrial Credit")
      m.setCursorPos(2,6)
      --m.write("W naszym sklepie mozesz tez")
      m.setCursorPos(2,7)
      --m.write("sprzedac 1 stack Cobblestone")
      m.setCursorPos(2,8)
      --m.write("za 1x Industrial Credit")
      m.setCursorPos(2,9)
      --m.write("Przedmioty w sklepie sa za")
      m.setCursorPos(2,10)
      --m.write("Industrial Credity!")
      m.setCursorPos(2,11)
      m.write("")
    elseif pageNum == 2 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      --m.write("End / Deepworld")
      m.setTextColor(colors.white)
      m.setCursorPos(2,3)
      --m.write("1")
      m.setCursorPos(2,4)
      --m.write("2")
      m.setCursorPos(2,5)
      --m.write("3")
      m.setCursorPos(2,6)
      --m.write("4")
      m.setCursorPos(2,7)
      --m.write("5")
      m.setCursorPos(2,8)
      --m.write("6")
      m.setCursorPos(2,9)
      --m.write("7")
      m.setCursorPos(2,10)
      --m.write("8")
      m.setCursorPos(2,11)
      --m.write("9")
    end
  elseif pageName == "regulamin" then
    if pageNum == 1 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(6, 1)
      m.setTextColor(colors.orange)
      m.write("Regulamin Bonzaii.eu")
      m.setCursorPos(9, 2)
      m.setTextColor(colors.red)
      m.write("ZAKAZANE jest:")
      m.setTextColor(colors.white)
      m.setCursorPos(2,4)
      m.write("1. Uzywanie zablok. itemow")
      m.setCursorPos(2,5)
      m.write("2. Tworzenie multi-kont")
      m.setCursorPos(2,6)
      m.write("3. Uzywanie 'afczarki'")
      m.setCursorPos(2,7)
      m.write("4. Spamowanie na czacie")
      m.setCursorPos(2,8)
      m.write("5. Griefowanie/kradziez")
      m.setCursorPos(2,9)
      m.write("6. Obrazanie graczy")
      m.setCursorPos(2,10)
      m.write("7. Reklamowanie serwerow")
      m.setCursorPos(5,11)
      m.write("teamspeak3/minecraft")
    elseif pageNum == 2 then
      m.setBackgroundColor(colors.gray)
      m.clear()
      m.setCursorPos(13, 1)
      m.setTextColor(colors.orange)
      m.write("Kary")
      m.setTextColor(colors.green)
      m.setCursorPos(6,3)
      m.write("WYKROCZENIE - 1/2/3")
      m.setTextColor(colors.white)
      m.setCursorPos(6,4)
      m.write("Wyzywanie - kick/1h/4h")
      m.setCursorPos(6,5)
      m.write("Spam - kick/kick/1h")
      m.setCursorPos(3,6)
      m.write("Griefowanie, kradziez,")
      m.setCursorPos(3,7)
      m.write("multi-konto, afczarka,")
      m.setCursorPos(3,8)
      m.write("reklama, lub uzywanie")
      m.setCursorPos(3,9)
      m.write("zablokowanych przedmiotow,")
      m.setCursorPos(3,10)
      m.write("karane jest ")
      m.setTextColor(colors.red)
      m.setCursorPos(15,10)
      m.write("BANEM PERM")
      m.setTextColor(colors.white)
      m.setCursorPos(3,11)
      m.write("bez mozliwosci odwolania.")
    end
  elseif pageName == "spawn" then
    m.setBackgroundColor(colors.gray)
    m.clear()
    m.setCursorPos(6, 1)
    m.setTextColor(colors.orange)
    m.write("Spawn")
    m.setTextColor(colors.green)
    m.setCursorPos(5,3)
    m.write("A tutaj bedzie mapka spawnu")
    m.setTextColor(colors.white)
    m.setCursorPos(2,4)
    --m.write("Z 1 sztabki zelaza mozna")
    m.setCursorPos(2,5)
    --m.write("zrobic 4x Industrial Credit")
    m.setCursorPos(2,6)
    --m.write("W naszym sklepie mozesz tez")
    m.setCursorPos(2,7)
    --m.write("sprzedac 1 stack Cobblestone")
    m.setCursorPos(2,8)
    --m.write("za 1x Industrial Credit")
    m.setCursorPos(2,9)
    --m.write("Przedmioty w sklepie sa za")
    m.setCursorPos(2,10)
    --m.write("Industrial Credity!")
    m.setCursorPos(2,11)
    --m.write("")

  end

m.setBackgroundColor(colors.red)
m.setTextColor(colors.orange)
m.setCursorPos(26,12)
m.write("MENU")

if pageName ~= "spawn" then
  m.setCursorPos(10,12)
  m.setBackgroundColor(colors.black)
  m.setTextColor(colors.white)
  m.write("Strona ")
  m.write(tostring(pageNum))

  if pageName == "rudy" then
    m.write("/4")
  else
    m.write("/2")
  end

  if pageNum < 2 and pageName ~= "rudy" then
    m.setCursorPos(22,12)
    m.write(">>")
  elseif pageNum < 4 and pageName == "rudy" then
    m.setCursorPos(22,12)
    m.write(">>")
  end

  if pageNum > 1 then
    m.setCursorPos(6,12)
    m.write("<<")
  end
end

  while true do
    local event, side, x, y = os.pullEvent("monitor_touch")

    if x >= 6 and x <= 8 and y == 12 and pageNum > 1 then
      return pageNum - 1
    elseif x >= 22 and x <= 24 and y == 12 and pagename ~= "rudy" and pageNum < 2 then
      return pageNum + 1
    elseif x >= 22 and x <= 24 and y == 12 and pageName == "rudy" and pageNum < 4 then
      return pageNum + 1
    elseif x >= 26 and x <= 30 and y == 12 then
      drawMenu()
      return
    end
  end


end

drawMenu()

while true do
  local event, side, x, y = os.pullEvent("monitor_touch")

  local pageName
  local pageNum = 1

  if x >= 11 and x <= 20 and y == 2 then
    pageName = "regulamin"
  elseif x >= 5 and x <= 12 and y == 4 then
    pageName = "skyblock"
  elseif x >= 18 and x <= 26 and y == 4 then
    pageName = "rudy"
  elseif x >= 7 and x <= 13 and y == 6 then
    pageName = "swiaty"
  elseif x >= 18 and x <= 24 and y == 6 then
    pageName = "waluta"
  elseif x >= 8 and x <= 13 and y == 8 then
    pageName = "spawn"
  elseif x >= 18 and x <= 22 and y == 8 then
    pageName = "inne"
  elseif x >= 10 and x <= 21 and y == 10 then
    pageName = "blok"

  end

  while pageName and pageNum do
    pageNum = drawPage(pageName, pageNum)
  end
end