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