hi

no need for regex

on $*:TEXT:/^([!@.])lyrics\s(.+)/Si:#:{
  if (!$($+(%,lyricsflood,$nick),2)) {
    set -u3 $+(%,lyricsflood,$nick) 1
    if !$sock(lyrics) {
      sockopen lyrics www.lyrics.com 80
      sockmark lyrics $+(www.lyrics.com,`,$replace($2-,$chr(32),+),`,$2-,`,$iif($regml(1) == @,msg #,.notice $nick))
    }
    else msg # plz wait $nick ...
  }
}
on *:sockopen:lyrics:{
  tokenize 96 $sock(lyrics).mark
  sockwrite -n $sockname GET $+(/search.php?keyword=,$2,&what=all&x=0&y=0) HTTP/1.1
  sockwrite -n $sockname Host: $1
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:lyrics: {
  var %lyrics | sockread %lyrics
  if $findtok(%lyrics,td>,1,60) {
    if ($wildtok(%lyrics,http://www.lyrics.com/artists/name/*,1,34)) {
      var %artist $remove($gettok(%lyrics,3,62),</a)
      tokenize 96 $sock(lyrics).mark
      $4 12[14 Lyrics 12] 14 $+ $qt(12 $+ $3 $+ 14) - 14Songname:12 %song - 14Artist:12 %artist - 14URL:12 %link
      unset %song %link
      sockclose lyrics
    }
    if ($wildtok(%lyrics,http://www.lyrics.com/artists/lyric/*,1,34)) {
      set %song $remove($gettok(%lyrics,3,62),</a)
      set %link $v1
    }
  }
}