--- 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;