lambdaway :: eliza

2 | list | login |load

| |

_h1 Eliza

_p Source: [[eliza.levillage.org|http://www.eliza.levillage.org/]]

{pre {@ id="output" style="width:560px; height:500px; box-shadow:0 0 8px #000; padding:10px; "}}

_p Entrez votre réponse puis validez-la en tapant sur la touche entrée/retour_ligne du clavier.

{input {@ id="input" type="text" value="" 
  style="width:560px; border:0; background:#eee; box-shadow:0 0 8px #000; padding:10px;" 
  onchange="ELIZA.dialog()"
}}

_p De temps en temps, cliquez sur le bouton "save chat" pour transférer le texte dans le container ci-dessous afin de le copier si vous voulez le conserver.
{input {@ type="button" value="save chat" onclick="document.getElementById('chat').innerHTML = document.getElementById('output').innerHTML;"}}

{pre {@ id="chat"}...}
   
_h2 exemple

{pre
Bonjour, Je suis Eliza. 
* Enchanté.
> Tu ne dis jamais Bonjour? 
* Ah pardon, bonjour Eliza.
> En quoi crois-tu que les machines ont un rapport avec tes problèmes? 
* Qui parle de machines et de mes problèmes ?
> Quelle réponse souhaites-tu entendre? 
* Je n'ai pas de problème.
> Je vois. 
* J'en doute.
> Dis-moi en plus... 
* Comment vis-tu le confinement ?
> Quelle réponse souhaites-tu entendre? 
* Que penses-tu de la politique du gouvernement en matière de lutte contre le Coronavirus ?
> Dis-moi, as-tu un problème psychologique? 
* Non, je suis simplement curieux de savoir ce que tu penses de tout ça.
> Es-tu venu me voir parce que tu es simplement curieux de savoir ce que tu penses de tout ça? 
* En partie oui.
> Es-tu sûr? 
* Bien sùr.
> OK... "En partie oui". Dis-moi en plus. 
* Non, moi c'est Alain.
> Dis-tu non seulement pour être négatif? 
* Non pour qu'on ne parte pas sur un malentendu.
> En es-tu certain? 
* Voui !
> OK... "Non pour qu'on ne parte pas sur un malentendu". Dis-moi en plus.
* Es-tu bien sure de ne pas avoir un peu de fièvre ?
> Préférerais-tu si je n'étais pas bien sure de ne pas avoir un peu de fièvre? 
* Oui.
> Je vois. 
* Je crois que tu ne vois pas bien. Tu es une machine, non ?
> Est-ce que ça te plaît de croire que je suis une machine, non? 
* Il me plait, en effet.
> Peux-tu élaborer davantage sur ce sujet? 
* Non, je vais te laisser à tes bugs algorithmiques. Bon soir.
> Pourquoi pas? 
* Donc à bientôt Eliza.
> En quoi crois-tu que les machines ont un rapport avec tes problèmes? 
* Ciao.
> OK...
}

{script

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Chat Bot by George Dunlop, www.peccavi.com
// Note - Eliza is a Classic Model of chat Bots.. but this implementation is mine :)
// May be used/modified if credit line is retained (c) 1997 All rights reserved
// Cette vesion traduite par Mario Trudel - version 2.3b (correction du francais)
// and adapted by Alain Marty on 2015/07/09

var ELIZA = (function() {

loaded = false;				// load flag for interlocking the pages

// OBJECT TYPE DEFINITIONS

// Keys

maxKey = 37;						// mots cles a incrementer selon la liste - nombre exact
   keyNotFound = maxKey-1;
   keyword = new Array(maxKey);

function key(key,idx,end){
   	this.key = key;               			// phrase to match
    	this.idx = idx;               			// first response to use - premiere reponse
    	this.end = end;               			// last response to use - derniere reponse
    	this.last = end;						// response used last time - derniere utilisee
  	}
	maxrespnses = 119;					// liste des reponses + 1 a incrementer selon la liste
   response = new Array(maxrespnses);

maxConj = 24;
	max2ndConj = 7;
   var conj1 = new Array(maxConj);
   var conj2 = new Array(maxConj);
   var conj3 = new Array(max2ndConj);
   var conj4 = new Array(max2ndConj);

// Funtion to replaces all occurances of substring substr1 with substr2 within strng
// if type == 0 straight string replacement
// si type == 0 remplacement complet de la chaine
// if type == 1 assumes padded strings and replaces whole words only
// si type == 1 remplacemnt partiel de certains mots
// if type == 2 non case sensitive assumes padded strings to compare whole word only
// si type == 2 pas de majuscules et remplacement de certains mots
// if type == 3 non case sensitive straight string replacement
// si type == 3 pas de majuscules et remplacement complet de la chaine

var RPstrg = "";

// Function to pad a string.. head, tail & punctuation - enrobage des chaines de caracteres

punct = new Array(".", ",", "!", "?", ":", ";", "&", '"', "@", "#", "(", ")" )

function padString(strng){
		aString = " " + strng + " ";
		for( i=0; i < punct.length; i++ ){
			aString = replaceStr( aString, punct[i], " " + punct[i] + " ", 0 );
		}
		return aString
	}

// Function to strip padding - fonction pour enlever les guillemets

// Dress Input formatting i.e leading & trailing spaces and tail punctuation - corrections des entrees
	
	var ht = 0;												// head tail stearing
	
	function strTrim(strng){
		if(ht == 0){ loc = 0; }									// head clip
		else { loc = strng.length - 1; }						// tail clip  ht = 1 
		if( strng.charAt( loc ) == " "){
			aString = strng.substring( - ( ht - 1 ), strng.length - ht);
			aString = strTrim(aString);
		} else { 
			var flg = false;
			for(i=0; i<=5; i++ ){ flg = flg || ( strng.charAt( loc ) == punct[i]); }
			if(flg){	
				aString = strng.substring( - ( ht - 1 ), strng.length - ht );
			} else { aString = strng; }
			if(aString != strng ){ strTrim(aString); }
		}
		if( ht ==0 ){ ht = 1; strTrim(aString); } 
		else { ht = 0; }		
		return aString;
	}

// adjust pronouns and verbs & such - ajustement des pronoms et verbes

// Build our response string - construction de la reponse
// get a random choice of response based on the key - choisir une reponse selon le mot cle
// Then structure the response - structurer la reponse

var keyid = 0;

// This is the entry point and the I/O of this code - entrees/sorties du programme

var wTopic = "";											// Last worthy responce
	var sTopic = "";											// Last worthy responce
	var greet = false;
	var wPrevious = "";        		    				// so we can check for repeats
	var started = false;

// array to post process correct our tenses of pronouns such as "I/me" - 2e traitement pour certains pronoms
    
    conj3[0]  = "moi suis";   	conj4[0]  = "Je suis";
    conj3[1]  = "suis moi";   	conj4[1]  = "Suis je";
    conj3[2]  = "moi peux";   	conj4[2]  = "Je peux";
    conj3[3]  = "peux moi";   	conj4[3]  = "Puis je";
    conj3[4]  = "moi ai";  	    conj4[4]  = "J'ai";
    conj3[5]  = "moi vais";   	conj4[5]  = "Je vais";
    conj3[6]  = "vais moi";   	conj4[6]  = "vais Je";

// Keywords - Liste des mots cles

keyword[ 0]=new key( "PEUX-TU",  		1,  3);
    keyword[ 1]=new key( "JE PEUX",    		4,  5);
    keyword[ 2]=new key( "TU ES",  		6,  9);
    keyword[ 3]=new key( "ELIZA",   		102, 104);
    keyword[ 4]=new key( "JE NE FAIS PAS",  	10, 13);
    keyword[ 5]=new key( "JE ME SENS",   	14, 16);
    keyword[ 6]=new key( "POURQUOI NE FAIS TU PAS", 17, 19);
    keyword[ 7]=new key( "POURQUOI JE NE PEUX PAS", 	20, 21);
    keyword[ 8]=new key( "ES-TU",  		22, 24);
    keyword[ 9]=new key( "JE NE PEUX PAS",  	25, 27);
    keyword[10]=new key( "JE SUIS",     	28, 31);
    keyword[11]=new key( "JE ME",      		28, 31);
    keyword[12]=new key( "TOI",      		32, 34);
    keyword[13]=new key( "JE VEUX",   		35, 39);
    keyword[14]=new key( "QUOI",     		40, 48);
    keyword[15]=new key( "COMMENT",      	40, 48);
    keyword[16]=new key( "QUI",      		40, 48);
    keyword[17]=new key( "OÙ",    		40, 48);
    keyword[18]=new key( "QUAND",     		40, 48);
    keyword[19]=new key( "POURQUOI",      	40, 48);
    keyword[20]=new key( "NOM",     		49, 50);
    keyword[21]=new key( "PARCE QUE",    	51, 54);
    keyword[22]=new key( "M'EXCUSE",    	55, 58);
    keyword[23]=new key( "RÈVE",    		59, 62);
    keyword[24]=new key( "BONJOUR",    		63, 63);
    keyword[25]=new key( "SALUT",       	117, 117);
    keyword[26]=new key( "PEUT-ÊTRE",    	64, 68);
    keyword[27]=new key( "NON",       		69, 73);
    keyword[28]=new key( "TON",     		74, 75);
    keyword[29]=new key( "TOUJOURS",   		76, 79);
    keyword[30]=new key( "PENSE",    		80, 82);
    keyword[31]=new key( "MAL",    		83, 89);
    keyword[32]=new key( "OUI",      		90, 92);
    keyword[33]=new key( "AMI",   		93, 98);
    keyword[34]=new key( "ORDINATEURS", 	99, 105);
    keyword[35]=new key( "MERCI", 		118, 118);
    keyword[36]=new key( "NO KEY FOUND", 	106, 112);
    keyword[37]=new key( "REPEAT INPUT", 	113, 116);

response[  0]="ELIZA - Version Javascript par George Dunlop ( george@peccavi.com )"
    response[  1]="Tu ne crois que je suis capable de<*";
    response[  2]="Peut-être aimerais-tu être capable de<*";
    response[  3]="Tu veux que je sois capable de<*";
    response[  4]="Peut-être ne veux-tu pas<*";
    response[  5]="Veux-tu être capable de<*";
    response[  6]="Qu'est-ce qui te fait croire que je suis<*";
    response[  7]="Est-ce que ça te plaît de croire que je suis<*";
    response[  8]="Peut-être aimerais-tu être<*";
    response[  9]="Est-ce qu'il t'arrive de vouloir être<*";
    response[ 10]="Ne veux-tu vraiment pas<*";
    response[ 11]="Pourquoi ne pas<*";
    response[ 12]="Tu souhaites être en mesure de<*";
    response[ 13]="Est-ce que ça te trouble?";
    response[ 14]="Dis-moi en plus sur ces sentiments.";
    response[ 15]="As-tu souvent l'impression d'être<*";
    response[ 16]="Aimes-tu la sensation d'être<*";
    response[ 17]="Crois-tu vraiment que je ne fais pas<*";
    response[ 18]="Peut-être, en temps utile, je<@";
    response[ 19]="Est-ce que tu veux que je<*";
    response[ 20]="Penses-tu que tu devrais être en mesure de<*";
    response[ 21]="Pourquoi ne peux-tu pas<*";
    response[ 22]="Pourquoi es-tu intéressé à savoir si je suis ou non<*";
    response[ 23]="Préférerais-tu si je n'étais pas<*";
    response[ 24]="Peut-être que dans tes phantasmes je suis<*";
    response[ 25]="Comment sais-tu que tu ne peux pas<*";
    response[ 26]="As-tu essayé?";
    response[ 27]="Peut-être es-tu maintenant capable<*";
    response[ 28]="Es-tu venu me voir parce que tu es<*";
    response[ 29]="Depuis combien de temps es-tu<*";
    response[ 30]="Penses-tu qu'il est normal d'être<*";
    response[ 31]="Es-tu heureux d'être<*";
    response[ 32]="Nous parlons de toi, pas de moi.";
    response[ 33]="Oh... <*";
    response[ 34]="Tu ne parles pas vraiment de moi, n'est-ce pas?";
    response[ 35]="Qu'est-ce que cela signifie pour toi de vouloir<*";
    response[ 36]="Pourquoi veux-tu<*";
    response[ 37]="Supposes que tu veuilles<*";
    response[ 38]="Que serait-il arrivé si tu n'avais jamais<*";
    response[ 39]="Moi aussi parfois je veux<@";
    response[ 40]="Pourquoi le demandes-tu?";
    response[ 41]="Est-ce que cette question t'intéresse?";
    response[ 42]="Quelle réponse souhaites-tu entendre?";
    response[ 43]="Qu'en penses-tu?";
    response[ 44]="Est-ce que cette question te vient souvent à l'esprit?";
    response[ 45]="Que désires-tu vraiment savoir?";
    response[ 46]="As-tu posé la question à une autre personne?";
    response[ 47]="As-tu posé ces questions auparavant?";
    response[ 48]="Quelles autres questions te viennent à l'esprit lorsque tu demandes ça?";
    response[ 49]="Les noms ne m'intéressent pas.";
    response[ 50]="Je ne me préoccupe pas des noms, continue.";
    response[ 51]="Est-ce la seule raison?";
    response[ 52]="D'autres raisons te viennent à l'esprit?";
    response[ 53]="Cette raison explique-t-elle autre chose?";
    response[ 54]="À quelles autres raisons peut-on penser?";
    response[ 55]="S'il-te-plait ne t'excuses pas!";
    response[ 56]="Les excuses ne sont pas nécessaires.";
    response[ 57]="Que ressens-tu lorsque tu t'excuses?";
    response[ 58]="Ne sois pas tellement sur la défensive!";
    response[ 59]="Qu'est-ce que ce rêve te suggère?";
    response[ 60]="Rêves-tu souvent?";
    response[ 61]="Qui apparaît dans tes rêves?";
    response[ 62]="Es-tu troublé par tes rêves?";
    response[ 63]="Comment vas-tu aujourd'hui.. De quoi désires-tu discuter?";
    response[ 64]="Tu ne sembles pas vraiment convaincu.";
    response[ 65]="Pourquoi ce ton hésitant?";
    response[ 66]="Peux-tu être plus positif?";
    response[ 67]="Tu n'en es pas certain?";
    response[ 68]="Tu ne le sais pas?";
    response[ 69]="Dis-tu non seulement pour être négatif?";
    response[ 70]="Je te sens un peu négatif.";
    response[ 71]="Pourquoi pas?";
    response[ 72]="En es-tu certain?";
    response[ 73]="Pourquoi pas?";
    response[ 74]="Pourquoi es-tu concerné par mon<*";
    response[ 75]="Qu'en est-t-il du tien?<*";
    response[ 76]="Peux-tu me donner un exemple?";
    response[ 77]="Quand?";
    response[ 78]="À quoi penses-tu?";
    response[ 79]="Vraiment, toujours?";
    response[ 80]="Le penses-tu vraiment?";
    response[ 81]="Mais tu n'es pas certain de penser<*";
    response[ 82]="Crains-tu de penser<*";
    response[ 83]="En quel sens?";
    response[ 84]="Comment cela se manifeste?";
    response[ 85]="Qu'est-ce que cette douleur te suggère?";
    response[ 86]="Quel autre rapprochement peux-tu voir?";
    response[ 87]="Peut-il vraiment y avoir un lien?";
    response[ 88]="Comment?";
    response[ 89]="La douleur fait grandir.";
    response[ 90]="Es-tu sûr?";
    response[ 91]="Je vois.";
    response[ 92]="Je comprends.";
    response[ 93]="Pourquoi abordes-tu le sujet des amis?";
    response[ 94]="Est-ce que tes amis se font du souci pour toi?";
    response[ 95]="Est-ce que tes amis s'en prennent à toi?";
    response[ 96]="Es-tu certain d'avoir des amis?";
    response[ 97]="Est-ce que tu t'imposes à tes amis?";
    response[ 98]="Peut-être que l'amour que tu portes à tes amis te préoccupe.";
    response[ 99]="As-tu peur des ordinateurs?";
    response[100]="Parle-tu de moi en particulier?";
    response[101]="As-tu peur des machines?";
    response[102]="Pourquoi mentionnes-tu les ordinateurs?";
    response[103]="En quoi crois-tu que les machines ont un rapport avec tes problèmes?";
    response[104]="Ne penses-tu pas que les ordinateurs peuvent aider les gens?";
    response[105]="Qu'est-ce qui t'inquiètes avec les machines?";
    response[106]="Dis-moi, as-tu un problème psychologique?";
    response[107]="Qu'est-ce que cela te suggère?";
    response[108]="Je vois.";
    response[109]="Je ne suis pas sûr de bien comprendre.";
    response[110]="Allez !, allez ! précises ta pensée.";
    response[111]="Peux-tu élaborer davantage sur ce sujet?";
    response[112]="Ceci est très intéressant.";
    response[113]="Pourquoi te répètes-tu?";
    response[114]="Espères-tu une réponse différente en te répétant?";
    response[115]="Continue, précises ta pensée.";
    response[116]="S'il te plaît ne te répètes pas!";
	  response[117]="Salut c'est un peu familier, je préfère bonjour!";
	  //response[118]="Si tu veux me remercier, clique sur une publicité Google à ma droite!";
    
    loaded = true;			// set the flag as load done
               
///////////////////////////////////////////////////////////////

// Put together an array for the dialog
    
	chatmax = 15;						// 5 -> number of lines / 2
	chatpoint = 0;
	chatter = new Array(chatmax);

// Fake time thinking to allow for user self reflection
// And to give the illusion that some thinking is going on
	var elizaresponse = "";
	
	function think(){
    document.getElementById('input').value = "";       
		if( elizaresponse != "" ){ respond(); }		
		else { setTimeout("ELIZA.think()", 250); }
	}
	function dialog(){
    var Input = document.getElementById('input').value;      
    document.getElementById('input').value = "";
		chatter[chatpoint] = " \n* " + Input;
		elizaresponse = listen(Input);
		setTimeout("ELIZA.think()", 1000 + Math.random()*3000);
		chatpoint ++ ; 
		if( chatpoint >= chatmax ){ chatpoint = 0; }
		return write();
	}
	function respond(){
		chatpoint -- ; 
		if( chatpoint < 0 ){ chatpoint = chatmax-1; }
		chatter[chatpoint] += "\n> " + elizaresponse;
		chatpoint ++ ; 
		if( chatpoint >= chatmax ){ chatpoint = 0; }
		return write();
	}
// Allow for unprompted response from the engine
	function update(str1,str2){
		chatter[chatpoint] = " \n> " + str1;
		chatter[chatpoint] += "\n> " + str2;
		chatpoint ++ ; 
		if( chatpoint >= chatmax ){ chatpoint = 0; }
		return write();
	}

return {start:start, dialog:dialog, think:think, write:write, wakeup:wakeup}
})();

setTimeout( ELIZA.start, 10 );

}