--- deliantra/server/plugins/cfperl/cfperl.xs	2006/05/07 19:24:27	1.51
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/06/12 13:25:27	1.54
@@ -429,6 +429,7 @@
   registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
+  registerGlobalEvent (NULL, EVENT_EXTCMD, PLUGIN_NAME, globalEventListener);
 
   char *argv[] = {
     "",
@@ -544,6 +545,15 @@
             PUSH_PV;
             break;
 
+          case EVENT_EXTCMD:
+            PUSH_PL;
+            {
+              char *buf = va_arg (args, char *);
+              int len = va_arg (args, int);
+              PUSHs (sv_2mortal (newSVpvn (buf, len)));
+            }
+            break;
+
           case EVENT_CLOCK:
             clean_obj_cache ();
             break;
@@ -1165,6 +1175,7 @@
     const_event (TELL)
     const_event (MUZZLE)
     const_event (KICK)
+    const_event (EXTCMD)
     //const_event (FREE_OB)
   };
 
@@ -1492,11 +1503,6 @@
 
 void cf_object_pickup (object *op, object *what)
 
-char *cf_object_get_key (object *op, char *keyname)
-	ALIAS: key = 0
-
-void cf_object_set_key (object *op, char *keyname, char *value)
-
 object *cf_create_object_by_name (const char *name)
 
 void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
@@ -1640,6 +1646,24 @@
         RETVAL = pl->next;
         OUTPUT: RETVAL
 
+bool
+cell_visible (player *pl, int dx, int dy)
+	CODE:
+        RETVAL = FABS (dx) <= pl->socket.mapx / 2 && FABS (dy) <= pl->socket.mapy / 2
+                 && !pl->blocked_los [dx + pl->socket.mapx / 2][dy + pl->socket.mapy / 2];
+        OUTPUT:
+        RETVAL
+
+void
+send (player *pl, SV *packet)
+	CODE:
+{
+	STRLEN len;
+	char *buf = SvPVbyte (packet, len);
+
+        Write_String_To_Socket (&pl->socket, buf, len);
+}
+
 int
 listening (player *pl, int new_value = -1)
 	CODE:
@@ -1764,19 +1788,39 @@
 object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny)
         C_ARGS: str, map, nx, ny
 
-#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 *nx, I16 *ny)
+void
+cf_map_normalise (mapstruct *map, int x, int y)
+	PPCODE:
+{
+        mapstruct *nmap = 0;
+        I16 nx = 0, ny = 0;
+        int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
+
+        EXTEND (SP, 4);
+        PUSHs (sv_2mortal (newSViv (flags)));
+
+        if (GIMME_V == G_ARRAY)
+          {
+            PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));
+            PUSHs (sv_2mortal (newSViv (nx)));
+            PUSHs (sv_2mortal (newSViv (ny)));
+          }
+}
 
 void
-at (mapstruct *obj, unsigned int x, unsigned int y)
+at (mapstruct *map, unsigned int x, unsigned int y)
 	PROTOTYPE: $$$
-        INIT:
-	if (x >= MAP_WIDTH (obj) || y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
         PPCODE:
 {
 	object *o;
-        
-	for (o = GET_MAP_OB (obj, x, y); o; o = o->above)
-          XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
+        mapstruct *nmap = 0;
+        I16 nx, ny;
+
+        cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
+
+        if (nmap)
+          for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
+            XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
 }
 
 SV *