Simple EGP Gunshop

@name Egp Gunshop
@inputs S:wirelink User:entity Moneypot
@outputs GunSelect Takemoney U1 U2 U3 U4 U5 U6 U7 U8 U9
@persist CSR:vector2 GunSelect Page Pay Select Unlock
@trigger
interval(500)
KUse=User:keyUse()
CSR=S:egpCursor(User)
findIncludeClass("player")
findInSphere(entity():pos(),95)
Ent=find()
Name = Ent:name()
S:egpDrawTopLeft(1)
S:egpColor(77,vec(255,255,255))
S:egpCircleOutline(77,vec2(0,0),vec2(3,3))
S:egpParentToCursor(77)
S:egpOrder(77,300)

if(first()){Page = 0 GunSelect = 1}
if(Moneypot == 0){Takemoney = 0}

if(!Ent:isValid())
{
S:egpText(1,"Come closer to activate",vec2(110,150))
S:egpSize(1,30)
S:egpColor(1,vec(255,200,0))
Page = 0
GunSelect = 1
}
else
{
S:egpRemove(1)
if(Page == 0){Page = 1}
}

###Page 1####

if(Page == 1)
{


S:egpText(2,"Auto Gun Shop",vec2(140,0))
S:egpSize(2,28)
S:egpFont(2,"Times New Roman")

S:egpColor(5,vec(150,150,150))
S:egpPoly(5,vec2(0,28),vec2(0,30),vec2(550,30),vec2(550,28))

S:egpSize(6,25)
S:egpColor(6,vec(150,150,100))
S:egpText(6,"Gun",vec2(10,30))

S:egpSize(7,25)
S:egpColor(7,vec(150,150,100))
S:egpText(7,"Price",vec2(219,30))

S:egpSize(8,23)
S:egpText(8,"Honey Badger",vec2(5,60))
S:egpSize(9,23)
S:egpText(9,"P90",vec2(5,90))
S:egpSize(10,23)
S:egpText(10,"Mp5",vec2(5,120))
S:egpSize(11,23)
S:egpText(11,"Ump",vec2(5,150))
S:egpSize(12,23)
S:egpText(12,"Vector",vec2(5,180))
S:egpSize(13,23)
S:egpText(13,"Mp9",vec2(5,210))
S:egpSize(14,23)
S:egpText(14,"Uzi",vec2(5,240))
S:egpSize(15,23)
S:egpText(15,"Benelli M3",vec2(5,270))
S:egpSize(16,23)
S:egpText(16,"Double Barrel",vec2(5,300))
S:egpSize(17,23)
S:egpText(17,"$785",vec2(220,60))
S:egpSize(18,23)
S:egpText(18,"$665",vec2(220,90))
S:egpSize(19,23)
S:egpText(19,"$635",vec2(220,120))
S:egpSize(20,23)
S:egpText(20,"$615",vec2(220,150))
S:egpSize(21,23)
S:egpText(21,"$790",vec2(220,180))
S:egpSize(22,23)
S:egpText(22,"$765",vec2(220,210))
S:egpSize(23,23)
S:egpText(23,"$525",vec2(220,240))
S:egpSize(24,23)
S:egpText(24,"$725",vec2(220,270))
S:egpSize(25,23)
S:egpText(25,"$525",vec2(220,300))

S:egpRoundedBox(31,vec2(325,178),vec2(120,150)) #Select Background
S:egpColor(31,vec(100,100,100))

S:egpText(32,"Selection",vec2(338,176))
S:egpColor(32,vec(150,150,150))
S:egpSize(32,25)

S:egpRoundedBox(27,vec2(350,200),vec2(70,30)) #Uputton
S:egpColor(27,vec(150,150,100))

S:egpText(30,"Up",vec2(370,202))
S:egpColor(30,vec(0,0,0))
S:egpSize(30,25)

S:egpRoundedBox(26,vec2(350,235),vec2(70,30)) #DownButton
S:egpColor(26,vec(150,150,100))
S:egpText(29,"Down",vec2(355,237))
S:egpColor(29,vec(0,0,0))
S:egpSize(29,25)

S:egpRoundedBox(33,vec2(350,280),vec2(70,30)) #Buy Button

S:egpText(34,"Buy",vec2(365,282))
S:egpSize(34,24)
S:egpColor(34,vec(0,0,0))


if(Pay < 1)
{
S:egpColor(33,vec(0,150,0))
}
else
{
S:egpColor(33,vec(150,0,0))
}

if(KUse & Page == 1 & GunSelect != 9){
        if(inrange(CSR,S:egpPos(26),S:egpPos(26)+S:egpSize(26))){
        entity():soundPlay(1,0,"physics/metal/chain_impact_hard2.wav")
        GunSelect++
    }
}
if(KUse & Page == 1 & GunSelect != 1){
        if(inrange(CSR,S:egpPos(27),S:egpPos(27)+S:egpSize(27))){
        entity():soundPlay(1,0,"physics/metal/chain_impact_hard2.wav")
        GunSelect--
    }
}
if(KUse & Page == 1){
        if(inrange(CSR,S:egpPos(33),S:egpPos(33)+S:egpSize(33))){
        if(Pay < 1 | Pay == 0){
            entity():soundPlay(1,0,"hl1/fvox/boop.wav")
            Select = 1
            Takemoney = Moneypot
        }
        elseif(Pay > 0){
            entity():soundPlay(1,0,"hl1/fvox/buzz.wav")
            Takemoney = 0
        }

    }
}


if(GunSelect == 1)
{
OutlinePos = 61
Cost = 785
    if(Select == 1)
    {U1 = 1}
    }

if(GunSelect == 2)
{
    OutlinePos = 91
    Cost = 665
    if(Select == 1)
    {U2 = 1}
    }

if(GunSelect == 3)
{OutlinePos = 121
    Cost = 635
    if(Select == 1)
    {U3 = 1}
    }

if(GunSelect == 4)
{OutlinePos = 151
    Cost = 615
    if(Select == 1)
    {U4 = 1}
    }

if(GunSelect == 5)
{OutlinePos = 181
    Cost = 790
    if(Select == 1)
    {U5 = 1}
    }

if(GunSelect == 6)
{OutlinePos = 211
    Cost = 765
    if(Select == 1)
    {U6 = 1}
    }

if(GunSelect == 7)
{OutlinePos = 241
    Cost = 525
    if(Select == 1)
    {U7 = 1}
    }

if(GunSelect == 8)
{OutlinePos = 271
    Cost = 725
    if(Select == 1)
    {U8 = 1}
    }

if(GunSelect == 9)
{OutlinePos = 301
    Cost = 525
    if(Select == 1)
    {U9 = 1}
    }

S:egpBoxOutline(28,vec2(2,OutlinePos),vec2(270,25))

Pay = Cost-Moneypot


S:egpText(35,"Cost: $"+Cost+"",vec2(330,50))
S:egpColor(35,vec(150,150,100))
S:egpSize(35,22)

S:egpText(36,"Deposited: $"+Moneypot+"",vec2(318,71))
if(Moneypot == 0){S:egpColor(36,vec(200,0,0)) Unlock = 0  Select = 0 U1=0 U2=0 U3=0 U4=0 U5=0 U6=0 U7=0 U8=0 U9=0}
elseif(Moneypot > 0 & Pay > 0){S:egpColor(36,vec(200,120,0)) Unlock = 0}
elseif(Moneypot > 0 & Pay <= 0){S:egpColor(36,vec(0,200,0)) Unlock = 1}


if(Pay > 0){
S:egpText(37,"Amount to Pay: $"+Pay+"",vec2(300,90))
S:egpColor(37,vec(200,200,0))
}
elseif(Pay == 0)
{
S:egpText(37,"Press 'Buy' Button",vec2(313,90))
S:egpColor(37,vec(0,200,0))
}
elseif(Pay < 0)
{
S:egpText(37,"Overpaying by: $"+abs(Pay)+"",vec2(305,90))
S:egpColor(37,vec(170,200,0))

}

}
elseif(Page != 1)
{
S:egpRemove(2)
S:egpRemove(5)
S:egpRemove(6)
S:egpRemove(7)
S:egpRemove(8)
S:egpRemove(9)
S:egpRemove(10)
S:egpRemove(11)
S:egpRemove(12)
S:egpRemove(13)
S:egpRemove(14)
S:egpRemove(15)
S:egpRemove(16)
S:egpRemove(17)
S:egpRemove(18)
S:egpRemove(19)
S:egpRemove(20)
S:egpRemove(21)
S:egpRemove(22)
S:egpRemove(23)
S:egpRemove(24)
S:egpRemove(25)
S:egpRemove(26)
S:egpRemove(27)
S:egpRemove(28)
S:egpRemove(29)
S:egpRemove(30)
S:egpRemove(31)
S:egpRemove(32)
S:egpRemove(33)
S:egpRemove(34)
S:egpRemove(35)
S:egpRemove(36)
S:egpRemove(37)

}

S:egpText(140,"Made by",vec2(440,475))
S:egpColor(150,vec(100,0,255))
S:egpText(150,"RealGuy",vec2(440,490))