Stavox - Smart Guard [MASTER]

@name Guard_Data
@inputs EGP:wirelink [User]:entity
@outputs
@persist Weapons:table [Gname,MSGTag]:string [MSGTagColor]:vector [Alarms,Stations,Index,Pos,Gscope]:number
@trigger

runOnChat(1)
if(first() | dupefinished()) {

    Gname = "msg"
    Gscope = 2
    MSGTag = "[SG] "
    MSGTagColor = vec(0,220,220)
    Alarms = 0
    Stations = 0
    Index = 30
    Pos = 85

    dsJoinGroup(Gname)
    dsSetScope(Gscope)

    function void oMSG(Text:string, Color:vector) {
        printColor(MSGTagColor,MSGTag,Color,Text)
    }

    function number getActive(){
        return dsProbe(Gname):count()
    }

    function string returnTime(){
        MMin=time("min")
        HHour=time("hour")+2
        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 void wirelink:drawScreen1() {
        This:egpClear()
        This:egpBox( 1,vec2(0,0),vec2(1024,1024) )
        This:egpMaterial(1,"console/background06")

        This:egpBox( 2,vec2(255,27.5),vec2(512,55) ) This:egpColor(2,vec4(0,0,0,150))
        This:egpText(3,"SMART GUARD CENTRAL",vec2(256,9)) This:egpAlign(3,1) This:egpSize(3,35)

        This:egpBox( 4,vec2(255,245),vec2(500,370) ) This:egpColor(4,vec4(0,0,0,220))
        This:egpBox( 5,vec2(255,70),vec2(500,20) ) This:egpColor(6,vec4(255,255,255,150))

        This:egpBox( 6,vec2(123,481),vec2(233.5,50) ) This:egpColor(6,vec4(0,0,0,220))
        This:egpBox( 7,vec2(123,446),vec2(233.5,20) ) This:egpColor(7,vec4(255,255,255,200))

        This:egpBox( 8,vec2(312,481),vec2(120,50) ) This:egpColor(8,vec4(0,0,0,220))
        This:egpBox( 9,vec2(312,446),vec2(120,20) ) This:egpColor(9,vec4(255,255,255,200))

        This:egpBox( 10,vec2(444,481),vec2(120,50) ) This:egpColor(10,vec4(0,0,0,220))
        This:egpBox( 11,vec2(444,446),vec2(120,20) ) This:egpColor(11,vec4(255,255,255,200))

        timer("drawScreen2",1000)
    }

    function void wirelink:drawScreen2() {
        This:egpText(12,"Logs", vec2(256,60)) This:egpColor(12,vec4(0,0,0,250)) This:egpSize(12,18)  This:egpAlign(12,1)
        This:egpText(13,"Seneste n"+oe()+"dkald", vec2(124,436)) This:egpColor(13,vec4(0,0,0,250)) This:egpSize(13,18)  This:egpAlign(13,1)
        This:egpText(14,"Aktive poster", vec2(313,436)) This:egpColor(14,vec4(0,0,0,250)) This:egpSize(14,18)  This:egpAlign(14,1)
        This:egpText(15,"Antal n"+oe()+"dkald", vec2(444,436)) This:egpColor(15,vec4(0,0,0,250)) This:egpSize(15,18)  This:egpAlign(15,1)

        This:egpText(16,"-||-", vec2(124,472)) This:egpColor(16,vec4(255,255,255,250)) This:egpSize(16,16)  This:egpAlign(16,1)
        This:egpText(17,Stations+"", vec2(313,465)) This:egpColor(17,vec4(255,255,255,250)) This:egpSize(17,30)  This:egpAlign(17,1)
        This:egpText(18,Alarms+"", vec2(444,465)) This:egpColor(18,vec4(255,255,255,250)) This:egpSize(18,30)  This:egpAlign(18,1)
    }

    function void updateStations() {
        Stations = dsProbe(Gname,Gscope):count()
        EGP:egpSetText(17,Stations:toString())
        timer("updateStations",10000)
    }

    function void addLog(Text:string, Type:string) {
        if(Pos>420) {
            EGP:egpClear()
            EGP:drawScreen1()
            timer("drawScreen2",1000)
            Pos = 85
        }

        if(Type=="add") {
            EGP:egpText(Index,returnTime() + "| "+ Text,vec2(10,Pos)) EGP:egpSize(Index,15)
            EGP:egpColor(Index,vec(0,200,0))
            oMSG(Text,vec(255,0,0))
        }elseif(Type=="emergency") {
            EGP:egpText(Index,returnTime() + "| "+ Text,vec2(10,Pos)) EGP:egpSize(Index,15)
            EGP:egpColor(Index,vec(255,0,0))
        }elseif(Type=="ranger") {
            EGP:egpText(Index,returnTime() + "| "+ Text,vec2(10,Pos)) EGP:egpSize(Index,15)
            EGP:egpColor(Index,vec(0,220,220))
        }
        Pos+=20
        Index++
    }

    EGP:drawScreen1()
    updateStations()
}

if(dsClk("emergency")){
    addLog("Der er registreret et n"+oe()+"dopkald. ["+dsGetString()+"]","emergency")
    EGP:egpSetText(16,dsGetString())
    Alarms++
    EGP:egpSetText(18,Alarms:toString())
}
if(dsClk("ranger")){
    addLog(dsGetString(),"ranger")
}
if(dsClk("add")){
    addLog(dsGetString(),"add")
}

if(clk("drawScreen2")) {
    EGP:drawScreen2()
}elseif(clk("updateStations")) {
    updateStations()
}