joelp53

joelp53

Joined
Mar 04, 2010

Activity Stream

joelp53 commented on a Page, TVRage.com V1.5  -  Oct 29, 2010

HaHaH not a problem mate glad I could help you. :-)

 Respond  
joelp53 commented on a Page, TVRage.com V1.5  -  Oct 28, 2010

hahah yeah im working on editing mine like that, im just making a utorrent script ATM though

 Respond  
joelp53 commented on a Page, TVRage.com V1.5  -  Oct 26, 2010

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

 Respond  
joelp53 commented on a Page, Op Controls  -  Oct 19, 2010

not bad at all :-)

 Respond  
joelp53 commented on a Page, TVRage.com V1.5  -  Oct 19, 2010

Can i ask where you are UK, USA ect?
As it seems that this script is working fine for people in the UK
However elsewhere people are having a lot of trouble.

 Respond  
joelp53 commented on a Page, thanker  -  Oct 19, 2010

I have a script that does this and i have to say for me regex works better.

 Respond  
joelp53 commented on a Page, Utorrent Info Grabber  -  Oct 18, 2010

Yeah nice idea bud, i will update it know

Thankyou :-)

 Respond  
joelp53 commented on a Page, Bar (Revamped)  -  Oct 17, 2010

Heh it works like a charm so i say leave it as it is, Nice script LadySorien

 Respond  
joelp53 commented on a Page, Utorrent Info Grabber  -  Oct 17, 2010

Ok i think i sorted it Thanks again :-)

 Respond  
joelp53 commented on a Page, Utorrent Info Grabber  -  Oct 17, 2010

lol Chill man, You sound like your kinda pist of at this haha, i will test the edits first then edit them if it works :-)

Edit: Works like a charm nice adition to the script thankyou.

 Respond  
joelp53 created a Page  -  Oct 17, 2010
2 927 

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,

joelp53 commented on a Page, !IMDB Movie Search  -  Oct 11, 2010

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

 Respond  
joelp53 commented on a Page, !IMDB Movie Search  -  Oct 09, 2010

Doesn't seem to be working again mate:

(07:16:04) (JoelP53) !movie avatar
(07:16:05) -Script_Bot- Searching For: avatar
(07:17:36) (JoelP53) !imdb avatar
(07:17:37) -Script_Bot- Searching For: avatar

 Respond  
joelp53 commented on a Page, Regex bot Commander  -  Oct 09, 2010

http://pastebin.com/diff.php?i=GGpnSTAJ
Seems to be changed a little i guess :-)

 Respond  
joelp53 commented on a Page, Halo Reach Player Stats   -  Oct 08, 2010

Not bad mate, I made a simular script to this however it doesn't show as much info as yours, Il deffo be stealing some of your code lol :D

JK, But still rather nice and handy for when you just need to show of how awsome you are lol :P

Rated 7 as usefull :-)

 Respond  
joelp53 commented on a Page, TvRage Working.  -  Jun 24, 2010

yeah is now 100% fixxed everything now works again :D

 Respond  
joelp53 commented on a Page, TVRage fixed  -  Jun 24, 2010

here you go #
http://www.hawkee.com/snippet/7549/

fixxed now enjoy again :P

 Respond  
joelp53 commented on a Page, TVRage fixed  -  Jun 19, 2010

Like i said it won't work has the whole script needs rewriting, Il have a look into making it, As now with the new services thing tbrage added i should be able to make it work better, Though it may not have a GUI

 Respond  
joelp53 commented on a Page, TVRage fixed  -  Jun 06, 2010

Once again that is tuesday which would be at the bigining of the tvrage quickschedule however the thursday Won't work.
If you don't beleve me try all the days in sequence and you will se what i am talking about.

 Respond  
joelp53 commented on a mIRC Script, (URLInf.) URL Informer  -  Jun 03, 2010

Only one problem most sites don't use HTML they use PHP
But other than that awsome script

 Respond  
joelp53 commented on a Page, TVRage fixed  -  Jun 03, 2010

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,

 Respond  
joelp53 commented on a Page, TVRage 10-Minute-Prior Quick Schedule Announcer  -  May 27, 2010

Ahh i see now nice ::)

 Respond  
joelp53 commented on a Page, TVRage 10-Minute-Prior Quick Schedule Announcer  -  May 27, 2010

lol wasn't that like 5 lines you had to edit, I think it is fine how it is TBH Jethro_ very nice script.

Just wondering though where i would add color codes to make it post as color OFC :-)

 Respond  
joelp53 commented on a Page, TvRage Working.  -  May 26, 2010

Please note fix script is now fixxed feel free to grab it and use it :P.
Have fun :)

 Respond  
joelp53 commented on a Page, TVRage  -  May 24, 2010

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.

}
 Respond  
joelp53 commented on a Page, TVRage.com V1.5  -  May 23, 2010

-

  • Invalid parameters: $fread (line 180, tvrage1.mrc)
  • Invalid parameters: $fread (line 183, tvrage-test.mrc)
  • Invalid parameters: $fread (line 180, tvrage1.mrc)
  • Invalid parameters: $fread (line 183, tvrage-test.mrc)

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-) }
}
 Respond  
joelp53 commented on a Page, TVRage.com V1.5  -  May 19, 2010

With the above edit,
The only thing that works there is the !ep trigger not the !ep schedule.

 Respond  
joelp53 commented on a Page, TVRage  -  May 19, 2010

Here is an updated adition Afetr the recent TVrage.com update.
However please not that for some strange reason it takes longer to get the info.

Edit sorry my bad didn't see the fix x714x put up :)

 Respond  
joelp53 commented on a Page, CNN top stories  -  May 17, 2010

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),$(&lt;div class="feedflare"&gt;)) } 
} 
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,&nbsp;) 
  return %x 
}
 Respond  
joelp53 commented on a Page, IMDb searcher 2  -  Apr 17, 2010

ahh my bad didn't think it was on there :D edited the description.

 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.