Q and q when Join

on *:JOIN:#: {
  ;($hget(adler,$+(okey,#))) &&
  if (!$ismode(#,$me,q)) {
    timermsgq1 1 5 msg # Debug: I found I had no $+(",q,") mode when I joined $canal(#) $+ !
  }
  if (!$ismode(#,$me,Q)) {
    timermsgq2 1 5 msg # Debug: I found I had no $+(",Q,") mode when I joined $canal(#) $+ !
  }

}

alias ismode return $iif($nick($1,$2,$mid($prefix,$poscs($nickmode,$3),1)),1)