--- deliantra/server/plugins/cfperl/cfperl.xs	2006/03/07 13:59:57	1.32
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/03/16 21:08:20	1.33
@@ -458,6 +458,8 @@
   registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
+  registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
+  registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
 
   char *argv[] = {
     "",
@@ -513,6 +515,14 @@
         printf ("Unimplemented for now\n");
         break;
 
+      case EVENT_PLAYER_LOAD:
+      case EVENT_PLAYER_SAVE:
+        context.who = va_arg (args, object *);
+        buf = va_arg (args, char *);
+        if (buf != 0)
+          strncpy (context.message, buf, sizeof (context.message));
+        break;
+
       case EVENT_MAPLOAD:
       case EVENT_MAPOUT:
       case EVENT_MAPIN:
@@ -655,6 +665,7 @@
     const_iv (llevMonster)
 
     const_iv (PLAYER)
+    const_iv (TRANSPORT)
     const_iv (ROD)
     const_iv (TREASURE)
     const_iv (POTION)
@@ -669,7 +680,6 @@
     const_iv (ARMOUR)
     const_iv (PEDESTAL)
     const_iv (ALTAR)
-    const_iv (CONFUSION)
     const_iv (LOCKED_DOOR)
     const_iv (SPECIAL_KEY)
     const_iv (MAP)
@@ -780,6 +790,7 @@
 
     const_iv (ST_BD_BUILD)
     const_iv (ST_BD_REMOVE)
+
     const_iv (ST_MAT_FLOOR)
     const_iv (ST_MAT_WALL)
     const_iv (ST_MAT_ITEM)
@@ -1019,6 +1030,8 @@
     const_event (CLOCK)
     const_event (CRASH)
     const_event (PLAYER_DEATH)
+    const_event (PLAYER_LOAD)
+    const_event (PLAYER_SAVE)
     const_event (GKILL)
     const_event (LOGIN)
     const_event (LOGOUT)