--- deliantra/server/include/cfperl.h	2009/11/03 23:44:20	1.109
+++ deliantra/server/include/cfperl.h	2009/11/05 14:38:48	1.110
@@ -106,8 +106,10 @@
 void cfperl_mapscript_activate (object *ob, int state, object *activator, object *originator = 0);
 
 bool is_match_expr (const char *expr);
-/* applies the match expression and returns true if it matches */
+// applies the match expression and returns true if it matches
 bool match (const char *expr, object *ob, object *self = 0, object *source = 0, object *originator = 0);
+// same as above, but returns the first object found, or 0
+object *match_one (const char *expr, object *ob, object *self = 0, object *source = 0, object *originator = 0);
 
 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////