Merentha Website
- Overview
- About LPC Coding
- Header Files
- The Problem Sets
- Rooms
- Normal Rooms
- Monster Rooms
- Search Rooms
- Exit Rooms
- Door Rooms
- Monsters
- Normal Monster
- Random/Emote Monster
- Patrol/Talking Monster
- Skills/Interactive Monster
- Armour
- A Vest
- A Ring
- Cursed Armour
- Weapons
- Normal Staff
- Two Handed Sword
- Special Attack Weapon
- Cursed Weapon
- Talkin Weapon
- Lights
- A Match
- A Torch
- A Lantern
- Bags
- A Normal Bag
- A Backpack (wearable)
- An Expanding Bag
- Misc Objects
- A Leaf
- A Sea Shell
- A Key
- A Snowball
|
<![CDATA[
// Petrarch
#include <std.h>
inherit OBJECT;
void create() {
::create();
set_name("shell");
set_short("a large sea shell");
set_long("The sea shell is nearly a foot long wide. Ever wonder if it "
"is true that if you put the shell to your ear and listen to can "
"hear the ocean?");
set_id(({"shell", "sea shell"}));
set_mass(2);
set_value(90);
set_material(({"bone","organic"}));
}
void init() {
::init();
add_action("cmd_listen", "listen");
}
int cmd_listen(string str) {
if(!present(this_object(), this_player())) return 0;
if(!str) return notify_fail("Listen to what?\n");
if(str!="to sheall" && str!="sea shell")
return notify_fail("You cannot listen to that.\n");
message("info", this_player()->query_cap_name()+" places the sea shell "
"against "+this_player()->query_possessive()+" and listens.",
environment(this_player()), this_player());
if(random(2))
message("info", "You hear nothing, cheap piece of junk.", this_player());
else
message("info", "Yup, you hear the ocean.", this_player());
return 1;
}
]]>
|
