AutoHotkey Community

; 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