mIRCMerkez

#cafeuyar on

on 1:open:?: {
  if $address($nick,2) != $null qc $nick
  else {
    set %ial query
    .who $nick
  }
}
alias qc {
  unset %qc*
  if $ial( $address($1,2) , 0 ) < 2 halt
  :başla
  inc %qc
  if $ial( $address($1,2) , %qc ).nick == $1 goto başla
  if $ial( $address($1,2) , %qc ).nick == $null goto son
  set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
  goto başla
  :son
  if %qc [ $+ [ $1 ] ] == $null halt
  echo $1 11,1 - 15,1 Özelinizdeki 11- 0 - $$1 - %qc [ $+ [ $1 ] ] 11,1 -  11,1 - 15,1 aynı cafe’den yada aynı kişiler 11- 0( $+ $address($1,2) $+ )11,1 - 
  echo $1 
  unset %qc*
}

#cafeuyar end