//#include "/w/sojan/combat/unarmed_combat.h" #include "path.h" inherit "/obj/monster.c"; /* blood sucking vampire from hell */ void setup() { add_property("undead",25+random(25)); set_name("vampyre"); set_short("pale young woman"); add_alias("vampire"); add_alias("vampyre"); set_long("\n A rather attractive woman stands here, she has " "hypnotic blue eyes and straight black hair. Her bright bright red " "lips stand out against her very pale skin. " "\nShe smiles as she sees you look at her. " "The longer you look at her the more desirable she seems, " "you look into those eyes and lose yourself.............." "\n\n\n" ); set_al(2000); set_race("undead"); set_race_ob("/std/races/undead"); add_alias("woman"); add_alias("young woman"); set_gender(2); set_level(30); set_random_stats(10,10); set_dex(20); set_str(20); set_aggressive(0); set_thac0(-50); adjust_tmp_damage_bon(10); adjust_money(30,"gold"); load_chat(100,({ 1,":smiles seductively", 1,":kisses you then licks her lips", 1,":nibbles on your left ear and sighs", 1,"'just what this place needs, fresh blood !", 1,"'how about you and me do the wild thing ?", 1,":admires your fine neck", 1,":wanders over to you and whispers sweet nothings in your ear", 1,":winks", 1,"'do you have any idea how hard it is to get good help these days ?" })); load_a_chat(100, ({ 1, "'but we were getting on so well", 1, "'all I wanted was a wee sip", 1, ":licks her lips and laughs", 1, ":kisses you passionately" })); } /* setup() */ /* Hamlet was here! Don't try this at home kids. make_corpse() now */ /* returns the money the vampyre had on it. NOT normally a good idea. */ object make_corpse() { object *corpse = all_inventory(this_object()); corpse[0]->move(environment(this_object())); return corpse[0]; } #if 0 valid_attack() { if((int)environment(attacker)->query_light() > 50 ) { tell_room(environment(attacker),"The light starts to destroy the vampyre!\n", ({ })); /* Below used to be attacker->dest_me() which yarped. */ attacker->adjust_hp(-5000,attacker); } switch(random(4)) { case 0: if(defender->query_str() > 4) { defender->adjust_tmp_str(-1); tell_object(defender,"Vampire bites you lovingly on the neck, " "draining your blood, and with it your strength.\n"); } case 1: attacker->adjust_hp(20); tell_object(defender,"Vampire drinks "+DN+"'s blood and " "looks healthier.\n"); default: } return([ "punch" : ({ AN+" grabs "+DN+" and bites "+DN+" on the neck.\n", "You bite "+DN+"'s neck.\n", AN+" bites your neck and sucks blood.\n" }), "kick" : ({ AN+" goes for the neck but bites "+DN+" on the shoulder.\n", "You attempt to bite "+DN+" on the neck but settle for a chunk of shoulder.\n", AN+" misses your neck and bites you on the shoulder.\n" }), "knee" : ({ AN+" holds you close "+DN+".\n", "You hold "+DN+" closely.\n", AN+" holds you closely.\n" }), "headbutt" : ({ AN+" claws "+DN+" and licks the blood from her hands.\n", "You claw "+DN+" and lick the blood from your hands.\n", AN+" claws you then licks the blood from her hands.\n" }) ]); } #endif