/*==========================================
 * Forces the player to make party [Haruna]
 * null if found existing party
 *------------------------------------------*/
BUILDIN(makeparty)
{
    TBL_PC* sd = script_rid2sd(st);
    char name[NAME_LENGTH];
    
    if( sd == NULL || !script_hasdata(st, 2) )
        return true;
        
    safestrncpy(name, script_getstr(st, 2), NAME_LENGTH);
    party->create(sd, name, 0, 0);
    return true;
}
 
/*==========================================
 * Forces the player to leave party [Haruna]
 * null if not found
 *------------------------------------------*/
BUILDIN(leaveparty)
{
    TBL_PC* sd = script_rid2sd(st);
    
    if( sd == NULL )
    {
        script_pushint(st, 0);
        return true;
    }
    
    script_pushint(st, party->leave(sd));
    return true;
}