UN ANTIBAN QUI UNBAN TOUS LES BANS MEME S'IL POSSEDE DES CARACTÈRES SPÉCIAUX

on *:BAN:#:{
  if ($nick == $me) { halt }
  if (($me isop $chan) || ($me ishop $chan)) {
    if ($ForBan($banmask,$me)) { mode $chan -b $banmask }
  }
}

alias ForBan {
  ;/server -m irc.ff.st -j #IRPG
  ;$chr(42) == * $chr(63) == ?
  var %x 0
  var %arg.data
  var %arg.bool $false
  var %arg.result
  var %arg.mode $$1
  var %arg.ban $$2 $+ $right($address($$2,0),$calc($len($address($$2,0))-1))
  var %arg.lg $len($$1)
  while (%x < %arg.lg) {
    inc %x
    if ($mid(%arg.mode,%x,1) != $chr(42)) && ($mid(%arg.mode,%x,1) != $chr(63)) {
      %arg.data = %arg.data $+ $mid(%arg.mode,%x,1)
    }
    else if (($mid(%arg.mode,%x,1) == $chr(42)) || ($mid(%arg.mode,%x,1) == $chr(63))) && (%arg.data != $null) {
      if (%arg.data isin %arg.ban) {
        %arg.bool = $true
        %arg.data = $null
      }
      else {
        %arg.bool = $false
        break
      }
    }
  }
  if (%arg.data isin %arg.ban) {
    %arg.bool = $true
  }
  else if (%arg.data != $null) {
    %arg.bool = $false

  }
  return %arg.bool
}