Smart Weapon - V1.0 - By Misser

@name Smart Weapon - V1.0 - By Misser
@inputs EGP:wirelink User:entity [R1,R2,R3,R4,R5,R6]:entity
@outputs Door
@persist S Profit Tjent Solgt Omsat
@trigger

runOnChat(1)


if(first()){

printColor(vec(125,250,250),"Velkommen")
printColor(vec(250,250,250),"- Du har valgt at g"+oe()+"re brug af en E2 fremstillet af Misser -")
printColor(vec(250,250,250),"Der er derfor nogen ting som du hermed skal have at vide!")
printColor(vec(250,250,250),"Denne E2 er 100% open source hvilket betyder du m"+aa()+" g"+oe()+"re
hvad du vil med den")
printColor(vec(250,250,250),"Du kan udvikle videre p"+aa()+" den eller bare bruge den som den er")
printColor(vec(250,250,250),"Mit eneste krav er bare at du som bruger af den originale
version ikke:
s"+ae()+"lger eller tager credits :)")
printColor(vec(250,250,250),"Denne E2 er fremstillet for at hj"+ae()+"lpe spillere med basale ting
indenfor basale jobs")
printColor(vec(250,250,250),"E2en kan bruges til at g"+oe()+"re jobbet simpelt eller selvstudie i
forhold til E2")
printColor(vec(125,250,250),"Nyd E2en!")

timer("tid",5000)

Profit = 0
Tjent = 0
Solgt = 0
Omsat = 0

    function string returnTime(){
            SSec=time("sec")
            MMin=time("min")
            HHour=time("hour")+1
            if(SSec<10){Sec="0"+SSec}
            else{Sec=""+SSec}
            if(MMin<10){Min="0"+MMin}
            else{Min=""+MMin}
            if(HHour<10){Hour="0"+HHour} elseif(HHour==24){Hour="00"}
            elseif(HHour==25){Hour="01"} elseif(HHour==26){Hour="02"}
            elseif(HHour==27){Hour="03"} elseif(HHour==28){Hour="04"}
            elseif(HHour==29){Hour="05"} elseif(HHour==30){Hour="06"}
            else{Hour=""+HHour}
            Tid=Hour+":"+Min
        return Tid
    }

    function number entity:wepPrice()
    {
        if(This:isShipment()){
        return (This:shipmentPrice()+Profit)
        }else{return 0}
    }

    function string entity:wepName()
    {
        if(This:isShipment()){
        return This:shipmentName()
        }else{return "No"}
    }

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

       function void cursor()
    {
        EGP:egpCircle(999,vec2(256,256),vec2(5,5))
        EGP:egpParentToCursor(999)
    }


     function s1(){
      EGP:egpClear()
      EGP:egpBox(1,vec2(256,256),vec2(512,512)) EGP:egpMaterial(1,"console/background02") EGP:egpColor(1,vec(35))
      EGP:egpText(2,"~ Smart Weapon ~",vec2(256,256)) EGP:egpAlign(2,1,1) EGP:egpSize(2,35)
      EGP:egpBoxOutline(3,vec2(256,256),vec2(512,512))
      EGP:egpText(4,""+returnTime()+"",vec2(256,306)) EGP:egpAlign(4,1,1) EGP:egpSize(4,50) EGP:egpColor(4,vec4(155,155,155,155))

    cursor()
    S = 1
    }

      function s2(){
      EGP:egpBox(1,vec2(256,256),vec2(512,512)) EGP:egpMaterial(1,"console/background02") EGP:egpColor(1,vec(35))
      EGP:egpBoxOutline(2,vec2(256,256),vec2(512,512))
      EGP:egpText(3,"~ Tryk her for at komme tilbage ~",vec2(256,486)) EGP:egpAlign(3,1,1) EGP:egpSize(3,15)
      EGP:egpText(4,""+returnTime()+"",vec2(256,256)) EGP:egpAlign(4,1,1) EGP:egpSize(4,50) EGP:egpColor(4,vec4(155,155,155,155))
      EGP:egpBox(5,vec2(256,486),vec2(256,56)) EGP:egpColor(5,vec4(35,35,35,25))

    cursor()
    S = 2
    }
s1()
}

if(~User & User:keyUse() & ops()<150){
    if(EGP:egpButton(1,User)&S==1){
    timer("s2",1000)
    }
}

    if(S==2&ops()<150){
        if(EGP:egpButton(5,User)){
            timer("s1",1000)
       }elseif(EGP:egpButton(7, User)){moneyRequest(User, R1:wepPrice(), "K1")}
        elseif(EGP:egpButton(9, User)){moneyRequest(User, R2:wepPrice(), "K2")}
        elseif(EGP:egpButton(11,User)){moneyRequest(User, R3:wepPrice(), "K3")}
        elseif(EGP:egpButton(13,User)){moneyRequest(User, R4:wepPrice(), "K4")}
        elseif(EGP:egpButton(15,User)){moneyRequest(User, R5:wepPrice(), "K5")}
        elseif(EGP:egpButton(17,User)){moneyRequest(User, R6:wepPrice(), "K6")}
    }

if(S==2&R1:isValid()){
      EGP:egpBox(7,vec2(256,156),vec2(306,36)) EGP:egpColor(7,vec4(56,56,56,50))
      EGP:egpText(8,R1:wepName()+" - "+R1:wepPrice()+" KR",vec2(256,156))      EGP:egpAlign(8,1,1) EGP:egpFont(8,"Courier New")
}

if(S==2&R2:isValid()){
      EGP:egpBox(9,vec2(256,196),vec2(306,36)) EGP:egpColor(9,vec4(56,56,56,50))
      EGP:egpText(10,R2:wepName()+" - "+R2:wepPrice()+" KR",vec2(256,196))      EGP:egpAlign(10,1,1) EGP:egpFont(10,"Courier New")
}

if(S==2&R3:isValid()){
      EGP:egpBox(11,vec2(256,236),vec2(306,36)) EGP:egpColor(11,vec4(56,56,56,50))
      EGP:egpText(12,R3:wepName()+" - "+R3:wepPrice()+" KR",vec2(256,236))      EGP:egpAlign(12,1,1) EGP:egpFont(12,"Courier New")
}

if(S==2&R4:isValid()){
      EGP:egpBox(13,vec2(256,276),vec2(306,36)) EGP:egpColor(13,vec4(56,56,56,50))
      EGP:egpText(14,R4:wepName()+" - "+R4:wepPrice()+" KR",vec2(256,276))      EGP:egpAlign(14,1,1) EGP:egpFont(14,"Courier New")
}

if(S==2&R5:isValid()){
      EGP:egpBox(15,vec2(256,316),vec2(306,36)) EGP:egpColor(15,vec4(56,56,56,50))
      EGP:egpText(16,R5:wepName()+" - "+R5:wepPrice()+" KR",vec2(256,316))      EGP:egpAlign(16,1,1) EGP:egpFont(16,"Courier New")

}

if(S==2&R6:isValid()){
      EGP:egpBox(17,vec2(256,356),vec2(306,36)) EGP:egpColor(17,vec4(56,56,56,50))
      EGP:egpText(18,R6:wepName()+" - "+R6:wepPrice()+" KR",vec2(256,356))      EGP:egpAlign(18,1,1) EGP:egpFont(18,"Courier New")
}

if(moneyClk("K1")){
Omsat+=R1:wepPrice()
R1:ejectWeapon()
concmd("say /pm "+moneyClkPlayer():steamID()+" Du k"+oe()+"bte en "+R1:shipmentName()+" til Prisen "+R1:wepPrice()+"")
Tjent+=Profit
Solgt+=1
timer("s1",1000)
} elseif(moneyClk("K2")){
Omsat+=R2:wepPrice()
R2:ejectWeapon()
concmd("say /pm "+moneyClkPlayer():steamID()+" Du k"+oe()+"bte en "+R2:shipmentName()+" til Prisen "+R2:wepPrice()+"")
Tjent+=Profit
Solgt+=1
timer("s1",1000)
} elseif(moneyClk("K3")){
Omsat+=R3:wepPrice()
R3:ejectWeapon()
concmd("say /pm "+moneyClkPlayer():steamID()+" Du k"+oe()+"bte en "+R3:shipmentName()+" til Prisen "+R3:wepPrice()+"")
Tjent+=Profit
Solgt+=1
timer("s1",1000)
} elseif(moneyClk("K4")){
Omsat+=R4:wepPrice()
R4:ejectWeapon()
concmd("say /pm "+moneyClkPlayer():steamID()+" Du k"+oe()+"bte en "+R4:shipmentName()+" til Prisen "+R4:wepPrice()+"")
Tjent+=Profit
Solgt+=1
timer("s1",1000)
} elseif(moneyClk("K5")){
Omsat+=R5:wepPrice()
R5:ejectWeapon()
concmd("say /pm "+moneyClkPlayer():steamID()+" Du k"+oe()+"bte en "+R5:shipmentName()+" til Prisen "+R5:wepPrice()+"")
Tjent+=Profit
Solgt+=1
timer("s1",1000)
} elseif(moneyClk("K6")){
Omsat+=R6:wepPrice()
R6:ejectWeapon()
concmd("say /pm "+moneyClkPlayer():steamID()+" Du k"+oe()+"bte en "+R6:shipmentName()+" til Prisen "+R6:wepPrice()+"")
Tjent+=Profit
Solgt+=1
timer("s1",1000)
}

if(clk("s1")){
s1()
Door = 1
}

if(clk("s2")){
s2()
Door = 0
}

if(chatClk(owner()))
            {
                Said = owner():lastSaid():lower():explode(" ")
                Cmd = lastSaid():explode(" "):string(1)
                switch(Cmd)
                {
                    case"!profit",
                    if(lastSpoke() == owner()){
                        Profit = Said[2, string]:toNumber()
                                                printColor(vec(255,255,255),"Du satte profit til: ",vec(0,255,0),""+Profit+" DKK")
                       hideChat(1)

                    }
                }
            }
if(chatClk(owner()))
            {
                Said = owner():lastSaid():lower():explode(" ")
                Cmd = lastSaid():explode(" "):string(1)
                switch(Cmd)
                {
                    case"!stats",
                    if(lastSpoke() == owner()){
                        printColor(vec(255,255,255),"Profit er sat til:",vec(0,255,0)," "+Profit+" DKK")
                        printColor(vec(255,255,255),"Du har tjent:",vec(0,255,0)," "+Tjent+" DKK")
                        printColor(vec(255,255,255),"Du har omsat for:",vec(0,255,0)," "+Omsat+" DKK")
                        printColor(vec(255,255,255),"Du har solgt ",vec(0,255,0),""+Solgt+" V"+aa()+"ben")
                       hideChat(1)

                    }
                }
            }

if(clk("tid")){
      EGP:egpSetText(4,""+returnTime()+"")
timer("tid",3000)
}

if(chatClk(owner()))
            {
                Said = owner():lastSaid():lower():explode(" ")
                Cmd = lastSaid():explode(" "):string(1)
                switch(Cmd)
                {
                    case"!help",
                    if(lastSpoke() == owner()){
                        printColor(vec(255,55,55),"Denne E2 har F"+oe()+"lgende Commands:")
                        printColor(vec(255,255,255),"- !profit - som kan bruges til justering af hvad du tjener")
                        printColor(vec(255,255,255),"- !stats - som giver dig et overblik over diverse informationer du kunne f"+aa()+" brug for")
                       hideChat(1)

                    }
                }
            }