TNewPlayer.Headgear

property TNewPlayer.Headgear: Byte
 Acess mode: RW

Description

Number representing what a certain player (i.e. bot) is going to wear on the head. Available values:

0: Nothing
1: Helmet
2: Hat

Example

   var
    MyBot: TNewPlayer;
  begin
    MyBot := TNewPlayer.Create;
    try
      MyBot.Name := 'Cool test bot!';
      MyBot.Team := 1;
      MyBot.Headgear := 0; //nothing on the head
      MyBot.PantsColor := $FFFFFFFF;
      MyBot.SkinColor := $FFFFFFFF;
      Players.Add(MyBot);
    finally
      MyBot.Free;
    end;
  end;