--- a/hedgewars/uScript.pas	Mon Jun 10 23:50:36 2013 +0300
+++ b/hedgewars/uScript.pas	Tue Jun 11 00:05:07 2013 +0300
@@ -1337,11 +1337,11 @@
     lc_sendstat:= 0
 end;
 
-function lc_sendstatsoff(L : Plua_State) : LongInt; Cdecl;
+function lc_sendhealthstatsoff(L : Plua_State) : LongInt; Cdecl;
 begin
     L:= L; // avoid compiler hint
-    uStats.SendStatsOn := false;
-    lc_sendstatsoff:= 0
+    uStats.SendHealthStatsOn := false;
+    lc_sendhealthstatsoff:= 0
 end;
 
 function lc_findplace(L : Plua_State) : LongInt; Cdecl;
@@ -2442,7 +2442,7 @@
 lua_register(luaState, _P'GetGearType', @lc_getgeartype);
 lua_register(luaState, _P'EndGame', @lc_endgame);
 lua_register(luaState, _P'SendStat', @lc_sendstat);
-lua_register(luaState, _P'SendStatsOff', @lc_sendstatsoff);
+lua_register(luaState, _P'SendHealthStatsOff', @lc_sendhealthstatsoff);
 lua_register(luaState, _P'FindPlace', @lc_findplace);
 lua_register(luaState, _P'SetGearPosition', @lc_setgearposition);
 lua_register(luaState, _P'GetGearPosition', @lc_getgearposition);

--- a/hedgewars/uStats.pas	Mon Jun 10 23:50:36 2013 +0300
+++ b/hedgewars/uStats.pas	Tue Jun 11 00:05:07 2013 +0300
@@ -24,7 +24,7 @@
 
 var TotalRounds: LongInt;
     FinishedTurnsTotal: LongInt;
-    SendStatsOn : boolean = true;
+    SendHealthStatsOn : boolean = true;
     
 procedure initModule;
 procedure freeModule;
@@ -164,7 +164,7 @@
                 StepDamageGiven:= 0
                 end;
                 
-if SendStatsOn then
+if SendHealthStatsOn then
 	for t:= 0 to Pred(ClansCount) do
 		with ClansArray[t]^ do
 			begin
@@ -209,7 +209,7 @@
     maxTeamDamageName : shortstring;
     winnersClan : PClan;
 begin
-if SendStatsOn then
+if SendHealthStatsOn then
 	msd:= 0; msdhh:= nil;
 	msk:= 0; mskhh:= nil;
 	mskcnt:= 0;