hedgewars/uTeams.pas
changeset 6992 b8f3d8991e92
parent 6990 40e5af28d026
child 7001 89488f5b99ca
equal deleted inserted replaced
6991:1ec44dde5eb9 6992:b8f3d8991e92
    18 
    18 
    19 {$INCLUDE "options.inc"}
    19 {$INCLUDE "options.inc"}
    20 
    20 
    21 unit uTeams;
    21 unit uTeams;
    22 interface
    22 interface
    23 uses uConsts, uInputHandler, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uTypes, uWorld;
    23 uses uConsts, uInputHandler, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uTypes{$IFDEF USE_TOUCH_INTERFACE}, uWorld{$ENDIF};
    24 
    24 
    25 procedure initModule;
    25 procedure initModule;
    26 procedure freeModule;
    26 procedure freeModule;
    27 
    27 
    28 function  AddTeam(TeamColor: Longword): PTeam;
    28 function  AddTeam(TeamColor: Longword): PTeam;