#ifdef LOCMIN_TOWER
  if (ploc (mynum) == LOC_TOWER_TREASURE && state(OBJ_TOWER_DOOR_TREASURE) == 0
      && ishere (a)) {
    setobjstate (OBJ_TOWER_DOOR_TREASURE, 1);
    strcpy (ar, "The door clicks shut....\n");
    sendl(LOC_TOWER_TREASURE, ar);
    sendl(oloc(OBJ_TOWER_DOOR_SHAZARETH), ar);
  }
#endif

#ifdef LOCMIN_EVOLUTION
  if(c == OBJ_EVOLUTION_SHARKJAW ) {
    int b;
    switch( a )
      {
      default: break;
      case OBJ_EVOLUTION_SHARKTOOTH1:
      case OBJ_EVOLUTION_SHARKTOOTH2:
      case OBJ_EVOLUTION_SHARKTOOTH3:
      case OBJ_EVOLUTION_SHARKTOOTH4:
      case OBJ_EVOLUTION_SHARKTOOTH5:
      case OBJ_EVOLUTION_SHARKTOOTH6:
      case OBJ_EVOLUTION_SHARKTOOTH7:
      case OBJ_EVOLUTION_SHARKTOOTH8:
      if( ( ( iscontin( OBJ_EVOLUTION_SHARKTOOTH1, OBJ_EVOLUTION_SHARKJAW ) == True ) &&
            ( iscontin( OBJ_EVOLUTION_SHARKTOOTH2, OBJ_EVOLUTION_SHARKJAW ) == True ) &&
            ( iscontin( OBJ_EVOLUTION_SHARKTOOTH3, OBJ_EVOLUTION_SHARKJAW ) == True ) &&
            ( iscontin( OBJ_EVOLUTION_SHARKTOOTH4, OBJ_EVOLUTION_SHARKJAW ) == True ) &&
            ( iscontin( OBJ_EVOLUTION_SHARKTOOTH5, OBJ_EVOLUTION_SHARKJAW ) == True ) &&
            ( iscontin( OBJ_EVOLUTION_SHARKTOOTH6, OBJ_EVOLUTION_SHARKJAW ) == True ) &&
            ( iscontin( OBJ_EVOLUTION_SHARKTOOTH7, OBJ_EVOLUTION_SHARKJAW ) == True ) &&
            ( iscontin( OBJ_EVOLUTION_SHARKTOOTH8, OBJ_EVOLUTION_SHARKJAW ) == True ) ) )
        {
        /* Empty it first.  :)  */
        for (b = 0; b < numobs; b++)
	  {
            if (iscontin(b, a))
              destroy(b);
	  }
        osetdamage( OBJ_EVOLUTION_SHARKJAW, 30 );
        oclrbit( OBJ_EVOLUTION_SHARKJAW, OFL_CONTAINER );
        bprintf( "As you fit the last tooth into the %s, you realize that you now have\n"
                 "a formidable weapon indeed!\n\n", oname( c ) );
      }
      return;
      }
  }

#endif