[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.328 by root, Tue Nov 3 22:57:06 2009 UTC vs.
Revision 1.331 by root, Thu Nov 5 14:38:47 2009 UTC

   bool matched = count && SvTRUE (TOPs);
   CALL_END;
   return matched;
+}
+object *
+match_one (const char *expr, object *ob, object *self, object *source, object *originator)
+{
+  if (!strncmp (expr, "match ", sizeof ("match ") - 1))
+    expr += sizeof ("match ") - 1;
+  CALL_BEGIN (5);
+  CALL_ARG (expr);
+  CALL_ARG (ob);
+  CALL_ARG (self);
+  CALL_ARG (source);
+  CALL_ARG (originator);
+  CALL_CALL (cv_cf_match_match, G_ARRAY);
+  object *one = 0;
+  if (count)
+    sv_to (TOPs, one);
+  CALL_END;
+  return one;
 }
 /////////////////////////////////////////////////////////////////////////////
 struct EVAPI   *evapi::GEVAPI;
 	CODE:
         player_apply_below (op);
 int cast_heal (object *op, object *caster, object *spell, int dir = 0)
+int casting_level (object *caster, object *spell)
 int pay_item (object *op, object *buyer)
 	CODE:
         RETVAL = pay_for_item (op, buyer);
 	OUTPUT: RETVAL
 object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y)
 	PROTOTYPE: $$$$$$
         CODE:
 {
         RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
+        if (RETVAL->destroyed ())
+          RETVAL = 0;
 }
 shstr
 object::kv_get (shstr key)

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines