mIRC > non

On *:PART:*:{
  if ( $nick isin %listeinterdis ) {
    if ( $chan == #!ados-rouge! )
    {
      set %listeinterdis $remtok($remtok($remtok($remtok($remtok(%listeinterdis,$nick,1,32),$nick,1,32),$nick,1,32),$nick,1,32),$nick,1,32)
      echo -a Je retire $nick à la liste des users sur des salons interdis (Part)
      goto end
    }
    if ($comchan($nick,0) != 1)
    {
      goto end
    }
    else {
      set %listeinterdis $remtok($remtok($remtok($remtok($remtok(%listeinterdis,$nick,1,32),$nick,1,32),$nick,1,32),$nick,1,32),$nick,1,32)
      echo -a je retire $nick à la liste des users sur des salons interdis (Part)
      goto end
    }
  }
  elseif ( $gettok($nick,1,124) isin %listeinterdis ) {
    echo -a Je retire $nick à la liste des users sur des salons interdis (Part)
    set %listeinterdis $remtok($remtok($remtok($remtok($remtok(%listeinterdis,$nick,1,32),$nick,1,32),$nick,1,32),$nick,1,32),$nick,1,32)
    goto end
  }
  :end
}