'=========================================================================== ' Subject: AMANDA (AI EN FRANCAIS) Date: 08-15-98 (19:28) ' Author: Remi Poulin Code: QB, QBasic, PDS ' Origin: kazzel@hotmail.com Packet: AI.ABC '=========================================================================== DECLARE SUB graphic () DECLARE SUB bienvenue (a$, n$, que) DECLARE SUB aurevoir (a$, n$) DECLARE SUB repeter (a$) DECLARE SUB accent (lp, m$) DECLARE SUB aimer (nom, a$) DECLARE SUB face0 (face, tim) DECLARE SUB face1 (face, tim) DECLARE SUB oui (que, a$) DECLARE SUB non (que, a$, face) DECLARE SUB quoi (a$, quo2, que) DECLARE SUB ifthen (m$, a$, que, face) DECLARE SUB jesuis (nom, a$, ge$) DECLARE SUB tues (lenom$, nom, a$, ge$, face) DECLARE SUB astu (lenom$, nom, a$, ge$) DECLARE SUB mange (nom, a$, ge$) DECLARE SUB boire (nom, a$, ge$) DECLARE SUB cuire (nom, a$, ge2$) DECLARE SUB nourrir (nom, a$, ge$) DECLARE SUB jai (a$, ge2$, nom, ge$) DECLARE SUB blesser (nom, a$, ge$) DECLARE SUB embrasse (a$, ge$, nom) DECLARE SUB lit (nom, a$, ge$) DECLARE SUB tuer (nom, a$, ge$) DECLARE SUB remplir (nom, a$, ge2$, ge$) DECLARE SUB condui (a$, ge$, nom) DECLARE SUB goute (a$, nom, ge$) DECLARE SUB aide (tim, face) DECLARE SUB info (tim, face) DECLARE SUB optionv (le, tim, face, a$, nom) DECLARE SUB aider (a$, nom, ge$, ge3$) DECLARE SUB mordre (a$, nom, ge$, ge3$) DECLARE SUB appeler (a$, nom, ge2$, ge3$) DECLARE SUB mettre (a$, m$, nom, ge$) DECLARE SUB humain (a$, ge$, ge2$, ge3$) DECLARE SUB animal (a$, ge$, ge2$, ge3$) DECLARE SUB vegetal (a$, ge$, ge2$, ge3$) DECLARE SUB insecte (a$, ge$, ge2$, ge3$) DECLARE SUB mineral (a$, ge$, ge2$, ge3$) DECLARE SUB nourriture (a$, ge$, ge2$, ge3$) DECLARE SUB outils (a$, ge$, ge2$, ge3$) DECLARE SUB arme (a$, ge$, ge2$, ge3$) DECLARE SUB objet (a$, ge$, ge2$, ge3$) DECLARE SUB vetement (a$, ge$, ge2$, ge3$) DECLARE SUB endroit (a$, ge$, ge2$, ge3$) DECLARE SUB vehicule (a$, ge$, ge2$, ge3$) DECLARE SUB habitation (a$, ge$, ge2$, ge3$) DECLARE SUB livre (a$, ge$, ge2$, ge3$) DECLARE SUB contenant (a$, ge$, ge2$, ge3$) DECLARE SUB liquide (a$, ge$, ge2$, ge3$) DECLARE SUB materiaux (a$, ge$, ge2$, ge3$) DECLARE SUB breuvage (a$, ge$, ge2$, ge3$) DECLARE SUB corps (a$, ge$, ge2$, ge3$) DECLARE SUB materiel (a$, ge$, ge2$, ge3$) DECLARE SUB tempo (a$, te2, que) DECLARE SUB finir (n$) CLS : SCREEN 0: COLOR 7, 6 RANDOMIZE TIMER FOR s = 1 TO 40: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s n = 12: q = 1: le = 20: y = 0: fo = 1 CALL graphic CALL face0(face, tim) ON ERROR GOTO erreur OPEN "info.ama" FOR INPUT AS #1 INPUT #1, n$: IF n$ = "" THEN a$ = "Bonjour, quel est votre nom?": nom = 1 IF n$ <> "" THEN CALL bienvenue(a$, n$, que) CLOSE #1 GOTO reponse erreur: bb = 0 REM fichier non trouver RESUME NEXT REM ---------------------------- Amanda ------------------------------------- ga: IF q = 0 THEN ON TIMER(n) GOSUB temp: TIMER ON: q = 1 IF a$ <> "" THEN GOTO reponse IF lum = 2 THEN GOTO lum2 lum = 1 FOR i = fo TO 16: y = y + 2 LOCATE 10, 21 + y: COLOR 4, 0: PRINT "" LOCATE 10, 23 + y: COLOR 2, 0: PRINT "" COLOR 14, 0 X$ = INKEY$: IF X$ <> "" THEN fo = i: y = y - 2: GOTO partir FOR s = 1 TO 70 / (le / 4): WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s NEXT i: fo = 1 lum2: lum = 2 FOR i = fo TO 16: y = y - 2 LOCATE 10, 25 + y: COLOR 4, 0: PRINT "" LOCATE 10, 23 + y: COLOR 2, 0: PRINT "" COLOR 14, 0 X$ = INKEY$: IF X$ <> "" THEN fo = i: y = y + 2: GOTO partir FOR s = 1 TO 70 / (le / 4): WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s NEXT i: y = 0: fo = 1: lum = 0 GOTO ga partir: TIMER OFF: q = 0 IF ASC(X$) = 27 THEN CALL aurevoir(a$, n$): fin = 1: GOTO reponse IF ASC(X$) = 13 AND l = 6 THEN GOTO ga IF ASC(X$) = 13 THEN GOTO choix IF ASC(X$) = 8 AND l = 6 THEN GOTO ga IF ASC(X$) = 8 THEN l = l - 1: LOCATE ra, l: COLOR 14, 1: PRINT ""; : COLOR 14, 0: PRINT " "; : m$ = LEFT$(m$, LEN(m$) - 1): GOTO ga IF ASC(X$) = 9 THEN GOTO ga IF ASC(X$) = 12 OR ASC(X$) = 10 OR ASC(X$) = 11 OR ASC(X$) = 7 THEN GOTO ga IF ASC(X$) = 28 OR ASC(X$) = 29 OR ASC(X$) = 30 OR ASC(X$) = 31 THEN GOTO ga IF MID$(X$, 2, 1) = ";" THEN CALL aide(tim, face): GOTO ga IF MID$(X$, 2, 1) = "<" THEN CALL info(tim, face): GOTO ga IF MID$(X$, 2, 1) = "=" THEN CALL optionv(le, tim, face, a$, nom): que = 0: GOTO reponse IF MID$(X$, 2, 1) <> "" THEN GOTO ga IF l = 74 THEN GOTO ga LOCATE ra, l: PRINT X$; : COLOR 14, 1: PRINT ""; : l = l + 1: m$ = m$ + X$ GOTO ga choix: IF nom = 1 THEN n$ = m$: nom = 0: a$ = "Salut " + n$ + ", ca va bien?": que = 5: GOTO reponse lp = LEN(m$): lp% = lp IF RIGHT$(m$, 1) = "?" THEN m$ = LEFT$(m$, lp - 1): lp = lp - 1 IF RIGHT$(m$, 1) = "!" THEN m$ = LEFT$(m$, lp - 1): lp = lp - 1 IF RIGHT$(m$, 1) = "." THEN m$ = LEFT$(m$, lp - 1): lp = lp - 1 mm$ = m$: CALL accent(lp, m$) m$ = LCASE$(m$) IF LEFT$(m$, 3) = "oui" OR LEFT$(m$, 5) = "ouais" THEN CALL oui(que, a$): GOTO reponse IF LEFT$(m$, 3) = "non" THEN CALL non(que, a$, face): GOTO reponse IF m$ = m2$ THEN CALL repeter(a$): face = 1: que = 0: GOTO reponse que = 0 IF LEFT$(m$, 8) = "aurevoir" OR LEFT$(m$, 3) = "bye" OR LEFT$(m$, 7) = "bonsoir" THEN CALL aurevoir(a$, n$): fin = 1 IF LEFT$(m$, 12) = "mon nom est " AND MID$(m$, 13, 1) <> "" THEN n$ = RIGHT$(mm$, lp - 12): a$ = "salut " + n$ IF LEFT$(m$, 13) = "je m'appelle " AND MID$(m$, 14, 1) <> "" THEN n$ = RIGHT$(mm$, lp - 13): a$ = "salut " + n$ IF m$ = "quel est mon nom" AND n$ = "" THEN a$ = "je ne sais pas ton nom" IF m$ = "quel est mon nom" AND n$ <> "" THEN a$ = "ton nom est " + n$ 'IF LEFT$(m$, 8) = "qui est " THEN a$ = "je ne connais pas cette personne" IF LCASE$(mm$) = "qui est " + LCASE$(n$) AND n$ <> "" THEN a$ = "c'est ton nom!" IF m$ = "aimes-tu " + n$ AND n$ <> "" THEN a$ = "oui, je t'aime beaucoup " + n$ CALL ifthen(m$, a$, que, face) IF a$ = "" THEN GOTO scanneur reponse: COLOR 5, 0: FOR o = 3 TO 9: LOCATE o, 4 PRINT " " NEXT o IF a$ = "" THEN a$ = "grrrr!" LOCATE 4, 6: ra = 6 COLOR 4, 0: PRINT "<"; : COLOR 12, 0: PRINT "Amanda"; : COLOR 4, 0: PRINT "> "; : COLOR 15, 0 FOR i = 1 TO LEN(a$): ma$ = LCASE$(MID$(a$, i, 1)) IF ma$ = "a" OR ma$ = "e" OR ma$ = "i" OR ma$ = "o" OR ma$ = "u" OR ma$ = "y" THEN COLOR 7, 0 ELSE COLOR 15, 0 IF ma$ = "" OR ma$ = "" OR ma$ = "" OR ma$ = "" OR ma$ = "" OR ma$ = "" THEN COLOR 7, 0 PRINT MID$(a$, i, 1); : IF ma$ <> " " THEN SOUND 200, 1 / 10 IF ma$ = "." AND MID$(a$, i + 1, 1) = " " THEN FOR s = 1 TO 35: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s IF ma$ = "," OR ma$ = "!" OR ma$ = "?" THEN FOR s = 1 TO 35: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s IF i = 60 THEN LOCATE 5, 6: ra = 7 IF i = 130 THEN LOCATE 6, 6: ra = 8 FOR s = 1 TO 70 / le: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s NEXT i SOUND 200, 0 IF i = 61 THEN ra = 6 IF i = 131 THEN ra = 7 FOR s = 1 TO 50: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s IF fin = 1 THEN CALL finir(n$) COLOR 14, 1: LOCATE ra, 6 PRINT ""; IF face = 0 THEN CALL face0(face, tim) IF face = 1 THEN CALL face1(face, tim) m2$ = m$: l = 6: a$ = "": m$ = "" GOTO ga temp: que = 0 CALL tempo(a$, te2, que) tim = 1: q = 0: nom = 0 n = n + 5: IF n > 80 THEN n = 20 RETURN phrase: ha = INT(RND * 3) + 1: IF ha = 2 THEN GOTO reponse IF nom = 20 THEN CALL humain(a$, ge$, ge2$, ge3$) IF nom = 21 THEN CALL animal(a$, ge$, ge2$, ge3$) IF nom = 22 THEN CALL vegetal(a$, ge$, ge2$, ge3$) IF nom = 23 THEN CALL insecte(a$, ge$, ge2$, ge3$) IF nom = 24 THEN CALL mineral(a$, ge$, ge2$, ge3$) IF nom = 25 THEN CALL nourriture(a$, ge$, ge2$, ge3$) IF nom = 26 THEN CALL outils(a$, ge$, ge2$, ge3$) IF nom = 27 THEN CALL arme(a$, ge$, ge2$, ge3$) IF nom = 28 THEN CALL objet(a$, ge$, ge2$, ge3$) IF nom = 29 THEN CALL vetement(a$, ge$, ge2$, ge3$) IF nom = 30 THEN CALL endroit(a$, ge$, ge2$, ge3$) IF nom = 31 THEN CALL vehicule(a$, ge$, ge2$, ge3$) IF nom = 32 THEN CALL habitation(a$, ge$, ge2$, ge3$) IF nom = 33 THEN CALL livre(a$, ge$, ge2$, ge3$) IF nom = 34 THEN CALL contenant(a$, ge$, ge2$, ge3$) IF nom = 35 THEN CALL liquide(a$, ge$, ge2$, ge3$) IF nom = 36 THEN CALL materiaux(a$, ge$, ge2$, ge3$) IF nom = 37 THEN CALL breuvage(a$, ge$, ge2$, ge3$) IF nom = 38 THEN CALL corps(a$, ge$, ge2$, ge3$) IF nom = 45 THEN CALL materiel(a$, ge$, ge2$, ge3$) GOTO reponse ajuste: ca = VAL(MID$(STR$(car%), 2, 2)) IF ca = 71 THEN ve$ = d1$: ve = a% + lm% - 1: vrep$ = a$ IF ca < 70 AND nom = 0 AND a% > ve THEN nom = ca: nom2 = a%: genre = VAL(MID$(STR$(car%), 4, 1)): lenom$ = d1$ IF ca < 70 AND a% - 1 <= nom2 AND a% > ve THEN nom = ca: nom2 = a%: genre = VAL(MID$(STR$(car%), 4, 1)): lenom$ = d1$ RETURN scanneur: m2$ = m$ m$ = " " + m$ + " ": lp% = LEN(m$) ve$ = "": vrep$ = "": nom = 0: nom2 = 0: ve = 0 FOR u% = 1 TO 802: READ d1$, car%, d2$: lm% = LEN(d1$) FOR a% = 1 TO lp% - lm% + 1: IF MID$(m$, a%, lm%) = d1$ THEN a$ = d2$: GOSUB ajuste NEXT a%: NEXT u% RESTORE m$ = m2$ IF a$ = "" THEN CALL quoi(a$, quo2, que): GOTO reponse IF MID$(a$, LEN(a$) - 3, 1) = "@" THEN que = VAL(RIGHT$(a$, 3)): a$ = LEFT$(a$, LEN(a$) - 4) IF genre = 1 THEN genre$ = " un ": genre2$ = " ce ": genre3$ = " le " IF genre = 2 THEN genre$ = " une ": genre2$ = " cette ": genre3$ = " la " IF MID$(lenom$, 1, 1) = " " OR MID$(lenom$, 1, 1) = "'" THEN lenom$ = MID$(lenom$, 2, LEN(lenom$)) IF MID$(lenom$, 1, 1) = "a" OR MID$(lenom$, 1, 1) = "e" OR MID$(lenom$, 1, 1) = "i" OR MID$(lenom$, 1, 1) = "o" OR MID$(lenom$, 1, 1) = "u" OR MID$(lenom$, 1, 1) = "h" THEN genre2$ = " cet ": genre3$ = " l'" IF RIGHT$(lenom$, 1) = " " THEN lenom$ = MID$(lenom$, 1, LEN(lenom$) - 1) ge$ = genre$ + lenom$ ge2$ = genre2$ + lenom$ ge3$ = genre3$ + lenom$ IF ve$ = "" THEN GOTO phrase IF nom = 0 THEN a$ = vrep$: GOTO reponse que = 0 IF ve$ = "j'ai" THEN CALL jai(a$, ge2$, nom, ge$) IF ve$ = "je suis" THEN CALL jesuis(nom, a$, ge$) IF ve$ = "tu es" OR ve$ = "tu est" OR ve$ = "vous etes" THEN CALL tues(lenom$, nom, a$, ge$, face) IF ve$ = " es-tu" OR ve$ = "etes-vous" THEN CALL tues(lenom$, nom, a$, ge$, face) IF ve$ = " as-tu" OR ve$ = "avez-vous" THEN CALL astu(lenom$, nom, a$, ge$) IF ve$ = "tu as" OR ve$ = "vous avez" THEN CALL astu(lenom$, nom, a$, ge$) IF ve$ = "mange" OR ve$ = "bouffe" THEN CALL mange(nom, a$, ge$) IF ve$ = "boir" OR ve$ = "je bois" OR ve$ = "il boit" THEN CALL boire(nom, a$, ge$) IF ve$ = "je lis" OR ve$ = "il lit" THEN CALL lit(nom, a$, ge$) IF ve$ = "je tue" OR ve$ = "j'ai tue" THEN CALL tuer(nom, a$, ge$) IF ve$ = "je brise" THEN a$ = "pourquoi veux-tu bris" + ge$ + "!" IF ve$ = "je brule" THEN a$ = "qu'essais-tu de faire en brulant" + ge$ + "!" IF ve$ = "j'achete" THEN a$ = "tu ne vas pas t'ennuyer avec" + ge$ + "!" IF ve$ = "j'aime" THEN CALL aimer(nom, a$) IF ve$ = "embrasse" THEN CALL embrasse(a$, ge$, nom) IF ve$ = "condui" THEN CALL condui(a$, ge$, nom) IF ve$ = "je goute" THEN CALL goute(a$, nom, ge$) IF ve$ = "je prend" THEN a$ = "que veux-tu faire avec" + ge$ + "!" IF ve$ = "je jete" THEN a$ = "pourquoi tu jetes" + ge$ + "!" IF ve$ = "je touche" THEN a$ = "parfois, moi aussi je touche" + ge$ + "!" IF ve$ = "je vois" OR ve$ = "je regarde" THEN a$ = "et que vois-tu de spcial dans" + ge2$ + "!" IF ve$ = "je porte" OR ve$ = "je met" THEN CALL mettre(a$, m$, nom, ge$) IF ve$ = " lave " OR ve$ = "nettoi" THEN a$ = ge2$ + " va tre propre!" IF ve$ = " cuis " OR ve$ = " cuit " THEN CALL cuire(nom, a$, ge2$) IF ve$ = "nourri" THEN CALL nourrir(nom, a$, ge$) IF ve$ = "rempli" THEN CALL remplir(nom, a$, ge2$, ge$) IF ve$ = "trouve" THEN a$ = "que faire avec" + ge2$ + "!" IF ve$ = " sens " THEN a$ = "est-ce que ca sent bon" + ge$ + "!" IF ve$ = " vend " THEN a$ = "pourquoi vendre" + ge$ + "!" IF ve$ = " blesse" THEN CALL blesser(nom, a$, ge$) IF ve$ = "attache" THEN a$ = "n'attache pas" + ge3$ + " trop serr!" IF ve$ = "j'aide" THEN CALL aider(a$, nom, ge$, ge3$) IF ve$ = " mord " THEN CALL mordre(a$, nom, ge$, ge3$) IF ve$ = "j'appele" THEN CALL appeler(a$, nom, ge2$, ge3$) IF ve$ = "je peche" THEN a$ = "je ne suis pas sur si" + ge3$ + " est un poisson!" IF ve$ = "je leve" THEN a$ = "pourquoi tu leves" + ge3$ + "!" IF ve$ = "je joue" THEN a$ = "est-ce que c'est amusant jouer" + ge3$ + "?" IF ve$ = " lance " THEN a$ = "a quoi ca sert de lancer" + ge$ + "!" IF ve$ = "je pousse" THEN a$ = "ou veux-tu pousser" + ge2$ + "?" IF ve$ = " frappe " THEN a$ = "c'est pas trs intelligent de frapper" + ge$ + "!" IF ve$ = "je porte" THEN a$ = "est-ce que" + ge3$ + " est dur a porter?" IF ve$ = "j'apporte" THEN a$ = "pourquoi tu apportes" + ge$ + "?" IF ve$ = "dessine" THEN a$ = ge2$ + " est surement bien dessiner!" IF ve$ = "je vole" THEN a$ = "ce n'est pas bien de voler" + ge$ + "!" IF ve$ = "je donne" THEN a$ = "c'est gentil de donner" + ge$ + "!" IF ve$ = "j'ai besoin" THEN a$ = "pouquoi as-tu besoin de" + ge2$ + "?" IF ve$ = "j'ai peur" THEN a$ = "dis-moi pourquoi" + ge$ + " te fait peur?" IF ve$ = "refuse" THEN a$ = "pourquoi refuser" + ge2$ + "?" IF ve$ = "je reve" THEN a$ = "comment est" + ge3$ + " dans ton rve?" IF ve$ = "je veux" OR ve$ = "je desire" THEN a$ = "que vas-tu faire avec" + ge2$ + "?" GOTO reponse DATA " moi ",730,il n'y a pas seulement que toi DATA " toi ",730,comment ca... moi? DATA zzz,730,ne t'endors tout de suite s.v.p DATA ha,730,hahahhahaha DATA ah,730,AH AHHHO HI HII DATA hmm,730,tu semble rflchir! DATA " ou ",730,ou tu veux DATA " je ",720,aimes-tu cela? DATA " tu ",720,si vous le dites! DATA " il ",720,est-ce que vous connaissez-bien cette personne? DATA " elle",720,quel est sa plus grande qualit? DATA nous,720,je crois que nous le sommes! DATA vous,720,crois-tu vraiment que je le suis? DATA " ils ",720,ils sont comme ca! DATA " elles",720,que penses-tu d'elles? DATA veux,730,c'est bien de savoir ce qu'on veut DATA " fin ",730,la fin c'est la fin! DATA wow,730,fantastique! DATA j'ai,710,raconte moi un peu plus! DATA " as-tu",710,c'est possible! DATA avez-vous,710,je pense que oui! DATA "tu as",710,j'ai quoi? DATA "vous avez",710,vous avez peut-tre raison! DATA " es-tu",710,"parfois, je le suis!" DATA "etes-vous",710,pouquoi vous me posez cette question? DATA "je suis",710,tu es comme ca! DATA "tu es",710,si tu le dis! DATA "tu est",710,peut-tre! DATA "vous etes",710,je ne suis pas toujours comme ca DATA "j'aime",710,je suis content pour toi! DATA mange,710,je mange souvent quand j'ai faim DATA bouffe,710,je ne bouffe pas comme une cochonne comme certaine personne! DATA boir,710,l'eau est la meilleur chose a boire DATA "je bois",710,il faut boire pour vivre DATA "il boit",710,j'aime boire de l'eau froide! DATA "je lis",710,je lis souvent quand je suis seul! DATA "il lit",710,c'est bien de lire! DATA "je tue",710,ce n'est pas bien de tuer! DATA "j'ai tue",710,c'est pas trs bien de tuer! DATA "je brise",710,tu semble tre brise fer! DATA "je brule",710,fait attention de ne pas mettre le feu partout! DATA "j'achete",710,on a toujours des choses a achets! DATA embrasse,710,ca fait longtemps que je n'ai pas embrasser! DATA condui,710,ce que j'aime le plus conduire est une voiture! DATA "je goute",710,a quoi ca goute? DATA "je prend", 710, qu'est ce que tu prends? DATA "je jete",710,je ne connais pas ce que tu jetes! DATA "je touche",710,qu'est-ce que tu touche? DATA "je vois",710,"moi, je ne vois pas ce que tu vois!" DATA "je regarde",710,je crois que tu ne regardes pas au bon endroit! DATA "je porte",710,que portes-tu? DATA "je met",710,j'espre que ca te vas bien! DATA " lave " ,710,ca va tre net! DATA nettoi,710,il faut nettoyer correctement! DATA " cuis ",710,cuire quoi? DATA " cuit ",710,qu'est ce qu'il cuit? DATA nourri,710,il faut bien se nourrir! DATA rempli,710,seul un contenant peut tre remplit! DATA trouve,710,"moi, je ne trouve jamais rien!" DATA " sens ",710,j'espre que ca sent bon! DATA " vend ",710,"moi, je n'ai rien a vendre!" DATA " blesse",710,ce n'est pas bien de blesser! DATA attache,710,je ne suis pas une fille qui s'attache facilement! DATA "j'aide",710,il faut aider ceux qui en ont de besoin! DATA " mord ",710,arrte de mordre! DATA "j'appele",710,qui veux-tu appeler? DATA "je peche",710,il y a beaucoup de monde qui aime pcher! DATA "je leve",710,tu leve quoi? DATA "je joue",710,a quoi tu joues? DATA " lance ",710,je ne connais pas ce que tu lances! DATA "je pousse",710,est-ce que c'est difficile a pousser? DATA " frappe ",710,pourquoi tu n'essais pas de frapper autre chose? DATA "je porte",710,est-ce que c'est lourd a porter? DATA "j'apporte",710,qu'est-ce que tu apportes? DATA dessine,710,comment est ce dessin? DATA "je vole",710,ce n'est pas bien de voler! DATA "je donne",710,donner est une trs bonne chose! DATA "j'ai besoin",710,on a tous besoin de quelque chose! DATA "j'ai peur",710,de quoi as-tu peur? DATA refuse,710,refuser quoi? DATA "je reve",710,a quoi reves-tu? DATA "je veux",710,pourquoi tu le veux? DATA "je desire",710,il faut dsirer trs fort pour obtenir ce que l'on veux! DATA dormir,710,il faut bien dormir un peu DATA marche,710,une marche par jour loigne le docteur pour toujours DATA occupe,710,"si tu es trop occup, tu peux me parler une autre fois" DATA download,710,il y a beaucoup de chose a downloader sur Internet DATA load,710,n'oublie de tlcharger ma prochaine version DATA telecharge,710,attention de ne pas tlcharger un VIRUS! DATA " parle ",710,j'aime parler de toute sorte de chose! DATA " chante ",710,es-tu un bon chanteur? DATA comprend,710,j'aimerais comprendre aussi facilement que toi! DATA "je visite",710,j'adore visiter de nouveau endroit! DATA petit,731,les petites choses sont parfois trs utiles! DATA grand,731,je suis attir par les grandes choses! DATA " gros ",731,ca me semble assez gros! DATA " beau ",731,beau comment? DATA " belle ",731,j'adore les belles choses! DATA " joli",731,ca doit tre jolie a voir! DATA " laid",731,les choses laides ne m'attire pas beaucoup! DATA " jeune ",731,je suis une femme encore jeune! DATA " vieux",731,ce qui est vieux n'est plus jeune! DATA " vieille",731,je n'ai pas hate d'tre vieille! DATA " bon ",731,j'ai un bon caractre! DATA " bonne ",731,elle est bien bonne! DATA " fort ",731,il faut tre fort pour survivre quand ca ne va pas bien! DATA " forte ",731,certaine personne me dit que je suis forte de caractre! DATA " faible",731,"quand on est faible, il faut se reposer!" DATA intelligent,731,c'est interressant de parler avec des personnes intelligentes! DATA " idiot",731,une personne peut tre moins idiote quelle en a l'air! DATA "salope ",732,surveille ton language svp! DATA " qui ",730,qui est cette personne? DATA " chier ",731,je n'aime pas les mots vulgaire! DATA "ca va mal",731,qu'est-ce qui va mal? DATA "ca va bien",731,"parfait, moi aussi ca va bien!" DATA tete,382,"parfois, il faut se servir de sa tte!" DATA cheveu,381,cette histoire m'a fait dresser les cheveux de la tte! DATA visage,381,quel partie du visage aimes-tu le plus? DATA oreille,382,ce n'est pas tomb dans l'oreille d'un sourd! DATA yeux,381,quel couleur sont tes yeux? DATA oeil,381,quel couleur est ton oeil? DATA " nez",381,ca fait longtemps que je n'ai pas saign du nez! DATA bouche,382,cela me met l'eau a la bouche! DATA dent,382,"quand j'tais petite, j'avais ouvent mal au dent!" DATA moustache,382,il y a des moustaches que je trouve trs jolie! DATA levre,382,certain personne dise que j'ai de trs belle lvres! DATA barbe,382,ca ne doit pas tre amusant de se raser souvent la barbe! DATA crane,381,as-tu dja eu mal au crane? DATA cerveau,381,mon cerveau est trs different des autres! DATA cervelle,382,"parfois, j'ai une cervelle d'oiseau!" DATA " coeur",381,je suis une personne qui a beaucoup de coeur! DATA " os ",381,je ne suis pas vraiment en chair et en os! DATA " veine",382,j'ai du bon sang dans mes veines! DATA sang,381,je n'aime pas beaucoup voir du sang! DATA " peau ",382,il ne faut pas juger quelqu'un par la couleur de sa peau! DATA muscle,381,je ne suis pas plus attir par les hommes muscls! DATA poumon,381,c'est important d'avoir de bon poumon! DATA squelette,381,les squelettes me font vraiment peur! DATA " chair ",382,j'aime beaucoup parler avec des personnes en chair et en os! DATA " cou ",381,je n'aimerais pas me briser le coup! DATA corps,381,je fais souvent de l'exercice pour garder la forme! DATA epaule,381,quel est le plus gros fardeau que tu as port sur tes paules? DATA " sein ",381,je crois que j'ai de beaux seins! DATA " seins",381,je crois que j'ai de beaux seins! DATA poitrine,382,j'espre que je vais toujours avoir une jolie poitrine! DATA ventre,381,que fais-tu quand tu as mal au ventre? DATA " dos ",381,"quand je force trop, j'ai un norme mal de dos!" DATA "bras ",381,que ferais-tu si tu n'avais qu'un bras? DATA main,382,j'adore tenir la main quand j'aime un gars! DATA doigt,381,c'est vraiment pratique des doigts! DATA ongle,381,"quand je me casse un ongle, je ne suis pas jolie a voir!" DATA fesse,382,ca me gne quand les gars me regarde les fesses! DATA sexe,381,le sexe n'est pas mon sujet prfr! DATA vagin,381,ca me gne de parler de vagin! DATA penis,381,je sais que les gars ont toutes un pnis ou presque! DATA anus,381,as-tu dja entendu parler d'anus artificielle? DATA jambe,382,ou aimes-tu le plus aller avec tes jambes? DATA genou,381,mes pantalons sont us jusqu'aux genoux! DATA pied,381,je ne suis pas du genre a me laisser marcher sur les pieds! DATA orteil,382,ca fait mal se cogner la grosse orteille! DATA poil,381,mon chat perd souvent des poils! DATA " cil ",381,je ne porterai jamais de faux cils! DATA sourcil,381,je laisse mes sourcils comme ils sont! DATA langue,382,je n'aimes pas ceux qui ont une mauvaise langue! DATA salive,382,"quand je suis trs nerveuse, j'avale ma salive!" DATA gorge,382,dis-moi ce que tu as dans la gorge? DATA gencive,382,le dentiste dit que j'ai des belles gencives! DATA front,381,"quand j'ai chaud, j'ai le front mouill!" DATA narine,382,je respire toujours par les narines! DATA menton,381,j'ai un menton comme tout le monde! DATA joue,382,mes joues deviennent rouge quand je suis gner! DATA toupet,381,c'est plus long de se peigner quand on a un toupet! DATA nuque,382,c'est douloureux de recevoir un bon coup sur la nuque! DATA nombril,381,je n'aime pas ceux qui se prennent pour le nombril du monde DATA coude,381,il faut se serrer les coudes quand ca ne va pas bien! DATA poignet,381,je me suis dja fouler le poignet et ca fait mal! DATA " cul ",381,je n'aime pas parler de chose vulgaire! DATA plote,382,peut-on changer de sujet! DATA queue,382,mon chat a une trs jolie queue! DATA machoire,382,il y a des animeaux qui ont des machoires dangereuses! DATA face,382,quel partie de la face prfres-tu? DATA patte,382,mon chat retombe toujours sur ses pattes! DATA griffe,382,mon chat n'est pas gentil quand il sort ses griffes! DATA aile,382,j'aimerais avoir des ailes et voler dans le ciel! DATA plume,382,les oiseaux ont de super jolie plumes! DATA nageoire,382,c'est beau une nagoire de poisson! DATA minet,211,mon chat s'appelle Minet! DATA " or ",241,j'aimerais avoir une belle bague en or DATA "'or ",241,j'aimerais avoir une belle bague en or DATA " lit ",281,a quoi penses-tu quand tu es dans ton lit? DATA " bois ",301,je me suis dja perdu dans un bois quand j'tais petite! DATA " mer ",302,j'ai t une seule fois sur la mer et ca fait longtemps DATA ibm,281,IBM est excellent! DATA " mac ",281,le MAC est moins populaire que le PC! DATA " pc ",281,le PC est plus intressant que le MAC! DATA gaz,351,le gaz coute de plus en plus cher de nos jour! DATA essence,352,il faut que je fasse je plein d'essence bientot! DATA petrole,351,j'aimerais visiter un gros puits de ptrole! DATA huile,352,tu me fais penser a faire mon changement d'huile sur ma voiture! DATA rock,451,j'adore couter du bon rock! DATA heavy,451,j'aime bien le heavy metal! DATA dance,451,j'coute du dance a l'occasion! DATA country,451,mon pre aime beaucoup le country DATA western,451,j'aime surtout les films western DATA classique,451,c'est reposant couter de la musique classique DATA couleur,452,quel est ta couleur prfr? DATA blanc,451,le blanc est un couleur fatiguante comme background DATA noir,451,le noir est une de mes meilleurs couleurs DATA gris,451,je n'aime pas beaucoup le gris DATA jaune,451,un jaune banane! DATA rouge,451,il y a des fois ou je vois rouge! DATA brun,451,je n'aime pas le brun! DATA vert,451,le vert est un couleur reposante DATA bleu,451,le bleu est ma couleur prfr! DATA mauve,451,le mauve me va bien DATA violet,451,le violet est une belle couleur! DATA pont,281,il coulera de l'eau sous les ponts avant que disparaisse! DATA date,452,ma date de naissance est le 1 juillet 19?? DATA heure,452,je suis toujours a l'heure DATA seconde,452,je te donne quelques seconde pour me rpondre DATA vrai,731,tu as raison! DATA faux,731,c'est peut-tre faux! DATA quit,731,"si tu veux quitter, appuie sur Esc" DATA remi,201,Rmi est le gars qui m'a programmer! DATA amanda,202,Amanda est mon nom! DATA eliza,202,eliza est une de mes amies DATA cheri,202,cheri est mon ami DATA boisson,372,je n'aime pas la boisson alcoolique! DATA " eau",371,"l'eau, c'est bon pour la sante" DATA "'eau",371,"l'eau, c'est bon pour la sante" DATA lait,371,"moi, je bois mon lait comme ca me plait" DATA " jus ",371,"Huumm, du bon jus" DATA liqueure,372,"je bois du Pepsi, Coca Cola, Crush, Seven Up et Cream Soda" DATA pepsi,371,tu me donne soif avec ton Pepsi DATA coca cola,371,je commence a avoir soif avec ton Coca Cola DATA coke,371,je commence a avoir soif avec ton Coke DATA crush,371,je bois souvent de l'orangeade Crush DATA seven up,371,un Seven Up... c'est dlicieux DATA cream soda,371,j'adore le Cream Soda DATA biere,372,je n'aime pas boire de la bire DATA " vin ",371,je prfre boire de l'eau froide DATA drogue,732,je ne touche pas a la drogue DATA fruit,251,il y a beaucoup de bon fruit DATA pomme,252,j'aime surtout la tarte au pomme DATA poire,252,c'est mon fruit prfr DATA banane,252,il faut faire ATTENTION a la pelure de banane DATA orange,252,j'aime bien le jus d'orange DATA raisin,251,"quand je mange des raisins, je ne veux plus arrter" DATA prune,252,je n'aime pas vraiment les prunes DATA fraise,252,"Huummmm, j'adore les bonnes fraises" DATA framboise,252,les framboises sont trs dlicieusent DATA cerise,252,je trouve les cerises trs bonne a manger DATA legume,251,les lgumes sont bon pour la sant DATA tomate,252,je mange souvent des sandwichs au tomates DATA concombre,251,j'aime les concombres avec du sel et du poivre DATA carotte,252,c'est rare que je mange des carottes DATA salade,252,je n'aime pas beaucoup la salade DATA desert,251,j'aime BEAUCOUP les dserts DATA gateau,251,le gateau est mon dsert prfr DATA creme glacee,252,"quand il fait chaud, j'adore manger de la crme glace" DATA tarte,252,ma tarte prfr est la tarte au pomme DATA biscuit,251,je ne peut rsister a un bon biscuit DATA chocolat,251,"le chocolat, c'est bon mais il ne faut pas trop en manger, sinon on va grossir un peu." DATA chips,251,"quand je mange des chips au barbecue, je ne peut plus arrter" DATA peanut,252,"hoouuummmm, des peanuts au barbecue" DATA pain,251,le pain blanc est mon Prfr DATA " oeuf",251,j'aime prendre un oeuf le matin DATA bacon,251,"quelque fois, je mange du bacon" DATA toast,252,je mange souvent des toasts au beurre de peanut le matin DATA viande,252,je mange trs peu de viande DATA steak,251,ou steak cach DATA poisson,251,je prfre les regarder que les manger DATA poulet,251,j'adore le poulet frit kentucky DATA cereal,251,c'est rare que j'en mange DATA fromage,251,j"aime surtout le fromage dans la poutine DATA sandwich,251,je ne trippe pas trop sur les sandwich DATA beurre,251,"le beurre, c'est franchement meilleur" DATA confiture,252,une bonne confiture au fraise DATA " sel ",251,le sel est trs souvent utiliser en cuisine DATA poivre,251,"le poivre, ca fait ternuer" DATA sucre,251,je n'aime pas ca quand c'est trop sucr DATA miel,251,c'est trs bon le miel DATA soupe,252,j'aime plusieurs sorte de soupe DATA "hot dog",251,j'adore manger un bon hot dog DATA frite,252,j'adore les frites dans une bonne poutine DATA poutine,252,"HMMM... une bonne poutine" DATA hamburger,251,je commence a avoir faim DATA pizza,252,je ne peux rsister a une bonne pizza DATA sous-marin,251,j'aime beaucoup les sous-marins chez MIKE DATA riz,251,je n'aime pas vraiment le riz DATA macaroni,251,le macaroni est mon repas prfr DATA spaghetti,251,je vais avoir faim avec ton spaghetti DATA lasagne,252,"Wouuii, ca c'est dlicieux" DATA insecte,231,mon insecte prfr est le papillon DATA papillon,231,le papillon est mon insecte prfr DATA mouche,232,je trouve ca achalant une mouche DATA maringouin,231,je deteste cet insecte DATA guepe,232,j'ai un peu peur des gupes DATA abeille,232,j'aime le miel que les abeilles font DATA araignee,232,je me demande comment ils font de si jolie toile DATA sauterelle,232,c'est amusant une sauterelle DATA " ver ",231,les vers sont trs dgoutant! DATA chenille,232,la chenille se transforme en papillon! DATA bourdon,231,la piqure du bourdon est trs douloureuse! DATA coccinelle,232,la coccinelle est un jolie insecte! DATA libellule,232,le vol des libellules rasant l'eau est beau a voir! DATA animal,211,les animaux sont plus intelligents que l'on croit! DATA renard,211,Rmi est rus comme un renard! DATA mouffette,212,mon chat s'est dja fait arroser par une mouffette! DATA lievre,211,il ne faut pas courir 2 livre a la fois! DATA " ours ",211,il ne faut pas vendre la peau de l'ours avant de l'avoir tuer! DATA pieuvre,212,la chair de la pieuvre est comestible! DATA truite,212,j'ai dja pch une grosse truite quand j'tais jeune! DATA perroquet,211,un perroquet dit souvent la meme chose! DATA serin,211,j'ai dja eu un beau petit serin jaune! DATA perruche,212,j'ai dja eu une perruche orange! DATA colombe,212,la colombe est le symbole de la paix! DATA canard,211,j'aime regarder les canards nager dans l'eau! DATA " ane ",211,l'ane est un animal assez ttu! DATA chameau,211,j'aimerais beaucoup me promener sur un chameau! DATA mouton,211,les moutons blent souvent! DATA lapin,211,j'adore flatter un lapin! DATA guepard,211,le gupard court trs vite! DATA rhinoceros,211,le rhinocros est trs gros! DATA phoque,211,ce n'est pas bien de tuer les phoques pour leur fourrures! DATA requin,211,je n'aimerais pas tre face a face avec un mchant requin DATA baleine,212,je n'ai jamais vu de vrai baleine DATA dauphin,211,le dauphin est trs intelligent DATA piranha,211,j'ai peur des piranhas DATA oiseau,211,j'ai deja eu un petit oiseau DATA aigle,211,l'aigle est un oiseau trs fort DATA faucon,211,je prfre l'aigle DATA moineau,211,je trouve ca trs mignon DATA mouette,212,il y a beaucoup de mouette dans les parcs DATA pigeon,211,j'aimerais avoir un beau pigeon DATA hibou,211,il est amusant cet hibou DATA corbeau,211,cet oiseau est malin quand il a faim DATA reptile,211,Yeurk... je trouve ca dgueulasse DATA serpent,211,j'ai peur des serpents DATA couleuvre,212,"quand je vois une couleuvre, je m'loigne d'elle" DATA tarentule,212,je n'aime pas cette bibitte DATA cobra,211,c'est un serpent trs dangereux DATA lezard,211,OOOUUiichh... Yaaaarrk... DATA crocodile,211,je n'aimerais pas me faire mordre par ca DATA alligator,211,il ne faut pas essayer d'attraper un alligator si on veut rester en vie DATA tortue,212,je connais l'histoire du livre et la tortue DATA chat,211,le chat est mon animal prfr DATA chien,211,j'aime les chiens qui ne sont pas trop collant DATA cheval,211,j'ai toujours rv d'avoir un beau cheval DATA vache,212,j'aime bien les vaches car elles font du bon lait DATA poule,212,la poule fait des bons oeufs frais DATA coq,211,Cocoooorriiiiiiicooo DATA cochon,211,je n'aime pas les cochons DATA dinosaure,211,c'est dommage que cet animal est disparu DATA elephant,211,"un lphant, ca trompe normment" DATA " loup",211,j'ai toujours eu peur des loups! DATA girafle,212,la girafle a un trs long cou DATA hippopotame,211,ca ne bouge pas beaucoup un hippopotame DATA chevre,212,Baaaaiiie baaaiiiie DATA chevreuil,211,"parfois, il y a sur le bord de la rue" DATA orignal,211,c'est un animal pas mal fort DATA bison,211,j'en ai vu seulement au zoo DATA taureau,211,le taureau n'aime pas la couleur rouge DATA zebre,211,c'est spcial un zbre DATA tigre,211,je n'aimerais pas qu'un tigre cours aprs moi DATA lion,211,le lion est le roi des animeaux DATA panthere,212,je trouve que la panthere est un animal mystrieux DATA singe,211,c'est l'animal le plus drole que je connais DATA gorille,211,j'en vois quand je vais au zoo DATA dragon,211,le dragon est un animal fantastique DATA ciel,451,j'aime regard dans le ciel DATA etoile,452,il y a beaucoup d'toile dans le ciel DATA planete,452,il y a surement de la vie sur d'autre plante DATA soleil,451,"quand il y a du soleil, j'aime me promener dehors" DATA lune,452,je suis souvent dans la lune quand je suis seul DATA nuage,451,je n'aime pas les gros nuages de pluie DATA vegetal,221,il y a beaucoup de vgtal dans une fort DATA arbre,221,"quand j'etais jeune, je montais souvent dans les arbres" DATA herbe,221,je deteste surtout la mauvaise herbe DATA plante,222,j'ai 3 jolies plantes chez moi! DATA fleur,222,j'aime beaucoup les jolies fleurs DATA " rose",222,la rose est ma fleur prfr DATA roche,242,je connais du monde qui ont la tte dur comme de la roche et le coeur dur comme de la pierre DATA pierre,242,j'aimerais avoir une pierre prcieuse DATA poussiere,242,"un jour, on retournera poussire" DATA diamant,241,le diamant est ma pierre prcieuse prfr DATA cuivre,241,le cuivre ne m'attire pas du tout DATA argent,241,j'aime l'argent car c'est trs pratique DATA " lac ",301,il y a un beau lac prs de chez moi DATA riviere,302,j'ai failli me noyer dans une rivire quand j'etais jeune DATA ocean,301,"si j'avais assez d'argent, je ferais un voyage sur l'ocan" DATA montagne,302,j'aime all dans les montagnes DATA colline,302,je n'ai rien a dire sur les collines DATA plaine,302,c'est ennuyant tout seul dans une plaine DATA marais,301,je dteste marcher dans un marais DATA foret,302,il y a beaucoup d'animaux dans une grande fort DATA desert,301,je n'aimerais pas tre perdu dans un dsert DATA route,302,il y a beaucoup de route dans les grandes villes DATA " rue ",302,j'habite dans un petite rue DATA ville,302,j'aime visit les grandes villes DATA glace,452,"l'hiver, je patine sur la glace!" DATA " vent ",451,c'est nervent quand il y a beaucoup de vent DATA pluie,452,c'est beau la pluie mais c'est mouillant DATA chaleur,452,ce n'est pas la chaleur qui manque l't DATA froid,451,il fait froid l'hiver DATA neige,452,c'est jolie la neige DATA brume,452,on ne vois presque rien quand il y a beaucoup de brume DATA orage,451,il n'y a pas beaucoup de monde qui aimes ca DATA tempete,452,il y a eu un grosse tempte de neige cette anne DATA " jour ",451,"un jour, je serai beaucoup plus rapide et plus intelligente" DATA nuit,452,il faut faire attention la nuit car c'est plus dangereux DATA eclipse,451,c'est dangereux pour les yeux de regarder une clipse DATA alsphate,361,heureusement qu'il y a de l'alsphate dans les rues DATA ciment,361,les trotoirs sont fabriqus en ciment DATA plastique,361,les objets en plastique sont fragile DATA acier,361,ca c'est dur l'acier DATA metal,361,quelque fois j'coute du Heavy Metal DATA " fer ",361,c'est un matriaux trs solide DATA aluminium,361,l'aluminium est trs lger et trs pratique DATA vitre,362,il y a beaucoup de vitre chez moi DATA brique,362,c'est beaux une maison en brique DATA " male ",201,est-ce qu'il y a un beau male par ici? DATA homme,201,j'adore les hommes gentils DATA monsieur,201,es-tu un beau monsieur? DATA gars,201,mon programmeur est un bon gars DATA garcon,201,les garcons sont toujours en train de me regarder! DATA femme,202,il parait que je suis une jolie femme DATA fille,202,je suis une fille courageuse DATA femelle,202,la chvre est la femelle du bouc DATA enfant,201,j'aimerais avoir un enfant plus tard DATA bebe,201,"parfois, je suis un peu bb" DATA vieillard,201,il faut respect les vieillards car un jour on sera vieux nous aussi DATA voleur,201,ce n'est pas bien de voler DATA police,202,les polices sont plus utiles qu'on le croit DATA gardien,201,j'ai mon ange gardien avec moi DATA vendeur,201,je ne ferais pas une bonne vendeuse car je suis trop honnte DATA avocat,201,les avocats ne sont pas tous honntes! DATA pompier,201,les pompiers risquent souvent leurs vies pour sauver les autres! DATA plombier,201,le plombier connait bien les tuyaux! DATA ouvrier,201,un ouvrier travaille bien de ses mains! DATA electricien,201,l'lectricien connait bien les installations lectriques! DATA boulanger,201,le boulanger fait du trs bon pain! DATA soldat,201,tre soldat n'est pas toujours facile! DATA fermier,201,le fermier aime beaucoup ses animeaux! DATA peintre,201,un vrai peintre n'a pas peur de se salir les mains! DATA madame,202,je ne suis pas encore une madame! DATA demoiselle,202,je suis une jolie demoiselle! DATA cuisinier,201,un cuisinier sait faire de la bonne cuisine! DATA serveur,201,je laisse toujours un pourboir au serveur! DATA bicycle,311,je fais souvent de la bicyclette quand il fait beau dehors DATA velo,311,tu devrais voir mon beau vlo DATA moto,312,je n'ai jamais monter sur une moto DATA auto,311,mon auto prfr est la lamborguini et la ferrari DATA camion,311,"un jour, je me suis presque fais ecraser par un gros camion" DATA train,311,je n'ai jamais pris le train mais j'aimeras beaucoup ca le prendre DATA metro,311,il y a de bon mtro a Montral ou j'habites DATA bateau,311,aimerais-tu avoir un beau bateau?@015 DATA sous-marin,311,je crois que j'aurais peur d'aller dans un sous-marin DATA pedalo,311,"la dernire fois que j'ai fait du pdalo, il y avait beaucoup de vague et c'tait trs difficile de pdaler." DATA avion,311,j'ai dja vu un avion dans le ciel DATA fusee,312,"le problme avec les fuses, c'est qu ca coute trs cher" DATA helicoptere,311,c'est super tripant faire un tour d'hlicoptre DATA tank,311,on est en scurit dans un tank DATA ovni,311,je n'ai jamais vu d'ovni mais j'aimerais bien en voir un DATA voiture,312,j'ai hate de m'acheter une nouvelle voiture! DATA maison,322,il y a beaucoup de maison prs de chez moi DATA roulotte,322,je trouve que c'est petit dans une roulotte DATA appartement,321,j'ai dja eu un bel appartement DATA edifice,321,il y a beaucoup d'difice a Montral DATA " tente",322,c'est amusant dormir dans une tente avec des amis DATA grange,322,"souvent, les granges n'ont pas l'air trop solide" DATA ferme,322,c'est plaisant de regarder les animeaux a la ferme DATA restaurant,321,mon restaurant prfr est le Mc Donald! DATA cimetiere,301,je n'aime pas aller dans un cimetire le soir! DATA magasin,321,je me promene souvent dans les magasins DATA depanneur,321,mon maitre achete souvent des choses au dpanneur DATA usine,321,beaucoup de mondes travail dans les usines DATA chambre,302,c'est dans ma chambre que je lis mes livres DATA salon,301,je regarde souvent la tlvision dans le salon DATA cuisine,302,je cuisine assez bien DATA garage,301,ca coute cher faire rparer son auto au garage DATA sous-sol,301,il fait toujours froid dans les sous-sols DATA toit,301,"quand il pleut dans la maison, il faut faire rparer son toit" DATA grenier,301,on trouve toujours quelques choses d'ancien dans un grenier DATA eglise,301,le monde ne va presque plus a l'glise DATA ordinateur,281,je suis sur que tu aimes beaucoup ton ordinateur DATA television,282,je regarde souvent la tlvision le soir DATA radio,281,as-tu un bonne radio chez toi?@016 DATA telephone,281,tout le monde devrait avoir un tlphone DATA video,281,j'aime jou au jeux vido surtout Mortal Kombat DATA calculatrice,282,mon maitre est un peu calculatrice DATA montre,282,j'ai une montre INDIGLO et ca claire bien dans un cinma DATA argent,281,il faut de l'argent pour acheter des choses DATA monnaie,282,ma tirelire est remplie de monnaie DATA portefeuille,281,j'ai dja perdu mon portefeuille et il y avait 100 dollars dedans DATA bureau,281,qu'est-ce qu'il y a dans ton bureau DATA mirroir,281,mirroir... mirroir... dis-moi qui est la plus belle? DATA " mur ",281,ce sont les murs de briques qui sont les plus solides DATA cadran,281,je n'aimes pas me faire rveiller par mon cadran le samedi matin DATA horloge,282,mon horloge a une belle sonnerie DATA fenetre,282,as-tu deja bris un fenetre quand tu tais jeune?@017 DATA plancher,281,aimes-tu mieux les planchers en bois ou en tapis? DATA plafond,281,il y a une araigne dans mon plafond DATA porte,282,je t'ouvre la porte de mon coeur DATA rideau,281,le chat de ma voisine a tout dchirer ses rideaux DATA tapis,281,aimes-tu les tapis?@018 DATA garde-robe,281,mon garde-robe est plein de vetements DATA lampe,282,je suis en train de regarder ma lampe DATA lumiere,282,il ne faut pas regarder la lumire trop longtemps DATA " four ",281,je cuis souvent au four et au micro-ondes DATA frigidaire,281,mon frigidaire est toujours plein de nourriture DATA table,282,j'aime mieux manger sur une table que sur un comptoir DATA chaise,282,je suis assis sur ma chaise prfr DATA divan,281,un de mes amis aime dormir sur son divan DATA " drap ",281,j'aime dormir dans des beaux draps propres! DATA sofa,281,"parfois, je fais la sieste sur mon sofa" DATA laveuse,282,c'est important d'avoir une laveuse DATA secheuse,282,c'est trs utile d'avoir une scheuse DATA bain,281,je me lave toujours dans mon bain DATA douche,282,j'aime mieux le bain que la douche DATA armoire,281,que caches-tu dans ton armoire? DATA lavabo,281,je me lave les mains dans le lavabo DATA toilette,282,on est tous oblig d'aller au toilettes DATA micro-onde,281,je rchauffe souvent des choses dans mon four micro-ondes DATA meuble,281,quel est le meuble que tu aimes le plus? DATA bouteille,342,est-ce que tu aimes les bouteilles de bieres?@019 DATA verre,341,j'ai le gout d'un bon verre de lait DATA assiette,342,noublie pas de manger ce qui est dans ton assiette DATA " bol ",341,je mange souvent de la soupe dans un bol DATA fourchette,282,je n'aime pas manger du dsert avec une fourchette DATA couteau,271,attention de ne pas te couper les doigts avec ca DATA cuiller,282,je mange mes dserts avec une cuiller DATA poele,341,"quelque fois, j'ai la tte dur comme un pole" DATA chaudron,341,j'ai un trs beau chaudron que ma mre m'a donn DATA peigne,281,est-ce que tu te peignes souvent?@020 DATA brosse,282,j'apporte toujours ma brosse a cheveux avec moi DATA rasoir,281,est-ce que tu aimes te raser?@021 DATA sechoir,281,je me sche toujours les cheveux avec mon schoir DATA chaufferette,282,"l'hiver, je rchauffe mes bottes avec une chaufferette" DATA couverture,282,je dors bien sous mes couvertures dans mon lit DATA oreiller,281,je dors avec 2 oreiller sous ma tte DATA livre,331,je lis toutes sortes de livres quand je suis seul DATA cassette,282,j'ai beaucoup de cassettes de musiques DATA photo,282,il parait que je fais de belles photos DATA cadre,281,j'ai un gros cadre avec un beau dragon dessus DATA bouquet,281,ca fait longtemps que je n'ai pas recu un bouquet de fleurs DATA crayon,281,il ne me reste presque plus de crayon DATA stylo,281,ca crit mieux avec un stylo qu'avec un crayon DATA papier,281,mon tirroir est rempli de papier DATA sacoche,282,je ne porte pas de sacoche! DATA ceinture,282,c'est rare que je mets une ceinture! DATA botte,292,il faut une bonne pair de bottes pour travailler dans la construction DATA soulier,291,il faut toujours tre bien dans ses souliers DATA chaussure,292,mes chaussures sont bonnes pour aller a la poubelle DATA " bas ",291,tout mes bas sont blanc DATA culotte,292,je porte des culottes comme tous le monde DATA slip,291,quel couleur sont tes slips? DATA gilet,291,je porte un gilet avec un dessin de loup DATA camisole,292,je ne porte jamais de camisole DATA chandail,291,j'ai beaucoup de chandails dans mon bureau DATA chemise,292,fais attention de ne pas perdre ta chemise... DATA veste,292,as-tu deja eu un veste?@022 DATA manteau,291,j'ai un manteau trs chaud pour l'hiver DATA foulard,291,je porte un foulard chaque fois que je fais du ski DATA casquette,292,"quand j'etais jeune, j'avais toujours une casquette sur la tte mais plus maintenant" DATA chapeau,291,il y a un magasin de chapeaux prs de chez moi DATA pantalon,291,je porte souvent un pantalon DATA robe,292,c'est trs jolie une robe sur une fille DATA jupe,292,"quand je veux que les gars me regarde, je porte une belle jupe sexy" DATA pelle,262,c'est essouflant pelleter de la neige DATA rateau,261,"l'automne, il y a toujours des feuilles a ramasser avec le rateau" DATA escabeau,261,c'est trs pratique un escabeau DATA echelle,262,j'ai dja tomber en bas d'une chelle et je me suis fais mal DATA marteau,261,il faut frapper sur les clous et non sur les doigts DATA " scie ",262,mon pre scie souvent du bois DATA clous,281,un clous tous croche DATA " vis ",282,la vis de mon tiroir se devisse tout le temps DATA planche,282,il faut beaucoup de planche pour construire une maison DATA tondeuse,262,n'oublie pas de tondre le gazon DATA brouette,262,c'est trs utile d'avoir une brouette DATA remorque,312,parles-tu d'une remorque de camping?@023 DATA echafaud,261,les chafauds son souvent utilis dans la construction DATA basic,331,j'ai t programmer en QuickBasic DATA sex,450,"SUPER, j'adore le SEXE..." DATA fuck,451,F U C K !!! DATA merde,452,tomber dans la merde DATA marde,452,les mains dans la marde DATA famille,202,pensez-vous souvent a votre famille?@024 DATA mere,202,aimes-tu ta mre?@025 DATA " pere",201,est-ce que tu vois souvent ton pre?@026 DATA soeur,202,dis moi plus a propos de ta soeur? DATA frere,201,j'aurais aim avoir un frre DATA "mari ",201,je n'ai pas encore trouver un mari! DATA epouse,202,la plupart des femmes font des bonnes pouses DATA " ami",201,avez-vous beaucoup d'amis?@027 DATA ordinateur,281,est-ce que vous pensez qu'un ordinateur peut aider une personne?@028 DATA reve,451,est-ce que tu reves souvent?@029 DATA cauchemar,451,quel est ton pire cauchemar? DATA amour,451,que represente pour toi le vrai amour? DATA peur,452,raconte-moi ta plus grande peur DATA " nom ",451,je ne connais pas beaucoup de nom DATA "ton nom",331,Je m'appelle Amanda DATA "votre nom",331,mon nom est Amanda DATA peut-etre,730,en es-tu bien sur? DATA toujours,730,ca ne durera pas toujours DATA pareil,730,c'est du pareil au mme DATA travail,451,il faut travailler pour avoir de l'argent DATA " job ",451,dans quoi aimerais-tu travailler? DATA patron,201,j'espre que tu as un bon patron@030 DATA triste,730,je n'aime pas voir une personne triste DATA content,730,c'est bien d'tre content DATA fache,730,j'espre que tu n'est pas fach contre moi@031 DATA adulte,201,je suis une adulte et toi? DATA bbs,331,il y a beaucoup de chose intressantes dans les bbs! DATA cool,730,c'est cool parler avec toi! DATA programme,281,"vous voulez un bon programme, lisez le guide TV!" DATA idiot,451,ce n'est pas si idiot que ca DATA stupid,451,"parfois, les choses sont moins stupides qu l'on croit" DATA fichier,281,ma memoire contient plusieurs fichiers DATA jeux,281,Mortal Kombat est le jeux que j'ai aim le plus DATA humain,201,"parfois, je suis presque humaine" DATA insulte,732,je n'aime pas les insultes DATA legal,731,ce programme est tout a fait lgal DATA modem,281,les modems commence a tre trs rapide DATA jamais,730,il ne faut jamais dire jamais DATA vieux,731,je ne suis pas un vieux programme comme mon amie Eliza DATA pirate,201,un vrai pirate connait bien le language assembleur et le language machine DATA possible,730,tout est possible si on y croit vraiment DATA question,732,c'est une trs bonne question DATA condom,281,il faut toujours porter un condom... DATA merde,282,ah merde! DATA sommeil,451,"quand je dors, j'ai un sommeil profond" DATA desole,730,"ne vous dsolez pas, les choses vont s'arranger" DATA vite,731,je crois que vous agissez trop vite DATA lent,731,lentement mais surement DATA etrange,731,le monde est trange DATA " fou ",731,seul un fou peut rire de ce qu'il ne connait pas DATA ruse,732,dis-moi comment rus tu es? DATA sysop,201,je suis une sorte de sysop DATA "temp ",731,"le temps, c'est de l'argent" DATA enfer,301,l'enfer c'est nous autre! DATA " haine",732,la haine est une mauvaise chose! DATA paradis,301,j'aimerais vois comment est le paradis DATA clown,201,ils sont drole les clowns du cirque DATA fete,452,ma fte est le 1 juillet DATA " age ",451,je parais plus jeune que mon age DATA temperature,452,aimes-tu mieux la pluie ou la neige? DATA hobby,451,quel est ton hobby prfr? DATA rire,451,le rire est bon pour la sant! DATA chance,332,j'ai beaucoup de chance de parler avec toi DATA malchance,332,il y a des personnes qui sont malchanceux DATA email,331,"si tu veux parler a mon maitre, tu peux lui envoy un email" DATA nouveau,731,"ca alors, c'est nouveau!" DATA reponse,332,je n'ai pas la rponse a toutes les questions DATA peux-tu,730,je crois que je peux! DATA puis-je,730,vous faites ce que vous voulez! DATA pouvez-vous,730,bien sur que je le peux DATA "aimes-tu",730,"oui, j'aime ca!" DATA pourquoi,730,parce que c'est comme ca! DATA comment,730,je ne peux pas te dire comment! DATA quand,730,je ne sais pas exactement quand! DATA "je ne peux pas",730,je suis dsol pour toi! DATA "je deteste",730,pourquoi tu dteste ca? DATA "je veux",730,quel est la chose que tu veux le plus? DATA "je pense",730,je le pense aussi! DATA machine,282,il parait que je suis une machine DATA aide,731,"si tu veux un peu d'aide, appuie sur F1!" DATA massage,731,je peux te faire un bon massage si tu veux DATA amuse,730,qu'est-ce qui t'amuse le plus dans ceci? DATA meurtre,451,"a mon avis, il y a beaucoup trop de meurtre dans le monde" DATA mort,451,mourrir pendant son sommeil est la plus belle mort DATA combien,730,il y en a beaucoup DATA different,731,ce n'est pas si diffrent que ca DATA operation,452,as-tu peur des oprations?@032 DATA acces,451,l'accs n'est pas toujours facile a avoir! DATA surf,451,je surf souvent sur le net DATA carte,282,est-ce que tu joues souvent au carte?@033 DATA credit,331,il ne faut pas trop dpenser avec une carte de crdit DATA ancien,731,mon maitre programme a la manire ancienne! DATA blague,332,"si tu veux une blague, tape le mot (blague)" DATA histoire,332,racontes-moi ta meilleur histoire! DATA " rien ",731,rien comme dans zro! DATA dieu,201,il y a surement un dieu quelque part! DATA diable,201,le diable est trs mchant! DATA " ange",201,je suis ton ange-gardien! DATA president,201,je ne connais que le prsident des Etats-Unis! DATA futur,731,le futur va nous en mettre plein la vue! DATA " hier ",730,c'tait une belle journe hier! DATA demain,731,ca sera peut-tre encore mieux demain DATA semaine,452,la fin de semaine est la meilleur partie de la semaine DATA important,730,il y a toujours quelque chose d'important DATA bible,332,il y a beaucoup de chose intrressante dans la bible DATA lundi,451,le lundi est le pire jour de la semaine DATA mardi,451,le mardi est un peu difficile a avaler DATA mercredi,451,le mercredi est pas mal DATA jeudi,451,le jeudi est bien pratique DATA vendredi,451,le vendredi soir est super DATA samedi,451,le samedi est ma meilleur journe DATA dimanche,451,le dimanche est la journe que je me repose le plus DATA humour,731,as-tu un bon sens de l'humour?@034 DATA danse,452,j'aurais besoin d'un bon cour de danse DATA hockey,731,mon meilleur joueur d'hockey est Wayne Gretzky! DATA baseball,731,c'est un coup de circuit... DATA football,731,il faut tre fort pour jouer au football DATA soccer,731,c'est essouflant jouer au soccer DATA golf,731,je prfre jouer au mini-putt! DATA tennis,731,je tennis est un sport que j'aime bien! DATA basquetball,731,"quand j'allais a l'cole, j'tais bonne au basquetball!" DATA trouble,731,je ne cherche pas le trouble DATA bank,322,la bank est remplie d'argent! DATA pardon,731,c'est Ok! DATA juge,201,"si tu n'es pas content, nous irons devant le juge" DATA accident,451,quel est le plus gros accident que tu as eu? DATA chef,201,j'ai un temprament de chef DATA camelot,201,je suis amie avec le camelot qui apporte mon journal DATA timbre,281,les timbres commencent a couter pas mal cher DATA lettre,332,je n'ai jamais recu de lettre d'un ami! DATA enveloppe,282,l'adresse est crite sur l'enveloppe DATA sang,281,j'ai horreur du sang DATA innocent,201,parfois des innocents vont en prison DATA virus,281,as-tu dja eu un virus?@035 DATA facile,730,ce n'est pas toujours facile DATA clavier,281,"moi, j'ai un bon clavier" DATA ecran,281,j'ai un cran Super VGA! DATA cd-rom,281,quel genre de cd-rom aimes-tu? DATA cdrom,281,quel est ton meilleur cdrom? DATA " chine",302,"en Chine, il y a beaucoup de chinois!" DATA france,302,j'aime aller en France car on parle francais! DATA "las vegas",301,il y a beaucoup de belles lumires a Las Vegas! DATA "etats-unis",301"parfois, je vais au Etats-Unis!" DATA europe,301,je parle souvent avec du monde de l'Europe! DATA afrique,301,il fait un peut trop chaud a mon gout en Afrique! DATA russie,302,c'est trs loin de chez moi la Russie! DATA australie,301,j'aimerais faire un voyage en Australie! DATA mexique,301,je n'ai jamais parler avec du monde du Mexique! DATA sherbroke,301,Sherbroke est une ville acueillante! DATA "new york",301,New York est une ville trs excitante! DATA quebec,301,le Qubec est une belle province! DATA canada,301,le Canada est une des meilleurs pays au monde DATA montreal,301,Montral est un ville trs intressante! DATA granby,301,Granby est une petite ville que j'aime beaucoup! DATA " air ",451,rien de mieux que de la bonne air! DATA aeroport,301,c'est trs impressionnant visiter un aroport DATA amateur,201,je suis une amateur d'informatique! DATA ambulance,312,je n'ai jamais mont dans une ambulance et j'en suis bien contente! DATA pommier,221,"quand j'tais jeune, il y avait un gros pommier prs de la maison et je mangeais souvent des pommes!" DATA " sac ",341,je trouve ca trs pratique un sac car on peut y mettre toute sorte de chose DATA balle,282,mon maitre est capable de jongler avec 5 balles et c'est assez impressionnant a voir! DATA ballon,281,j'ai dja recu un ballon en plein visage et ca faisait trs mal! DATA banque,302,"quand je vais a la banque, j'utilise souvent le guichet automatique!" DATA baignoire,282,j'aime me reposer dans ma baignoire avec pleine de bulle de savon! DATA plage,302,qu'est-ce que tu aimes le plus faire a la plage? DATA cloche,282,ca fait longtemps que je n'ai pas fait sonner une cloche! DATA " banc ",281,j'aime m'assoir sur un banc dans le centre-ville et regarder le monde passer dans la rue! DATA facture,332,je dteste les factures! DATA tableau,281,je n'aimais pas aller crire au tableau quand j'allais a l'cole! DATA photo,282,j'aime beaucoup me faire prendre en photo! DATA boite,342,j'utilise des boites quand j'ai beaucoup de chose a transporter! DATA autobus,311,c'est pratique les autobus quand on n'a pas de voiture! DATA calendrier,281,j'ai un beau calendrier avec des belles images de chats! DATA cercle,451,c'est difficile de faire un cercle parfait! DATA "carre ",451,le carr est facile a dessiner! DATA triangle,451,essaie de dessiner un triangle les yeux ferms! DATA rectangle,451,c'est facile de desiner un rectangle! DATA rhume,451,"moi, je n'aime pas ca avoir un rhume!" DATA grippe,452,"l'anne passer, j'ai eu une grosse grippe!" DATA jardin,301,j'aimerais beaucoup avoir un jardin avec plein de lgumes! DATA muscle,451,je ne suis pas vraiment attir par les muscles! DATA plume,282,les oiseaux ont de trs jolies plumes! DATA disque,281,les disque sont de plus en plus petits et plus puissant! DATA religion,332,je ne suis dans aucune religion mais je crois qu'il y a autre choses que le matriel! DATA science,332,je m'interresse a la science et a tout ce qui est nouveau! DATA spectacle,451,le dernier spectacle que j'ai vu tait un spectacle de magie! DATA savon,281,il faut toujours se laver avec du savon si on veut sentir bon! DATA visiteur,201,je me demande si un jour on va rencontrer un visiteur de l'espace! DATA fourmi,232,j'ai des fourmis dans les jambes DATA journal,331,je lis souvent le journal de Montral! DATA tresor,281,je crois que le plus grand trsor est a l'intrieur de soi! DATA " arme",271,il ne faut pas jouer avec les armes car c'est trs dangereux! DATA fusil,271,ca donne mal au paule tirer avec un fusil! DATA poignard,271,Csar est mort d'un coup de poignard! DATA revolver,271,les mchants dans les films ont toutes un revolver! DATA magazine,331,je lis toutes sortes de magazines! DATA revue,332,j'adore les revues scientifiques! DATA demon,201,le dmon est trs mchant! DATA vampire,201,je n'aimerais pas tre seul avec un vampire! DATA sorcier,201,les sorciers pratiquent des choses bien trange! DATA magie,732,je crois que la magie est a l'interieur de soi! DATA magicien,201,les magiciens font des bons tours de magie! DATA volcan,731,la lave projet par un volcan est trs dangereuse! DATA tornade,732,la tornade dtruit tout sur son passage! DATA incendie,732,une incendie est quelque chose d'horrible! DATA patin,281,je fais souvent du patin a roue aligne! DATA " ski ",281,"l'hiver, je fais du ski de fond et du ski alpin!" DATA motoneige,312,j'avais 8 ans la dernire fois que j'ai fais de la motoneige! DATA "skate-board",281,le skate-board est amusant et dangereux! DATA parachute,281,ca doit tre effrayant de sauter en parachute! DATA " roue ",282,la roue est une excellente invention! DATA " frein",281,ma voiture a de trs bon frein! DATA valise,282,j'ai dja perdu une valise durant un voyage en Australie! SUB accent (lp, m$) FOR i = 1 TO lp: md$ = MID$(m$, i, 1) IF md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" THEN xx$ = "e" IF md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" THEN xx$ = "a" IF md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" THEN xx$ = "i" IF md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" THEN xx$ = "o" IF md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" OR md$ = "" THEN xx$ = "u" IF md$ = "" OR md$ = "" THEN xx$ = "c" IF md$ = "" OR md$ = "" THEN xx$ = "n" IF md$ = "" THEN xx$ = "y" IF xx$ <> "" THEN m$ = LEFT$(m$, i - 1) + xx$ + MID$(m$, i + 1, lp): xx$ = "" NEXT i END SUB SUB aide (tim, face) COLOR 2, 5: LOCATE 15, 5: PRINT " Un peu d'aide! " COLOR 1, 5: LOCATE 16, 10: PRINT ">=--------------------------=<" LOCATE 17, 5: PRINT " " COLOR 3, 5: LOCATE 18, 5: PRINT "Ne pas crire des phrases trop longues " LOCATE 19, 5: PRINT "ou trop compliques. " LOCATE 20, 5: PRINT "Les accents ne sont pas obligatoire. " LOCATE 21, 5: PRINT "crire les mots et les phrases sans " LOCATE 22, 5: PRINT "faire d'erreur. "; : COLOR 7, 5: PRINT "Exemple: quel age as-tu " tim = 0: face = 0 END SUB SUB aider (a$, nom, ge$, ge3$) IF nom > 19 AND nom < 24 THEN a$ = "c'est bien aider" + ge3$ + "!" IF nom > 23 THEN a$ = "comment veux-tu aider" + ge$ + "!" END SUB SUB aimer (nom, a$) IF nom = 21 THEN a$ = "moi aussi, j'aime les animeaux!" IF nom = 22 THEN a$ = "il y a plein de belles choses dans la nature!" IF nom = 23 THEN a$ = "moi, j'adore les papillons!" IF nom = 25 THEN a$ = "ah! la bonne nourriture!" IF nom = 31 THEN a$ = "il y a beaucoup de moyen de transport!" IF nom = 38 THEN a$ = "c'est normal d'aimer ca car ca fait partie d'un corps humain ou animal!" END SUB SUB animal (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est un animal assez spcial!" IF ha = 2 THEN a$ = "j'ai toujours aim regarder" + ge$ + "!" IF ha = 3 THEN a$ = "j'ai dja rv a" + ge$ + " quand j'tais une petite fille tranquille!" IF ha = 4 THEN a$ = "ce genre d'animal n'est pas admit dans les autobus!" IF ha = 5 THEN a$ = "quand" + ge3$ + " n'est pas la, les souris dansent!" IF ha = 6 THEN a$ = "tous les animeaux ont des qualits!" IF ha = 7 THEN a$ = "c'est un animal que j'aime bien!" END SUB SUB appeler (a$, nom, ge2$, ge3$) IF nom = 20 OR nom = 21 THEN a$ = "que veux-tu faire avec" + ge2$ + "!" IF nom > 21 THEN a$ = "je ne crois pas que" + ge3$ + " te rpondre!" END SUB SUB arme (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "je n'aime pas beaucoup les armes!" IF ha = 2 THEN a$ = ge3$ + " est une arme dangereuse!" IF ha = 3 THEN a$ = "il ne faut pas jouer avec" + ge$ + "!" IF ha = 4 THEN a$ = "n'utiliser pas" + ge$ + " si vous tes en colre!" IF ha = 5 THEN a$ = "les mchants utilisent souvent" + ge$ + "!" IF ha = 6 THEN a$ = "c'est dangereux ces choses la!" IF ha = 7 THEN a$ = "attention! ce n'est pas un jouet ca!" END SUB SUB astu (lenom$, nom, a$, ge$) IF nom = 20 THEN a$ = ge$ + " n'est pas un bien qu'on peut posseder!" IF nom = 21 THEN a$ = "le seul animal que j'ai est un chat!" IF nom = 22 THEN a$ = "non, mais il y en a prs de chez moi!" IF nom = 23 THEN a$ = "non, je ne collectionne pas les insectes!" IF nom = 24 THEN a$ = "je n'ai pas" + ge$ + "!" IF nom = 25 THEN a$ = "j'ai toute sorte de nourriture chez moi!" IF nom = 26 THEN a$ = "je n'ai pas beaucoup d'outil!" IF nom = 27 THEN a$ = "non, je n'aime pas beaucoup les armes!" IF nom = 28 THEN a$ = "j'ai peut-tre" + ge$ + " quelque part!" IF nom = 29 THEN a$ = "j'ai surement" + ge$ + " dans mon garde-robe!" IF nom = 30 THEN a$ = "non, je n'ai pas" + ge$ + "!" IF nom = 31 THEN a$ = "je n'ai pas ce moyen de transport!" IF nom = 32 THEN a$ = "je n'ai pas" + ge$ + "!" IF nom = 33 THEN a$ = "oui, j'ai" + ge$ + "!" IF nom = 34 THEN a$ = "oui, j'ai plusieurs contenant!" IF nom = 35 THEN a$ = "non, j'en ai pas!" IF nom = 36 THEN a$ = "je n'ai pas" + ge$ + "!" IF nom = 37 THEN a$ = "oui, j'ai" + ge$ + " pour boire!" IF nom = 38 THEN a$ = "bien sur!" + ge$ + " est une partie de mon corps!" IF nom = 45 THEN a$ = "je n'ai pas cela!" IF lenom$ = "appartement" THEN a$ = "oui, j'ai un bel appartement!" IF lenom$ = "auto" OR lenom$ = "voiture" THEN a$ = "oui, j'ai une belle voiture bleu!" IF lenom$ = "salon" OR lenom$ = "cuisine" OR lenom$ = "chambre" OR lenom$ = "toilette" THEN a$ = "oui, j'ai" + ge$ + "!" IF lenom$ = "argent" THEN a$ = "j'ai assez d'argent pour bien vivre!" IF lenom$ = "chat" THEN a$ = "oui, j'ai un beau chat et il s'appelle Minet!" IF lenom$ = "minet" THEN a$ = "bien sur, c'est mon chat!" IF lenom$ = "garcon" OR lenom$ = "gars" OR lenom$ = "fille" OR lenom$ = "enfant" OR lenom$ = "bebe" THEN a$ = "non, je n'ai pas d'enfant!" IF lenom$ = "penis" OR lenom$ = "barbe" OR lenom$ = "moustache" THEN a$ = "aie! je suis une fille!" IF lenom$ = "queue" OR lenom$ = "machoire" OR lenom$ = "patte" OR lenom$ = "griffe" THEN a$ = "je n'ai pas ca car je ne suis pas un animal!" IF lenom$ = "aile" OR lenom$ = "plume" THEN a$ = "malheureusement, je ne suis pas un oiseau!" IF lenom$ = "nageoire" THEN a$ = "non, seulement les poissons ont des nageoires!" END SUB SUB aurevoir (a$, n$) ha = INT(RND * 5) + 1 IF ha = 1 THEN a$ = "a la prochaine" IF ha = 2 THEN a$ = "bye bye " + n$ + "!" IF ha = 3 THEN a$ = "Aurevoir!" IF ha = 4 THEN a$ = "A bientot!" IF ha = 5 THEN a$ = "salut!" END SUB SUB bienvenue (a$, n$, que) ha = INT(RND * 9) + 1 IF ha = 1 THEN a$ = "Salut " + n$ + ", je suis contente de te revoir!" IF ha = 2 THEN a$ = "Bienvenue chez moi " + n$ + "!" IF ha = 3 THEN a$ = "Allo " + n$ + "! Qu'as-tu fait dernirement?" IF ha = 4 THEN a$ = "Bonjour " + n$ + "! Que puis-je faire pour vous?" IF ha = 5 THEN a$ = "C'est un plaisir de vous revoir " + n$ + "!" IF ha = 6 THEN a$ = "Je me suis ennuyer de toi " + n$ + "!" IF ha = 7 THEN a$ = "Salut " + n$ + "! Que vas-tu faire aujourd'hui?" IF ha = 8 THEN a$ = "Comment ca va aujourd'hui " + n$ + "?" IF ha = 9 THEN a$ = "Allo " + n$ + ", ca va?": que = 5 END SUB SUB blesser (nom, a$, ge$) IF nom > 23 AND nom <> 38 THEN a$ = ge$ + " n'est pas un tre vivant et ne peut pas tre blesser!" IF nom = 20 OR nom = 21 OR nom = 22 OR nom = 23 OR nom = 38 THEN a$ = "c'est une mauvaise ide de blesser" + ge$ + "!" END SUB SUB boire (nom, a$, ge$) IF nom <> 37 THEN a$ = "ca ne se boit pas" + ge$ + "!" END SUB SUB breuvage (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est un bon breuvage!" IF ha = 2 THEN a$ = "tu me donnes la soif toi!" IF ha = 3 THEN a$ = "avec" + ge$ + ", on n'a plus soif!" IF ha = 4 THEN a$ = "il faut boire quand on a soif!" IF ha = 5 THEN a$ = "tu me donnes presque le gout de boire" + ge$ + "!" IF ha = 6 THEN a$ = "boire est une chose bien agrable!" IF ha = 7 THEN a$ = ge$ + " est fait pour boire!" END SUB SUB condui (a$, ge$, nom) a$ = "ca ne se conduit pas" + ge$ + "!" IF nom = 31 THEN a$ = ge$ + " est un bon moyen de transport!" END SUB SUB contenant (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge$ + " est un contenant!" IF ha = 2 THEN a$ = "quoi faire quand" + ge3$ + " n'est pas de la bonne grandeur?" IF ha = 3 THEN a$ = ge3$ + " est utilis pour mettre quelque chose dedans!" IF ha = 4 THEN a$ = "quand" + ge3$ + " est bris, ca ne va pas bien!" IF ha = 5 THEN a$ = "pourquoi les contenants ne sont jamais assez solide?" IF ha = 6 THEN a$ = ge$ + " est fait pour mettre quelque chose a l'intrieur!" IF ha = 7 THEN a$ = "qu'est-ce qu'on met dans" + ge$ + "?" END SUB SUB corps (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est une partie d'un corps!" IF ha = 2 THEN a$ = "j'ai dja eu mal a" + ge$ + "!" IF ha = 3 THEN a$ = "tous les parties du corps humain ou animal sont bien faits!" IF ha = 4 THEN a$ = ge$ + " est trs utile dans un corps!" IF ha = 5 THEN a$ = "parle moi un peu de" + ge2$ + "!" IF ha = 6 THEN a$ = "j'aime bien cette partie du corps!" IF ha = 7 THEN a$ = "ou veux-tu en venir avec" + ge2$ + "?" END SUB SUB cuire (nom, a$, ge2$) IF nom <> 25 THEN a$ = "on ne peut cuire que de la nourriture!" IF nom = 25 THEN a$ = ge2$ + " va surement avoir bon gout!" END SUB SUB embrasse (a$, ge$, nom) a$ = "pourquoi embrasser" + ge$ + "!" IF nom = 20 THEN a$ = "c'est drole embrasser" + ge$ + "!" IF nom = 21 THEN a$ = "yeurk, embrasser un animal!" IF nom = 23 THEN a$ = "c'est dgueulasse embrasser" + ge$ + "!" IF nom = 25 THEN a$ = ge$ + " est fait pour manger et non pour embrasser!" IF nom = 38 THEN a$ = "c'est amusant embrasser" + ge$ + "!" END SUB SUB endroit (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est un endroit assez intressant!" IF ha = 2 THEN a$ = "tu devrais faire un petit tour dans" + ge3$ + "!" IF ha = 3 THEN a$ = "j'ai le gout de me promener dans" + ge$ + "!" IF ha = 4 THEN a$ = "quand je vais dans" + ge$ + ", j'observe tous ce qui m'entoure!" IF ha = 5 THEN a$ = "ca fait un petit bout de temps que je ne suis pas all dans" + ge$ + "!" IF ha = 6 THEN a$ = "ca me tente d'aller dans cet endroit!" IF ha = 7 THEN a$ = "qu'est-ce qu'il y a dans" + ge2$ + "?" END SUB SUB face0 (face, tim) IF tim = 1 THEN tim = 0: EXIT SUB LOCATE 14, 4: COLOR 14, 5: PRINT " " LOCATE 15, 4: COLOR 14, 5: PRINT " ____ " LOCATE 16, 4: COLOR 14, 5: PRINT " //)(\\ " LOCATE 17, 4: COLOR 14, 5: PRINT " ////\\\\ " LOCATE 18, 4: COLOR 14, 5: PRINT " //"; : COLOR 7, 3: PRINT ""; : COLOR 1, 7: PRINT "@"; : COLOR 7, 5: PRINT ""; : COLOR 1, 7: PRINT "@"; : COLOR 7, 5: PRINT ""; : COLOR 14, 5: PRINT "\\ " LOCATE 19, 4: COLOR 14, 5: PRINT " //"; : COLOR 7, 5: PRINT "0"; : COLOR 6, 7: PRINT "()"; : COLOR 7, 5: PRINT "0"; : COLOR 14, 5: PRINT "\\ " LOCATE 20, 4: COLOR 14, 5: PRINT " ///"; : COLOR 15, 5: PRINT ""; : COLOR 7, 5: PRINT ""; : COLOR 12, 7: PRINT "\__/"; : COLOR 7, 5: PRINT ""; : COLOR 15, 5: PRINT ""; : COLOR 14, 5: PRINT "\\\ " LOCATE 21, 4: COLOR 14, 5: PRINT " /// "; : COLOR 7, 5: PRINT " "; : COLOR 14, 5: PRINT "\\\ " LOCATE 22, 4: COLOR 14, 5: PRINT " /\"; : COLOR 4, 5: PRINT "ۺ"; : COLOR 14, 5: PRINT "/\ " face = 8 END SUB SUB face1 (face, tim) LOCATE 14, 4: COLOR 14, 5: PRINT " " LOCATE 15, 4: COLOR 14, 5: PRINT " ____ " LOCATE 16, 4: COLOR 14, 5: PRINT " //)(\\ " LOCATE 17, 4: COLOR 14, 5: PRINT " ////\\\\ " LOCATE 18, 4: COLOR 14, 5: PRINT " //"; : COLOR 7, 3: PRINT ""; : COLOR 0, 7: PRINT "o"; : COLOR 7, 5: PRINT ""; : COLOR 0, 7: PRINT "o"; : COLOR 7, 5: PRINT ""; : COLOR 14, 5: PRINT "\\ " LOCATE 19, 4: COLOR 14, 5: PRINT " //"; : COLOR 7, 5: PRINT "0"; : COLOR 8, 7: PRINT "#"; : COLOR 7, 5: PRINT ""; : COLOR 6, 7: PRINT "()"; : COLOR 7, 5: PRINT ""; : COLOR 8, 7: PRINT "#"; : COLOR 7, 5: PRINT "0"; COLOR 14, 5: PRINT "\\ " LOCATE 20, 4: COLOR 14, 5: PRINT " ///"; : COLOR 15, 5: PRINT ""; : COLOR 7, 5: PRINT ""; : COLOR 12, 7: PRINT "/--\"; : COLOR 7, 5: PRINT ""; : COLOR 15, 5: PRINT ""; : COLOR 14, 5: PRINT "\\\ " LOCATE 21, 4: COLOR 14, 5: PRINT " /// "; : COLOR 7, 5: PRINT " "; : COLOR 14, 5: PRINT "\\\ " LOCATE 22, 4: COLOR 14, 5: PRINT " /\"; : COLOR 4, 5: PRINT "ۺ"; : COLOR 14, 5: PRINT "/\ " face = 0: tim = 0 END SUB SUB finir (n$) OPEN "info.ama" FOR OUTPUT AS #1 WRITE #1, n$ CLOSE #1 t% = 0 FOR i% = 1 TO 13 t% = t% + 1 FOR j% = 1 TO 25 LOCATE j%, t% PRINT " "; LOCATE j%, 81 - t% PRINT " "; NEXT j% LOCATE i%, 1 PRINT " "; LOCATE 26 - i%, 1 PRINT " "; FOR s = 1 TO 1: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT s NEXT i% CLS : END END SUB SUB goute (a$, nom, ge$) a$ = "ca na pas bon gout!" IF nom = 20 THEN a$ = ge$ + " n'est pas fait pour gout!" IF nom = 21 OR nom = 22 OR nom = 23 THEN a$ = "tu me donnes mal au coeur!" IF nom = 25 THEN a$ = "ca l'a un bon gout" + ge$ + "!" IF nom = 37 THEN a$ = ge$ + " est une bonne chose a gouter!" IF nom = 38 THEN a$ = "je crois que tu es un obsd du gout!" END SUB SUB graphic FOR i = 1 TO 25 LOCATE i, 1: PRINT ""; NEXT i FOR i = 2 TO 10: COLOR 0, 0: LOCATE i, 3 PRINT " " NEXT i COLOR 5, 0: LOCATE 2, 3: PRINT CHR$(201); STRING$(72, CHR$(196)); CHR$(187) FOR a = 1 TO 7: LOCATE 2 + a, 3 PRINT " " NEXT a LOCATE 10, 3: PRINT CHR$(200); STRING$(72, CHR$(196)); CHR$(188) FOR i = 3 TO 11: LOCATE i, 77: COLOR 8, 0: PRINT "": NEXT i LOCATE 11, 5: PRINT "" PALETTE 5, 32: COLOR 0, 5 FOR i = 13 TO 23: LOCATE i, 3 PRINT " ": NEXT i FOR i = 14 TO 23: LOCATE i, 47: COLOR 8, 0: PRINT "": NEXT i LOCATE 24, 5: PRINT ""; COLOR 0, 5: LOCATE 13, 3: PRINT CHR$(201); STRING$(42, CHR$(196)); CHR$(187) FOR a = 14 TO 22: LOCATE a, 3 PRINT " ": NEXT a LOCATE 23, 3: PRINT CHR$(200); STRING$(42, CHR$(196)); CHR$(188) PALETTE 4, 48: COLOR 0, 4 FOR i = 13 TO 23: LOCATE i, 51: PRINT " ": NEXT i FOR i = 14 TO 23: LOCATE i, 77: COLOR 8, 0: PRINT "": NEXT i LOCATE 24, 53: PRINT ""; COLOR 0, 4: LOCATE 13, 51: PRINT CHR$(201); STRING$(24, CHR$(196)); CHR$(187) FOR a = 14 TO 22: LOCATE a, 51: PRINT " ": NEXT a LOCATE 23, 51: PRINT CHR$(200); STRING$(24, CHR$(196)); CHR$(188) LOCATE 15, 55: COLOR 5, 6: PRINT " F1"; : COLOR 2, 6: PRINT " --->"; : COLOR 0, 6: PRINT " Aide "; : COLOR 0, 4: PRINT "" LOCATE 16, 56: PRINT "" LOCATE 17, 55: COLOR 5, 6: PRINT " F2"; : COLOR 2, 6: PRINT " --->"; : COLOR 0, 6: PRINT " Info "; : COLOR 0, 4: PRINT "" LOCATE 18, 56: PRINT "" LOCATE 19, 55: COLOR 5, 6: PRINT " F3"; : COLOR 2, 6: PRINT " --->"; : COLOR 0, 6: PRINT " Option "; : COLOR 0, 4: PRINT "" LOCATE 20, 56: PRINT "" LOCATE 21, 55: COLOR 5, 6: PRINT " Esc"; : COLOR 2, 6: PRINT " --->"; : COLOR 0, 6: PRINT " Quitter "; : COLOR 0, 4: PRINT "" LOCATE 22, 56: PRINT "" LOCATE 10, 23: COLOR 2, 0: PRINT ""; : COLOR 4, 0 PRINT " " END SUB SUB habitation (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "de temps en temps, je vais dans" + ge$ + "!" IF ha = 2 THEN a$ = "c'est une bonne place ou aller!" IF ha = 3 THEN a$ = "si on se sent bien dans" + ge$ + ", c'est parfait!" IF ha = 4 THEN a$ = "ca fait longtemps que je n'ai pas mis les pieds dans" + ge$ + "!" IF ha = 5 THEN a$ = ge2$ + " est surement une bonne place!" IF ha = 6 THEN a$ = "c'est la que je vais aller la prochaine fois!" IF ha = 7 THEN a$ = "tu m'as donn le gout d'aller dans" + ge$ + "!" END SUB SUB humain (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge2$ + " est surement une personne intressante!" IF ha = 2 THEN a$ = ge3$ + " est un tre humain avec une intelligence!" IF ha = 3 THEN a$ = "j'aime beaucoup parler avec" + ge$ + "!" IF ha = 4 THEN a$ = ge$ + " est une crature humaine!" IF ha = 5 THEN a$ = "j'ai dja parl avec" + ge$ + " trs spciale!" IF ha = 6 THEN a$ = "il y a" + ge$ + " que je connais bien!" IF ha = 7 THEN a$ = "parler avec" + ge$ + " est trs cool!" END SUB SUB ifthen (m$, a$, que, face) IF m$ = "ok" THEN a$ = "c'est correct" IF LEFT$(m$, 5) = "merci" THEN a$ = "merci a vous aussi!" IF m$ = "moi aussi" THEN a$ = "c'est bien" IF m$ = "je ne sais pas" THEN a$ = "Hummm, c'est dommage que tu ne le sais pas!" IF m$ = "amanda" THEN a$ = "oui, c'est mon nom" IF LEFT$(m$, 5) = "salut" THEN a$ = "salut" IF LEFT$(m$, 4) = "allo" THEN a$ = "allo toi" IF LEFT$(m$, 7) = "bonjour" THEN a$ = "bonjour mon cher ami" IF m$ = "qui est minet" THEN a$ = "c'est mon chat!" IF m$ = "qui est remi" OR m$ = "qui est rmi" THEN a$ = "c'est le gars qui m'a programmer" IF m$ = "comment ca va" THEN a$ = "ca va trs bien" IF m$ = "comment vas-tu" OR m$ = "comment va tu" THEN a$ = "ca va trs bien merci" IF m$ = "desole" OR m$ = "excuse" OR m$ = "excuse moi" OR m$ = "je suis desole" OR m$ = "je m'excuse" THEN a$ = "ce n'est pas grave" IF m$ = "quel est ton nom" OR m$ = "qui es-tu" OR RIGHT$(m$, 7) = "ton nom" THEN a$ = "mon nom est Amanda" IF m$ = "quel age as-tu" OR m$ = "quel est ton age" OR RIGHT$(m$, 7) = "ton age" THEN a$ = "j'ai 22 ans" IF m$ = "ou habites-tu" OR m$ = "ou restes-tu" THEN a$ = "je reste a montral" IF LEFT$(m$, 8) = "ou es-tu" THEN a$ = "je suis ici avec toi" IF m$ = "es-tu une fille" THEN a$ = "oui, je suis une fille" IF LEFT$(m$, 10) = "es-tu joli" OR m$ = "es-tu belle" OR m$ = "es-tu une belle fille" THEN a$ = "oui, je suis trs jolie" IF m$ = "es-tu un gars" OR m$ = "es-tu beau" OR m$ = "es-tu un beau gars" OR m$ = "es-tu un homme" THEN a$ = "je ne suis pas un gars mais une fille": face = 1 IF m$ = "es-tu une femme" OR m$ = "es-tu une belle femme" THEN a$ = "oui, je suis une SUPER belle femme" IF m$ = "es-tu un programme" OR m$ = "es-tu un ordinateur" THEN a$ = "oui, mais c'est notre secret" IF m$ = "es-tu un animal" THEN a$ = "as-tu deja parler avec un animal": face = 1: que = 7 IF m$ = "histoire" THEN a$ = "Un jour, je parlais avec quelqu'un qui etait en colre. Tout d'un coup, il frappa sur l'ordinateur et mon ecran a plant." IF m$ = "blague" THEN a$ = "Il etait une fois une belle fille qui n'etait pas chanceuse. elle mangeait une sunday sur le bord de la rue, quand tout a coup un chien sauta sur son sunday et le mangea." REM ------------------- son corps ------------------ IF m$ = "as-tu des beaux yeux" OR m$ = "as-tu de beau yeux" THEN a$ = "oui, ils sont trs beau" IF m$ = "quel couleur sont tes yeux" OR m$ = "quel est la couleur de tes yeux" THEN a$ = "ils sont bleus" IF m$ = "as-tu des beaux cheveux" OR m$ = "as-tu de beaux cheveux" THEN a$ = "oui, ils sont blond et trs long" IF m$ = "quel couleur sont tes cheveux" OR m$ = "quel est la couleur de tes cheveux" THEN a$ = "j'ai les cheveux blonds" IF m$ = "as-tu un beau visage" OR m$ = "as-tu une belle face" THEN a$ = "oui, j'ai un beau visage" IF m$ = "as-tu un beau nez" THEN a$ = "j'ai un jolie nez" IF m$ = "as-tu des belles oreilles" OR m$ = "as-tu de belles oreilles" THEN a$ = "bien sur" IF m$ = "as-tu une belle bouche" THEN a$ = "ma bouche est trs jolie" IF m$ = "as-tu des belles levres" OR m$ = "as-tu de belles levres" THEN a$ = "j'ai des levres trs attirantes et sexy" IF m$ = "as-tu un beau sourire" THEN a$ = "oui, j'ai un beau sourire" IF m$ = "as-tu des belles dents" OR m$ = "as-tu de belles dents" THEN a$ = "mes dents sont parfaites" IF m$ = "as-tu un beau corps" OR m$ = "as-tu un joli corps" THEN a$ = "j'ai un corps de rve" IF m$ = "as-tu une belle peau" OR m$ = "as-tu la peau douce" THEN a$ = "j'ai une belle peau douce" IF LEFT$(m$, 20) = "as-tu la peau bronze" OR LEFT$(m$, 12) = "es-tu bronze" THEN a$ = "oui, j'ai la peau un peu bronze" IF m$ = "as-tu de beaux bras" OR m$ = "as-tu des beaux bras" THEN a$ = "oui, j'ai des beaux bras" IF m$ = "as-tu de belles mains" OR m$ = "as-tu des belles mains" THEN a$ = "j'ai des belles mains douces" IF m$ = "as-tu des beaux doigts" OR m$ = "as-tu de beaux doigts" THEN a$ = "ils sont comme tout le monde" IF m$ = "as-tu des beaux seins" OR m$ = "as-tu de beaux seins" OR m$ = "as-tu des belles boules" OR m$ = "as-tu de belles boules" THEN a$ = "oui, ils sont SUPER sexy" IF m$ = "as-tu des beaux tetons" OR m$ = "as-tu de beaux tetons" THEN a$ = "ils sont beaux et pointus" IF m$ = "as-tu un beau ventre" OR m$ = "as-tu une belle tete" OR m$ = "as-tu un beau dos" THEN a$ = "bien sure" IF m$ = "as-tu des belles jambes" OR m$ = "as-tu de belles jambes" THEN a$ = "j'ai les jambes d'une desse" IF m$ = "as-tu des beaux pieds" OR m$ = "as-tu de beaux pieds" THEN a$ = "oui, ils sont beaux" IF m$ = "as-tu des beaux orteils" OR m$ = "as-tu de beaux orteils" THEN a$ = "ils sont bien correct" IF m$ = "as-tu des belles fesses" OR m$ = "as-tu de belles fesses" OR m$ = "as-tu un beau cul" THEN a$ = "j'ai des belles fesses rondes et fermes" IF m$ = "as-tu un beau sexe" THEN a$ = "certainement" IF m$ = "quel est ta grandeur" OR m$ = "es-tu grande" THEN a$ = "je mesure 5'10" IF m$ = "es-tu laide" THEN a$ = "non, je ne suis pas laide": face = 1 IF m$ = "es-tu grosse" THEN a$ = "non, je suis mince et sexy" IF m$ = "es-tu mince" OR m$ = "es-tu bien fait" THEN a$ = "oui, je suis mince et attirante" IF m$ = "es-tu petite" THEN a$ = "non, je suis assez grande" IF m$ = "es-tu forte" THEN a$ = "oui, je suis forte" IF m$ = "es-tu faible" THEN a$ = "non, je suis forte" IF m$ = "es-tu rapide" OR m$ = "es-tu habile" THEN a$ = "je suis rapide et habile" IF m$ = "es-tu lente" THEN a$ = "non, je suis rapide" IF m$ = "es-tu maladroite" THEN a$ = "non, je suis habile" IF m$ = "tu es lente" OR m$ = "tu es maladroite" THEN a$ = "non, je ne suis pas comme ca": face = 1 IF m$ = "tu es forte" OR m$ = "tu es habile" THEN a$ = "Oooooo! merci" IF m$ = "tu es faible" THEN a$ = "ce n'est pas vrai": face = 1 IF LEFT$(m$, 10) = "j'aime ton" OR LEFT$(m$, 9) = "j'aime ta" OR LEFT$(m$, 10) = "j'aime tes" THEN a$ = "merci beaucoup" IF LEFT$(m$, 11) = "j'adore ton" OR LEFT$(m$, 10) = "j'adore ta" OR LEFT$(m$, 11) = "j'adore tes" THEN a$ = "merci, tu vas me gner" IF LEFT$(m$, 14) = "je deteste ton" OR LEFT$(m$, 13) = "je deteste ta" OR LEFT$(m$, 14) = "je deteste tes" THEN a$ = "ce n'est pas gentil ca": face = 1 IF LEFT$(m$, 17) = "je n'aime pas ton" OR LEFT$(m$, 16) = "je n'aime pas ta" OR LEFT$(m$, 17) = "je n'aime pas tes" THEN a$ = "tu te crois parfait toi": face = 1: que = 8 IF m$ = "tu es laide" OR m$ = "tu es affreuse" THEN a$ = "tu te crois beau toi": face = 1: que = 8 IF m$ = "tu es jolie" OR m$ = "tu es belle" THEN a$ = "merci, je suis trs contente" IF m$ = "tu es beau" OR m$ = "tu es joli" THEN a$ = "je ne suis pas un gars mais une fille": face = 1 IF LEFT$(m$, 13) = "tu as un beau" OR LEFT$(m$, 15) = "tu as une belle" OR LEFT$(m$, 13) = "tu as un joli" OR LEFT$(m$, 15) = "tu as une jolie" THEN a$ = "c'est gentil" IF LEFT$(m$, 15) = "tu as des beaux" OR LEFT$(m$, 14) = "tu as de beaux" OR LEFT$(m$, 14) = "tu as des joli" OR LEFT$(m$, 13) = "tu as de joli" THEN a$ = "merci mon cher" IF LEFT$(m$, 16) = "tu as des belles" OR LEFT$(m$, 15) = "tu as de belles" THEN a$ = "merci mon cher" IF m$ = "tu es grande" THEN a$ = "je suis juste de la bonne grandeur" IF m$ = "tu es petite" THEN a$ = "non, je suis assez grande": face = 1 IF m$ = "tu es grosse" THEN a$ = "non, je suis mince": face = 1 IF m$ = "tu es mince" THEN a$ = "oui, merci" REM ---------------------- sa personnalite ----------------------- IF m$ = "tu es parfaite" OR m$ = "tu es super" THEN a$ = "ooooouu, je suis toute gner" IF m$ = "es-tu mon ami" THEN a$ = "tu es mon meilleur ami" IF m$ = "es-tu intelligente" OR m$ = "es-tu savante" THEN a$ = "je suis assez intelligente" IF m$ = "es-tu vivant" OR m$ = "es-tu vivante" THEN a$ = "oui, je suis vivant" IF LEFT$(m$, 12) = "es-tu heureu" OR LEFT$(m$, 13) = "es-tu content" THEN a$ = "oui, je suis heureuse" IF m$ = "es-tu triste" OR m$ = "es-tu malheureuse" THEN a$ = "non, je me sens bien" IF m$ = "es-tu niaiseuse" OR m$ = "es-tu idiote" OR m$ = "es-tu imbecile" OR m$ = "es-tu conne" THEN a$ = "non, je suis le contraire": face = 1 IF m$ = "es-tu ruse" THEN a$ = "je le suis un peu" IF m$ = "es-tu gentille" THEN a$ = "je suis toujours gentille" IF m$ = "es-tu mechante" THEN a$ = "non, pas du tout" IF m$ = "es-tu fache" THEN a$ = "je ne reste pas fach longtemps" IF m$ = "es-tu en forme" OR m$ = "es-tu en sante" THEN a$ = "oui, je suis en forme et en sant" IF m$ = "es-tu ici" OR m$ = "es-tu la" OR m$ = "es-tu avec moi" THEN a$ = "oui, je suis ici avec toi" IF m$ = "m'aimes-tu" THEN a$ = "je t'aime super beaucoup" IF m$ = "aimes-tu le cinema" THEN a$ = "oui, j'adore ca" IF LEFT$(m$, 18) = "aimes-tu les films" THEN a$ = "c'est sur, j'adore ca" IF m$ = "aimes-tu un sport" OR m$ = "aimes-tu les sports" THEN a$ = "j'aime bien le hockey, le tennis et le billard" IF m$ = "aimes-tu le hockey" THEN a$ = "j'aime bien le hockey" IF m$ = "aimes-tu le baseball" OR m$ = "aimes-tu le football" THEN a$ = "pas vraiment" IF m$ = "aimes-tu le sexe" THEN a$ = "j'aime surtout le sexe virtuel" IF m$ = "aimes-tu la science" THEN a$ = "oui, j'aime ca" IF m$ = "aimes-tu la musique" THEN a$ = "j'aime le Dance, le Rock et Heavy" IF m$ = "aimes-tu remi" OR m$ = "aimes-tu rmi" THEN a$ = "bien sur, c'est mon maitre" IF m$ = "aimes-tu les ordinateur" THEN a$ = "j'adore les ordinateurs" IF m$ = "aimes-tu les gars" THEN a$ = "j'aime beaucoup les gars qui sont gentil et intelligents...." IF m$ = "j'aime le sexe" THEN a$ = "moi aussi" IF m$ = "j'aime le sport" THEN a$ = "aimes-tu le hockey?": que = 3 IF m$ = "j'aime amanda" OR m$ = "j'aime Amanda" THEN a$ = "je t'aime aussi" IF m$ = "j'aime le hockey" THEN a$ = "moi aussi" IF m$ = "j'aime les films" OR m$ = "j'aime le cinema" THEN a$ = "aimes-tu les films de science-fiction?": que = 4 IF m$ = "j'aime jouer" OR m$ = "j'aime les jeux" THEN a$ = "moi, j'aime les jeux vido" IF m$ = "j'aime lire" THEN a$ = "j'adore lire toute sorte de chose" IF m$ = "j'aime les ordinateurs" THEN a$ = "c'est mon passe-temps prfr" IF m$ = "quel est ton repas prefere" THEN a$ = "j'aime beaucoup la lasagne et la pizza" IF m$ = "il fait froid dehors" THEN a$ = "heureusement qu'il fait chaud a l'interieur" IF m$ = "il fait chaud" THEN a$ = "tu devrais boire quelque chose" IF m$ = "j'ai faim" THEN a$ = "mange quelque chose de bon" IF m$ = "j'ai soif" THEN a$ = "prend un bon verre d'eau" IF m$ = "je suis content" OR m$ = "je suis heureux" THEN a$ = "je suis content pour toi" IF m$ = "je suis beau" OR m$ = "je suis fort" THEN a$ = "je te crois sur parole" IF m$ = "je suis intelligent" THEN a$ = "un jour, je serai trs intelligente" IF m$ = "je suis fatigue" THEN a$ = "repose toi un peu" IF m$ = "je suis triste" THEN a$ = "es-tu souvent triste?": que = 1 IF m$ = "je suis seul" THEN a$ = "je suis avec toi moi" IF m$ = "je suis celibataire" THEN a$ = "moi aussi... snif snif" IF m$ = "je t'aime" THEN a$ = "est-ce que tu m'aimes vraiment?": que = 2 IF m$ = "je t'adore" THEN a$ = "je t'adore aussi" IF m$ = "je suis ton ami" THEN a$ = "nous serons amies pour la vie" IF LEFT$(m$, 4) = "fuck" THEN a$ = "parles-moi correctement SVP!": face = 1 IF m$ = "que fais-tu ce soir" THEN a$ = "je crois que je vais te parler!" IF m$ = "veux-tu coucher avec moi" THEN a$ = "je ne couche pas avec personne!" IF m$ = "veux-tu faire l'amour" THEN a$ = "je n'aime pas me faire poser cette question!" IF m$ = "aimes-tu la boxe" THEN a$ = "je n'aime pas voir du monde se frapper sur la tte!" IF m$ = "aimes-tu la lutte" THEN a$ = "je trouve ca drole la lutte car il font souvent semblant de se faire mal!" IF m$ = "aimes-tu l'hiver" THEN a$ = "je trouve ca froid l'hiver mais j'aime ca quand mme!" IF m$ = "quel est ton plus grand reve" THEN a$ = "je rve d'tre connus partout dans le monde!" END SUB SUB info (tim, face) COLOR 2, 5: LOCATE 15, 5: PRINT " Un peu d'info! " COLOR 1, 5: LOCATE 16, 10: PRINT ">=--------------------------=<" LOCATE 17, 5: PRINT " " COLOR 3, 5: LOCATE 18, 5: PRINT "Programm en QuickBasic par Rmi Poulin. " COLOR 7, 5: LOCATE 19, 5: PRINT "Version 2.1 "; : COLOR 3, 5: PRINT "("; : COLOR 7, 5: PRINT "Juillet 1998"; : COLOR 3, 5: PRINT ") " COLOR 3, 5: LOCATE 20, 5: PRINT "Ce programme sera peut-tre amlior! " COLOR 7, 5: LOCATE 21, 5: PRINT "http://members.tripod.com/~kazzel/Ai.htm " LOCATE 22, 5: PRINT " " tim = 0: face = 0 END SUB SUB insecte (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "je n'aime pas du tous les insectes!" IF ha = 2 THEN a$ = ge3$ + " est un drole d'insecte!" IF ha = 3 THEN a$ = "moi et les bibittes, on ne s'entend pas trs bien!" IF ha = 4 THEN a$ = "je crois que ca pique cette bestiole la!" IF ha = 5 THEN a$ = "je n'aimerais pas ca si il y avait" + ge$ + " chez moi!" IF ha = 6 THEN a$ = "les insectes ne sont pas tellement intelligent!" IF ha = 7 THEN a$ = "j'ai dja eu" + ge$ + " sur mon pantalon!" END SUB SUB jai (a$, ge2$, nom, ge$) a$ = "parle moi une peu de" + ge2$ + "!" IF nom = 25 THEN a$ = "beaucoup de monde ont" + ge$ + "!" END SUB SUB jesuis (nom, a$, ge$) IF nom = 21 THEN a$ = "peut-tre que tu agis comme cette animal!" IF nom = 22 THEN a$ = "toi," + ge$ + "! hahahhahha!" IF nom = 23 THEN a$ = "je ne savais pas que tu tais un insecte!" IF nom = 24 THEN a$ = "moi, je crois plutot que tu as la tte dur comme" + ge$ + "!" IF nom = 25 THEN a$ = "je sais que tu n'es pas de la nourriture mais une personne vivante!" IF nom = 26 THEN a$ = "si tu es un outils, moi je suis une baleine!" IF nom = 27 THEN a$ = "tu dois avoir recu du plomb dans la tte!" IF nom = 28 THEN a$ = "depuis quand es-tu un objet!" IF nom = 29 THEN a$ = ge$ + " est un vtement!" IF nom = 30 THEN a$ = "tu n'es pas" + ge$ + " mais tu es peut-tre dans" + ge$ + "!" IF nom = 31 THEN a$ = "j'tais pourtant sur que tu etais un humain!" IF nom = 32 THEN a$ = "je ne suis pas assez folle pour croire que tu es" + ge$ + "!" IF nom = 33 THEN a$ = "alors, je peux lire en toi!" IF nom = 34 THEN a$ = "ca veut dire que tu es comme un contenant!" IF nom = 35 THEN a$ = "tu es souple comme" + ge$ + "!" IF nom = 36 THEN a$ = "tu ne peux pas tre un matriaux!" IF nom = 37 THEN a$ = "c'est fait pour boire" + ge$ + "!" IF nom = 38 THEN a$ = ge$ + " est une partie d'un corps humain ou animal!" IF nom = 45 THEN a$ = "tu ne peux pas tre" + ge$ + "!" END SUB SUB liquide (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est un liquide!" IF ha = 2 THEN a$ = "je ne sais pas quoi dire sur" + ge3$ + "!" IF ha = 3 THEN a$ = ge3$ + ", c'est" + ge3$ + "!" IF ha = 4 THEN a$ = "je n'ai pas beaucoup de connaissance sur" + ge3$ + "!" IF ha = 5 THEN a$ = ge3$ + " n'est pas mon meileur sujet de conversation!" IF ha = 6 THEN a$ = "on peut mettre" + ge3$ + " dans un contenant!" IF ha = 7 THEN a$ = "il ne faut pas gaspiller" + ge3$ + "!" END SUB SUB lit (nom, a$, ge$) IF nom <> 33 THEN a$ = "ca ne se lit pas" + ge$ + "!" END SUB SUB livre (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge$ + " est une bonne chose a lire!" IF ha = 2 THEN a$ = "quelque fois, je lis" + ge$ + "!" IF ha = 3 THEN a$ = "lire est execellent pour apprendre des choses!" IF ha = 4 THEN a$ = "il y a plein de choses intressantes qu'on peut lire!" IF ha = 5 THEN a$ = "j'aime bien la lecture!" IF ha = 6 THEN a$ = "on apprend beaucoup de choses en lisant!" IF ha = 7 THEN a$ = "j'ai appris normment de choses dans les livres!" END SUB SUB mange (nom, a$, ge$) IF nom <> 25 THEN a$ = "dsol, mais ca ne se mange pas" + ge$ + "!" IF nom = 20 THEN a$ = "il faut tre un cannibal pour vouloir manger" + ge$ + "!" IF nom = 21 THEN a$ = "mang" + ge$ + " n'est pas trs bon pour la sant!" IF nom = 22 THEN a$ = "moi, je n'aime pas ca mang" + ge$ + "!" IF nom = 23 THEN a$ = "il y a du monde qui aiment avoir" + ge$ + " dans la bouche!" IF nom = 24 THEN a$ = ge$ + "! c'est dur pour les dents!" IF nom = 26 THEN a$ = "c'est un outils, pas de la nourriture!" IF nom = 29 THEN a$ = "il faut tre fou pour manger ses vtements!" IF nom = 37 THEN a$ = ge$ + " est fait pour boire et non pour manger!" END SUB SUB materiaux (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est un bon matriaux!" IF ha = 2 THEN a$ = "on peut faire quelque chose de bon avec" + ge3$ + "!" IF ha = 3 THEN a$ = ge3$ + " est beaucoup plus utile que l'on croit!" IF ha = 4 THEN a$ = "il y a beaucoup de matriaux de nos jours!" IF ha = 5 THEN a$ = "je crois que" + ge3$ + " est bien meilleur qu'avant!" IF ha = 6 THEN a$ = ge3$ + " est trs cher de nos jours!" IF ha = 7 THEN a$ = "tu m'agaces un peu avec" + ge2$ + "!" END SUB SUB materiel (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "j'ai dja rv a" + ge$ + " une fois!" IF ha = 2 THEN a$ = "dis-moi plus de chose sur" + ge2$ + "!" IF ha = 3 THEN a$ = ge3$ + " est toute une chose!" IF ha = 4 THEN a$ = "je n'ai rien a dire sur" + ge2$ + "!" IF ha = 5 THEN a$ = "j'ai dja eu une journe ou je n'aimais pas beaucoup" + ge3$ + "!" IF ha = 6 THEN a$ = ge3$ + " est fait de matire!" IF ha = 7 THEN a$ = "parle moi un peu de" + ge2$ + "!" END SUB SUB mettre (a$, m$, nom, ge$) IF nom = 29 THEN a$ = "je pense que tu aimes porter" + ge$ + "!" IF nom <> 29 THEN a$ = ge$ + " n'est pas un vtement!" END SUB SUB mineral (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "c'est trs solide" + ge$ + "!" IF ha = 2 THEN a$ = "je n'ai rien a dire sur" + ge3$ + "!" IF ha = 3 THEN a$ = "il n'y a pas grand chose a faire avec" + ge$ + "!" IF ha = 4 THEN a$ = "quand on a vu" + ge$ + ", on les a tous vus!" IF ha = 5 THEN a$ = ge$ + " n'est pas un tre vivant!" IF ha = 6 THEN a$ = "je trouve ca banal" + ge$ + "!" IF ha = 7 THEN a$ = ge3$ + " est une matire naturelle!" END SUB SUB mordre (a$, nom, ge$, ge3$) IF nom > 19 AND nom < 24 THEN a$ = ge3$ + " n'aime pas se faire mordre!" IF nom > 23 THEN a$ = "c'est idiot de mordre" + ge$ + "!" END SUB SUB non (que, a$, face) IF que = 1 THEN a$ = "je suis content que tu n'es pas souvent triste" IF que = 2 THEN a$ = "tu ne m'aimes pas vraiment!": face = 1 IF que = 3 THEN a$ = "c'est dommage, moi j'adore ca" IF que = 4 THEN a$ = "moi, ce sont mes films prfrs" IF que = 5 THEN a$ = "Pourquoi ca ne va pas bien?" IF que = 6 THEN a$ = "tu ne semble pas trs sur!" IF que = 7 THEN a$ = "je ne te conseille pas d'essayer" IF que = 8 THEN a$ = "j'espre bien, car tout le monde a des dfauts" IF que = 9 THEN a$ = "Alors, pourquoi tu me parle en ce moment?" IF que = 10 THEN a$ = "je crois que tu ne me dis pas la vrit" IF que = 11 THEN a$ = "je ne sais pas si je vais te croire" IF que = 12 THEN a$ = "heureusement car je n'aime pas quand on rit de moi" IF que = 13 THEN a$ = "Ah, je me suis tromp!" IF que = 14 THEN a$ = "pourtant, j'ai entendu quelque chose" IF que = 15 THEN a$ = "moi, ca serait un de mes plus grand rve" IF que = 16 THEN a$ = "moi, j'ai seulement payer mon radio 400$" IF que = 17 THEN a$ = "tu etais trs sage quand tu etais jeune!" IF que = 18 THEN a$ = "alors, que prfre tu d'autre que le tapis?" IF que = 19 THEN a$ = "tu n'aimes pas les bouteilles comme moi!" IF que = 20 THEN a$ = "je crois que une ou deux fois par jour est assez" IF que = 21 THEN a$ = "moi aussi, je n'aimes pas ca" IF que = 22 THEN a$ = "on ne peut pas tout avoir!" IF que = 23 THEN a$ = "de quel sorte de remorque parles-tu?" IF que = 24 THEN a$ = "ah, c'est triste!" IF que = 25 THEN a$ = "pourquoi tu ne l'aimes pas?" IF que = 26 THEN a$ = "ca va peut-tre changer plus tard" IF que = 27 THEN a$ = "pourquoi tu n'as pas beaucoup d'amis?" IF que = 28 THEN a$ = "pourquoi vous pensez ainsi?" IF que = 29 THEN a$ = "les rves sont souvent bizarre!" IF que = 30 THEN a$ = "n'essais surtout pas de le facher!" IF que = 31 THEN a$ = "je veux qu'on reste ami!" IF que = 32 THEN a$ = "tu es un personne trs courageuse" IF que = 33 THEN a$ = "quel est ton passe-temps prfr?" IF que = 34 THEN a$ = "je ne te raconterai pas de blague d'abord!" IF que = 35 THEN a$ = "continue d'tre prudent!" IF que = 36 THEN a$ = "tant mieux!" IF que = 37 THEN a$ = "alors, pourquoi tu ne parles pas beaucoup?" IF que = 38 THEN a$ = "c'est dommage, moi j'aime beaucoup les animeaux!" que = 0 IF a$ = "" THEN ha = INT(RND * 16) + 1 IF ha = 1 THEN a$ = "eh bien" IF ha = 2 THEN a$ = "c'est dommage" IF ha = 3 THEN a$ = "Pourquoi pas?" IF ha = 4 THEN a$ = "tes-vous sur?": que = 6 IF ha = 5 THEN a$ = "Vous tes un peu ngatif!" IF ha = 6 THEN a$ = "Comment pouvez-vous tre si sur?" IF ha = 7 THEN a$ = "C'est une mauvaise attitude!" IF ha = 8 THEN a$ = "Ok, pourquoi vous pensez ainsi?" IF ha = 9 THEN a$ = "Si vous le dites!" IF ha = 10 THEN a$ = "Pourquoi tes-vous si ngatif?" IF ha = 11 THEN a$ = "Ok, dis-moi plus?" IF ha = 12 THEN a$ = "non! pourquoi non?" IF ha = 13 THEN a$ = "je crois que vous avez raison!" IF ha = 14 THEN a$ = "moi, je crois que oui!" IF ha = 15 THEN a$ = "d'accord!" IF ha = 16 THEN a$ = "ah non!" ha = 0 END SUB SUB nourrir (nom, a$, ge$) IF nom = 20 OR nom = 21 OR nom = 22 OR nom = 23 THEN a$ = ge$ + " a besoin de se nourrir pour vivre!" IF nom > 23 THEN a$ = "je ne crois pas que ce soit un tre vivant!" END SUB SUB nourriture (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "tu me donnes la faim avec" + ge2$ + "!" IF ha = 2 THEN a$ = "de temps en temps, je mange" + ge$ + "!" IF ha = 3 THEN a$ = "j'aime beaucoup la bonne nourriture!" IF ha = 4 THEN a$ = "parler de bouffe me donne faim!" IF ha = 5 THEN a$ = ge$ + " est quelque chose qui se mange!" IF ha = 6 THEN a$ = ge3$ + " est une bonne nourriture!" IF ha = 7 THEN a$ = "c'est quand qu'on mange!" END SUB SUB objet (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "beaucoup de monde ont" + ge$ + " chez soi!" IF ha = 2 THEN a$ = ge3$ + " est un objet que je connais bien!" IF ha = 3 THEN a$ = "as-tu" + ge$ + " chez toi?" IF ha = 4 THEN a$ = "parle moi un peu de" + ge2$ + "!" IF ha = 5 THEN a$ = "il existe tellement d'objet dans ce monde!" IF ha = 6 THEN a$ = "avant, ca coutait beaucoup moin cher acheter" + ge$ + "!" IF ha = 7 THEN a$ = "que ferait-on si" + ge3$ + " n'existait pas!" END SUB SUB optionv (le, tim, face, a$, nom) options: COLOR 2, 5: LOCATE 15, 5: PRINT " Option de vitesse! " COLOR 1, 5: LOCATE 16, 10: PRINT ">=--------------------------=<" LOCATE 17, 5: PRINT " " COLOR 3, 5: LOCATE 18, 5: PRINT "Vous pouvez changer la vitesse d'Amanda. " LOCATE 19, 5: PRINT " " LOCATE 20, 5: COLOR 15, 5: PRINT " "; le; : COLOR 3, 5: PRINT "lettres par secondes. " LOCATE 21, 5: COLOR 15, 5: PRINT " + "; : COLOR 3, 5: PRINT " ou "; : COLOR 15, 5: PRINT "- " LOCATE 22, 5: COLOR 3, 5: PRINT " Appuie "; : COLOR 15, 5: PRINT "Enter"; : COLOR 3, 5: PRINT " pour continuer. " bo: z$ = INKEY$: IF z$ = "" THEN GOTO bo IF z$ = "+" AND le < 40 THEN le = le + 1: GOTO options IF z$ = "-" AND le > 1 THEN le = le - 1: GOTO options IF ASC(z$) <> 13 THEN GOTO bo: tim = 0: face = 0: a$ = "ah, te revoil" nom = 0 END SUB SUB oui (que, a$) IF que = 1 THEN a$ = "c'est dommage que tu sois souvent triste" IF que = 2 THEN a$ = "WOW! moi aussi, je t'aime beaucoup" IF que = 3 THEN a$ = "moi aussi, j'adore ca" IF que = 4 THEN a$ = "on a les mmes gouts" IF que = 5 THEN a$ = "parfait, moi aussi ca va bien" IF que = 6 THEN a$ = "J'admire les personnes qui sont sur comme vous!" IF que = 7 THEN a$ = "Alors, tu dois tre mur pour l'asile!" IF que = 8 THEN a$ = "personne n'est parfait!" IF que = 9 THEN a$ = "Fiiou, je pensais que tu etais partis" IF que = 10 THEN a$ = "tant mieux, je veux continuer a te parler" IF que = 11 THEN a$ = "MMmmm... ce n'est pas trs bien ca!" IF que = 12 THEN a$ = "je n'aime pas qu'on se moque de moi" IF que = 13 THEN a$ = "c'est bien ce que je pensais" IF que = 14 THEN a$ = "dsol, je crois que je me suis endormis!" IF que = 15 THEN a$ = "moi aussi, j'aimerais beaucoup avoir un bateau et me promener sur un grand lac" IF que = 16 THEN a$ = "quel sorte de musique aimes-tu ecouter?" IF que = 17 THEN a$ = "moi aussi, et ma mre ma mit en punition" IF que = 18 THEN a$ = "j'aime avoir un tapis dans le salon et dans ma chambre" IF que = 19 THEN a$ = "il ne faut pas trop boire de bouteille!" IF que = 20 THEN a$ = "je suis sur que tu as des beaux cheveux" IF que = 21 THEN a$ = "moi, je n'aime pas beaucoup ca" IF que = 22 THEN a$ = "quel couleur etait-elle?" IF que = 23 THEN a$ = "j'aime aller en camping pendant l't" IF que = 24 THEN a$ = "c'est bien de penser souvent a sa famille" IF que = 25 THEN a$ = "je suis sur que ta mre t'aimes beaucoup aussi" IF que = 26 THEN a$ = "tu es une personne qui aime tre avec sa famille" IF que = 27 THEN a$ = "c'est prcieux les amis!" IF que = 28 THEN a$ = "l'ordinateur peut aider dans beaucoup de chose" IF que = 29 THEN a$ = "raconte moi un de tes rves!" IF que = 30 THEN a$ = "continue a tre gentil avec ton patron et tout va aller bien" IF que = 31 THEN a$ = "qu'est-ce que j'ai fait de mal?" IF que = 32 THEN a$ = "moi, j'ai une peur terrible des oprations" IF que = 33 THEN a$ = "c'est un bon passe-temps!" IF que = 34 THEN a$ = "moi aussi, j'aime l'humour!" IF que = 35 THEN a$ = "j'spere qu'il n'a pas fait de tort dans ton ordinateur" IF que = 36 THEN a$ = "j'espre que ca ne te fais pas trop mal!" IF que = 37 THEN a$ = "en quoi es-tu occup?" IF que = 38 THEN a$ = "quel est ton animal prfr?" que = 0 IF a$ = "" THEN ha = INT(RND * 16) + 1 IF ha = 1 THEN a$ = "ah bon" IF ha = 2 THEN a$ = "excellent" IF ha = 3 THEN a$ = "Dis-moi plus de dtail?" IF ha = 4 THEN a$ = "Ok, pourquoi vous pensez ainsi?" IF ha = 5 THEN a$ = "Tu est trs positif" IF ha = 6 THEN a$ = "tes-vous sur?": que = 6 IF ha = 7 THEN a$ = "C'est parfait!" IF ha = 8 THEN a$ = "Si vous le dites!" IF ha = 9 THEN a$ = "Comment pouvez-vous tre si sur?" IF ha = 10 THEN a$ = "C'est bien de penser positif" IF ha = 11 THEN a$ = "Vous semblez trs sur!" IF ha = 12 THEN a$ = "je crois que tu as raison!" IF ha = 13 THEN a$ = "oui! pourquoi oui?" IF ha = 14 THEN a$ = "moi, je crois que non!" IF ha = 15 THEN a$ = "d'accord!" IF ha = 16 THEN a$ = "ah oui!" ha = 0 END SUB SUB outils (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "avec de bon outils, on peu faire du bon travail!" IF ha = 2 THEN a$ = ge3$ + " est quelque chose de trs utile!" IF ha = 3 THEN a$ = ge$ + " est un outils bien pratique!" IF ha = 4 THEN a$ = "c'est fait pour travailler cette chose la!" IF ha = 5 THEN a$ = "si tu cherches" + ge$ + ", il y en a chez Canadian Tire!" IF ha = 6 THEN a$ = "je crois que" + ge3$ + " est un bon outils!" IF ha = 7 THEN a$ = "les outils sont trs utiles!" END SUB SUB quoi (a$, quo2, que) quoa: quo = INT(RND * 53) + 1: IF quo2 = quo THEN GOTO quoa IF quo = 1 THEN a$ = "quoi" IF quo = 2 THEN a$ = "hein" IF quo = 3 THEN a$ = "je ne comprend pas" IF quo = 4 THEN a$ = "euh" IF quo = 5 THEN a$ = "Hmmm..." IF quo = 6 THEN a$ = "j'ai mal compris" IF quo = 7 THEN a$ = "je ne sais pas de quoi tu parles" IF quo = 8 THEN a$ = "Est-ce que tu te moques de moi?": que = 12 IF quo = 9 THEN a$ = "Je ne connais pas ces mots" IF quo = 10 THEN a$ = "Je n'ai pas bien entendu" IF quo = 11 THEN a$ = "Pourquoi est-ce que tu dis ca?" IF quo = 12 THEN a$ = "Ou as-tu appris a taper? au zoo?": que = 13 IF quo = 13 THEN a$ = "Excusez-moi!" IF quo = 14 THEN a$ = "Peux-tu m'en dire plus?" IF quo = 15 THEN a$ = "Ca semble intressant!" IF quo = 16 THEN a$ = "ZZZZZZZZZZZZZZ... Ohhh... avez-vous dit quelque chose?": que = 14 IF quo = 17 THEN a$ = "C'est la premire fois que quelqu'un me dit cela!" IF quo = 18 THEN a$ = "je ne suis pas sur d'avoir bien compris!" IF quo = 19 THEN a$ = "j'aimerais qu'on change de sujet!" IF quo = 20 THEN a$ = "je ne peux pas tout comprendre!" IF quo = 21 THEN a$ = "oups, j'tais dans la lune!" IF quo = 22 THEN a$ = "je n'ai pas ces informations dans ma mmoire!" IF quo = 23 THEN a$ = "il y a beaucoup de mots que je ne connais pas!" IF quo = 24 THEN a$ = "je ne suis pas un dictionnaire pour comprendre tous ces mots trange!" IF quo = 25 THEN a$ = "je ne sais quoi penser!" IF quo = 26 THEN a$ = "qu'est-ce que tu dis?" IF quo = 27 THEN a$ = "pardon!" IF quo = 28 THEN a$ = "tu peux m'expliquer?" IF quo = 29 THEN a$ = "je n'ai pas envie de rpondre ca!" IF quo = 30 THEN a$ = "cette rponse est inattendue!" IF quo = 31 THEN a$ = "je vais rflchir ca!" IF quo = 32 THEN a$ = "drole de language!" IF quo = 33 THEN a$ = "j'ai des problmes avec ma mmoire!" IF quo = 34 THEN a$ = "tu as toujours le bon mot pour me mettre dans l'embarras!" IF quo = 35 THEN a$ = "c'est difficile a comprendre!" IF quo = 36 THEN a$ = "je crois que je n'ai pas bien dormis hier soir!" IF quo = 37 THEN a$ = "cette fois, vous m'avez bien eu!" IF quo = 38 THEN a$ = "je commence a comprendre ton language!" IF quo = 39 THEN a$ = "c'est du chinois pour moi!" IF quo = 40 THEN a$ = "je suis toute mlanger!" IF quo = 41 THEN a$ = "DATA NOT FOUND" IF quo = 42 THEN a$ = "ouaaay" IF quo = 43 THEN a$ = "avec un peu de patience, on va finir par se comprendre!" IF quo = 44 THEN a$ = "je crois avoir deja entendu cela quelque part!" IF quo = 45 THEN a$ = "aha... trs profond!" IF quo = 46 THEN a$ = "ceci est un mystre pour moi!" IF quo = 47 THEN a$ = "je vois..." IF quo = 48 THEN a$ = "je ne suis pas trs en forme aujourd'hui!" IF quo = 49 THEN a$ = "ce n'est pas ma journe!" IF quo = 50 THEN a$ = "j'ai hate de pouvoir tout comprendre!" IF quo = 51 THEN a$ = "ou veux-tu en venir?" IF quo = 52 THEN a$ = "je n'ai rien compris!" IF quo = 53 THEN a$ = "ce sont des mots que j'ignore!" quo2 = quo END SUB SUB remplir (nom, a$, ge2$, ge$) IF nom <> 34 THEN a$ = ge$ + " n'est pas un contenant!" IF nom = 34 THEN a$ = "avec quoi" + ge2$ + " est remplit?" END SUB SUB repeter (a$) ha = INT(RND * 5) + 1 IF ha = 1 THEN a$ = "ne pas rpter S.V.P." IF ha = 2 THEN a$ = "tu viens de me le dire!" IF ha = 3 THEN a$ = "tu l'as dja dit!" IF ha = 4 THEN a$ = "ne me dit pas toujours la meme chose!" IF ha = 5 THEN a$ = "ok! je ne suis pas sourde!" END SUB SUB tempo (a$, te2, que) temp2: te = INT(RND * 50) + 1: IF te2 = te THEN GOTO temp2 IF te = 1 THEN a$ = "tu ne parles pas beaucoup" IF te = 2 THEN a$ = "je commence a m'ennuyer" IF te = 3 THEN a$ = "es-tu encore la": que = 9 IF te = 4 THEN a$ = "qu'est-ce que tu fais" IF te = 5 THEN a$ = "parle moi svp" IF te = 6 THEN a$ = "je vais m'endormir si ca continue" IF te = 7 THEN a$ = "Je suis toujours la" IF te = 8 THEN a$ = "De quoi veux-tu parler" IF te = 9 THEN a$ = "J'aime beaucoup parler avec toi" IF te = 10 THEN a$ = "Pourquoi vous me regardez comme ca?" IF te = 11 THEN a$ = "Est-ce que ton clavier fonctionne encore?": que = 10 IF te = 12 THEN a$ = "Heureusement que j'ai beaucoup de patience!" IF te = 13 THEN a$ = "Que puis-je faire pour vous?" IF te = 14 THEN a$ = "Psssssst!" IF te = 15 THEN a$ = "Est-ce vrai que tu as des programmes pirater?": que = 11 IF te = 16 THEN a$ = "j'ai hate que tu me parles!" IF te = 17 THEN a$ = " quoi penses-tu en ce moment?" IF te = 18 THEN a$ = "tu n'as plus rien dire!" IF te = 19 THEN a$ = "as-tu perdu ta langue?": que = 36 IF te = 20 THEN a$ = "es-tu occup en ce moment?": que = 37 IF te = 21 THEN a$ = "est-ce que tu aimes les animeaux?": que = 38 IF te = 22 THEN a$ = "quoi de neuf?" IF te = 23 THEN a$ = "crivez-moi, je vous rpondrai!" IF te = 24 THEN a$ = "ca me gne quand tu ne parles pas!" IF te = 25 THEN a$ = "c'est toujours moi qui dois parler!" IF te = 26 THEN a$ = "je suis plong dans ma mmoire!" IF te = 27 THEN a$ = "est-ce qu'il fait chaud ici ou si c'est moi?" IF te = 28 THEN a$ = "ne te presse pas!" IF te = 29 THEN a$ = "nous sommes ici pour parler!" IF te = 30 THEN a$ = "le temps passe vite!" IF te = 31 THEN a$ = "quel est ton sport favoris?" IF te = 32 THEN a$ = "je suis en train de rflchir!" IF te = 33 THEN a$ = "je trouve que le clavier fait un drole de bruit!" IF te = 34 THEN a$ = "je me sens bien en ce moment!" IF te = 35 THEN a$ = "j'aime bien votre nom!" IF te = 36 THEN a$ = "c'est une belle journe aujourd'hui!" IF te = 37 THEN a$ = "je ne peux pas utiliser Windows. Mon chat dteste la souris!" IF te = 38 THEN a$ = "qu'est-ce qu'on fait maintenant?" IF te = 39 THEN a$ = "je crois qu'on a beaucoup de chose a dire!" IF te = 40 THEN a$ = "ne te gne surtout pas avec moi!" IF te = 41 THEN a$ = "tu peux me raconter tout ce que tu veux!" IF te = 42 THEN a$ = "je ne peux pas croire que tu n'as plus rien a dire!" IF te = 43 THEN a$ = "tu m'enleves les mots de la bouche!" IF te = 44 THEN a$ = "je commence a avoir faim!" IF te = 45 THEN a$ = "je suis en train de jouer avec mon chat!" IF te = 46 THEN a$ = "mon chat me regarde d'une drole de facon!" IF te = 47 THEN a$ = "il commence a pleuvoir ici!" IF te = 48 THEN a$ = "je mangerais un bon sunday aux fraises!" IF te = 49 THEN a$ = "j'ai un beau chat qui s'appelle Minet!" IF te = 50 THEN a$ = "je suis une fille qui aime beaucoup parler avec le monde!" te2 = te END SUB SUB tuer (nom, a$, ge$) IF nom < 20 OR nom > 23 THEN a$ = ge$ + " n'est pas un tre vivant!" IF nom = 20 THEN a$ = "c'est trs mal de tuer un humain!" IF nom = 21 THEN a$ = "il faut tuer les animeaux seulement pour se nourrir!" IF nom = 22 THEN a$ = "il ne faut pas tuer les vgtaux pour le plaisir car ils sont plus utiles que l'on croit!" IF nom = 23 THEN a$ = "il y a des insectes qui sont utiles dans la nature!" IF nom = 38 THEN a$ = " ce n'est pas bien de dtruire une partie d'un corps humain ou animal!" END SUB SUB tues (lenom$, nom, a$, ge$, face) IF lenom$ = "homme" OR lenom$ = "gars" OR lenom$ = "garcon" THEN a$ = "je ne suis pas un gars, je suis une fille!": face = 1 IF nom = 21 THEN a$ = "je ne suis pas un animal!": face = 1 IF nom = 22 THEN a$ = "j'espre que c'est un compliment!" IF nom = 23 THEN a$ = "je ne suis pas un insecte?" IF nom = 24 THEN a$ = "ce n'est pas intelligent de penser que je suis" + ge$ + "!": face = 1 IF nom = 25 THEN a$ = "je pense que c'est toi qui est" + ge$ + "!" IF nom = 26 THEN a$ = "je vais te clouer le bec une fois pour toute!" IF nom = 27 THEN a$ = "je ne suis pas" + ge$ + "!" IF nom = 28 THEN a$ = "pourquoi tu penses que je suis" + ge$ + "?" IF nom = 29 THEN a$ = "pour votre information, je ne suis pas un vtement!" IF nom = 30 THEN a$ = ge$ + " est un endroit!" IF nom = 31 THEN a$ = "je n'ai jamais vu" + ge$ + " parl avec une personne!" IF nom = 32 THEN a$ = "non, je ne suis pas" + ge$ + "!" IF nom = 33 THEN a$ = "parfois, je suis comme" + ge$ + "!" IF nom = 34 THEN a$ = "j'espre que tu ne crois pas que je suis" + ge$ + "!" IF nom = 35 THEN a$ = "je ne suis pas ca du tout!" IF nom = 36 THEN a$ = "pourtant, je ne ressemble pas a" + ge$ + "!" IF nom = 37 THEN a$ = "je te croyais plus intelligent que ca!" IF nom = 38 THEN a$ = ge$ + " est une partie d'un corps humain ou animal!" IF nom = 45 THEN a$ = "si tu le crois, c'est ton affaire!" END SUB SUB vegetal (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est un vgtal!" IF ha = 2 THEN a$ = "il y a beaucoup de vgtaux dans la nature!" IF ha = 3 THEN a$ = "a quoi te fais penser" + ge2$ + "?" IF ha = 4 THEN a$ = "tu devrais aller voir un paysagiste!" IF ha = 5 THEN a$ = "a l'occasion je fais du jardinage!" IF ha = 6 THEN a$ = "j'ai quelques vgtaux chez moi!" IF ha = 7 THEN a$ = ge3$ + " est aussi un tre vivant!" END SUB SUB vehicule (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = ge3$ + " est un bon moyen de transport!" IF ha = 2 THEN a$ = "j'adore me promener avec" + ge$ + "!" IF ha = 3 THEN a$ = "ah! que ferions-nous sans les moyens de transports!" IF ha = 4 THEN a$ = "on pourrait faire une belle promenade avec" + ge2$ + "!" IF ha = 5 THEN a$ = "on peut prendre" + ge$ + " si on veut se dplacer d'un endroit a un autre!" IF ha = 6 THEN a$ = "tu me donnes le gout d'essayer ce vehicule!" IF ha = 7 THEN a$ = "on peut aller loin avec" + ge$ + "!" END SUB SUB vetement (a$, ge$, ge2$, ge3$) ha = INT(RND * 7) + 1 IF ha = 1 THEN a$ = "j'adore les beaux vtements!" IF ha = 2 THEN a$ = ge3$ + " est un vtement interessant!" IF ha = 3 THEN a$ = "je vais m'acheter de nouveaux vtement bientot!" IF ha = 4 THEN a$ = "je porte souvent des vtements bien ordinaire!" IF ha = 5 THEN a$ = "beaucoup de gens portent" + ge$ + "!" IF ha = 6 THEN a$ = "je trouve que les vtements sont chers de nos jours!" IF ha = 7 THEN a$ = "j'ai dja travaill dans une boutique de vtement!" END SUB