hedgewars/uTeams.pas
changeset 6954 a61458a81480
parent 6924 57b66ee3bff3
child 6961 d5ac09894a1b
equal deleted inserted replaced
6953:4c2dd25630a7 6954:a61458a81480
    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, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uTypes, uWorld;
    23 uses uConsts, uInputHandler, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uTypes, uWorld;
    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;