111             @doStepSmoothWindBar,

   111             @doStepSmoothWindBar,

   112             @doStepStraightShot

   112             @doStepStraightShot

   113         );

   113         );

   114 

   114 

   115 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;

   115 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;

   117 var gear: PVisualGear;

   116 var gear: PVisualGear;

   118     t: Longword;

   117     t: Longword;

   119     sp: real;

   118     sp: real;

   120 begin

   119 begin

   121 AddVisualGear:= nil;

   120 AddVisualGear:= nil;

   978 end;

   977 end;

   979 

   978 

   980 procedure initModule;

   979 procedure initModule;

   981 var i: LongWord;

   980 var i: LongWord;

   982 begin

   981 begin

   983 for i:= 0 to 6 do

   983 for i:= 0 to 6 do

   984     VisualGearLayers[i]:= nil;

   984     VisualGearLayers[i]:= nil;

   985 end;

   985 end;

   986 

   986 

   987 procedure freeModule;

   987 procedure freeModule;

   988 var i: LongWord;

   988 var i: LongWord;

   989 begin

   989 begin

   990 for i:= 0 to 6 do

   991 for i:= 0 to 6 do

   991     while VisualGearLayers[i] <> nil do DeleteVisualGear(VisualGearLayers[i]);

   992     while VisualGearLayers[i] <> nil do DeleteVisualGear(VisualGearLayers[i]);

   992 end;

   993 end;

   993 

   994 

   994 end.

   995 end.