@name EGP Comp
@inputs Keyboard EGP:wirelink Inuse
@outputs
@persist Input:string Temp:string Login Passwd User Failedlogings [Username, Pass]:array
@trigger all

if(first())
{
    Username[0,string]="Admin"
    Pass[0,string]="admin"
}

if(Inuse==0)
{
    Input=""
    Temp=""
    Failedlogings=0
    Login=0
    Passwd=0
    User=0
    EGP:egpClear()
    EGP:egpBox(100,vec2(260,100),vec2(400,100))
    EGP:egpText(101,"Aivaria Systems",vec2(200,90))
    EGP:egpColor(100,50,0,0,255)
    EGP:egpColor(101,255,0,0,255)
}
if(Inuse==1 && ~Inuse)
{
    EGP:egpText(10,"> ",vec2(40,450))


    EGP:egpText(11,"",vec2(40,180))
    EGP:egpText(12,"",vec2(40,200))
    EGP:egpText(13,"",vec2(40,220))
    EGP:egpText(14,"",vec2(40,240))
    EGP:egpText(15,"",vec2(40,260))
    EGP:egpText(16,"",vec2(40,280))
    EGP:egpText(17,"",vec2(40,300))
    EGP:egpText(18,"",vec2(40,320))
    EGP:egpText(19,"",vec2(40,340))
    EGP:egpText(20,"",vec2(40,360))

    EGP:egpColor(11,255,0,0,255)
    EGP:egpColor(12,100,0,0,255)
    EGP:egpColor(13,100,0,0,255)
    EGP:egpColor(14,100,0,0,255)
    EGP:egpColor(15,100,0,0,255)
    EGP:egpColor(16,100,0,0,255)
    EGP:egpColor(17,100,0,0,255)
    EGP:egpColor(18,100,0,0,255)
    EGP:egpColor(19,100,0,0,255)
    EGP:egpColor(20,100,0,0,255)

}

if(Keyboard!=127 && Keyboard!=13 && Keyboard != 154 && Keyboard != 144 && Keyboard != 158 && Keyboard != 156)
{
    Input+=toChar(Keyboard)
}
elseif(Keyboard==127)
{
    Input=Input:sub(0,Input:length()-1)
}
elseif(Keyboard==13 && Login==1)
{
    EGP:egpSetText(11,"")
    EGP:egpSetText(11,">> "+Input)
    Temp=Input:lower()
    Input=""

    EGP:egpSetText(12,"")
    EGP:egpSetText(13,"")
    EGP:egpSetText(14,"")
    EGP:egpSetText(15,"")
    EGP:egpSetText(16,"")
    EGP:egpSetText(17,"")
    EGP:egpSetText(18,"")

    if(Temp=="hallo welt")
    {
        EGP:egpSetText(12,"> Hallo Mensch")
    }
    elseif(Temp=="cmd")
    {
        EGP:egpSetText(12,"> CMD LIST")
        EGP:egpSetText(13,"> cmd - shows this help")
    }
    elseif(Temp=="cls")
    {

    }
    else
    {
        EGP:egpSetText(12,"> Unbekannter Befehl!")
    }
}
elseif(Keyboard==13 && Login==0)
{

    if(Passwd==1 && Input==Pass[User,string])
    {
        Login=1
        Passwd=0
    }
    elseif(Passwd==1 && Input!=Pass[User,string])
    {
        Failedlogings++
    }


    if(Passwd==0)
    {
       for(I=0,I<Username:count(),I+1)
        {
            if(Input==Username[I,string])
            {
                User=I
                Passwd=1
                EGP:egpSetText(12,"> Login as '"+Username[User,string]+"'")
                break
            }
        }
    }
    Input=""
    EGP:egpSetText(13,"> Failed Logins: "+Failedlogings)
}




if(Login==0)
{
    if(Passwd==0)
    {
        EGP:egpSetText(10,">Username: "+Input)
    }
    if(Passwd==1)
    {
        Temp=""
        for(I=1,I<Input:length(),I+1)
        {
            Temp+="*"
        }
        EGP:egpSetText(10,">Password: "+Temp)
    }
}
if(Login==1)
{
    EGP:egpSetText(10,Username[User,string]+"> "+Input)
}