#include "/d/home/city/monsters/path.h"
inherit DEFMONSTER;
prison()
{
if((this_player()->query_al()<-1000)&&(present(this_player(),environment(this_object()))))
{
this_player()->move("/d/home/city/policestation/cell1.c");
tell_object(this_player(),"Fred has decided you are a badie, "+
"you are quickly dragged off to the cells. Fred throws you in, "+
"as you hear the lock click into place there is a faint chuckling "+
"from behind the door, you wonder when you will get out.\n");
tell_room(environment(this_object()),"Fred drags "+this_player()->query_cap_name()+" to the city guard cells, maybe "+this_player()->query_pronoun()+" has done something wrong.\n",this_player());
}
}
init()
{
::init();
call_out("prison",30);
}
 
setup() {
set_level(60+random(10));
set_name("Fred");
set_short("Fred the prison officer");
set_long("Be careful of Fred, he will throw you in jail if you are a "+
"nasty.\n");
        set_race("human");
set_main_plural("Freds");
        set_class("fighter");
add_alias("fred");
add_plural("freds");
set_al(150);
        set_gender(1);
        set_aggressive(0);
adjust_money(random(4), "silver");
        add_move_zone("mid");
add_move_zone("park");
add_move_zone("beach");
add_move_zone("docks");
add_move_zone("yaigo");
        add_move_zone("trader");
        add_move_zone("newbie");
clone_object(ARMOURS+"chainmail.arm")->move(this_object());
clone_object(WEAPONS+"broadsword.wep")->move(this_object());
init_equip();
load_chat(20, ({
     1, ":eyes you over, working out if you are evil.\n",
     1, "'What are you up to?\n",
     1, "'I hope you are not up to no good.\n",
      }));
load_a_chat(50, ({
     1, ":tries to get a hold on you.\n",
        1, "'I am here to keep the peace!\n",
      }));
}