Advertisement
Marlingaming

Chamber Manager V5

Jul 8th, 2022
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.60 KB | None | 0 0
  1. local Monitor = peripheral.find("monitor")
  2. local w, h = Monitor.getSize()
  3. local TestDetails = {0,0,0} --test num, out of, track
  4. local Elements = {false,false,false} --Propoltion, Repulsion, Portals, Injury Risk, Momentum,
  5.  
  6.  
  7. function ChamberDetails()
  8. term.redirect(Monitor)
  9. Monitor.setBackgroundColor(colors.white)
  10. Monitor.setTextColor(colors.gray)
  11. Monior.clear()
  12. local Line = h/12
  13. Monitor.setCursorPos(w/8,Line)
  14. Monitor.write(TestDetails[1].."/"..TestDetails[2])
  15. Line = Line + 1
  16. local X = w/(TestDetails[2]*2)
  17. for i = 1, TestDetails[2] do
  18. paintutils.drawBox(X,Line,X,Line+1,colors.black)
  19. X = X + 2
  20. end
  21. Monitor.setBackgroundColor(colors.white)
  22.  
  23. end
  24.  
  25. function ChamberSetup()
  26. ChamberDetails()
  27. end
  28.  
  29. function Install()
  30. fs.makeDir("Images")
  31. local Image1 = fs.open("Images/Speed.nfp","w")
  32. Image1.writeLine("08880")
  33. Image1.writeLine("00100")
  34. Image1.writeLine("00000")
  35. Image1.writeLine("00100")
  36. Image1.writeLine("11111")
  37. Image1.close()
  38. local Image2 = fs.open("Images/Jump.nfp","w")
  39. Image2.writeLine("08880")
  40. Image2.writeLine("00b00")
  41. Image2.writeLine("00000")
  42. Image2.writeLine("00b00")
  43. Image2.writeLine("bbbbb")
  44. Image2.close()
  45. local Image3 = fs.open("Images/Portal.nfp","w")
  46. Image3.writeLine("00110")
  47. Image3.writeLine("01bb1")
  48. Image3.writeLine("1bbb1")
  49. Image3.writeLine("1bb10")
  50. Image3.writeLine("01100")
  51. Image3.close()
  52. local Image4 = fs.open("Images/Injury.nfp","w")
  53. Image4.writeLine("00e00")
  54. Image4.writeLine("00e00")
  55. Image4.writeLine("0eee0")
  56. Image4.writeLine("0eee0")
  57. Image4.writeLine("00e00")
  58. Image4.close()
  59. end
  60.  
  61. if fs.exists("Images") then
  62. ChamberSetup()
  63. else
  64. Install()
  65. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement