Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 522 fois - Téléchargée 71 fois
'Chargement et installations des fichiers nécessaires à partir du site Microsoft : '*The Microsoft Agent core components. '*Selected language (après avoir sélectionné French !). '*Selected character (après avoir sélectionné le personnage qui vous intéresse. En fait, je vous conseille de tous les télécharger). '*A text-to-speech engine (c'est ce qui vous permettra de faire parler votre personnage à partir d'un texte). '*Speech recognition engines (pour pouvoir commander votre programme à l'aide de la parole). '*Et enfin pendant que vous y êtes le speech control panel. '"James et Al est un Agent créé par La Cantoche production- Tous doits réservés" 'http://www.chez.com/pitrack1 Option Explicit Dim miFormLeft%, miFormTop% Dim msLocalPath$ Dim theAgent As IAgentCtlCharacter Dim Genie As IAgentCtlCharacter Dim Merlin As IAgentCtlCharacter Dim Robby As IAgentCtlCharacter Dim Al As IAgentCtlCharacter Dim James As IAgentCtlCharacter Dim Peedy As IAgentCtlCharacter Dim req Dim reqWait 'request Dim reqOk 'request Private Sub Form_Load() On Error Resume Next LoadAgent "genie" Set Genie = theAgent LoadAgent "merlin" Set Merlin = theAgent LoadAgent "robby" Set Robby = theAgent LoadAgent "Al" Set Al = theAgent LoadAgent "James" Set James = theAgent LoadAgent "Peedy" Set Peedy = theAgent End Sub Sub LoadAgent(sAgentName) msLocalPath = "c:windowsmsagentchars" Agent1.Characters.Load sAgentName, msLocalPath & sAgentName & ".acs" If Err = 0 Then Set theAgent = Agent1.Characters(sAgentName) Else MsgBox "Cannot load " & sAgentName End End If End Sub Sub RandomXY(x%, y%) Randomize x = Int((Screen.Width Screen.TwipsPerPixelX - theAgent.Width) * Rnd) y = Int((Screen.Height Screen.TwipsPerPixelY - theAgent.Height) * Rnd) End Sub Private Sub cmdOrder_Click() cmdOrder.Enabled = False Dim x%, y% RandomXY x, y Genie.MoveTo 17, 51 Genie.Show Set reqWait = Genie.Speak("Hé robby ou estes vous?") Robby.Wait reqWait RandomXY x, y Robby.MoveTo 497, 183 Robby.Show Set reqWait = Robby.Speak("Je suis ici Génie...") Set reqWait = Robby.Speak("Voulez vous que je vous fasse une copie?") Genie.Wait reqWait Genie.Speak "Non c'est bon,la derniere copie que vous m'avez donné etait illisible" Genie.Play "GetAttention" Genie.Play "GetAttentionReturn" Set reqWait = Genie.Speak("Vous n'avez pas une idée sur ce qui pourrait etre détraqué?") Robby.Wait reqWait Set reqWait = Robby.Speak("Non,mais laissez moi voir...") Genie.Wait reqWait Genie.Play "Write" Genie.Play "WriteContinued" Genie.Play "WriteContinued" Set reqWait = Genie.Play("WriteContinued") Robby.Wait reqWait Robby.Play "Confused" Set reqWait = Robby.Play("Confused") Genie.Wait reqWait Genie.Play "LookDown" Genie.Play "LookLeft" Genie.Play "LookRight" Set reqWait = Genie.Play("LookRightReturn") Robby.Wait reqWait Robby.Play "Idle2_2" Robby.Play "Read" Robby.Play "ReadReturn" Robby.Speak "Je pense que je l'ai réparé ce devait etre un fusible qui avait sauter." Set reqWait = Robby.Speak("Je vous imprimerai une autre copie plus tard,Génie.") Genie.Wait reqWait Set reqWait = Genie.Speak("Merci robby vous etes gentil.") Merlin.Wait reqWait Merlin.MoveTo 238, 372 Merlin.Show Merlin.Speak "Salut Robby,Salut Génie." Merlin.Play "Surprised" Merlin.Speak "Humm c'est humide ici." Merlin.Speak "Robby,tandis que vous etes la vous pourriez imprimer une copie du texte de mon breuvage magique?" Set reqWait = Merlin.Speak("Il ferait des miracles sur le tein de peau de Génie.Je le trouve un peu bleu hi hi hi.") Robby.Wait reqWait Robby.Speak "Aucun problème Merlin,je le ferai." Set reqWait = Robby.Speak("Bon je rentre a la maison sinon ma femme vas encore raler.") Set reqWait = Robby.Hide Genie.Wait reqWait Merlin.Wait reqWait Genie.Play "Wave" Merlin.Play "Wave" Genie.Hide Merlin.Hide 'Set regWait = Merlin.Hide Al.Wait reqWait Al.MoveTo 383, 245 Al.Show Al.Speak "Bah ou sont'ils tous passé?" Al.Play "Clap" Al.Speak "Hé les copains ou etes vous?" Set reqWait = Al.Speak("Cest pas sympa de me laisser tomber.") James.Wait reqWait James.MoveTo 632, 183 Set reqWait = James.Show() Al.Wait reqWait Set reqWait = Al.Play("LookLeft") James.Wait reqWait Set reqWait = James.Speak("Salut Al c'est moi James.") Al.Wait reqWait Set reqWait = Al.Play("LookLeft") James.Wait reqWait James.Play "Uncertain" Set reqWait = James.Speak("J'ai un de ces mal de crane...") Al.Wait reqWait Set reqWait = Al.Speak("Vous avez qu'a prendre des comprimés pour le mal de tète,James.") James.Wait reqWait James.Speak "Vous avez raison il faut que je note cela sinon je vais encore oublié." James.Play "Write" James.Play "WriteContinued" James.Play "WriteReturn" James.Play "LookRight" James.Play "LookRightReturn" Set reqWait = James.Speak("Merci Al c'est gentil de votre part de vous préocupez de ma santé.") Al.Wait reqWait Al.Play "LookLeft" Set reqWait = Al.Speak("Vous n'auriez pas vu Merlin et Robby par hasard?") James.Wait reqWait James.Play "LookRight" James.Play "LookRightReturn" Set reqWait = James.Speak("Robby est rentré chez lui , je crois ! quand a Merlin , vous savez bien qu'il vas et vient , il est insaisissable.") Al.Wait reqWait Al.Play "LookLeftBlink" Al.Speak "Je voulais juste demander a Robby s'il c'etait auto réparé?" Al.Play "LookLeftBlink" Set reqWait = Al.Speak("Car Génie m'avait dit qu'il ne pouvait plus rien imprimer , ces copies etait illisible.") James.Wait reqWait James.Play "LookDownRight" James.Play "LookDownRightReturn" James.Speak "Je vais aller voir si je le trouve pour vous.Je reviens tout de suite , a bientot Al." Set reqWait = James.Hide() Al.Wait reqWait Al.Play "LookLeftBlink" Al.Speak "Merci James , bah lui au moins c'est du service rapide." Al.Speak "Bon je ne me rapelle plus ce que j'avais a imprimer?" Al.Play "Read" Al.Speak "Ha oui c'est ca javais completement oublié." Al.Play "ReadReturn" Al.Speak "Que fait James j'espère qu'il a trouver Robby?." Al.Speak "Voyons s'il arrive?." Al.Play "Idle3_2" Al.Play "Idle3_2Return" Al.Play "LookLeft" Al.Play "LookRight" Set reqWait = Al.Speak("Ha le voila.") Robby.Wait reqWait Robby.MoveTo 510, 219 Robby.Show Set reqWait = Robby.Speak("Vous me chercher Al?") Robby.MoveTo 453, 245 Al.Wait reqWait Al.Speak "Oui je voulais vous demander de m'imprimer ceci si vous etiez réparé?." Al.Play "Read" Al.Play "ReadReturn" Set reqWait = Al.Speak("Vous me seriez tres obliger....") Robby.Wait reqWait Robby.Speak "Mais il n'y a pas de problème." Robby.Play "Read" Robby.Play "ReadReturn" Set reqWait = Robby.Speak("Voila Al,c'est fait.") Al.Wait reqWait Al.Speak "Je vous remercie Robby." Al.Speak "Au revoir." Al.Play "Wave" Set reqWait = Al.Hide() Robby.Wait reqWait Robby.Speak "Mais qu'ont t'ils donc tous a vouloir faire des copies?." Robby.Speak "Allez moi je m'en retourne voir ma ROBETTE." Robby.Play "Wave" Robby.Hide Set reqOk = Robby.Hide End Sub Private Sub Agent1_RequestComplete(ByVal Request As Object) Select Case Request Case reqOk cmdOrder.Enabled = True End Select End Sub
29 oct. 2004 à 21:10
voir rubriques : downloads et programming agent
2 déc. 2001 à 12:55
11 oct. 2001 à 11:46
25 juil. 2001 à 01:18
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.