Sub_Monitor.lsl

integer cur_state;
integer last_state;

integer max;
integer prims;
integer percent;
default{
    state_entry(){
        llSetTimerEvent(1.0);
    }
    timer(){
        cur_state=llGetScriptState("0.)Sub_Server.lsl");
        if(cur_state!=last_state){
            llSetLinkColor(8,<1*!llAbs(cur_state),1*llAbs(cur_state),0>,-1);
            last_state=cur_state;
        }
        percent=(prims=llGetParcelPrimCount(llGetPos(), 0, 1))*100/(max=llGetParcelMaxPrims(llGetPos(),1));
        if(cur_state)llSetText("Land Control Online \n Prim Percent Used: "+(string)percent+"%\nPrims Used: "+(string)prims+"/"+(string)max,<1,1,1>,1);
        if(!cur_state)llSetText("Land Control Offline \n Prim Percent Used: "+(string)percent+"%\nPrims Used: "+(string)prims+"/"+(string)max,<1,1,1>,1);
    }
}