type AIVibe = class(
AIThing
)
AIThing
> AIBaseObject
Constructor Create(aParent: pointer); |
|
procedure Fuel; override; |
|
procedure LoadFromFile(var aFile: TextFile); override; |
|
procedure SaveToFile(var aFile: TextFile); override; |
|
procedure SetVibe(aEffectType, aEffectIndex, aTimerDeath: integer); |
Constructor Create(aParent: pointer); |
procedure Fuel; override; |
procedure LoadFromFile(var aFile: TextFile); override; |
procedure SaveToFile(var aFile: TextFile); override; |
procedure SetVibe(aEffectType, aEffectIndex, aTimerDeath: integer); |
property EffectIndex: integer; |
|
property EffectType: integer; |
|
property SensoryType: integer; |
|
property TimerDeath: integer; |
property EffectIndex: integer; |
property EffectType: integer; |
property SensoryType: integer; |
property TimerDeath: integer; |