hedgewars/uScript.pas
changeset 4235 6b1dfbd60a45
parent 4221 a1bf0f6b0d65
child 4236 fa2680cfff86
--- a/hedgewars/uScript.pas	Tue Nov 09 22:44:12 2010 -0500
+++ b/hedgewars/uScript.pas	Wed Nov 10 18:34:11 2010 +0100
@@ -51,7 +51,8 @@
     uSound,
     uTeams,
     uKeys,
-    uChat;
+    uChat,
+    uStats;
 
 var luaState : Plua_State;
     ScriptAmmoLoadout : shortstring;
@@ -882,7 +883,8 @@
     ScriptApplyAmmoStore
     end;
 
-ScriptSetInteger('ClansCount', ClansCount)
+ScriptSetInteger('ClansCount', ClansCount);
+ScriptSetInteger('TeamsCount', TeamsCount)
 end;
 
 procedure ScriptLoad(name : shortstring);
@@ -908,6 +910,7 @@
 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);
 ScriptSetInteger('GameTime', GameTicks);
 ScriptSetInteger('RealTime', RealTicks);
+ScriptSetInteger('TotalRounds', TotalRounds);
 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then
     ScriptSetInteger('CurrentHedgehog', CurrentHedgehog^.Gear^.UID)
 else