Detecteur de pseudos interdits

Commenter

Contenu du snippet

detectteur de nick en tokken
permet de detecter un element texte "interdit" ou "non permis" dans le pseudo de qqun quand cette personne arrive sur le salon ou si elle change de pseudo ...

Source / Exemple : 


#nickdect off
on *:join:*: {
  /set %i 0
  :boucle
  inc %i
  if ( %i  > $gettok(%yeule,0,44) ) { goto fin }
  if ( $gettok(%yeule, %i ,44) !isin $nick ) { 
    goto boucle
  }
  else { 
   echo $chan $nick devient $newnick
   echo -a possibilité de pseudo interdit de $nick sur $chan ...  
   halt
  }
  :fin
  /unset %i
}

on ^*:nick:{
  /set %i 0
  :boucle
  inc %i
  if ( %i  > $gettok(%yeule,0,44) ) { goto fin }
  if ( $gettok(%yeule, %i ,44) !isin $newnick ) { 
    goto boucle
  }
  else {
   echo -a $nick devient $newnick
   echo -a possibilité de pseudo interdit de $newnick  ... 
   halt
  }
  :fin
  /unset %i
}
#nickdect end

alias detecteur { dialog -m decteur decteur  }

dialog decteur {
  title " Kerrigan Nick Detector"
  size -1 -1 110 100
  option dbu
  text "liste des mots detectables  ", 1, 10 10 150 10
  list 2, 10 20 60 65 , size,
  button "ajouter", 3, 70 20 30 10,flat
  edit " ", 4, 10 80 60 10,autohs
  button "Fermer", 5, 70 55 30 10, ok,flat
  button "Activer" ,6, 70 35 30 10,flat
  button "Desactivé" ,7, 70 45 30 10,flat
  edit " ", 8, 70 65 30 10, read center
  button "suprimer" ,9, 70 80 30 10 , flat
}

on *:dialog:decteur:init:0:{
  set %itr  1
  while ( %itr <= $gettok(%yeule,0,44) ) {
    did -a decteur 2 $gettok(%yeule,%itr,44)
    inc %itr
  }
  did -ra decteur 8 %state
}

on *:dialog:decteur:sclick:3:{ 
  if ( $did(4) = $chr(160) ) { halt }
  if ( $findtok( %yeule , $did(4) ,1,44 ) = $null ) { 
    did -r decteur 2
    var  %nouveau = $did(4)
    /set %yeule %yeule $+ , $+ %nouveau
    did -r decteur 4
    set %itr  1
    while ( %itr <= $gettok(%yeule,0,44) ) {
      did -a decteur 2 $gettok(%yeule,%itr,44)
      inc %itr
    }
  }
}
on *:dialog:decteur:sclick:6:{ /set %state Activer | .enable #nickdect | did -ar decteur 8 %state  }
on *:dialog:decteur:sclick:7:{ /set %state Desactivé | .disable #nickdect | /did -ar decteur 8 %state }
on *:dialog:decteur:sclick:9:{
  set %supr $did(2,$did(2).sel)
  set %pos $findtok(%yeule,%supr,1,44)
  set %yeule $deltok(%yeule,%pos,44)
  set %itr  1
  did -r decteur 2
  while ( %itr <= $gettok(%yeule,0,44) ) {
    did -a decteur 2 $gettok(%yeule,%itr,44)
    inc %itr
  }
}

Conclusion :


g pas mit dauto kick ou dauto ban ( c pas tres gentil .... ) peu etre plus tard le but du jeu c juste de detecter des syllabe dans les nick voila amusez vous bien avec !

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Kerrigan)