Class AILightning

Unit

type AILightning = class(AIThing)

============================================================================

AIThing > AIBaseObject

	`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 SaveToFile(var aFile: TextFile); override;`
	`procedure Shock;`

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 SaveToFile(var aFile: TextFile); override;

procedure Shock;

property LifeTime: integer;

property LifeTime: integer;

Generated by PasDoc 0.8.7 on Wed 01/ Oct 2003 00:51:37