(Wiremod Expression 2) Lodkagan Login Example

@name Admin Screen
@inputs EGP:wirelink Key
@outputs
@persist [Offset_X Offset_Y Menu Interval Set]:number
@persist [S UN PW LoginName SearchByName]:string
@persist E:entity
@trigger
# Expression 2 Chip by Magus / Lodkagan
# Example for the Login Library
#[ --- Used EGP ID's ---
    function background
    01 Background
    02 Taskbar
    03 Taskbar (Line)
    04 Time    (Text)

    function menu01
    05 Login Screen (Box)
    06 Login Screen (Text)
    07 Login Screen (TextLine)
    08 Rounded Box  (Username)
    09 Rounded Box  (Password)
    10 Name         (Text)
    11 Pass         (Text)
    12 Input Name   (Input Text) (Max 10)
    13 Input Pass   (Input Text) (Max 10)
    14 Wrong PW/UN  (Text)

    function menu02
    05 Background
    06 Text Layout
    07 Rounded Box  (Input)
    08 Text Input

    function menu03
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu04
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu05
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu06
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu07
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu08
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu09
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu10
    05 Background
    06 Rounded Box  (Input)
    07 Text Input

    function menu11
    05 Background
    06 Rounded Box  (Input)
    07 Text Input
]#

interval(Interval)

if(first()) {
    # --- Includes ---
    #include "lib/login"

    # ------------------------------------------------------------------------
    # --- Config ---
    # ------------------------------------------------------------------------
    Offset_X = 0    # X Offset (Default: 0)
    Offset_Y = 0    # Y Offset (Default: 0)
    Interval = 1500 # ChipSpeed in Milliseconds (Default: 1500 ( 1.5 sec. ))

    addUser("Magus","Test")
    addUser("Admin","Password")

    # ------------------------------------------------------------------------
    # --- Functions ---
    # ------------------------------------------------------------------------

    function void background() {
        EGP:egpClear()

        EGP:egpRoundedBox(1,vec2(256+Offset_X,256+Offset_Y),vec2(512,512))
        EGP:egpColor(1,vec4(0,0,255,255))

        EGP:egpBox(2,vec2(256+Offset_X,501+Offset_Y),vec2(512,21))
        EGP:egpColor(2,vec4(255,255,255,255))

        EGP:egpLine(3,vec2(450+Offset_X,490+Offset_Y),vec2(450+Offset_X,512+Offset_Y))
        EGP:egpSize(3,3)
        EGP:egpColor(3,vec4(0,0,0,255))

        EGP:egpText(4,time("hour")+":"+time("min"),vec2(455+Offset_X,492+Offset_Y))
        EGP:egpColor(4,vec4(0,0,0,255))
    }

    function void menu01() {
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(175,125))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpText(6,"Login Screen",vec2(210+Offset_X,200+Offset_Y))
        EGP:egpColor(6,vec4(255,0,0,255))

        EGP:egpLine(7,vec2(169+Offset_X,220+Offset_Y),vec2(344+Offset_X,220+Offset_Y))
        EGP:egpSize(7,3)
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpRoundedBox(8,vec2(280+Offset_X,250+Offset_Y),vec2(120,15))
        EGP:egpColor(8,vec4(255,255,255,255))

        EGP:egpRoundedBox(9,vec2(280+Offset_X,280+Offset_Y),vec2(120,15))
        EGP:egpColor(9,vec4(255,255,255,255))

        EGP:egpText(10,"Name:",vec2(170+Offset_X,240+Offset_Y))
        EGP:egpColor(10,vec4(255,0,0,255))

        EGP:egpText(11,"  Pass:",vec2(170+Offset_X,270+Offset_Y))
        EGP:egpColor(11,vec4(255,0,0,255))

        EGP:egpText(12,"",vec2(230+Offset_X,240+Offset_Y))
        EGP:egpColor(12,vec4(0,0,0,255))

        EGP:egpText(13,"",vec2(230+Offset_X,270+Offset_Y))
        EGP:egpColor(13,vec4(0,0,0,255))

        EGP:egpText(14,"Invalid ID and Pwd!",vec2(185+Offset_X,295+Offset_Y))
        EGP:egpColor(14,vec4(255,0,0,255))

        Menu = 1.0
    }

    function void menu02() {
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpTextLayout(6,"
        01 - Get Player Status
        02 -
        03 -
        04 -
        05 -
        06 -
        07 -
        08 -
        09 -
        80 - add new User
        90 - Abmelden
        ",vec2(81+Offset_X,81+Offset_Y),vec2(406+Offset_X,406+Offset_Y))

        EGP:egpRoundedBox(7,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(7,vec4(255,255,255,255))

        EGP:egpText(8,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(8,vec4(0,0,0,255))

        Menu = 2.0
    }

    function void menu03() { # 01
        background()

        S = ""

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        EGP:egpText(9,"Enter a name to search the player.",vec2(115+Offset_X,370+Offset_Y))
        EGP:egpColor(9,vec4(255,0,0,255))

        # Player stats

        EGP:egpText(10,E:name(),vec2(230+Offset_X,100+Offset_Y))
        EGP:egpColor(10,vec4(255,0,0,255))

        EGP:egpText(11,"Health: "+E:health(),vec2(120+Offset_X,140+Offset_Y))
        EGP:egpColor(11,vec4(255,0,0,255))

        EGP:egpText(12,"Armor: "+E:armor(),vec2(120+Offset_X,160+Offset_Y))
        EGP:egpColor(12,vec4(255,0,0,255))

        EGP:egpText(13,"Pos X: "+round(E:pos():x()),vec2(120+Offset_X,200+Offset_Y))
        EGP:egpColor(13,vec4(255,0,0,255))

        EGP:egpText(14,"Pos Y: "+round(E:pos():y()),vec2(120+Offset_X,220+Offset_Y))
        EGP:egpColor(14,vec4(255,0,0,255))

        EGP:egpText(15,"Pos Z: "+round(E:pos():z()),vec2(120+Offset_X,240+Offset_Y))
        EGP:egpColor(15,vec4(255,0,0,255))

        EGP:egpText(16,"AimPos X: "+round(E:aimPos():x()),vec2(220+Offset_X,200+Offset_Y))
        EGP:egpColor(16,vec4(255,0,0,255))

        EGP:egpText(17,"AimPos Y: "+round(E:aimPos():y()),vec2(220+Offset_X,220+Offset_Y))
        EGP:egpColor(17,vec4(255,0,0,255))

        EGP:egpText(18,"AimPos Z: "+round(E:aimPos():z()),vec2(220+Offset_X,240+Offset_Y))
        EGP:egpColor(18,vec4(255,0,0,255))

        Menu = 3.0
    }

    function void menu04() { # 02
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 4.0
    }

    function void menu05() { # 03
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 5.0
    }

    function void menu06() { # 04
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 6.0
    }

    function void menu07() { # 05
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 7.0
    }

    function void menu08() { # 06
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 8.0
    }

    function void menu09() { # 07
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 9.0
    }

    function void menu10() { # 08
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 10.0
    }

    function void menu11() { # 09
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 11.0
    }

    function void menu12() { # 80
        background()

        EGP:egpRoundedBox(5,vec2(256+Offset_X,256+Offset_Y),vec2(350,350))
        EGP:egpColor(5,vec4(150,150,150,255))

        EGP:egpRoundedBox(6,vec2(255+Offset_X,400+Offset_Y),vec2(300,15))
        EGP:egpColor(6,vec4(255,255,255,255))

        EGP:egpText(7,"",vec2(115+Offset_X,390+Offset_Y))
        EGP:egpColor(7,vec4(0,0,0,255))

        EGP:egpText(8,"F3 to go back.",vec2(115+Offset_X,355+Offset_Y))
        EGP:egpColor(8,vec4(50,150,0,255))

        S = ""

        Menu = 12.0
    }

    function void abmelden() {
        LoginName = ""
        Set = 0
        UN = ""
        PW = ""
        S = ""
        menu01()
    }

    background()
    menu01()

}

if(inputClk()) {
    if(Key) {
        if(Key > 47 & Key < 123) { S += toChar(Key) }
        if(Key == 127) {
            S = S:sub(1,S:length()-1)
            PW = PW:sub(1,PW:length()-1)
        }
    }
    # ------------------------------------------------------------------------
    # --- Menu Code ---
    # ------------------------------------------------------------------------
    if(Menu == 1.0) {
        if(Set == 1) {
            while(PW:length() < S:length()) { PW += "*" }
            EGP:egpSetText(13,PW)
            if(Key == 13 & S != "") { Set = 3 }
        } elseif( Set == 0 ) {
            EGP:egpSetText(12,S)
            if(Key == 13 & S != "") {
                EGP:egpAlpha(14,0)
                Set = 1
                UN = S
                S = ""
            }
        } else {
            local ID = checkUserPassword(UN,S)
            if(ID != 0) {
                LoginName = getUserIDName(ID)
                Set = 0
                S = ""
                menu02()
            }
            else {
                UN = ""
                S = ""
                EGP:egpSetText(13,"")
                EGP:egpSetText(12,"")
                EGP:egpAlpha(14,255)
                Set = 0
            }
        }
    } elseif(Menu == 2.0) {
        EGP:egpSetText(8,S)

        if(Key == 13) {
                if(S == "01" | S == "1") {menu03()}
            elseif(S == "02" | S == "2") {menu04()}
            elseif(S == "03" | S == "3") {menu05()}
            elseif(S == "04" | S == "4") {menu06()}
            elseif(S == "05" | S == "5") {menu07()}
            elseif(S == "06" | S == "6") {menu08()}
            elseif(S == "07" | S == "7") {menu09()}
            elseif(S == "08" | S == "8") {menu10()}
            elseif(S == "09" | S == "9") {menu11()}
            elseif(S == "80") {menu12()}
            elseif(S == "90") {abmelden()}
        }
    } elseif(Menu == 3.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}
        if(Key == 13) {
            SearchByName = S
            S = ""

        }

    } elseif(Menu == 4.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 5.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 6.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 7.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 8.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 9.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 10.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 11.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    } elseif(Menu == 12.0) {
        EGP:egpSetText(7,S)

        if(Key == 165) {menu02()}

    }
} else {
    EGP:egpSetText(4,time("hour")+":"+time("min"))

    if(Menu == 3.0) {
        E = findPlayerByName(SearchByName)
        EGP:egpSetText(10,E:name())
        EGP:egpSetText(11,"Health: "+E:health())
        EGP:egpSetText(12,"Armor: "+E:armor())

        EGP:egpSetText(13,"Pos X: "+round(E:pos():x()))
        EGP:egpSetText(14,"Pos Y: "+round(E:pos():y()))
        EGP:egpSetText(15,"Pos Z: "+round(E:pos():z()))

        EGP:egpSetText(16,"AimPos X: "+round(E:aimPos():x()))
        EGP:egpSetText(17,"AimPos Y: "+round(E:aimPos():y()))
        EGP:egpSetText(18,"AimPos Z: "+round(E:aimPos():z()))
    }
}