XProfan

Título de la ventana "Zeitungsheadline- y Clickbait-Generator":Ventana de Estilo 24
Ventana 0,0-%maxx,%maxy:cls:showmax
var Q$="Taskforce,posición antes Tür,aller Veces,teure Preise,"+\
"Countdown se ejecuta,zeitnah,en el Vorfeld,para Groß y Klein,"+\
"auf una guten Weg,Kartenhäuser,Tote gefordert,verheerend,"+\
"kaum a glauben,grünes Licht,zurückrudern,wer sabe el no,"+\
"kein Einzelfall,warme Temperaturen,Nachbessern,schlagen Alarm,"+\
"Geisterfahrer,zeitgleich,Sinn hacer,Paukenschlag,"+\
"zunächst unklar,Hochtouren,geschockt,alternativlos,"+\
"Thermometer steigt,Tiempo ajustar,antes Gericht verantworten,"+\
"vorprogrammiert,con voller Härte,en el Vormarsch,"+\
"es kann no ser,Überfremdung,Luft después de oben,"+\
"in Startlöchern posición,en offener Straße,Hochdruck,"+\
"Menschen evakuiert,Sex-Täter,Datendiebstahl,Gewinnwarnung,"+\
"nicht schlecht staunte,explodierende Kosten,Gutmensch,"+\
"Abstellgleis,fieberhaft,Wetterchaos,a una Strang ziehen,"+\
"Wahlschlappe,Sünder,al Ende des Tages,Blutbad,durchgewinkt,"+\
"Preisbremse,Weichen stellen,abgesegnet,frisches Geld,"+\
"rote Linie,al helllichten Tag,klickten el Handschellen,"+\
"reißt no de,kalte Temperaturen,una Stück weit,liegt en Eis,"+\
"wie por una Wunder,sozial schwach,Homo-Ehe,wichtig y correcto,"+\
"Quantensprung,Spirale el Gewalt,sozialverträglich,"+\
"teilweise verletzt,fit hacer para,Überwiegende Mehrheit,"+\
"guter Tag para,sagte gegenüber,Schock sitzt tief,Urnengang,"+\
"neue Innovation,Notfahrplan,salvo el Grundmauern,Luftschläge,"+\
"Personalkarussell,aufs Tempo drücken,Nerven mentira blank,"+\
"Zukunftsprognose,de el Ventana lehnen,ahora es fuera,"+\
"traurige Gewissheit,Geld en el Hand nehmen,tragischer Tod,"+\
"an el Rollstuhl gefesselt,Flüchtlingsansturm,Gesundheitsprävention,"+\
"Das Boot es voll,Muskelspiel,Multijobber,Prostitutionsschutzgesetz,"+\
"Wahldebakel,schmerzhafte Einschnitte,en el Kassen spülen,pesado 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 para,"+\
"hermetisch abgeriegelt,erdrutschartig,menschliche Katastrophe,"+\
"protestiert para,Vorankündigung,Stuhl wackelt,angebliche Bilder,"+\
"Überfremdungsbefürworter,Nacht hell erleuchtet,zentrale Eckpunkte,"+\
"Thermometer fällt,raumfremde Menschen,lo fällt Neuschnee,"+\
"unschuldige Frauen,como 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,en el Verhältnis zueinander gesetzt,"+\
"auf una guten Weg,Kartenhäuser,en el Vorfeld,grünes Licht,"+\
"schlagen Alarm,con voller Härte,nachbessern,kein Einzelfall,"+\
"Überfremdung,Gewinnwarnung,Datendiebstahl,Paukenschlag,"+\
"auf offener Straße,durchgewinkt,en Hochtouren,Luft después de oben"
var S$="Menschen,Autos,Häuser,Personas,Stabmixer,Straßenlampen"
var T$="sind,waren,wären,puede,könnten,haben,hätten,würden gerne"
declarar TXT$:usefont Arial,100,20,0,0,0
Selección aleatoria

Repeat

    Color del texto @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