asteroidsteam icon

launch.lc

asteroidsteam | PRO | 03/28/17 02:57:12 AM UTC | 0 ⭐ | 343 👁️ | Never ⏰ | []
Lua |

1.09 KB

|

None

|

0 👍

/

0 👎

term.clear()
local text = "Run with disk"
local tx, ty = 2,2
local text2 = "Install"
local tx2,ty2 = 2,4
local text3 = "[BACON]"
local tx3,ty3 = 2,6
term.setBackgroundColor(colors.blue)
term.setCursorPos(tx,ty)
write(text)
term.setCursorPos(tx2,ty2)
write(text2)
term.setCursorPos(tx3,ty3)
write(text3)
term.setBackgroundColor(colors.black)
while true do
  local event, button, cx, cy = os.pullEvent()
  if event == "mouse_click" then
    if cx >= tx and cx <= tx + text:len() and cy == ty then
      term.clear()
      term.setCursorPos(1,1)
      dofile("/disk/GT-st.dll")
    elseif cx >= tx2 and cx <= tx2 + text2:len() and cy == ty2 then 
      shell.run("cp /disk/GT-st.lf /")
      shell.run("cp /disk/HC-BB4.dll /")
      shell.run("cp /disk/start.lf /")
      shell.run("rename /start.lf /startup")
      term.setCursorPos(2,8)
      for i=0,10 do
      write(":")
      os.sleep(1)
      end
      disk.eject("right")
      os.reboot()
    elseif cx >= tx3 and cx <= tx3 + text3:len() and cy == ty3 then
      dofile("/disk/overload.bat")
      break
    end
  end
end

Comments