42 implementation

    42 implementation

    43 

    43 

    44 ///////////////////////////////////////////////////////////////////////////////

    44 ///////////////////////////////////////////////////////////////////////////////

    45 function DoTimer(Lag: LongInt): boolean;

    45 function DoTimer(Lag: LongInt): boolean;

    46 var s: shortstring;

    46 var s: shortstring;

    47 begin

    48 begin

    48     DoTimer:= false;

    49     DoTimer:= false;

    49     inc(RealTicks, Lag);

    50     inc(RealTicks, Lag);

    50 

    51 

    51     case GameState of

    52     case GameState of

    77                 SetSound(false);

    78                 SetSound(false);

    78             FinishProgress;

    79             FinishProgress;

    79             PlayMusic;

    80             PlayMusic;

    80             InitZoom(zoom);

    81             InitZoom(zoom);

    81             ScriptCall('onGameStart');

    82             ScriptCall('onGameStart');

    82             GameState:= gsGame;

    87             GameState:= gsGame;

    83             end;

    88             end;

    84         gsConfirm, gsGame, gsChat:

    89         gsConfirm, gsGame, gsChat:

    85             begin

    90             begin

    86             if not cOnlyStats then

    91             if not cOnlyStats then