colussus.c - example for course 03

---

/* Filename      : colussus.c
 * Description   : a wandering and talking monster
 *
 * written       : 01-10-1996 - Gunner
 * last modified : 01-10-1996 - Gunner
 * HTML-Version  : 28-01-2000 - Ghorwin
 */

#include <mudlib.h>
inherit I_WMONSTER;                 // inherit "/std/wmonster.c"

create()
{
    ::create();
    set_name("colussus");
    add_id(({"giant man","man"}));
    set_short("A giant man");
    set_long("This is one giant man. His name is Colussus. Wonder why?\n");
    set_race("human");
    set_level(25);
    set_hp(500);
    set_sp(500);
    set_gender(1);
    set_al(500);
    add_exp(500000);                 /* More experience for the killer...
    set_wc(30);
    set_ac(20);
    load_chat(20,({"*grumble",       /* Let's make him talk...
                   "*sigh",
                   "The giant man looks upon you with kindness in his eyes.\n",
                   "The giant man examines you closely.\n"}));
    load_a_chat(20,({"!scream",
                     "!kick",
                     "The giant man tells you: 'Why are you doing this?'\n",
                     "The giant man tells you: 'Leave me alone!'\n"}));

                /* Let's give him a "spell" to cast...  */
    set_spell_mess1("The giant man steps on #N's toes!\n");
    set_spell_mess2("The giant man steps on your toes!\n");
    set_spell_dam(40+random(30));
    set_spell_dam_type("impact");    /* Auch! ;-)
    set_spell_chance(20+random(20));
    set_wandering_chance(80);        /* Walk I tell you. Walk!
    set_wandering_time(10);
    replace_program(I_WMONSTER);
}