27  * of visual nature.

    27  * of visual nature.

    28  *

    28  *

    29  * E.g.: background flakes, visual effects: explosion, smoke trails, etc.

    29  * E.g.: background flakes, visual effects: explosion, smoke trails, etc.

    30  *)

    30  *)

    31 interface

    31 interface

    33 

    33 

    34 procedure initModule;

    34 procedure initModule;

    35 procedure freeModule;

    35 procedure freeModule;

    36 

    36 

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

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