Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- (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 --
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement