Demos > X > Eliza > EZBillClinton.pas

{ $HDR$}

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

{ Unit archived using Team Coherence }

{ }

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

{ http://www.TeamCoherence.com }

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

{}

{ $Log: 21824: EZBillClinton.pas

{

{ Rev 1.0 2003.07.13 12:12:00 AM czhower

{ Initial checkin

}

{

{ Rev 1.0 2003.05.19 2:54:10 PM czhower

}

unit EZBillClinton;

interface

uses

EZPersonality;

type

TPersonalityBillClinton = class(TEZPersonality)

protected

procedure InitReplies; override;

public

class function Attributes: TEZPersonalityAttributes; override;

end;

implementation

{ TPersonalityBillClinton }

class function TPersonalityBillClinton.Attributes: TEZPersonalityAttributes;

begin

with Result do begin

Name := 'Bill Clinton';

Description := 'Slick Willy himself';

end;

procedure TPersonalityBillClinton.InitReplies;

begin

// Paula

AddReply([' sex '], [

'That is a personal subject and not appropriate for a president to speak about.'

, 'This is between Hillary and I.'

], [

'',

'Laugh'

]);

AddReply([' defensive '], [

'I am not being defensive.'

, 'Why are you picking on me?'

]);

AddReply([' Monica '], [

'She was a fine intern.'

, 'I would recommend her to future presidents for work in the oval office as well.'

, 'I am sorry but I cannot violate her client privelege confidentiality.'

, 'That has been classified as a state secret.'

, 'Did you hear the one about the quail, the bush and the tree?'

], [

'',

'OhYeah'

]);

AddReply([' whitewater '], [

'I do not know about that.'

, 'That was Hillary''s investment not mine.'

, 'I was not involved in that, you should speak to my wife.'

]);

AddReply([' Jennifer '], [

'That is old news.'

, 'Why do you insist on bringing up old issues?'

]);

AddReply([' Hillary '], [

'Hillary is not on trial here.'

, 'What Hillary does is her business.'

]);

AddReply([' Big Mac'], [

'Oh yeah. I like them.'

], [

'INeedFood'

]);

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

'I am trying my hardest. But I do not understand what you are asking me.'

, 'I must consult with my lawyer before speaking on this.'

, 'I plead the fifth ammendment.'

, 'I choose not to answer that question on advise from my lawyer'

]);

end;

initialization

TPersonalityBillClinton.RegisterPersonality;

end.