Forums Scripts & Popups block query

menu nicklist {
  Query
  .Allow -> $snick(#,1): set %qallow $addtok(%qallow,$snick(#,1),44) | echo -a 05Allow:12 %qallow
  .Block -> $snick(#,1): set %qblock $addtok(%qblock,$snick(#,1),44) | echo -a 05Block:12 %qblock
}
on *:OPEN:?:*:{
  if ($istok(%qblock,$nick,44)) {
    .timerCLOSE -m 1 0 close -m $nick | echo -a $nick :: User from the blocked list :: $1- | msg1 $nick
  }
  elseif ($istok(%qallow,$nick,44)) { .echo $nick $nick :: User from the allowed list :: }
  else { echo $nick $nick :: User not included in any lists :: | msg2 $nick }
}
alias -l msg1 {
  .query $1 58 4,1|9|11|13|8|7|4| Hello. I'm sorry, I don't accept private messages. 4,1|9|11|13|8|7|4|
}
alias -l msg2 {
  .query $1 58 4,1|9|11|13|8|7|4| Hello. This is an auto answering. Please wait for my response. 4,1|9|11|13|8|7|4|
}