type AINet = class(AIThing)
AIThing > AIBaseObject|  | Constructor Create(aParent: pointer); | 
|  | Destructor Destroy; override; | 
|  | procedure Fuel; override; | 
|  | procedure Goal; | 
|  | procedure Perform(aActivity: integer); override; | 
|  | Constructor Create(aParent: pointer); | 
|  | Destructor Destroy; override; | 
|  | procedure Fuel; override; | 
|  | procedure Goal; | 
add time
|  | procedure Perform(aActivity: integer); override; | 
|  | property NetSize: single; | 
|  | property Score: integer; | 
|  | property TeamOwner: AIThing; | 
|  | property NetSize: single; | 
|  | property Score: integer; | 
|  | property TeamOwner: AIThing; |