From 26d8eba0ad906cd9b4a95bbd94fc1556719fd5d2 Mon Sep 17 00:00:00 2001
From: Philipp Sehmisch <mana@crushnet.org>
Date: Fri, 9 Jul 2010 15:21:50 +0200
Subject: Added LUA script bindings for manipulating the specials available to
 a character.

Added script call for getting the cost of a special (recharge only for now)

Deleting specials works server-sided but the client isn't informed about it properly. Specials without recharge cost don't appear for the player. Both of these features require an additional netcode message.

Reviewed-by: Freeyorp
---
 src/scripting/lua.cpp | 76 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)

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

diff --git a/src/scripting/lua.cpp b/src/scripting/lua.cpp
index ca916248..2d9562ed 100644
--- a/src/scripting/lua.cpp
+++ b/src/scripting/lua.cpp
@@ -1453,6 +1453,79 @@ static int chr_get_kill_count(lua_State *s)
 }
 
 
+/**
+ * Enables a special for a character
+ * mana.chr_give_special (character, special)
+ */
+static int chr_give_special(lua_State *s)
+{
+    // cost_type is ignored until we have more than one cost type
+    Character *c = getCharacter(s, 1);
+    if (!c)
+    {
+        raiseScriptError(s, "chr_give_special called for nonexistent character.");
+        return 0;
+    }
+    if (!lua_isnumber(s, 2))
+    {
+        raiseScriptError(s, "chr_give_special called with incorect parameters");
+        return 0;
+    }
+    int special = lua_tointeger(s, 2);
+
+    c->giveSpecial(special);
+    return 0;
+}
+
+/**
+ * Checks if a character has a special and returns true or false
+ * mana.chr_has_special (character, special)
+ */
+static int chr_has_special(lua_State *s)
+{
+    Character *c = getCharacter(s, 1);
+    if (!c)
+    {
+        raiseScriptError(s, "chr_has_special called for nonexistent character.");
+        return 0;
+    }
+    if (!lua_isnumber(s, 2))
+    {
+        raiseScriptError(s, "chr_has_special called with incorect parameters");
+        return 0;
+    }
+    int special = lua_tointeger(s, 2);
+
+    lua_pushboolean(s, c->hasSpecial(special));
+    return 1;
+}
+
+/**
+ * Removes a special from a character
+ * mana.chr_take_special (character, special)
+ */
+static int chr_take_special(lua_State *s)
+{
+    Character *c = getCharacter(s, 1);
+    if (!c)
+    {
+        raiseScriptError(s, "chr_take_special called for nonexistent character.");
+        return 0;
+    }
+    if (!lua_isnumber(s, 2))
+    {
+        raiseScriptError(s, "chr_take_special called with incorect parameters");
+        return 0;
+    }
+    int special = lua_tointeger(s, 2);
+
+    lua_pushboolean(s, c->hasSpecial(special));
+    c->takeSpecial(special);
+    return 1;
+}
+
+
+
 /**
  * Returns the rights level of a character.
  * mana.chr_get_rights (being)
@@ -1650,6 +1723,9 @@ LuaScript::LuaScript():
         { "chr_set_hair_color",     &chr_set_hair_color   },
         { "chr_get_hair_color",     &chr_get_hair_color   },
         { "chr_get_kill_count",     &chr_get_kill_count   },
+        { "chr_give_special",       &chr_give_special     },
+        { "chr_has_special",        &chr_has_special      },
+        { "chr_take_special",       &chr_take_special     },
         { "exp_for_level",          &exp_for_level        },
         { "monster_create",         &monster_create       },
         { "monster_load_script",    &monster_load_script  },
-- 
cgit v1.2.3-70-g09d2