hedgewars/uGame.pas
changeset 3465 b290993c0810
parent 3463 23c50be687a9
child 3663 8c28abf427f5
equal deleted inserted replaced
3464:cdb0ddeb38ba 3465:b290993c0810
    24 procedure DoGameTick(Lag: LongInt);
    24 procedure DoGameTick(Lag: LongInt);
    25 
    25 
    26 ////////////////////
    26 ////////////////////
    27    implementation
    27    implementation
    28 ////////////////////
    28 ////////////////////
    29 uses uMisc, uConsts, uTeams, uIO, uAI, uGears, uScript;
    29 uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript;
    30 
    30 
    31 procedure DoGameTick(Lag: LongInt);
    31 procedure DoGameTick(Lag: LongInt);
    32 var i: LongInt;
    32 var i: LongInt;
    33 begin
    33 begin
    34 if isPaused then exit;
    34 if isPaused then exit;