Webserver Test

-- (c) Muzze77  Webserver--
shell.run("clear")
wire = rednet.open("back")
black = colors.black
white = colors.white
green = colors.green
red = colors.red
blue = colors.blue
gray = colors.gray
lgray = colors.lightGray
nr = 1




function cleL(line)
term.clearLine(line)
end

function cSite(http)
window(4,4,4,4,white, blue)
cbut(4,2,"                                      ", white, gray)
cbut(4,2,http, white, black)
cbut(42, 2," ENTER ", green, black)
end


function muzze77acc_login()
cbut(16,5,"                          " ,black, lgray)
cbut(16,6,"         Username         " ,black, lgray)
cbut(16,7,"                          " ,black, lgray)

cbut(16,11,"                          " ,black, lgray)
cbut(16,12,"        Password          " ,black, lgray)
cbut(16,13,"                          " ,black, lgray)


evt, button,x, y = os.pullEvent("mouse_click")
    if button == 1 then
        for m2 = 16, 41, 1 do
        for n1 = 5, 7, 1 do
        if x == m2 and y == n1 then
        term.setCursorPos(5, 19)
        term.clearLine(19)
        print("click"  .. nr )

        nr = nr + 1
        next1()
        end
        end
        end
        end
end

function next1()
evt, button,x, y = os.pullEvent("mouse_click")
    if button == 1 then
        for m2 = 17, 23, 1 do
        for n1 = 11, 13, 1 do
        if x == m2 and y == n1 then
        term.clear()

        cSite(" http:\\Muzze77Acc.de/login ")
        muzze77acc_login()


        end
        end
        end

    end
end

























function tooL()
    cbut(6,7,"Adressenname zu lang ",white, black)
    evt, button,x, y = os.pullEvent("mouse_click")
    if evt == "mouse_click" then
    window(4,4,4,4,white, blue)
    cbut(4,2,"           Adresse waehlen            ", white, gray)

    end
end


function wrongAdd()

    cbut(6,7,"Addresse " .. msg,white, black)
    cbut(8,8,"wurde nicht gefunden!",white, black)
    evt, button,x, y = os.pullEvent("mouse_click")
    if evt == "mouse_click" then
    window(4,4,4,4,white, blue)
    cbut(4,2,"           Adresse waehlen            ", white, gray)

    end
end


function muzze77acc()
cbut(42, 2," ENTER ", green, black)

        tap = 0.3
        cbut(4,2," http:\\Muzze77Acc.de - LOADING |0  %|", white, black)
        cbut(42, 2," ENTER ", green, black)
        cleL(2)
        sleep(tap)
        cbut(4,2," http:\\Muzze77Acc.de - LOADING |25 %|", white, black)
        cbut(42, 2," ENTER ", green, black)
        cleL(2)
        sleep(tap)
        cbut(4,2," http:\\Muzze77Acc.de - LOADING |50 %|", white, black)
        cbut(42, 2," ENTER ", green, black)
        cleL(2)
        sleep(tap)
        cbut(4,2," http:\\Muzze77Acc.de - LOADING |75 %|", white, black)
        cbut(42, 2," ENTER ", green, black)
        cleL(2)
        sleep(tap)

        cbut(4,2," http:\\Muzze77Acc.de - LOADING |100%|", white, black)
        cbut(42, 2," ENTER ", green, black)
        sleep(1)
        term.clear()
        cSite(" http:\\Muzze77Acc.de ")

        cbut(13,7,"                              ", black, blue)
        cbut(13,8," Willkommen auf Muzze77Acc.de ", black, blue)
        cbut(13,9,"                              ", black, blue)

        cbut(17,11,"       ", green, blue)
        cbut(17,12," Login ", green, blue)
        cbut(17,13,"       ", green, blue)

        cbut(32,11,"         ", red, blue)
        cbut(32,12," Register", red, blue)
        cbut(32,13,"         ", red, blue)
        next1()

end

function window(sx, sy,linex, liney, bcol, tcol)
        stx = sx + 45
        sty = sx + 14

        while sy ~= sty do

        term.setBackgroundColor(bcol)
        term.setTextColor(tcol)
        term.setCursorPos(sx,sy)
        print(" ")
        sx = sx + 1

        if sx == stx then
            sy = sy + 1
            sx = linex
        end

        end

end




function reset()

term.setBackgroundColor(black)
term.setTextColor(white)

end

function cbut(cx,cy,ctext,bcol,tcol)
ncx = cx
term.setCursorPos(cx, cy)
term.setBackgroundColor(bcol)
term.setTextColor(tcol)
print(ctext)
reset()
end

cbut(42, 2," ENTER ", green, black)
window(4,4,4,4,white, blue)
cbut(4,2,"           Adresse waehlen            ", white, gray)

while true do

evt, button,x, y = os.pullEvent("mouse_click")

    if button == 2 then
    term.setCursorPos(1,1)
    term.clearLine(1)
    print(button .. " : " .. x .. " : " .. y)
    end



    if button == 1 then
    for m = 4, 41, 1 do
    if x == m and y == 2 then

    cbut(4,2,"                                      ", white, gray)
    term.setCursorPos(5,2)
    term.setBackgroundColor(white)
    term.setTextColor(lgray)

    term.setCursorPos(6,2)
    msg = io.read()
    sins = string.len(msg)
    if sins >= 30 then
    tooL()

    else
    if msg == "Muzze77Acc.de" or msg == "http:\\Muzze77Acc.de" or msg == "muzze77acc.de" or msg == "muzze77acc.de"  then
        cbut(4,2,"                                      ", white, gray)
        cbut(6,2,msg, white, gray)
        muzze77acc()


    else
    wrongAdd()

    end
    end
    end
    end
end
    end



-- DO NOT  PUBLIC THIS SCRIPT  WITHOUT PERMISSION --