alias clonelar {

  unset %cs

  var %i 1 , %c.sayisi $ialchan($address($2,4),$1,0)

  if %c.sayisi > 1 {

    while %i <= %c.sayisi {

      if $ialchan($address($2,4),$1,%i).nick != $2 {

        if !%cs { set %cs $ialchan($address($2,4),$1,%i).nick }

        else { set %cs $+(%cs,$chr(160) - $chr(160),$ialchan($address($2,4),$1,%i).nick) }

      }

      inc %i

    }

  }

  if %cs { return %cs }

  else { return YOK }

}

 
on ^*:join:#: {

  if $nick == $me { 

    echo # (# odasina girdiniz. ( $+ $date $+ ))

  }

  else {

    echo # $time ( $+ $nick $+  odaya girdi. ( $+ $address($nick,1) $+ )) (Clones: $clonelar(#,$nick) $+ )

  }

  if $query($nick) {

    echo $nick $ts $jclr( $+ $nick $+ # odasina girdi. ( $+ $address($nick,1) $+ )) (Clonelar: $clonelar(#,$nick) $+ )

  }

  halt

}