Shoutbox

I have an idea but your contact needs to install it for it to work..

I did not write any of this ...... and it's for a psm but change the pm tag to the name tag

code:

---

var xmlFile;
var szoveg; //az eredeti szoveg
var szoveg_feltoltott; //a feltoltott kiirando szoveg
var ido; //gyorsaság
var kitolto; // a kitolto karakterek, ha nem kell, akkor szokoz
var mehet; //engedelyezett-e?
var minkitolto = 3; //minimum kitolto karakter(ha hosszu a text)
var jobbra; //jobbra megy e?

function saveSettings(){
    var xmlWndSettings = new ActiveXObject("Microsoft.XMLDOM");
    xmlWndSettings.async = "false";
    xmlWndSettings.load(xmlFile);
    var nodeNewAlarm;
   
    if(xmlWndSettings.documentElement){
        var nodeNewAlarm = xmlWndSettings.documentElement.selectSingleNode("PrivateMessage");
        if(nodeNewAlarm) xmlWndSettings.documentElement.removeChild(nodeNewAlarm);
    }
    nodeNewAlarm = xmlWndSettings.createNode("Element", "PM", "");
    nodeNewAlarm.appendChild(xmlWndSettings.createElement("Active"));
    nodeNewAlarm.lastChild.text = mehet ? "true" : "false";
    nodeNewAlarm.appendChild(xmlWndSettings.createElement("RightDirection"));
    nodeNewAlarm.lastChild.text = jobbra ? "true" : "false";   
    nodeNewAlarm.appendChild(xmlWndSettings.createElement("Seperator"));
    nodeNewAlarm.lastChild.text = kitolto;
    nodeNewAlarm.appendChild(xmlWndSettings.createElement("Intervall"));
    nodeNewAlarm.lastChild.text = ido;
    nodeNewAlarm.appendChild(xmlWndSettings.createElement("Message"));
    nodeNewAlarm.lastChild.text = szoveg;
   
    xmlWndSettings.documentElement = nodeNewAlarm;
    xmlWndSettings.save(xmlFile);
}

function loadSettings(){
    var xmlWndSettings = new ActiveXObject("Microsoft.XMLDOM");
    xmlWndSettings.async = "false";
    xmlWndSettings.load(xmlFile);
    if(xmlWndSettings.documentElement){
        var nodeNewAlarm = xmlWndSettings.documentElement;

        mehet = (nodeNewAlarm.selectSingleNode("Active").text == "true") ? true : false;
        jobbra = (nodeNewAlarm.selectSingleNode("RightDirection").text == "true") ? true : false;       
        kitolto = nodeNewAlarm.selectSingleNode("Seperator").text.slice(0,1);
        szoveg = nodeNewAlarm.selectSingleNode("Message").text;
        ido = Number(nodeNewAlarm.selectSingleNode("Intervall").text);         
    }
}


function OnEvent_Uninitialize(MessengerExit)
{
    saveSettings();
}

function OnEvent_Initialize(MessengerStart)
{
    xmlFile = MsgPlus.ScriptFilesPath + "\\" + "settings.xml";
    szoveg = "Swimming Personal Message";
    kitolto = ":";   
    ido = 2000;
    mehet = true;
    jobbra = true;
    loadSettings();
    if(mehet == true) SetPM();
}

function OnEvent_Signin(Email) {
    if(mehet == true) SetPM();
}

function OnEvent_Timer(TimerId){
    if (jobbra)
        szoveg_feltoltott = szoveg_feltoltott.substring(szoveg_feltoltott.length-1) + szoveg_feltoltott.substring(0,szoveg_feltoltott.length-1);
    else
        szoveg_feltoltott = szoveg_feltoltott.substring(1) + szoveg_feltoltott.substring(0,1);       
    Messenger.MyPersonalMessage = szoveg_feltoltott;
    MsgPlus.AddTimer(TimerId, ido);
}

function SetPM(){
    szoveg_feltoltott = " " + szoveg + " ";
   
    if (szoveg_feltoltott.length > 129-minkitolto) //minimum "minkitolto" szamu kitolto karakter lesz benne
        for (i = 0; i < minkitolto; i++)
            szoveg_feltoltott += kitolto;

    for (; szoveg_feltoltott.length < 129 //ha rovid a text akkor kitolto karakterekkel bovit
        szoveg_feltoltott += kitolto;
       
    MsgPlus.AddTimer("timerem", ido);
}

function OnGetScriptMenu(nLocation){
    var showbit = '';
    showbit = '<MenuEntry Id=\"MnuOptions\">Options</MenuEntry><Separator/>';
    return "<ScriptMenu>"+showbit+"<MenuEntry Id=\"MnuAbout\">About</MenuEntry></ScriptMenu>";
}

function OnEvent_MenuClicked(sMenuId,nLocation,iOriginWnd){
    if(sMenuId == "MnuAbout"){
        MsgPlus.CreateWnd("about.xml", "WndAbout");
    }
    if(sMenuId == "MnuOptions"){
        var Wnd = MsgPlus.CreateWnd("options.xml", "WndOptions");
        Wnd.Button_SetCheckState("ChkEnable",mehet);
        Wnd.Button_SetCheckState("RadRight",jobbra);
        Wnd.Button_SetCheckState("RadLeft",!jobbra);
        Wnd.SetControlText("EdtIntervallum", ido);
        Wnd.SetControlText("EdtElvalaszto", kitolto);
        Wnd.SetControlText("EdtSzoveg", szoveg);
    }   
}

function OnWndOptionsEvent_CtrlClicked(Wnd, ControlId){
    if (ControlId == "BtnElfogad")
    if (Number(Wnd.GetControlText("EdtIntervallum")) >= 100 && Number(Wnd.GetControlText("EdtIntervallum")) <= 86400000){
        mehet = Wnd.Button_IsChecked("ChkEnable") ? true : false;
        jobbra = Wnd.Button_IsChecked("RadRight") ? true : false;       
        ido  = Number(Wnd.GetControlText("EdtIntervallum"));
        kitolto = Wnd.GetControlText("EdtElvalaszto").slice(0,1);
        szoveg = Wnd.GetControlText("EdtSzoveg");
       
        if(mehet == true){
            ToastMessage("Swimming PSM settings has changed.\nSwimming PSM is now enabled!");       
            SetPM();
        }else{
            MsgPlus.CancelTimer("timerem");
            Messenger.MyPersonalMessage = szoveg;
            ToastMessage("Swimming PSM settings has changed.\nSwimming PSM is now disabled!");
        }
        Wnd.Close(1);   
    } else {
        ToastMessage("Wrong setting:\nIntervall needs to be in the range of 100 to 86 400 000 (one day).")
    }
}

function ToastMessage(Message){
    MsgPlus.DisplayToast("Swimming PSM", Message, "", "OnToastClick");
}

---

credit goes to GyCSabesz co.