equal
deleted
inserted
replaced
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; |