89 lines
2.5 KiB
C
89 lines
2.5 KiB
C
/* Allows players to possibly follow a target into another room
|
|
* created by Rush@Dead Souls
|
|
*/
|
|
|
|
#include <lib.h>
|
|
#include "include/follow.h"
|
|
|
|
inherit LIB_VERB;
|
|
|
|
static void create() {
|
|
::create();
|
|
SetVerb("follow");
|
|
SetRules("", "LIV");
|
|
SetErrorMessage("Whom would you like to follow?");
|
|
SetHelp("Syntax: follow [LIVING]\n\n"
|
|
"If a living object is specified, this command allows "
|
|
"you to begin trailing the living being as it moves "
|
|
"through Dead Souls.\n"
|
|
"Otherwise, your following status is reported.\n"
|
|
"If the living being is interested in having you "
|
|
"follow them, they can issue the \"lead\" command "
|
|
"in order to avoid accidentally evading you.\n"
|
|
"See also: evade, lead, tracking, stealth\n");
|
|
}
|
|
|
|
mixed can_follow() { return 1; }
|
|
|
|
mixed do_follow() {
|
|
object* followers;
|
|
string* obs;
|
|
object leader;
|
|
int size;
|
|
string tmp;
|
|
|
|
// Format follow string.
|
|
if(this_player()->CanLead() && leader = this_player()->GetLeader()) {
|
|
tmp = "You are ";
|
|
if(leader->GetFollowed(this_player())) tmp += "following";
|
|
else tmp += "trailing";
|
|
tmp += " " + leader->GetName() + ".\n";
|
|
}
|
|
else tmp = "You are trailing no one." + "\n";
|
|
|
|
// Get the followers.
|
|
followers = this_player()->GetFollowers();
|
|
if(!followers) followers = ({});
|
|
|
|
// Format lead string.
|
|
tmp += "You are leading ";
|
|
obs = map(
|
|
filter(followers, (:this_player()->GetFollowed($1):)),
|
|
(:$1->GetName():));
|
|
size = sizeof(obs);
|
|
if(size) tmp += conjunction(obs);
|
|
else tmp += "no one";
|
|
tmp += ".\n";
|
|
|
|
// Format evasion string.
|
|
tmp += "You are evading ";
|
|
obs = map(
|
|
filter(followers, (:!this_player()->GetFollowed($1):)),
|
|
(:$1->GetName():));
|
|
size = sizeof(obs);
|
|
if(size) tmp += conjunction(obs);
|
|
else tmp += "no one";
|
|
tmp += ".\n";
|
|
|
|
this_player()->eventPrint(tmp);
|
|
return 1;
|
|
}
|
|
|
|
mixed can_follow_liv() { return 1; }
|
|
|
|
mixed do_follow_liv(object ob) {
|
|
object leader;
|
|
|
|
if(leader = this_player()->GetLeader()) {
|
|
leader->RemoveFollower(this_player());
|
|
this_player()->eventPrint("You stop trailing " + leader->GetName() + ".");
|
|
return 1;
|
|
}
|
|
|
|
if(member_array(this_player(), ob->AddFollower(this_player())) == -1)
|
|
this_player()->eventPrint("You are not empowered to follow " + ob->GetName() + ".");
|
|
else this_player()->eventPrint("You are now trailing " + ob->GetName() + ".");
|
|
|
|
return 1;
|
|
}
|