type AILivingGroup = class(
AIThing
)
AIThing
> AIBaseObject
function AddMember(aMember: AIThing): boolean; virtual; |
|
procedure CalculateFull; |
|
Constructor Create(aParent: pointer); |
|
Destructor Destroy; override; |
|
procedure Fuel; override; |
|
procedure FullDisplay(aList: TStrings); override; |
|
procedure LoadFromFile(var aFile: TextFile); override; |
|
function OneLineDisplay: string; override; |
|
procedure RemoveMember(aMember: AIThing); |
|
procedure SaveToFile(var aFile: TextFile); override; |
|
function Vacancy: boolean; |
function AddMember(aMember: AIThing): boolean; virtual; |
procedure CalculateFull; |
Constructor Create(aParent: pointer); |
Destructor Destroy; override; |
procedure Fuel; override; |
procedure FullDisplay(aList: TStrings); override; |
procedure LoadFromFile(var aFile: TextFile); override; |
function OneLineDisplay: string; override; |
procedure RemoveMember(aMember: AIThing); |
procedure SaveToFile(var aFile: TextFile); override; |
function Vacancy: boolean; |
property Full: boolean; |
|
property Maximum: integer; |
|
property Members: AIThingReferenceList; |
property Full: boolean; |
property Maximum: integer; |
property Members: AIThingReferenceList; |