--- deliantra/server/plugins/cfperl/cfperl.xs	2006/07/24 23:25:26	1.64
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/08/12 11:51:38	1.65
@@ -422,6 +422,7 @@
   //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_FIND_UNARMED_SKILL, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_PLAYER_USE_SKILL, PLUGIN_NAME, globalEventListener);
+  registerGlobalEvent (NULL, EVENT_CAST_SPELL, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
@@ -594,6 +595,7 @@
 
           case EVENT_PLAYER_USE_SKILL:
           case EVENT_MONSTER_USE_SKILL:
+          case EVENT_CAST_SPELL:
             PUSH_OB;
             PUSH_OB;
             PUSH_OB;
@@ -1270,6 +1272,7 @@
     const_event (KICK)
     const_event (PLAYER_USE_SKILL)
     const_event (MONSTER_USE_SKILL)
+    const_event (CAST_SPELL)
     const_event (FIND_UNARMED_SKILL)
     const_event (EXTCMD)
     //const_event (FREE_OB)
@@ -2136,6 +2139,9 @@
 const char *cf_archetype_get_name (archetype *arch)
 	ALIAS: name = 0
 
+object *cf_archetype_get_clone (archetype *arch)
+	ALIAS: clone = 0
+
 MODULE = cf        PACKAGE = cf::party          PREFIX = cf_party_
 
 partylist *cf_party_get_first ()