Miscellany

;commands:
;!tv <tv show here>

on *:sockopen:tvrage2_*:{                                                                        
  sockwrite -n tvrage2_ $+ %tvrage.temp GET http://www.tvrage.com/quickschedule.php?country=GB
}  

on *:sockread:tvrage2_*:{
  var %temptext
  sockread %temptext
  echo -a %temptext
  write test.log %temptext
  if ([DAY] isin %temptext) {
    if (%dayy == 1) {
      echo -a got day %day
      set %day $remove(%temptext,[DAY],[/DAY]) GMT
      %cchan 6 $+ %day
      set %dayy %dayy + 1
      halt
    }
    set %dayy hiii 
  }
  if ([TIME] isin %temptext) { 
    set %time $remove(%temptext,[TIME],[/TIME])
    echo -a got time %time
  }
  if ([SHOW] isin %temptext) {
    if (%dayy == 2) {
      echo -a sup %dayy
      set %show ( $+ $remove($gettok(%temptext,1,94),[SHOW]) $+ )3 $replace($remove($gettok(%temptext,2-,94),[SHOW],[/SHOW]),^,$chr(32),http://, 7URL:4 http://)
      echo -a %time 10-=-14 %show
      halt
    }
  }
}
alias tvrage2 {
  set %tvrage.temp $replace($1-,$chr(32),+)
  sockopen tvrage2_ $+ %tvrage.temp www.tvrage.com 80
}

on *:sockopen:tvrage_*:{
  sockwrite -n tvrage_ $+ %tvrage.temp GET http://www.tvrage.com/quickinfo.php?show= $+ %tvrage.temp
}

on *:sockread:tvrage_*:{
  var %temptext
  sockread %temptext
  if (Show Name@ isin %temptext) {
    set %showname $remove(%temptext,Show Name@)
  }
  if (Premiered@ isin %temptext) {
    set %Premiered $remove(%temptext,Premiered@)
    ;BY x3c 18/09/2006
  }
  if (Latest Episode@ isin %temptext) {
    set %latest $replace($remove(%temptext,Latest Episode@),^,$chr(32))
  }
  if (Next Episode@ isin %temptext) {
    set %next $replace($remove(%temptext,Next Episode@),^,$chr(32))
  }
  if (Status@ isin %temptext) {
    set %status $remove(%temptext,Status@)
  }
  if (Premiered@ isin %temptext) {
    set %premiered $remove(%temptext,Premiered@)
  }
  if (Genres@ isin %temptext) {
    set %genres $remove(%temptext,Genres@)
    %tvragechan $+(0,$chr(149),) 7 %showname 11(3 7Latest Ep:3 %latest 11)4 ~ 11(3 7Next Ep:3 $iif(%next,%next,Unavailable) 11)4 ~ 11(3 7Premiered:3 %premiered 11)4 ~ 11(3 7Status:3 %status 11)4 ~ 11(3 7Genre:3 %genres 11)4 ~ 11(3 7Link:3 http://www.tvrage.com/ $+ $replace(%tvrage.temp,+,_) 11)4
    sockclose $sockname
  }
}
alias tv {
  set %tvragechan echo -a 
  set %tvrage.temp $replace($1-,$chr(32),+)

  sockopen tvrage_ $+ %tvrage.temp www.tvrage.com 80
}
alias tvmsg {
  set %tvragechan msg $chan
  set %tvrage.temp $replace($1-,$chr(32),+)
  sockopen tvrage_ $+ %tvrage.temp www.tvrage.com 80
}
alias tvrage__ {
  unset %next
  set %tvrage.temp $replace($1-,$chr(32),+)
  sockopen tvrage_ $+ %tvrage.temp www.tvrage.com 80
}
on 1:TEXT:!tv *:#search:{
  set %tvragechan msg $chan
  tvrage__ $2-
}