alias ufuk { 
  var %i 1 
  while %i <= $lines(badnick.txt) { 
    if $1 == $read(badnick.txt,%i) { msg #x $v1 karalistede bulunuyor. } 
    inc %i
  }
}
on *:text:*:#x: { 
  if $1 == !sorgu { ufuk $2 }
}