hedgewars/uVisualGears.pas
changeset 5855 74c621e12baa
parent 5832 f730c8a9777b
child 5874 5cd329cf2460
equal deleted inserted replaced
5854:2f52e422ce9e 5855:74c621e12baa
    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
    32 uses uConsts, uFloat, GLunit, uTypes;
    32 uses uConsts, uFloat, GLunit, uTypes, uWorld;
    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;