ReleasesBR PRE 2010

on *:text:*:#:{ if ($nick == PRE) && ($network == P2P) && ($chan = #Pre) { 
    if ([PRE] !isin $1-) { halt }
    else { /set %pre $1-
      scid -t1 $idnet(IRCHighWay) /.msg #releasesbr $replace(%pre,[,[,],])
    }
  }
}
alias idnet {
  var %k = 1
  var %L = $1
  while (%k <= $scid(0)) {
    if ($scid($scon(%k)).network == %L) { return $scon(%k) }
    inc %k
  }
}