LotW Soundboard

    Hallo Liebe User

    Ich hab mir mal Spasseshalber ein Lord of the Weed Soundboard gebasstelt.
    Auf die nur einfachste art und weise :D
    Man könnts evt noch bündel / den Code kleiner machen was für mich aber nicht so sinn und zwer ist.

    Es soll ein kleines Bsp. sein fürn soundwidergabe und GUI Farben
    Auf jeden ist es funny ^^

    Anregungen einfach mitteilen :D
    Code / exe und co befinden sich in der .rar datei

    Skilkor

    (leider muss ichn Megaupload link angeben,da dass .rar file fürs board zu gross ist (3,71mb))
    Link = LotW
    Hier währ der Code

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### Hauptfenster
    $Form = GUICreate("LotW Soundboard", 630, 630, 192, 124)
    GUISetBkColor(0x000000)
    $Pic = GUICtrlCreatePic(@ScriptDir & "\LotW.jpg", 0, 240, 636, 404, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Button1 = GUICtrlCreateButton("Überraschung", 8, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button2 = GUICtrlCreateButton("MultiKill", 8, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button3 = GUICtrlCreateButton("Bierschiss", 8, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button4 = GUICtrlCreateButton("Fett", 8, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button5 = GUICtrlCreateButton("Auf dem Land", 8, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button6 = GUICtrlCreateButton("Mukke", 8, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button7 = GUICtrlCreateButton("Hinter den Ohren", 8, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button8 = GUICtrlCreateButton("Durchziehen", 136, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button9 = GUICtrlCreateButton("Schnee im Sommer", 136, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button10 = GUICtrlCreateButton("Träume", 136, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button11 = GUICtrlCreateButton("Alte Säcke", 136, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button12 = GUICtrlCreateButton("Puff", 136, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button13 = GUICtrlCreateButton("Gamma Gandalf", 136, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button14 = GUICtrlCreateButton("Verarschen", 136, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button15 = GUICtrlCreateButton("Drogenfahndung", 264, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button16 = GUICtrlCreateButton("Ich hab alles", 264, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button17 = GUICtrlCreateButton("Muff", 264, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button18 = GUICtrlCreateButton("Aufs Mowl", 264, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button19 = GUICtrlCreateButton("Ultra Zauberer", 264, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button20 = GUICtrlCreateButton("Wacken", 264, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button21 = GUICtrlCreateButton("Der Teufel", 264, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button22 = GUICtrlCreateButton("Dorfnutte", 392, 8, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button23 = GUICtrlCreateButton("Kluger Puntsher", 392, 40, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button24 = GUICtrlCreateButton("Gott", 392, 72, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button25 = GUICtrlCreateButton("Kopfnuss", 392, 104, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button26 = GUICtrlCreateButton("Mein Ring", 392, 136, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button27 = GUICtrlCreateButton("Jamaika", 392, 168, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button28 = GUICtrlCreateButton("DROGEN!!", 392, 200, 99, 25, $WS_GROUP)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUISetState(@SW_SHOW)
    #EndRegion ### Hauptfenster

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button1
    SoundPlay(@ScriptDir & "\Sound\01-Überraschung.mp3",1)
    Case $Button2
    SoundPlay(@ScriptDir & "\Sound\02-MiltiKill.mp3",1)
    Case $Button3
    SoundPlay(@ScriptDir & "\Sound\03-Bierschiss.mp3",1)
    Case $Button4
    SoundPlay(@ScriptDir & "\Sound\04-Fett.mp3",1)
    Case $Button5
    SoundPlay(@ScriptDir & "\Sound\05-Auf dem Land.mp3",1)
    Case $Button6
    SoundPlay(@ScriptDir & "\Sound\06-Mukke.mp3",1)
    Case $Button7
    SoundPlay(@ScriptDir & "\Sound\07-Hinter den Ohren.mp3",1)
    Case $Button8
    SoundPlay(@ScriptDir & "\Sound\08-Durchziehen.mp3",1)
    Case $Button9
    SoundPlay(@ScriptDir & "\Sound\09-Schnee im Sommer.mp3",1)
    Case $Button10
    SoundPlay(@ScriptDir & "\Sound\10-Träume.mp3",1)
    Case $Button11
    SoundPlay(@ScriptDir & "\Sound\11-Alte Säcke.mp3",1)
    Case $Button12
    SoundPlay(@ScriptDir & "\Sound\12-Puff.mp3",1)
    Case $Button13
    SoundPlay(@ScriptDir & "\Sound\13-Gamma Gandalf.mp3",1)
    Case $Button14
    SoundPlay(@ScriptDir & "\Sound\14-Verarschen.mp3",1)
    Case $Button15
    SoundPlay(@ScriptDir & "\Sound\15-Drogenfahndung.mp3",1)
    Case $Button16
    SoundPlay(@ScriptDir & "\Sound\16-Ich hab alles.mp3",1)
    Case $Button17
    SoundPlay(@ScriptDir & "\Sound\17-Stinkt.mp3",1)
    Case $Button18
    SoundPlay(@ScriptDir & "\Sound\18-Aufs Mowl.mp3",1)
    Case $Button19
    SoundPlay(@ScriptDir & "\Sound\19-Ultra Zauberer.mp3",1)
    Case $Button20
    SoundPlay(@ScriptDir & "\Sound\20-Wacken.mp3",1)
    Case $Button21
    SoundPlay(@ScriptDir & "\Sound\21-Der Teufel.mp3",1)
    Case $Button22
    SoundPlay(@ScriptDir & "\Sound\22-Dorfnutte.mp3",1)
    Case $Button23
    SoundPlay(@ScriptDir & "\Sound\23-Kluger Puntscher.mp3",1)
    Case $Button24
    SoundPlay(@ScriptDir & "\Sound\24-Gott.mp3",1)
    Case $Button25
    SoundPlay(@ScriptDir & "\Sound\25-Kopfnuss.mp3",1)
    Case $Button26
    SoundPlay(@ScriptDir & "\Sound\26-Mein Ring.mp3",1)
    Case $Button27
    SoundPlay(@ScriptDir & "\Sound\27-Jamaika.mp3",1)
    Case $Button28
    SoundPlay(@ScriptDir & "\Sound\28-DOGEN.mp3",1)
    EndSwitch
    WEnd

    [/autoit]


    Leider nur Ohne Alles

    Einmal editiert, zuletzt von Skilkor (22. August 2010 um 04:58)

    Hallo SkilKor,

    du tippst wohl gerne? Ich habe das Sckript überflogen, beim Einsatz von $Form =

    [autoit]

    GUICreate("LotW Soundboard", 630, 630, 192, 124)
    GUISetBkColor(0x000000) ;<========
    GUICtrlSetDefBkColor( 0x000000,$Form) ;<========

    [/autoit]

    hättest du dir einige Zeilen sparen können. Da das ganze ja ein Copy-Paste Skript ist [lauter gleichartige Buttons mit immer der gleichen Funktion (SoundPlay)] solltest du auch über den Einsatz von Arrays (1. für Controll-IDs 2. für Beschriftung der Controls, 3. für die Musiktitel) nachdenken, dies spart sicher auch noch einige Zeilen.

    PS.: Sind die Musiktitel frei verfügbar oder hälst du selbst die Rechte daran?

    mfg autoBert

    Zitat

    Von autoBert
    du tippst wohl gerne?


    Jau ^^ und bin auch zimlich schnell darin :D
    Was das Kürzen angeht :D
    Sagte ich ja, dass man es zu 100% noch kürzen kann ^^

    Allso was die musiktitel angeht.
    wie will ich das sagen, ich hab meine Viedeo samlang durchforstet und bin auf das aalte Relikt Video Lord of the Weed gestossen. da kahm mir die Idee mit dem Soundboard ^^ und hab das Video zu nem mp3 Convertiert. im video sah ich kein Copiroght.ich schuas mir abernochmals an
    Was ich bei den buttons noch machenkönnte sind verschiedene grüntöne verwenden :D

    Skilkor

    Hallo Skilkor.
    Dein Skript ist, und ich will dich damit nicht verletzen ;), nichts besonderes.
    Leider setzt du den Parameter "wait" von SoundPlay auf 1, dadurch kann man das Skript nicht über den "X" Button beenden.
    Wenn du den Parameter leer lässt, läuft das Skript weiter, während der Sound läuft.

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.

    Zitat

    Dein Skript ist, und ich will dich damit nicht verletzen ;), nichts besonderes.
    Leider setzt du den Parameter "wait" von SoundPlay auf 1, dadurch kann man das Skript nicht über den "X" Button beenden.
    Wenn du den Parameter leer lässt, läuft das Skript weiter, während der Sound läuft.

    Ich hab nie behauptet is sei was Bessonderes :rofl:
    naja das mit dem Sound parameter, da wahr ich mir ned sicher, und hab vorab die 1 genommen :D

    *Edit*
    Ach ich komme immernoch ned drauf wie ich alle buttons mit einer Variable ne farbe gib :S

    Einmal editiert, zuletzt von Skilkor (22. August 2010 um 12:41)