--- deliantra/server/common/readable.C	2006/09/14 22:34:00	1.9
+++ deliantra/server/common/readable.C	2006/12/12 21:39:56	1.13
@@ -817,6 +817,7 @@
 
   if (did_init_mon_info)
     return;
+
   did_init_mon_info = 1;
 
 
@@ -824,15 +825,15 @@
     {
       if (QUERY_FLAG (&at->clone, FLAG_MONSTER) && (!QUERY_FLAG (&at->clone, FLAG_CHANGING) || QUERY_FLAG (&at->clone, FLAG_UNAGGRESSIVE)))
         {
-          objectlink *mon = (objectlink *) malloc (sizeof (objectlink));
+          objectlink *mon = new objectlink;
 
           mon->ob = &at->clone;
-          mon->id = nrofmon;
           mon->next = first_mon_info;
           first_mon_info = mon;
           nrofmon++;
         }
     }
+
   LOG (llevDebug, "init_mon_info() got %d monsters\n", nrofmon);
 }
 
@@ -851,6 +852,7 @@
 
   if (did_this)
     return;
+
   did_this = 1;
 
   LOG (llevDebug, "Initializing reading data...");
@@ -1099,8 +1101,8 @@
                 if ((tmpbook = get_archetype (t->archname)) != NULL)
                   {
                     tmpbook->msg = book->msg;
-                    copy_object (tmpbook, book);
-                    free_object (tmpbook);
+                    tmpbook->copy_to (book);
+                    tmpbook->destroy ();
                   }
 
                 book->title = t->authour;
@@ -1467,13 +1469,13 @@
         strcat (buf, art->item->msg);
 
       /* properties of the artifact */
-      tmp = get_object ();
+      tmp = object::create ();
       add_abilities (tmp, art->item);
       tmp->type = type;
       SET_FLAG (tmp, FLAG_IDENTIFIED);
       if ((ch = describe_item (tmp, NULL)) != NULL && strlen (ch) > 1)
         sprintf (buf, "%s Properties of this artifact include: \n %s \n", buf, ch);
-      free_object (tmp);
+      tmp->destroy ();
       /* add the buf if it will fit */
       if (!book_overflow (retbuf, buf, booksize))
         strcat (retbuf, buf);
@@ -1980,6 +1982,7 @@
     }
 
   strcat (msgbuf, "\n");        /* safety -- we get ugly map saves/crashes w/o this */
+
   if (strlen (msgbuf) > 1)
     {
       book->msg = msgbuf;
@@ -2018,15 +2021,17 @@
 
       delete tlist;
     }
+
   for (lmsg = first_msg; lmsg; lmsg = nextmsg)
     {
       nextmsg = lmsg->next;
       delete lmsg;
     }
+
   for (monlink = first_mon_info; monlink; monlink = nextmon)
     {
       nextmon = monlink->next;
-      free (monlink);
+      delete monlink;
     }
 }