hedgewars/uWorld.pas
changeset 7721 2b1ad418ba39
parent 7645 0e3c2dd9fee6
child 7840 7d86dbcd6325
equal deleted inserted replaced
7720:8e6b79a020f8 7721:2b1ad418ba39
    41 procedure MoveCamera;
    41 procedure MoveCamera;
    42 procedure onFocusStateChanged;
    42 procedure onFocusStateChanged;
    43 
    43 
    44 implementation
    44 implementation
    45 uses
    45 uses
    46     uStore,
    46     uStore
    47     uMisc,
    47     , uMisc
    48     uIO,
    48     , uIO
    49     uLocale,
    49     , uLocale
    50     uSound,
    50     , uSound
    51     uAmmos,
    51     , uAmmos
    52     uVisualGears,
    52     , uVisualGears
    53     uChat,
    53     , uChat
    54     uLandTexture,
    54     , uLandTexture
    55     GLunit,
    55     , GLunit
    56     uVariables,
    56     , uVariables
    57     uUtils,
    57     , uUtils
    58     uTextures,
    58     , uTextures
    59     uRender,
    59     , uRender
    60     uCaptions,
    60     , uCaptions
    61     uCursor,
    61     , uCursor
    62     uCommands,
    62     , uCommands
    63     uMobile,
    63     , uMobile
    64     uVideoRec
    64 {$IFDEF USE_VIDEO_RECORDING}    
       
    65     , uVideoRec
       
    66 {$ENDIF}    
    65     ;
    67     ;
    66 
    68 
    67 var cWaveWidth, cWaveHeight: LongInt;
    69 var cWaveWidth, cWaveHeight: LongInt;
    68     AMShiftTargetX, AMShiftTargetY, AMShiftX, AMShiftY, SlotsNum: LongInt;
    70     AMShiftTargetX, AMShiftTargetY, AMShiftX, AMShiftY, SlotsNum: LongInt;
    69     AMAnimStartTime, AMState : LongInt;
    71     AMAnimStartTime, AMState : LongInt;