path: root/npc/magic/level1-sense-spouse.txt

-	script	sense-spouse	NPC32767,{
    .@m = getpartnerid();
    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;
}