on 1*:join:#: {
  if ($nick != $me) && !$read(muaflist.txt,w,$nick) { echo -a $nick , muaf listenizde bulunamadı. | return }
  elseif ($nick != $me) $read(muaflist.txt,w,$nick) { privmsg $nick Selam, hoşgeldin. }
}
on 2*:input:#: {
  if ($regex($1,/^[!.].[üu]a.ekle/Si) && !$2)  { echo -a $2 hatalı kullanım nick belirtin. | return }
  elseif ($regex($1,/^[!.].[üu]a.ekle/Si)  && $2) && ($read(muaflist.txt,w,$2)) { echo -a $2 zaten muaf listesinde var. | return }
  elseif ($1 == .muafekle && $2) {
    write muaflist.txt $2
  echo -a $2 başarı ile muaf listesine eklendi. }
}