MackOS V. 1.1 - Dev. Edition

function main()
bar1 = paintutils.loadImage(".bar1")
logo = paintutils.loadImage(".logo")
icon = paintutils.loadImage(".icon")
TriviaLogo = paintutils.loadImage(".trivia")
tBarC = 8
tBartC = 1
backColor = 1
scroll = 0
Version = "1.0"
credCol = 32
firstCol = 1
secCol = 2048
Author  = "Mackan90096"
ErrCol1 = 16384
calcCol = 256

--Desktop
term.setBackgroundColor(backColor)
term.clear()

slc = 0

function passgen()
function clear()
  term.clear()
  term.setCursorPos(1,1)
end
function center(text,y,mode)
  w,h = term.getSize()
  term.setCursorPos((w/2)-(#text/2),y)
  if mode == nil then mode = "print" end
  if mode == "write" then
    write(text)
  else
    print(text)
  end
end
clear()
write "Length (Max 50): "
local length = read()
if tonumber(length) == false then
  print("Use a number please")
  sleep(2)
  error()
else
  length = tonumber(length)
end
if length > 51 then
        print("Please enter a length 50 characters or below")
        sleep(2)
        error()
end
lower = {'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'}
upper = {'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'}
special = {'!','@','#','$','%','^','&','*'}
numbers = {'0','1','2','3','4','5','6','7','8','9'}
mode = {"usnl","usln","ulsn","unsl","unls","ulns","nusl", "nsul", "sunl", "snul","lsnu","lsun","luns","lusn","lnsu","lnus" ,"nu", "un", "sn", "ns", "us", "su", "u", "s", "n"}
clear()
center("Modes: Upper[u], special[s], number[n], lower[l]",2)
print()
print()
write "write all modes you want (no commas): "
local l = false
local u = false
local s = false
local n = false
mds = ""
while true do
  event, key = os.pullEvent("key")
  if key == 22 then
    if u == false then
      u = true
      term.setCursorPos(1,7)
      print"Upper"
          mds = mds.."u"
    else
      u = false
      term.setCursorPos(1,7)
      term.clearLine()
          mds = mds:gsub( "u", "" )
    end
  elseif key == 31 then
    if s == false then
      s = true
      term.setCursorPos(1,8)
      print"Special"
          mds = mds.."s"
    else
      s = false
      term.setCursorPos(1,8)
      term.clearLine()
          mds = mds:gsub("s","")
    end
  elseif key == 49 then
    if n == false then
      n = true
      term.setCursorPos(1,9)
      print"Number"
          mds = mds.."n"
    else
      n = false
      term.setCursorPos(1,9)
      term.clearLine()
          mds = mds:gsub("n", "")
    end
  elseif key == 38 then
    if l == false then
      l = true
      term.setCursorPos(1,10)
      print"Lower"
          mds = mds.."l"
    else
      l = false
      term.setCursorPos(1,10)
      term.clearLine()
          mds = mds:gsub("l", "")
    end
  elseif key == 28 and (l or n or s or u) then
    break
  end
end
mds = string.lower(mds)
local test = false
for i=1, #mode do
  if mds == mode[i] then
    test = true
    break
  end
end
if test == false then
  print("Invalid mode: "..mds)
end
modes = {}
message = ""
if l == true and n == true and s == true and u == true then
  for i=1, length do
    num = math.random(4)
    if num == 1 then
      message = message..lower[math.random(#lower)]
    elseif num == 2 then
      message = message..upper[math.random(#upper)]
    elseif num == 3 then
      message = message..special[math.random(#special)]
    elseif num == 4 then
      message = message..numbers[math.random(#numbers)]
    end
  end
elseif n == true and s == true and u == true then
  for i=1, length do
    num = math.random(3)
    if num == 1 then
      message = message..upper[math.random(#upper)]
    elseif num == 2 then
      message = message..special[math.random(#special)]
    elseif num == 3 then
      message = message..numbers[math.random(#numbers)]
    end
  end
elseif n == true and s == true and l == true then
  for i=1, length do
    num = math.random(3)
    if num == 1 then
      message = message..special[math.random(#special)]
    elseif num == 2 then
      message = message..numbers[math.random(#numbers)]
    elseif num == 3 then
      message = message..lower[math.random(#lower)]
    end
  end
else if n == true and s == true then
  for i=1, length do
    num = math.random(2)
    if num == 1 then
      message = message..numbers[math.random(#numbers)]
    elseif num == 2 then
      message = message..special[math.random(#special)]
    end
  end
elseif l == true and u == true and s == true then
  for i=1, length do
    num = math.random(3)
    if num == 1 then
      message = message..upper[math.random(#upper)]
    elseif num == 2 then
      message = message..lower[math.random(#lower)]
    elseif num == 3 then
      message = message..special[math.random(#special)]
    end
  end
elseif s == true and u == true then
  for i=1, length do
    num = math.random(2)
    if num == 1 then
      message = message..special[math.random(#special)]
    else
      message = message..upper[math.random(#upper)]
    end
  end
elseif l == true and n == true and u == true then
  for i=1, length do
    num = math.random(3)
    if num == 1 then
      message = message..upper[math.random(#upper)]
    elseif num == 2 then
      message = message..numbers[math.random(#numbers)]
    elseif num == 3 then
      message = message..lower[math.random(#lower)]
    end
  end
elseif u == true and n == true then
  for i=1, length do
    num = math.random()
    if num == 1 then
      message = message..upper[math.random(#upper)]
    else
      message = message..numbers[math.random(#numbers)]
    end
  end
elseif l == true and n == true then
  for i=1, length do
    num = math.random(2)
    if num == 1 then
      message = message..numbers[math.random(#numbers)]
    elseif num == 2 then
      message = message..lower[math.random(#lower)]
    end
  end
elseif l == true and s == true then
  for i=1, length do
    num = math.random(2)
    if num == 1 then
      message = message..special[math.random(#special)]
    elseif num == 2 then
      message = message..lower[math.random(#lower)]
    end
  end
elseif l == true and u == true then
  for i=1, length do
    num = math.random(2)
    if num == 1 then
      message = message..upper[math.random(#upper)]
    elseif num == 2 then
      message = message..lower[math.random(#lower)]
    end
  end
elseif l == true then
  for i=1, length do
    message = message..lower[math.random(#lower)]
  end
elseif n == true then
  for i=1, length do
    message = message..numbers[math.random(#numbers)]
  end
elseif s == true then
  for i=1, length do
    message = message..special[math.random(#special)]
  end
elseif u == true then
  for i=1, length do
    message = message..upper[math.random(#upper)]
  end
end
end
clear()
center("Your Password is: ", 4)
center(message,6)
sleep(10)
term.clear()
drawDesktop()
end

function credits()
term.clear()
term.setCursorPos(1,1)
term.setTextColor(credCol)
print("Credits")
term.setCursorPos(1,3)
print("Programs and apis:")
term.setCursorPos(1,5)
print("CCalendar - TheOriginalBIT")
term.setCursorPos(1,6)
print("Passgen -  Conn332")
term.setCursorPos(1,8)
print("Help in development:")
term.setCursorPos(1,10)
print("All the great people that helped me on the forums! - You know who you are :)")
term.setCursorPos(1,13)
print("Special thanks to:")
term.setCursorPos(1,15)
print("faubiguy - Helping me with the password changing")
term.setCursorPos(1,17)
write("To return type anything and hit enter: ")
local input = read()
if input == "1" then
term.clear()
drawDesktop()
else
term.clear()
drawDesktop()
end
end

function login()
term.clear()
term.setCursorPos(1,1)
print("Logging in")
term.setCursorPos(1,3)
write("Username: ")
usrName = read()
write("Password: ")
local pass = read("*")
file = fs.open("users/"..usrName,"r")
if not fs.exists("users/"..usrName) then
term.clear()
term.setCursorPos(1,1)
print("Login failed")
sleep(1)
term.clear()
drawDesktop()
elseif fs.exists("users/"..usrName) then
local fileData = {}
local line = file.readLine()
repeat
table.insert(fileData, line)
line = file.readLine()
until line == nil -- readLine()
file.close()
local passFromFile = fileData[1]
if pass == passFromFile then
term.clear()
term.setCursorPos(1,1)
print("Login succeded!")
sleep(1)
term.clear()
drawDesktop2()
else
term.clear()
term.setCursorPos(1,1)
print("Login failed!")
sleep(1)
term.clear()
drawDesktop()
end
end
end

function register()
term.clear()
term.setCursorPos(1,1)
print("Registering")
term.setCursorPos(1,3)
write("Username: ")
local usrName = read()
term.setCursorPos(1,4)
write("Password: ")
local pass = read("*")
fs.makeDir("users")
if not fs.exists("users/"..usrName) then
local file = fs.open("users/"..usrName, "a")
file.writeLine(pass)
file.close()
sleep(0.5)
term.clear()
term.setCursorPos(1,1)
print("Registered!")
sleep(0.5)
term.clear()
drawDesktop()
elseif fs.exists("users/"..usrName) then
term.clear()
term.setCursorPos(1,1)
print("Username already in use!")
sleep(1)
term.clear()
drawDesktop()
end
end

function titleBar2()
  term.setCursorPos(1,1)
  term.setBackgroundColor(tBarC)
  term.setTextColor(tBartC)
  term.clearLine()
  term.setCursorPos(3,1)
  print("[Begin]")
  term.setCursorPos(12,1)
  print("[Games]")
  term.setCursorPos(20,1)
  print("Logged in as: "..usrName)

end

function drawDesktop2()
  slc = 2
  term.setBackgroundColor(backColor)
  term.clear()
  term.setTextColor(32)
  term.setCursorPos(1,20)
  print("Running Version: "..Version)
  paintutils.drawImage(logo,1,1)
  paintutils.drawImage(icon,3,10)
  titleBar2()
end

function drawMenu2()
term.setTextColor(256)
term.setBackgroundColor(128)
term.setCursorPos(1,2)
print("          ")
term.setCursorPos(1,3)
print("Logout    ")
term.setCursorPos(1,4)
print("Calculator")
term.setCursorPos(1,5)
print("Account   ")
term.setCursorPos(1,6)
print("Calendar  ")
term.setCursorPos(1,7)
print("Email     ")
term.setCursorPos(1,8)
print("Shutdown  ")
term.setCursorPos(1,9)
print("Reboot    ")
term.setCursorPos(1,10)
print("          ")
end

function drawMenu3()
term.setTextColor(256)
term.setBackgroundColor(128)
term.setCursorPos(12,2)
print("          ")
term.setCursorPos(12,3)
print(" Trivia   ")
term.setCursorPos(12,4)
print("          ")
end

function titleBar()
  term.setCursorPos(1,1)
  term.setBackgroundColor(tBarC)
  term.setTextColor(tBartC)
  term.clearLine()
  term.setCursorPos(3,1)
  print("[Begin]")
end

function drawDesktop()
  term.setBackgroundColor(backColor)
  term.clear()
  term.setCursorPos(1,20)
  term.setTextColor(32)
  print("Running Version: "..Version)
  paintutils.drawImage(logo,1,1)
  titleBar()
end

function drawMenu1()
term.setTextColor(256)
term.setBackgroundColor(128)
term.setCursorPos(1,2)
print("          ")
term.setCursorPos(1,3)
print(" Login    ")
term.setCursorPos(1,4)
print(" Register ")
term.setCursorPos(1,5)
print(" Reboot   ")
term.setCursorPos(1,6)
print(" Shutdown ")
term.setCursorPos(1,7)
print(" Passgen  ")
term.setCursorPos(1,8)
print(" Credits  ")
term.setCursorPos(1,9)
print("          ")
end

function calc()
term.setTextColor(calcCol)
term.clear()
term.setCursorPos(1,1)
print("Do you want to Add, Subtract, Divide, Multiply or use ^?")
op = read()
print("")
print("What is the first number to be operated on?")
num1 = tonumber(read())
print("")
print("And the second number?")
num2 = tonumber(read())
print("")
if op == "add" then
result = num1+num2
print(result)
sleep(5)
term.clear()
drawDesktop2()
elseif op == "multiply" then
result = num1*num2
print(result)
sleep(5)
term.clear()
drawDesktop2()
elseif op == "subtract" then
result = num1-num2
print(result)
sleep(5)
term.clear()
drawDesktop2()
elseif op == "divide" then
result = num1/num2
print(result)
sleep(5)
term.clear()
drawDesktop2()
elseif op == "^" then
result = num1^num2
print(result)
sleep(5)
term.clear()
drawDesktop2()
else
term.clear()
term.setCursorPos(1,1)
print("You failed! Try again.")
sleep(1)
term.clear()
drawDesktop2()
end
end

function titlebar3()
term.setCursorPos(1,1)
  term.setBackgroundColor(tBarC)
  term.setTextColor(tBartC)
  term.clearLine()
  term.setCursorPos(3,1)
  print("[Begin] ")
  term.setCursorPos(13,1)
  print("Logged in as: "..usrName)
end

function acc()
slc = 4
term.setBackgroundColor(backColor)
  term.clear()
paintutils.drawImage(logo,1,1)
  titlebar3()
end

function delacc()
slc = 6
term.clear()
term.setCursorPos(1,1)
print("Really delete account?")
term.setCursorPos(1,3)
print("Yes")
term.setCursorPos(7,3)
print("No")
end

function delacc2()
term.clear()
term.setCursorPos(1,1)
print("Deleting account")
term.setCursorPos(1,3)
write("Username: ")
usrName = read()
write("Password: ")
local pass = read("*")
file = fs.open("users/"..usrName,"r")
if not fs.exists("users/"..usrName) then
term.clear()
term.setCursorPos(1,1)
print("Failure")
sleep(1)
term.clear()
acc()
elseif fs.exists("users/"..usrName) then
local fileData = {}
local line = file.readLine()
repeat
table.insert(fileData, line)
line = file.readLine()
until line == nil -- readLine()
file.close()
local passFromFile = fileData[1]
if pass == passFromFile then
fs.delete("users/"..usrName)
term.clear()
term.setCursorPos(1,1)
print("Deleted account!")
sleep(1)
term.clear()
drawDesktop()
end
end
end

function drawMenu4()
term.setTextColor(256)
term.setBackgroundColor(128)
term.setCursorPos(1,2)
print("           ")
term.setCursorPos(1,3)
print("Change pass")
term.setCursorPos(1,4)
print("Delete acc ")
term.setCursorPos(1,5)
print("Go back    ")
term.setCursorPos(1,6)
print("           ")
end

function changepass()
term.clear()
term.setCursorPos(1,1)
write("Username: ")
local usrname = read()
write("Old password: ")
local oldpass = read("*")
write("New password: ")
local newpass = read("*")

if not fs.exists("users/"..usrname) then
term.clear()
term.setCursorPos(1,1)
print("No such username!")
sleep(1)
term.clear()
acc()
elseif fs.exists("users/"..usrname) then
local fileData = {}
repeat
local file = fs.open("users/"..usrName,"r")
local line = file.readLine()
while line do
        table.insert(fileData, line)
        line = file.readLine()
end
until line == nil -- readLine()
file.close()
local oldpassFromFile = fileData[1]
if oldpass == oldpassFromFile then
file = fs.open('users/'..usrName,'w') -- Changed from file.clear()
file.writeLine(newpass)
file.close()
term.clear()
term.setCursorPos(1,1)
print("Changed!")
sleep(1)
term.clear()
acc()
else
term.clear()
term.setCursorPos(1,1)
print("Failure!")
sleep(1)
term.clear()
acc()

end
end
end

--[[
Author: TheOriginalBIT
Version: CUSTOM FOR Mackos
Created: 13 Mar 2013

License:

COPYRIGHT NOTICE
Copyright © 2013 Joshua Asbury a.k.a TheOriginalBIT [theoriginalbit@gmail.com]

Permission is hereby granted only to Mackan90096 to distribute this software as a part of Mackos. If you wish to use this program please contact TheOriginalBIT on the ComputerCraft forums
]]--

function calendar(shorthand, ampm, refreshRate)
  if not os.day then
    print("Sorry but you don't seem to be running the version of ComputerCraft that this program requires (1.48+)")
    return
  end

  local useShorthand = (shorthand == true) or false
  local useAmPm = (ampm == true) or false
  local refreshRate = (type(refreshRate) == "number") and refreshRate or 0.05

  -- initialise variables
  local currentYear = 1
  local currentMonth = 1
  local currentDay = 1
  local isLeapYear = (currentYear % 4 == 0 and (currentYear % 100 > 0 or  currentYear % 400 == 0))
  local yearPrefix = "AS (After Spawn)"

  local monthsTable = {
    {month="January", days=31, shorthand="JAN"},
    {month="February", days=28, shorthand="FEB"},
    {month="March", days=31, shorthand="MAR"},
    {month="April", days=30, shorthand="APR"},
    {month="May", days=31, shorthand="MAY"},
    {month="June", days=30, shorthand="JUNE"},
    {month="July", days=31, shorthand="JULY"},
    {month="August", days=31, shorthand="AUG"},
    {month="September", days=30, shorthand="SEPT"},
    {month="October", days=31, shorthand="OCT"},
    {month="November", days=30, shorthand="NOV"},
    {month="December", days=31, shorthand="DEC"},
  }

  local daysTable = {
    {day="Monday", shorthand="MON"},
    {day="Tuesday", shorthand="TUE"},
    {day="Wednesday", shorthand="WED"},
    {day="Thursday", shorthand="THU"},
    {day="Friday", shorthand="FRI"},
    {day="Saturday", shorthand="SAT"},
    {day="Sunday", shorthand="SUN"},
  }

  local function updateLeapYear(year)
    isLeapYear = (currentYear % 4 == 0 and (currentYear % 100 > 0 or  currentYear % 400 == 0))
  end

  local function updateYear(days)
    currentYear = math.floor(days/(isLeapYear and 366 or 365)+1)
    updateLeapYear(year)
  end

  local function updateMonth(days)
    local shiftedDays = days%366
    local d = 0
    for i = 1, #monthsTable do
      local before = d
      if i == 2 and isLeapYear then
        d = d + 29
      else
        d = d + monthsTable[i].days
      end
      if shiftedDays >= before and shiftedDays <= d then
        currentMonth = i
        return
      end
    end
  end

  local function updateDay(days)
    local shiftedDays = days%366
    for i = 1, currentMonth - 1 do
      shiftedDays = shiftedDays - monthsTable[i].days
    end
    currentDay = shiftedDays
  end

  local function hexToCol(hex)
    local num = tonumber(hex, 16)
    return num ~= nil and 2^num or nil
  end

  local function cwrite(msg, y, offset)
    local sw,sh=term.getSize()
    term.setCursorPos(sw/2-#msg/2+(#msg%2 and 0 or 1), (y or (sh/2)) + (offset or 0))
    write(msg)
  end

  while true do
    term.clear()
    local dayCount = os.day()
    updateYear(dayCount)
    updateMonth(dayCount)
    updateDay(dayCount)
    cwrite("The time is: "..textutils.formatTime(os.time(), not useAmPm),nil,-2)
    cwrite("The date is: "..currentDay.." "..(useShorthand and monthsTable[currentMonth].shorthand or monthsTable[currentMonth].month).." "..string.format("%.4d",currentYear),nil,2)

    os.startTimer(refreshRate)
    os.pullEvent("timer")
  end
  drawDesktop2()
end

function email()
term.clear()
write("Name: ")
name = read()
write("Message: ")
msg = read()
email = name.."\n"..msg

http.post(
 "http://mackos.netai.net/scripts/email.php?message="..textutils.urlEncode(tostring(email))

)
sleep(1)
if http_success then
term.clear()
term.setCursorPos(1,1)
print("Email sent!")
sleep(1)
term.clear()
drawDesktop2()
elseif http_failure then
term.clear()
term.setCursorPos(1,1)
print("Failure!")
sleep(1)
term.clear()
drawDesktop2()
end
end
drawDesktop()

function titleBar4()
term.setCursorPos(1,1)
  term.setBackgroundColor(tBarC)
  term.setTextColor(tBartC)
  term.clearLine()
  term.setCursorPos(3,1)
  print("[Trivias]")
  term.setCursorPos(13,1)
  print("Logged in as: "..usrName)
end

function trivia()
  slc = 2
  term.setBackgroundColor(backColor)
  term.clear()
  term.setTextColor(32)
  term.setCursorPos(1,20)
  paintutils.drawImage(TriviaLogo,1,1)
  titleBar4()
sleep(5)
slc = 2
drawDesktop2()
end

while true do
local event, button, X, Y = os.pullEvent("mouse_click")
 if slc == 0 then
  if event == "mouse_click" then
   if X >= 2 and X <= 8 and Y == 1 and button == 1 then
    drawMenu1()
    slc = 1
   end
  end
 elseif slc == 1 then
  if X >= 1 and X <= 11 and Y == 3 and button == 1 then slc = 0
    login()
   elseif X >= 1 and X <= 11 and Y == 4 and button == 1 then slc = 0
   register()
   elseif X >= 1 and X <= 11 and Y == 5 and button == 1 then slc = 0
   os.reboot()
   elseif X >= 1 and X <= 11 and Y == 6 and button == 1 then slc = 0
   os.shutdown()
   elseif X >= 1 and X <= 11 and Y == 7 and button == 1 then slc = 0
   passgen()
   elseif X >= 1 and X <= 11 and Y == 8 and button == 1 then slc = 0
   credits()
   else slc = 0
   drawDesktop()
  end


  elseif slc == 2 then
   if X >= 1 and X <= 11  and Y == 1 and button == 1 then slc = 3
  drawMenu2()
  elseif X >= 2 and X <= 5 and Y >= 10 and Y <= 16 and button == 1 then
     shell.run("file")
  elseif X >= 12 and X <= 20 and Y == 1 and button == 1 then slc = 7
   drawMenu3()
   else slc = 2
  drawDesktop2()
  end

  elseif slc == 3 then
  if X >= 1 and X <= 11 and Y == 3 and button == 1 then
  term.clear()
  slc = 1
  drawDesktop()
  elseif X >= 1 and X <= 11 and Y == 4 and button == 1 then
  calc()
  elseif X >= 1 and X <= 11 and Y == 5 and button == 1 then
  acc()
  elseif X >= 1 and X <= 11 and Y == 6 and button == 1 then
  calendar(true,false,0.05)
  elseif X >= 1 and X <= 11 and Y == 7 and button == 1 then
  email()
  elseif X >= 1 and X <= 11 and Y == 8 and button == 1 then
  os.shutdown()
  elseif X >= 1 and X <= 11 and Y == 9 and button == 1 then
  os.reboot()
  else slc = 2
  drawDesktop2()
 end

  elseif slc == 4 then
   if X >= 1 and X <= 11 and Y == 1 and button == 1 then slc = 5
   drawMenu4()
   else slc = 4
   acc()
   end
   elseif slc == 5 then
    if X >= 1 and X <= 11 and Y == 3 and button == 1 then
    changepass()
    elseif X >= 1 and X <= 11 and Y == 4 and button == 1 then
    delacc()
    elseif X >= 1 and X <= 11 and Y == 5 and button == 1 then slc = 2
    drawDesktop2()
    else slc = 4
    acc()
    end

    elseif slc == 6 then
    if X >= 1 and X <= 3 and Y == 3 and button == 1 then
    delacc2()
     elseif X >= 7 and X <= 9 and Y == 3 and button == 1 then slc = 4
     acc()
 end
    elseif slc == 7 then
     if X >= 12 and X <= 22 and Y == 3 and button == 1 then slc = 8
     trivia()
     else
     slc = 2
     drawDesktop2()
 end
 end
end

end

local ok, err = pcall(main)
local w,h = term.getSize()
local Version = "1.0"
if not ok then
term.setBackgroundColor(colors.blue)
term.clear()
term.setTextColor(1)
term.setCursorPos(math.floor(w-string.len("Error!"))/2, 2)
print("Error!")
term.setCursorPos(math.floor(w-string.len(err))/2, 4)
print(err)
term.setCursorPos(math.floor(w-string.len("Please report this to Mackan90096"))/2, 6)
print("Please report this to Mackan90096")
term.setCursorPos(math.floor(w-string.len("You will soon be returned to the start screen."))/2, 8)
print("You will soon be returned to the start screen.")
term.setCursorPos(math.floor(w-string.len("Version: "..Version))/2, 10)
print("Version: "..Version)
sleep(15)
os.reboot()
end
main()