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 }
  }
}