@name E2 - Verison 1.0
@inputs [EGP,Emitter]:wirelink [User,R1,R2,R3,R4,R5,R6,R7]:entity
@outputs U1 U2 U3 U4 U5 U6 U7
@persist [S,Profit]:number [CurUser]:entity
@persist
@trigger
if(chatClk()&!chatClk(owner())){exit()}
if(duped() | dupefinished()){reset()}
if(first()){
    runOnChat(1)
    setName("- E2 -
- Version: 1.0 -")

    function number wirelink:egpButton(Idx:number,Ply:entity){
        TL = This:egpPos(Idx) - This:egpSize(Idx) / 2 * (0 ? 0 : 1)
        BR = This:egpPos(Idx) + This:egpSize(Idx) / (0 ? 1 : 2)
    Cur = This:egpCursor(Ply) return inrange(Cur, TL, BR) exit()}

    function number entity:pris(){
        if(This:isShipment()){
        return This:shipmentPrice() + Profit
        }else{return 0}
    }
    function string entity:navn()
    {
        if(This:shipmentPrice() > 4000){ShipmentName = This:shipmentName()}
        if(This:shipmentPrice() < 4000) {ShipmentName = This:shipmentName()}
        if(This:isShipment()==0){ShipmentName = "Udsolgt"}
        return ShipmentName
    }

    function void wirelink:drawStart()
    {
        This:egpClear()

        This:egpBox(1, vec2(256,256),vec2(512,512))
        This:egpMaterial(1, "skybox/militia_hdrup")

        This:egpBox(2, vec2(256,256),vec2(512,512))
        This:egpColor(2, vec4(40,40,40,225))

        This:egpBox(3, vec2(256,406),vec2(512,812))
        This:egpMaterial(3, "vgui/gradient_down")
        This:egpColor(3, vec4(256,140,10,170))

        This:egpBox(4, vec2(256,356),vec2(512,812))
        This:egpMaterial(4, "vgui/gradient_up")
        This:egpColor(4, vec4(10,140,255,80))

        This:egpText(5, "G U N W A R E", vec2(256,256))
        This:egpAlign(5, 1, 1)
        This:egpSize(5, 40)
        This:egpFont(5, "Courier New")
        This:egpColor(5, vec4(225, 225, 225, 255))

        This:egpText(6, "TRYK 'E' FOR AT BEGYNDE", vec2(256,512-10))
        This:egpAlign(6, 1, 1)
        This:egpSize(6, 15)
        This:egpFont(6, "Courier New")
        This:egpColor(6, vec4(225, 225, 225, 255))
    }
    function void wirelink:drawEmitter()
    {
        This:egpClear()
    }
    function void wirelink:drawWepStep()
    {
        This:egpClear()

        This:egpBox(1, vec2(256,256),vec2(512,512))
        This:egpMaterial(1, "skybox/militia_hdrup")

        This:egpBox(2, vec2(256,256),vec2(512,512))
        This:egpColor(2, vec4(40,40,40,225))

        This:egpBox(3, vec2(256,406),vec2(512,812))
        This:egpMaterial(3, "vgui/gradient_down")
        This:egpColor(3, vec4(256,140,10,170))

        This:egpBox(4, vec2(256,356),vec2(512,812))
        This:egpMaterial(4, "vgui/gradient_up")
        This:egpColor(4, vec4(10,140,255,80))

        This:egpBox(5, vec2(256,512-7), vec2(425,30))
        This:egpColor(5, vec4(35, 35, 35, 175))

        This:egpText(6, "INTET VALGT", vec2(256,512-11))
        This:egpAlign(6, 1, 1)
        This:egpSize(6, 20)
        This:egpFont(6, "Courier New")
        This:egpColor(6, vec4(225, 225, 225, 255))

        This:egpBox(19, vec2(454,512-7), vec2(30,30))
        This:egpColor(19, vec4(35, 35, 35, 255))

        This:egpText(20, "KR", vec2(454,512-11))
        This:egpAlign(20, 1, 1)
        This:egpSize(20, 20)
        This:egpFont(20, "Courier New")
        This:egpColor(20, vec4(225, 225, 225, 255))

        This:egpText(7, "VI TILBYDER ALT FRA H"+aaL()+"ND PISTOLER TIL SNIPER RIFLER", vec2(256,46))
        This:egpAlign(7, 1, 1)
        This:egpSize(7, 15)
        This:egpFont(7, "Courier New")
        This:egpColor(7, vec4(225, 225, 225, 255))

        This:egpText(8, "VI HAR "+aaL()+"BEN D"+oeL()+"GNET RUNDT", vec2(256,66))
        This:egpAlign(8, 1, 1)
        This:egpSize(8, 15)
        This:egpFont(8, "Courier New")
        This:egpColor(8, vec4(225, 225, 225, 255))

        This:egpText(9, "VI KAN IKKE BLIVE STILLET TIL ANSVAR", vec2(256,86))
        This:egpAlign(9, 1, 1)
        This:egpSize(9, 15)
        This:egpFont(9, "Courier New")
        This:egpColor(9, vec4(225, 225, 225, 255))

        This:egpText(10, "HVIS DIT V"+aaL()+"BEN BLIVER TAGET", vec2(256,106))
        This:egpAlign(10, 1, 1)
        This:egpSize(10, 15)
        This:egpFont(10, "Courier New")
        This:egpColor(10, vec4(225, 225, 225, 255))

        This:egpText(11, "G U N W A R E", vec2(256,156))
        This:egpAlign(11, 1, 1)
        This:egpSize(11, 40)
        This:egpFont(11, "Courier New")
        This:egpColor(11, vec4(225, 225, 225, 255))

        This:egpBox(12, vec2(256,206), vec2(325,28))
        This:egpColor(12, vec4(35, 35, 35, 175))

        This:egpBox(13, vec2(256,246), vec2(325,28))
        This:egpColor(13, vec4(35, 35, 35, 175))

        This:egpBox(14, vec2(256,286), vec2(325,28))
        This:egpColor(14, vec4(35, 35, 35, 175))

        This:egpBox(15, vec2(256,326), vec2(325,28))
        This:egpColor(15, vec4(35, 35, 35, 175))

        This:egpBox(16, vec2(256,366), vec2(325,28))
        This:egpColor(16, vec4(35, 35, 35, 175))

        This:egpBox(17, vec2(256,406), vec2(325,28))
        This:egpColor(17, vec4(35, 35, 35, 175))

        This:egpBox(18, vec2(256,446), vec2(325,28))
        This:egpColor(18, vec4(35, 35, 35, 175))
    }
    function void wirelink:drawWepStep1(){

        This:egpBox(1, vec2(256,256),vec2(512,512))
        This:egpMaterial(1, "skybox/militia_hdrup")

        This:egpBox(2, vec2(256,256),vec2(512,512))
        This:egpColor(2, vec4(40,40,40,225))

        This:egpBox(3, vec2(256,406),vec2(512,812))
        This:egpMaterial(3, "vgui/gradient_down")
        This:egpColor(3, vec4(256,140,10,170))

        This:egpBox(4, vec2(256,356),vec2(512,812))
        This:egpMaterial(4, "vgui/gradient_up")
        This:egpColor(4, vec4(10,140,255,80))

        This:egpText(21, R1:navn()+" - "+R1:pris()+" ,-", vec2(256,206))
        This:egpAlign(21, 1, 1)
        This:egpSize(21, 20)
        This:egpFont(21, "Courier New")
        This:egpColor(21, vec4(225, 225, 225, 255))

        This:egpText(22, R2:navn()+" - "+R2:pris()+" ,-", vec2(256,246))
        This:egpAlign(22, 1, 1)
        This:egpSize(22, 20)
        This:egpFont(22, "Courier New")
        This:egpColor(22, vec4(225, 225, 225, 255))

        This:egpText(23, R3:navn()+" - "+R3:pris()+" ,-", vec2(256,286))
        This:egpAlign(23, 1, 1)
        This:egpSize(23, 20)
        This:egpFont(23, "Courier New")
        This:egpColor(23, vec4(225, 225, 225, 255))

        This:egpText(24, R4:navn()+" - "+R4:pris()+" ,-", vec2(256,326))
        This:egpAlign(24, 1, 1)
        This:egpSize(24, 20)
        This:egpFont(24, "Courier New")
        This:egpColor(24, vec4(225, 225, 225, 255))

        This:egpText(25, R5:navn()+" - "+R5:pris()+" ,-", vec2(256,366))
        This:egpAlign(25, 1, 1)
        This:egpSize(25, 20)
        This:egpFont(25, "Courier New")
        This:egpColor(25, vec4(225, 225, 225, 255))

        This:egpText(26, R6:navn()+" - "+R6:pris()+" ,-", vec2(256,406))
        This:egpAlign(26, 1, 1)
        This:egpSize(26, 20)
        This:egpFont(26, "Courier New")
        This:egpColor(26, vec4(225, 225, 225, 255))

        This:egpText(27, R7:navn()+" - "+R7:pris()+" ,-", vec2(256,446))
        This:egpAlign(27, 1, 1)
        This:egpSize(27, 20)
        This:egpFont(27, "Courier New")
        This:egpColor(27, vec4(225, 225, 225, 255))

        This:egpBoxOutline(28, vec2(396,206), vec2(20,20))
        This:egpColor(28, vec4(225, 225, 225, 255))

        This:egpBoxOutline(29, vec2(396,246), vec2(20,20))
        This:egpColor(29, vec4(225, 225, 225, 255))

        This:egpBoxOutline(30, vec2(396,286), vec2(20,20))
        This:egpColor(30, vec4(225, 225, 225, 255))

        This:egpBoxOutline(31, vec2(396,326), vec2(20,20))
        This:egpColor(31, vec4(225, 225, 225, 255))

        This:egpBoxOutline(32, vec2(396,366), vec2(20,20))
        This:egpColor(32, vec4(225, 225, 225, 255))

        This:egpBoxOutline(33, vec2(396,406), vec2(20,20))
        This:egpColor(33, vec4(225, 225, 225, 255))

        This:egpBoxOutline(34, vec2(396,446), vec2(20,20))
        This:egpColor(34, vec4(225, 225, 225, 255))
  }

    EGP:drawStart()
    S=1

    Emitter:drawEmitter()
}

if(S==1){
    if(ops()<100){
        if(~User & User){
            if(EGP:egpButton(2, User)){ timer("t",50) CurUser=User}
        }
    }
}

if(clk("t"))
{
    EGP:drawWepStep()
    S=2
    timer("s",650)
}
if(clk("s")){

    EGP:drawWepStep1()
}
if(S>1){
    if(clk("Afstand")){
        Dist=CurUser:pos():distance(EGP:entity():pos())
        if(Dist>115){reset()}
        timer("Afstand",2000)
    }
}