hedgewars/uScript.pas
branchwebgl
changeset 8833 c13ebed437cb
parent 8444 75db7bb8dce8
parent 8473 555235e90010
child 9127 e350500c4edb
--- a/hedgewars/uScript.pas	Wed Feb 20 02:21:58 2013 +0100
+++ b/hedgewars/uScript.pas	Tue Apr 02 21:00:57 2013 +0200
@@ -1280,10 +1280,8 @@
 
 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
 begin
-   {$IFNDEF PAS2C}
     L:= L; // avoid compiler hint
-   {$ENDIF}
-    GameState:= gsExit;
+    AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
     lc_endgame:= 0
 end;
 
@@ -2048,7 +2046,6 @@
 begin
 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);
 ScriptSetInteger('GameTime', GameTicks);
-ScriptSetInteger('RealTime', RealTicks);
 ScriptSetInteger('TotalRounds', TotalRounds);
 ScriptSetInteger('WaterLine', cWaterLine);
 if GameTicks = 0 then