1 files changed, 24 insertions, 0 deletions
diff --git a/npc/magic/level1-sense-spouse.txt b/npc/magic/level1-sense-spouse.txt
new file mode 100755
index 00000000..0ef1848d
--- /dev/null
+++ b/npc/magic/level1-sense-spouse.txt
@@ -0,0 +1,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;
+}