API tools faq
paste
Himitsu_Chan

Untitled

Himitsu_Chan
Mar 9th, 2016
84
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 13.42 KB | None | 0 0
raw download clone embed print report
  1. -- Variables
  2.  
  3. CMO = 0 -- Counter Metal Input
  4. CES = 0 -- Counter Empty Smeltery
  5.  
  6. -- Button Variable for showing button list!
  7. CML = 0 -- Counter Metal List
  8. CAL = 0 -- Counter Alloy List
  9. CLL = 0 -- Counter Liquid List
  10. CBL = 0 -- Counter Block List
  11. -- \Button Variable for showing button list!
  12.  
  13. -- Filling Variables
  14. CFM = 0 -- Counter Filling Metal
  15. CFA = 0 -- Counter Filling Alloy
  16. CFL = 0 -- Counter Filling Liquid
  17. CFB = 0 -- Counter Filling Block
  18.  
  19. -- MouseWidth/Height Variables
  20. mouseWidth = 0  -- mouseWidth Variable
  21. mouseHeight = 0 -- mouseHeight Variable
  22. -- \MouseWidth/Height Variables
  23.  
  24. -- \Variables
  25. ----------------------------------------------------------------------------------------------
  26. -- Computercraft Monitor wrapping
  27.  
  28. monitor = peripheral.wrap("") -- insert Monitor position here
  29.  
  30. -- \Computercraft Monitor wrapping
  31. ----------------------------------------------------------------------------------------------
  32. -- Monitor Clearing + Background color change and cursor Positioning
  33.  
  34. monitor.setBackgroundColour((colors.black)) -- Return to standart color BEFORE clearing the screen
  35. monitor.clear() -- Clear Monitor
  36. monitor.setCursorPos(1,1) -- Set Cursor to Position 1,1
  37.  
  38. -- \Monitor Clearing + Background color change and cursor Positioning
  39. ----------------------------------------------------------------------------------------------
  40. -- Debug text for Display Size
  41.  
  42. w,h=monitor.getSize() -- set w to Width of the monitor and h to Height in Pixels
  43.  
  44. print(w) -- Print width of monitor
  45. print(h) -- print Height of monitor
  46.  
  47. -- \Debug text for Display Size
  48. ----------------------------------------------------------------------------------------------
  49. -- Create Buttons for Metals, Alloys etc.
  50.  
  51. function listMenu -- Create function
  52.  
  53. monitor.setBackgroundColour((colours.lime)) -- Set monitor Background Color for Button Creation
  54.  
  55. monitor.setCursorPos(2,2) -- Set Cursor Position to 2,2
  56. monitor.write("Metals") -- Write "Metals" at Current Cursor Position
  57.  
  58. monitor.setCursorPos(2,4)
  59. monitor.write("Alloys")
  60.  
  61. monitor.setCursorPos(2,6)
  62. monitor.write("Liquids")
  63.  
  64. monitor.setCursorPos(2,8)
  65. monitor.write("Blocks")
  66.  
  67. monitor.setBackgroundColour((colours.black)) -- Reset Monitor Background Color back to black
  68.  
  69. end -- End Function
  70.  
  71. listMenu()
  72.  
  73. -- \Create Buttons for Metals, Alloys etc.
  74. -----------------------------------------------------------------------------------------------
  75. -- Functions for right clicking on monitor and what it is supposed to do.
  76.  
  77. function listMetals -- Metal listing function.
  78.  
  79.         monitor.clear() -- Clear Monitor
  80.        
  81.         monitor.setBackgroundColour((colours.lime)) -- Set Monitor Background color to Lime for button creation
  82.        
  83.         monitor.setCursorPos(2,2)------------------- row 1
  84.         monitor.write("Back")
  85.        
  86.         monitor.setCursorPos(2,4)
  87.         monitor.write("Cobalt")
  88.        
  89.         monitor.setCursorPos(2,6)
  90.         monitor.write("Glold")
  91.  
  92.         monitor.setCursorPos(2,8)
  93.         monitor.write("Coal")
  94.        
  95.         monitor.setCursorPos(2,10)
  96.         monitor.write("Unstable")
  97.  
  98.         monitor.setCursorPos(2,12)
  99.         monitor.write("Silver")
  100.  
  101.         monitor.setCursorPos(2,14)
  102.         monitor.write("Yellorium")
  103.  
  104.         monitor.setCursorPos(15,2)------------------- row 2
  105.         monitor.write("Aluminium")
  106.        
  107.         monitor.setCursorPos(15,4)
  108.         monitor.write("Copper")
  109.        
  110.         monitor.setCursorPos(15,6)
  111.         monitor.write("Iron")
  112.  
  113.         monitor.setCursorPos(15,8)
  114.         monitor.write("Emerald")
  115.        
  116.         monitor.setCursorPos(15,10)
  117.         monitor.write("Nickel")
  118.  
  119.         monitor.setCursorPos(15,12)
  120.         monitor.write("Steel")
  121.  
  122.         --monitor.setCursorPos(15,14)
  123.         --monitor.write("")
  124.        
  125.         monitor.setCursorPos(28,2)------------------ row 3
  126.         monitor.write("Ardite")
  127.        
  128.         monitor.setCursorPos(28,4)
  129.         monitor.write("Dark Iron")
  130.        
  131.         monitor.setCursorPos(28,6)
  132.         monitor.write("Lead")
  133.  
  134.         monitor.setCursorPos(28,8)
  135.         monitor.write("Mana Metal")
  136.        
  137.         monitor.setCursorPos(28,10)
  138.         monitor.write("Res Ender")
  139.  
  140.         monitor.setCursorPos(28,12)
  141.         monitor.write("Tin")
  142.  
  143.         --monitor.setCursorPos(28,14)
  144.         --monitor.write("")
  145.        
  146.         monitor.setCursorPos(41,2)------------------ row 4
  147.         monitor.write("Bedrockium")
  148.        
  149.         monitor.setCursorPos(41,4)
  150.         monitor.write("Des Redstone")
  151.        
  152.         monitor.setCursorPos(41,6)
  153.         monitor.write("Redstone")
  154.  
  155.         monitor.setCursorPos(41,8)
  156.         monitor.write("Mithril")
  157.        
  158.         monitor.setCursorPos(41,10)
  159.         monitor.write("Shiny")
  160.  
  161.         monitor.setCursorPos(41,12)
  162.         monitor.write("Uranium")
  163.  
  164.         --monitor.setCursorPos(41,14)
  165.         --monitor.write("")
  166.        
  167.         monitor.setBackgroundColour((colours.black)) -- Set Background color back to black
  168.        
  169.         CML = 1 -- Counter Metal List is now 1
  170.         CFM = 1 -- Counter Filling Metal is now 1
  171.        
  172. end -- Ends the function
  173.  
  174. function listAlloys -- Alloy listing function.
  175.  
  176.         monitor.clear() -- Clear Monitor
  177.        
  178.         monitor.setBackgroundColour((colours.lime)) -- Set monitor background color to lime for button creation
  179.        
  180.         monitor.setCursorPos(2,4)------------------- row 1
  181.         monitor.write("Back")
  182.        
  183.         monitor.setCursorPos(2,6)
  184.         monitor.write("Red Alloy")
  185.        
  186.         monitor.setCursorPos(2,8)
  187.         monitor.write("Lumium")
  188.  
  189.         --monitor.setCursorPos(2,10)
  190.         --monitor.write("")
  191.        
  192.         --monitor.setCursorPos(2,12)
  193.         --monitor.write("")
  194.  
  195.         --monitor.setCursorPos(2,14)
  196.         --monitor.write("")
  197.  
  198.         --monitor.setCursorPos(2,16)
  199.         --monitor.write("")
  200.  
  201.         monitor.setCursorPos(15,4)------------------- row 2
  202.         monitor.write("Alum Brass")
  203.        
  204.         monitor.setCursorPos(15,6)
  205.         monitor.write("Electrum")
  206.        
  207.         monitor.setCursorPos(15,8)
  208.         monitor.write("Manyullyn")
  209.  
  210.         --monitor.setCursorPos(15,10)
  211.         --monitor.write("")
  212.        
  213.         --monitor.setCursorPos(15,12)
  214.         --monitor.write("")
  215.  
  216.         --monitor.setCursorPos(15,14)
  217.         --monitor.write("")
  218.  
  219.         --monitor.setCursorPos(15,16)
  220.         --monitor.write("")
  221.        
  222.         monitor.setCursorPos(28,4)------------------ row 3
  223.         monitor.write("Alumite")
  224.        
  225.         monitor.setCursorPos(28,6)
  226.         monitor.write("Enderium")
  227.        
  228.         monitor.setCursorPos(28,8)
  229.         monitor.write("Pig Iron")
  230.  
  231.         --monitor.setCursorPos(28,10)
  232.         --monitor.write("")
  233.        
  234.         --monitor.setCursorPos(28,12)
  235.         --monitor.write("")
  236.  
  237.         --monitor.setCursorPos(28,14)
  238.         --monitor.write("")
  239.  
  240.         --monitor.setCursorPos(28,16)
  241.         --monitor.write("")
  242.        
  243.         monitor.setCursorPos(41,4)------------------ row 4
  244.         monitor.write("Bronze")
  245.        
  246.         monitor.setCursorPos(41,6)
  247.         monitor.write("Invar")
  248.        
  249.         monitor.setCursorPos(41,8)
  250.         monitor.write("Signalium")
  251.  
  252.         --monitor.setCursorPos(41,10)
  253.         --monitor.write("")
  254.        
  255.         --monitor.setCursorPos(41,12)
  256.         --monitor.write("")
  257.  
  258.         --monitor.setCursorPos(41,14)
  259.         --monitor.write("")
  260.  
  261.         --monitor.setCursorPos(41,16)
  262.         --monitor.write("")
  263.        
  264.         monitor.setBackgroundColour((colours.black)) -- Set Background color back to black
  265.        
  266.         CAL = 1 -- Counter list Alloy is now 1
  267.         CFA = 1 -- Counter Filling Alloy is now 1
  268.        
  269. end -- Ends the function
  270.  
  271. function listLiquids -- Liquid listing function.
  272.  
  273.         monitor.clear() -- Clear Monitor
  274.        
  275.         monitor.setBackgroundColour((colours.lime)) -- Set monitor background color to Lime for button creation
  276.        
  277.         monitor.setCursorPos(2,6)------------------- row 1
  278.         monitor.write("Back")
  279.        
  280.         monitor.setCursorPos(2,8)
  281.         monitor.write("Glue")
  282.        
  283.         --monitor.setCursorPos(2,10)
  284.         --monitor.write("")
  285.  
  286.         --monitor.setCursorPos(2,12)
  287.         --monitor.write("")
  288.        
  289.         --monitor.setCursorPos(2,14)
  290.         --monitor.write("")
  291.  
  292.         --monitor.setCursorPos(2,16)
  293.         --monitor.write("")
  294.  
  295.         --monitor.setCursorPos(2,18)
  296.         --monitor.write("")
  297.  
  298.         monitor.setCursorPos(15,6)------------------- row 2
  299.         monitor.write("Pyrotheum")
  300.        
  301.         monitor.setCursorPos(15,8)
  302.         monitor.write("Lava")
  303.        
  304.         --monitor.setCursorPos(15,10)
  305.         --monitor.write("")
  306.  
  307.         --monitor.setCursorPos(15,12)
  308.         --monitor.write("")
  309.        
  310.         --monitor.setCursorPos(15,14)
  311.         --monitor.write("")
  312.  
  313.         --monitor.setCursorPos(15,16)
  314.         --monitor.write("")
  315.  
  316.         --monitor.setCursorPos(15,18)
  317.         --monitor.write("")
  318.        
  319.         monitor.setCursorPos(28,6)------------------ row 3
  320.         monitor.write("Blood")
  321.        
  322.         monitor.setCursorPos(28,8)
  323.         monitor.write("Water")
  324.        
  325.         --monitor.setCursorPos(28,10)
  326.         --monitor.write("")
  327.  
  328.         --monitor.setCursorPos(28,12)
  329.         --monitor.write("")
  330.        
  331.         --monitor.setCursorPos(28,14)
  332.         --monitor.write("")
  333.  
  334.         --monitor.setCursorPos(28,16)
  335.         --monitor.write("")
  336.  
  337.         --monitor.setCursorPos(28,18)
  338.         --monitor.write("")
  339.        
  340.         monitor.setCursorPos(41,6)------------------ row 4
  341.         monitor.write("Cryotheum")
  342.        
  343.         --monitor.setCursorPos(41,8)
  344.         --monitor.write("")
  345.        
  346.         --monitor.setCursorPos(41,10)
  347.         --monitor.write("")
  348.  
  349.         --monitor.setCursorPos(41,12)
  350.         --monitor.write("")
  351.        
  352.         --monitor.setCursorPos(41,14)
  353.         --monitor.write("")
  354.  
  355.         --monitor.setCursorPos(41,16)
  356.         --monitor.write("")
  357.  
  358.         --monitor.setCursorPos(41,18)
  359.         --monitor.write("")
  360.        
  361.         monitor.setBackgroundColour((colours.black)) -- Set Background color back to black
  362.        
  363.         CLL = 1 -- Counter list Liquids is now 1
  364.         CFL = 1 -- Counter Filling Liquids is now 1
  365.        
  366. end -- Ends the function
  367.  
  368. function listBlocks -- Block listing function.
  369.        
  370.         monitor.clear() -- Clear Monitor
  371.        
  372.         monitor.setBackgroundColour((colours.lime)) -- Set monitor background color to lime for button creation
  373.        
  374.         monitor.setCursorPos(2,8)------------------- row 1
  375.         monitor.write("Back")
  376.        
  377.         --monitor.setCursorPos(2,10)
  378.         --monitor.write("")
  379.        
  380.         --monitor.setCursorPos(2,12)
  381.         --monitor.write("")
  382.  
  383.         --monitor.setCursorPos(2,14)
  384.         --monitor.write("")
  385.        
  386.         --monitor.setCursorPos(2,16)
  387.         --monitor.write("")
  388.  
  389.         --monitor.setCursorPos(2,18)
  390.         --monitor.write("")
  391.  
  392.         --monitor.setCursorPos(2,20)
  393.         --monitor.write("")
  394.  
  395.         monitor.setCursorPos(15,8)------------------- row 2
  396.         monitor.write("Obsidian")
  397.        
  398.         --monitor.setCursorPos(15,10)
  399.         --monitor.write("")
  400.        
  401.         --monitor.setCursorPos(15,12)
  402.         --monitor.write("")
  403.  
  404.         --monitor.setCursorPos(15,14)
  405.         --monitor.write("")
  406.        
  407.         --monitor.setCursorPos(15,16)
  408.         --monitor.write("")
  409.  
  410.         --monitor.setCursorPos(15,18)
  411.         --monitor.write("")
  412.  
  413.         --monitor.setCursorPos(15,20)
  414.         --monitor.write("")
  415.        
  416.         monitor.setCursorPos(28,8)------------------ row 3
  417.         monitor.write("Seared Stone")
  418.        
  419.         --monitor.setCursorPos(28,10)
  420.         --monitor.write("")
  421.        
  422.         --monitor.setCursorPos(28,12)
  423.         --monitor.write("")
  424.  
  425.         --monitor.setCursorPos(28,14)
  426.         --monitor.write("")
  427.        
  428.         --monitor.setCursorPos(28,16)
  429.         --monitor.write("")
  430.  
  431.         --monitor.setCursorPos(28,18)
  432.         --monitor.write("")
  433.  
  434.         --monitor.setCursorPos(28,20)
  435.         --monitor.write("")
  436.        
  437.         monitor.setCursorPos(41,8)------------------ row 4
  438.         monitor.write("Glass")
  439.        
  440.         --monitor.setCursorPos(41,10)
  441.         --monitor.write("")
  442.        
  443.         --monitor.setCursorPos(41,12)
  444.         --monitor.write("")
  445.  
  446.         --monitor.setCursorPos(41,14)
  447.         --monitor.write("")
  448.        
  449.         --monitor.setCursorPos(41,16)
  450.         --monitor.write("")
  451.  
  452.         --monitor.setCursorPos(41,18)
  453.         --monitor.write("")
  454.  
  455.         --monitor.setCursorPos(41,20)
  456.         --monitor.write("")
  457.        
  458.         monitor.setBackgroundColour((colours.black)) -- Set Background color back to black
  459.        
  460.         CBL = 1 -- Counter list blocks is now 1
  461.         CFB = 1 -- Counter Filling blocks is now 1
  462. end -- Ends the function
  463.  
  464. -- If clicked here then Function
  465.  
  466. function checkClickPosition() -- Everything below is a Function.
  467.  
  468.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 2 and CLL == 0 and CBL == 0 and CAL == 0 and CML = 0 then
  469.        
  470.         listMetals()
  471.        
  472.     end -- End IF sentence
  473.    
  474.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 2 and CLL == 0 and CBL == 0 and CAL == 0 and CML = 1 then
  475.        
  476.         listMenu()
  477.        
  478.     end -- End IF sentence
  479.    
  480.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 4 and CLL == 0 and CBL == 0 and CAL == 0 and CML = 0 then
  481.        
  482.         listAlloys()
  483.        
  484.     end -- End IF sentence
  485.    
  486.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 4 and CLL == 0 and CBL == 0 and CAL == 1 and CML = 0 then
  487.    
  488.         listMenu()
  489.    
  490.     end
  491.    
  492.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 6 and CLL == 0 and CBL == 0 and CAL == 0 and CML = 0 then
  493.        
  494.         listLiquids()
  495.        
  496.     end -- End IF sentence
  497.    
  498.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 6 and CLL == 1 and CBL == 0 and CAL == 0 and CML = 0 then
  499.    
  500.         listMenu()
  501.    
  502.     end
  503.    
  504.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 8 and CLL == 0 and CBL == 0 and CAL == 0 and CML = 0 then
  505.        
  506.         listBlocks()
  507.        
  508.     end -- End IF sentence
  509.    
  510.     if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 8 and CLL == 0 and CBL == 1 and CAL == 0 and CML = 0 then
  511.    
  512.         listMenu()
  513.    
  514.     end
  515.    
  516. end -- Ends the function
  517.  
  518. -- \If clicked here then Function
  519.  
  520. -- \Functions for right clicking on monitor and what it is supposed to do.
  521. -----------------------------------------------------------------------------------------------
  522. -- Repeat event for checking if someone Right clicked the Monitor
  523.  
  524. repeat -- Repeat this:
  525.  
  526.     event,p1,p2,p3 = os.pullEvent() -- Get Event data: event,p1,p2,p3 from os.pullEvent()
  527.    
  528.         if event == "monitor_touch" then -- When the event monitor_touch is triggered then
  529.        
  530.         mouseWidth = p2 -- sets the number of p2 into the variable mouseWidth.
  531.         mouseHeight = p3 -- same with mouse Height
  532.         checkClickPosition() -- This will run the Function previously created!
  533.        
  534.         -- Debug stuff!
  535.        
  536.         print(mouseWidth)
  537.         print(mouseHeight)
  538.         --\ Debug stuff!
  539.        
  540.         end -- end the IF statement.
  541.  
  542. until event=="char" and p1==("x") -- Repeat until event "char" is activated and "x" is pressed.
  543.  
  544. -- \Repeat event for checking if someone Right clicked the Monitor
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!