void main()
{
    object oArea = GetFirstArea();
    while (oArea != OBJECT_INVALID)
    {
        string sEnter = GetEventScript(oArea, EVENT_SCRIPT_AREA_ON_ENTER);
        string sExit = GetEventScript(oArea, EVENT_SCRIPT_AREA_ON_EXIT);

        if (sEnter == "" || sExit == "")
        {
            WriteTimestampedLogEntry("AREADBG: Fixing area scripts for " + GetName(oArea) + "("+GetTag(oArea)+")");
        }
        if (sEnter == "")
            SetEventScript(oArea, EVENT_SCRIPT_AREA_ON_ENTER, "anph_area_enter");
        if (sExit == "")
            SetEventScript(oArea, EVENT_SCRIPT_AREA_ON_ENTER, "anph_area_exit");
        oArea = GetNextArea();
    }
    WriteTimestampedLogEntry("AREADBG: All areas listed");
}