XProfan

Titre de la fenêtre "Zeitungsheadline- et Clickbait-Generator":Fenêtre Style 24
Fenêtre 0,0-%maxx,%maxy:cls:showmax
var Q$="Taskforce,stehen avant qui porte,aller Zeiten,teure Preise,"+\
"Countdown fonctionne,zeitnah,im Vorfeld,pour large et petite,"+\
"auf einem guten Weg,Kartenhäuser,Tote gefordert,verheerend,"+\
"kaum trop croyons,grünes Licht,zurückrudern,qui kennt cela pas,"+\
"kein Einzelfall,warme Temperaturen,Nachbessern,schlagen Alarm,"+\
"Geisterfahrer,zeitgleich,Sinn faire,Paukenschlag,"+\
"zunächst unklar,Hochtouren,geschockt,alternativlos,"+\
"Thermometer steigt,Zeit ajuster,avant plat verantworten,"+\
"vorprogrammiert,avec voller Härte,sur dem Vormarsch,"+\
"es peux pas son,Überfremdung,air pour dessus,"+\
"in Startlöchern stehen,sur offener rue,Hochdruck,"+\
"Menschen evakuiert,Sex-Täter,Datendiebstahl,Gewinnwarnung,"+\
"nicht mal staunte,explodierende coûter,Gutmensch,"+\
"Abstellgleis,fieberhaft,Wetterchaos,à einem Strang tirer,"+\
"Wahlschlappe,Sünder,am Ende des Tages,Blutbad,durchgewinkt,"+\
"Preisbremse,céder se mettre,abgesegnet,frisches argent,"+\
"rote ligne number,am helllichten journée,klickten qui Handschellen,"+\
"reißt pas ab,kalte Temperaturen,un Stück large,liegt sur glace,"+\
"wie par un Wunder,sozial schwach,Homo-mariage,important et richtig,"+\
"Quantensprung,Spirale qui Gewalt,sozialverträglich,"+\
"teilweise verletzt,fit faire pour,Überwiegende majorité,"+\
"guter journée pour,sagte à,Schock sitzt tief,Urnengang,"+\
"neue Innovation,Notfahrplan,jusqu'à sur qui Grundmauern,Luftschläge,"+\
"Personalkarussell,aufs Tempo drücken,Nerven liegen blank,"+\
"Zukunftsprognose,aus dem la fenêtre lehnen,maintenant ist es raus,"+\
"traurige Gewissheit,argent dans qui main prendre,tragischer Tod,"+\
"an den Rollstuhl gefesselt,Flüchtlingsansturm,Gesundheitsprävention,"+\
"Das bateau ist voll,Muskelspiel,Multijobber,Prostitutionsschutzgesetz,"+\
"Wahldebakel,schmerzhafte Einschnitte,dans qui Kassen spülen,lourd Verwüstung,"+\
"Sex-Vorwürfe,Lücke,herbe gewachsen,Sozialromantiker,Todeskandidat,"+\
"Asylkritiker,integrationsunwillig,auseinanderdividieren,"+\
"Integrationsverweigerer,Sozialtourismus,sintflutartiger pluie,"+\
"Asylgegner,situation eskaliert,mehrköpfige la famille,Rassenkonflikt,"+\
"billiger Populismus,brutaler Mord,schlechter journée pour,"+\
"hermetisch abgeriegelt,erdrutschartig,menschliche catastrophe,"+\
"protestiert pour,Vorankündigung,Stuhl wackelt,angebliche Bilder,"+\
"Überfremdungsbefürworter,nuit hell erleuchtet,zentrale Eckpunkte,"+\
"Thermometer fällt,raumfremde les gens,es fällt Neuschnee,"+\
"unschuldige Frauen,comment Strohhalme,Rotationseuropäer,"+\
"illegale Flüchtlinge,Flüchtlingslücke,zusammenaddieren,"+\
"regelrecht hingerichtet,Passdeutsche,Flüchtlingstsunami,"+\
"nicht unweit,grundrechtsschonend,positiver Erfolg,"+\
"Flüchtlingssaison,Einfallsrouten,anbetrifft,Bootsmigrant,"+\
"Durchmarschsieg,TOP-croissance," +\
"Floskeln gedroschen,ins Relations zueinander gesetzt,"+\
"auf einem guten Weg,Kartenhäuser,im Vorfeld,grünes Licht,"+\
"schlagen Alarm,avec voller Härte,nachbessern,ne...aucune Einzelfall,"+\
"Überfremdung,Gewinnwarnung,Datendiebstahl,Paukenschlag,"+\
"auf offener rue,durchgewinkt,sur Hochtouren,air pour oben"
var S$="Menschen,Autos,Häuser,gens,Stabmixer,Straßenlampen"
var T$="sind,étions,wären,peut,könnten,avons,hätten,würden gerne"
declare TXT$:usefont Arial,100,20,0,0,0
Randomiser

Repeat

    Couleur du texte @RGB(0,0,0),-1
    TXT$=substr$(Q$,1+rnd(138),»)
    Txt$=upper$(left$(Txt$,1)) + right$(txt$,len(txt$)-1)
    TXT$=Txt$+" "+substr$(S$,1+rnd(6),»)+" "+\
    substr$(T$,1+rnd(8),»)+" "+\
    substr$(Q$,1+rnd(138),»)+\
    substr$("!,?,.",1+rnd(3),»)
    DrawText 123,167,TXT$
    waitinput 2000
    cls

until 0