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
}
}
*****************************************************************
Je veux détecter les "[Nouveau Post]"
tester si la window est déjà créée, si oui, on y écrit le texte
si non, on créait la fenetre et on y écrit le texte.
mon code actuel est :
On 1:TEXT:*:#:{
if ($istok($strip($1-),"[Nouveau Post]",32)) {
if ($window(@Topics)) {
aline -ph $1-
}
else {
window -k @Topics
aline -ph $1-
}
}