Forums Bug Reports $!query bug

i have remove the ! in $query so script can be used in cid 1
on *:dialog:nicklist:sclick:*:{
 if (#* iswm $checkchan) { scon -s $calc($gettok($gettok($did($dname, $did, 1), 3-, 32), 2, 32) - 1) window -ao $!chan($calc($clickchan - 1)) } 
  if ($isquery != $null) { scon -s $calc($gettok($gettok($did($dname, $did, 1), 3-, 32), 2, 32) - 1) window -ao $query($calc($gettok($gettok($did($dname, $did, 1), 3-, 32), 4, 32) - 1)) }
 }
alias isquery {
  return $gettok($gettok($did($dname, $did, 1), 3-, 32), 4, 32)
}
alias checkchan {
  scon -s $calc($gettok($gettok($did($dname, $did, 1), 3-, 32), 2, 32) - 1) return $!chan($calc($clickchan - 1))
}
alias clickchan {
  return $gettok($gettok($did($dname, $did, 1), 3-, 32), 3, 32)
}
alias clickquery {
  scon -s $calc($gettok($gettok($did($dname, $did, 1), 3-, 32), 2, 32) - 1) return $gettok($gettok($did($dname, $did, 1), 3-, 32), 3, 32)
}