XProfan

WindowTitle "Zeitungsheadline- und Clickbait-Generator":WindowStyle 24
Window 0,0-%maxx,%maxy:cls:showmax
var Q$="Taskforce,stehen vor der Tür,aller Zeiten,teure Preise,"+\
"Countdown läuft,zeitnah,im Vorfeld,für Groß und Klein,"+\
"auf einem guten Weg,Kartenhäuser,Tote gefordert,verheerend,"+\
"kaum zu glauben,grünes Licht,zurückrudern,wer kennt das nicht,"+\
"kein Einzelfall,warme Temperaturen,Nachbessern,schlagen Alarm,"+\
"Geisterfahrer,zeitgleich,Sinn machen,Paukenschlag,"+\
"zunächst unklar,Hochtouren,geschockt,alternativlos,"+\
"Thermometer steigt,Zeit umstellen,vor Gericht verantworten,"+\
"vorprogrammiert,mit voller Härte,auf dem Vormarsch,"+\
"es kann nicht sein,Überfremdung,Luft nach oben,"+\
"in Startlöchern stehen,auf offener Straße,Hochdruck,"+\
"Menschen evakuiert,Sex-Täter,Datendiebstahl,Gewinnwarnung,"+\
"nicht schlecht staunte,explodierende Kosten,Gutmensch,"+\
"Abstellgleis,fieberhaft,Wetterchaos,an einem Strang ziehen,"+\
"Wahlschlappe,Sünder,am Ende des Tages,Blutbad,durchgewinkt,"+\
"Preisbremse,Weichen stellen,abgesegnet,frisches Geld,"+\
"rote Linie,am helllichten Tag,klickten die Handschellen,"+\
"reißt nicht ab,kalte Temperaturen,ein Stück weit,liegt auf Eis,"+\
"wie durch ein Wunder,sozial schwach,Homo-Ehe,wichtig und richtig,"+\
"Quantensprung,Spirale der Gewalt,sozialverträglich,"+\
"teilweise verletzt,fit machen für,Überwiegende Mehrheit,"+\
"guter Tag für,sagte gegenüber,Schock sitzt tief,Urnengang,"+\
"neue Innovation,Notfahrplan,bis auf die Grundmauern,Luftschläge,"+\
"Personalkarussell,aufs Tempo drücken,Nerven liegen blank,"+\
"Zukunftsprognose,aus dem Fenster lehnen,jetzt ist es raus,"+\
"traurige Gewissheit,Geld in die Hand nehmen,tragischer Tod,"+\
"an den Rollstuhl gefesselt,Flüchtlingsansturm,Gesundheitsprävention,"+\
"Das Boot ist voll,Muskelspiel,Multijobber,Prostitutionsschutzgesetz,"+\
"Wahldebakel,schmerzhafte Einschnitte,in die Kassen spülen,schwere Verwüstung,"+\
"Sex-Vorwürfe,Lücke,Kraut gewachsen,Sozialromantiker,Todeskandidat,"+\
"Asylkritiker,integrationsunwillig,auseinanderdividieren,"+\
"Integrationsverweigerer,Sozialtourismus,sintflutartiger Regen,"+\
"Asylgegner,Lage eskaliert,mehrköpfige Familie,Rassenkonflikt,"+\
"billiger Populismus,brutaler Mord,schlechter Tag für,"+\
"hermetisch abgeriegelt,erdrutschartig,menschliche Katastrophe,"+\
"protestiert für,Vorankündigung,Stuhl wackelt,angebliche Bilder,"+\
"Überfremdungsbefürworter,Nacht hell erleuchtet,zentrale Eckpunkte,"+\
"Thermometer fällt,raumfremde Menschen,es fällt Neuschnee,"+\
"unschuldige Frauen,wie 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-Wachstum," +\
"Floskeln gedroschen,ins Verhältnis zueinander gesetzt,"+\
"auf einem guten Weg,Kartenhäuser,im Vorfeld,grünes Licht,"+\
"schlagen Alarm,mit voller Härte,nachbessern,kein Einzelfall,"+\
"Überfremdung,Gewinnwarnung,Datendiebstahl,Paukenschlag,"+\
"auf offener Straße,durchgewinkt,auf Hochtouren,Luft nach oben"
var S$="Menschen,Autos,Häuser,Leute,Stabmixer,Straßenlampen"
var T$="sind,waren,wären,können,könnten,haben,hätten,würden gerne"
declare TXT$:usefont "Arial",100,20,0,0,0
Randomize

Repeat

    TextColor @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