alias A'slm {
  var %Cnk = /(^s\.a(\.?)$)|(^selam)|(^selam(lar)?$)|(slm)|(^sa)|(^sa(\.+)$)/gi
  if ($regex($1, %Cnk)) || ($regex($2, %Cnk)) {
    if (!$hget(Aslm, $nick)) {
      msg $chan Aleyküm Selam $nick
    }
    hadd -mu60 Aslm $nick $true
  }
}
on *:TEXT:*:#: {
  A'slm $1-
}