- Home»
- Cod sursa: Lyrics Finder
Lyrics Finder
Lyrics Finder
mIRC snippet to search for lyrics online. Command: !lyrics
| Postat de | Copyright | Categorie | Review user | Vizualizari | Data |
|---|---|---|---|---|---|
| BLKoldSUN | OrFeAsGr | activity | Cod netestat | 461 | 2023-12-04 19:32:35 |
on *:TEXT:*:#: {
if ($strip($1) == !lyrics) {
if (!%LYRICSversion) || (%LYRICSversion != v0.6) { set %LYRICSversion v0.6 }
if (!%lyricstdelay) {
set -u30 %lyricstdelay 1
if (!$2) { .timer 1 2 msg $chan You Didn`t Type KeyWord(s) To Search For (e.g !lyrics la la la) }
elseif ($2) { set %lyricsnick $nick | set %lyricschan $chan | set %lyricssearch $replace($2-,$chr(32),+) | sockopen Lyrics search.azlyrics.com 80 }
}
}
}
on *:SOCKOPEN:*: {
if ($sockname == Lyrics) {
sockwrite -nt $sockname GET $iif(%lyricssearch, $+(/search.php?q=,$v1), $chr(47)) HTTP/1.1
sockwrite -nt $sockname Host: search.azlyrics.com
sockwrite -nt $sockname User-Agent: Mozilla/4.0
sockwrite $sockname $crlf
}
}
on *:SOCKREAD:*: {
if ($sockname == Lyrics) {
var %Lyricsreader
sockread %Lyricsreader
if (*azlyrics.com/lyrics* iswm %Lyricsreader) {
tokenize 34 %Lyricsreader | set %lyrlink $2 | tokenize 62 %Lyricsreader | set %lyrtitle $gettok($3,1,60) | set %lyrartist $gettok($6,1,60)
msg %lyricschan Top Result: $+($chr(03),03,%lyrtitle,$chr(15)) by $+($chr(03),07,%lyrartist,$chr(15)) Link: $+($chr(03),10,%lyrlink,$chr(15)) More Songs: $+($chr(03),05,http://search.azlyrics.com,$+(/search.php?q=,%lyricssearch),&p=0&w=songs)
if (!%lyradv) { set -u3600 %lyradv 1 | .timer 1 3 msg %lyricschan Lyrics Finder Scripted by OrFeAsGr :.:.. http://humanity.ucoz.com ..:.: Visit for mIRC Scripts and Help! }
sockclose $sockname
}
if (*Sorry, your search returned* iswm %Lyricsreader) { msg %lyricschan Your search returned 0 results! :/ Sorry... | sockclose $sockname }
}
}
IRC Snippets