From 5996ff324d4123d1b1c6adb1c81eb16dd5e7b466 Mon Sep 17 00:00:00 2001
From: Philipp Sehmisch <tmw@crushnet.org>
Date: Mon, 7 Jul 2008 19:56:02 +0000
Subject: Implemented death listener for scripting engine.

---
 src/scripting/lua.cpp | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

(limited to 'src/scripting/lua.cpp')

diff --git a/src/scripting/lua.cpp b/src/scripting/lua.cpp
index ae9ff1b2..5a9364db 100644
--- a/src/scripting/lua.cpp
+++ b/src/scripting/lua.cpp
@@ -79,6 +79,8 @@ class LuaScript: public Script
         static void getQuestCallback(Character *, std::string const &,
                                      std::string const &, void *);
 
+        void processDeathEvent(Being* thing);
+
     private:
 
         lua_State *mState;
@@ -721,6 +723,33 @@ static int LuaGetBeingsInCircle(lua_State *s)
     return 1;
 }
 
+/**
+ * Makes the server call the lua function deathEvent
+ * with the being ID when the being dies.
+ * tmw.noteOnDeath (being)
+ */
+static int LuaNoteOnDeath(lua_State *s)
+{
+    if (!lua_islightuserdata(s, 1) || lua_gettop(s) != 1)
+    {
+        raiseScriptError(s, "lua_noteOnDeath called with incorrect parameters.");
+        return 0;
+    }
+
+    lua_pushlightuserdata(s, (void *)&registryKey);
+    lua_gettable(s, LUA_REGISTRYINDEX);
+    Script *t = static_cast<Script *>(lua_touserdata(s, -1));
+    Being *being = getBeing(s, 1);
+    if (!being)
+    {
+        raiseScriptError(s, "lua_noteOnDeath called for nonexistent being.");
+        return 0;
+    }
+
+    being->addListener(t->getScriptDeathListener());
+    return 0;
+}
+
 LuaScript::LuaScript():
     nbArgs(-1)
 {
@@ -747,6 +776,7 @@ LuaScript::LuaScript():
         { "trigger_create",         &LuaTrigger_Create   },
         { "chatmessage",            &LuaChatmessage      },
         { "get_beings_in_circle",   &LuaGetBeingsInCircle},
+        { "noteOnDeath",            &LuaNoteOnDeath      },
         { NULL, NULL }
     };
     luaL_register(mState, "tmw", callbacks);
@@ -835,6 +865,17 @@ void LuaScript::load(char const *prog)
     }
 }
 
+void LuaScript::processDeathEvent(Being *being)
+{
+    prepare("deathNotification");
+    push(being);
+    //TODO: get and push a list of creatures who contributed to killing the
+    //      being. This might be very interesting for scripting quests.
+    execute();
+
+    being->removeListener(getScriptDeathListener());
+}
+
 static Script *LuaFactory()
 {
     return new LuaScript();
-- 
cgit v1.2.3-70-g09d2