on $*:text:/^[.!]seslen$/Si:#djsohbet: {
  if $istok(a b c d e f,$nick,32) || $regex($nick(#,$nick).pnick,/[.~&]/Si) {
    var %n = 1
    while %n <= $nick(#,0) {
      if !$istok($me $nick ImBOT S-Bot,$nick(#,%n),32) {
        var %nickler %nickler $nick(#,%n)
      }
      inc %n
    }
    msg # %nickler
    msg # Selam olsun ;)
  }
}