vezerlo

local a="2.5.1b"local b="koro Vez\xe9rl\xf5"local c=require'md5'local d=nil;local e=nil;local f={["open"]={12,0.5,16,0.5,19,0.5,24,0},["close"]={24,0.5,19,0.5,16,0.5,12,0},["success"]={12,0.5,16,0.5,19,0.5,24,0.5,12,0.1,16,0.1,19,0.1,24,0},["fail"]={3,0.2,3,0}}local function g(h)if d and f[h]then for i=1,#f[h],2 do d.playNote("bit",3,f[h][i])sleep(f[h][i+1])end end end;local function j(k)local l=false;local n=""k:gsub(".",function(o)if o=="{"then l=true;n=""return end;if o=="}"then term.setTextColor(colors[n])l=false;return end;if not l then write(o)return end;n=n..o end)end;local function q(r)local s=r:find(":")return r:sub(1,s-1),r:sub(s+1,#r):sub(1,#r):gsub("_"," ")end;local function t()local u;write("A t\xe1rgy nev\xe9t: ")local v=read():gsub("%s+","")rednet.broadcast(v,"iteminfo")local i,m,p=rednet.receive()if not m then j("{red}\xc9rv\xe9nytelen t\xe1rgy nev\xe9t{white}\n\n")return end;write("Az \xf6sszeg: ")local w=read()if not w or#w==0 then j("{red}\xc9rv\xe9nytelen \xf6sszeg{white}\n\n")return end;w=tonumber(w)if w<0 then j("{red}\xc9rv\xe9nytelen \xf6sszeg{white}\n\n")return elseif w==0 then write("Maximum k\xe9r\xe9s.\n\n")end;rednet.broadcast(v.." "..w,"plan")i,m,p=rednet.receive()local x,y=table.unpack(textutils.unserialize(m))print("\nSz\xe1m\xedt\xe1s k\xe9sz.\nK\xedv\xe1nt:")for z,A in ipairs(x)do local B,C,D=table.unpack(A)local E,F=q(B)if y then print(string.format("    %d (%d t.) %s (%s)",D,D-C,F,E))else print(string.format("    %d %s (%s)",D,F,E))end end;local G=0;if y then j("\nHaszn\xE2lod a t\xe1rolva komponenseket? [I/n] ")u=string.lower(read():gsub("%s+",""))if u=="i"or u=="y"or u==""then G=1 end end;j("\nFolytatja? [I/n] ")u=string.lower(read():gsub("%s+",""))if u=="i"or u=="y"or u==""then print("\nK\xe9rj\xfck v\xe1rjon...")rednet.broadcast(G,"craft")while true do i,m,p=rednet.receive()if m=="craft: success"then break end;if p=="craftProgress"then local B,D=table.unpack(textutils.unserialize(m))local E,F=q(B)print(string.format("    %d %s bark\xe1csol\xe1sa...",D,F))else j("{red}Sikertelen. Ellen\xf5rizze a napl\xf4f\xe1jlt.{white}\n\n")return end end;g("success")j("\n{lime}Sikeres.{white}\n\n")else print("\nT\xf6r\xf6lve.\n")end end;local function H()j("{yellow}s{white}egitseg     -  seg\xedts\xe9g megjelen\xedt\xe9se\
{yellow}b{white}arkacsol    -  bark\xe1csol\xe1si fel\xfclet megnyit\xe1sa\
{yellow}f{white}rissites    -  mentett receptek friss\xedt\xe9se\
\
ajto         -  karbantart\xf4 ajt\xf4 nyit\xe1sa/z\xe1r\xe1sa\
naplo        -  napl\xf4f\xe1jl nyomtat\xe1sa\
beallitasok  -  be\xe1ll\xedt\xe1sok m\xf4dos\xedt\xe1sa\
\
{yellow}k{white}ilep        -  programb\xf4l kil\xe9p\xe9s\
\
")end;local function I()print("B\xfacs\xfa")g("close")os.shutdown()end;local function J(k)local K,L=term.getCursorPos()local M=""while true do term.clearLine()term.setCursorPos(K,L)write(k..string.rep("*",#M))local N={os.pullEvent()}if N[1]=="char"then M=M..N[2]elseif N[1]=="key"then if N[2]==keys.backspace then M=M:sub(1,-2)elseif N[2]==keys.enter then term.clearLine()term.setCursorPos(K,L)print(k..string.rep("*",8))break end end end;return M end;local function O()local P=redstone.getOutput("left")if P then print("Ajt\xf4 z\xe1rva.\n")else local Q=J("Jelsz\xf3 > ")if c.sumhexa(Q)~="9905a4a5de35ad94ae27b6d85a80791b"then j("{red}Helytelen jelsz\xf3.{white}\n\n")g("fail")return end;print("Ajt\xf4 nyitva.\n")end;redstone.setOutput("left",not P)end;local function R()if not e or not e.isDiskPresent()then print("Lemez nem tal\xe1lhat\xf4.\n")return end;local S=fs.open(e.getMountPath().."/cookbook.dat","r")if not S then j("{red}F\xe1jl nem tal\xe1lhat\xf4.{white}\n\n")return end;local T=S.readAll()S.close()rednet.broadcast(T,"update")i,m,p=rednet.receive()if m=="update: success"then j("{lime}Sikeres.{white}\n\n")else j("{red}Sikertelen. Ellen\xf5rizze a napl\xf4f\xe1jlt.{white}\n\n")end end;local function U()print("Nincs v\xe9grehajtva.\n")end;local function V()print("Nincs v\xe9grehajtva.\n")end;function debug()local Q=J("Jelsz\xf3 > ")print(Q)end;local W={["d"]=debug,["s"]=H,["segitseg"]=H,["help"]=H,["b"]=t,["barkacsol"]=t,["craft"]=t,["f"]=R,["frissites"]=R,["update"]=R,["ajto"]=O,["door"]=O,["naplo"]=U,["log"]=U,["beallitasok"]=V,["settings"]=V,["k"]=I,["kilep"]=I,["exit"]=I}function main()term.clear()term.setCursorPos(1,1)print(b.." "..a.."\n")rednet.open("back")d=peripheral.find("speaker")e=peripheral.find("drive")g("open")local X=true;while X do j("{yellow}Bark\xe1csol\xf4{white} > ")local Y=read():gsub("%s+","")if not W[Y]then print("Ismeretlen parancs\n")else W[Y]()end end end;main()