// An example monster. // This is a megadeath monster, great skills and stats, can wipe out // most players without breaking a sweat. // Comments on monster properties can be found in /obj/foobird.c // Written by Mobydick, 11-6-92. #include <mudlib.h> inherit MONSTER ; void create () { object ob1, ob2, ob3 ; ::create() ; seteuid(getuid()) ; set ("short", "Bimbo, hero of the goblin wars") ; set ("long", "Bimbo is a skilled fighter. He has a steely glint in his eye.\n") ; set ("id", ({ "hero", "bimbo" }) ) ; set ("capacity", 5000) ; set ("volume", 500) ; set ("max_cap", 5000) ; set ("max_vol", 500) ; set ("mass", 3000) ; set ("bulk", 250) ; set_name("bimbo") ; set ("gender", "male") ; set ("race", "human") ; enable_commands() ; ob1 = clone_object ("/obj/axe") ; ob1 -> move (this_object()) ; ob2 = clone_object ("/obj/shield") ; ob2 -> move (this_object()) ; ob3 = clone_object ("/obj/chainmail") ; ob3 -> move (this_object()) ; set_living_name("bimbo") ; enable_commands() ; set ("hit_points", 60) ; set ("armor_class", 0) ; set ("max_hp",60) ; set ("attack_strength", 0) ; set ("damage", ({ 1,4 }) ) ; set ("weapon_name", "fists") ; set ("stat/strength", 18) ; set ("stat/dexterity", 15) ; set_skill("attack", 38, "strength") ; set_skill("defense", 29, "dexterity") ; set_verbs( ({ "punch at", "swing at" }) ) ; set_verbs2( ({ "punches at", "swings at" }) ) ; wield_weapon(ob1) ; equip_armor(ob2) ; equip_armor(ob3) ; }