Script binding for the new screen shake effect.

The new lua function mana.chr_shake_screen can cause a screen shake
for a single client with variable x-intensity, y-intensity, decay and
duration.

I also added an example script which causes tremors for nearby characters
with intensity and direction relative to a specific point. The function
is not referenced on the example map because it is quite distracting.

2 files changed, 46 insertions, 0 deletions

diff --git a/src/manaserv_protocol.h b/src/manaserv_protocol.h
index 978187dc..337f2e27 100644
--- a/src/manaserv_protocol.h
+++ b/src/manaserv_protocol.h
@@ -163,6 +163,7 @@ enum {
     GPMSG_BEINGS_DAMAGE            = 0x0310, // { W being id, W amount }*
     GPMSG_CREATE_EFFECT_POS        = 0x0320, // W effect id, W*2 position
     GPMSG_CREATE_EFFECT_BEING      = 0x0321, // W effect id, W BeingID
+    GPMSG_SHAKE                    = 0x0330, // W intensityX, W intensityY, [W decay_times_10000, [W duration]]

 
     // Guild
     PCMSG_GUILD_CREATE                  = 0x0350, // S name
diff --git a/src/scripting/lua.cpp b/src/scripting/lua.cpp
index 6f36bb95..11f42f50 100644
--- a/src/scripting/lua.cpp
+++ b/src/scripting/lua.cpp
@@ -1395,6 +1395,50 @@ static int effect_create(lua_State *s)
     return 0;
 }
 
+
+
+/**
+ *
+ * mana.chr_shake_screen(
+ */
+static int chr_shake_screen(lua_State *s)
+{
+    Character *c = getCharacter(s, 1);
+    if (!c)
+    {
+        raiseScriptError(s, "lua chr_shake_screen called for nonexistent character.");
+        return 0;
+    }
+
+    MessageOut msg(GPMSG_SHAKE);
+    if(!lua_isnumber(s, 2) || !lua_isnumber(s, 3))
+    {
+        raiseScriptError(s, "lua chr_shake_screen called with illegal arguments.");
+        return 0;
+    }
+    else
+    {
+        int x = lua_tointeger(s, 2);
+        int y = lua_tointeger(s, 3);
+        msg.writeInt16(x);
+        msg.writeInt16(y);
+    }
+    if(lua_isnumber(s, 4))
+    {
+        msg.writeInt16((int)lua_tonumber(s, 4) * 10000);
+    }
+    if(lua_isnumber(s, 5))
+    {
+        msg.writeInt16(lua_tointeger(s, 5));
+    }
+    c->getClient()->send(msg);
+
+    return 0;
+}
+
+
+
+
 /**
  * Gets the exp total in a skill of a specific character
  * mana.chr_get_exp (being, skill)
@@ -1840,6 +1884,7 @@ LuaScript::LuaScript():
         { "get_beings_in_circle",            &get_beings_in_circle            },
         { "being_register",                  &being_register                  },
         { "effect_create",                   &effect_create                   },
+        { "chr_shake_screen",                &chr_shake_screen                },
         { "test_tableget",                   &test_tableget                   },
         { "get_map_id",                      &get_map_id                      },
         { "item_drop",                       &item_drop                       },