Well i have the exact code as above and it works perfectly for me.
Edit just incase here is my working script:
on *:LOAD:dialog -m TVSettings TVSettings -4
on *:UNLOAD:.unset %TV_*
menu Menubar,Channel,Query {
-
TV Rage
.Settings:dialog -m TVSettings TVSettings -4
.Self Search:dialog -m SelfSearch SelfSearch -4
.Status < $+ $iif(%TV_Rage = 1,Enabled,Disabled) $+ >:$iif(%TV_Rage = 0,%TV_Rage = 1,%TV_Rage = 0) | echo -a TV Rage Has Been $iif(%TV_Rage = 1,Enabled.,Disabled.)
-
}
On *:input:#: {
if ($1 != .tv) { return }
if (%TV_Rage = 0) { Halt }
var %Num = $trnum
if ($2 = Schedule) { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where2 = 1,$Me,$Target) }
elseif ($Target !ischan) { set %TVRage_Target. [ $+ [ %num ] ] $Me | set %TVRage_Query. [ $+ [ %num ] ] 1 }
else { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where = 1,$Target,$Me) }
set %TVRage_Chan. [ $+ [ %num ] ] $Chan
set %TVRage_Nick. [ $+ [ %num ] ] $Me
TVRage.Load %num $1-
}
On *:Text:.tv*:#: {
if (%TV_Rage = 0) { Halt }
var %Num = $trnum
if ($2 = Schedule) { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where2 = 1,$Nick,$Chan) }
elseif ($Target !ischan) { set %TVRage_Target. [ $+ [ %num ] ] $Nick | set %TVRage_Query. [ $+ [ %num ] ] 1 }
else { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where = 1,$Chan,$Nick) }
set %TVRage_Nick. [ $+ [ %num ] ] $Nick
set %TVRage_Chan. [ $+ [ %num ] ] $Chan
TVRage.Load %num $1-
}
alias -l TVRage.Load {
var %num = $1
if ($Mid($2,4,10) = cmds) {
msg %TVRage_Target. [ $+ [ %num ] ] 14TVRage Commands8:
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15.tv 8<15Show8> (15Season and Episode8) 4EX8:15 .tv House 2x05 This Command P.M's you.
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15.tv Schedule <day> (time) Will display the Tvrage schedule for the sated day.
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!tvrage <Show> Will display Info in channel of the show you requested.
msg %TVRage_Target. [ $+ [ %num ] ] 8- 14Options in 8( ) 14are Optional8. 14Options in 8< > 14are Required8.
.unset %TVRage*
halt
}
tokenize 32 $2-
if ($2 = scehdule) {
var %temp $GetTok($2-,$numtok($2-,32),32)
set %TVRage_Type. [ $+ [ %num ] ] Schedule
if ((%Temp = GB) || (%Temp = UK) || (%Temp = US) || (%Temp = AU)) { set %TVRage_Type. [ $+ [ %num ] ] Country | set %TVRage_Country. [ $+ [ %num ] ] %Temp }
set %TVRage_Time_Schedule. [ $+ [ %num ] ] $iif($4 !isnum,$null,$Int($4))
set %TVRage_Date. [ $+ [ %num ] ] $FullDate($3)
if (%TVRage_Date. [ $+ [ %num ] ] = $null) {
msg %TVRage_Target. [ $+ [ %num ] ] 14You need to pick a 4Day of the Week $+ $iif(!%TVRage_Country. [ $+ [ %num ] ],$chr(32) $+ 14or 4Country) $+ 8.
.unset %TVRage_*. [ $+ [ %num ] ]
.unset %Check_*. [ $+ [ %num ] ]
halt
}
TVRage %Num Schedule
}
else {
$iif($CheckEP(%num,$2-) = 1,set %TVRage_Type. [ $+ [ %num ] ] EpSpec, set %TVRage_Type. [ $+ [ %num ] ] Ep)
TVRage %num $2-
}
}
alias -l TVRage {
if ((%TVRage_Type. [ $+ [ $1 ] ] != Schedule) && (!$2)) {
msg %TVRage_Target. [ $+ [ $1 ] ] 14You actually need to search for a 4TV8-4show 14you know8! 14 Type 4.tvtriggers14 for help8.
.unset %TVRage_*. [ $+ [ $1 ] ]
return
}
if (%TVRage_Type. [ $+ [ $1 ] ] = EpSpec) { %tvshow. [ $+ [ $1 ] ] = $replace($GetTok($2-,1- [ $Calc($numtok($2-,32)-1) ] ,32),$chr(32),% $+ 20) $+ &ep= $+ %Check_Season. [ $+ [ $1 ] ] $+ x $+ %Check_ep. [ $+ [ $1 ] ] }
else { %TVShow. [ $+ [ $1 ] ] = $replace($2-,$chr(32),% $+ 20) }
sockopen TVRage. [ $+ [ $1 ] ] services.tvrage.com 80
}
on *:sockopen:TVRage.*: {
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
Check.Settings Sch %Num
if ($sockerr > 0) return
if (%TVRage_Type. [ $+ [ %num ] ] = Schedule) {
notice %TVRage_Target. [ $+ [ %num ] ] 15-- 14Gathering Information 15--
sockwrite -n $SockName GET /tools/quickschedule.php HTTP/1.1
}
elseif (%TVRage_Type. [ $+ [ %num ] ] = Country) {
notice %TVRage_Target. [ $+ [ %num ] ] 15-- 14Gathering Information 15--
sockwrite -n $SockName GET /tools/quickschedule.php?country= $+ %TVRage_Country. [ $+ [ %num ] ] HTTP/1.1
}
elseif ((%TVRage_Type. [ $+ [ %num ] ] = Ep) || (%TVRage_Type. [ $+ [ %num ] ] = EpSpec)) { sockwrite -n $sockname GET /tools/quickinfo.php?show= $+ %tvshow. [ $+ [ %num ] ] HTTP/1.0 }
sockwrite -n $SockName host: $+(services.tvrage.com,$crlf,$crlf)
set %TVRage_Day. [ $+ [ %num ] ] 0
sockwrite -n $sockname Host: services.tvrage.com
sockwrite -n $sockname Connection: keep-alive
sockwrite $sockname $crlf
}
on *:sockread:TVRage.*:{
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
if ($sockerr) { return }
var %tvdata
sockread %tvdata
if ($mid(%Tvdata,1,5) = [DAY]) {
if ($Fopen(%TVRage_Day. [ $+ [ %num ] ])) {
.fclose %TVRage_Day. [ $+ [ %num ] ]
}
set %TVRage_Day. [ $+ [ %num ] ] $GetTok($Mid(%Tvdata,6,$Calc($pos(%Tvdata,[/,1) - 6)),1,44)
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
.fopen -no %TVRage_Day. [ $+ [ %num ] ] [ %TVRage_Day. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
.fwrite -n %TVRage_Day. [ $+ [ %num ] ] $Mid(%Tvdata,6,$Calc($pos(%Tvdata,[/,1) - 6))
}
}
if ($mid(%TvData,1,6) = [TIME]) {
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
set %TVRage_Time. [ $+ [ %num ] ] $Mid(%Tvdata,7,$Calc($pos(%tvdata,[/,1) - 7))
}
}
if ($Mid(%TVData,1,6) = [SHOW]) {
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
set %TVRage_Show_Temp. [ $+ [ %num ] ] $Mid(%TvData,7,$Calc($pos(%Tvdata,^,3) - 7))
.fwrite -n %TVRage_Day. [ $+ [ %num ] ] %TVRage_Time. [ $+ [ %num ] ] $+ ^ $+ %TVRage_Show_Temp. [ $+ [ %num ] ]
}
}
if (!$sockbr) return
if (show name isin %tvdata) { set %show_name. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (country isin %tvdata) { set %show_country. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (Latest Episode isin %tvdata) {
set %show_latest_temp. [ $+ [ %num ] ] $gettok(%tvdata,2,64)
set %show_latest_Ep. [ $+ [ %num ] ] $gettok(%show_latest_Temp. [ $+ [ %num ] ],1,94)
set %show_latest_Title. [ $+ [ %num ] ] $gettok(%show_latest_temp. [ $+ [ %num ] ],2,94)
set %show_latest_airdate. [ $+ [ %num ] ] $gettok(%Show_latest_Temp. [ $+ [ %num ] ],3,94)
}
if (Next Episode isin %tvdata) {
set %show_next_temp. [ $+ [ %num ] ] $gettok(%tvdata,2,64)
set %show_next_Ep. [ $+ [ %num ] ] $gettok(%show_next_Temp. [ $+ [ %num ] ],1,94)
set %show_next_Title. [ $+ [ %num ] ] $gettok(%show_next_temp. [ $+ [ %num ] ],2,94)
set %show_next_airdate. [ $+ [ %num ] ] $gettok(%Show_Next_Temp. [ $+ [ %num ] ],3,94)
}
if (Episode URL isin %tvdata) { set %Show_URL. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (Episode Info isin %tvdata) {
set %Show_Spec_Temp. [ $+ [ %num ] ] $Gettok(%tvdata,2,64)
set %show_Spec_Ep. [ $+ [ %num ] ] $gettok(%show_spec_Temp. [ $+ [ %num ] ],1,94)
set %show_Spec_Title. [ $+ [ %num ] ] $gettok(%show_spec_temp. [ $+ [ %num ] ],2,94)
set %show_Spec_airdate. [ $+ [ %num ] ] $gettok(%Show_spec_Temp. [ $+ [ %num ] ],3,94)
if (%show_Spec_airdate. [ $+ [ %num ] ] = 00//00) { set %show_Spec_airdate. [ $+ [ %num ] ] }
}
if (Status isin %Tvdata) { set %Show_Status. [ $+ [ %num ] ] $Gettok(%Tvdata,2,64) }
if (airtime isin %Tvdata) { Set %Show_Airtime. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (network isin %Tvdata) { set %Show_network. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (%show_Next_airdate. [ $+ [ %num ] ]) {
set %Next_Temp. [ $+ [ %num ] ] $puttok(%Show_Next_Airdate. [ $+ [ %num ] ],$GetTok(%Show_Next_airdate. [ $+ [ %num ] ],2,47),1,47)
set %Next_Temp. [ $+ [ %num ] ] $puttok(%Next_Temp. [ $+ [ %num ] ],$SetMonth($GetTok(%Show_Next_Airdate. [ $+ [ %num ] ] ,1,47)),2,47)
set %Next_Time. [ $+ [ %num ] ] $CTime(%Next_Temp. [ $+ [ %num ] ] $GetTok(%Show_Airtime. [ $+ [ %num ] ] ,3-4,32))
}
if (%Show_Spec_airdate. [ $+ [ %num ] ]) {
set %Next_Spec_Temp. [ $+ [ %num ] ] $puttok(%Show_Spec_Airdate. [ $+ [ %num ] ],$SetMonth($GetTok(%Show_Spec_Airdate. [ $+ [ %num ] ],2,47)),2,47)
set %Next_Spec_Time. [ $+ [ %num ] ] $CTime(%Next_Spec_Temp. [ $+ [ %num ] ] $GetTok(%Show_Airtime. [ $+ [ %num ] ] ,3-4,32))
}
}
on *:sockclose:TVRage.*:{
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
if ((%TVRage_Type. [ $+ [ %num ] ] = Ep) || (%TVRage_Type. [ $+ [ %num ] ] = EpSpec)) {
Check.Settings Ep %Num
set %Show_Ep. [ $+ [ %num ] ] s $+ $replace(%Show_ep. [ $+ [ %num ] ],x,e)
if (%show_name. [ $+ [ %num ] ] = $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14No Such Show8, 14Check your spelling and try again8. }
else {
msg %TVRage_Target. [ $+ [ %num ] ] 14 $+ %show_name. [ $+ [ %num ] ] 15--14 $Replace(%Show_Airtime. [ $+ [ %num ] ],$Chr(44),8 $+ $chr(44) $+ 14,:,8:14) 15 $+ %Show_network. [ $+ [ %num ] ] 8(14 $+ %Show_Status. [ $+ [ %num ] ] $+ 8) (14 $+ %show_country. [ $+ [ %num ] ] $+ 8)
if (%Show_Url. [ $+ [ %num ] ] != $Null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Episode URL8:15 %Show_URL. [ $+ [ %num ] ] }
if (%show_Spec_temp. [ $+ [ %num ] ] != $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Episode15 %Show_spec_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_spec_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %Show_spec_Title. [ $+ [ %num ] ] $iif(%Next_Spec_Time. [ $+ [ %num ] ] > $Ctime,14Airing in8:15 $LongTime($Calc(%Next_Spec_Time. [ $+ [ %num ] ] - $Ctime))) }
msg %TVRage_Target. [ $+ [ %num ] ] 14Latest Episode15 %Show_Latest_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_Latest_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %show_latest_Title. [ $+ [ %num ] ]
if (%show_next_temp. [ $+ [ %num ] ] != $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Next Episode15 %Show_next_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_Next_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %Show_Next_Title. [ $+ [ %num ] ] $iif(%Next_Time. [ $+ [ %num ] ] > $Ctime,14Airing in8:15 $LongTime($Calc(%Next_Time. [ $+ [ %num ] ] - $Ctime))) }
}
}
elseif ((%TVRage_Type. [ $+ [ %num ] ] = Schedule) || (%TVRage_Type. [ $+ [ %num ] ] = Country)) {
Check.Settings Sch %Num
if (%TVRage_Date. [ $+ [ %num ] ] != $Null) {
.fopen %TVRage_Date. [ $+ [ %num ] ] [ %TVRage_Date. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
notice %TVRage_Target. [ $+ [ %num ] ] 14Schedule for15 $replace($fread(%TVRage_Date. [ $+ [ %num ] ]),$chr(44),8 $+ $chr(44) $+ 15) $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] != $null, 14at15 %TVRage_Time_Schedule. [ $+ [ %num ] ] $+ 8:1500 $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] < 12,14pm,14am))
set %TVRage_Time_Count. [ $+ [ %num ] ] 0
while ($Feof != 1) {
set %TVRage_Tmp. [ $+ [ %num ] ] $Fread(%TVRage_Date. [ $+ [ %num ] ])
set %TVRage_Time_Temp. [ $+ [ %num ] ] $GetTok(%TVRage_Tmp. [ $+ [ %num ] ],1,94)
set %TVRage_Show_NetWork. [ $+ [ %num ] ] $GetTok(%TVRage_Tmp. [ $+ [ %num ] ],2,94)
set %TVRage_Show_Show. [ $+ [ %num ] ] $gettok(%TVRage_Tmp. [ $+ [ %num ] ],3,94)
set %TVRage_Show_Ep. [ $+ [ %num ] ] s $+ $replace($getTok(%TVRage_Tmp. [ $+ [ %num ] ],4,94),x,e)
if (%TVRage_Time_Schedule. [ $+ [ %num ] ] != $Null) {
if ($int($mid(%TVRage_Time_Temp. [ $+ [ %num ] ],1,2)) = $int($mid(%TVRage_Time_Schedule. [ $+ [ %num ] ],1,2))) {
inc %TVRage_Time_Count. [ $+ [ %num ] ] 1
if (%TVRage_Time_Temp2. [ $+ [ %num ] ] = %TVRage_Time_Temp. [ $+ [ %num ] ]) { goto Next_Time }
msg %TVRage_Target. [ $+ [ %num ] ] 14Time8:15 8(15 $+ $Replace(%TVRage_Time_Temp. [ $+ [ %num ] ],:,8:15) $+ 8)
:Next_Time
msg %TVRage_Target. [ $+ [ %num ] ] 14--- 8(15 $+ %TVRage_show_Network. [ $+ [ %num ] ] $+ 8)15 %TVRage_Show_Show. [ $+ [ %num ] ] 8-15 $Replace(%TVRage_Show_Ep. [ $+ [ %num ] ],s,14s15,e,14e15)
Set %TVRage_Time_Temp2. [ $+ [ %num ] ] %TVRage_Time_Temp. [ $+ [ %num ] ]
}
}
if (%TVRage_Time_Schedule. [ $+ [ %num ] ] != $Null) && (%TVRage_Time_Count. [ $+ [ %num ] ] = 0)) { msg %TVRage_Target. [ $+ [ %num ] ] 14There are no new TV Shows Scheduled for15 %TVRage_Time_Schedule. [ $+ [ %num ] ] $+ 8:1500 $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] < 12,14pm,14am) }
elseif (%TVRage_Time_Schedule. [ $+ [ %num ] ] = $Null) {
if (%TVRage_Time_Temp2. [ $+ [ %num ] ] = %TVRage_Time_Temp. [ $+ [ %num ] ]) { goto Next_Time2 }
notice %TVRage_Target. [ $+ [ %num ] ] 14Time8:15 8(15 $+ $Replace(%TVRage_Time_Temp. [ $+ [ %num ] ],:,8:15) $+ 8)
:Next_Time2
notice %TVRage_Target. [ $+ [ %num ] ] 14--- 8(15 $+ %TVRage_show_Network. [ $+ [ %num ] ] $+ 8)15 %TVRage_Show_Show. [ $+ [ %num ] ] 8-15 $replace(%TVRage_Show_Ep. [ $+ [ %num ] ],e,14e15,s,14s15)
Set %TVRage_Time_Temp2. [ $+ [ %num ] ] %TVRage_Time_Temp. [ $+ [ %num ] ]
}
}
}
.fclose %TVRage_Date. [ $+ [ %num ] ]
.remove [ %TVRage_Date. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
}
.unset %tvshow. [ $+ [ %num ] ]
.unset %show_*. [ $+ [ %num ] ]
.unset %TVRage_*. [ $+ [ %num ] ]
.unset %Check_*. [ $+ [ %num ] ]
.unset %next_*. [ $+ [ %num ] ]
}
Alias -l FullDate {
if ($Mid($1,1,3) = Sat) { Return Saturday }
elseif ($Mid($1,1,3) = Sun) { return Sunday }
elseif ($Mid($1,1,3) = Mon) { Return Monday }
elseif ($Mid($1,1,3) = Tue) { Return Tuesday }
elseif ($Mid($1,1,3) = Wed) { Return Wednesday }
elseif ($Mid($1,1,3) = Thu) { Return Thursday }
elseif ($Mid($1,1,3) = Fri) { Return Friday }
else { Return $null }
}
alias -l CheckEP {
var %temp $GetTok($2-,$numtok($2-,32),32)
$iif(e isin %Temp,%Temp = $replace(%Temp,e,x))
set %Check_Season. [ $+ [ $1 ] ] $Mid(%Temp,1,$Calc($pos(%Temp,x)-1))
set %Check_Ep. [ $+ [ $1 ] ] $Mid(%Temp,$Calc($pos(%Temp,x)+1))
if ($mid(%Check_Season. [ $+ [ $1 ] ],1,1) = s) { Set %Check_Season. [ $+ [ $1 ] ] $Mid(%Check_Season. [ $+ [ $1 ] ],2) }
if ((%Check_season. [ $+ [ $1 ] ] isnum) && (%Check_Ep. [ $+ [ $1 ] ] isnum)) { Return 1 }
else { Return 0 }
}
dialog -l TVSettings {
title "TVRage Settings"
size -1 -1 264 217
option pixels
box "", 1, 8 8 249 60
box "", 2, 8 67 249 60
box "", 3, 8 126 249 43
box "", 12, 8 168 249 43
text "Select where you want the Schedule Displayed", 4, 16 21 225 17
radio "Channel", 5, 32 45 65 13, group
radio "Private Message", 6, 128 45 105 13,
text "Select where you want the Replys Displayed", 7, 16 80 225 17
radio "Channel", 8, 32 104 65 13, group
radio "Private Message", 9, 128 104 105 13,
check "Enable TVRage", 10, 32 188 113 13
button "&Save Settings", 11, 144 182 89 25, ok
check "Enable Colors", 13, 32 145 113 13
}
on *:dialog:TVSettings:*:*:{
if ($Devent == init) {
if (%TV_Where = 1) { did -c $dname 8 }
else { did -c $dname 9 }
if (%TV_Where2 = 1) { did -c $dname 5 }
else { did -c $dname 6 }
if (%TV_Rage = 1) { did -c $dname 10 }
else { did -u $dname 10 }
if (%TV_Color = 1) { did -c $dname 13 }
else { did -u $dname 13 }
}
elseif ($devent == Close) {
set %TV_Where $iif($Did($Dname,8).state = 1,1,0)
set %TV_Where2 $iif($Did($Dname,5).state = 1,1,0)
set %TV_Rage $iif($Did($Dname,10).state = 1,1,0)
set %TV_Color $iif($Did($Dname,13).state = 1,1,0)
echo -a 4TV Rage 15Settings have been saved8.
}
}
dialog -l SelfSearch {
title "TVRage Search"
size -1 -1 500 202
option pixels
box "", 1, 8 8 486 145
box "", 2, 8 152 486 43
text "Search Options:", 3, 16 16 462 17
text "<Show> (Season and Episode) EX: House 2x05", 4, 30 33 462 17
text "Schedule <Day Of Week> EX: Schedule Fri", 5, 30 50 462 17
text "Schedule <Day Of Week> (Time) EX: Schedule Wed 10", 6, 30 67 462 17
text "Schedule <Day Of Week> (Time) (Country:US,GB,UK,AU) EX: Schedule Saturday 10 GB", 7, 30 84 462 17
text "Option in ( ) are Optional. Options in < > are Required.", 8, 30 101 462 17
edit "", 9, 16 125 462 17, autohs
button "Search", 10, 335 165 65 25
button "Cancel", 11, 414 165 65 25, cancel
}
on *:dialog:SelfSearch:sclick:*:{
if ($Did = 10) {
if ($Did(9) = $null) {
if ($dialog(error,error,-4)) { did -f $Dname 9 }
}
else {
var %Num = $trnum
set %TVRage_Target. [ $+ [ %num ] ] $me
set %TVRage_Nick. [ $+ [ %num ] ] $me
set %TVRage_Chan. [ $+ [ %num ] ] $me
TVRage.Load %num !ep $did(9).text
echo -a 14Check you Private Message for the infomation that you requested8.
dialog -x $dname
}
}
}
dialog -l error {
title "Error"
size -1 -1 228 90
option pixels
box "", 2, 8 8 214 33
box "", 3, 8 40 214 43
button "&Ok", 4, 160 52 50 25, ok
text "You must type something to search for!", 5, 20 20 190 17
}
alias -l Check.Settings {
if ($1 = Ep) {
if (%TV_Where = $Null) { Set %TV_Where 0 }
if (%TV_Where = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Chan. [ $+ [ $2 ] ] }
elseif (%TV_Where = 0) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
if (%TVRage_Query. [ $+ [ $2 ] ] = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
}
elseif ($1 = Sch) {
if (%TV_Where2 = $Null) { Set %TV_Where2 0 }
if (%TV_Where2 = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Chan. [ $+ [ $2 ] ] }
elseif (%TV_Where2 = 0) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
if (%TVRage_Query. [ $+ [ $2 ] ] = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
}
}
alias -l trnum {
set %trnum $base($calc($base(%trnum,36,10) +1),10,36)
return %trnum
}
Alias -l LongTime {
Return 15 $+ $replace($Duration($$1),sec,sc,day,dy,wks,14weeks15,wk,14week15,dys,14days15,dy,14day15,hrs,14hours15,hr,14hour15,min,14minute15,mins,14minutes15,scs,14seconds15,sc,14second15)
}
alias -l SetMonth {
if ($1 = Jan) { return 1 }
elseif ($1 = Feb) { Return 2 }
elseif ($1 = Mar) { Return 3 }
elseif ($1 = Apr) { Return 4 }
elseif ($1 = May) { Return 5 }
elseif ($1 = Jun) { Return 6 }
elseif ($1 = Jul) { Return 7 }
elseif ($1 = Aug) { Return 8 }
elseif ($1 = Sep) { Return 9 }
elseif ($1 = Oct) { Return 10 }
elseif ($1 = Nov) { Return 11 }
elseif ($1 = Dec) { Return 12 }
}
alias -l msg {
if (%TV_Color = 0) { var %Temp = $strip($1-) | tokenize 32 %Temp }
if ($Show) {
if ($1 !ischan) { !.msg $1 $2- }
else { !msg $1 $iif(c isincs $chan($1).mode,$Strip($2-),$2-) }
}
else { !.msg $1 $iif(c isincs $chan($1).mode,$Strip($2-),$2-) }
}
Just so you know the trigger is .tv
Hey all this is a script i found to be very usefull however it looked terible, so I have edited the layout a little and think it looks really nice, I take no credit for this script and the origianl is here:http://forum.utorrent.com/viewtopic.php?id=15387 Feel free to do your own thing with it as always,
yeh would have to say the same, It's very un user frendly and TBH looks terrible compaired to the original, I would hope they do change it back if not i think there is gona be more people using TMDB(the movie DataBase).
If you could keep it working though Ford that would be awsome Illove this script and use it daily to look up new films :-)
Here are some nice colors that seem to work well:
;!IMDB Movie Search Script by Ford_Lawnmower irc.GeekShed.net #Script-Help
alias -l IMDB {
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Start Setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Change %tagcolor to the color you want for tags: ;;
var %tagcolor 10
;; Change %textcolor to the color you want for normal text ;;
var %textcolor 14
;; Change %linkcolor to the color/format you want for links ;;
var %linkcolor 10
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End Setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
http://pastebin.com/diff.php?i=GGpnSTAJ
Seems to be changed a little i guess :-)
here you go #
http://www.hawkee.com/snippet/7549/
fixxed now enjoy again :P
No offence but i already updated my script with the axact same things a while ago however nice job at moticeing the Ep VS quicksechedule problem, Took me a while to see that one. :)
However seeing as how the quickschedule can't be parsed by this script anymore there was really no need for it,
Try it yourself
!ep Schedule Tuesday
It wil display ()
And that's all, i am having trouble sorting that out on my script but hell nice try :)
On the other hand the !ep command will work,
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.
}
-
also on line 186 i get the error, I have gona through all the script i can't seem to see what the problem is
Edit after some help from my friend Camaro we finally got it working it seems for some reason the script had not had the ctrl-k aditions onto the numbers lol, No idea how but heel here it is enjoy, BTW all codos goes to Gecko321 for actually making this script and i beleve it has already been edited on Mirc.net aswell >> http://www.mirc.net/projects.php?go=1204694830
on *:LOAD:dialog -m TVSettings TVSettings -4
on *:UNLOAD:.unset %TV_*
menu Menubar,Channel,Query {
-
TV Rage
.Settings:dialog -m TVSettings TVSettings -4
.Self Search:dialog -m SelfSearch SelfSearch -4
.Status < $+ $iif(%TV_Rage = 1,Enabled,Disabled) $+ >:$iif(%TV_Rage = 0,%TV_Rage = 1,%TV_Rage = 0) | echo -a TV Rage Has Been $iif(%TV_Rage = 1,Enabled.,Disabled.)
-
}
On *:input:#: {
if ($1 != !ep) { return }
if (%TV_Rage = 0) { Halt }
var %Num = $trnum
if ($2 = Schedule) { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where2 = 1,$Me,$Target) }
elseif ($Target !ischan) { set %TVRage_Target. [ $+ [ %num ] ] $Me | set %TVRage_Query. [ $+ [ %num ] ] 1 }
else { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where = 1,$Target,$Me) }
set %TVRage_Chan. [ $+ [ %num ] ] $Chan
set %TVRage_Nick. [ $+ [ %num ] ] $Me
TVRage.Load %num $1-
}
On *:Text:!ep*:*: {
if (%TV_Rage = 0) { Halt }
var %Num = $trnum
if ($2 = Schedule) { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where2 = 1,$Nick,$Chan) }
elseif ($Target !ischan) { set %TVRage_Target. [ $+ [ %num ] ] $Nick | set %TVRage_Query. [ $+ [ %num ] ] 1 }
else { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where = 1,$Chan,$Nick) }
set %TVRage_Nick. [ $+ [ %num ] ] $Nick
set %TVRage_Chan. [ $+ [ %num ] ] $Chan
TVRage.Load %num $1-
}
alias -l TVRage.Load {
var %num = $1
if ($Mid($2,4,10) = triggers) {
msg %TVRage_Target. [ $+ [ %num ] ] 14TVRage Commands8:
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep 8<15Show8> (15Season and Episode8) 4EX8:15 !ep House 2x05
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep Schedule 8<15Day Of Week8> 4EX8:15 !ep Schedule Fri
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep Schedule 8<15Day Of Week8> (15Time8) 4EX8:15 !ep Schedule Fri 10
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep Schedule 8<15Day Of Week8> (15Time8) (15Country8: 4US8,4GB8,4UK8,4AU8) (15US By Default8) 4EX8:15 !ep Schedule Fri 10 GB
msg %TVRage_Target. [ $+ [ %num ] ] 8- 14Options in 8( ) 14are Optional8. 14Options in 8< > 14are Required8.
.unset %TVRage*
halt
}
tokenize 32 $2-
if ($2 = Schedule) {
var %temp $GetTok($2-,$numtok($2-,32),32)
set %TVRage_Type. [ $+ [ %num ] ] Schedule
if ((%Temp = GB) || (%Temp = UK) || (%Temp = US) || (%Temp = AU)) { set %TVRage_Type. [ $+ [ %num ] ] Country | set %TVRage_Country. [ $+ [ %num ] ] %Temp }
set %TVRage_Time_Schedule. [ $+ [ %num ] ] $iif($4 !isnum,$null,$Int($4))
set %TVRage_Date. [ $+ [ %num ] ] $FullDate($3)
if (%TVRage_Date. [ $+ [ %num ] ] = $null) {
msg %TVRage_Target. [ $+ [ %num ] ] 14You need to pick a 4Day of the Week $+ $iif(!%TVRage_Country. [ $+ [ %num ] ],$chr(32) $+ 14or 4Country) $+ 8.
.unset %TVRage_*. [ $+ [ %num ] ]
.unset %Check_*. [ $+ [ %num ] ]
halt
}
TVRage %Num Schedule
}
else {
$iif($CheckEP(%num,$2-) = 1,set %TVRage_Type. [ $+ [ %num ] ] EpSpec, set %TVRage_Type. [ $+ [ %num ] ] Ep)
TVRage %num $2-
}
}
alias -l TVRage {
if ((%TVRage_Type. [ $+ [ $1 ] ] != Schedule) && (!$2)) {
msg %TVRage_Target. [ $+ [ $1 ] ] 14You actually need to search for a 4TV8-4show 14you know8! 14 Type 4!eptriggers14 for help8.
.unset %TVRage_*. [ $+ [ $1 ] ]
return
}
if (%TVRage_Type. [ $+ [ $1 ] ] = EpSpec) { %tvshow. [ $+ [ $1 ] ] = $replace($GetTok($2-,1- [ $Calc($numtok($2-,32)-1) ] ,32),$chr(32),% $+ 20) $+ &ep= $+ %Check_Season. [ $+ [ $1 ] ] $+ x $+ %Check_ep. [ $+ [ $1 ] ] }
else { %TVShow. [ $+ [ $1 ] ] = $replace($2-,$chr(32),% $+ 20) }
sockopen TVRage. [ $+ [ $1 ] ] www.TVRage.com 80
}
on *:sockopen:TVRage.*: {
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
Check.Settings Sch %Num
if ($sockerr > 0) return
if (%TVRage_Type. [ $+ [ %num ] ] = Schedule) {
msg %TVRage_Target. [ $+ [ %num ] ] 15-- 14Gathering Information 15--
sockwrite -n $SockName GET /quickschedule.php HTTP/1.1
}
elseif (%TVRage_Type. [ $+ [ %num ] ] = Country) {
msg %TVRage_Target. [ $+ [ %num ] ] 15-- 14Gathering Information 15--
sockwrite -n $SockName GET /quickschedule.php?country= $+ %TVRage_Country. [ $+ [ %num ] ] HTTP/1.1
}
elseif ((%TVRage_Type. [ $+ [ %num ] ] = Ep) || (%TVRage_Type. [ $+ [ %num ] ] = EpSpec)) { sockwrite -n $sockname GET /quickinfo.php?show= $+ %tvshow. [ $+ [ %num ] ] HTTP/1.0 }
sockwrite -n $SockName host: $+(www.TVRage.com,$crlf,$crlf)
set %TVRage_Day. [ $+ [ %num ] ] 0
sockwrite -n $sockname Host: tvrage.com
sockwrite -n $sockname Connection: keep-alive
sockwrite $sockname $crlf
}
on *:sockread:TVRage.*:{
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
if ($sockerr) { return }
var %tvdata
sockread %tvdata
if ($mid(%Tvdata,1,5) = [DAY]) {
if ($Fopen(%TVRage_Day. [ $+ [ %num ] ])) {
.fclose %TVRage_Day. [ $+ [ %num ] ]
}
set %TVRage_Day. [ $+ [ %num ] ] $GetTok($Mid(%Tvdata,6,$Calc($pos(%Tvdata,[/,1) - 6)),1,44)
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
.fopen -no %TVRage_Day. [ $+ [ %num ] ] [ %TVRage_Day. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
.fwrite -n %TVRage_Day. [ $+ [ %num ] ] $Mid(%Tvdata,6,$Calc($pos(%Tvdata,[/,1) - 6))
}
}
if ($mid(%TvData,1,6) = [TIME]) {
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
set %TVRage_Time. [ $+ [ %num ] ] $Mid(%Tvdata,7,$Calc($pos(%tvdata,[/,1) - 7))
}
}
if ($Mid(%TVData,1,6) = [SHOW]) {
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
set %TVRage_Show_Temp. [ $+ [ %num ] ] $Mid(%TvData,7,$Calc($pos(%Tvdata,^,3) - 7))
.fwrite -n %TVRage_Day. [ $+ [ %num ] ] %TVRage_Time. [ $+ [ %num ] ] $+ ^ $+ %TVRage_Show_Temp. [ $+ [ %num ] ]
}
}
if (!$sockbr) return
if (show name isin %tvdata) { set %show_name. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (country isin %tvdata) { set %show_country. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (Latest Episode isin %tvdata) {
set %show_latest_temp. [ $+ [ %num ] ] $gettok(%tvdata,2,64)
set %show_latest_Ep. [ $+ [ %num ] ] $gettok(%show_latest_Temp. [ $+ [ %num ] ],1,94)
set %show_latest_Title. [ $+ [ %num ] ] $gettok(%show_latest_temp. [ $+ [ %num ] ],2,94)
set %show_latest_airdate. [ $+ [ %num ] ] $gettok(%Show_latest_Temp. [ $+ [ %num ] ],3,94)
}
if (Next Episode isin %tvdata) {
set %show_next_temp. [ $+ [ %num ] ] $gettok(%tvdata,2,64)
set %show_next_Ep. [ $+ [ %num ] ] $gettok(%show_next_Temp. [ $+ [ %num ] ],1,94)
set %show_next_Title. [ $+ [ %num ] ] $gettok(%show_next_temp. [ $+ [ %num ] ],2,94)
set %show_next_airdate. [ $+ [ %num ] ] $gettok(%Show_Next_Temp. [ $+ [ %num ] ],3,94)
}
if (Episode URL isin %tvdata) { set %Show_URL. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (Episode Info isin %tvdata) {
set %Show_Spec_Temp. [ $+ [ %num ] ] $Gettok(%tvdata,2,64)
set %show_Spec_Ep. [ $+ [ %num ] ] $gettok(%show_spec_Temp. [ $+ [ %num ] ],1,94)
set %show_Spec_Title. [ $+ [ %num ] ] $gettok(%show_spec_temp. [ $+ [ %num ] ],2,94)
set %show_Spec_airdate. [ $+ [ %num ] ] $gettok(%Show_spec_Temp. [ $+ [ %num ] ],3,94)
if (%show_Spec_airdate. [ $+ [ %num ] ] = 00//00) { set %show_Spec_airdate. [ $+ [ %num ] ] }
}
if (Status isin %Tvdata) { set %Show_Status. [ $+ [ %num ] ] $Gettok(%Tvdata,2,64) }
if (airtime isin %Tvdata) { Set %Show_Airtime. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (network isin %Tvdata) { set %Show_network. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (%show_Next_airdate. [ $+ [ %num ] ]) {
set %Next_Temp. [ $+ [ %num ] ] $puttok(%Show_Next_Airdate. [ $+ [ %num ] ],$GetTok(%Show_Next_airdate. [ $+ [ %num ] ],2,47),1,47)
set %Next_Temp. [ $+ [ %num ] ] $puttok(%Next_Temp. [ $+ [ %num ] ],$SetMonth($GetTok(%Show_Next_Airdate. [ $+ [ %num ] ] ,1,47)),2,47)
set %Next_Time. [ $+ [ %num ] ] $CTime(%Next_Temp. [ $+ [ %num ] ] $GetTok(%Show_Airtime. [ $+ [ %num ] ] ,3-4,32))
}
if (%Show_Spec_airdate. [ $+ [ %num ] ]) {
set %Next_Spec_Temp. [ $+ [ %num ] ] $puttok(%Show_Spec_Airdate. [ $+ [ %num ] ],$SetMonth($GetTok(%Show_Spec_Airdate. [ $+ [ %num ] ],2,47)),2,47)
set %Next_Spec_Time. [ $+ [ %num ] ] $CTime(%Next_Spec_Temp. [ $+ [ %num ] ] $GetTok(%Show_Airtime. [ $+ [ %num ] ] ,3-4,32))
}
}
on *:sockclose:TVRage.*:{
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
if ((%TVRage_Type. [ $+ [ %num ] ] = Ep) || (%TVRage_Type. [ $+ [ %num ] ] = EpSpec)) {
Check.Settings Ep %Num
set %Show_Ep. [ $+ [ %num ] ] s $+ $replace(%Show_ep. [ $+ [ %num ] ],x,e)
if (%show_name. [ $+ [ %num ] ] = $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14No Such Show8, 14Check your spelling and try again8. }
else {
msg %TVRage_Target. [ $+ [ %num ] ] 14 $+ %show_name. [ $+ [ %num ] ] 15--14 $Replace(%Show_Airtime. [ $+ [ %num ] ],$Chr(44),8 $+ $chr(44) $+ 14,:,8:14) 15 $+ %Show_network. [ $+ [ %num ] ] 8(14 $+ %Show_Status. [ $+ [ %num ] ] $+ 8) (14 $+ %show_country. [ $+ [ %num ] ] $+ 8)
if (%Show_Url. [ $+ [ %num ] ] != $Null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Episode URL8:15 %Show_URL. [ $+ [ %num ] ] }
if (%show_Spec_temp. [ $+ [ %num ] ] != $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Episode15 %Show_spec_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_spec_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %Show_spec_Title. [ $+ [ %num ] ] $iif(%Next_Spec_Time. [ $+ [ %num ] ] > $Ctime,14Airing in8:15 $LongTime($Calc(%Next_Spec_Time. [ $+ [ %num ] ] - $Ctime))) }
msg %TVRage_Target. [ $+ [ %num ] ] 14Latest Episode15 %Show_Latest_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_Latest_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %show_latest_Title. [ $+ [ %num ] ]
if (%show_next_temp. [ $+ [ %num ] ] != $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Next Episode15 %Show_next_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_Next_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %Show_Next_Title. [ $+ [ %num ] ] $iif(%Next_Time. [ $+ [ %num ] ] > $Ctime,14Airing in8:15 $LongTime($Calc(%Next_Time. [ $+ [ %num ] ] - $Ctime))) }
}
}
elseif ((%TVRage_Type. [ $+ [ %num ] ] = Schedule) || (%TVRage_Type. [ $+ [ %num ] ] = Country)) {
Check.Settings Sch %Num
if (%TVRage_Date. [ $+ [ %num ] ] != $Null) {
.fopen %TVRage_Date. [ $+ [ %num ] ] [ %TVRage_Date. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
msg %TVRage_Target. [ $+ [ %num ] ] 14Schedule for15 $replace($fread(%TVRage_Date. [ $+ [ %num ] ]),$chr(44),8 $+ $chr(44) $+ 15) $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] != $null, 14at15 %TVRage_Time_Schedule. [ $+ [ %num ] ] $+ 8:1500 $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] < 12,14pm,14am))
set %TVRage_Time_Count. [ $+ [ %num ] ] 0
while ($Feof != 1) {
set %TVRage_Tmp. [ $+ [ %num ] ] $Fread(%TVRage_Date. [ $+ [ %num ] ])
set %TVRage_Time_Temp. [ $+ [ %num ] ] $GetTok(%TVRage_Tmp. [ $+ [ %num ] ],1,94)
set %TVRage_Show_NetWork. [ $+ [ %num ] ] $GetTok(%TVRage_Tmp. [ $+ [ %num ] ],2,94)
set %TVRage_Show_Show. [ $+ [ %num ] ] $gettok(%TVRage_Tmp. [ $+ [ %num ] ],3,94)
set %TVRage_Show_Ep. [ $+ [ %num ] ] s $+ $replace($getTok(%TVRage_Tmp. [ $+ [ %num ] ],4,94),x,e)
if (%TVRage_Time_Schedule. [ $+ [ %num ] ] != $Null) {
if ($int($mid(%TVRage_Time_Temp. [ $+ [ %num ] ],1,2)) = $int($mid(%TVRage_Time_Schedule. [ $+ [ %num ] ],1,2))) {
inc %TVRage_Time_Count. [ $+ [ %num ] ] 1
if (%TVRage_Time_Temp2. [ $+ [ %num ] ] = %TVRage_Time_Temp. [ $+ [ %num ] ]) { goto Next_Time }
msg %TVRage_Target. [ $+ [ %num ] ] 14Time8:15 8(15 $+ $Replace(%TVRage_Time_Temp. [ $+ [ %num ] ],:,8:15) $+ 8)
:Next_Time
msg %TVRage_Target. [ $+ [ %num ] ] 14--- 8(15 $+ %TVRage_show_Network. [ $+ [ %num ] ] $+ 8)15 %TVRage_Show_Show. [ $+ [ %num ] ] 8-15 $Replace(%TVRage_Show_Ep. [ $+ [ %num ] ],s,14s15,e,14e15)
Set %TVRage_Time_Temp2. [ $+ [ %num ] ] %TVRage_Time_Temp. [ $+ [ %num ] ]
}
}
if (%TVRage_Time_Schedule. [ $+ [ %num ] ] != $Null) && (%TVRage_Time_Count. [ $+ [ %num ] ] = 0)) { msg %TVRage_Target. [ $+ [ %num ] ] 14There are no new TV Shows Scheduled for15 %TVRage_Time_Schedule. [ $+ [ %num ] ] $+ 8:1500 $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] < 12,14pm,14am) }
elseif (%TVRage_Time_Schedule. [ $+ [ %num ] ] = $Null) {
if (%TVRage_Time_Temp2. [ $+ [ %num ] ] = %TVRage_Time_Temp. [ $+ [ %num ] ]) { goto Next_Time2 }
msg %TVRage_Target. [ $+ [ %num ] ] 14Time8:15 8(15 $+ $Replace(%TVRage_Time_Temp. [ $+ [ %num ] ],:,8:15) $+ 8)
:Next_Time2
msg %TVRage_Target. [ $+ [ %num ] ] 14--- 8(15 $+ %TVRage_show_Network. [ $+ [ %num ] ] $+ 8)15 %TVRage_Show_Show. [ $+ [ %num ] ] 8-15 $replace(%TVRage_Show_Ep. [ $+ [ %num ] ],e,14e15,s,14s15)
Set %TVRage_Time_Temp2. [ $+ [ %num ] ] %TVRage_Time_Temp. [ $+ [ %num ] ]
}
}
}
.fclose %TVRage_Date. [ $+ [ %num ] ]
.remove [ %TVRage_Date. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
}
.unset %tvshow. [ $+ [ %num ] ]
.unset %show_*. [ $+ [ %num ] ]
.unset %TVRage_*. [ $+ [ %num ] ]
.unset %Check_*. [ $+ [ %num ] ]
.unset %next_*. [ $+ [ %num ] ]
}
Alias -l FullDate {
if ($Mid($1,1,3) = Sat) { Return Saturday }
elseif ($Mid($1,1,3) = Sun) { return Sunday }
elseif ($Mid($1,1,3) = Mon) { Return Monday }
elseif ($Mid($1,1,3) = Tue) { Return Tuesday }
elseif ($Mid($1,1,3) = Wed) { Return Wednesday }
elseif ($Mid($1,1,3) = Thu) { Return Thursday }
elseif ($Mid($1,1,3) = Fri) { Return Friday }
else { Return $null }
}
alias -l CheckEP {
var %temp $GetTok($2-,$numtok($2-,32),32)
$iif(e isin %Temp,%Temp = $replace(%Temp,e,x))
set %Check_Season. [ $+ [ $1 ] ] $Mid(%Temp,1,$Calc($pos(%Temp,x)-1))
set %Check_Ep. [ $+ [ $1 ] ] $Mid(%Temp,$Calc($pos(%Temp,x)+1))
if ($mid(%Check_Season. [ $+ [ $1 ] ],1,1) = s) { Set %Check_Season. [ $+ [ $1 ] ] $Mid(%Check_Season. [ $+ [ $1 ] ],2) }
if ((%Check_season. [ $+ [ $1 ] ] isnum) && (%Check_Ep. [ $+ [ $1 ] ] isnum)) { Return 1 }
else { Return 0 }
}
dialog -l TVSettings {
title "TVRage Settings"
size -1 -1 264 217
option pixels
box "", 1, 8 8 249 60
box "", 2, 8 67 249 60
box "", 3, 8 126 249 43
box "", 12, 8 168 249 43
text "Select where you want the Schedule Displayed", 4, 16 21 225 17
radio "Channel", 5, 32 45 65 13, group
radio "Private Message", 6, 128 45 105 13,
text "Select where you want the Replys Displayed", 7, 16 80 225 17
radio "Channel", 8, 32 104 65 13, group
radio "Private Message", 9, 128 104 105 13,
check "Enable TVRage", 10, 32 188 113 13
button "&Save Settings", 11, 144 182 89 25, ok
check "Enable Colors", 13, 32 145 113 13
}
on *:dialog:TVSettings:*:*:{
if ($Devent == init) {
if (%TV_Where = 1) { did -c $dname 8 }
else { did -c $dname 9 }
if (%TV_Where2 = 1) { did -c $dname 5 }
else { did -c $dname 6 }
if (%TV_Rage = 1) { did -c $dname 10 }
else { did -u $dname 10 }
if (%TV_Color = 1) { did -c $dname 13 }
else { did -u $dname 13 }
}
elseif ($devent == Close) {
set %TV_Where $iif($Did($Dname,8).state = 1,1,0)
set %TV_Where2 $iif($Did($Dname,5).state = 1,1,0)
set %TV_Rage $iif($Did($Dname,10).state = 1,1,0)
set %TV_Color $iif($Did($Dname,13).state = 1,1,0)
echo -a 4TV Rage 15Settings have been saved8.
}
}
dialog -l SelfSearch {
title "TVRage Search"
size -1 -1 500 202
option pixels
box "", 1, 8 8 486 145
box "", 2, 8 152 486 43
text "Search Options:", 3, 16 16 462 17
text "<Show> (Season and Episode) EX: House 2x05", 4, 30 33 462 17
text "Schedule <Day Of Week> EX: Schedule Fri", 5, 30 50 462 17
text "Schedule <Day Of Week> (Time) EX: Schedule Wed 10", 6, 30 67 462 17
text "Schedule <Day Of Week> (Time) (Country:US,GB,UK,AU) EX: Schedule Saturday 10 GB", 7, 30 84 462 17
text "Option in ( ) are Optional. Options in < > are Required.", 8, 30 101 462 17
edit "", 9, 16 125 462 17, autohs
button "Search", 10, 335 165 65 25
button "Cancel", 11, 414 165 65 25, cancel
}
on *:dialog:SelfSearch:sclick:*:{
if ($Did = 10) {
if ($Did(9) = $null) {
if ($dialog(error,error,-4)) { did -f $Dname 9 }
}
else {
var %Num = $trnum
set %TVRage_Target. [ $+ [ %num ] ] $me
set %TVRage_Nick. [ $+ [ %num ] ] $me
set %TVRage_Chan. [ $+ [ %num ] ] $me
TVRage.Load %num !ep $did(9).text
echo -a 14Check you Private Message for the infomation that you requested8.
dialog -x $dname
}
}
}
dialog -l error {
title "Error"
size -1 -1 228 90
option pixels
box "", 2, 8 8 214 33
box "", 3, 8 40 214 43
button "&Ok", 4, 160 52 50 25, ok
text "You must type something to search for!", 5, 20 20 190 17
}
alias -l Check.Settings {
if ($1 = Ep) {
if (%TV_Where = $Null) { Set %TV_Where 0 }
if (%TV_Where = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Chan. [ $+ [ $2 ] ] }
elseif (%TV_Where = 0) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
if (%TVRage_Query. [ $+ [ $2 ] ] = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
}
elseif ($1 = Sch) {
if (%TV_Where2 = $Null) { Set %TV_Where2 0 }
if (%TV_Where2 = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Chan. [ $+ [ $2 ] ] }
elseif (%TV_Where2 = 0) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
if (%TVRage_Query. [ $+ [ $2 ] ] = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
}
}
alias -l trnum {
set %trnum $base($calc($base(%trnum,36,10) +1),10,36)
return %trnum
}
Alias -l LongTime {
Return 15 $+ $replace($Duration($$1),sec,sc,day,dy,wks,14weeks15,wk,14week15,dys,14days15,dy,14day15,hrs,14hours15,hr,14hour15,min,14minute15,mins,14minutes15,scs,14seconds15,sc,14second15)
}
alias -l SetMonth {
if ($1 = Jan) { return 1 }
elseif ($1 = Feb) { Return 2 }
elseif ($1 = Mar) { Return 3 }
elseif ($1 = Apr) { Return 4 }
elseif ($1 = May) { Return 5 }
elseif ($1 = Jun) { Return 6 }
elseif ($1 = Jul) { Return 7 }
elseif ($1 = Aug) { Return 8 }
elseif ($1 = Sep) { Return 9 }
elseif ($1 = Oct) { Return 10 }
elseif ($1 = Nov) { Return 11 }
elseif ($1 = Dec) { Return 12 }
}
alias -l msg {
if (%TV_Color = 0) { var %Temp = $strip($1-) | tokenize 32 %Temp }
if ($Show) {
if ($1 !ischan) { !.msg $1 $2- }
else { !msg $1 $iif(c isincs $chan($1).mode,$Strip($2-),$2-) }
}
else { !.msg $1 $iif(c isincs $chan($1).mode,$Strip($2-),$2-) }
}
little edit to make it notice the user
on *:text:!cnn *:#: {
if ($2 isnum && $2 >= 1) { set %cnnstory $round($2,0) }
if ($2 == sports) { set %cnnstory All | set %feed /rss/si_topstories.rss }
elseif ($2 == us) { set %cnnstory All | set %feed /rss/cnn_us.rss }
elseif ($2 == world) { set %cnnstory All | set %feed /rss/cnn_world.rss }
elseif ($2 == topstories) { set %cnnstory All | set %feed /rss/cnn_topstories.rss }
elseif ($2 == living) { set %cnnstory All | set %feed /rss/cnn_living.rss }
elseif ($2 == travel) { set %cnnstory All | set %feed /rss/cnn_travel.rss }
elseif ($2 == showbizz) { set %cnnstory All | set %feed /rss/cnn_showbiz.rss }
elseif ($2 == health) { set %cnnstory All | set %feed /rss/cnn_health.rss }
elseif ($2 == space) { set %cnnstory All | set %feed /rss/cnn_space.rss }
elseif ($2 == tech ) { set %cnnstory All | set %feed /rss/cnn_tech.rss }
elseif ($2 == politics) { set %cnnstory All | set %feed /rss/cnn_allpolitics.rss }
elseif ($2 == crime) { set %cnnstory All | set %feed /rss/cnn_crime.rss }
elseif ($2 == money) { set %cnnstory All | set %feed /rss/money_latest.rss }
elseif ($2 == recent) { set %cnnstory All | set %feed /rss/cnn_latest.rss }
elseif ($2 == help) { notice $nick triggers are sports, us, world, topstories, living, travel, showbizz, health, space, tech, politics, crime, money, recent
notice $nick type !cnn sports for sports news, !cnn us for USA news, etc. Then type !cnn 1 to 10 for more info
/halt }
set %cnnchan $chan
sockopen CNN rss.cnn.com 80
}
on *:sockopen:CNN: {
sockwrite -n $sockname GET %feed HTTP/1.1
sockwrite -n $sockname Host: rss.cnn.com
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
}
on *:sockread:CNN: {
sockread %cnntemp
if (<title> isin %cnntemp) { inc %tt 1 | set %cnntitle $+ %tt $nohtml(%cnntemp) }
if (<link> isin %cnntemp) { inc %ttt 1 | set %cnnlink $+ %ttt $nohtml(%cnntemp) }
if (<pubDate> isin %cnntemp) { inc %ttttt 1 | set %cnndate $+ %ttttt $nohtml(%cnntemp) }
if (<description> isin %cnntemp) { inc %tttt 1 | set %cnndesc $+ %tttt $remove($nohtml(%cnntemp),$(<div class="feedflare">)) }
}
on *:sockclose:CNN: {
if (%cnnstory == All) {
var %o 3 | while (%o <= $var(%cnntitle*,0)) {
notice %cnnchan 4,15 [Title: $calc(%o -2) $+ ] $var(%cnntitle*,%o).value | inc %o
}
}
else {
if ($calc(%cnnstory +2) > $var(%cnntitle*,0)) { notice $nick There are only $calc($v2 -2) options. }
else {
notice %cnnchan 4,15 [Title:] $($+(%,cnntitle,$calc(%cnnstory +2)),2)
notice %cnnchan 4,15 [Published:] $($+(%,cnndate,$calc(%cnnstory +1)),2)
notice %cnnchan 4,15 [Description:] $($+(%,cnndesc,$calc(%cnnstory +2)),2)
notice %cnnchan 4,15 [Link:] $($+(%,cnnlink,$calc(%cnnstory +2)),2)
}
}
unset %cnn* %tt %ttt %tttt %ttttt
}
alias -l nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}