on *:JOIN:#:{   
  set %checking $addtok(%checking,$nick,$asc(:))
  set $+(%,voice,.,$nick) mode $chan +v $nick
  set $+(%,damsg,.,$nick) msg $chan     
  whois $nick
}
raw 307:*: {
  if ($istok(%checking,$2,$asc(:))) {
    $($+(%,voice,.,$2),2)
    $($+(%,damsg,.,$2),2) $2 is identified
    set %checking $deltok(%checking,$findtok(%checking,$2,$asc(:)),$asc(:))
  }  
}