AI Chat bot

Sujet: AI Chat bot Jeu 17 Jan 2008, 22:21

Voilà, un ptit projet sympa que j'ai commencé et qui marche assez bien ^^

C'est rigolo mais bon, c'est pas trop trop sérieux ^^

Voilà, une proposition quand même Razz

Sujet: Re: AI Chat bot Mer 23 Jan 2008, 16:55

déplacé dans espace perso...à moins que ce ne soit vraiment un projet sérieux (ce qui, au vu de ta 2ème phrase, ne semble pas être le cas) ^^

Mais, mais!?!? C'était mon idée!

génial le up ProgVal...encore -15 TO

Un UP? Mais je viens de voir le message!

ok, dans ce cas...

bon, un UP de ma part, mais qui est pas HS du tout, bien au contraire ^^

ya lpein d'élèves qui m'ont vu en train de dev sur ce 'robot' et qui m'ont demandé ce que je foutais, et pi bref, vous imaginez leur reaction quand je leur ai expliqué que je 'programmais' un 'robot' qui 'répond à ce que vous lui dites'.

mdr c'était comique

mais enfin bref, ils ont voulu tester, et comme le code commence à prendre de l'empleur (en gros, ca avance ^^), beaucoup de phrases probables et plus ou moins aléatoires étaient programmé, et donc, quand ils se sont mis a lui parler, ben .... il en croyaient pas leurs yeux mdr ça aussi c'était trop comique, il me disiant ' et si tu lui dis .... 'ENCULE' comment il va te répondre, et si tu lui dis 'T'habite ou', il va dire quoi .... etc

'fin bref, heuresement, il demandait des trucs basique que j'avais déja programmé, et du coup, à chaque récré il sont au CDI à m'attendre et à me demander si mon robot avance ^^

"lol", quand même, vous croyez pas ??

Donc ca peut devenir de plus en plus sérieux !!

Je posterai des screenshots, pour vous 'donner envie Razz

'

PLUS LONG MESSAGE !!!!!!!

mdr

tsss les n00bs :p

ta que ça à dire ?

lol

ben ch'sais pas mais bon ^^

et les autres ???

(ah ben non, ils sont pas aussi g33ks que nous ^^)

:p

c'est plus quelque chose d'étonnant pour nous ça maintenant, mais pour le commun des mortels

dehors

(au fait, tes TO c'est pas fait pour joli, achetez quelque chose, zut ! ^^)

oui tkt pas pour les TO ^^

sinon, hop hop

un petit screen animé Wink

à le demande (_{acharnée mdr}) de progval, voila le code source du moment .... (ça mérite des TO, ça aussi ? lol ^^ ben quoi xD)

Désolé, c'est le bordel mdr

Spoiler:

Code:: DelVar Str2DelVar Str0DelVar IDelVar CDelVar SDelVar BDelVar
QDelVar ZDelVar D
ClrHome
Disp " MSN MESSENGER !"," VERSION BOT
!","","
Input "PSEUDO? ",Str1
" "+Str1->Str1
Output(8,1,"INITIALISATION..
For(Á,1,160
End
Output(8,1,"CONNEXION...
For(Á,1,160
End
ClrHome
While 1
Lbl QT
I+1->I
Input "+ ",Str0
randInt0,5->A
If not(A:"HMMM...->Str2
If A:"CARREMENT !->Str2
If A=2:"CLAIR !->Str2
If A=3:"AH OUAIS ? ^^->Str2
If A=4:"OK !->Str2
If A=5:"BEN TIENS ^^->Str2
If inString(Str0,"DERIVEE DE
Then
real(12,sub(Str0,12,length(Str0)-11),"X->Str2
1->D
End
If inString(Str0,"CALCULE :
Then
expr(sub(Str0,11,length(Str0)-10->Z
End
If inString(Str0,"OU") and inString(Str0,"TU") and inString(Str0,"HABITE
"AU COEUR DE LA RAM XD->Str2
If inString(Str0,"AIME ") and inString(Str0,"?"
Then
randInt0,2->A
If not(A:"OUAI !->Str2
If A:"BOF, PAS TROP...Str2
If A=2:"NON LOL ^^->Str2
End

If inString(Str0,"BONJOUR") or inString(Str0,"SALUT") or inString(Str0,"COUCOU
Then
1->S
If I=1
"SALUT"+Str1->Str2
If I>1
"SALUT ^^->Str2
Else
If I=1
"ET BONJOUR, TU CONNAIS? XD->Str2
End
If inString(Str0,"CA VA
Then
If not(C
Then
"NIQUEL ET TOI ?->Str2
1->B
End
If C
"OUAI, J'T'AI DIS XD->Str2
1->C
End
If B=1
Then
If inString(Str0,"OUI") or inString(Str0,"OUAI
"OK! :P->Str2
If inString(Str0,"BOF") or inString(Str0,"MOYEN
"OK OK ...->Str2
If C=1 and inString(Str0,"NON
"AH OK DESOLE :S->Str2
End
If inString(Str0," LOL") or inString(Str0,"MDR
Then
randInt1,2->A
"LOOOL !->Str2
If A=1
"MDRRR !->Str2
End
If I=2 and not(S) and inString(Str0,"NON
Then
ClrHome
Pause "AAHH OOUUAAII ?!
ClrHome
Output(4,1,"PRGRMS EFFACES !
Stop
End
If I=2 and not(S
"LOL->Str2
If inString(Str0,"SALOP") or inString(Str0,"CONNARD") or inString(Str0,"
CON ") or inString(Str0,"ENCULE
Then
randInt0,2->A
If not(A:"VA TE FAIRE VOIR LOL->Str2
If A:"TA GUEULE->Str2
If A=2:"TU PEUX PARLER, TOI ^^->Str2
End
If inString(Str0,"/QUIT
Then
1->Q
"BYEBYE !->Str2
End
If inString(Str0,"SPEAK ENGLISH") or inString(Str0,"KNOW ENGLISH
Then
1->E
"SORRY, I DON'T SPEAK ENGLISH VERY WELL ^^->Str2
End

Lbl RE
". "+Str2->Str2
If Z
Then
Disp ". RESULTAT:",Z>Frac
DelVar Z
Else
Pause Str2
End
Disp "
DelVar Str2
If Q:Goto Q
End
Lbl Q
ClrHome
Output(1,1,"

désolé pour le double post

J'AI MIS A JOUR LE CODE

Vous êtes la ?? Surprised

adriweb a écrit:: Vous êtes la ??

Euh ben oui Suspect

ok lol, t'as regardé le screen ? Razz

Lol oui ^^

Super le prog , il est stylé =)

merci ^^

adriweb a écrit:: désolé pour le ~~double~~ TRIPLE post

J'AI MIS A JOUR LE CODE

Vous êtes la ??

nan

J'avais déjà l'intention de le faire sur 68k. Ca viens de me motiver, et le prog pour 68k ne vas pas tarder à démarrer...

bon, ben si ca peut t'enrichir ^^

c'est pour ça que t'as demander le code ^^ ?

Nan, pour voir si le screen n'était pas truqué

oula ^^

lol

En plus, je te l'avais dit sur MSN.

Citation :: Nan, pour voir si le screen n'était pas truqué

pfffffff.......

Bon bah personnelement, j'ai terminé le moteur de mon programme de Chat (nommé BitBot).
Il répond aux questions sur:
-son âge
-son nom
-sa famille
-ce qu'il sait faire

En projet:
-apprentissage possible
-faire des opérations sur la TI.

A plus long terme:
-intégration à MyOS

'faudrait faire un 20q sur TI ^^

Lancelot en avait fait un avec les objets de la trousse, il m'l'avait montré, c'était pas mal ^^