AutoHotkey Homepage AutoHotkey Community
Let's help each other out
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Atomic Slide Show

 
Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions
View previous topic :: View next topic  
Author Message
.AHK



Joined: 26 Apr 2006
Posts: 657
Location: New Mexico, USA
PostPosted: Sun Oct 01, 2006 11:40 pm    Post subject: Atomic Slide Show Reply with quote
This script will download 30 (if servers are up) atomic detonation photographs, and displays them in a 2 minute long slide show. Place the script in a folder of its own, because all the images will be added to the folder the script is located in. If anyone has comments, suggestions, or atomic/hydrogen detonation pictures that are not included in the script, let me know.

Code:

; AtomicSlideShow.AHK - This script displays a 2 minute long slide show of atomic and hydrogen detonations. Made by ".AHK"

#NoEnv
#SingleInstance Ignore

IfNotExist nukesymbol.jpg
UrlDownloadToFile http://www.melbourne.indymedia.org/images/nuclear.jpg, nukesymbol.jpg

Gui Color, 000000
Gui Font, S15 Bold
Gui Add, Pic,, nukesymbol.jpg
Gui Add, Text, CFF0000, Atomic and Hydrogen Bomb Detonations`n30 Photographs, 2 Minute Long Slide Show
Gui Add, Pic,, nukesymbol.jpg
Gui Add, Text, CFF0000, LOADING...
Gui Add, Progress, w320 h25 cBlue BackgroundYellow Range0-30 vLoading
Gui -AlwaysOnTop -SysMenu
Gui Show, Center, Nuke

IfNotExist Nuke1.jpg
UrlDownloadToFile http://www.parowanprophet.com/maps/mohawk_350_KT_nuke.jpg, Nuke1.jpg
GuiControl,, Loading, +1
IfNotExist Nuke2.jpg
UrlDownloadToFile http://www.flatrock.org.nz/topics/environment/assets/nuclear_bomb_test.jpg, Nuke2.jpg
GuiControl,, Loading, +1
IfNotExist Nuke3.gif
UrlDownloadToFile http://bh.knu.ac.kr/~sdsong/images/Atomic`%20Bomb.gif, Nuke3.gif
GuiControl,, Loading, +1
IfNotExist Nuke4.jpg
UrlDownloadToFile http://www.jaysnet.com/hydrogen-bomb.jpg, Nuke4.jpg
GuiControl,, Loading, +1
IfNotExist Nuke5.gif
UrlDownloadToFile http://www.bilderberg.org/26th3d64.gif, Nuke5.gif
GuiControl,, Loading, +1
IfNotExist Nuke6.jpg
UrlDownloadToFile http://my.opera.com/Mathilda/homes/albums/43343/essai2.jpg, Nuke6.jpg
GuiControl,, Loading, +1
IfNotExist Nuke7.jpg
UrlDownloadToFile http://host.nigde.edu.tr/~muhsin/bravo_hydrogen_bomb_15_megaton-wl.jpg, Nuke7.jpg
GuiControl,, Loading, +1
IfNotExist Nuke8.jpg
UrlDownloadToFile http://www.geocities.com/titan_1_missile/images/Photo_Truckee_Test_6-9-62_lg.jpg, Nuke8.jpg
GuiControl,, Loading, +1
IfNotExist Nuke9.jpg
UrlDownloadToFile http://i27.photobucket.com/albums/c159/noomdoom/csp_hydrogen-bomb.jpg, Nuke9.jpg
GuiControl,, Loading, +1
IfNotExist Nuke10.jpg
UrlDownloadToFile http://www.chinaculture.org/img/2003-09/24/sguo02_01.jpg, Nuke10.jpg
GuiControl,, Loading, +1
IfNotExist Nuke11.jpg
UrlDownloadToFile http://mcb10koreaseabees.com/First_H-Bomb_at_Enewetak.jpg, Nuke11.jpg
GuiControl,, Loading, +1
IfNotExist Nuke12.jpg
UrlDownloadToFile http://66.113.204.26/mining/H_Bomb1.jpg, Nuke12.jpg
GuiControl,, Loading, +1
IfNotExist Nuke13.jpg
UrlDownloadToFile http://www.radgraphics.net/images/main/ArtilleryShell.jpg, Nuke13.jpg
GuiControl,, Loading, +1
IfNotExist Nuke14.jpg
UrlDownloadToFile http://www.radgraphics.net/images/main/atomic`%20explosion`%20-`%206`%20-`%20KingShot1952.jpg, Nuke14.jpg
GuiControl,, Loading, +1
IfNotExist Nuke15.jpg
UrlDownloadToFile http://www.radgraphics.net/images/main/atomic`%20explosion`%20-`%204.jpg, Nuke15.jpg
GuiControl,, Loading, +1
IfNotExist Nuke16.jpg
UrlDownloadToFile http://teachpol.tcnj.edu/Amer_pol_hist/fi/000001a0.jpg, Nuke16.jpg
GuiControl,, Loading, +1
IfNotExist Nuke17.jpg
UrlDownloadToFile http://www.cccoe.k12.ca.us/abomb/images/cover_smokey2.jpg, Nuke17.jpg
GuiControl,, Loading, +1
IfNotExist Nuke18.jpg
UrlDownloadToFile http://www.cynical-c.com/archives/bloggraphics/Tscharli1.jpg, Nuke18.jpg
GuiControl,, Loading, +1
IfNotExist Nuke19.jpg
UrlDownloadToFile http://files.myopera.com/Mathilda/albums/43343/thumbs/Nuclear`%20Bomb`%20Test.jpg_thumb.jpg, Nuke19.jpg
GuiControl,, Loading, +1
IfNotExist Nuke20.jpg
UrlDownloadToFile http://my.opera.com/Mathilda/homes/albums/43343/atomic_explosion.jpg, Nuke20.jpg
GuiControl,, Loading, +1
IfNotExist Nuke21.jpg
UrlDownloadToFile http://my.opera.com/Mathilda/homes/albums/43343/Nuke`%201.jpg, Nuke21.jpg
GuiControl,, Loading, +1
IfNotExist Nuke22.jpg
UrlDownloadToFile http://www.thevintageplayhouse.com/image/atomicbomb/abomb.jpg, Nuke22.jpg
GuiControl,, Loading, +1
IfNotExist Nuke23.jpg
UrlDownloadToFile http://www.cmu.edu/coldwar/dog2-alt.jpg, Nuke23.jpg
GuiControl,, Loading, +1
IfNotExist Nuke24.jpg
UrlDownloadToFile http://www.aracnet.com/~histgaz/atomi/bires/easyx1a.jpg, Nuke24.jpg
GuiControl,, Loading, +1
IfNotExist Nuke25.jpg
UrlDownloadToFile http://www.historicalgazette.net/atomi/fizeau1b.jpg, Nuke25.jpg
GuiControl,, Loading, +1
IfNotExist Nuke26.jpg
UrlDownloadToFile http://www.state.nv.us/nucwaste/graphics/grable1.jpg, Nuke26.jpg
GuiControl,, Loading, +1
IfNotExist Nuke27.jpg
UrlDownloadToFile http://www.batguano.com/nuclear/32.jpg, Nuke27.jpg
GuiControl,, Loading, +1
IfNotExist Nuke28.jpg
UrlDownloadToFile http://www.batguano.com/nuclear/13.jpg, Nuke28.jpg
GuiControl,, Loading, +1
IfNotExist Nuke29.jpg
UrlDownloadToFile http://www.batguano.com/nuclear/34.jpg, Nuke29.jpg
GuiControl,, Loading, +1
IfNotExist Nuke30.jpg
UrlDownloadToFile http://www.batguano.com/nuclear/65.jpg, Nuke30.jpg
GuiControl,, Loading, +1

Sleep 5000
Gui Destroy

Loop 31 {
    If A_Index = 31
    { Gui Destroy
     Msgbox 4100, Prompt, Delete downloaded photographs before exit?
    IfMsgBox Yes
   {
   FileDelete nukesymbol.jpg
    Loop 30 {
    If (A_Index <= 2 OR A_Index = 4 OR A_Index >= 6)
   FileDelete Nuke%A_Index%.jpg
    Else If (A_Index = 3 OR A_Index = 5)
   FileDelete Nuke%A_Index%.gif
   }
 ExitApp
 }
Else
ExitApp
}
Gui Destroy
Gui Color, 000000
If (A_Index <= 2 OR A_Index = 4 OR A_Index >= 6)
{ Gui Add, Pic,, Nuke%A_Index%.jpg
IfExist Nuke%A_Index%.jpg
GoSub GuiDisplay
}
Else If (A_Index = 3 OR A_Index = 5)
{ Gui Add, Pic,, Nuke%A_Index%.gif
IfExist Nuke%A_Index%.gif
GoSub GuiDisplay
}
}
Return

GuiDisplay:
Gui -AlwaysOnTop -SysMenu
Gui +Owner
Gui Show, Center, Nuke
Sleep 4000
Return


Last edited by .AHK on Mon Oct 02, 2006 10:31 pm; edited 1 time in total
Back to top
View user's profile Send private message Visit poster's website AIM Address MSN Messenger
slomz



Joined: 03 Sep 2006
Posts: 601
Location: Iowa, U.S.
PostPosted: Mon Oct 02, 2006 12:00 am    Post subject: Reply with quote
Yes I love this. GREAT SCRIPT RIGHT HERE, A MUST HAVE. (And I was the first one to see it by the way).
Back to top
View user's profile Send private message AIM Address
.AHK



Joined: 26 Apr 2006
Posts: 657
Location: New Mexico, USA
PostPosted: Mon Oct 02, 2006 12:03 am    Post subject: Reply with quote
Hey slomz, Im glad you like the script. I took time to try and select the best photographs.
Back to top
View user's profile Send private message Visit poster's website AIM Address MSN Messenger
.AHK



Joined: 26 Apr 2006
Posts: 657
Location: New Mexico, USA
PostPosted: Mon Oct 02, 2006 10:32 pm    Post subject: Reply with quote
Every server hosting images is online and all 30 pictures are available now.
Back to top
View user's profile Send private message Visit poster's website AIM Address MSN Messenger
slomz



Joined: 03 Sep 2006
Posts: 601
Location: Iowa, U.S.
PostPosted: Mon Oct 02, 2006 10:41 pm    Post subject: Reply with quote
Should convert this to doggy porn...... Wink
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions All times are GMT
Page 1 of 1

 
Jump to:  
You can post new topics in this forum
You can reply to topics in this forum


Powered by phpBB © 2001, 2005 phpBB Group