#include "/d/home/city/monsters/path.h"
inherit "/obj/monster";

init()
{
::init();
if(this_player()->query_al()<0)
 {
  tell_object(this_player(),"Raffy is scared of you.\n");
tell_room(environment(this_object()),"Raffy becomes a bit scared of "+this_player()->query_cap_name()+".\n",this_player());
 }
if((string)this_player()->query_name()=="vilnius")
 {
tell_room(environment(this_object()),"Raffy says : Hello Master Vilnius!\n");
 call_out("stay_here",5);
 }
}


void stay_here()
{
  this_object()->do_command("unfollow all");
  this_object()->do_command("follow vilnius");
   this_object()->set_protector(this_player());
}

setup() {
set_level(1+random(1));
set_name("raffy");
set_short("Raffy");
set_long("Raffy is a young boy who is an apprentice of one of the wizards of the academy.\n");
        set_class("wizard");
   set_guild_ob("/d/guilds/wizards/guild_object.c");
add_alias("boy");
set_max_hp(100+random(100));
set_al(50);
        set_gender("male");
        set_aggressive(0);
adjust_money(random(10), "copper");
        add_move_zone("wizardguild");
add_move_zone("park");
add_move_zone("beach");
add_move_zone("docks");
        add_move_zone("trader");
        add_move_zone("newbie");
clone_object(ARMOURS+"robe.arm")->move(this_object());
init_equip();
load_chat(20, ({
     1, ":cheerfully wanders around.\n",
    2, "'have you seen my Master?\n",
     1, ":rummages in his pockets for something he thinks is a spell component.\n",
      }));
load_a_chat(50, ({
     1, ":tries to run away.\n",
     2,"'wait till my Master hears about this..!\n",
        1, "'Aaaargh!\n",
      }));

  add_respond_to_with(
    ({"hello"}), ({"'hi!"})
  );
  add_respond_to_with(
    ({"follow"}), ({"#ok_follow"})
  );
  add_respond_to_with(
    ({"master"}), ({"'you have seen him? oh goody! where is he?"})
  );
  add_respond_to_with(
     ({"magic","wizard","spells","mage"}), ({"'I am a real wizard you know? My master Vilnius said so."})
   );
  add_respond_to_with(
     ({"academy"}), ({"'the Academy is left at the wizardsplaza, east on pebblestreet."})
   );
   add_respond_to_with(
     ({"give"}), ({"#ok_give"})
   );
   add_respond_to_with(
     ({"hi"}), ({"'hello!"})
   );
}

int ok_follow(object who) {
 if(random(2))
 {
do_command("follow "+who->query_name());
tell_room(environment(this_object()),"Raffy says: will you take me to my Master please?\n");
    return 1;
  }
 tell_room(environment(this_object()),"Raffy says: where will you take me?\n");
   who->add_follower(this_object());
 tell_room(environment(this_object()),"Raffy says: he will turn me into a toad if I'm late.\n");
  return 1;
}

int second_life()
{
say("Raffy crys : My Master will get you for this!\n");
this_player()->add_property("killed raffy",1);
}