type AIPlant = class(AILivingThing)
AILivingThing
AIThing
AIBaseObject
function IsPlant: boolean; override;