-|script|sense-spouse|32767
{
    set .@m, getpartnerid2();
    if (.@m < 1)
        goto L_NotMarried;
    if (isloggedin(.@m) < 1)
        goto L_NotOnline;
    if (sc_check(SC_HIDE, .@m) || getpvpflag(1, .@m) || get(INVISIBLE, .@m))
        goto L_NotOnline;
    message strcharinfo(0), "Spouse : Your spouse is... somewhere.";
    end;

L_NotOnline:
    message strcharinfo(0), "Spouse : Your spouse is not online, or maybe just hiding from you.";
    end;

L_NotMarried:
    message strcharinfo(0), "Spouse : You are not married, or no longer married (sorry for being the one telling you the bad news).";
    end;

OnInit:
    set .invocation$, chr(MAGIC_SYMBOL) + "inzuwilt"; // used in npcs that refer to this spell
    registercmd .invocation$, strnpcinfo(0);
    end;
}