hedgewars/uGame.pas
changeset 2786 85f6425a4d74
parent 2716 b9ca1bfca24f
child 2814 71e80c6e74bb
--- a/hedgewars/uGame.pas	Tue Feb 09 21:51:52 2010 +0000
+++ b/hedgewars/uGame.pas	Wed Feb 10 00:55:40 2010 +0000
@@ -27,7 +27,7 @@
 ////////////////////
    implementation
 ////////////////////
-uses uMisc, uConsts, uWorld, uKeys, uTeams, uIO, uAI, uGears, uConsole;
+uses uMisc, uConsts, uWorld, uKeys, uTeams, uIO, uAI, uGears, uConsole, uScript;
 
 procedure DoGameTick(Lag: LongInt);
 var i: LongInt;
@@ -46,6 +46,7 @@
 i:= 1;
 while (GameState <> gsExit) and (i <= Lag) do
     begin
+	ScriptCall('onGameTick');
     if not CurrentTeam^.ExtDriven then
        begin
        if CurrentHedgehog^.BotLevel <> 0 then ProcessBot;