# HG changeset patch
# User nemo
# Date 1293330940 18000
# Node ID 0fc1ff3414824a6acdec46a05760679a7ef35966
# Parent  831356774a886bda2abb7802638197d1d37fe8b0
add a GetGearElasticity since Mikade kept asking for it.  (actually return *10000 to handle it being an hwFloat - I assume large values will just overflow to negative)

diff -r 831356774a88 -r 0fc1ff341482 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Sat Dec 25 14:52:16 2010 -0500
+++ b/hedgewars/uScript.pas	Sat Dec 25 21:35:40 2010 -0500
@@ -443,6 +443,25 @@
     lc_getgearmessage:= 1
 end;
 
+function lc_getgearelasticity(L : Plua_State) : LongInt; Cdecl;
+var gear : PGear;
+begin
+    if lua_gettop(L) <> 1 then
+        begin
+        LuaError('Lua: Wrong number of parameters passed to GetGearElasticity!');
+        lua_pushnil(L); // return value on stack (nil)
+        end
+    else
+        begin
+        gear:= GearByUID(lua_tointeger(L, 1));
+        if gear <> nil then
+            lua_pushinteger(L, hwRound(gear^.elasticity * _10000))
+        else
+            lua_pushnil(L);
+        end;
+    lc_getgearelasticity:= 1
+end;
+
 function lc_setgearmessage(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
@@ -1504,6 +1523,7 @@
 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft);
 lua_register(luaState, 'CampaignLock', @lc_campaignlock);
 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock);
+lua_register(luaState, 'GetGearElasticity', @lc_getgearelasticity);
 lua_register(luaState, 'GetGearMessage', @lc_getgearmessage);
 lua_register(luaState, 'SetGearMessage', @lc_setgearmessage);
 lua_register(luaState, 'GetRandom', @lc_getrandom);