Southpark Movie Randomizer

[AlmarM]

expandcollapse popup

#include <GUIConstants.au3>
DIM $Movie

$GUI = GUICreate("Southpark Randomizer", 455, 90, -1, -1)
$Label_1 = GUICtrlCreateLabel("", 10, 10, 445, 20)
$Label_2 = GUICtrlCreateLabel("", 10, 30, 445, 20)
$Button_1 = GUICtrlCreateButton("Randomize", 10, 50, 335, 30)
$Button_2 = GUICtrlCreateButton("Go to link", 345, 50, 105, 30)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
    Case $nMsg = $Button_1
        _Random()
    Case $nMsg = $Button_2
        Run("cmd /c start " & $Movie, "", @SW_HIDE)
    EndSelect
WEnd

Func _Random()
    $Movie = Random(1, 20, 1)
    Switch $Movie
    Case 1
        $Movie = "http://www.southparkzone.com/episodes/102/Weight-Gain-4000.html"
        $Movie_Name = "Weight Gain"
    Case 2
        $Movie = "http://www.southparkzone.com/episodes/406/Cartman-Joins-NAMBLA.html"
        $Movie_Name = "Cartman Joins NAMBLA"
    Case 3
        $Movie = "http://www.southparkzone.com/episodes/603/Asspen.html"
        $Movie_Name = "Asspen"
    Case 4
        $Movie = "http://www.southparkzone.com/episodes/210/Chickenpox.html"
        $Movie_Name = "Chickenpox"
    Case 5
        $Movie = "http://www.southparkzone.com/episodes/506/Cartmanland.html"
        $Movie_Name = "Cartmanland"
    Case 6
        $Movie = "http://www.southparkzone.com/episodes/316/Are-you-there-God?-Its-me-Jesus.html"
        $Movie_Name = "Are you there God? It's me Jesus"
    Case 7
        $Movie = "http://www.southparkzone.com/episodes/301/Rainforest-Schmainforest.html"
        $Movie_Name = "Rainforest Schmainforest"
    Case 8
        $Movie = "http://www.southparkzone.com/episodes/608/Red-Hot-Catholic-Love.html"
        $Movie_Name = "Red Hot Catholic Love"
    Case 9
        $Movie = "http://www.southparkzone.com/episodes/315/Mr.-Hankey's-Christmas-Classics.html"
        $Movie_Name = "Mr. Hankey's Chismas Classics"
    Case 10
        $Movie = "http://www.southparkzone.com/episodes/1104/The-Snuke.html"
        $Movie_Name = "The Snuke"
    Case 11
        $Movie = "http://www.southparkzone.com/episodes/1014/Stanleys-cup.html"
        $Movie_Name = "Stanleys cup"
    Case 12
        $Movie = "http://www.southparkzone.com/episodes/602/Jared-Has-Aides.html"
        $Movie_Name = "Jared Has Aides"
    Case 13
        $Movie = "http://www.southparkzone.com/episodes/311/Starvin'-Marvin-in-Space.html"
        $Movie_Name = "Starvin' Marvin in Space"
    Case 14
        $Movie = "http://www.southparkzone.com/episodes/1103/Lice-Capades.html"
        $Movie_Name = "Lice Capades"
    Case 15
        $Movie = "http://www.southparkzone.com/episodes/1001/The-Return-of-Chef!.html"
        $Movie_Name = "The Return of Chef!"
    Case 16
        $Movie = "http://www.southparkzone.com/episodes/313/Hooked-on-Monkey-Phonics.html"
        $Movie_Name = "Hooken on Mokey Phonics"
    Case 17
        $Movie = "http://www.southparkzone.com/episodes/409/Something-You-Can-Do-With-Your-Finger.html"
        $Movie_Name = "Something You Can Do With Your Finger"
    Case 18
        $Movie = "http://www.southparkzone.com/episodes/207/City-on-the-Edge-of-Forever.html"
        $Movie_Name = "City on the Edge of Forever"
    Case 19
        $Movie = "http://www.southparkzone.com/episodes/309/Jewbilee.html"
        $Movie_Name = "Jewbilee"
    Case 20
        $Movie = "http://www.southparkzone.com/episodes/10000/South_Park_-_Bigger_Longer_&_Uncut.html"
        $Movie_Name = "Southpark: The Movie"
    EndSwitch
GUICtrlSetData($Label_1, $Movie)
GUICtrlSetData($Label_2, $Movie_Name)
EndFunc

Have Fun !! ^^

-AlmarM-

[NELyon]

I LOVE IT

[ludocus]

amazing.. what you can do with so less words..

[monoceres]

South Park

One of my absolute favorite, but I already have all 172 episodes on my external drive!

Edited May 13, 2008 by monoceres

[spudw2k]

South Park

One of my absolute favorite, but I already have all 172 episodes on my external drive!

Me too, except on my Xbox.