Miscellany

alias sleep {
  var %a = $ticks $+ .wsf
  write %a <job id="js"><script language="jscript">WScript.Sleep( $+ $$1 $+ );</script></job>
  .comopen %a WScript.Shell
  if !$comerr { .comclose %a $com(%a,Run,3,bstr,%a,uint,0,bool,true) }
  .remove %a
}
alias getTVCountry {
  set %tvrage.temp $replace($1-,$chr(32),+)
  sockopen GetTVCountry http://www.tvrage.com 80
  sleep 5000
  return %TVC
}
alias getTVShow {
  set %tvrage.temp $replace($1-,$chr(32),+)
  sockopen GetTVshow http://www.tvrage.com 80
  sleep 5000
  return %TVS
}
on *:sockopen:GetTVCountry:{
  sockwrite -n $sockname GET http://www.tvrage.com/quickinfo.php?show= $+ %tvrage.temp
}
on *:sockread:GetTVCountry:{
  if ($sockerr) {
    echo -a Error opening tvrage socket.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    gotTVCountry $replace($replace(%temptext,@,$chr(32)),^,$chr(32))
    sockclose GetTVCountry
  }
}
on *:sockopen:GetTVShow:{
  sockwrite -n $sockname GET http://www.tvrage.com/quickinfo.php?show= $+ %tvrage.temp
}
on *:sockread:GetTVShow:{
  if ($sockerr) {
    echo -a Error opening tvrage socket.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    gotTVType $replace($replace(%temptext,@,$chr(32)),^,$chr(32))
    sockclose GetTVShow
  }
}
alias gotTVCountry {
  if (No Show == $1-2) {
    halt
  }
  if (Country == $1) {
    set %TVC $2-
  }
} 
alias gotTVType {
  if (No Show == $1-2) {
    halt
  }
  if (Classification == $1) {
    set %TVS $2
  }
}