{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Courier New;}{\f1\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 This little function makes it where you can copy area changes from building port to live port.  The BUILD_AREA and LIVE_AREA will need to be changed to the directories where your area files reside.  I put  this in act_wiz.c.  Don't forget your lines in interp.c and interp.h.  This is a great command for immortals that you don't want to have console access yet need to implement areas.\par
\par
If you use or if you see room for improvements or other ways to use this drop an email to me at ignar@carmeco.com.  I don't care what you do with it after that.\par
\par
\par
#define BUILD_AREA         "/build/area/"\par
#define LIVE_AREA          "/live/area/"\par
\par
void do_acopy (CHAR_DATA *ch, char *argument)\par
\{\par
    AREA_DATA *pArea;\par
    char arg[MAX_INPUT_LENGTH];\par
    char aname[MAX_STRING_LENGTH];\par
    char buf[100];\par
    argument = one_argument(argument,arg);\par
        \par
    if (arg[0] == '\\0')\par
    \{\par
        send_to_char("You must provide 'ALL' or a specific file name.\\n\\r",ch);\par
        return;\par
    \}\par
    if (!str_cmp(arg, "ALL"))\par
    \{\par
        strncpy(aname, "cp -p ", MAX_STRING_LENGTH);\par
        strncat(aname, BUILD_AREA, MAX_STRING_LENGTH);\par
        strncat(aname, "* ", MAX_STRING_LENGTH);\par
        strncat(aname, LIVE_AREA, MAX_STRING_LENGTH);\par
        system(aname);\par
        send_to_char("ALL areas copied to LIVE Port.\\n\\r",ch);\par
        return;\par
    \}\par
    else\par
    \{\par
        for(pArea = area_first; pArea; pArea = pArea->next)\par
        \{\par
            if (!str_cmp(arg, pArea->file_name))\par
            \{\par
                strncpy(aname, "cp -p ", MAX_STRING_LENGTH);\par
                strncat(aname, BUILD_AREA, MAX_STRING_LENGTH);\par
                strncat(aname, pArea->file_name, MAX_STRING_LENGTH);\par
                strncat(aname, " ", MAX_STRING_LENGTH);\par
                strncat(aname, LIVE_AREA, MAX_STRING_LENGTH);\par
                system(aname);\par
                sprintf(buf, "Area file '%s' copied to LIVE Port.\\n\\r", pArea->file_name);\par
                send_to_char(buf, ch);\par
                return;\par
            \}\par
            else\par
            \{\par
                send_to_char("File not found: Check alist.\\n\\r",ch);\par
                return;\par
            \}\par
        \}\par
    \}\par
\} \par
\f1\par
}