on *:join:#: {
  $iif(!$window($+(@,$chan,-GIRIS)),window -n $+(@,$chan,-CIKIS))
  echo -t $+(@,$chan,-GIRIS) $+($chr(3),$color(join)) * Giriş: $nick $+($chr(40),$right($address($nick,1),-3),$chr(41))
  echo -t $+(@,$chan,-CIKIS) $+($chr(3),$color(quit)) * Çıkış: $nick $+($chr(40),$right($address($nick,1),-3),$chr(41))
  $iif(!$hfind($token($address($nick,2),2,64),$nick),.hadd -sm $token($address($nick,2),2,64) $nick)
  var %q = 1 | while %q <= $hget($token($address($nick,2),2,64),0).item { var %i $addtok(%i,$hget($token($address($nick,2),2,64),%q).item,32) | inc %q }
  if $remove(%i,$nick) { echo -t $+(@,$chan,-GIRIS) $+($chr(3),$color(join)) * Önceki Nickleri:4 $remove(%i,$nick) }
}