Jump to content
Sign in to follow this  
AlmarM

Southpark Movie Randomizer

Recommended Posts

AlmarM

#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-


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites
NELyon

:P

I LOVE IT ;)

Share this post


Link to post
Share on other sites
ludocus

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

Share this post


Link to post
Share on other sites
monoceres

South Park :)

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

Edited by monoceres

Broken link? PM me and I'll send you the file!

Share this post


Link to post
Share on other sites
spudw2k

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×