ban $newnick == nadnick après modif de $nickRésolu

Question

hello.
je suis op, j'ai déjà un addon shitlist, et je veux ban le pseudo qui change (durant sa session) par nouveau nick interdit qui se trouverait dans un fichier badnicks.txt,  *put*, batard, sur mot entier ou partie du mot...
j'ai essayé d'adapter divers codes mais je me plante.
je suis sOP sur plusieurs salons .
les pseudos incorrects en on *:join: sont déjà pris en compte.
restait donc à coder pour les modifications en cours de session 
voici ma dernière tentative (incorrecte) :
_______________________________________________________________________________
on ^1:NICK:
{ if ($me isop $chan) { if ($nick != $me)
    { var %n 0 | while (%n <= $lines(badnicks.txt)) { inc %n | if ($read(badnicks.txt,%n) isin $newnick)
        { ($newnick  ison  $chan)) ban -ku300 $chan $newnick change ce pseudo stp ! } 
      }
    } 
  } 
_______________________________________________________________________________

merci par avance à qui voudra m'aider ...à corriger ou me donner une piste . 

merci encore.

WorldDMT · Accepted Answer

salut

le code est tres mal codé et faut
les accolades sont mal positionné et une est manquante

dans ton ON NICK le $chan que tu a mis return $null donc ça marchera pas

pour le cas de ON NICK c'est pas une simple code a faire

cs_freenaute · Answer

merci WorldDMT, je m'y colle .
je jette et je recommence , je viens de me "relire" :(

merci

cs_wims · Answer

Tu dis que tu as déja un code qui gère lorsqu'un pseudo rentre sur le salon, on pourrait le voir ? parce que c'est exactement la même methode que pour le on nick...

cs_freenaute · Answer

raw 352:*:{
  if (!%who.num) { /unset %who* | /set %who.num 1 }
  /set %who.id[ $+ %who.num $+ ] $6 | /notice $me $6,$9-,entre en salle à $strip($time))
  /inc %who.num
}

mon script est ircap 2.1

^^ merci wims

WorldDMT · Answer

salut wims pour le join c'est on *:join:#: mais pour le changement de pseudo c'est on *:nick: ce que je veux dire pour le changement de pseudos c'est pas une action sur un chan mais sur le serveur esque ça pourra marché comme le on join? au passage j'ai utilisé ircap c'est un script portugais ou espagnol d'origine il n'est pas mal

cs_freenaute · Answer

wims : voici ce que j'ai dans mon script ircap : ;WHOIS alias TM.W { goto $1 :311 | { %_w $+ i25 �F; •••••---->�F;�2; $3 �2;[�F; $+ $4 $+ @�F; $+ $replace($5,.,�2;.�2;�F;) $+ ] $iif((%tm.pais),[ $+ %tm.pais $+ ]) ---�2;• %_w $+ i25 |-› âge �F; �F; �F; �F; �3; $+ $color(background) $+ ?'�2;:�F; $7- if (%whoixclon) %_w $+ i25 |---› Clones $+ �3; $+ $color(background) $+ ' �F; �F; �2;:�F; %whoixclon if (%tm.wuser) { %_w $+ i25 |---› u-Liste $+ �3; $+ $color(background) $+ ' �F; �F; �2;:�F; $gettok(%tm.wuser,1,32) [ $+ $gettok(%tm.wuser,2-99,32) $+ ] } return } :319 | %_w $+ i25 |---› Salles �F; �F; �3; $+ $color(background) $+ ?'�2;:�F; $replace($strip($4-),$chr(35),#�F;,@,@�F;,+,+�F;,%,%�F;) | return :312 | %_w $+ i25 |---› Serveur �3; $+ $color(background) $+ '�2;:�F; $4 $+ $5- | return :301 | %_w $+ i25 |---› Absent �F; �F; �2;:�F; $4- | return :313 | %_w $+ i25 |---› IRCop�3; $+ $color(background) $+ :�F; �F; �F; �2;:�2; $4- | return :317 | %_w $+ i25 |---› Connec. �2;:�F; $duration($calc($ctime - $5)) Inactif �2;:�F; $duration($4) | return :318 | %_w $+ i25 �F; ¯° $+ $str(-,80) $+ �2;• | return :extra | %_w $+ i25 |---› +info�3; $+ $color(background) $+ ' �F; �F; �F; �F; �2;:�F; $3- | return :314 | %_w $+ i25 |---› Whowas�3; $+ $color(background) $+ '�2;:�F;�2; $3 �2;[ $+ $4 $+ @ $+ $replace($5,.,�2;.�2;) $+ ]�F; $7- | return } #TM.lusers on raw 251:*: %borra.lusers = $calc($4 + $7) | ecot -st _ _[�F; Resumé de l'IRC : $nnet ]---�2;• | ecot -st |-›�F; %borra.lusers usagers (�F; $+ $7 +i)�F; en $10 serveus (�F; $+ $int($calc(%borra.lusers / $10)) usagers par serveur) | halt raw 252:*: ecot -st |-›�F; $2 ircops | halt raw 253:*: ecot -st |-›�F; $2 connections inconnues | halt raw 254:*: ecot -st |-›�F; $2 salles (�F; $+ $int($calc(%borra.lusers / $2)) usagers par salle) | unset %borra.lusers | halt raw 255:*: ecot -st |-›�F; $4 clients sur $7 serveurs (�F; $+ $server $+ ) | ecot -st ¯° $+ $str(-,80) $+ �2;• | halt raw 265:*: ecot -st $logo $2- | halt raw 266:*: ecot -st $logo $2- | halt #TM.lusers end

cs_freenaute · Answer

et avec la ligne dont parle WorldDMT ,  avec on nick :

on ^1:NICK: {
  if $nick == $me { 
    .timer 1 1 ja yo20 
    if $window(@setup) { %setup.tmpnic = $newnick | refres }
    if (%tmp.nickgpass) .timer 1 1 _ca nickguardapass %tmp.nickgpass | unset %tmp.nickgpass
  }  var %a $tma(nick,$nick,$newnick,$address) | var %i $comchan($newnick,0) | while (%i > 0) { if ($kprot($comchan($newnick,%i),35) != 1) echo -tq $comchan($newnick,%i) %a | dec %i } | if $nick == $me echo -stq $tma(nickme,$nick,$newnick,$address)
  halt
}

WorldDMT · Answer

rien a y voir



le codage des scripts complet ne sont pas clair car il y a plein d'alias et la plupart des fois le codage est trop basique

bref avec ON JOIN c'est un code de quelque mots pour detecter les bads nicks mais pour ON NICK c'est pas pareil

puisque ON JOIN c'est une action qui se produit sur un chan mais le changement du pseudo c'est une action qui se produit sur le serveur donc avec ON NICK il va falloir une loop

je donne des exemples:

soit un fichier.txt contient des pseudos interdit

1- exp sur ON JOIN

on @*:join:#:if ($read(fichier.txt,w,$nick)) ban -ku300 # $nick change ce pseudo stp !

2- exp sur ON NICK

on @!*:nick:{
  var %chan $regsubex($str(.,$chan(0)),/./g,$+($chan(
),$chr(32))),%i $numtok(%chan,32),%n $newnick
  if $read(fichier.txt,w,%n) {
    tokenize 32 %chan
    while %i {
      ban -ku300 $eval($ $+ %i,2) %n change ce pseudo stp !
      dec %i
    }
  }
}

biensur c'est rien que des exemples tu peux utilisé comme base si tu veux.


@+

cs_freenaute · Answer

merci WorldDMT !
je vais poser l'ensemble  dans les remotes  et je reviendrai dire si ça le fait :)

WorldDMT · Answer

c'est pas obligé que ça marche chez toi il va falloir voir ce qu'il te faut avant :/

WorldDMT · Answer

je pense qu'il va falloir ajouté une condition avant la command kb



if (%n ison $eval($ $+ %i,2)) ban -ku300 $v2 $v1 change ce pseudo stp !



donc pour etre plus clair



on @!*:nick:{
  var %chan $regsubex($str(.,$chan(0)),/./g,$+($chan(
),$chr(32))),%i $numtok(%chan,32),%n $newnick
  if $read(fichier.txt,w,%n) {
    tokenize 32 %chan
    while %i {
      if (%n ison $eval($ $+ %i,2)) ban -ku300 $v2 $v1 change ce pseudo stp !
      dec %i
    }
  }
}

cs_freenaute · Answer

merci WorldDMT , idem pour tes autres codes que j'utilise :) et thx aussi à wims

Ban $newnick == nadnick après modif de $nick

12 réponses

Votre réponse

Discussions similaires