Quant

R Sender

Jul 2nd, 2015
313
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. local symtime = 0.05      
  2. local maxreqtime = 2   --Максимальное время синхронизации
  3.  
  4.  
  5. local c = require("component")
  6. local s = require("sides")
  7. local r = c.redstone
  8. local l = tonumber(io.read())
  9.  
  10. os.sleep(maxreqtime - (os.time()%maxreqtime)+1)
  11. while l>0 do
  12. --print(l)
  13.     if l>99999999999999 then n=15
  14. elseif l>9999999999999 then n=14
  15. elseif l>999999999999 then n=13
  16. elseif l>99999999999 then n=12
  17. elseif l>9999999999 then n=11
  18. elseif l>999999999 then n=10
  19. elseif l>99999999 then n=9
  20. elseif l>9999999 then n=8
  21. elseif l>999999 then n=7
  22. elseif l>99999 then n=6
  23. elseif l>9999 then n=5
  24. elseif l>999 then n=4
  25. elseif l>99 then n=3
  26. elseif l>9 then n=2
  27. else n=1 end;
  28.  
  29. l = l - 10^(n-1)
  30.  
  31. r.setOutput(s.right,n)
  32. os.sleep(symtime)
  33. r.setOutput(s.right,0)
  34. os.sleep(symtime)
  35. end;
RAW Paste Data