CC Tweaked CCSPS 20 - Window Manager

local FilePath
local UserPath
local ProgramPaths

local Windows = {}
local Items = {}
local DeskItems = {}
local Notifications = {}
local Buttons = {}
local Videos = 0
local Popup = {false,1,1,{},nil}
local DesktopDraw = true
local FullScreen = false
local w, h = term.getSize()

function GetPaths()
local file = fs.open("os/SystemFiles/Paths.txt","r")
local Content
repeat
    Content = file.readLine()
    if Content ~= nil and string.find(Content,"Files = ") then FilePath = string.sub(Content,9,string.len(Content)) end
    if Content ~= nil and string.find(Content,"User = ") then UserPath = string.sub(Content,8,string.len(Content)) end
    if Content ~= nil and string.find(Content,"Programs = ") then ProgramPaths = string.sub(Content,12,string.len(Content)) end
until Content == nil
file.close()
end

local function Clear()
term.clear()
term.setCursorPos(1,1)
end

function GetItems()
local file = fs.open("os/SystemFiles/TaskbarShortcuts.txt","r")
local Name
local Path
local Image
repeat
    Name = file.readLine()
    Path = file.readLine()
    Image = file.readLine()
    if Name ~= nil then Items[#Items + 1] = {Name,Path,Image} end
until Name == nil
file.close()
if fs.getSize("os/SystemFiles/TaskbarShortcuts.txt") < 2 then Items = {} end
GetDesktop()
end

function GetDesktop()
local file = fs.open("os/SystemFiles/DesktopShortcuts.txt","r")
local Name
local Path
local Image
repeat
    Name = file.readLine()
    Path = file.readLine()
    Image = file.readLine()
    if Name ~= nil then DeskItems[#DeskItems + 1] = {Name,Path,Image} end
until Name == nil
file.close()

if fs.getSize("os/SystemFiles/DesktopShortcuts.txt") < 2 then DeskItems = {} end

end

function OpenPopup(x,y,details)
local Options = {}
if details[2] == "file" then
    Options = {"open","open loc","properties","delete"}
end
Popup = {true,x,y,Options,details[1]}
end

function CheckEvent(E,a,b,c,d,e,f)
local i
Pass = false
for j = 1, #Windows do
    if Windows[j][1] == a then i = j end
end
if E == "newWindow" then
    Windows[#Windows + 1] = {a,{b,c},d,e,{},true,false,f}
    Pass = true
elseif E == "closeWindow" then
    Windows[i] = nil
    Pass = true
elseif E == "clearWindow" then
    Windows[i][5] = {}
    Pass = true
elseif E == "windowText" then
    Windows[i][5][#Windows[i][5] + 1] = {"text",b,c,d}
    Pass = true
elseif E == "windowImage" then
    Windows[i][5][#Windows[i][5] + 1] = {"image",b,c,d}
    Pass = true
elseif E == "windowButton" then
    Windows[i][5][#Windows[i][5]+ 1] = {"button",b,c,d,e}
    Pass = true
    Buttons[#Buttons + 1] = {i,b,c,d,e}
elseif E == "windowInputBox" then
    Windows[i][5][#Windows[i][5] + 1 ] = {"input",b,c,d,e,f}
    Pass = true
elseif E == "windowVideo" then
    Windows[i][5][#Windows[i][5] + 1] = {"video",b,c,1,d,e}
    Videos = Videos + 1
    Pass = true
elseif E == "windowFullscreen" then
    if b == true then FullScreen = true Windows[i][6] = true end
    Pass = true
elseif E == "windowVideoUpdate" then
    UpdateItem(i,b,"video",c)
    Pass = true
elseif E == "mouse_click" then
    if CheckWindows(b,c) == true then Pass = true end
elseif E == "mouse_drag" then
    GetDragWindow(b,c)
    Pass = true
elseif E == "modem_message" then
    Notifications[#Notifications + 1] = {"message",b,c,d,e}
    Pass = true
end
return Pass
end

function Event()
local Pass = false
while true do
    Pass = false
    os.startTimer(1)
    local event, a, b, c, d, e, f= os.pullEvent()
    Pass = CheckEvent(event,a,b,c,d,e,f)
    term.setBackgroundColor(colors.black)
    if event == "timer" and Pass == false then
        Time()
        if Videos > 0 then Draw() end
    elseif Pass == true then
        Clear()
        drawDesktop()
        Draw()
    end
end
end

function UpdateItem(win,item,set,t)
local I = 3
local J
if set == "video" then
    I = 3
end
for i = 1, #Windows[win][5] do
    if Windows[win][5][i][2] == item then J = i end
end
Windows[win][5][J][I] = set
end

function GetDragWindow(x,y)

local I = 1
for i = 1, #Windows do
    if Windows[i][6] == true and Windows[i][7] == false then
        if x >= Windows[i][2][1] + 1 and x < (Windows[i][2][1] + Windows[i][3]) - 2 and y == Windows[i][2][2] then DragWindow(i,x,y) elseif y == Windows[i][2][2] + Windows[i][4] and x == Windows[i][2][1] + Windows[i][3] then ResizeWindow(i) end
    end
end
end

function ResizeWindow(I)
while true do
    local event, a, b, c = os.pullEvent()
    if event == "mouse_up" then
        break
    elseif event == "mouse_drag" then
        Windows[I][3] = b - Windows[I][2][1]
        Windows[I][4] = c - Windows[I][2][2]
        term.setBackgroundColor(colors.black)
        Clear()
        drawDesktop()
        Draw()
    end
end
end

function DragWindow(I,x1,y1)
local x, y
local x2 = x1 - Windows[I][2][1]
while true do
    local event, a, b, c = os.pullEvent()
    if event == "mouse_up" then
        break
    elseif event == "mouse_drag" then
        Windows[I][2] = {b - x2,c}
        term.setBackgroundColor(colors.black)
        Clear()
        drawDesktop()
        Draw()
        x, y = b, c
    end
end
if x == Windows[I][2][1] + Windows[I][3] and y == Windows[I][2][2] then Windows[I] = nil end
end

function CheckWindows(x,y)
local I = 3

local Found = false
for i = 1, #Items do
    if x >= I and x <= I + 2 and y >= h - 2 then
        for t = 1, #Windows do
            if Windows[t][1] == Items[i][1] then Windows[t][6] = true Found = true end
        end
        if Found == false then Found = true shell.run(Items[i][2],"start") end
    end
    I = I + 5
end
if Found == false then
    for i = 1, #Windows do
        if Windows[i][6] == true then
            local X1, Y1, W1, H1 = Windows[i][2][1], Windows[i][2][2], Windows[i][3], Windows[i][4]
            if Windows[i][7] == true then X1 = 1 Y1 = 1 W1 = w - 1 H1 = h - 2 end
            if x >= Windows[i][2][1] and x <= Windows[i][2][1] + Windows[i][3] and y >= Windows[i][2][2] + 1 and y <= Windows[i][2][2] + Windows[i][4] then
                for c = 1, #Windows[i][5] do
                    if Windows[i][5][c][1] == "button" and y == Windows[i][2][2] + Windows[i][5][c][5] and x >= Windows[i][2][1] + Windows[i][5][c][4] and x <= (Windows[i][2][1] + Windows[i][5][c][4]) + string.len(Windows[i][5][c][2]) then Found = true shell.run(Windows[i][5][c][3],Windows[i][5][c][2]) end
                end
            end
            if x == (X1 + W1) - 2 and y == Y1 then Windows[i][6] = false Found = true end
            if x == (X1 + W1) - 1 and y == Windows[i][2][2] then
                if Windows[i][7] == true then Windows[i][7] = false else Windows[i][7] = true end
                Found = true
            end
            if x == X1 + W1 and y == Y1 then Windows[i] = nil Found = true end

        else
            if x >= I and x <= I + 2 and y >= h - 2 then Windows[i][6] = true Found = true end
            I = I + 5
        end
    end
end
if Found == false and DesktopDraw == true then
    local X = 2
    local Y = 2
    local Blocked = false
    for i = 1, #DeskItems do
        Blocked = false
        for l = 1, #Windows do
            if X >= Windows[i][2][1] and X <= Windows[i][2][1] + Windows[i][3] and Y >= Windows[i][2][2] and Y <= Windows[i][2][2] + Windows[i][4] then Blocked = true end
        end
        if x >= X and x <= X + 3 and y >= Y and y <= Y + 3 and Blocked == false then Found = true shell.run(DeskItems[i][2],"start") end
        if X + 8 < w then X = X + 6 else X = 2 Y = Y + 5 end
    end
end
Found = true
if Found == false then
    for i = 1, #Buttons do
        if y == Windows[Buttons[i][1]][2][2] + Buttons[i][5] and x >= Windows[Buttons[i][1]][2][1] + Buttons[i][4] and x <= Windows[Buttons[i][1]][2][1] + Buttons[i][4] + 5 then shell.run(Buttons[i][3],Buttons[i][2]) end
    end
end
return Found
end

function DrawPopup()
term.setBackgroundColor(colors.white)
term.setCursorPos(Popup[2],Popup[3])
for i = 1, #Popup[4] do
    term.write(Popup[4][i])
    term.setCursorPos(Popup[2],Popup[3] + i)
end
end

function CheckPopup(x,y)
local R = false
local Cords = {}
for i = 1, #Popup[4] do
    Cords[i] = {Popup[2],Popup[2] + string.len(Popup[4][i]),Popup[3] - 1 + i, Popup[4][i]}
end
for i = 1, #Cords do
    if x >= Cords[i][1] and x <= Cords[i][2] and y == Cords[i][3] then R = Cords[i][3] end
end
Popup[1] = false
if R == "open" then

elseif R == "open loc" then
    shell.run("FInav","start",Popup[5])
elseif R == "properties" then

end
return R
end

function DrawTaskbar()
if FullScreen == false then
paintutils.drawFilledBox(1,h-1,w,h-1,colors.gray)
paintutils.drawFilledBox(1,h,w,h,colors.lightGray)
local x = 3
Time()
local Tabs = {}
for i = 1, #Items do
    paintutils.drawFilledBox(x, h -2, x + 2, h, colors.white)
    Tabs[i] = 0
    x = x + 5
end
local Found = false
for i = 1, #Windows do
    Found = false
    if Windows[i][6] == false then
        for I = 1, #Items do
            if Windows[i][1] == Items[I][1] then Tabs[I] = Tabs[I] + 1 Found = true end
        end
        if Found == false then
            paintutils.drawFilledBox(x, h-2, x + 2, h, colors.yellow)
            x = x + 5
        end
    end
end
x = 3
term.setBackgroundColor(colors.lightGray)
for i = 1, #Tabs do
    term.setCursorPos(x, h)
    if Tabs[i] > 0 then
        term.write(Tabs[i])
    end
    x = x + 5
end
if #Notifications > 0 then paintutils.drawPixel(w,h,colors.red) end
term.setBackgroundColor(colors.black)
end
end

function drawDesktop()
DesktopDraw = true
for i = 1, #Windows do
    if Windows[i][7] == true and Windows[i][6] == true then DesktopDraw = false end
end
if DesktopDraw == true then
local y = 2
local x = 2
for i = 1, #DeskItems do
    paintutils.drawFilledBox(x,y,x + 3, y + 3, colors.blue)
    if x + 8 < w then x = x + 6 else x = 2 y = y + 5 end
end
end
term.setBackgroundColor(colors.black)
end

function Draw()
    DrawTaskbar()
    term.setBackgroundColor(colors.black)
    local I = 1
    term.setTextColor(colors.black)
    local Cords = {}
    for i = 1, #Windows do
        if Windows[i][6] == true then
        local X1, Y1, W1, H1 = Windows[i][2][1], Windows[i][2][2], Windows[i][3], Windows[i][4]
            if Windows[i][7] == true then X1 = 1 Y1 = 1 W1 = w - 1 H1 = h - 2 end
            paintutils.drawFilledBox(X1,Y1,X1 + W1,Y1 + H1,colors.white)
            paintutils.drawBox(X1,Y1,X1 + W1, Y1 + H1, colors.gray)
            paintutils.drawBox(X1,Y1,X1 + W1 - 2,Y1,colors.lightGray)
            paintutils.drawPixel(X1 + W1, Y1,colors.red)
            paintutils.drawPixel((X1 + W1) - 2, Y1, colors.blue)
            paintutils.drawPixel((X1 + W1) - 1, Y1, colors.yellow)
            term.setCursorPos(X1,Y1)
            term.setBackgroundColor(colors.lightGray)
            term.write(string.sub(Windows[i][1],1,Windows[i][3] - 5))
            term.setBackgroundColor(colors.white)
            for t = 1, #Windows[i][5] do
                if Windows[i][5][t][1] == "text" then term.setCursorPos(X1 + Windows[i][5][t][3], Y1 + Windows[i][5][t][4]) term.write(string.sub(Windows[i][5][t][2],1,Windows[i][3] - Windows[i][5][t][3])) elseif Windows[i][5][t][1] == "image" then local Image = paintutils.loadImage(Windows[i][5][t][2]) paintutils.drawImage(Image,X1 + Windows[i][5][t][3], Y1 + Windows[i][5][t][4]) elseif Windows[i][5][t][1] == "button" then term.setBackgroundColor(colors.red) term.setCursorPos(X1 + Windows[i][5][t][4], Y1 + Windows[i][5][t][5]) term.write(string.sub(Windows[i][5][t][2],1,Windows[i][3] - Windows[i][5][t][4])) elseif Windows[i][5][t][1] == "video" then VideoPlayer(i,t) end
            end
        end
    end
end

function VideoPlayer(Window,Item)
local List = fs.list(Windows[Window][5][Item][3])
local Image = paintutils.loadImage(fs.combine(Windows[Window][5][Item][3],List[Windows[Window][5][Item][4]]))
paintutils.drawImage(Image,Windows[Window][2][1] + Windows[Window][5][Item][5], Windows[Window][2][2] + Windows[Window][5][Item][6])
if Windows[Window][5][Item][4] < #List then
    Windows[Window][5][Item][4] = Windows[Window][5][Item][4] + 1
else
    Videos = Videos - 1
    if Windows[Window][8] ~= nil then shell.run(Windows[Window][8],Windows[Window][5][Item][2]) end
    Windows[Window][5][Item] = nil
end
end

function Time()
term.setBackgroundColor(colors.lightBlue)
term.setCursorPos(w - 7, h - 1)
term.write(textutils.formatTime(os.time()))
end

GetPaths()
GetItems()
Event()