void extra_create()
{
set_name( "a beholder" );
add_alias( "beholder" );
set_short( "a beholder" );
set_long( "This is a beholder. It is essentially a floating head "
"with one single, cyclops-like eye surrounded by ten smaller eye "
"stalks. Its massive, gaping maw is set in a permanent grin. "
"It looks like a sphere covered in eyes, with extra eyes "
"growing out of it. Little eye sprouts if you will." );
set_gender( "unknown" );
set_race( MON "beholder_race" );
//set_guild()
//set_specialization
set_skill( "dodge", 50 );
set_alignment( -4000 );
set_stat( "str", random( 5000 ) );
set_stat( "con", random( 5000 ) );
set_proficiency( "hands", 50 );
set_move_rate( 60 );
set_move_chance( 50 );
set_aggressive( 3 );
add_combat_message( "smack", "smacks" );
add_combat_message( "slup", "slurps" );
add_combat_message( "grab", "grabs" );
set_type( "blunt" );
set_hit_bonus( 2 ); //So many eyes.
set_heal_rate( 30 );
set_heal_amount( random( THISO->query_max_hp() ) - random( 300 ) );
set_natural_ac( 5 );
set( "loot", 1 );
add_money( random( 1000 ) );
add_special_attack( "blastem", THISO, 10 );
}
void create_object(void)
{
::create_object();
set_name("keeper");
add_id("dungeon keeper");
set_short("a dungeon keeper");
set_long("One of the darklings serving in the dungeons of the castle. " +
"He looks human, but has pale skin and long, black hair. Long, " +
"He has two long, protruding teeth in his lower jaw. He " +
"observes you coldy with his small, black, pupilless eyes.\n");
set_level(14);
set_unarmed(0);
set_db(3);
set_hp(210);
set_skill("combat",85);
set_skill("longblade",85);
set_skill("resist",85);
set_skill("perception",85);
set_aggressive(1);
set_walking();
set_wc(25);
set_new_ac(25);
add_money(random(200));
make(ARMOUR + "dark_plate");
make(WEAPON + "dark_lsword");
make(ARMOUR + "dark_lshield");
make(ARMOUR + "dark_helmet");
make(ARMOUR + "dark_glove");
make(ARMOUR + "dark_boot");
make(ARMOUR + "dark_amulet");
init_command("wear all");
init_command("wield sword");
make(OBJECT + "cell_key");
load_a_chat(15,({ "The darkling tries to bite you!\n" }));
void extra_create()
{
set_name("pamela");
add_alias("pam");
set_short(SHORT);
set("sdesc", SHORT);
set_long("DOH! What you are looking at probably has to "
"be the finest specimen of human anatomy ever "
"created. Everything is in the right proportion "
"and she knows how to use it. The fact that she is "
"naked almost drives you crazy, and you feel a "
"sudden urge to stare at her.\n");
set_race("human");
set_gender("female");
set_stat("str",120);
set_stat("int",20);
set_stat("wil",100);
set_stat("con",250);
set_stat("dex",100);
set_stat("chr",300);
set_proficiency("hands", 10 + random(5));
set_aggressive(0);
set_alignment("neutral");
set_natural_ac(2); //Silicone implants
set(MonsterP, 1);
set_chat_chance(95);
set_chat_rate(random(10)+60);
add_phrase("Pamela giggles.\n");
add_phrase("Pamela wonders where the beach is.\n");
add_phrase("Pamela looks at you.\n");
}
void setup() {
object obj;
set_name("shayman");
set_gender( "female" );
add_adj("orc");
add_ids("orc", "orc shayman");
set_short("Orc shayman");
set_long("An ugly orc shayman. This thing looks wilder than your average " +
"orc.");
set_race("orc");
set_level(10);
set_aggressive(1);
set_spell_chance(20);
set_spell_damage(20);
set_spell_message("The shayman casts a magic missile at $t.");
set_hit_skill("combat/unarmed");
set_skill("combat/unarmed", 50);
set_skill("combat/defense", 100);
obj = clone_object(DIR + "/obj/gold_staff.c");
obj->setup();
obj->move(this_object());
obj = clone_object(DIR + "/obj/orc_slayer.c");
obj->setup();
obj->move(this_object());
do_wield(obj);
}
create_monster()
{
int i;
set_name("goblin");
set_living_name("goblin");
set_long("It's very small but it looks back on you and shows its teeth.\n");
set_race_name("goblin");
set_adj("small");
set_gender(2); /* male = 0, female = 1, other = 2 */
default_config_mobile(10);
set_alignment(-70);
set_aggressive(1);
/* This monster is aggressive to all living objects comming close. He will try
* to make the standard kill command. If the dis is not enough to attack
* someone he won't.
*
* It's of course possible to make monstyers aggressive only to elves and so
* on. You just redefine the init_attack() function, or make one on your
* own.
*/
}
void extra_create()
{
set_name( "tendrils" );
add_alias( "tendril" );
add_alias( "tendrils" );
set_short( "some writhing black tendrils" );
set_ansi_short ( sprintf( "%ssome writhing black tendrils%s", HIK, NORM ) );
set_long( "These horrible black tendrils writhe and grip about wildly."
);
set_alignment( DEMONIC_AL );
set_stat( "str" , 200 );
set_stat( "con" , 300 );
set_stat( "wil" , 300 );
set_stat( "dex" , 130 );
set_skill( "dodge", 65 );
set( NoStealP );
set( NoStunP );
set_natural_ac( 3 );
set_heal_rate( 30 );
set_heal_amount( 6 );
set_max_damage( 10 );
set_aggressive( 1 );
add_combat_message( "grope", "gropes" );
add_combat_message( "slither on", "slither on" );
}
static void
create()
{
::create();
set_aggressive(1);
set_log_file("fort");
add_property("guardian");
}
void setup() {
set_name("troll");
add_adj("smelly");
set_short("A large smelly troll");
set_long("The troll looks like a messed up tree.");
set_race("troll");
set_hit_skill("combat/unarmed");
set_skill("combat/unarmed", 50);
set_skill("combat/defense", 100);
set_level(8);
set_aggressive(1);
}
void setup(void) {
set_name("trazom");
set_short("Trazom the vampire");
set_long("Trazom's cold dead flesh is desiccated, pulling his maw open " +
"in a permament groaning position. His eyes are sunk deep in his " +
"boney face. His hair is incredibly thin and wispy. He seems to " +
"miss the days when he walked among the living as one from them.");
set_race("vampire");
set_level(40);
set_hit_skill("combat/unarmed");
set_skill("combat/defense", 100);
set_aggressive(1);
}
static void
create()
{
::create();
set_name("skeleton");
add_long("It is tattered with dried flesh.");
scale_level(14, 17);
scale_hp(250, 325);
scale_wc(28, 32);
scale_ac(4, 7);
set_al(-500);
set_aggressive(1);
setmin("stumbles in");
setmout("stumbles");
add_money(random(600));
add_property("unarmed_damage_type", ({ "claw", "bite" }));
void setup() {
set_name("apep");
add_id("serpent", "chaosserpent", "chaos serpent");
set_short("Apep the chaos serpent");
set_long("Apep the chaos serpent is a giant beast with a strong " +
"hiss and long sharp fangs that look like they hit hard.");
set_race("demon");
set_level(50);
set_hit_skill("combat/unarmed");
set_skill("combat/defense", 1);
set_skill("combat/unarmed", 200);
set_aggressive(0);
set_spell_chance(50);
set_spell_damage(1);
set_spell_message("Apep casts a chaotic brain scrambling spell at $t.");
set_hit_string("bite");
}
void extra_create()
{
set_name( "a horror" );
add_alias( "creature" );
add_alias( "horror" );
add_alias( "indescribable horror" );
set_short( "an indescribable horror" );
set_ansi_short( "an indescribable horror", HIK );
set_long( "Parts, parts, and more parts! This thing has tentacles, "
"it has arms, legs, and many mouths. You notice it is missing "
"eyes. It is coated in a thick gelatinous black slime. The tentacles "
"writhe around its back and its mouths chomp. It flicks its tongues "
"out into the air." );
set_gender( "other" );
set_damage_bonus( 2 );
set_alignment( EVIL_AL );
set_stat( "str" , 100 );
set_stat( "con" , 50 );
set_stat( "wil" , 500 );
set_stat( "dex" , 200 );
set_proficiency( "hands", 75 );
set_skill( "dodge", 65 );
set_type( "pyschic" );
set( NoStunP, 1 );
set_aggressive( 4 );
set_natural_ac( 3 );
set_chat_rate( 20 );
set_chat_chance( 20 );
add_phrase( "#say Ack'cthun." );
add_phrase( "#say Masr'snaff. ct'oon." );
add_phrase( "#say Snaral d'fan ar'marak" );
}
void setup() {
object obj;
set_name("giant");
set_gender( "male" );
add_adj("fire");
set_short("A fire giant");
set_long("A mighty hot big guy.");
set_race("giant");
set_level(15);
set_aggressive(1);
set_hit_skill("combat/unarmed");
set_skill("combat/unarmed", 50);
set_skill("combat/defense", 100);
obj = clone_object(DIR + "/obj/fire_sword");
obj->setup();
obj->move(this_object());
do_wield(obj);
}
void extra_create()
{
set_name( "the ghost of Rifrad" );
add_alias( "rifrad" );
add_alias( "ghost" );
add_alias( "doctor" );
add_alias( "ghost of rifrad" );
set_short( "the ghost of Rifrad" );
set_ansi_short( sprintf( "%sthe ghost of Rifrad", HIK ) );
set_long( "Where there was once a being, there is now a fluctuating "
"darkness. A cold ghastly presence. All that remains of Rifrad "
"is his incorporal form." );
set_gender( "male" );
set_alignment( NEUTRAL_AL );
set_stat( "str" , 200 );
set_stat( "con" , 200 );
set_stat( "wil" , 500 );
set_stat( "dex" , 200 );
set_proficiency( "hands", 75 );
set_skill( "dodge", 65 );
set_type( "psychic" );
set( NoStunP, 1 );
set( UndeadP, 1 );
set_aggressive( 1 );
set_natural_ac( 3 );
call_out( "hello", 1 );
add_special_attack( "soulwell", THISO, 8 );
}
void setup(void) {
object obj;
set_name("slim");
set_gender( "male" );
add_adj("large");
set_short("Slim shady");
set_long("This guy is skinny, he is also kind of creepy looking. He " +
"reminds you of an anemic scarecrow.");
set_race("human");
set_level(1);
set_hit_skill("combat/unarmed");
set_skill("combat/unarmed", 50);
set_skill("combat/defense", 100);
set_aggressive(0);
obj = clone_object(DIR + "/obj/10ghat.c");
obj->setup();
obj->move(this_object());
do_wear(obj);
}
void extra_create()
{
set_name( "a goblin digger" );
add_alias( "goblin" );
add_alias( "goblin digger" );
add_alias( "digger" );
set_short( "a goblin digger" );
set_long( "This ugly goblin looks really worn out. "
"It's dressed in just a loin cloth. It's nails are "
"yellow with fungus, and dirt is lodged underneath them. "
"It toils away digging for something valuable." );
if( random( 2 ) )
set_gender( "male" );
else
set_gender( "female" );
set_race( "goblin" );
set_alignment( random( -4000 ) );
if( random( 2 ) )
set_alignment( random(4000 ) );
set_stat( "str", 100 + random( 100 ) );
set_stat( "wil", 150 + random( 100 ) );
set_stat( "int", random( 100 ) );
set_stat( "con", 140 + random( 40 ) );
set_skill( "dodge", 40 );
set_proficiency( "hands", 60 );
set_aggressive( 0 );
switch( random( 3 ) + 1 )
{
case 1 : THISO->ogre(); break;
case 2 : THISO->body(); break;
case 3 : break;
default : break;
}
}
void create_object(void)
{
::create_object();
set_aggressive(1);
}
void extra_create()
{
string variety;
string mrace;
int strmod = random( 50 );
int wilmod = random( 100 );
int intmod = random(200);
set_name( "an insane researcher" );
add_alias("creature");
add_alias("possessed");
add_alias("researcher");
add_alias("doctor");
add_alias("scientist");
add_alias("beast");
add_alias("insane");
add_alias( "insane researcher" );
switch(random( 4 ) )
{
case 0 : mrace = "gnome"; break;
case 1 : mrace = "human"; break;
case 2 : mrace = "drow_elf"; break;
case 3 : mrace = "dwarf"; break;
}
switch( random( 5 ) ) {
case 0 : variety = "huddled in the corner"; break;
case 1 : variety = "ripping at its own face"; break;
case 2 : variety = "covered in its own blood"; break;
case 3 : variety = "wheezing through a broken nose"; break;
case 4 : variety = "vomiting all over itself"; break;
}
set_short( sprintf( "a researcher, %s", variety ) );
set_long( "You can't tell whether this was a man or a woman. "
"It has long since passed beyond gender and "
"into the inhuman. Scabs fester, crack, and "
"bleed all over its skin. Its eyes are gone "
"the sockets stained with blood. It appears that "
"the wounds were self inflicted." );
set_alignment( EVIL_AL );
set_gender( "unknown" );
set_aggressive( 5 );
set_proficiency( "hands", 100 );
add_combat_message( "rip", "rips" );
set_chat_chance( 90 );
set_chat_rate( 50 );
add_phrase( "#say We went too far, "
"and yet it's all smiles here." );
add_phrase( "#say The Darkness has shown me the "
"light!" );
add_phrase( "#say I found the taste of sentient beings "
"to be so much sweeter than that of others." );
add_phrase( "#say Is this my blood?" );
add_phrase( "#say I will flay your skin and put you "
"with the rest of them." );
add_phrase( "#say Lost, lost, lost, lost, lost..." );
add_phrase( "#say Stop screaming! ");
add_combat_phrase( "#say I will swallow your soul!" );
add_combat_phrase( "#say You will feed the old ones!" );
add_combat_phrase( "#say Finish me, I crave the embrace!" );
add_combat_phrase( "#say Who will lock you in the cellar..." );
add_combat_phrase( "#say My pain has no meaning!" );
set_avoid_props( ({ NoWanderRoomP }) );
