npc/magic/level1-sense-spouse.txt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

-	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;
}