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; |