/***************************************************************************
 *  File: mem.c                                                            *
 *                                                                         *
 *  Much time and thought has gone into this software and you are          *
 *  benefitting.  We hope that you share your changes too.  What goes      *
 *  around, comes around.                                                  *
 *                                                                         *
 *  This code was freely distributed with the The Isles 1.1 source code,   *
 *  and has been used here for OLC - OLC would not be what it is without   *
 *  all the previous coders who released their source code.                *
 *                                                                         *
 ***************************************************************************/

#include <glib.h>


#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <merc.h>
#include <olc.h>
#include <recycle.h>
//#include <actaffect.h>

/*
 * Globals
 */
extern          int                     top_reset;
extern          int                     top_area;
extern          int                     top_exit;
extern          int                     top_ed;
extern          int                     top_room;

extern GMemChunk *shop_mem_chunk;
extern GMemChunk *pmprog_mem_chunk;
extern GMemChunk *roomtext_mem_chunk;
extern GMemChunk *reset_mem_chunk;
extern GMemChunk *exit_mem_chunk;

AREA_DATA		*	area_free;
extern GSList		*	extra_descr_free;
EXIT_DATA		*	exit_free;
ROOM_INDEX_DATA		*	room_index_free;
OBJ_INDEX_DATA		*	obj_index_free;
SHOP_DATA		*	shop_free;
MOB_INDEX_DATA		*	mob_index_free;
GSList		*	reset_free;
HELP_DATA		*	help_free;
extern HELP_DATA		*	help_last;

void free_extra_descr( EXTRA_DESCR_DATA *pExtra );
void free_affect( AFFECT_DATA *af );


MPROG_CODE              *       mpcode_free;
MPROG_LIST              *       mprog_free;

MPROG_CODE *new_mpcode(void)
{
     MPROG_CODE *NewCode;

     if (!mpcode_free)
     {
    	 NewCode = g_chunk_new (MPROG_CODE, pmprog_mem_chunk);
         top_mprog_index++;
	 NewCode->code = g_string_new("");
     }
     else
     {
         NewCode     = mpcode_free;
         mpcode_free = mpcode_free->next;
	 NewCode->code = g_string_assign(NewCode->code,"");
     }

     NewCode->vnum    = 0;
     NewCode->next    = NULL;

     return NewCode;
}

void free_mpcode(MPROG_CODE *pMcode)
{
    pMcode->next = mpcode_free;
    mpcode_free  = pMcode;
    return;
}

RESET_DATA *new_reset_data( void )
{
    RESET_DATA *pReset;

    if ( !reset_free )
    {
    	pReset = g_chunk_new (RESET_DATA, reset_mem_chunk);
        top_reset++;
    }
    else
    {
    	pReset = (RESET_DATA*)reset_free->data;
    	reset_free = g_slist_remove(reset_free, pReset);
    }

    pReset->command     =   'X';
    pReset->arg1        =   0;
    pReset->arg2        =   0;
    pReset->arg3        =   0;
    pReset->arg4	=   0;

    return pReset;
}


void free_reset_data( RESET_DATA *pReset )
{
	reset_free = g_slist_append(reset_free,pReset);
    return;
}



AREA_DATA *new_area( void )
{
    AREA_DATA *pArea;
    char buf[MAX_INPUT_LENGTH];

    if ( !area_free )
    {
        pArea   =    g_chunk_new(AREA_DATA, AreaID_mem_chunk);
        top_area++;
    }
    else
    {
        pArea       =   area_free;
        area_free   =   area_free->next;
    }

    pArea->next             =   NULL;
    pArea->name             =   g_strdup( "New area" );
/*    pArea->recall           =   ROOM_VNUM_TEMPLE;      ROM OLC */
    pArea->area_flags       =   AREA_ADDED;
    pArea->security         =   1;
    pArea->builders         =   g_strdup( "None" );
    pArea->min_vnum            =   0;
    pArea->max_vnum            =   0;
    pArea->age              =   0;
    pArea->nplayer          =   0;
//    pArea->empty            =   TRUE;              /* ROM patch */
    sprintf( buf, "area%d.are", pArea->vnum );
    pArea->file_name        =   g_strdup( buf );
    pArea->vnum             =   top_area-1;

    return pArea;
}



void free_area( AREA_DATA *pArea )
{

    pArea->next         =   area_free->next;
    area_free           =   pArea;
    return;
}



EXIT_DATA *new_exit( void )
{
    EXIT_DATA *pExit;

    if ( !exit_free )
    {
    	pExit = g_chunk_new (EXIT_DATA, exit_mem_chunk);
        top_exit++;
    }
    else
    {
        pExit           =   exit_free;
        exit_free       =   exit_free->next;
    }

    pExit->to_room      =   NULL;                  /* ROM OLC */
    pExit->next         =   NULL;
    pExit->vnum         =   0;
    pExit->exit_info    =   0;
    pExit->key          =   0;
    pExit->keyword      =   &str_empty[0];
    pExit->description  =   &str_empty[0];
    pExit->rs_flags     =   0;

    return pExit;
}



void free_exit( EXIT_DATA *pExit )
{

    pExit->next         =   exit_free;
    exit_free           =   pExit;
    return;
}


ROOM_INDEX_DATA *new_room_index( void )
{
    ROOM_INDEX_DATA *pRoom;
    int door;

    if ( !room_index_free )
    {
        pRoom           =  g_chunk_new (ROOM_INDEX_DATA, RoomID_mem_chunk);
        top_room++;
    }
    else
    {
        pRoom           =   room_index_free;
        room_index_free =   room_index_free->next;
    }

    pRoom->next             =   NULL;
    pRoom->people           =   NULL;
    pRoom->contents         =   NULL;
    pRoom->extra_descr      =   NULL;
    pRoom->area             =   NULL;

    for ( door=0; door < MAX_DIR; door++ )
        pRoom->exit[door]   =   NULL;

    pRoom->name             =   &str_empty[0];
    pRoom->description      =   &str_empty[0];
//    pRoom->owner	    =	&str_empty[0];
    pRoom->vnum             =   0;
    pRoom->room_flags       =   0;
    pRoom->light            =   0;
    pRoom->sector_type      =   0;
//    pRoom->clan		    =	0;
//    pRoom->heal_rate	    =   100;
//    pRoom->mana_rate	    =   100;

    return pRoom;
}



void free_room_index( ROOM_INDEX_DATA *pRoom )
{
    int door;
/*
    EXTRA_DESCR_DATA *pExtra;
    RESET_DATA *pReset;
*/

    for ( door = 0; door < MAX_DIR; door++ )
    {
        if ( pRoom->exit[door] )
            free_exit( pRoom->exit[door] );
    }
/*
    for ( pExtra = pRoom->extra_descr; pExtra; pExtra = pExtra->next )
    {
        free_extra_descr( pExtra );
    }

    for ( pReset = pRoom->reset_first; pReset; pReset = pReset->next )
    {
        free_reset_data( pReset );
    }
*/
    pRoom->next     =   room_index_free;
    room_index_free =   pRoom;
    return;
}

extern AFFECT_DATA *affect_free;


SHOP_DATA *new_shop( void )
{
    SHOP_DATA *pShop;
    int buy;

    if ( !shop_free )
    {
    	pShop = g_chunk_new (SHOP_DATA, shop_mem_chunk);
        top_shop++;
    }
    else
    {
        pShop           =   shop_free;
        shop_free       =   shop_free->next;
    }

    pShop->next         =   NULL;
    pShop->keeper       =   0;

    for ( buy=0; buy<MAX_TRADE; buy++ )
        pShop->buy_type[buy]    =   0;

    pShop->profit_buy   =   100;
    pShop->profit_sell  =   100;
    pShop->open_hour    =   0;
    pShop->close_hour   =   23;

    return pShop;
}



void free_shop( SHOP_DATA *pShop )
{
    pShop->next = shop_free;
    shop_free   = pShop;
    return;
}



OBJ_INDEX_DATA *new_obj_index( void )
{
    OBJ_INDEX_DATA *pObj;
    static OBJ_INDEX_DATA pObj_zero;
//    int value;


    if ( !obj_index_free )
    {
        pObj           =    g_chunk_new (OBJ_INDEX_DATA, ObjID_mem_chunk);
        top_obj_index++;
    }
    else
    {
        pObj            =   obj_index_free;
        obj_index_free  =   obj_index_free->next;
    }
    *pObj = pObj_zero;
/*
    pObj->next          =   NULL;
    pObj->extra_descr   =   NULL;
    pObj->affected      =   NULL;
    pObj->area          =   NULL;
    pObj->name          =   g_strdup( "no name" );
    pObj->short_descr   =   g_strdup( "(no short description)" );
    pObj->description   =   g_strdup( "(no description)" );
    pObj->vnum          =   0;
    pObj->item_type     =   ITEM_TRASH;
    pObj->extra_flags   =   0;
    pObj->wear_flags    =   0;
    pObj->count         =   0;
    pObj->weight        =   0;
    pObj->cost          =   0;
//    pObj->material      =   str_dup( "unknown" );    
    pObj->condition     =   100;                      
    for ( value = 0; value < 5; value++ )           
        pObj->value[value]  =   0;

//    pObj->new_format    = TRUE;
*/

    return pObj;
}



void free_obj_index( OBJ_INDEX_DATA *pObj )
{
    EXTRA_DESCR_DATA *pExtra;
    AFFECT_DATA *pAf;

    for ( pAf = pObj->affected; pAf; pAf = pAf->next )
    {
        free_affect( pAf );
    }

    for ( pExtra = pObj->extra_descr; pExtra; pExtra = pExtra->next )
    {
        free_extra_descr( pExtra );
    }

    pObj->next              = obj_index_free;
    obj_index_free          = pObj;
    return;
}



MOB_INDEX_DATA *new_mob_index( void )
{
    MOB_INDEX_DATA *pMob;

    if ( !mob_index_free )
    {
        pMob           =    g_chunk_new (MOB_INDEX_DATA, MobID_mem_chunk);
        top_mob_index++;
    }
    else
    {
        pMob            =   mob_index_free;
        mob_index_free  =   mob_index_free->next;
    }

    pMob->next          =   NULL;
    pMob->spec_fun      =   NULL;
    pMob->pShop         =   NULL;
    pMob->area          =   NULL;
    pMob->player_name   =   g_strdup( "no name" );
    pMob->short_descr   =   g_strdup( "(no short description)" );
    pMob->long_descr    =   g_strdup( "(no long description)\n\r" );
    pMob->description   =   g_strdup("");
    pMob->vnum          =   0;
    pMob->count         =   0;
    pMob->killed        =   0;
    pMob->sex           =   0;
    pMob->level         =   0;
    pMob->act           =   ACT_IS_NPC;
    pMob->affected_by   =   0;
    pMob->alignment     =   0;
    pMob->hitroll	=   0;
//    pMob->race          =   race_lookup( "human" ); /* - Hugin */
//    pMob->form          =   0;           /* ROM patch -- Hugin */
//    pMob->parts         =   0;           /* ROM patch -- Hugin */
//    pMob->imm_flags     =   0;           /* ROM patch -- Hugin */
//    pMob->res_flags     =   0;           /* ROM patch -- Hugin */
//    pMob->vuln_flags    =   0;           /* ROM patch -- Hugin */
//    pMob->material      =   str_dup("unknown"); /* -- Hugin */
//    pMob->off_flags     =   0;           /* ROM patch -- Hugin */
//    pMob->size          =   SIZE_MEDIUM; /* ROM patch -- Hugin */
//    pMob->ac[AC_PIERCE]	=   0;           /* ROM patch -- Hugin */
//    pMob->ac[AC_BASH]	=   0;           /* ROM patch -- Hugin */
//    pMob->ac[AC_SLASH]	=   0;           /* ROM patch -- Hugin */
//    pMob->ac[AC_EXOTIC]	=   0;           /* ROM patch -- Hugin */
//    pMob->hit[DICE_NUMBER]	=   0;   /* ROM patch -- Hugin */
//    pMob->hit[DICE_TYPE]	=   0;   /* ROM patch -- Hugin */
//    pMob->hit[DICE_BONUS]	=   0;   /* ROM patch -- Hugin */
//    pMob->mana[DICE_NUMBER]	=   0;   /* ROM patch -- Hugin */
//    pMob->mana[DICE_TYPE]	=   0;   /* ROM patch -- Hugin */
//    pMob->mana[DICE_BONUS]	=   0;   /* ROM patch -- Hugin */
//    pMob->damage[DICE_NUMBER]	=   0;   /* ROM patch -- Hugin */
//    pMob->damage[DICE_TYPE]	=   0;   /* ROM patch -- Hugin */
//    pMob->damage[DICE_NUMBER]	=   0;   /* ROM patch -- Hugin */
//    pMob->start_pos             =   POS_STANDING; /*  -- Hugin */
//   pMob->default_pos           =   POS_STANDING; /*  -- Hugin */
//    pMob->wealth                =   0;

//    pMob->new_format            = TRUE;  /* ROM */

    return pMob;
}



void free_mob_index( MOB_INDEX_DATA *pMob )
{
    free_mprog( pMob->mprogs );

    free_shop( pMob->pShop );

    pMob->next              = mob_index_free;
    mob_index_free          = pMob;
    return;
}

HELP_DATA *new_help(void)
{
	HELP_DATA *pHelp;
	pHelp =  g_chunk_new (HELP_DATA, HelpID_mem_chunk);
        pHelp->level = 0;
		return pHelp;
}