/* /domains/Ylsrim/npc/traveller.c
* From the Dead Souls Mud Library
* An example of a wandering sentient who steals
* Created by Descartes of Borg 960302
*/
#include <lib.h>
inherit LIB_SENTIENT;
// This steal function will get called randomly as set up in
// the SetAction() function in create(). It checks to see if
// someone is around from whom this guy can steal
static void Steal() {
object array obs;
object target;
string cmd;
int i;
if( !environment() ) {
return;
}
// Find all living things that are not me in the same room as me
obs = filter(all_inventory(environment()),
(: living($1) && $1 != this_object() :));
i = sizeof(obs);
if( i == 0 ) { // no one to steal from
return;
}
if( i != 1 ) { // many potential targets
// pick one
i = random(i);
}
else { // only oone target, so pick obs[0]
i = 0;
}
target = obs[i];
// Find all items on the target that can be stolen
obs = filter(all_inventory(target),
(: !($1->GetProperty("no steal")) :));
i = sizeof(obs);
if( i == 0 ) { // no goods, let's try to get some cash
cmd = "pick " + target->GetKeyName();
}
else { // heh, some goodies
if( i != 1 ) { // many goodies
// pick one
i = random(i);
}
else {
i = 0;
}
cmd = "steal " + obs[i]->GetKeyName() + " from " +
target->GetKeyName();
}
// now do the steal or pick
eventForce(cmd);
}
static void create() {
sentient::create();
SetKeyName("traveler");
SetId( ({"traveller", "human", "npc"}) );
SetShort("a traveler");
SetLong("He looks a bit worn down, but also a bit shifty.");
SetLevel(5);
SetRace("human");
SetClass("fighter");
SetGender("male");
SetMorality(-200);
AddCurrency("electrum", 1 + random(100));
SetInventory(([ "/domains/Ylsrim/armor/leather_armor" : "wear armor" ]));
// Check if he can steal at a 5% chance/heart beat
SetAction(5, (: Steal :));
// Don't want him getting cloned all over the place
SetUnique(1);
// Set him to wander
SetWander(25);
// Any time he hears the word dork, he goes ballistic!
SetTalkResponses(([ "dork" : "no, YOU are a dork!" ]));
}
void init(){
::init();
}
