BullshitGenerator :D

  • Ich präsentiere hiermit den BullshitGenerator 1.0
    Entstanden ist das Material während vieler langweiliger Schulstunden, das Programm habe ich heute schnell zusammengezimmert :D
    Ich habe bis jetzt nur drei "Sätze", ich denke, ihr versteht das Prinzip schnell und könnt mir bei der Ergänzung helfen;-)
    Code:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    Dim $adjektiv
    _FileReadToArray("adj.txt",$adjektiv)
    Dim $Sub1
    _FileReadToArray("sub1.txt",$Sub1)
    Dim $Sub2
    _FileReadToArray("sub2.txt",$Sub2)
    Dim $Satz
    _FileReadToArray("satz.txt",$Satz)
    Func _CreateBullshit($times)
    Dim $ergebnis
    For $i=1 To $times
    $ergebnis &= " " & $Satz[Random(1,$Satz[0],1)]
    Do
    $ergebnis=StringReplace($ergebnis,"%1",$adjektiv[Random(1,$adjektiv[0],1)],1)
    Until @extended=0
    Do
    $ergebnis=StringReplace($ergebnis,"%2",$Sub1[Random(1,$sub1[0],1)],1)
    Until @extended=0
    Do
    $ergebnis=StringReplace($ergebnis,"%3",$Sub2[Random(1,$sub2[0],1)],1)
    Until @extended=0
    Next
    Return StringTrimLeft($ergebnis,1)
    EndFunc
    MsgBox(0,"",_CreateBullshit(3))

    [/autoit]
    adj.txt

    konzentrierte
    integrierte
    permanente
    systematisierte
    progressive
    funktionelle
    orientierte
    synchrone
    qualifizierte
    ambivalente
    faktorielle
    allgemeine
    spezielle
    präventive
    graphische
    autonome
    originale
    universelle
    schwere
    multiple
    fiktive
    interaktive
    polarisierte
    traditionelle
    imaginäre
    skalierte
    leichte
    dezentrale
    konstruktive
    intelligente
    negative
    illegale
    reale
    primäre
    sekundäre
    tertiäre
    dynamische
    optische
    juristische
    akustische
    harmonische
    variable
    interne
    externe
    unendliche
    quadratische
    elektrische
    energetische
    gleichförmige
    grundlegende

    satz.txt

    Während dieser %1n %2%3 brauchen wir keine %2%3, sondern eine %1 %2%3, denn eine %1 %2%3 hat noch nie die %2%3 einer %1n %2%3 erreicht!!!
    Manche setzen nun auf eine %1 %2%3, doch ich plädiere gegen eine %1 %2%3, wir brauchen vielmehr eine %1 %2%3, die das Problem der %1n %2%3 entgültig beseitigt.
    Die %1 %2%3 ist die %1 %2%3, denn eine %1 %2%3 beseitigt die %1 %2%3 sowie die %1 %2%3.
    In einer %1n %2%3 wird eine %1 %2%3 jede %2%3 übertreffen, denn eine %1 %2%3 wird durch eine %2%3 zur %1n %2%3.
    Bei jeder %1n Veränderung der %1n %2%3 entsteht eine %1 %2- oder %2%3, die desweiteren in einer %1n %2%3 münden sollte, wenn eine %1 %2%3 die %2%3 zur %1n %2%3 machen sollte.

    sub1.txt

    Funktions
    Aktivierungs
    Reaktions
    Aktions
    Regenerations
    Differenzierungs
    Relations
    Entwicklungs
    Animations
    Transformations
    Organisations
    Relativitäts
    Raum
    Defensiv
    Offensiv
    Destruktiv
    Universal
    Berechnungs
    Kapital
    Pseudo
    Objekt
    Einrichtungs
    Vital
    Studien
    Extraktions
    Nuklear
    Struktur
    Sicherungs
    Finanzierungs
    Interferrenz
    Exponential
    Disskussions
    Bedarfs
    Deklarations
    Produktions
    Zustands
    Ladungs
    Ignoranz
    Gravitations
    Strahlungs
    Sektoren
    Proportions
    Monotonie
    Normal
    Leistungs
    Spektral
    Arbeits
    Impuls
    Thermal
    Bewegungs

    sub2.txt

    struktur
    ebene
    potenz
    energie
    sequenz
    konstruktion
    praktik
    umgebung
    option
    mutation
    theorie
    verschiebung
    oberfläche
    funktion
    zeit
    offensive
    gleichung
    taktik
    verminderung
    störung
    politik
    kombination
    konferenz
    validierung
    konvergenz
    toleranz
    existenz
    kopie
    illusion
    strategie
    konstante
    philosophie
    regel
    menge
    bilanz
    bewegung
    effizienz
    prävention
    varianz
    zone
    rate
    egenschaft
    lage
    parabel
    matrix
    dosis
    translation
    equivalenz
    achse
    blase

    edit: Ach ja, wenn ihr mehrere Vorschläge habt, bitte im Format "bla","blub" ;)
    edit: 2 neue Sätze!!!

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

    4 Mal editiert, zuletzt von L3viathan2142 (20. Mai 2009 um 18:09)

    • Offizieller Beitrag

    Find ich Cool. So ein scheiß reden sonst nur Politiker und möchtegerngroße . :rofl:

  • Hab wirklich versucht die Sätze zu verstehen..
    Ich kapier nur noch... Bullshit?! :D

  • Manchmal kommt was halbwegs sinnvolles raus, wie z.B.

    Zitat

    Manche setzen nun auf eine konstruktive Strahlungsillusion, doch ich plädiere gegen eine konstruktive Nuklearpolitik, wir brauchen vielmehr eine energetische Animationskonferrenz, die das Problem der juristischen Arbeitsequivalenz entgültig beseitigt.


    :D

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

  • haha ist dat geil :thumbup: :thumbup: :thumbup:
    gefällt mir voll dat teil

    wäre schön wenn man es erweitern könnte duch txt dateien in kategoren aufgeteil
    oder eine ini wie auch immer

    :rock: :rofl:

  • Hallo L3viathan2142,

    welche Politiker haben dieses Teil als Preview bekommen und ihren Reden damit generiert? Lustiges Teil diesen Satz beim 2. Versuch (umgestellt auf Consolewrite)

    Zitat

    BullShitGenerator: Manche setzen nun auf eine multiple Ignoranztheorie, doch ich plädiere gegen eine harmonische Arbeitsmutation, wir brauchen vielmehr eine skalierte Funktionsoberfläche, die das Problem der sekundären Relationskonstante entgültig beseitigt. Die funktionelle Finanzierungstheorie ist die tertiäre Kapitalegenschaft, denn eine quadratische Entwicklungsoption beseitigt die elektrische Deklarationstranslation sowie die juristische Normaloption. Die qualifizierte Aktivierungsfunktion ist die allgemeine Differenzierungszeit, denn eine integrierte Objektegenschaft beseitigt die optische Impulsstruktur sowie die quadratische Pseudoparabel.

    Edit1: noch einer:

    Zitat

    Während dieser universellen Monotonieoberfläche brauchen wir keine Leistungsoberfläche, sondern eine sekundäre Offensivmatrix, denn eine sekundäre Ladungssequenz hat noch nie die Relationsregel einer realen Organisationsvalidierung erreicht!!! Während dieser negativen Spektralebene brauchen wir keine Objektblase, sondern eine juristische Regenerationsoberfläche, denn eine interne Sektorendosis hat noch nie die Studiendosis einer konstruktiven Universalmenge erreicht!!! Während dieser skalierten Proportionspotenz brauchen wir keine Organisationsverschiebung, sondern eine primäre Arbeitsmatrix, denn eine primäre Impulsebene hat noch nie die Ignoranzstrategie einer polarisierten Gravitationsdosis erreicht!!!

    Edit2: im Anhang eine Textdatei mit noch mehr schlauen Sätzen vom BullShitGenerator, vielleicht findet ja einer dort seine neue Signatur.

    mfg (Auto)Bert

    2 Mal editiert, zuletzt von AutoBert (19. Mai 2009 um 19:33)

  • Hab mir mal erlaubt das ein wenig schicker zu gestalten :)

    Viel Spaß hiermit:

    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=Politik_aktuell.exe
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Add_Constants=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <File.au3>
    #include <GuiConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <EditConstants.au3>
    #include <ButtonConstants.au3>
    #include <GuiEdit.au3>

    [/autoit][autoit][/autoit][autoit]

    ;###############################################
    ; Festgelegte Variablen
    ;###############################################
    $guihoehe = @DesktopHeight
    $guibreite = @DesktopWidth

    [/autoit][autoit][/autoit][autoit]

    $bildpostop = @DesktopHeight / 2.25
    $bildposleft = @DesktopWidth / 8
    $bildhoehe = @DesktopHeight / 5.12
    $bildbreite = @DesktopWidth / 6.4

    [/autoit][autoit][/autoit][autoit]

    HotKeySet('{esc}', '_exit')

    [/autoit][autoit][/autoit][autoit]

    $textpostop = @DesktopHeight / 1.5
    $textposleft = @DesktopWidth / 8
    $textbreite = @DesktopWidth / 3
    $texthoehe = @DesktopHeight

    [/autoit][autoit][/autoit][autoit]

    Dim $adjektiv
    _FileReadToArray( @ScriptDir & "\Texte\adj.txt",$adjektiv)
    Dim $Sub1
    _FileReadToArray( @ScriptDir & "\Texte\sub1.txt",$Sub1)
    Dim $Sub2
    _FileReadToArray( @ScriptDir & "\Texte\sub2.txt",$Sub2)
    Dim $Satz
    _FileReadToArray( @ScriptDir & "\Texte\satz.txt",$Satz)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;################################################
    ; GUI Start
    ;################################################
    GUICreate("Meldung des Tages", $guibreite, $guihoehe)
    GUICtrlCreatePic(@ScriptDir & "\Bilder\HG.jpg",0,0,$guibreite,$guihoehe,0)
    GUICtrlCreatePic(@ScriptDir & "\Bilder\Politiker\" & Random(1,7,1) & ".jpg",$bildposleft,$bildpostop,$bildbreite,$bildhoehe)
    GUICtrlCreateLabel(_CreateBullshit(3), $textposleft, $textpostop, $textbreite, $texthoehe)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlCreateLabel(@HOUR & ":" & @MIN & "",@DesktopWidth / 1.03, @DesktopHeight / 1.018,40,30)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    [/autoit][autoit][/autoit][autoit]

    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    While 1
    Sleep(20)
    WEnd

    [/autoit][autoit][/autoit][autoit]

    ;########################################
    ; Functions
    ;########################################

    [/autoit][autoit][/autoit][autoit]

    Func _exit()
    Exit
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _CreateBullshit($times)
    Dim $ergebnis
    For $i=1 To $times
    $ergebnis &= " " & $Satz[Random(1,$Satz[0],1)]
    Do
    $ergebnis=StringReplace($ergebnis,"%1",$adjektiv[Random(1,$adjektiv[0],1)],1)
    Until @extended=0
    Do
    $ergebnis=StringReplace($ergebnis,"%2",$Sub1[Random(1,$sub1[0],1)],1)
    Until @extended=0
    Do
    $ergebnis=StringReplace($ergebnis,"%3",$Sub2[Random(1,$sub2[0],1)],1)
    Until @extended=0
    Next
    Return StringTrimLeft($ergebnis,1)
    EndFunc

    [/autoit]

    Hier die Ordner mit den Bildern als ZIP:
    Ist leider zu groß für einen Dateianhang.
    Aber hier ein Vorschaubild!

    [Blockierte Grafik: http://www.imgbox.de/users/public/thumbnails/c11271w16_t.gif]


    So nun endlich eine verkleinerte Version! :D
    Ist im gegensatz zu der ZIP auf Rapidshare noch nicht compiliert.
    Also Quellcode, Texte und 3 Bilder sind dabei.

    8 Mal editiert, zuletzt von L0c4lh0sT (20. Mai 2009 um 16:01)

  • Oh garnicht gesehen...Danke!
    Naja ist aber sowiso zu groß.
    Datei hat knappe 2,5MB.
    Also wenn dann nur als Split archiv.

    Vorschaubild hab ich bei mir eingefügt.

    €dit:
    Siehe meinen vorherigen Beitrag!
    Ist jetzt mit eingefügt!

    Einmal editiert, zuletzt von L0c4lh0sT (20. Mai 2009 um 14:40)

  • Ich finde das eine sehr gute idee sowas hat glaube ich noch keiner gemacht :thumbup:

    Bestimmt nicht *gähn* das haben wir vor über 20 Jahren schon in der Schule gespielt... und zwar mit einem Blatt Papier, welches entsprechend gefaltet wurde und dann im Kreis rumgereicht wurde, bis der Satz fertig war...

    Natürlich trotzdem eine lustige Umsetzung :rock:

    Zitat

    Laughing Man

    "I thought, what I'd do was, I'd pretend I was one of those deaf-mutes"

  • ich sag nur bullshit-bingo :D ... macht jede besprechung um vielfaches lustiger *hehe*

  • copy bitte was? :D
    Sind nur beispielbilder.
    Kann man jedes erdenktlich bild mit reinbauen^^
    Einfach die Bilder 1 bis 7 im Politiker Ordner durch gleichnamige ersetzen...

    So Fotos sind raus^^

    Einmal editiert, zuletzt von L0c4lh0sT (20. Mai 2009 um 16:01)

  • Bestimmt nicht *gähn* das haben wir vor über 20 Jahren schon in der Schule gespielt

    Rat mal, aus welchem Material das erstellt wurde ;) langweilige Sozialkundestunden zum Beispiel...
    Bitte postet doch mal eigene Sätze, ich brauche mehr als nur drei...

    @127.0.0.1: Nette Idee, kommt aber natürlich nicht in die UDF rein - dazu ist es ja ne UDF...

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

  • Soo, das ist ja schon nicht schlecht! Witzig, was der PC da so ausspuckt!
    @127,0,0,1: Desn QT hab ich mir mal ein bisschen vorgenommen: Exit via [X] am rechten Ende, auserdem die #includes weggetan, die du nicht brauchst: 6!

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • So, ich habe zur Abwechslung mal zwei neue Sätze eingebaut, zum update also einfach die satz.txt austauschen...
    Vorschau der beiden neuen Sätze:

    Zitat von Satz4

    In einer sekundären Exponentialparabel wird eine variable Disskussionsenergie jede Relationsblase übertreffen, denn eine allgemeine Vitalkonferenz wird durch eine Interferrenzexistenz zur multiplen Sicherungsstrategie.

    Zitat von Satz5

    Bei jeder grundlegenden Veränderung der permanenten Kapitaloption entsteht eine unendliche Entwicklungs- oder Relativitätspotenz, die desweiteren in einer variablen Destruktivmutation münden sollte, wenn eine imaginäre Transformationsphilosophie die Extraktionstheorie zur externen Spektralfunktion machen sollte.

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

  • Tobi Girst: Ja sry wegen de Includes ich hab einfach alle die ich in einem anderen QC den ich gerade auf hatte rauskopiert und eingefügt.
    Musste schnell gehen weil war auf der Arbeit^^

  • Ich muss sagen, einfach geniales Teil! :D
    Ham uns gerade in der Schule todgelacht
    über die Sätze die das Teil ausspuckt ;).
    Danke hast uns den Nachmittag ein
    kleines bisschen versüßt! :rofl:

    MfG Ray