type AIEvolvingTree = class(
AIEvolvingPlant
)
AIEvolvingPlant
> AIPlant
> AILivingThing
> AIThing
> AIBaseObject
![]() |
procedure Cease; override; |
![]() |
Constructor Create(aParent: pointer); |
![]() |
function Digest(const aAmount: integer): integer; override; |
![]() |
procedure Fuel; override; |
![]() |
procedure FullDisplay(aList: TStrings); override; |
![]() |
procedure LoadFromFile(var aFile: TextFile); override; |
![]() |
procedure Perform(aActivity: integer); override; |
![]() |
procedure SaveToFile(var aFile: TextFile); override; |
![]() |
procedure Cease; override; |
![]() |
Constructor Create(aParent: pointer); |
![]() |
function Digest(const aAmount: integer): integer; override; |
![]() |
procedure Fuel; override; |
![]() |
procedure FullDisplay(aList: TStrings); override; |
![]() |
procedure LoadFromFile(var aFile: TextFile); override; |
![]() |
procedure Perform(aActivity: integer); override; |
![]() |
procedure SaveToFile(var aFile: TextFile); override; |