@name EGP_Pages_By_Jim_Dangle
@inputs EGP:wirelink Fwd Bwd Up Down Select Amount
@inputs Info:wirelink
@outputs Index A1 A2 A3 A4 A5 A6 P1 P2 P3 P4 P5 S1 S2 S3 S4 SR1 SR2 SR3 SH1 SH2 L1 M1 PgIndex 
@outputs Collect
@persist Pages:array PgIndex Index Black:vector White:vector Red:vector Green:vector Blue:vector Yellow:vector Orange:vector Pink:vector 
@persist PA:array PP:array PS:array PSR:array PSH:array PL:array PM:array
if(first() | duped()){
    Pages = array(1,2,3,4,5,6,7)
    PgIndex = 1
    Scale = 3
    Index = 1
    PA = array(200,300,400,500,600,700)
    PP = array(200,300,400,500,600)
    PS = array(200,300,400,500)
    PSR = array(200,300,400)
    PSH = array(200,300)
    PL = array(100)
    PM = array(100)
    }


PageCount = array(6, 5, 4, 3, 2, 1, 1)
#Page Controls
if(Fwd & ~Fwd){PgIndex++ soundPlay(0,0,"buttons/button22.wav")}
if(Bwd & ~Bwd){PgIndex-- soundPlay(0,0,"buttons/button22.wav")}
if(PgIndex < 1){PgIndex = 7}
if(PgIndex > 7){PgIndex = 1}
#Item Controls
if(Up & ~Up){Index-- soundPlay(0,0,"buttons/button14.wav")}
if(Down & ~Down){Index++ soundPlay(0,0,"buttons/button14.wav")}
if(Index < 1){Index = PageCount[PgIndex, number]}
if(Index > PageCount[PgIndex, number]){Index = 1}    
if(Select & ~Select){soundPlay(0,0,"buttons/button9.wav")}

if(first() | duped()){
    #colors
    Black = vec(0,0,0)
    White = vec(255,255,255)
    Red = vec(255,0,0)
    Green = vec(0,255,0)
    Blue = vec(0,0,255)
    Yellow = vec(255, 220, 0)
    Orange = vec(255, 90, 0)
    Pink = vec(255, 0, 120)
    }


if(first() | duped()){
    EGP:egpClear()
    }

if(Pages[PgIndex, number]==1){
    #Making arrays for pages
    Rifles = array("Famas","SG-552","AUG","AK47","M4A1","Galil")
    #Clearing Screen
    EGP:egpClear()
    #Creating Title Header
    EGP:egpText(300, "Jim Dangles Auto Store", vec2(120, 20))
    EGP:egpSize(300, 30)
    EGP:egpColor(300, White)
    EGP:egpLine(299, vec2(0,30), vec2(510,30))
    EGP:egpSize(299, 90)
    EGP:egpColor(299, Blue)
    EGP:egpAlpha(299, 120)
    #Ending Title
    EGP:egpText(1, "Assault Rifles", vec2(195, 80))
    EGP:egpColor(1, Orange)
    EGP:egpSize(1, 20)
    for(I=1, Rifles:count()){
        EGP:egpText(1+I, Rifles[I, string], vec2(30, 100+40*I))
        EGP:egpSize(1+I, 19)
        }
    for(I=1, PA:count()){
        EGP:egpText(10+I, "$"+PA[I, number], vec2(230, 100+40*I))
        EGP:egpSize(10+I, 19)
        }
    #creating a highlighter
    EGP:egpBox(100, vec2(75, 110+40*Index), vec2(90, 20))
    EGP:egpColor(100, Red)
    EGP:egpAlpha(100, 120)
    
    }
if(Pages[PgIndex, number]==2){
    Pistols = array("Glock","Deagle","P228","USP","FiveSeven")
    EGP:egpClear()
    #Creating Title Header
    EGP:egpText(300, "Jim Dangles Auto Store", vec2(120, 20))
    EGP:egpSize(300, 30)
    EGP:egpColor(300, White)
    EGP:egpLine(299, vec2(0,30), vec2(510,30))
    EGP:egpSize(299, 90)
    EGP:egpColor(299, Blue)
    EGP:egpAlpha(299, 120)
    
    EGP:egpText(1, "Pistols", vec2(225, 80))
    EGP:egpColor(1, Orange)
    EGP:egpSize(1, 20)
    for(I=1, Pistols:count()){
        EGP:egpText(1+I, Pistols[I, string], vec2(30, 100+40*I))
        EGP:egpSize(1+I, 19)
        }
    for(I=1, PP:count()){
        EGP:egpText(10+I, "$"+PP[I, number], vec2(230, 100+40*I))
        EGP:egpSize(10+I, 19)
        }
    #creating a highlighter
    EGP:egpBox(100, vec2(75, 110+40*Index), vec2(90, 20))
    EGP:egpColor(100, Red)
    EGP:egpAlpha(100, 120)
    }
if(Pages[PgIndex, number]==3){
    SMGs = array("Mac 10","TMP","UMP","P90")
    EGP:egpClear()
    #Creating Title Header
    EGP:egpText(300, "Jim Dangles Auto Store", vec2(120, 20))
    EGP:egpSize(300, 30)
    EGP:egpColor(300, White)
    EGP:egpLine(299, vec2(0,30), vec2(510,30))
    EGP:egpSize(299, 90)
    EGP:egpColor(299, Blue)
    EGP:egpAlpha(299, 120)
    EGP:egpText(1, "SMGs", vec2(227, 80))
    EGP:egpSize(1, 20)
    EGP:egpColor(1, Orange)
    for(I=1, SMGs:count()){
        EGP:egpText(1+I, SMGs[I, string], vec2(30, 100+40*I))
        EGP:egpSize(1+I, 19)
        }
    for(I=1, PS:count()){
        EGP:egpText(10+I, "$"+PS[I, number], vec2(230, 100+40*I))
        EGP:egpSize(10+I, 19)
        }
    #creating a highlighter
    EGP:egpBox(100, vec2(75, 110+40*Index), vec2(90, 20))
    EGP:egpColor(100, Red)
    EGP:egpAlpha(100, 120)
    }
if(Pages[PgIndex, number]==4){
    Snipers = array("Scout","SG-550","AWP")
    Prices = array(200, 300, 400)
    EGP:egpClear()
    #Creating Title Header
    EGP:egpText(300, "Jim Dangles Auto Store", vec2(120, 20))
    EGP:egpSize(300, 30)
    EGP:egpColor(300, White)
    EGP:egpLine(299, vec2(0,30), vec2(510,30))
    EGP:egpSize(299, 90)
    EGP:egpColor(299, Blue)
    EGP:egpAlpha(299, 120)
    EGP:egpText(1, "Sniper Rifles", vec2(200, 80))
    EGP:egpSize(1, 20)
    EGP:egpColor(1, Orange)
    for(I=1, Snipers:count()){
        EGP:egpText(1+I, Snipers[I, string], vec2(30, 100+40*I))
        EGP:egpSize(1+I, 19)
        }
    for(I=1, PSR:count()){
        EGP:egpText(10+I, "$"+PSR[I, number], vec2(230, 100+40*I))
        EGP:egpSize(10+I, 19)
        }
    #creating a highlighter
    EGP:egpBox(100, vec2(75, 110+40*Index), vec2(90, 20))
    EGP:egpColor(100, Red)
    EGP:egpAlpha(100, 120)
    }
if(Pages[PgIndex, number]==5){
    Shotguns = array("Pump Shotgun","Auto Shotgun")
    EGP:egpClear()
    #Creating Title Header
    EGP:egpText(300, "Jim Dangles Auto Store", vec2(120, 20))
    EGP:egpSize(300, 30)
    EGP:egpColor(300, White)
    EGP:egpLine(299, vec2(0,30), vec2(510,30))
    EGP:egpSize(299, 90)
    EGP:egpColor(299, Blue)
    EGP:egpAlpha(299, 120)
    EGP:egpText(1, "Shotguns", vec2(210, 80))
    EGP:egpSize(1, 20)
    EGP:egpColor(1, Orange)
    for(I=1, Shotguns:count()){
        EGP:egpText(1+I, Shotguns[I, string], vec2(30, 100+40*I))
        EGP:egpSize(1+I, 19)
        }
    for(I=1, PSH:count()){
        EGP:egpText(10+I, "$"+PSH[I, number], vec2(230, 100+40*I))
        EGP:egpSize(10+I, 19)
        }
    #creating a highlighter
    EGP:egpBox(100, vec2(89, 110+40*Index), vec2(120, 20))
    EGP:egpColor(100, Red)
    EGP:egpAlpha(100, 120)
    }
if(Pages[PgIndex, number]==6){
    LMGs = array("M249")
    EGP:egpClear()
    #Creating Title Header
    EGP:egpText(300, "Jim Dangles Auto Store", vec2(120, 20))
    EGP:egpSize(300, 30)
    EGP:egpColor(300, White)
    EGP:egpLine(299, vec2(0,30), vec2(510,30))
    EGP:egpSize(299, 90)
    EGP:egpColor(299, Blue)
    EGP:egpAlpha(299, 120)
    EGP:egpText(1, "LMGs", vec2(229, 80))
    EGP:egpSize(1, 20)
    EGP:egpColor(1, Orange)
    for(I=1, LMGs:count()){
        EGP:egpText(1+I, LMGs[I, string], vec2(30, 100+40*I))
        EGP:egpSize(1+I, 19)
        }
    for(I=1, PL:count()){
        EGP:egpText(10+I, "$"+PL[I, number], vec2(230, 100+40*I))
        EGP:egpSize(10+I, 19)
        }
    #creating a highlighter
    EGP:egpBox(100, vec2(75, 110+40*Index), vec2(90, 20))
    EGP:egpColor(100, Yellow)
    EGP:egpAlpha(100, 120)
    }
if(Pages[PgIndex, number]==7){
    Misc = array("Knife") 
    EGP:egpClear()
    #Creating Title Header
    EGP:egpText(300, "Jim Dangles Auto Store", vec2(120, 20))
    EGP:egpSize(300, 30)
    EGP:egpColor(300, White)
    EGP:egpLine(299, vec2(0,30), vec2(510,30))
    EGP:egpSize(299, 90)
    EGP:egpColor(299, Blue)
    EGP:egpAlpha(299, 120)
    EGP:egpText(1, "Misc", vec2(235, 80))
    EGP:egpSize(1, 20)
    EGP:egpColor(1, Orange)
    for(I=1, Misc:count()){
        EGP:egpText(1+I, Misc[I, string], vec2(30, 100+40*I))
        EGP:egpSize(1+I, 19)
        }
    for(I=1, PM:count()){
        EGP:egpText(10+I, "$"+PM[I, number], vec2(230, 100+40*I))
        EGP:egpSize(10+I, 19)
        }
    #creating a highlighter
    EGP:egpBox(100, vec2(75, 110+40*Index), vec2(90, 20))
    EGP:egpColor(100,Red)
    EGP:egpAlpha(100, 120)
    }


if(Select){
    if(Pages[PgIndex, number]==1){
        ioSetOutput("A"+Index, 1)
        Collect = 1
    }
    if(Pages[PgIndex, number]==2){
        ioSetOutput("P"+Index, 1)
        Collect = 1
        }
    if(Pages[PgIndex, number]==3){
        ioSetOutput("S"+Index, 1)
        Collect = 1
    }
    if(Pages[PgIndex, number]==4){
        ioSetOutput("SR"+Index, 1)
        Collect = 1
    }
    if(Pages[PgIndex, number]==5){
        ioSetOutput("SH"+Index, 1)
        Collect = 1
    }
    if(Pages[PgIndex, number]==6){
        ioSetOutput("L"+Index, 1)
        Collect = 1
    }
    if(Pages[PgIndex, number]==7){
        ioSetOutput("M"+Index, 1)
        Collect = 1
    }
    
    }
    else{
        for(I=1, 6){ioSetOutput("A"+I,0)}
        for(I=1, 5){ioSetOutput("P"+I,0)}
        for(I=1, 4){ioSetOutput("S"+I,0)}
        for(I=1, 3){ioSetOutput("SR"+I,0)}
        for(I=1, 2){ioSetOutput("SH"+I,0)}
        for(I=1, 1){ioSetOutput("L"+I,0)}
        for(I=1, 1){ioSetOutput("M"+I,0)}
        Collect = 0
        }
