@name Bogmaster 2000
@inputs EGP:wirelink User:entity
@outputs
@persist Lottery:number
@trigger
if(first()){
    timer("main",250)

    Lottery = 5000

    function number wirelink:egpButton(Index:number,Player:entity){
    Pos=This:egpPos(Index)
    Size=This:egpSize(Index)/2
    return inrange(This:egpCursor(Player),Pos-Size,Pos+Size)
    }

    function void drawlogin(){
        EGP:egpClear()

        EGP:egpBox(1,vec2(256,256),vec2(512,512))
        EGP:egpColor(1,vec(15,22,31))

        EGP:egpBox(2,vec2(256,256),vec2(500,150))
        EGP:egpColor(2,vec(20,29,41))

        EGP:egpBoxOutline(3,vec2(256,256),vec2(500,150))
        EGP:egpColor(3,vec(28,42,59))
        EGP:egpSize(3,3)

        EGP:egpText(4,"Stavox",vec2(20,20))
        EGP:egpFont(4,"Marlett")

        EGP:egpBox(5,vec2(256,256),vec2(300,100))
        EGP:egpColor(5,vec(60,60,60))

        EGP:egpBox(6,vec2(256,256),vec2(300,100))
        EGP:egpMaterial(6,"vgui/gradient-u")
        EGP:egpColor(6,vec4(0,0,0,150))

        EGP:egpText(7,"Login",vec2(175,225))
        EGP:egpSize(7,75)
        EGP:egpFont(7,"Marlett")
        }

    function void drawvent(){
                EGP:egpClear()

        EGP:egpBox(1,vec2(256,256),vec2(512,512))
        EGP:egpColor(1,vec(15,22,31))

        EGP:egpBox(2,vec2(256,256),vec2(500,150))
        EGP:egpColor(2,vec(20,29,41))

        EGP:egpBoxOutline(3,vec2(256,256),vec2(500,150))
        EGP:egpColor(3,vec(28,42,59))
        EGP:egpSize(3,3)

        EGP:egpText(4,"Stavox",vec2(20,20))
        EGP:egpFont(4,"Marlett")

        EGP:egpBox(5,vec2(256,256),vec2(300,100))
        EGP:egpColor(5,vec(60,60,60))

        EGP:egpBox(6,vec2(256,256),vec2(300,100))
        EGP:egpMaterial(6,"vgui/gradient-u")
        EGP:egpColor(6,vec4(0,0,0,150))

        EGP:egpText(7,"Vent ...",vec2(175,225))
        EGP:egpSize(7,75)
        EGP:egpFont(7,"Marlett")
        }
        }



    function void drawmain() {
        EGP:egpClear()

        EGP:egpBox(1,vec2(256,256),vec2(512,512))
        EGP:egpColor(1,vec(15,22,31))

        EGP:egpBox(2,vec2(75,150),vec2(250,150))
        EGP:egpColor(2,vec(20,29,41))

        EGP:egpBoxOutline(3,vec2(75,150),vec2(250,150))
        EGP:egpColor(3,vec(28,42,59))
        EGP:egpSize(3,3)

        EGP:egpText(4,"Stavox",vec2(20,20))
        EGP:egpFont(4,"Marlett")

        EGP:egpText(6,"License :",vec2(20,80))
        EGP:egpFont(6,"Marlett")
        EGP:egpColor(6,vec(71,126,173))

        EGP:egpRoundedBox(7,vec2(95,156),vec2(150,100))
        EGP:egpColor(7,vec(44,62,80))

        EGP:egpText(8,"K"+oe()+"b",vec2(60,135))
        EGP:egpFont(8,"Marlett")
        EGP:egpSize(8,40)

        EGP:egpBox(12,vec2(256,320),vec2(500,150))
        EGP:egpColor(12,vec(20,29,41))

        EGP:egpBoxOutline(13,vec2(256,320),vec2(500,150))
        EGP:egpColor(13,vec(28,42,59))
        EGP:egpSize(13,3)

        EGP:egpText(9,"Lottery :",vec2(20,250))
        EGP:egpFont(9,"Marlett")
        EGP:egpColor(9,vec(71,126,173))

        EGP:egpRoundedBox(10,vec2(95,325),vec2(150,100))
        EGP:egpColor(10,vec(44,62,80))

        EGP:egpText(11,"K"+oe()+"b",vec2(60,300))
        EGP:egpFont(11,"Marlett")
        EGP:egpSize(11,40)

        EGP:egpRoundedBox(14,vec2(256,325),vec2(50,50))
        EGP:egpColor(14,vec(44,62,80))

        EGP:egpText(15,"<",vec2(240,305))
        EGP:egpSize(15,40)

        EGP:egpText(16,"5000",vec2(300,305))
        EGP:egpSize(16,40)

        EGP:egpRoundedBox(17,vec2(425,325),vec2(50,50))
        EGP:egpColor(17,vec(44,62,80))

        EGP:egpText(18,">",vec2(415,305))
        EGP:egpSize(18,40)


        }


if(EGP:egpButton(14,User)){
    Lottery = 2500
    EGP:egpSetText(16,"2500")
}

if(Lottery == 2500){

}

if(clk("Login")){
drawlogin()
}

if(EGP:egpButton(10,User)){
    moneyRequest(User, Lottery,"Lottery p"+aa()+" "+Lottery+"")
}

if(moneyClk()){
    concmd("say /Lottrey "+Lottery+"")
    }

if(EGP:egpButton(5,User)){timer("vent",250)}

if(clk("vent")) {
    drawvent()
    timer("main",1000)
}

if(clk("main")){
drawmain()
}

if(EGP:egpButton(7,User)) {
    moneyRequest(User, 3000)
    }

if(moneyClk()){
    printColor(vec(225,225,225),"[ ",vec(199,72,75),"Bogmaster 2000",vec(225,225,225)," ]",vec(200,200,200)," En Person har bestilt license")
    }