

prenez 8 textes débile mais bien concu !!
melanger a l'infini
vous aurez autant de nouveau text reussi !



Merci monsieur Queneau

; Compositeur de chansons ou de poemes Automatique
; Programme Réalisé par Dobro en PureBasic v3.93
OpenConsole ()
ConsoleColor (10,0)
Dim a$(10,16)
n=8 ; ici on met le nombre de text que l'on mélange !! ici 8
For i=1 To n
For j=1 To 16
Read a$(i,j)
Next j
Next i
debut:
ClearConsole ()
ConsoleColor (15,0)
ConsoleLocate (1,1)
PrintN ( "Chanson compose automatiquement " +n$)
PrintN ( "" )
For i=1 To 16
r= Random (n)+1
If i=5 Or i=9 Or i=13
PrintN ( "" )
EndIf
ConsoleColor (14,0)
ConsoleLocate (25,i+3)
PrintN (a$(r,i))
Next i
ConsoleColor (15,0)
PrintN ( "" )
PrintN ( "appuis sur return pour generer un autre text" )
i$= Input ()
ClearConsole ()
Goto debut
DataSection
; la premiere ligne de "txt1" doit rimmer avec la premiere ligne des autre txt
; pareil pour les autre lignes !!
; il est preferable pour la comprehension final
; de garder une logique pour chacune des lignes de chaque text !!
; par exemple reserver la premiere ligne de chaque text pour décrire
; le lieu ou se passe l'action
; ensuite c'est libre imagination !! (du moment que l'on respect les préceptes cité plus haut)
;txt1
Data.s "tout au fond de la foret" ; le lieu
Data.s "j'ai renconte Isabelle" ; 1er action (rencontre)
Data.s "dans sa robe de dentelle" ;action de l'interresée
Data.s "elle allait faire son marche" ;situation de l'interresée
Data.s "et elle me plaisait tant" ; notre ressenti
Data.s "je lui est dit tu es belle" ; que lui dit t'on 1
Data.s "si tu me restais fidele" ; que lui dit t'on 2
Data.s "j'en serai vraiment content" ; que lui dit t'on 3
Data.s "elle m'a dit pourquoi pas" ; reponse 1
Data.s "puisque je suis ta cousine" ; reponse 2
Data.s "allons aux lieux ou l'on dine" ; reponse 3
Data.s "nous prendron un bon repas" ; reponse 4
Data.s "ensuite je te promets ...." ; reponse 5
Data.s "elle a fait comme elle a dit" ; reaction 1
Data.s "et depuis ce jour beni" ; reaction 2
Data.s "je ne l'ai jamais quittee" ; moralité (fin)
; txt2
Data.s "dans la cour pres de l'entree"
Data.s "j'ai rencontre la mere Michel"
Data.s "qui descendait sa poubelle"
Data.s "d'ou sortaient , des epluchures mouillee"
Data.s "elle avait l'air d'un areng"
Data.s "lui ai dit Mademoiselle"
Data.s "fait vraiment pas chaud, il gele"
Data.s "c'est l'hiver avant longtemps"
Data.s "elle m'a dit ah ben ca !"
Data.s "je suis une coquine "
Data.s "ca durcit les aubergines"
Data.s "c'est pas bon pour le foie"
Data.s "on l'a dit a la tele"
Data.s "j'ai fait bof ! et suis parti"
Data.s "j'ai ma dose pour aujourd'hui"
Data.s "elle est completement felee"
;txt3
Data.s "a la sortie du lycee"
Data.s "j'abordai la pucelle"
Data.s "agitant ses bras d'hirondelle"
Data.s "pour l'aider a traverser"
Data.s "c'etait pas tres engageant"
Data.s "j'ai dit d'une voix qui bele"
Data.s "dans la rue de courcelles"
Data.s "retire donc tes vetements"
Data.s "elle a repondu oui avec Joie"
Data.s "devant le lycee Racine"
Data.s "prenez la rue de lourcine"
Data.s "j'irai ou il te plaira"
Data.s "vous pouvez y aller a pied"
Data.s "elle connaissait pas Paris"
Data.s "c'est vraiment pas n'importe qui"
Data.s "on peut rien lui demander"
;txt4
Data.s "dans la rue edgard-Quinet"
Data.s "deambulait Gabrielle"
Data.s "faisant tourner son ombrelle"
Data.s "pour se faire remarquer"
Data.s "elle se cherchait un client"
Data.s "vous voir dit-je, m'ensorcelle"
Data.s "sentez-moi les esselles"
Data.s "je jouerai du sentiment"
Data.s "elle me dit ca va ! ca va !"
Data.s "mais quoi ! j'halucine ?"
Data.s "j'suis Irma pas Messaline"
Data.s "c'est cent franc pour les tagadas"
Data.s "L'amour faut pas m'en parler"
Data.s "c'est pas pour moi cette furie"
Data.s "j'vais allez voir Nathalie"
Data.s "elle saura me consoler"
;txt5
Data.s "en haut de l'escalier C"
Data.s "vivait la douce Annabelle"
Data.s "elle faisait la vaisselle"
Data.s "apres s'etre lave les pieds"
Data.s "frottait sans menagement"
Data.s "j'ai dit oh quel belle ecuelles"
Data.s "ta vaisselle elle etincelle"
Data.s "comment peut t'on briller tant"
Data.s "elle me dit c'est l'huile de bras"
Data.s "mon royaume c'est la routine"
Data.s "je suis la fee melusine"
Data.s "je suis la fee des lilas"
Data.s "c'est une vrais fille a marier"
Data.s "cordon bleu, fee du logis"
Data.s "avec elle c'est la belle vie"
Data.s "et hop, je vais l'epouser"
;txt6
Data.s "en sortant de chez Dede"
Data.s "pleurai la pauvre Cibele"
Data.s "dans ce vieux film, c'etait elle"
Data.s "qui tournait y'a des annees"
Data.s "c'etait la star du moment"
Data.s "je me suis aproche d'elle"
Data.s "vous etiez si sensuelle"
Data.s "votre role est boulversant"
Data.s "elle dit je suit Lolita"
Data.s "je pose dans les magazines"
Data.s "non , je ne suis plus une gamine"
Data.s "je suis prette a tout avec toi"
Data.s "elle s'est remise a pleurer"
Data.s "comme Cherbourg sous la pluie"
Data.s "elle a appele un taxi"
Data.s "je n'irai plus au cine"
;txt7
Data.s "assi sur mon tabouret" ; le lieu
Data.s "j'ai rencontre Isabelle" ; 1er action (rencontre)
Data.s "dans ses sous vetement en dentelle" ;action de l'interresée
Data.s "elle se faisait bronzer" ;situation de l'interresée
Data.s "et rien qu'en la voyant" ; notre ressenti
Data.s "je voulu lui rouler une pelle" ; que lui dit t'on 1
Data.s "si tu veux, car tu es belle" ; que lui dit t'on 2
Data.s "je deviendrai ton amant" ; que lui dit t'on 3
Data.s "elle m'a dit : j'aime ca" ; reponse 1
Data.s "puisque tu l'allure fine" ; reponse 2
Data.s "montre moi vite ta pine" ; reponse 3
Data.s "je veux l'avoir tout a moi" ; reponse 4
Data.s "elle m'a couvert de baises" ; reponse 5
Data.s "elle a fait comme elle a dit" ; reaction 1
Data.s "elle a tout engloutie" ; reaction 2
Data.s "je ne l'ai jamais quittee" ; moralité (fin)
;txt8
Data.s "derriere son ordinateur rouille" ; le lieu
Data.s "j'ai parle avec elle" ; 1er action (rencontre)
Data.s "dans ses petites prunelle" ;action de l'interresée
Data.s "on pouvais tout deviner" ;situation de l'interresée
Data.s "elle avait de belles dents" ; notre ressenti
Data.s "je voulu lui retirer ses ficelles" ; que lui dit t'on 1
Data.s "tu n'es pas rebelle" ; que lui dit t'on 2
Data.s "je l'ai deshabillee, en un rien de temps" ; que lui dit t'on 3
Data.s "elle m'a dit : continue comme ca" ; reponse 1
Data.s "puisque tu me caline" ; reponse 2
Data.s "en grande pompe je me radine" ; reponse 3
Data.s "je veux t'avoir tout a moi" ; reponse 4
Data.s "elle a ouvert son chemisier" ; reponse 5
Data.s "elle a souris et a dit" ; reaction 1
Data.s "j'ai bon appetit" ; reaction 2
Data.s "je ne l'ai jamais oubliee" ; moralité (fin)
EndDataSection