# HG changeset patch
# User smaxx
# Date 1285185512 -7200
# Node ID 59de68d541f1cdd8e2d1beb86a3a03039b9a0b02
# Parent  9abce54685839c53a8d36a1dbf2c73d5192911bd
Engine:
* (Commit frenzy) Added SetGearMessage(gear : integer, message : integer) to Lua script calls - this should allow easy "script control" of hogs (untested)
* Renamed GearGetMessage() to GetGearMessage()

diff -r 9abce5468583 -r 59de68d541f1 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Wed Sep 22 21:53:29 2010 +0200
+++ b/hedgewars/uScript.pas	Wed Sep 22 21:58:32 2010 +0200
@@ -265,6 +265,20 @@
     lc_getgearmessage:= 1
 end;
 
+function lc_setgearmessage(L : Plua_State) : LongInt; Cdecl;
+var gear : PGear;
+begin
+    if lua_gettop(L) <> 2 then
+        LuaError('Lua: Wrong number of parameters passed to SetGearMessage!')
+    else
+        begin
+        gear:= GearByUID(lua_tointeger(L, 1));
+        if gear <> nil then
+            gear^.message:= lua_tointeger(L, 2);
+        end;
+    lc_setgearmessage:= 0
+end;
+
 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl;
 var gear : PGear;
 begin
@@ -1116,7 +1130,8 @@
 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft);
 lua_register(luaState, 'CampaignLock', @lc_campaignlock);
 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock);
-lua_register(luaState, 'GearGetMessage', @lc_getgearmessage);
+lua_register(luaState, 'GetGearMessage', @lc_getgearmessage);
+lua_register(luaState, 'SetGearMessage', @lc_setgearmessage);
 
 
 ScriptClearStack; // just to be sure stack is empty