39 lines
1.2 KiB
C
39 lines
1.2 KiB
C
inherit "/lib/npc";
|
|
|
|
object mony;
|
|
|
|
void create() {
|
|
::create();
|
|
SetKeyName("Melissa's Ghost");
|
|
SetId( ({ "ghost","melissa","Melissa","Melissa's Ghost" }) );
|
|
SetShort( "Melissa's ghost");
|
|
SetAggressive( 0);
|
|
SetLevel(1);
|
|
SetLong( "A misty figure in a long flowing white gown. "
|
|
"She is wringing her hands and weeping.");
|
|
SetMorality(-200);
|
|
SetRace( "wraith");
|
|
SetGender("female");
|
|
SetCurrency("gold",random(50));
|
|
SetMaxHealthPoints(25);
|
|
SetHealthPoints(25);
|
|
SetRace("human");
|
|
mony = new("/lib/pile");
|
|
mony->SetCurrency("silver",500);
|
|
mony->move(this_object());
|
|
}
|
|
|
|
void catch_tell(string str) {
|
|
object ob;
|
|
string a, b, c;
|
|
|
|
if(sscanf(str, "%s gives %s to you", a, b) == 2) {
|
|
ob = present( lower_case(a), environment(this_object()));
|
|
if(ob) {
|
|
tell_object(ob, "The ghost thanks you for your generosity.");
|
|
tell_room(environment(this_object()), "The ghost thanks "+a+" for "+ob->query_possessive()+" generosity.", ({this_object(), ob}));
|
|
}
|
|
}
|
|
if(sscanf(str, "%ssmiles%s", a, b) == 2) tell_room(environment(this_object()), "The little ghost weeps piteously.", ({this_object()}));
|
|
}
|