@name Bogmaster 2000
@inputs EGP:wirelink User:entity
@outputs
@persist Lottery:number
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(ops() < 150)
{
    if(EGP:egpButton(14,User))
    {
        if(Lottery == 1000)
        { Lottery = 5000 }
        else
        { Lottery -= 500 }
        EGP:egpSetText(16,""+Lottery)
    }
    elseif(EGP:egpButton(17,User))
    {
        if(Lottery == 5000)
        { Lottery = 1000 }
        else
        { Lottery += 500 }
        EGP:egpSetText(16,""+Lottery)
    }
    elseif(EGP:egpButton(10,User))
    {
        moneyRequest(User, Lottery,"Lottery p"+aa()+" "+Lottery+"")
    }
    elseif(EGP:egpButton(5,User))
    {
        timer("vent",250)
    }
    elseif(EGP:egpButton(7,User))
    {
        moneyRequest(User, 3000)
    }
}


if(moneyClk("Lottery p"+aa()+" "+Lottery+""))
{ concmd("say /lottery "+Lottery+"") }
elseif(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") }


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


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

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

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