@name BaseViewer
@inputs [E E2]:wirelink [U U2 R1 R2]:entity
@outputs D D2
@persist Set:table


if(first() | ~E & E | ~E2 & E2 | duped() | dupefinished()){

    Set["Pris",number] = 5000,
    runOnChat(1),

    function string mf(M:number){
        local Q = M < 1000000
        local P = Q ? "^(-?%d+)(%d%d%d)" : "^(-?%d+)(%d%d%d)(%d%d%d)"
        local N = Q ? "%1.%2" : "%1.%2.%3"
        return M:toString():replaceRE(P, N)+",-"
    }

    function number entity:hasAcces(){
        return Set[This:steamID(),number]
    }

    function number entity:addPlayer(){
        printColor(vec(255,121,0),"ADGANG ",vec(255),"| "+This:name()+" blev tilf"+oe()+"jet."),
        Set[This:steamID(),number] = 1
    }

    function number entity:removePlayer(){
        printColor(vec(255,121,0),"ADGANG ",vec(255),"| "+This:name()+" blev fjernet."),
        Set[This:steamID(),number] = 0
    }

    function wirelink:drawHome(){
        This:egpClear()
        This:egpBox(1, vec2(256,256), vec2(512,512)) This:egpColor(1,vec(43))
        This:egpBox(2, vec2(256,256), vec2(260,60)) This:egpColor(2,vec(51))
        This:egpBoxOutline(3, vec2(256,256), vec2(260,60)) This:egpColor(3,vec(38))
        This:egpText(4, "Se Basen - "+mf(Set["Pris",number]),vec2(256,256)) This:egpAlign(4,1,1) This:egpFont(4,"Courier New",19)

        if(This == E){E2:drawHome()}
    }

    E:drawHome(),
    owner():addPlayer(),
    printColor(vec(255,121,0),"ADGANG ",vec(255),"| !pris <antal> | !tilf"+oe()+"j <navn> | !fjern <navn> | !tjent"),
    setName("BaseViewer
    Spawnet af "+owner():name())
}

elseif(~U & U & ops() < 150){
    moneyRequest(U,Set["Pris",number],"ADGANG - 5 MIN")
}

elseif(~U2 & U2 & ops() < 150){
    moneyRequest(U2,Set["Pris",number],"ADGANG - 5 MIN")
}

elseif(moneyClk()){
    Set["Tjent",number] = Set["Tjent",number] + Set["Pris",number],
    moneyClkPlayer():addPlayer(),
    timer("ra"+moneyClkPlayer():steamID(),300000)
}

elseif(clk(clkName())){
    switch(clkName()){
        case "closeD",
        D = 0

        break

        case "closeD2",
        D2 = 0

        break

        case "ra"+moneyClkPlayer():steamID(),
            local S = clkName():sub(3,33):replace(" ",""):lower(),
            local P = findPlayerBySteamID(S),
            P:removePlayer()

        break
    }
}

elseif(~R1 & R1 | ~R2 & R2){
    if(R1:isPlayer() & R1:hasAcces()){D = 1, timer("closeD",5000)}
    if(R2:isPlayer() & R2:hasAcces()){D2 = 1, timer("closeD2",5000)}
}

elseif(chatClk(owner())){
    local S = lastSaid():lower():explode(" ")

    if(S:string(1) == "!tilf"+oe()+"j" & findPlayerByName(S:string(2)):isPlayer()){
        findPlayerByName(S:string(2)):addPlayer()

    }

    elseif(S:string(1) == "!fjern" & findPlayerByName(S:string(2)):isPlayer()){
        findPlayerByName(S:string(2)):removePlayer()
    }

    elseif(S:string(1) == "!pris" & S:string(2):toNumber() > 0){
        Set["Pris",number] = S:string(2):toNumber(),
        E:egpSetText(4, "Se Basen - "+mf(Set["Pris",number]))
        printColor(vec(255,121,0),"ADGANG ",vec(255),"| Prisen blev sat til "+mf(S:string(2):toNumber()))
    }

    elseif(S:string(1) == "!tjent"){
        printColor(vec(255,121,0),"ADGANG ",vec(255),"| Tjent: "+mf(Set["Tjent",number]))
    }

    if(S:string(1) == "!fjern" | "!tilf"+oe()+"j" | "!pris" | "!tjent"){hideChat(1)}
}