Scorpionfien

Tekkit G1 Rank

Jun 22nd, 2015
306
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.48 KB | None | 0 0
  1. -- Tekkit G1 Rank Program 0-0-1
  2. -- Works with: Advanced Computer & Monitor
  3. -- Environment Tested: Minecraft 1.6.4 Computer Craft version 1.5
  4. -- Modified By RC-Scorpionfien, Created By Lyqyd
  5. -- Requires TouchPoint API to work, download at pastebin.com/pFHeia96
  6. -- Download this file >> http://www.pastebin.com/6anDmXCC
  7.  
  8. --Loads the API, straightforward
  9. os.loadAPI("touchpoint")
  10.  
  11. --G1 Rank
  12.  
  13. --establish "pages" of buttons
  14. local page1 = touchpoint.new("top")
  15.  
  16. --one variable to put each page into in order to simplify switching
  17. local t
  18.  
  19. --Button Functions
  20.  
  21. function doNothing()
  22. sleep(1)
  23. end
  24.  
  25. function rcMain()
  26. page1:flash("Main")
  27. sleep(1)
  28. shell.run("main")
  29. end
  30.  
  31. function rcCommands()
  32. page1:flash("Commands")
  33. sleep(1)
  34. shell.run("g1commands")
  35. end
  36.  
  37. function rcBack()
  38. page1:flash("Back")
  39. sleep(1)
  40. shell.run("ranks")
  41. end
  42.  
  43. ---Main Menu
  44. function mainTable()
  45. t = page1
  46. end
  47.  
  48. --Set Up Pages
  49. do
  50. page1:add("--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--", doNothing, 1, 1, 60, 1, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  51. page1:add(" _______ ______ _ __ _ __ _____ _______ ", doNothing, 1, 2, 60, 2, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  52. page1:add(" |__ __|| ____|| |/ /| |/ /|_ _||__ __| ", doNothing, 1, 3, 60, 3, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  53. page1:add(" | | | |__ | ' / | ' / | | | | ", doNothing, 1, 4, 60, 4, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  54. page1:add(" | | | __| | < | < | | | | ", doNothing, 1, 5, 60, 5, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  55. page1:add(" | | | |____ | . \\ | . \\ _| |_ | | ", doNothing, 1, 6, 60, 6, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  56. page1:add(" |_| |______||_|\\_\\|_|\\_\\|_____| |_| ", doNothing, 1, 7, 60, 7, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  57. page1:add("--''--''--''--''--''--''--''--''--''--''--''--''--''--''--''--''--", doNothing, 1, 8, 60, 8, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  58. page1:add("RC-Tekkit G1 Rank:", doNothing, 1, 9, 60, 9, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  59. page1:add("....................", doNothing, 1, 10, 60, 10, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  60. page1:add("For a Donation of $5 USD, we gift you:", doNothing, 1, 11, 60, 11, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  61. page1:add("- Homes x 10", doNothing, 4, 12, 15, 12, colors.black, colors.black, colors.lightBlue, colors.lightBlue)
  62. page1:add("Commands", rcCommands, 24, 19, 30, 20, colors.black, colors.lime, colors.lightBlue, colors.black)
  63. page1:add("Back", rcBack, 4, 19, 10, 20, colors.black, colors.lime, colors.lightBlue, colors.black)
  64. page1:add("Main", rcMain, 14, 19, 20, 20, colors.black, colors.lime, colors.lightBlue, colors.black)
  65.  
  66. end
  67.  
  68. --Starts with the main Table, then checks for buttons clicked, toggles them, and runs the program it has with my modified t:run2()
  69. mainTable()
  70. while true do
  71. t:draw()
  72. -- local event, p1, p2, p3 = os.pullEvent() ---monitor_touch, side, xpos, ypos
  73. local event, p1 = t:handleEvents(os.pullEvent()) ---button_click, name
  74. if event == "button_click" then
  75. --remove toggling and simplify button running
  76. t.buttonList[p1].func()
  77. end
  78. end
Advertisement
Add Comment
Please, Sign In to add comment