From 8900f7ccec26fb3e875c922ad5ececf3d6327441 Mon Sep 17 00:00:00 2001
From: Erik Schilling <ablu.erikschilling@googlemail.com>
Date: Wed, 17 Aug 2011 03:01:22 +0800
Subject: Added LUA function for changing anger of monsters.

You now can change the anger of a monster to a being using
mana.monster_change_anger(monster, being, anger)

Resolves: Mana-Mantis #366.
---
 src/scripting/lua.cpp | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

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

diff --git a/src/scripting/lua.cpp b/src/scripting/lua.cpp
index 47bf3358..cfc07f10 100644
--- a/src/scripting/lua.cpp
+++ b/src/scripting/lua.cpp
@@ -1123,6 +1123,35 @@ static int monster_get_name(lua_State *s)
     return 1;
 }
 
+/**
+ * mana.monster_change_anger(Monster*, Being*, int anger)
+ * Makes a monster angry at a being
+ */
+static int monster_change_anger(lua_State *s)
+{
+    const int anger = luaL_checkint(s, 3);
+    if (!lua_islightuserdata(s, 1))
+    {
+        lua_pushboolean(s, false);
+        return 1;
+    }
+    Monster *m = dynamic_cast<Monster *>((Thing *)lua_touserdata(s, 1));
+    if (!m)
+    {
+        raiseScriptError(s, "monster_change_anger called "
+                         "for a nonexisting monster");
+        return 0;
+    }
+    Being *being = getBeing(s, 2);
+    if (!being)
+    {
+        raiseScriptError(s, "monster_change_anger called "
+                         "for a nonexisting being");
+    }
+    m->changeAnger(being, anger);
+    return 0;
+}
+
 /**
  * mana.monster_remove(Monster*): bool success
  * Remove a monster object without kill event.
@@ -2147,6 +2176,7 @@ LuaScript::LuaScript():
         { "exp_for_level",                   &exp_for_level                   },
         { "monster_create",                  &monster_create                  },
         { "monster_get_name",                &monster_get_name                },
+        { "monster_change_anger",            &monster_change_anger            },
         { "monster_remove",                  &monster_remove                  },
         { "monster_load_script",             &monster_load_script             },
         { "being_apply_status",              &being_apply_status              },
-- 
cgit v1.2.3-70-g09d2