TraerAlone

Untitled

Jul 20th, 2016
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. local gpu = require("component").gpu
  2. local event = require("event")
  3. local fs = require("filesystem")
  4. --local arc = require("arc").GameStart
  5. local w, h = gpu.getResolution()
  6. maps={}
  7. N = 0
  8.  
  9. function PutPixel(x, y, color, text)
  10.   gpu.setBackground(color)
  11.   gpu.set(x, y, text)
  12.   gpu.setBackground(0)
  13. end
  14.  
  15. function Menu_2()
  16.   if N == 0 then
  17.     gpu.fill(1, 1, w, h, " ")
  18.     for file in fs.list("../maps/") do
  19.       N = N + 1
  20.       maps[N] = file
  21.       PutPixel(w / 2 - string.len(file) / 2, N * 4, 666666, file)
  22.     end
  23.   end
  24.    _, _, mx, my, _ = event.pull("touch")
  25.   if my % 4 == 0 then
  26.     N = my / 4
  27.     if maps[N] ~= nil then      
  28.       if mx + 1 > w / 2 - string.len(maps[N]) / 2 and mx < w / 2 + string.len(maps[N]) / 2 then
  29.         --arc(maps[N])
  30. --        break
  31.       else
  32.         Menu_2()
  33.       end
  34.     else
  35.       Menu_2()
  36.     end
  37.   else
  38.     Menu_2()
  39.   end
  40. end
  41.  
  42.  
  43. function Menu_1()
  44.   gpu.setBackground(0)
  45.   gpu.fill(1, 1, w, h, " ")
  46.   PutPixel(w / 2 - 6, h / 2 - 4, 777777, "Начать игру")
  47.   PutPixel(w / 2 - 7, h / 2, 777777, "Редактор карт")
  48.   PutPixel(w / 2 - 3, h / 2 + 4, 777777, "Выход")
  49.   _, _, mx, my, _ = event.pull("touch")
  50.   if mx + 1 > w / 2 - string.len("Начать игру") / 4 and mx + 1 < w / 2 + string.len("Начать игру") / 4 and my == h / 2 - 4 then
  51.     Menu_2()
  52.   elseif mx + 1 > w / 2 - string.len("Редактор карт") / 4 and mx + 1 < w / 2 + string.len("Редактор карт") / 4 and my == h / 2 then
  53.     print("1")
  54.   elseif mx + 1 > w / 2 - string.len("Выход") / 4 and mx + 1 < w / 2 + string.len("Выход") / 4 and my == h / 2 + 4 then
  55.     print(string.len("Выход"))
  56.   else
  57.     Menu_1()
  58.   end
  59. end
  60. Menu_1()
Advertisement
Add Comment
Please, Sign In to add comment