@name EGP_Menu
@persist [Q,Q1,Q2,I,Vol,AS,S,Run]:number [Track,TrackName]:array EGP:wirelink
runOnTick(1)

if(first()){

    Track=array("http://pub7.di.fm:80/di_dubstep","http://pub1.di.fm:80/di_clubsounds","http://pub1.di.fm:80/di_drumandbass",
    "http://pub1.di.fm:80/di_djmixes","http://air.radiorecord.ru:8102/trap_320","http://pub1.di.fm:80/di_techno","http://pub1.di.fm:80/di_chiptunes")

    TrackName=array("Dubstep","Club","Drum'n'Bass","Dj MIX","Radio Record","Techno","8bit","SportFm")

    entity():setAlpha(0)
    entity():propNotSolid(1)
    entity():createWire(entity():isWeldedTo(),"User","User")




    EGP=entity():isWeldedTo():wirelink()
    EGP:egpBox(1,vec2(256,256),vec2(500,500))
    EGP:egpColor(1,vec(0,161,255))
    EGP:egpBox(2, vec2(120,150), vec2(40,40))
    EGP:egpText(3,"Power",vec2(95,100))
    EGP:egpColor(3,vec(50,255,0))
    EGP:egpBoxOutline(4,vec2(120,150),vec2(50,50))
    EGP:egpBox(5, vec2(220,150), vec2(40,40))
    EGP:egpText(6,"Music",vec2(195,100))
    EGP:egpColor(6,vec(10,255,0))
    EGP:egpBoxOutline(7,vec2(220,150),vec2(50,50))
    EGP:egpText(8,"Music player",vec2(20,20))
    EGP:egpAngle(8,5)
    EGP:egpBoxOutline(9,vec2(256,256),vec2(500,500))
    EGP:egpBox(10, vec2(320,150), vec2(40,40))
    EGP:egpText(11,"Light",vec2(295,100))
    EGP:egpColor(11,vec(255,255,0))
    EGP:egpBoxOutline(12,vec2(320,150),vec2(50,50))
    EGP:egpText(13,"By [B]Lis",vec2(440,480))
    EGP:egpBox(14,vec2(150,270),vec2(120,5))
    EGP:egpBox(15, vec2(200,270), vec2(10,20))
    EGP:egpColor(15,vec(255,255,0))
    EGP:egpText(16,round((Vol-100)):toString(),vec2(200,240))
    EGP:egpBox(17, vec2(380,300), vec2(200,150))
    EGP:egpColor(18,vec(0,0,20))
    EGP:egpBox(30, vec2(260,300), vec2(20,10))
    EGP:egpMaterial(30,"gui/spawnmenu_toggle_back")
    EGP:egpAngle(30,90)
    EGP:egpBox(31, vec2(260,270), vec2(20,10))
    EGP:egpMaterial(31,"gui/spawnmenu_toggle_back")
    EGP:egpAngle(31,-90)
    EGP:egpBox(32,vec2(20,20),vec2(40,40))
    EGP:egpMaterial(32,"gui/gmod_logo")
    EGP:egpBoxOutline(33,vec2(380,300),vec2(200,150))
    EGP:egpColor(33,vec(0,0,0))
    EGP:egpSize(33,2)
    EGP:egpBoxOutline(100,vec2(352,224+(AS*15)),vec2(100,15))
    EGP:egpColor(100,vec(200,0,0))
    Vol=200
    print("By [B]Lis")

    for(S=200,TrackName:count()+200){
        EGP:egpText(S,TrackName[S-200,string],vec2(282,215+(S-200)*15))
        EGP:egpColor(S,vec(250,50,200))}}

#########IF FIRST DEAD########

if(changed(owner():keyUse())&owner():keyUse()&owner():aimEntity()==entity():isWeldedTo()){
    owner():soundPlay(1,0.3,"common/weapon_select.wav")

    if(inrange(EGP:egpCursor(owner()), EGP:egpPos(2) - EGP:egpSize(2)/2, EGP:egpPos(2) + EGP:egpSize(2)/2))
        {Q=(Q+1)%2}

    if(inrange(EGP:egpCursor(owner()), EGP:egpPos(5) - EGP:egpSize(5)/2, EGP:egpPos(5) + EGP:egpSize(5)/2))
        {Q1=(Q1+1)%2,soundURLload("1",Track[AS,string],1,0,EGP:entity()),soundURLPurge()}

    if(inrange(EGP:egpCursor(owner()), EGP:egpPos(10) - EGP:egpSize(10)/2, EGP:egpPos(10) + EGP:egpSize(10)/2))
        {Q2=(Q2+1)%2}

     if(inrange(EGP:egpCursor(owner()), EGP:egpPos(30) - EGP:egpSize(30)/2, EGP:egpPos(30) + EGP:egpSize(30)/2))
       {AS+=1,if(Q1!=0){soundURLload("1",Track[AS,string],1,0,EGP:entity())}}

     if(inrange(EGP:egpCursor(owner()), EGP:egpPos(31) - EGP:egpSize(31)/2, EGP:egpPos(31) + EGP:egpSize(31)/2))
        {AS-=1,if(Q1!=0){soundURLload("1",Track[AS,string],1,0,EGP:entity())}}}

     if(owner():keyUse()&owner():aimEntity()==entity():isWeldedTo()){
        if(inrange(EGP:egpCursor(owner()), EGP:egpPos(15) - EGP:egpSize(15)/2, EGP:egpPos(15) + EGP:egpSize(15)/2))
        {EGP:egpPos(15,vec2(EGP:egpCursor(owner()):x(),270)),Vol=EGP:egpCursor(owner()):x()}}

timer("c",200)

if(clk("c")){

if(Q){EGP:egpColor(2,vec(0,255,0)),EGP:egpColor(1,vec(randint(100,255),randint(50,222),randint(0,255)))}
if(!Q){EGP:egpColor(2,vec(255,255,255))}

if(Q1){EGP:egpColor(5,vec(0,255,0))}
if(!Q1){EGP:egpColor(5,vec(255,255,255)),soundURLpause("1")}


if(AS<=0){AS=1}
if(AS>=TrackName:count()){AS=TrackName:count()}

soundURLvolume("1",(Vol-100)/100)

EGP:egpColor(8,hsv2rgb(curtime()*30%360,1,1))
EGP:egpPos(100,vec2(332,224+(AS*15)))
EGP:egpSetText(16,round((Vol-100)):toString())}
#EGP:egpAngle(8,sin(curtime()*70)*10)
#EGP:egpPos(8,vec2(200+cos(curtime()*10)*100,20+cos(curtime()*20)*10))
#EGP:egpColor(8,hsv2rgb(curtime()*30%360,1,1))