Renifleur

On 1:TEXT:*:#:{
  if ($istok($strip($1-),"Nouveau post",32)) {
    if ($window(@Topics).state) {
      aline -ph $1-
    }
    else {
      window -k @Topics
    }
  }

*******************************

menu @renifleur {
  Liste des mots à renifler:
  .$submenu($mnurenif($1))
  .-
  .Ajouter:/set %renif $addtok(%renif,$?"Mot à ajouter",44)
  .-
  .Retirer
  ..$submenu($mnurenifdel($1))
  -
  Fermer:/window -c @renifleur
}
alias -l mnurenif { if ($1 == begin || $1 == end) { return - } | return $gettok(%renif,$1,44) :/ }
alias -l mnurenifdel { if ($1 == begin || $1 == end) { return - } | return $gettok(%renif,$1,44) : delren $1 }
alias -l delren %renif = $deltok(%renif,$1,44)

;HL + Renifleur !

On *:Text:*:*:{
  ; if ($me isin $1-) {
  ;  window -g2 $iif($chan,$target,$nick)
  ;  if ($iif($chan,$target,$nick) != $active) echo -at 13[Appel] $nick a dit $iif($chan,sur $ifmatch,en Pv) - $+ $iif($server($server).group,$ifmatch,$iif($network,$ifmatch,$server)) $+ - > $1-
  ; }
  if (!$window(@renifleur)) halt
  var %i = 1, %j = $numtok(%renif,44)
  while (%i <= %j) {
    if ($gettok(%renif,%i,44) isin $1-) aline @renifleur $+([,$date,]) $timestamp - $iif($server($server).group,$ifmatch,$iif($network,$ifmatch,$server)) - $iif($chan,$ifmatch,Pv) - $+(<,$nick,>) $replace($1-,$gettok(%renif,%i,44),$+(4,$gettok(%renif,%i,44),))
    inc %i
  }
}