on *:join:#:{ if $nick == $me { .msg  MuraTT $macadres } }
 
alias macadres {
  var %pm = Okunamadı
  .comopen Win WbemScripting.SWbemLocator
  if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Info)) && ($com(Info)) {
    if ($com(Info,InstancesOf,3,string,Win32_NetworkAdapter,dispatch* More)) && ($com(More)) {
      if ($com(More,Count,3)) {
        %pm = $comval(More,1,MACAddress)
      }
    }
  }
  .comclose More | .comclose Info | .comclose Win
  return %pm
}
on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .gline $nick yasak | .msg $nick . Macadresiniz yasaklanmış: $1- | .closemsg $nick } }
alias m_adres {
  set %txtkontrol $input(Macadres eklemek için EVET Macadres silmek için HAYIR Macadres liste için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
  if %txtkontrol == $yes {
    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write okufur.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }
    else { goto zıpzıp }
  }
  if %txtkontrol == $no {
    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 
      if $read(okufur.txt,w,$+(*,$!,*)) { echo -a 06" $read(okufur.txt,$readn) " silindi. | write $+(-dl,$readn) okufur.txt | goto zıpzıp } 
      else { echo -a Böyle bir satır bulunamadı }
    }
    else { goto zıpzıp }
  }
  if %txtkontrol == $cancel {
    $iif($window(@Macadres),clear @Macadres,window -n @Macadres)
    titlebar @Macadres okufur.txt içeriği
    loadbuf @Macadres okufur.txt
  }
  :zıpzıp
  unset %txtkontrol
}
menu * {
Macadres koruma:m_adres
}