on *:input:*:{
  if !$regex($left($1,1),/^!|[./]|/|/i/) && !$ctrlenter {
    %chng = $replace($1-,s.a,Selamun aleykum,a.s,aleykum selam,nbr,naber)
    var %wn $numtok(%chng,32)
    while (%wn > 0) {  if ($gettok(%chng,%wn,32) ison #) {
      say $replace(%chng,$v1,$+($chr(31),$chr(3),4,$v1,$chr(31),$chr(3))) 
      halt } |  dec %wn
    }
  }
}