API tools faq
paste
Advertisement
Himitsu_Chan

Untitled

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