Advertisement
LeslieCraft

Minecraft Basic lamp turn on_off script HUN

Feb 4th, 2013
171
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.50 KB | None | 0 0
  1. --[[  Leiras  ]]--
  2. --[[
  3.  
  4. Balrol erkezo redstone gomb jel
  5. alapjan, felkapcsolva, illetve lekapcsolva
  6. hadja a jobb oldali kimenetet.
  7. Ha a szamitogep ala rakunk egy bloc-ot es
  8. egy gombot, akkor kilep a programbol.
  9.  
  10. ]]
  11.  
  12. --[[  Variables  ]]--
  13.  
  14. local jelIn = "left"        --Jel bemenet
  15. local jelOut = "right"      --Lampavezerlo kimenet
  16. local jelBreake = "bottom"  --Program kikapcsolo bemenet
  17. local loop = true           --program futasa
  18. local sw = 0                --lampa kapcsolasanak erteke, [0] vagy [1] lehet
  19. local lamp = false          --lampa kezdeti allapota
  20. local sleepTime = 1         --gomb jel hosszhoz igazitva
  21.  
  22. --[[  Functions  ]]--
  23.  
  24. function cls()              --Kepernyo torlo functio
  25.     term.setCursorPos(1,1)
  26.     term.clear()
  27. end
  28.  
  29. function main()                     --main program
  30.     if rs.getInput(jelIn) then      --gomb bemenet vizsgalat true/false
  31.         sw = math.fmod( sw+1, 2 )   --gombnyomasra sw hez hozza ad 1 et, de 1 utan ujra 0 lesz
  32.         sleep(sleepTime)            --varakozas a jel megszunesere
  33.         if sw == 1 then
  34.             cls()
  35.             print("On")
  36.             lamp = true
  37.         elseif sw == 0 then
  38.             cls()
  39.             print("off")
  40.             lamp = false
  41.         else
  42.             cls()
  43.             print("Programhiba, kapcsolasi ertek nem lehet mas mint 0, vagy 1.")
  44.         end
  45.        
  46.         rs.setOutput(jelOut, lamp)      --kimenet beallitasa
  47.     end
  48.    
  49.     if rs.getInput(jelBreake) then  --kikapcsolo gomb vizsgalat
  50.         cls()
  51.         rs.setOutput(jelOut, false)
  52.         loop = false
  53.     end
  54. end
  55.  
  56. --[[  Main Program  ]]--
  57.  
  58. while loop do       --addig megy a folyamat mig a loop = true
  59.     main()
  60.     sleep(.1)       --0,1 mp-t var, program flood elkerulese miatt
  61. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement