Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --[[
- Coded by HPWebcamAble
- http://pastebin.com/u/HPWebcamAble
- This installs 'Advanced Redstone Control 3.x' and all necesary components
- ]]
- function clear() shell.run("clear") end
- function tc(...) term.setTextColor(...) end
- --Rewritten part of the pastebin program
- function get(sCode,sFile)
- local sPath = shell.resolve( sFile )
- if fs.exists( sPath ) then
- return false
- end
- local response = http.get("http://pastebin.com/raw.php?i="..textutils.urlEncode( sCode ))
- if response then
- local sResponse = response.readAll()
- response.close()
- local file = fs.open( sPath, "w" )
- file.write( sResponse )
- file.close()
- return true
- else
- return false
- end
- end
- --Program--
- if not http then
- print("HTTP api is disabled on this world/Server")
- return
- elseif not term.isColor() then
- tc(colors.red)
- print("This program requires an advanced computer")
- return
- end
- clear()
- tc(colors.yellow)
- term.write("Advanced Redstone Control 3.0")
- tc(colors.white)
- print(" is ready to be installed")
- tc(colors.blue)
- print("Press any key...")
- os.pullEvent()
- os.pullEvent() --Captures both key and char events
- --Start the install
- clear()
- tc(colors.white)
- print("Installing...")
- --Add ARC directory
- print("Adding directory 'ARC'...")
- if fs.exists("ARC") then
- if fs.isDir("ARC") then
- tc(colors.orange)
- print("Directory 'ARC' already exists on this computer")
- tc(colors.red)
- print("Install terminated. Remove or rename directory 'ARC'")
- return
- else
- tc(colors.orange)
- print("ARC exists as a program. Renaming...")
- pRename = "ARC"
- repeat
- pRename = pRename.."~"
- until not fs.exists(pRename)
- tc(colors.white)
- print("Renamed ARC to "..pRename)
- shell.run("rename ARC "..pRename)
- end
- end
- tc(colors.white)
- fs.makeDir("ARC")
- print("Successfully added directroy 'ARC'")
- --Download Advanced Redstone Control from pastebin
- print("Downloading program 'Advanced Redstone Control' (ARC)...")
- if get("2ZPhx6ec","ARC/ARC") then
- print("Success")
- else
- tc(colors.red)
- print("Could not download. Is pastebin working?")
- return
- end
- print("Downloading program 'Config Editor' (configeditor)...")
- if get("cKunvkD2","ARC/configeditor") then
- print("Success")
- else
- tc(colors.red)
- print("Could not download. Is pastebin working?")
- return
- end
- --Make Shortcut for Advanced Redstone Control
- print("Downloading shortcut (rc)...")
- if fs.exists("rc") then
- tc(colors.orange)
- print("rc program already exists. Renaming...")
- pRename = "rc"
- repeat
- pRename = pRename.."~"
- until not fs.exists(pRename)
- tc(colors.white)
- print("Renamed rc to "..pRename)
- shell.run("rename rc "..pRename)
- end
- if get("y2pZUC3c","rc") then
- print("Success")
- else
- tc(colors.red)
- print("Could not download. Is pastebin working?")
- return
- end
- tc(colors.lime)
- print("Advanced Redstone Control installed!")
- tc(colors.blue)
- print("Type 'rc' to run it, then follow the instruction to create the buttons")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
