1 files changed, 232 insertions, 0 deletions
diff --git a/npc/functions/marriage.txt b/npc/functions/marriage.txt
new file mode 100644
index 00000000..d6d76aaf
--- /dev/null
+++ b/npc/functions/marriage.txt
@@ -0,0 +1,232 @@
+// marriage npc
+// allows to marry other players
+// * must be duplicated
+
+-	script	marriage	NPC_NO_SPRITE,{
+    end;
+
+    function toPlayer {
+        // send a message to the player
+        .previous = playerattached();
+        // attachrid is required because we want to use l() on another player
+        attachrid(getarg(1, getcharid(CHAR_ID_ACCOUNT)));
+        dispbottom(b(l(getarg(0))));
+        attachrid(.previous);
+        return;
+    }
+
+    function _officiator {
+        // make the wedding officiator say a message
+        if (getarg(1, 0)) {
+            // only send to the target player
+            unittalk(.officiator, l(getarg(0)), true, SELF, getarg(1, getcharid(CHAR_ID_ACCOUNT)));
+        } else {
+            // regular npctalk
+            unittalk(.officiator, getarg(0), true);
+        }
+        return;
+    }
+
+    function officiator {
+        if (.officiator) {
+            return _officiator(getarg(0));
+        } else {
+            toPlayer(getarg(0));
+
+            if (getarg(1, 0)) {
+                toPlayer(getarg(0), getarg(1));
+            }
+            return;
+        }
+    }
+
+    function explain {
+        // send an explanation message
+        if (.officiator) {
+            return _officiator(getarg(0), playerattached());
+        } else {
+            return toPlayer(getarg(0));
+        }
+    }
+
+    function do_marriage {
+        if (.officiator) {
+            // let the officiator handle it
+            @marriage$ = getarg(0);
+            doevent(.officiator$ + "::OnDoMarriage");
+        } else {
+            // no officiator
+            marriage(getarg(0));
+            announce(sprintf("%s and %s are now married!", strcharinfo(PC_NAME), getarg(0)), bc_all);
+        }
+        return;
+    }
+
+OnCheckWord:
+    .@verb$ = strtolower($@p1$);
+    if (.@verb$ != "marry" && .@verb$ != l("marry")) {
+        end; // ignore
+    }
+
+    // get the location of the invoking character
+    getmapxy(.@map$, .@x, .@y, UNITTYPE_PC);
+
+
+    if (.@map$ != .map$ || .@x < .x1 || .@x > .x2 || .@y < .y1 || .@y > .y2) {
+        explain("You must stand in the designated area");
+        end;
+    }
+
+    // check if the target character exists and is online
+    .@target$ = $@p2$;
+    .@target = getcharid(CHAR_ID_ACCOUNT, .@target$);
+
+    if (.@target == 0) {
+        explain(sprintf("Player %s doesn't exist or is offline", .@target$));
+        end;
+    }
+
+    if (.@target == playerattached()) {
+        explain("You cannot marry yourself");
+        end;
+    }
+
+    // get the location of the target character
+    getmapxy(.@map$, .@x, .@y, UNITTYPE_PC, .@target);
+
+    if (.@map$ != .map$ || .@x < .x1 || .@x > .x2 || .@y < .y1 || .@y > .y2) {
+        explain("Your partner must stand in the designated area");
+        end;
+    }
+
+    if (BaseLevel < WEDDING_MIN_LEVEL || readparam(BaseLevel, .@target) < WEDDING_MIN_LEVEL) {
+        explain(sprintf("You and your partner must be at least level %i to marry", WEDDING_MIN_LEVEL));
+        end;
+    }
+
+    // XXX: do we want to check for wedding rings?
+    if (!isequipped(WeddingRing)) {
+        explain("You must be wearing a %s to marry.", getitemname(WeddingRing));
+        end;
+    }
+
+    if (getpartnerid()) {
+        if (getpartnerid() == getcharid(CHAR_ID_CHAR, .@target$)) {
+            explain("You are already married to this person.");
+        } else {
+            explain("You are already married to someone else.");
+        }
+        end;
+    }
+
+    if (getvariableofpc(@marriage, .@target, 0) == getcharid(CHAR_ID_CHAR)) {
+        // the target already requested to marry us
+
+        if (getvariableofpc(@marriage[1], .@target, 0) > now()) {
+            // You must be wearing a wedding ring at all times
+            if (!isequipped(WeddingRing)) {
+                explain("You must be wearing a %s to marry.", getitemname(WeddingRing));
+                end;
+            }
+            // marriage request has not expired: procceed to marry
+            do_marriage(.@target$);
+            end;
+        } else {
+            // marriage request expired
+            explain("This marriage proposal has expired. Please try again");
+
+            // refresh our own expiration
+            @marriage = getcharid(CHAR_ID_CHAR, .@target$);
+            @marriage[1] = time_from_minutes(+15); // expiration
+        }
+    } else if (@marriage && @marriage[1] > now()) {
+        // we already initiated a marriage request
+
+        if (@marriage == getcharid(CHAR_ID_CHAR, .@target$)) {
+            explain("You are already marrying this person.");
+            @marriage[1] = time_from_minutes(+15); // refresh expiration
+        } else {
+            // already marrying someone else?
+            explain("You are already in the process of marrying someone else.");
+            explain(sprintf("Are you sure you wish to marry %s?", .@target$));
+            explain(sprintf("To confirm, type the same message again: %s %s", $@p1$, $@p2$));
+            @marriage = 0; // clear the current target
+        }
+    } else {
+        // initiate a new marriage request
+        @marriage = getcharid(CHAR_ID_CHAR, .@target$);
+        @marriage[1] = time_from_minutes(+15); // expiration
+
+        announce(sprintf("%s is asking %s for marriage!", strcharinfo(PC_NAME), .@target$), bc_all);
+        officiator(sprintf("%s, to accept this marriage proposal, say: marry %s", .@target$, strcharinfo(PC_NAME)), .@target);
+    }
+    end;
+
+OnInit:
+    if (strnpcinfo(NPC_MAP) == "") {
+        // this is not a duplicate
+        end;
+    }
+
+    explode(.@hidden$, strnpcinfo(NPC_NAME_HIDDEN), "#");
+    explode(.@area$, .@hidden$[getarraysize(.@hidden$) - 1], ",");
+
+    switch (getarraysize(.@area$)) {
+    case 1:
+        if (.@area$[0] == "") {
+            .@d = 3;
+        } else {
+            .@d = atoi(.@area$[0]);
+        }
+        .x1 = .x - .@d; .x2 = .x + .@d;
+        .y1 = .y - .@d; .y2 = .y + .@d;
+        break;
+    case 2:
+        .@dx = atoi(.@area$[0]); .@dy = atoi(.@area$[1]);
+        .x1 = .x - .@dx; .x2 = .x + .@dx;
+        .y1 = .y - .@dy; .y2 = .y + .@dy;
+        break;
+    case 4:
+        .x1 = atoi(.@area$[0]); .x2 = atoi(.@area$[2]);
+        .y1 = atoi(.@area$[1]); .y2 = atoi(.@area$[3]);
+        break;
+    default:
+        consolemes(CONSOLEMES_ERROR, "unexpected number of arguments for the marriage duplicate");
+        break;
+    }
+
+    // now find the wedding officiator (if any)
+    .@count = getunits(BL_NPC, .@units, false, strnpcinfo(NPC_MAP));
+
+    freeloop(true);
+    for (.@i = 0; .@i < .@count; ++.@i) {
+        .@name$ = strtolower(strnpcinfo(NPC_NAME_HIDDEN, "", .@units[.@i]));
+        .@full$ = strnpcinfo(NPC_NAME, "", .@units[.@i]);
+
+        if (getnpcsubtype(.@units[.@i]) != NPCSUBTYPE_SCRIPT) {
+            // getunits() doesn't filter npc subtypes
+            continue;
+        }
+
+        if (endswith(.@name$, "officiator") ||
+            endswith(.@name$, "marriage") ||
+            endswith(.@name$, "wedding") ||
+            getvariableofnpc(.officiator, .@full$) ||
+            getvariableofnpc(.marriage, .@full$) ||
+            getvariableofnpc(.wedding, .@full$)) {
+            .officiator = .@units[.@i];
+            .officiator$ = .@full$;
+            break;
+        }
+    }
+    freeloop(false);
+
+    defpattern(.id, "^.+ : (?:##[0-9aBb])?([A-Za-z]+) (.{4,23})$", "OnCheckWord");
+    activatepset(.id);
+    .distance = 14;
+    end;
+}
+
+// to use, create a duplicate:
+//001-1,30,31,0	duplicate(marriage)	name#x1,y1,x2,y2	NPCID
+//001-1,30,31,0	duplicate(marriage)	name#range	NPCID