# HG changeset patch
# User unc0rr
# Date 1387739815 -14400
# Node ID d4621fb762844eae802a22eb9a7d4585efb49acc
# Parent  c740c865294d052cb3b90aee300c6414d1755f69
 - Fix typo in frontend debug output
 - Expose gravity to scripts (in percents, 100 = normal)

diff -r c740c865294d -r d4621fb76284 QTfrontend/model/ThemeModel.cpp
--- a/QTfrontend/model/ThemeModel.cpp	Sun Dec 22 13:44:28 2013 -0500
+++ b/QTfrontend/model/ThemeModel.cpp	Sun Dec 22 23:16:55 2013 +0400
@@ -62,7 +62,7 @@
 
 void ThemeModel::loadThemes() const
 {
-    qDebug("[LAZINESS ThemeModel::loadThemes()]");
+    qDebug("[LAZINESS] ThemeModel::loadThemes()");
 
     m_themesLoaded = true;
 
diff -r c740c865294d -r d4621fb76284 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Sun Dec 22 13:44:28 2013 -0500
+++ b/hedgewars/uScript.pas	Sun Dec 22 23:16:55 2013 +0400
@@ -1898,6 +1898,28 @@
 end;
 
 
+function lc_getgravity(L : Plua_State) : LongInt; Cdecl;
+begin
+    if lua_gettop(L) <> 0 then
+        LuaParameterCountError('GetGravity', '', lua_gettop(L))
+    else
+        lua_pushinteger(L, hwRound(cGravity * 50 / cWindSpeed));
+    lc_getgravity:= 1
+end;
+
+function lc_setgravity(L : Plua_State) : LongInt; Cdecl;
+begin
+    if lua_gettop(L) <> 1 then
+        LuaParameterCountError('SetGravity', 'gravity', lua_gettop(L))
+    else
+        begin
+        cGravity:= cMaxWindSpeed * lua_tointeger(L, 1) * _0_02;
+        cGravityf:= 0.00025 * lua_tointeger(L, 1) * 0.02
+        end;
+    lc_setgravity:= 0
+end;
+
+
 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
@@ -2574,6 +2596,8 @@
 lua_register(luaState, _P'PlaceGirder', @lc_placegirder);
 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype);
 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle);
+lua_register(luaState, _P'GetGravity', @lc_getgravity);
+lua_register(luaState, _P'SetGravity', @lc_setgravity);
 
 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear);
 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload);