on *:input:#:{ 
  if $regex($1,/^[!\.]seslen$/Si) && $regex($nick(#,$nick).pnick,/(%|@|&|~|\.)/) && $2 {
    msg # $regsubex($str(-,$nick(#,0)),/./g, $+($chr(3),$r(1,4)) $iif($nick(#,\n) != $me,$iif($nick(#,\n) != Nick1,$iif($nick(#,\n) != Nick2,$nick(#,\n)))) $+($chr(32),$chr(3),5)) ==>6 $nick 1size5 $chan 1kanalında sesleniyor: $+($chr(3),12,$2-)
  }
}

on *:input:#:{ 
  if $regex($1,/^[!\.]seslen$/Si) && $2 {
    .hadd -ms seslen $chan $2- | who $chan
  }
}

raw 352:*:{
  if $hget(seslen,$2) {
    if $regex($7,/(%|@|&|~|\.)/) {
      if $regex($6,/( $+ $me $+ |Nick1|Nick2|Nick3)/Si) { return }
      .hadd -m seslen nickler $hget(seslen,nickler) $+($chr(3),$r(1,4),$6)
    }
  }
}
raw 315:*:{
  if $hget(seslen,$2) && $hget(seslen,nickler) {
    msg $2 $hget(seslen,nickler) $+($chr(32),$chr(3),5) ==>6 $me 1size5 $2 1kanalında sesleniyor: $+($chr(3),12,$hget(seslen,$2))
    .hfree -sw seslen
  }
}