On *:Text:*:#:{
  if $regex($1-,/(slm|selam|s\.a|s\.a\.)/ASi) && !$var($+(%,cesur,$nick)) {
    msg $chan 4 %renk Aleykum Selam 2 %renk $nick
    .set -u300 $+(%,cesur,$nick)
  }
}

alias randrenk {
  var %renk 0 2 3 4 5 6 7 8 9 10 11 12 13 14 15, %rand $token(%renk,$rand(1,$token(%renk,0,32)),32)
  return $+($chr(3),%rand)
}

On *:Text:*:#:{
  var %renk $randrenk
  if $regex($1-,/(slm|selam|s\.a|s\.a\.)/ASi) && !$var($+(%,cesur,$nick)) {
    msg $chan %renk Aleykum Selam $nick
    .set -u300 $+(%,cesur,$nick)
  }
}

alias randrenk {
  var %renk 0 2 3 4 5 6 7 8 9 10 11 12 13 14 15, %rand $token(%renk,$rand(1,$token(%renk,0,32)),32)
  return $+($chr(3),%rand)
}