/* /verbs/players/marry.c
* from the Dead Souls Object Library
* marry
* marry LIV to LIV
* created by Descartes of Borg 951210
*/
#pragma save_binary
#include <lib.h>
#include <objects.h>
#include "include/marry.h"
inherit LIB_VERB;
static void create() {
verb::create();
SetVerb("marry");
SetRules("LIV to LIV");
SetErrorMessage("Marry whom to whom?");
SetHelp("Syntax: <marry PLAYER to PLAYER>\n\n"
"Allows people of great faith to join to souls in marriage. "
"In order to marry to people, you must however be in a place "
"which you find holy.\n\n"
"See also: divorce");
}
mixed can_marry_liv_to_liv() {
if( (int)this_player()->GetSkillLevel("faith") < 5 )
return "You do not have enough faith to join to people.";
return 1;;
}
mixed do_marry_liv_to_liv(object spouse1, object spouse2) {
mixed tmp;
if( this_player() == spouse1 || this_player() == spouse2 )
return "You may not perform a marriage on yourself.";
tmp = (mixed)environment(this_player())->CanMarry(this_player(),
spouse1, spouse2);
if( !tmp ) {
this_player()->eventPrint("This place is not holy to you.");
return 1;
}
else if( stringp(tmp) ) {
this_player()->eventPrint(tmp);
return 1;
}
tmp = (mixed)environment(this_player())->eventMarry(this_player(),
spouse1, spouse2);
if( tmp == 1 ) {
object ring;
ring = new(OBJ_WED_RING);
ring->SetSpouse((string)spouse2->GetCapName());
ring->eventMove(spouse1);
ring = new(OBJ_WED_RING);
ring->SetSpouse((string)spouse1->GetCapName());
ring->eventMove(spouse2);
}
}
