Lyrics Finder v0.6

By OrFeAsGr on May 10, 2015

SCRIPT ID: LYRICS
Hi people.. :) I was thinking of making something that i haven't seen before in mIRC Scripting and in the same time something that would be a nice and usefull feature for a bot. So I came up with this :))

;;Lyrics Finder Scripted By OrFeAsGr;;
;;http://humanity.ucoz.com;;
;;Script Triggers with a channel msg;;;
;;;Type !lyrics <search term>;;;;
;;;v0.6 15/01/2017;;;
;;;Change the source site to www.azlyrics.com because genius.com now responds only to browsers..;;;
;;; http://hawkee.com/snippet/16273/ ;;;

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

Keep the origin of the script when you share it please :)
Enjoy :)

Do you want to help me make some money? You can do it without paying for nothing! Just visit my site http://humanity.ucoz.com ,turn off your ad blocker, watch an ad and turn it back on! You'll be giving me something less than a cent! Thanks!

Or do you want to donate some bucks because you like my scripts??? Visit https://www.paypal.me/OrFeAsGr
Thx! ^_^

Comments

Sign in to comment.
Clark2016   -  Aug 22, 2016

@OrFeAsGr i think this script has stopped working, can you fix it please. thanks

OrFeAsGr  -  Sep 03, 2016

Hey @Clark2016 ! I updated this script today! It works everytime and a lot faster! Give it a try and tell me if it works right <3

Sign in to comment

OrFeAsGr   -  May 27, 2016

v0.5 04/09/2016
-Time for some changes!
-Updated/Cleaned code. The previous version made mIRC get unresponsive for at least 19 seconds, probably because of too much lines being recieved. The script now works in 1-3 seconds!
-Only a single message containing: Number of results, 1st result and the link to all of them.
--Enjoy!!!
------------------------------Older Updates below----------------------------
v0.3 14/06/2016
-Added Version and Script ID for Update Checker Script (Nothing changes in the way the script works you only need this if you use Update Checker. More info on my profile threads.)
v0.2 27/05/2016
Update after a long time!
Thanks Diesel for finding the error in ON TEXT event!
Script now works fine!

dma  -  May 27, 2016

real nice work it really works with a slight delay of like 3 seconds

pz out .. dma irc.axon.pw #irc

Sign in to comment

dma   -  Jun 29, 2015

what it do? whats the trigger?

OrFeAsGr  -  Jul 24, 2015

It triggers with a text command.
For example you type !lyrics let me love you
and the script sends the 4 1st results of the search.

dma  -  Aug 27, 2015

ty

Sign in to comment

^WeSt   -  May 10, 2015

Good job!!

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.