AutoHotkey Community

#NoEnv
#NoTrayIcon
#Persistent
#SingleInstance force


;;;;;;;;;;
sRegistry:
;;;;;;;;;;
RegRead, FirstRun, HKEY_CURRENT_USER, Software\TP3, FirstRun
if FirstRun!=False
{
RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\TP3, Volume, 50
VOlume:=50
}
else
{
RegRead, Volume, HKEY_CURRENT_USER, Software\TP3, Volume
}
Soundset, %volume%


;;;;
Gui:
;;;;
Gui, Add, Picture, x-5 y-5 w h , BG.png

Gui, Add, Text, x46 y24 w30 h20 c0xA1C89B gPlay, Play

Gui, Add, Text, x46 y44 w40 h20 c0xA1C89B gPlayListMaker, PlayList

Gui, Add, Text, x46 y64 w30 h20 c0xA1C89B gLyrics, Lyrics

Gui, Add, Text, x46 y84 w50 h20 c0xA1C89B gDownload, Download

Gui, Add, Text, x46 y104 w30 h20 c0xA1C89B gHelp, Help

Gui, Show, x311 y191 h162 w156,TP3
Back:
Return


;;;;;
Play:
;;;;;
FileReadLine, ssong, SongList.txt,1
soundplay,%ssong%,wait
line:=1

loop{
line:=line+1
FileReadLine, csong, SongList.txt, %line%
soundplay,%csong%,wait
soundplay,|:||*/-f_\-a*/_k*\-e*/-|:||
}


;;;;;;;;;;;;;;
PlayListMaker:
;;;;;;;;;;;;;;
InputBox,dir, Playlist Maker,,,250,100,0,0,,,Enter Path of MP3s
if ErrorLevel
    goto playlistexit
else
List=
Loop %dir%\*.mp3,,1
List=%List%%A_LoopFileFullPath%`n
Loop, parse,List
FileAppend, %A_LoopField%, SongList.txt
playlistexit:
return

;;;;;;;
Lyrics:
;;;;;;;
inputbox, songn, Lyric Search,,,200,100,,,,,Song Name
run http://www.google.ca/search?q=%songn%&oi=navquery_searchbox&sa=X&as_sitesearch=songmeanings.net&hl=en
if errorlevel
Goto Back
Return

;;;;;;;;;
Download:
;;;;;;;;;
inputbox, dlwd, Song Search,,,200,100,,,,,Song Name
run http://skreemr.com/results.jsp?q=%dlwd%
if errorlevel
Goto Back
Return

;;;;;
Help:
;;;;;
Msgbox,If This is your first time running TP3,`nPlease Click 'PlayList' first`nIt may take a while to load your playlist so please be patient.
Msgbox, Windows Key + Up Increases Volume`nWindows Key + Down Decreases Volume`nMade by Abhishek Regmi
return


;;;;;;;
Volume:
;;;;;;;
#down::
if Volume<=10
{
volume=0
}
else
{
Volume-=10
}
SoundSet, %Volume%
return
#up::
if Volume>=90
{
volume=100
}
else
{
Volume+=10
}
SoundSet, %volume%
return


;;;;;;;;;
GuiClose:
;;;;;;;;;
If FirstRun!=False
{
RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\TP3, FirstRun, False
}
RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\TP3, Volume, %volume%
ExitApp