alias s_ {
  if ($1 = aç) debug -i on s_ 
  if ($1 = kapat) debug off
  tokenize 32 $1-
  if $1 = <- && $3 = privmsg {
    if $4 ischan {
      if $regex($5-,/^[:]s(\.a(\.|leyk[uüÜ]m)?|lm|elam(s|lar|[uÜü]n\saleyk[uÜü]m)?)$/Si) {
        msg $4 a.selam $regsubex($2,^[:]([^!]+)![^@]+@.+,\1) Hoş Geldin.
      }
    }
  }
}

[22:33] <deneme> s.a
[22:33] <Feragat> a.selam deneme Hoş Geldin.
[22:33] <deneme> s.a.
[22:33] <Feragat> a.selam deneme Hoş Geldin.
[22:33] <deneme> selam
[22:33] <Feragat> a.selam deneme Hoş Geldin.
[22:33] <deneme> selams
[22:33] <Feragat> a.selam deneme Hoş Geldin.
[22:34] <deneme> slm
[22:34] <Feragat> a.selam deneme Hoş Geldin.
[22:34] <deneme> s.aleyküm
[22:34] <Feragat> a.selam deneme Hoş Geldin.
[22:34] <deneme> selamun aleyküm
[22:34] <Feragat> a.selam deneme Hoş Geldin.