Easily explained. Place this in the remote (Alt+R) of your bot..
Then all you type is !tvrage [--info=*]
Update:
I rewrote the whole thing. Hopefully it will be more usefull now :) Hopefully this will bemore handy
Example:
00:52:53 ‹@Ayon› !tvrage big bang theory
00:52:54 ‹Stillborn› Show: The Big Bang Theory Network: CBS
00:52:55 ‹Stillborn› Last Episode: (S:03/E:18) The Pants Alternative (Mar 22nd 2010)
00:52:55 ‹Stillborn› Next Episode: (S:03/E:19) The Wheaton Recurrence (Apr 12th 2010) @ 09:30pm
00:52:55 ‹Stillborn› Status: Returning Series URL: http://www.tvrage.com/The_Big_Bang_Theory
00:53:00 ‹@Ayon› !tvrage air wolf
00:53:01 ‹Stillborn› Show: Airwolf Network: USA
00:53:02 ‹Stillborn› Last Episode: (S:04/E:24) Welcome to Paradise (Aug 07th 1987)
00:53:02 ‹Stillborn› Status: Canceled/Ended URL: http://www.tvrage.com/Airwolf
/*
+--------------------------------------------------------------
| TV Rage v1.0 - by FamilyGuy
+--------------------------------------------------------------
| This is a script written for the IRC client mIRC, and is
| primarily ment for using on a mIRC based bot.
+--------------------------------------------------------------
*/
#tvrage on
on 1:TEXT:!tvrage *:#:{
if (%aflood. [ $+ [ $nick ] ]) { halt }
set -u5 %aflood. [ $+ [ $nick ] ] 1
if (!$2) { .msg # Syntax: .tvrage [--info[=item]] <show> | return }
tvrage # $iif(*-info=* iswm $2 && $3,$replace($3-,$chr(32),$chr(43)) $2,$replace($2-,$chr(32),$chr(43)))
}
#tvrage end
alias tvrage {
sockopen tvrage tvrage.com 80
sockmark tvrage $1 $+(/quickinfo.php?show=,$2) $iif($3,$3,)
}
on 1:SOCKOPEN:tvrage:{
sockwrite -n $sockname GET $gettok($sock(tvrage).mark,2,32) HTTP/1.0
sockwrite -n $sockname Host: tvrage.com
sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:tvrage:{
var %tvrage.source | sockread %tvrage.source
if ($regex(%tvrage.source,/Show Name@(.*)/)) { set %tvrage.show $regml(1) }
if ($regex(%tvrage.source,/Show URL@(.*)/)) { set %tvrage.url $regml(1) }
if ($regex(%tvrage.source,/Premiered@(.*)/)) { set %tvrage.premiered $regml(1) }
if ($regex(%tvrage.source,/Started@(.*)/)) { set %tvrage.started $regml(1) }
if ($regex(%tvrage.source,/Ended@(.*)/)) { set %tvrage.ended $regml(1) }
if ($regex(%tvrage.source,/Latest Episode@(.*)/)) { set %tvrage.last $regml(1) }
if ($regex(%tvrage.source,/Next Episode@(.*)/)) { set %tvrage.next $regml(1) }
if ($regex(%tvrage.source,/Country@(.*)/)) { set %tvrage.country $regml(1) }
if ($regex(%tvrage.source,/Status@(.*)/)) { set %tvrage.status $regml(1) }
if ($regex(%tvrage.source,/Classification@(.*)/)) { set %tvrage.classification $regml(1) }
if ($regex(%tvrage.source,/Genres@(.*)/)) { set %tvrage.genres $regml(1) }
if ($regex(%tvrage.source,/Network@(.*)/)) { set %tvrage.network $regml(1) }
if ($regex(%tvrage.source,/Airtime@(.*)/)) { set %tvrage.airtime $regml(1) }
if ($regex(%tvrage.source,/Runtime@(.*)/)) { set %tvrage.runtime $regml(1) minutes }
}
on 1:SOCKCLOSE:tvrage:{
tokenize 32 $sock(tvrage).mark
if (!$3) {
if (!%tvrage.next && !%tvrage.last) { .msg $1 No show matching $qt($replace($gettok($2,2,61),$chr(43),$chr(32))) was found. | unset %tvrage.* | return }
var %next.date $gettok($gettok(%tvrage.next,3,94),1,47) $iif($len($gettok($gettok(%tvrage.next,3,94),2,47)) == 2,$ord($gettok($gettok(%tvrage.next,3,94),2,47)),$gettok($gettok(%tvrage.next,3,94),2,47)) $gettok($gettok(%tvrage.next,3,94),3,47)
var %last.date $gettok($gettok(%tvrage.last,3,94),1,47) $iif($len($gettok($gettok(%tvrage.last,3,94),2,47)) == 2,$ord($gettok($gettok(%tvrage.last,3,94),2,47)),$gettok($gettok(%tvrage.last,3,94),2,47)) $gettok($gettok(%tvrage.last,3,94),3,47)
.msg $1 10Show: %tvrage.show 10Network: %tvrage.network
$iif(%tvrage.last,.msg $1 10Last Episode: $+($chr(40),S:,$replace($gettok(%tvrage.last, 1, 94),x,/E:),$chr(41)) $gettok(%tvrage.last, 2, 94) $+($chr(40),%last.date,$chr(41)),)
$iif(%tvrage.next,.msg $1 10Next Episode: $+($chr(40),S:,$replace($gettok(%tvrage.next, 1, 94),x,/E:),$chr(41)) $gettok(%tvrage.next, 2, 94) $+($chr(40),%next.date,$chr(41)) $iif(%tvrage.airtime, @ $airtime(%tvrage.airtime),),)
.msg $1 10Status: %tvrage.status 10URL: $+ %tvrage.url $+
}
elseif (*-info=* iswm $3) {
noop $regex($3,/info=(.*)/) | var %tvrage.info $regml(1)
var %i 1, %x $numtok(%tvrage.info,44), %y
while (%x >= %i) {
if ($regex($gettok(%tvrage.info,%i,44),/(url|premiered|started|ended|last|next|country|status|classification|genres|network|airtime|runtime)/)) {
var %y %y $ucfirst($gettok(%tvrage.info,%i,44)) $+ : ( $iif(%tvrage. [ $+ [ $gettok(%tvrage.info,%i,44) ] ],$v1,N/A) )
}
inc %i
}
.msg $1 10 $+ %tvrage.show $+ : %y
}
unset %tvrage.*
}
alias airtime { if ($isid) { return $regsubex($1,/.* at (\d{2}:\d{2}) (\w{2})/, \1\2) } }
Use this man Commands to show how to use script is !rage
All other commands are the same.
/*
+--------------------------------------------------------------
| TV Rage v1.0 - by FamilyGuy
+--------------------------------------------------------------
| This is a script written for the IRC client mIRC, and is
| primarily ment for using on a mIRC based bot.
+--------------------------------------------------------------
*/
#tvrage on
on 1:TEXT:!tvrage *:#:{
if (%aflood. [ $+ [ $nick ] ]) { halt }
set -u5 %aflood. [ $+ [ $nick ] ] 1
if (!$2) { .msg # Syntax: .tvrage [--info[=item]] <show> | return }
tvrage # $iif(*-info=* iswm $2 && $3,$replace($3-,$chr(32),$chr(43)) $2,$replace($2-,$chr(32),$chr(43)))
}
#tvrage end
alias tvrage {
sockopen tvrage services.tvrage.com 80
sockmark tvrage $1 $+(/tools/quickinfo.php?show=,$2) $iif($3,$3,)
}
on 1:SOCKOPEN:tvrage:{
sockwrite -n $sockname GET $gettok($sock(tvrage).mark,2,32) HTTP/1.0
sockwrite -n $sockname Host: services.tvrage.com
sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:tvrage:{
var %tvrage.source | sockread %tvrage.source
if ($regex(%tvrage.source,/Show Name@(.*)/)) { set %tvrage.show $regml(1) }
if ($regex(%tvrage.source,/Show URL@(.*)/)) { set %tvrage.url $regml(1) }
if ($regex(%tvrage.source,/Premiered@(.*)/)) { set %tvrage.premiered $regml(1) }
if ($regex(%tvrage.source,/Started@(.*)/)) { set %tvrage.started $regml(1) }
if ($regex(%tvrage.source,/Ended@(.*)/)) { set %tvrage.ended $regml(1) }
if ($regex(%tvrage.source,/Latest Episode@(.*)/)) { set %tvrage.last $regml(1) }
if ($regex(%tvrage.source,/Next Episode@(.*)/)) { set %tvrage.next $regml(1) }
if ($regex(%tvrage.source,/Country@(.*)/)) { set %tvrage.country $regml(1) }
if ($regex(%tvrage.source,/Status@(.*)/)) { set %tvrage.status $regml(1) }
if ($regex(%tvrage.source,/Classification@(.*)/)) { set %tvrage.classification $regml(1) }
if ($regex(%tvrage.source,/Genres@(.*)/)) { set %tvrage.genres $regml(1) }
if ($regex(%tvrage.source,/Network@(.*)/)) { set %tvrage.network $regml(1) }
if ($regex(%tvrage.source,/Airtime@(.*)/)) { set %tvrage.airtime $regml(1) }
if ($regex(%tvrage.source,/Runtime@(.*)/)) { set %tvrage.runtime $regml(1) minutes }
}
on 1:SOCKCLOSE:tvrage:{
tokenize 32 $sock(tvrage).mark
if (!$3) {
if (!%tvrage.next && !%tvrage.last) { .msg $1 No show matching $qt($replace($gettok($2,2,61),$chr(43),$chr(32))) was found. | unset %tvrage.* | return }
var %next.date $gettok($gettok(%tvrage.next,3,94),1,47) $iif($len($gettok($gettok(%tvrage.next,3,94),2,47)) == 2,$ord($gettok($gettok(%tvrage.next,3,94),2,47)),$gettok($gettok(%tvrage.next,3,94),2,47)) $gettok($gettok(%tvrage.next,3,94),3,47)
var %last.date $gettok($gettok(%tvrage.last,3,94),1,47) $iif($len($gettok($gettok(%tvrage.last,3,94),2,47)) == 2,$ord($gettok($gettok(%tvrage.last,3,94),2,47)),$gettok($gettok(%tvrage.last,3,94),2,47)) $gettok($gettok(%tvrage.last,3,94),3,47)
.msg $1 10Show: %tvrage.show 10Network: %tvrage.network
$iif(%tvrage.last,.msg $1 10Last Episode: $+($chr(40),S:,$replace($gettok(%tvrage.last, 1, 94),x,/E:),$chr(41)) $gettok(%tvrage.last, 2, 94) $+($chr(40),%last.date,$chr(41)),)
$iif(%tvrage.next,.msg $1 10Next Episode: $+($chr(40),S:,$replace($gettok(%tvrage.next, 1, 94),x,/E:),$chr(41)) $gettok(%tvrage.next, 2, 94) $+($chr(40),%next.date,$chr(41)) $iif(%tvrage.airtime, @ $airtime(%tvrage.airtime),),)
.msg $1 10Status: %tvrage.status 10URL: $+ %tvrage.url $+
}
elseif (*-info=* iswm $3) {
noop $regex($3,/info=(.*)/) | var %tvrage.info $regml(1)
var %i 1, %x $numtok(%tvrage.info,44), %y
while (%x >= %i) {
if ($regex($gettok(%tvrage.info,%i,44),/(url|premiered|started|ended|last|next|country|status|classification|genres|network|airtime|runtime)/)) {
var %y %y $ucfirst($gettok(%tvrage.info,%i,44)) $+ : ( $iif(%tvrage. [ $+ [ $gettok(%tvrage.info,%i,44) ] ],$v1,N/A) )
}
inc %i
}
.msg $1 10 $+ %tvrage.show $+ : %y
}
unset %tvrage.*
}
alias airtime { if ($isid) { return $regsubex($1,/.* at (\d{2}:\d{2}) (\w{2})/, \1\2) } }
on $*:text:/[@!.]rage */Si:#: {
if ($left($1-,1) == @) {
msg $chan Use Commands As !tvrage (Search) I.E !tvrage House.
}
else .notice $nick Use Command as !tvrage (Search) I.E !tvrage House.
}
My limited skills are total basic...
I did try to fix it yesterday...
But yeah... really don't know what I'm doing :P
But as I said... would really appreciate an update of this script...
Or if someones got the skills ( and the time ) and completely new TVRage script... :P
With more features added...
Well enough SPAM and begging for now... :P