inherit "obj/weapon";
 
int glow;
string loc;
 
reset (arg) {
  if (arg) return;
  set_id ("sting");
  set_name("sting");
  set_alias("sting");
  set_short ("sting");
  set_long("A short sword which seems to glow.\n");
  set_value(3000);
  set_class(15);
  set_type("custom");
  set_attack_msg (({
    "slashed","and Sting flashes a blinding beam of light",
    "slashed","and Sting flashes a blinding beam of light",
    "sliced","and the cut glows from Stings light",
    "rammed Sting into","as it screams",
    "sliced","with Sting",
    "sliced","and the blood glows on Sting's blade",
    "barely cut","with Sting"}));
  set_weight(6);
  set_heart_beat(1);
}
 
init () {
  ::init();
  add_action("scan", "sting");
  glow=0;
}
 
heart_beat() {
  scan();
  call_out("scan",1);
  call_out("scan",2);
}
 
scan() {
  string dest;
  int i;
  object ob;
  object owner;
 
  owner=environment(this_object());
  if(!interactive(owner)) return 1;
  if(loc==environment(owner)) return 1;
  loc=environment(owner);
  glow=0;
  dest = environment(owner)->query_dest_dir();
  if(!dest) return 1;
  for (i=0; i<sizeof(dest); i+=2) {
    ob=first_inventory(dest[i]);
    while((ob) && (!glow)) {
      if(ob->query_aggressive()) {
        tell_object(owner,"Sting glows fiercely!\n");
        glow=1;
      }
      ob=next_inventory(ob);
    }
  }
  return 1;
}