type AIGrass = class(
AIPlant
)
AIPlant
> AILivingThing
> AIThing
> AIBaseObject
Constructor Create(aParent: pointer); |
|
procedure Fuel; override; |
|
procedure Grow; |
|
function IsFruit: boolean; override; |
Constructor Create(aParent: pointer); |
procedure Fuel; override; |
procedure Grow; |
function IsFruit: boolean; override; |