AlmarM Posted November 22, 2007 Share Posted November 22, 2007 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- 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. Link to comment Share on other sites More sharing options...
NELyon Posted November 22, 2007 Share Posted November 22, 2007 I LOVE IT Link to comment Share on other sites More sharing options...
ludocus Posted May 13, 2008 Share Posted May 13, 2008 amazing.. what you can do with so less words.. Link to comment Share on other sites More sharing options...
monoceres Posted May 13, 2008 Share Posted May 13, 2008 (edited) South Park One of my absolute favorite, but I already have all 172 episodes on my external drive! Edited May 13, 2008 by monoceres Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
spudw2k Posted May 15, 2008 Share Posted May 15, 2008 South Park One of my absolute favorite, but I already have all 172 episodes on my external drive!Me too, except on my Xbox. Spoiler Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX BuilderMisc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retreive SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose ArrayProjects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalcCool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now