on *:join:#clan-df: if ([dF]* iswm $nick) { mode # +v $nick }

on *:NICK: {
  var %nick = $newnick, %i = 1, %mode = $iif([df]* iswm %nick, +v, -v)
  while ($comchan(%nick, %i) != $null) {
    if ($v1 != #clan-df) {
      mode %chan %mode %nick
      break
    }
    inc %i
  }
}