262                     if (GameState >= gsGame) then ProcessMouse(event.button, false);

   262                     if (GameState >= gsGame) then ProcessMouse(event.button, false);

   263 

   263 

   264                 SDL_MOUSEWHEEL:

   264                 SDL_MOUSEWHEEL:

   265                     begin

   265                     begin

   266                     wheelEvent:= true;

   266                     wheelEvent:= true;

   268                     ProcessMouseWheel(event.wheel.y);

   267                     ProcessMouseWheel(event.wheel.y);

   269                     end;

   268                     end;

   270 {$ENDIF}

   269 {$ENDIF}

   271 

   270 

   272                 SDL_JOYAXISMOTION:

   271                 SDL_JOYAXISMOTION:

   352 end;

   351 end;

   353 {$ENDIF}

   352 {$ENDIF}

   354 

   353 

   355 ///////////////////////////////////////////////////////////////////////////////

   354 ///////////////////////////////////////////////////////////////////////////////

   356 procedure GameRoutine;

   355 procedure GameRoutine;

   358 var s: shortstring;

   356 var s: shortstring;

   359     i: LongInt;

   357     i: LongInt;

   360 begin

   358 begin

   361 {$IFDEF PAS2C}

   359 {$IFDEF PAS2C}

   362     AddFileLog('Generated using pas2c');

   360     AddFileLog('Generated using pas2c');

   378         SDLCheck(TTF_Init() <> -1, 'TTF_Init', true);

   376         SDLCheck(TTF_Init() <> -1, 'TTF_Init', true);

   379         WriteLnToConsole(msgOK);

   377         WriteLnToConsole(msgOK);

   380         end;

   378         end;

   381 

   379 

   382     if not allOK then exit;

   380     if not allOK then exit;

   384     SDL_ShowCursor(0);

   381     SDL_ShowCursor(0);

   385 

   382 

   386 

   383 

   387 {$IFDEF USE_VIDEO_RECORDING}

   384 {$IFDEF USE_VIDEO_RECORDING}

   388     if GameType = gmtRecord then

   385     if GameType = gmtRecord then

   448 

   445 

   449     InitSound();

   446     InitSound();

   450 

   447 

   451     isDeveloperMode:= false;

   448     isDeveloperMode:= false;

   452     if checkFails(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true) then exit;

   449     if checkFails(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true) then exit;

   454     if not allOK then exit;

   450     if not allOK then exit;

   455 

   451 

   456 {$IFDEF USE_VIDEO_RECORDING}

   452 {$IFDEF USE_VIDEO_RECORDING}

   457     if GameType = gmtRecord then

   453     if GameType = gmtRecord then

   458     begin

   454     begin