<< Click to Display Table of Contents >> Navigation:  Demos > X > Eliza > EZMSTechSupport.pas

{ $HDR$}

{**********************************************************************}

{ Unit archived using Team Coherence }

{ Team Coherence is Copyright 2002 by Quality Software Components }

{ }

{ For further information / comments, visit our WEB site at }

{ http://www.TeamCoherence.com }

{**********************************************************************}

{}

{ $Log: 21832: EZMSTechSupport.pas 

{

{ Rev 1.0 2003.07.13 12:12:04 AM czhower

{ Initial checkin

}

{

{ Rev 1.0 2003.05.19 2:54:20 PM czhower

}

unit EZMSTechSupport;

 

interface

 

uses

 EZPersonality;

 

type

 TPersonalityMSTechSupport = class(TEZPersonality)

 protected

 procedure InitReplies; override;

 public

 class function Attributes: TEZPersonalityAttributes; override;

 end;

 

implementation

 

{ TPersonalityMSTechSupport }

 

class function TPersonalityMSTechSupport.Attributes: TEZPersonalityAttributes;

begin

 with Result do begin

 Name := 'Microsoft Technical Support';

 Description := 'Dont pay $5 a minute, get the SAME level of suppor for'

 + ' free!';

 end;

end;

 

procedure TPersonalityMSTechSupport.InitReplies;

begin

 AddReply([' My problem is ', ' The problem is '], [

 'So you are calling about *?'

 , 'Is * a problem?'

 ]);

 AddReply([' crashes when I ', ' crashes when ', ' crashing when '], [

 'The obvious answer would be not to *'

 , 'You are just asking for trouble.'

 ]);

 AddReply([' bug '], [

 'Are you sure thats a bug?'

 , 'Thats not a bug, its a feature.'

 ]);

 AddReply([' AV ', ' AVs ', ' Access violation ', ' crash ', ' BSOD '], [

 'I am sorry but I cannot reproduce that problem here.'

 , 'It works fine here. The problem must be on your end.'

 , 'Hmm. I have never heard of a problem like that.'

 , 'Have you tried rebooting your system?'

 , 'Do you have all the service packs installed?'

 ]);

 AddReply([' Borland ', ' Delphi '], [

 'Is Borland still around?'

 , 'The problem is probably with the Borland product. You should contact Borland.'

 , 'I am sorry but we do not support Borland products.'

 ]);

 AddReply(['--NOKEYFOUND--'], [

 'I will need more information.'

 , 'I will need to ask my supervisor for help.'

 ]);

end;

 

initialization

 TPersonalityMSTechSupport.RegisterPersonality;

end.