Miscellany

on *:join:#canal:{ if ($nick == $me) { set %rtorrent. on | .timerNEWTORRENT 1 $calc(%ttorrent. * 60) newtorrent } }
alias newtorrent { 
  sockclose torrents
  sockopen torrents www.btuga.net 80
}

on *:sockopen:torrents:{
  if ($sockerr > 0) { return } 
  sockwrite -n $sockname GET /evo.php/ HTTP/1.1 
  sockwrite -n $sockname Host: www.btuga.net
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727) $+ $crlf
  sockwrite -n $sockname Connection: Keep-Alive 
  sockwrite -n $sockname $crlf
}

on *:sockread:torrents:{
  if ($sockerr > 0) { return }
  var %torrent 
  sockread %torrent

  if ( $numtok( %torrent, 124) ) && ( *btuga* iswm %torrent ) {
    if ( %torrent != %ltorrent.) {
      set %ltorrent. %torrent
      msg %ctorrent. ------------------------------
      msg %ctorrent. :: eVo proudly presents ::
      msg %ctorrent. ------------------------------
      msg %ctorrent. Nome:12 $gettok( %torrent, 1, 124)
      msg %ctorrent. Categoria:12 $gettok( %torrent, 2, 124)
      msg %ctorrent. Link:12 $gettok( %torrent, 3, 124)   
      sockclose torrents
    }
    else { sockclose torrents }
  }
}
menu channel {
  Announce
  .Resetar:/unset %*torrent.
  .-
  .Canal ( $+ %ctorrent. $+ ):/set %ctorrent. $?="Introduza o Canal para enviar a informação:"
  .Repetir
  ..Tempo ( $+ %ttorrent. $+ ):/set %ttorrent. $?="Introduza o Tempo em minutos:"
  ..-
  ..$iif(%rtorrent. == on,$style(1)) Activar:{
    set %rtorrent. on
    .timerNEWTORRENT 0 $calc(%ttorrent. * 60) newtorrent
    echo -a :: Aviso de Novos Torrents activado.
  }
  ..$iif(%rtorrent. == off,$style(1)) Desactivar:{
    set %rtorrent. off
    .timerNEWTORRENT off
    echo -a :: Aviso de Novos Torrents desactivado.
  }
}