Internet MP3 Finder & Downloader App

Scripting Forums Code Exchange
#1

Hey People Its Audialredux, I Know This May Seem Simple But There Is A Lot Of Room For Improvement (EG: MORE WEBSITES) & EVEN MAYBE STRAIGHT DOWNLOADING! :smiley: ENJOY!!

(THIS HAVE BEEN MADE ON A WINDOWS COMPUTER AT SCHOOL WILL UPLOAD CODE AGAIN TONIGHT IF ANY PROBLEMS/BUGS ARE FOUND)

-- Created By Audialredux (c) 2011
-- INFO: Searches The Website "mp3skull" for music files
-- V1.0 
-- First Release 
-- 
set welcome to display dialog "Welcome To MP3 Internet Scanner (v1.0):" & return & return & "Click: [Normal Song Search]" & return & "If The Song You Wish To Download A Unremixed Song" & return & return & "Click: [Remixed Song Search]" & return & "If The Song You Wish To Download Is A Remixed Song" with title "MP3 Internet Scanner (v1.0) Created By AudialRedux 2011" buttons {"Quit!.","Remixed Song Search.","Normal Song Search."}
-- Normal Song Search 
if button returned of welcome = "Normal Song Search." then 
set variable0 to display dialog "Enter Artist Name:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.","Continue..."} default button 2
if button returned of variable0 = "Continue..." then 
set variable1 to display dialog "Enter Song Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.","Start Searching..."} default button 2
set text returned of variable1 to SearchSongName
set text returned of variable0 to SearchArtist
if button returned of variable1 = "Cancel, Quit App." then 
quit 
end if 
if button returned of varable1 = "Start Searching..." then 
tell application "Safari" to open location "http://mp3skull.com/mp3/" & SearchAristName & "_" & SearchSongName & ".html"
end if 
end if 
end if 
if button returned of variable0 = "Cancel, Quit App." then 
quit 
end if 
if button returned of variable1 = "Cancel, Quit App." then 
quit 
end if 
-- Remixed Song Search
if button returned of weclome = "Remixed Song Search." then 
set variable0 to display dialog "Enter Artist Name:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.","Continue..."} default button 2
if button returned of variable0 = "Continue..." then
set variable1 to display dialog "Enter Song Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.","Continue..."} default button 2
if button returned of variable1 = "Continue..." then 
set variable2 to display dialog "Enter Song Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.","Start Searching..."} default button 2
set text returned of variable1 to SearchSongName
set text returned of variable0 to SearchArtist
set text returned of variable2 to SearchRemixName
if button returned of varable2 = "Start Searching..." then 
tell application "Safari" to open location "http://mp3skull.com/mp3/" & SearchAristName & "_" & SearchSongName & "_" & SearchRemixName & ".html"
end if 
end if
end if  
end if 
if button returned of variable0 = "Cancel, Quit App." then 
quit 
end if 
if button returned of variable1 = "Cancel, Quit App." then 
quit 
end if 
if button returned of variable2 = "Cancel, Quit App." then 
quit 
end if 
if button returned of welcome = "Quit" then 
quit 
end if
#2

There Was A Bugs In The First One I Released But Now Its 100% Working!!!. ENJOY!

-- Created By Audialredux (c) 2011
-- INFO: Searches The Website "mp3skull" for music files
-- V1.0
-- First Release
-- 
-- V1.0 Release 2 
-- Fully Working
--
set welcome to display dialog "Welcome To MP3 Internet Scanner (v1.0):" & return & return & "Click: [Normal Song Search]" & return & "If The Song You Wish To Download A Unremixed Song" & return & return & "Click: [Remixed Song Search]" & return & "If The Song You Wish To Download Is A Remixed Song" with title "MP3 Internet Scanner (v1.0) Created By AudialRedux 2011" buttons {"Quit!.", "Remixed Song Search.", "Normal Song Search."}
-- Normal Song Search
if button returned of welcome = "Normal Song Search." then
	set variable0 to display dialog "Enter Artist Name:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Continue..."} default button 2
	set variable1 to display dialog "Enter Song Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Start Searching..."} default button 2
	--set text returned of variable1 to SearchSongName
	set SearchArtistName2 to text returned of variable0
	set SearchSongName2 to text returned of variable1 -- to SearchSongName2
	tell application "Safari" to open location "http://mp3skull.com/mp3/" & SearchArtistName2 & "_" & SearchSongName2 & ".html"
	
	if button returned of variable1 = "Cancel, Quit App." then
		quit
	end if
	
end if
-- Remixed Song Search
if button returned of welcome = "Remixed Song Search." then
	set variable00 to display dialog "Enter Artist Name:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Continue..."} default button 2
	set variable11 to display dialog "Enter Song Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Continue..."} default button 2
	set variable22 to display dialog "Enter Remix Artist Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.0) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Start Searching..."} default button 2
	set SearchSongName to text returned of variable11
	set SearchArtistName to text returned of variable00
	set SearchRemixName to text returned of variable22
	if button returned of variable22 = "Start Searching..." then
		tell application "Safari" to open location "http://mp3skull.com/mp3/" & SearchArtistName & "_" & SearchSongName & "_" & SearchRemixName & ".html"
		
		
	end if
end if
if button returned of variable00 = "Cancel, Quit App." then
	quit
end if
if button returned of variable11 = "Cancel, Quit App." then
	quit
end if
if button returned of variable22 = "Cancel, Quit App." then
	quit
end if
if button returned of welcome = "Quit" then
	quit
end if
#3

ENJOY V1.1

-- Current Version (v1.1) [4/11/2011]

-- Created By Audialredux (c) 2011
-- INFO: Searches The Website "mp3skull" for music files
-- V1.0
-- First Release
-- 
-- V1.0 Release 2 
-- Fully Working
--
-- V1.1 
-- Fixed Cancel Bugs
-- Fixed Continued Operations After Use (When Edited & Used In AppleScript Editor.app)
-- Added Finished Dialog 
-- 

set welcome to display dialog "Welcome To MP3 Internet Scanner (v1.1):" & return & return & "Click: [Normal Song Search]" & return & "If The Song You Wish To Download A Unremixed Song" & return & return & "Click: [Remixed Song Search]" & return & "If The Song You Wish To Download Is A Remixed Song" with title "MP3 Internet Scanner (v1.1) Created By AudialRedux 2011" buttons {"Quit!.", "Remixed Song Search.", "Normal Song Search."}
-- Normal Song Search
if button returned of welcome = "Quit" then
	quit
end if
if button returned of welcome = "Normal Song Search." then
	set variable0 to display dialog "Enter Artist Name:" default answer "" with title "Mp3 Internet Scanner (v1.1) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Continue..."} default button 2
	if button returned of variable0 = "Cancel, Quit App." then
		quit
	end if
	set variable1 to display dialog "Enter Song Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.1) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Start Searching..."} default button 2
	if button returned of variable1 = "Cancel, Quit App." then
		quit
	end if
	--set text returned of variable1 to SearchSongName
	set SearchArtistName2 to text returned of variable0
	set SearchSongName2 to text returned of variable1
	tell application "Safari" to open location "http://mp3skull.com/mp3/" & SearchArtistName2 & "_" & SearchSongName2 & ".html"
	set ended to display dialog "Completed Process Request!." with title "" buttons {"Close App."}
	if button returned of ended = "Close App." then
		quit
	end if
	
end if
-- Remixed Song Search
if button returned of welcome = "Remixed Song Search." then
	set variable00 to display dialog "Enter Artist Name:" default answer "" with title "Mp3 Internet Scanner (v1.1) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Continue..."} default button 2
	if button returned of variable00 = "Cancel, Quit App." then
		quit
	end if
	set variable11 to display dialog "Enter Song Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.1) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Continue..."} default button 2
	if button returned of variable11 = "Cancel, Quit App." then
		quit
	end if
	set variable22 to display dialog "Enter Remix Artist Name You Wish To Download:" default answer "" with title "Mp3 Internet Scanner (v1.1) Created by Audialredux 2011" buttons {"Cancel, Quit App.", "Start Searching..."} default button 2
	set SearchSongName to text returned of variable11
	set SearchArtistName to text returned of variable00
	set SearchRemixName to text returned of variable22
	if button returned of variable22 = "Start Searching..." then
		tell application "Safari" to open location "http://mp3skull.com/mp3/" & SearchArtistName & "_" & SearchSongName & "_" & SearchRemixName & ".html"
		set ended0 to display dialog "Completed Process Request!." with title "" buttons {"Close App."}
		if button returned of ended0 = "Close App." then
			quit
		end if
		if button returned of variable22 = "Cancel, Quit App." then
			quit
		end if
	end if
end if
#4

I strongly doubt that mp3skull is legal

#5

does it violet the MacScripter Terms & Conditions?? if so i’ll Remove it as i wish to still gain access to this account