Umbre0n's File Transfer v2

local tArgs = {...}
local ptcl = 'ftp' --Used protocol for file transfer,
local mc = 'mouse_click'
local IDe, rID, fPath = '','',''
local c = 0
local g, lg, gr, bu, ba,r = colors.gray, ,colors.lightGray, colors.green, colors.blue, colors.black, colors.red
--Colors for graphic mode, you can modify them as you want :)

function size() --Gets screen size (Needed for pocket computers compatibility)
    local x2,y2 = term.getSize()
    if pocket then
        X = x2/2
        Y = y2/2
    else
        X = (x2-1)/2
        Y = (y2-1)/2
    end
end

function clear() --The title says it all
    term.setBackgroundColor(ba)
    term.clear()
    term.setCursorPos(1,1)
end

function modemSide() --Finds the modem.
    for _,s in ipairs(rs.getSides()) do
        if peripheral.getType(s) == "modem" then
            mS = s
        end
    end
end

function Graphics() --Checks if we want graphics or not.
    if #tArgs == 0 then --No args: graphics.
        ChoiceG()
    else
        if tArgs[1] == "-g" then --Correct args: no graphics.
            Choice()
        else --Not correct args: error
            term.setTextColor(r)
            print('Usage: FTP <-g>')
        end
    end
end

function ChoiceG() --Checks if we want to send or receive a file -with graphics!-
    term.setBackgroundColor(bu)
    term.clear()
    term.setBackgroundColor(ba)
    term.setCursorPos(X-4,Y-3)
    write('choice  ')
    term.setBackgroundColor(r)
    write('X')
    term.setBackgroundColor(g)
    term.setCursorPos(X-4,Y-2)
    write('         ')
    term.setCursorPos(X-4,Y)
    write('         ')
    term.setCursorPos(X-4,Y+2)
    write('         ')
    paintutils.drawPixel(X-4,Y-1,g)
    paintutils.drawPixel(X-4,Y+1,g)
    paintutils.drawPixel(X+4,Y-1,g)
    paintutils.drawPixel(X+4,Y+1,g)
    term.setBackgroundColor(gr)
    term.setCursorPos(X-3,Y-1)
    print(' send  ')
    term.setCursorPos(X-3,Y+1)
    print('receive')
    while true do
        local ev,n,x,y = os.pullEvent() --Waits for a click.
        if ev == mc and x == X+4 and y == Y-3 then
            clear()
            print('Program stopped!')
            break
        elseif ev == mc and x >= X-3 and x <= X+3 and y == Y-1 then
            sendG() --Runs the sending function
            break
        elseif ev == mc and x >= X-3 and x <= X+3 and y == Y+1 then
            receiveG() --Runs the receiving function
            break
        end
    end
end

function sendG() --Sends the file -with graphics!-
    term.setBackgroundColor(bu)
    term.clear()
    term.setBackgroundColor(gr)
    term.setCursorPos(X-5,Y+2)
    print('   send   ')
    term.setCursorPos(X-6,Y-5)
    term.setBackgroundColor(ba)
    write('send       ')
    term.setBackgroundColor(r)
    write('X')
    term.setBackgroundColor(g)
    term.setCursorPos(X-6,Y-4)
    write('            ')
    term.setCursorPos(X-6,Y-2)
    write('            ')
    term.setCursorPos(X-6,Y+1)
    write('            ')
    term.setCursorPos(X-6,Y+3)
    write('            ')
    paintutils.drawPixel(X+5,Y+2,g)
    paintutils.drawPixel(X+5,Y-3,g)
    paintutils.drawPixel(X+5,Y,g)
    paintutils.drawPixel(X-6,Y,g)
    paintutils.drawPixel(X-6,Y+2,g)
    term.setTextColor(ba)
    term.setCursorPos(X-6,Y-1)
    print(' File path: ')
    term.setCursorPos(X-6,Y-3)
    write(' Send to:')
    term.setBackgroundColor(lg)
    term.setCursorPos(X+3,Y-3)
    write('  ')
    term.setCursorPos(X-5,Y)
    write('          ')
    while true do
        local ev,b,x,y = os.pullEvent()
        if ev == mc and x == X+5 and y == Y-5 then
            clear()
            term.setTextColor(colors.white)
            print('Program stopped!')
            break
        elseif ev == mc and x >= X+3 and x <= X+4 and y == Y-3 then
            term.setCursorPos(X+3,Y-3)
            IDe = read()
        elseif ev == mc and x >= X-5 and x <= X+4 and y == Y then
            term.setCursorPos(X-5,Y)
            fPath = read()
        elseif ev == mc and x >= X-5 and x <= X+4 and y == Y+2 then
            if tonumber(IDe) == nil then
                term.setTextColor(r)
                clear()
                print("Error: incorrect ID entered!")
                break
            elseif not fs.exists(fPath) then
                clear()
                term.setTextColor(r)
                print("Error: file doesn't exists!")
                break
            elseif fPath == '' then
                clear()
                term.setTextColor(r)
                print("Error: you must enter a filename!")
                break
            elseif fs.exists(fPath) then
                rID = tonumber(IDe)
                FTS = fs.open(fPath,'r')
                FC = FTS.readAll()
                rednet.open(mS)
                rednet.send(rID,FC,ptcl)
                rednet.close(mS)
                FTS.close()
                clear()
                term.setTextColor(colors.white)
                print('File sent!')
            end
            break
        end
    end
end

function receiveG() --Receives the file -with graphics!-
    term.setBackgroundColor(bu)
    term.clear()
    term.setBackgroundColor(gr)
    term.setCursorPos(X-4,Y+5)
    write('receive ')
    term.setCursorPos(X-6,Y-5)
    term.setBackgroundColor(ba)
    write('receive    ')
    term.setBackgroundColor(r)
    write('X')
    term.setBackgroundColor(g)
    term.setTextColor(ba)
    paintutils.drawPixel(X+5,Y-3,g)
    paintutils.drawPixel(X+5,Y+3,g)
    paintutils.drawPixel(X-6,Y+3,g)
    term.setCursorPos(X-6,Y+5)
    write('  ')
    term.setCursorPos(X+4,Y+5)
    write('  ')
    term.setCursorPos(X-6,Y-4)
    write('            ')
    term.setCursorPos(X-6,Y+4)
    write('            ')
    term.setCursorPos(X-6,Y+6)
    write('            ')
    term.setCursorPos(X-6,Y+1)
    write('            ')
    term.setCursorPos(X-6,Y-2)
    write('Leave blank ')
    term.setCursorPos(X-6,Y-1)
    write('   for no   ')
    term.setCursorPos(X-6,Y)
    write('verification')
    term.setCursorPos(X-6,Y+2)
    write(' File path: ')
    term.setCursorPos(X-6,Y-3)
    write('  Sender:')
    term.setBackgroundColor(lg)
    write('  ')
    term.setCursorPos(X-5,Y+3)
    write('          ')
    while true do
        local ev,b,x,y = os.pullEvent()
        if ev == mc and x == X+5 and y == Y-5 then
            clear()
            term.setTextColor(colors.white)
            print('Program stopped!')
            break
        elseif ev == mc and x >= X+3 and x <= X+4 and y == Y-3 then
            term.setCursorPos(X+3,Y-3)
            IDe = read()
        elseif ev == mc and x >= X-5 and x <= X+4 and y == Y+3 then
            term.setCursorPos(X-5,Y+3)
            fPath = read()
        elseif ev == mc and x >= X-4 and x <= X+3 and y == Y+5 then
            if tonumber(IDe) == nil and IDe ~= '' then
                term.setTextColor(r)
                clear()
                print("Error: incorrect ID entered!")
                break
            elseif fPath == '' then
                clear()
                term.setTextColor(r)
                print("Error: you must enter a filename!")
                break
            elseif fs.exists(fPath) then
                clear()
                term.setTextColor(r)
                print("Error: file already exists!")
                break
            elseif not fs.exists(fPath) then
                while true do
                    rednet.open(mS)
                    term.setCursorPos(X-4,Y+5)
                    term.setTextColor(colors.white)
                    term.setBackgroundColor(gr)
                    write('Waiting')
                    local rID,FC = rednet.receive(ptcl)
                    if IDe == '' then
                        local FTW = fs.open(fPath,'w')
                        FTW.write(FC)
                        FTW.close()
                        rednet.close(mS)
                        clear()
                        print('File received from computer '..rID)
                        break
                    elseif tonumber(IDe) == tonumber(rID) then
                        local FTW = fs.open(fPath,'w')
                        FTW.write(FC)
                        FTW.close()
                        rednet.close(mS)
                        clear()
                        print('File received!')
                        break
                    end
                end
            end
        break
        end
    end
end

function Choice() --Asks if we want to send or receive a file
    clear()
    print('Press <Del> to stop.')
    print('Want you to send or receive a file?')
    print('[send] receive')
    while true do
        local ev,k = os.pullEvent()
        if ev == 'key' and k == 205 and c == 0 then
            c = 1
            clear()
            print('Press <Del> to stop.')
            print('Want you to send or receive a file?')
            print(' send [receive]')
        elseif ev == 'key' and k == 203 and c == 1 then
            c = 0
            clear()
            print('Press <Del> to stop.')
            print('Want you to send or receive a file?')
            print('[send] receive')
        elseif ev == 'key' and k == 205 and c == 1 then
            c = 0
            clear()
            print('Press <Del> to stop.')
            print('Want you to send or receive a file?')
            print('[send] receive')
        elseif ev == 'key' and k == 203 and c == 0 then
            c = 1
            clear()
            print('Press <Del> to stop.')
            print('Want you to send or receive a file?')
            print(' send [receive]')
        elseif ev == 'key' and k == 28 then
            if c == 1 then
                receive()
            else
                send()
            end
            break
        elseif ev == 'key' and k == 211 then
            clear()
            print('Program stopped!')
            break
        end
    end
end

function send() --Sends the file
    clear()
    write('Send to computer:')
    IDe = read()
    write('File to send:')
    fPath = read()
    if tonumber(IDe) == nil then
        clear()
        print("Error: incorrect ID entered!")
    elseif not fs.exists(fPath) or fPath == '' then
        clear()
        print("Error: file doesn't exists!")
    elseif fs.exists(fPath) then
        print('Receiver ready?')
        print('Press <Enter> to send the file')
        print('Or <Del> to stop.')
        while true do
            local ev,k = os.pullEvent()
            if ev == 'key' and k == 211 then
                clear()
                print('Program stopped!')
                break
            elseif ev == 'key' and k == 28 then
                rID = tonumber(IDe)
                FTS = fs.open(fPath,'r')
                FC = FTS.readAll()
                rednet.open(mS)
                rednet.send(rID,FC,ptcl)
                rednet.close(mS)
                FTS.close()
                print('File sent!')
                break
            end
        end
    end
end

function receive() --Receives the file
    clear()
    print('Leave blank for no verification -dangerous!')
    write('Receive from computer:')
    IDe = read()
    write('File to receive path:')
    fPath = read()
    if tonumber(IDe) == nil and IDe ~= '' then
        clear()
        print("incorrect ID entered!")
    elseif fs.exists(fPath) then
        clear()
        print("Error: file already exists!")
    else
        print('Sender ready?')
        print('Press <Enter> to receive the file.')
        print('Or <Del> to stop.')
        while true do
            local ev,k = os.pullEvent()
            if ev == 'key' and k == 211 then
                clear()
                print('Program stopped!')
                break
            elseif ev == 'key' and k == 28 and IDe == '' then
                rednet.open(mS)
                print('Waiting for the file...')
                local rID, FC = rednet.receive(ptcl)
                print('File received from computer '..tostring(rID)..'!')
                rednet.close(mS)
                local FTW = fs.open(fPath,'w')
                FTW.write(FC)
                FTW.close()
                break
            elseif ev == 'key' and k == 28 and IDe ~= '' then
                rednet.open(mS)
                print('Waiting for the file...')
                local rID, FC = rednet.receive()
                if rID == tonumber(IDe) then
                    rednet.close(mS)
                    print('File received from computer '..tostring(rID)..'!')
                    local FTW = fs.open(fPath,'w')
                    FTW.write(FC)
                    FTW.close()
                    break
                else
                    print('Computer '..tostring(rID)..' tried to send you a file!')
                    print('Press <Enter> to continue...')
                    print('Or <Del> to stop.')
                end
            end
        end
    end
end

size()
modemSide()
Graphics()