string CheckObject(object oPoint)
{
if (oPoint==OBJECT_INVALID) return "HS";
return "OK";
}

void InitWP()
{
  object oWP;
  if (FF_USING_CNR)
      {
      oWP = GetWaypointByTag("NWN_CNR_CONFIG");
      if (oWP == OBJECT_INVALID)
            CreateObject(OBJECT_TYPE_WAYPOINT, "nw_waypoint001",GetStartingLocation(),FALSE,"NWN_CNR_CONFIG");
      oWP = GetWaypointByTag("NWN_CNR_RECIPESTATS");
      if (oWP == OBJECT_INVALID)
            CreateObject(OBJECT_TYPE_WAYPOINT, "nw_waypoint001",GetStartingLocation(),FALSE,"NWN_CNR_RECIPESTATS");
      oWP = GetWaypointByTag("NWN_CNR_RECIPES");
      if (oWP == OBJECT_INVALID)
            CreateObject(OBJECT_TYPE_WAYPOINT, "nw_waypoint001",GetStartingLocation(),FALSE,"NWN_CNR_RECIPES");
      oWP = GetWaypointByTag("NWN_CNR_COMPONENT");
      if (oWP == OBJECT_INVALID)
            CreateObject(OBJECT_TYPE_WAYPOINT, "nw_waypoint001",GetStartingLocation(),FALSE,"NWN_CNR_COMPONENT");
      oWP = GetWaypointByTag("NWN_CMD");
      if (oWP == OBJECT_INVALID)
            CreateObject(OBJECT_TYPE_WAYPOINT, "nw_waypoint001",GetStartingLocation(),FALSE,"NWN_CMD");
      }
  if (FF_USE_EXTERNAL_DATABASE)
      {
      if (FF_USING_NWN_SPEECH)
          {
          oWP = GetWaypointByTag("NWN_Speech");
          if (oWP == OBJECT_INVALID)
                CreateObject(OBJECT_TYPE_WAYPOINT, "nw_waypoint001",GetStartingLocation(),FALSE,"NWN_Speech");
          }
      oWP = GetWaypointByTag("NWN_MySQL_WP");
      if (oWP == OBJECT_INVALID)
          CreateObject(OBJECT_TYPE_WAYPOINT, "nw_waypoint001",GetStartingLocation(),FALSE,"NWN_MySQL_WP");
      }

  WriteTimestampedLogEntry("WayPoints check. NWN_CNR_CONFIG:"+ CheckObject(GetWaypointByTag("NWN_CNR_CONFIG"))+
                                             ", NWN_CNR_RECIPESTATS:"+ CheckObject(GetWaypointByTag("NWN_CNR_RECIPESTATS"))+
                                             ", NWN_CNR_RECIPES:"+ CheckObject(GetWaypointByTag("NWN_CNR_RECIPES"))+
                                             ", NWN_CNR_COMPONENT:"+ CheckObject(GetWaypointByTag("NWN_CNR_COMPONENT"))+
                                             ", NWN_CMD:"+ CheckObject(GetWaypointByTag("NWN_CMD"))+
                                             ", NWN_Speech:"+ CheckObject(GetWaypointByTag("NWN_Speech"))+
                                             ", NWN_MySQL_WP:"+ CheckObject(GetWaypointByTag("NWN_MySQL_WP"))+
                                             ", cmdLiteColors:"+ CheckObject(GetObjectByTag("cmdLiteColors")));


}